Banco Do Brasil - Cnab240

[Isaac Cavalcanti]

Pessoal, por favor  se alguém puder me ajudar! preciso muito de socorro! eu nunca usei o ACBRBoleto, e preciso fazer o arquivo de remessa para o banco do brasil, pois bem,peguei o componente, segui o exemplo e preenchi todos os campos com as informações passadas pelo banco, gerei o arquivo , e enviei para a homologação por parte do banco, resultado, um monte de erros, na verdade, os layouts que o ACBR esta gerando me parece ser muito diferente do layout ao qual o banco esta esperando! alguém já conseguiu resolver esse problema? alguém poderia me indicar um caminho para resolver isso?

 

Obrigado por toda ajuda.

[Juliomar Marchetti]

Bom dia

anexe o arquivo com o retorno para poder saber quais erros está sendo informado!

[Isaac Cavalcanti]

Ola Julio, obrigado por responder, o arquivo que eu enviei ao banco foi esse que esta em anexo e a resposta do banco foi essa,também anexei o manual com o layout do arquivo do banco:

 

Análise do arquivo HOMOLOG_v2:

====================================================================================================
 Header de Arquivo                > Lote 0000
----------------------------------------------------------------------------------------------------
Posições 033 a 052: Preencher com o código do convênio: '000115973001417019  '
Posições 053 a 057: Preencher com o número da agência do convênio: '01856'
Posições 058 a 058: Preencher com o DV correto da agência: '2'
Posições 059 a 070: Preencher com o número da conta corrente do convênio: '000000024449'
Posições 071 a 071: Preencher com o DV correto da conta corrente: 'X'
Posições 072 a 072: Preencher com branco ou zero
Posições 143 a 143: Preencher com '1' quando remessa
Posições 144 a 151: Preencher com a data de geração do arquivo no formato DDMMAAAA
Posições 167 a 171: Preencher com uma das opções: '01600', '06250', zeros ou brancos
Posições 212 a 240: Estrutura do arquivo irregular. Campo sem preenchimento

====================================================================================================
 Header de Lote                   > Lote 0001
----------------------------------------------------------------------------------------------------
Posições 034 a 053: Preencher com o código do convênio: '000115973001417019 
Posições 054 a 058: Preencher com o número da agência do convênio: '01856'
Posições 059 a 059: Preencher com o DV correto da agência: '2'
Posições 060 a 071: Preencher com o número da conta corrente do convênio: '000000024449'
Posições 072 a 072: Preencher com o DV correto da conta corrente: 'X'
Posições 073 a 073: Preencher com branco ou zero
Posições 184 a 191: Preencher com o número da remessa ou zeros
Posições 192 a 199: Preencher com a data de gravação da remessa ou zeros
Posições 200 a 207: Preencher com brancos ou zeros
Posições 208 a 240: Estrutura do arquivo irregular. Campo sem preenchimento

====================================================================================================
 Segmento P                       > Lote 0001
----------------------------------------------------------------------------------------------------
Posições 106 a 106: Preencher com branco

====================================================================================================
 Segmento Q                       > Lote 0001
----------------------------------------------------------------------------------------------------
Posições 019 a 033: Preencher com o número de inscrição do sacado, alinhado com zeros à esquerda

Estrutura do Arquivo
----------------------------------------------------------------------------------------------------
Linha 0001: Header de Arquivo com 239 colunas
Linha 0002, Header de Lote 0001 com 239 colunas
 

Embora tudo esteja sendo preenchido no objeto boleto como segue o codigo:

 

 

 

 Titulo := ACBrBoleto1.CriarTituloNaLista;

 

             with Titulo do

             begin

 

                Vencimento        := qry1.fieldByName('DataVcto').AsDateTime;

                DataDocumento     := qry1.fieldByName('DataEmissao').AsDateTime;

                Carteira          := '17/019';

                NumeroDocumento   := doc;

                EspecieDoc        := sEspecieTitulo;

                //if cbxAceite.ItemIndex = 0 then

                   Aceite := atNao;

               // else

               //    Aceite := atNao;

 

                DataProcessamento := Now;

                NossoNumero       := OnlyNumber(Copy(doc,1,5));

 

                ValorDocumento    := valor;

                Sacado.NomeSacado := qry1.fieldByName('cliente').AsString;

                Sacado.CNPJCPF    := OnlyNumber(qry1.fieldByName('DE_CNPJ').AsString);

                Sacado.Logradouro := qry1.fieldByName('ENDERECO_DEVEDOR').AsString;

                Sacado.Numero     := qry1.fieldByName('NUM_END_DEVEDOR').AsString;

                Sacado.Bairro     := qry1.fieldByName('BAIRRO_DEVEDOR').AsString;

                Sacado.Cidade     := qry1.fieldByName('CIDADE_DEVEDOR').AsString;

                Sacado.UF         := qry1.fieldByName('ESTADO_DEVEDOR').AsString;

                Sacado.Pessoa     := pFisica;

                Sacado.CEP        := OnlyNumber(qry1.fieldByName('CEP_DEVEDOR').AsString);

                ValorAbatimento   := 0;

                LocalPagamento    := 'Pagar preferêncialmente nas agências do Banco do Brasil';

                ValorMoraJuros    := RoundTo( qry1.FieldByName('juros_dias').asFloat * valor, -2);

                ValorDesconto     := 0;

                ValorAbatimento   := 0;

                

                DataMoraJuros     := IncDay(qry1.fieldByName('DataVcto').AsDateTime,1);

               // DataDesconto      := StrToDateDef(edtDataDesconto.Text, 0);

               // DataAbatimento    := StrToDateDef(edtDataAbatimento.Text, 0);

               if qry1.fieldByName('Protestar').AsString = 'S' then

                  DataProtesto      := IncDay(qry1.fieldByName('DataVcto').AsDateTime,6);

 

                PercentualMulta   := qry1.fieldByName('multa_aliquota_calculado').AsFloat;

               // Mensagem.Text     := memMensagem.Text;

               if getValorParametro('FIN_LINHA4_LISTANFS_BOLETO') = 'SIM' then

                  Mensagem.Text:='REF. AS NF/PARC: '+AnsiReplaceText(totalNotas,'''','')

               else

                  Mensagem.Text:=getValorParametro('FIN_LINHA4_BOLETO');

 

                OcorrenciaOriginal.Tipo := toRemessaBaixar;

                Instrucao1        := padL(trim(getValorParametro('FIN_LINHA1_BOLETO')),2,'0');

                Instrucao2        := padL(trim(getValorParametro('FIN_LINHA2_BOLETO')),2,'0');

 

               // ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem);

             end;

 

 

Agradeço toda ajuda.

 

HOMOLOG_v2.txt

CNAB 240.pdf