Emerson Teixeira

Olá Boa tarde Gostaria de saber se foi implementado a carteira 11 com convenio de 7 dígitos para o banco do brasil, pois fiz alguns testes aqui e não consegui gerar o boleto de forma correta, para que isto fosse possível alterei a seguinte função. Se usar a linha comentada a linha digitável fica idêntica à de um boleto gerado pelo sistema do banco... Obrigado por enquanto... function TACBrBancoBrasil.FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String; var ANossoNumero, AConvenio, wNossoNumero : String; wTamNossoNum: Integer; begin with ACBrTitulo do begin AConvenio := ACBrBoleto.Cedente.Convenio; ANossoNumero := IntToStr(StrToInt64(OnlyNumber(NossoNumero))); wNossoNumero := OnlyNumber(NossoNumero); wTamNossoNum := CalcularTamMaximoNossoNumero(Carteira,wNossoNumero); if ((ACBrTitulo.Carteira = '16') or (ACBrTitulo.Carteira = '18')) and (Length(AConvenio) = 6) and (wTamNossoNum = 17) then ANossoNumero := padR(ANossoNumero, 17, '0') else if Length(AConvenio) <= 4 then ANossoNumero := padR(AConvenio, 4, '0') + padR(ANossoNumero, 7, '0') else if (Length(AConvenio) > 4) and (Length(AConvenio) <= 6) then ANossoNumero := padR(AConvenio, 6, '0') + padR(ANossoNumero, 5, '0') else if (Length(AConvenio) = 7) and (ACBrTitulo.Carteira = '11') then ANossoNumero := padR('0', 7, '0') + padR(ANossoNumero, 10, '0') // ANossoNumero := padR(AConvenio, 7, '0') + padR(ANossoNumero, 10, '0') else if (Length(AConvenio) = 7) and ((ACBrTitulo.Carteira <> '11')) then ANossoNumero := padR(AConvenio, 7, '0') + padR(ANossoNumero, 10, '0'); end; Result := ANossoNumero; end;

Olá Juliomar realmente faltava recompilar obrigado. mais uma duvida este ecfECFVirtual vai servir para sat e nfc-e? se resposta for sim, como defino o tipo? Obrigado

Olá Gostaria de saber se esta ideia evoluiu ou não? Obrigado

Resolvi este problema alterando os fontes do pacote: ACBrNFSeDanfseRLpkg Digitando as palavras novamente, nao sei se é a melhor opção mas foi o q eu fiz Abraços

tbm estou com o mesmo problema, estou utilizando o fortes obrigado

Galera.. Achei o assunto no forum vlw, resolvido

Olá boa tarde. Gostaria de saber se a consulta das nfes destinadas está funcionando, pois estou usando o nfedemo pra fazer uns testes e não tenho retorno algum ao consultar as nfes destinadas os parametros são os seguintes: 0 = todas nfes 0 = todos emitentes/remetentes 0 = para ultimos 15 dias web service de homologação e pra pegar a resposta o seguinte codigo: for i := 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count - 1 do begin MemoResp.Lines.Add(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.NSU + ' - ' + AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe + ' - ' + AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF + ' - ' + AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome + ' - ' + AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE + ' - ' + DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi) + ' - ' + tpNFToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF) + ' - ' + FloatToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF) + ' - ' + AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.digVal + ' - ' + DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dhRecbto) ); end; se alguem puder me ajudar agradeço desde já.. Abraços a todos..