Problema com o Arquivo Remessa do Banco do Brasil

[Well]

Infelizmente não estou conseguindo homologar o arquivo remessa do banco do brasil eles me retormam os seguintes problemas:

BANCO DO BRASIL S/A - CSO BELO HORIZONTE (MG) 24/05/2011

RELATÓRIO DE TESTE DE COBRANÇA – CNAB 240 XXXXXXXXX

Cliente: XXXXXXXXXXXXXXXXXXX

Agência: XXXXX

Conta: XXXXXX

Convênio: XXXXXXX

Carteira: 17/019

ANÁLISE DO ARQUIVO REMESSA:

REGISTRO HEADER DE ARQUIVO:

- Posição 033 a 052: informar 000000000000000000 + 02 espaços em branco à direita

- Posição 103 a 132: alinhar BANCO DO BRASIL à esquerda e completar com espaços em branco à direita

- Posição 172 a 222: preencher todas estas posições com espaços em branco

REGISTRO HEADER DE LOTE:

- Posição 034 a 053: informar 000000000000000000 + 02 espaços em branco à direita

REGISTRO DETALHE 3/ SEGMENTO P:

- Posição 009 a 013: A estrutura correta para os segmentos P e Q é: 1P, 2Q, 3P, 4Q, 5P, 6Q... Está errado da forma que está sendo informado neste arquivo remessa (1P,1Q, 2P, 2Q). Favor corrigir.

- Posição 016 a 017: informar 01 (registro de títulos)

- Posição 058 a 058: informar 7, por tratar-se de cobrança simples com carteira 17

- Posição 107 a 108: informar código 02 (que corresponde à espécie de título Duplicata Mercantil

- Campo “Instruções”: JUROS: A carteira em questão está programada para receber títulos até 90 dias após o vencimento. Sendo assim após o vencimento haverá incidência de juros que atualmente está cadastrado para cobrar o FACP – Fator acumulado de Comissão de Permanência (taxa divulgada pelo banco todos os dias) na data da liquidação do título.

Caso não queira cobrança de juros, deverá solicitar seu gerente/agência de relacionamento a alteração da taxa de juros da carteira 17/019 de “0,00% - FACP” para “0,00% - ISENTO” ou solicitar a alteração do prazo de recebimento de títulos vencidos para NÃO RECEBER (inclusive nos terminais de auto atendimento)

REGISTRO DETALHE 3 / SEGMENTO Q:

- Posição 009 a 013: A estrutura correta para os segmentos P e Q é: 1P, 2Q, 3P, 4Q, 5P, 6Q... Está errado da forma que está sendo informado neste arquivo remessa (1P,1Q, 2P, 2Q). Favor corrigir.

- Posição 016 a 017: informar 01 (registro de títulos)

- Posição 018 a 018: Informar 1 (CPF) ou 2 (CNPJ). Favor atentar para isso.

REGISTRO TRAILER DE LOTE:

- Posição 018 a 023: informar o número total de registros (linhas) do arquivo, excluindo as linhas referentes ao registro header de arquivo e trailer de arquivo. No caso deste arquivo remessa será 000006

Apesar dos erros quando eu envio a remessa o sistema do banco aceita, porém no retorno ele diz que o titulo foi rejeitado.

Alguém já passou por isso ?

Se puder me ajudar agradeço.

[Juliana Tamizou]

Bom dia.

Qual é o tamanho do número do seu convênio, pergunto isso, pois o BB possui 3 layouts diferentes de acordo com o tamanho do número do convênio.

Att.

[Well]

Bom dia.

Qual é o tamanho do número do seu convênio, pergunto isso, pois o BB possui 3 layouts diferentes de acordo com o tamanho do número do convênio.

Att.

Bom dia Juliana,

O tamanho do numero do meu convencio é de 7 digitos.

Obrigado.

[Well]

Bom dia Juliana,

O tamanho do numero do meu convencio é de 7 digitos.

Obrigado.

[Well]

Infelizmente o arquivo remessa continua dando erros, o convenio é de 7 digitos, alguém já conseguiu homologar a remessa do BANCO DO BRASIL ?

Obrigado,

BANCO DO BRASIL S/A - CSO BELO HORIZONTE (MG) 09/06/2011

RELATÓRIO DE TESTE DE COBRANÇA – CNAB 240 XXXXXXX

Cliente: INDUSTRIA TEXTIL INCONFIDENTES LTDA

Agência: XXXX - X

Conta: XXXXX - X

Convênio: XXXXXXX

Carteira: 17/019

ANÁLISE DO ARQUIVO REMESSA:

REGISTRO HEADER DE ARQUIVO:

- Posição 033 a 052: informar 00XXXXXXX001417019 + 02 espaços em branco à direita (foi informado XXXXXX001417000)

- Posição 103 a 132: informar o nome do banco alinhado à esquerda e completado com espaços em branco à direita

REGISTRO HEADER DE LOTE:

- Posição 034 a 053: informar 001666762001417019 + 02 espaços em branco à direita (foi informado 00XXXXXXX001417000)

REGISTRO DETALHE 3 / SEGMENTO P:

- Posição 009 a 013: A estrutura correta para os segmentos P e Q é: 1P, 2Q, 3P, 4Q, 5P, 6Q... Está errado da forma que está sendo informado neste arquivo remessa (1P,1Q, 2P, 2Q). Favor corrigir.

- Posição 058 a 058: informar 7, por tratar-se de cobrança simples com carteira 17

REGISTRO DETALHE 3 / SEGMENTO Q:

- Posição 009 a 013: A estrutura correta para os segmentos P e Q é: 1P, 2Q, 3P, 4Q, 5P, 6Q... Está errado da forma que está sendo informado neste arquivo remessa (1P,1Q, 2P, 2Q). Favor corrigir.

- Posição 018 a 018: informar 1 para CPF do sacado ou 2 para CNPJ do sacado.

- Posição 210 a 212: informar 000

REGISTRO TRAILER DE LOTE:

- Posição 018 a 023: informar o número total de registros (linhas) do arquivo, excluindo as linhas referentes ao registro header de arquivo e trailer de arquivo. No caso deste arquivo remessa será 000006

[Antonio Marcelo]

Olá well

Tive o mesmo problema resolvi alterando as linhas

IntToStrZero(ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+ 1 ,5) +

Para

IntToStrZero(2 * (ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+ 1) - 1 ,5) +

e alinha

IntToStrZero((2 * ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo))+ 2 ,5) +

Para

IntToStrZero(2 * (ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+ 1 ),5) +

[dioorox]

Antonio,

Em qual arquivo fizestes estas mudanças?

Teria como colocar aqui a tua rotina que "preenche" a lista de titulos do ACBrBoleto pra eu dar uma olhada?

Grato.

[Juliana Tamizou]

Boa tarde.

Para convênios de 7 digitos, o layout de remessa deve seguir o padrão CNAB400.

Att

[Antonio Marcelo]

Pois é dioorox como a Juliana disse tem que usar o cnab400 estou buscando essa informação com o banco

O arquivo que alterei foi o ..ACBR\Fontes\ACBrBoleto\ACBrBancoBrasil.pas a partir da linha 351

     Result:= IntToStrZero(ACBrBanco.Numero, 3)                          + //1 a 3 - Código do banco

               '0001'                                                     + //4 a 7 - Lote de serviço

               '3'                                                        + //8 - Tipo do registro: Registro detalhe

               [b]IfThen(Length(ACBrBoleto.Cedente.Convenio) = 7,IntToStrZero(2 * (ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+ 1) - 1 ,5), IntToStrZero(ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+ 1 ,5)) + //9 a 13 - Número seqüencial do registro no lote - Cada título tem 2 registros (P e Q)[/b]

               'P'                                                        + //14 - Código do segmento do registro detalhe

               ' '                                                        + //15 - Uso exclusivo FEBRABAN/CNAB: Branco

               ATipoOcorrencia                                            + //16 a 17 - Código de movimento

               aAgencia                                                   + //18 a 22 - Agência mantenedora da conta

               padL(ACBrBoleto.Cedente.AgenciaDigito, 1 , '0')            + //23 -Dígito verificador da agência

               aConta                                                     + //24 a 35 - Número da conta corrente

               padL(ACBrBoleto.Cedente.ContaDigito, 1, '0')               + //36 - Dígito verificador da conta

               ' '                                                        + //37 - Dígito verificador da agência / conta

               padL(ANossoNumero, 20, ' ')                                + //38 a 57 - Nosso número - identificação do título no banco

               IfThen(Length(ACBrBoleto.Cedente.Convenio) = 7,'7','1')    + //58 - Cobrança Simples

               '1'                                                        + //59 - Forma de cadastramento do título no banco: com cadastramento

               '1'                                                        + //60 - Tipo de documento: Tradicional

               ATipoBoleto                                                + //61 a 62 - Quem emite e quem distribui o boleto?

               padL(NumeroDocumento, 10, '0') + '00000'                   + //63 a 72 - Número que identifica o título na empresa [ Alterado conforme instruções da CSO Brasília ] {27-07-09}

               FormatDateTime('ddmmyyyy', Vencimento)                     + //78 a 85 - Data de vencimento do título

               IntToStrZero( round( ValorDocumento * 100), 15)            + //86 a 100 - Valor nominal do título

               '000000'                                                   + //101 a 105 - Agência cobradora + Digito. Se ficar em branco, a caixa determina automaticamente pelo CEP do sacado

               padL(EspecieDoc,2)                                                 + //107 a 108 - Espécie do documento

               ATipoAceite                             + //109 - Identificação de título Aceito / Não aceito

               FormatDateTime('ddmmyyyy', DataDocumento)                  + //110 a 117 - Data da emissão do documento

               [b]IfThen(Length(ACBrBoleto.Cedente.Convenio) = 7, IfThen(ValorMoraJuros > 0, '2', '1'),IfThen(ValorMoraJuros > 0, '1', '0')) + //118 - Código de juros de mora: Valor por dia[/b]

               ADataMoraJuros                                             + //119 a 126 - Data a partir da qual serão cobrados juros


               IfThen(ValorMoraJuros > 0, IntToStrZero( round(ValorMoraJuros * 100), 15),

                    padL('', 15, '0'))                                    + //127 a 141 - Valor de juros de mora por dia


               IfThen(ValorDesconto > 0, IfThen(DataDesconto > 0, '1','4'), '0')  + //142 - Código de desconto: 1 - Valor fixo até a data informada 4-Desconto por dia de antecipacao 0 - Sem desconto

               ADataDesconto                                              + //143 a 150 - Data do desconto


               IfThen(ValorDesconto > 0, IntToStrZero( round(ValorDesconto * 100), 15),

               padL('', 15, '0'))                                         + //151 a 165 - Valor do desconto por dia

               IntToStrZero( round(ValorIOF * 100), 15)                   + //166 a 180 - Valor do IOF a ser recolhido

               IntToStrZero( round(ValorAbatimento * 100), 15)            + //181 a 195 - Valor do abatimento

               padL(SeuNumero, 25, ' ')                                   + //196 a 220 - Identificação do título na empresa

               IfThen((DataProtesto <> null) and (DataProtesto > Vencimento), '1', '3') + //221 - Código de protesto: Protestar em XX dias corridos

               IfThen((DataProtesto <> null) and (DataProtesto > Vencimento),

                    padL(IntToStr(DaysBetween(DataProtesto, Vencimento)), 2, '0'), '00') + //222 a 223 - Prazo para protesto (em dias corridos)

               '2'                                                        + //224 - Campo não tratado pelo BB [ Alterado conforme instruções da CSO Brasília ] {27-07-09}

               '000'                                                      + //225 a 227 - Campo não tratado pelo BB [ Alterado conforme instruções da CSO Brasília ] {27-07-09}

               '09'                                                       + //228 a 229 - Código da moeda: Real

               padL('', 10 , '0')                                         + //230 a 239 - Uso exclusivo FEBRABAN/CNAB

               ' ';                                                         //240 - Uso exclusivo FEBRABAN/CNAB


      {SEGMENTO Q}

      Result:= Result + #13#10 +

               IntToStrZero(ACBrBanco.Numero, 3)                          + //Código do banco

               '0001'                                                     + //Número do lote

               '3'                                                        + //Tipo do registro: Registro detalhe

               [b]IfThen(Length(ACBrBoleto.Cedente.Convenio) = 7,IntToStrZero(2 * (ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+ 1 ),5),IntToStrZero((2 * ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo))+ 2 ,5)) + //Número seqüencial do registro no lote - Cada título tem 2 registros (P e Q)[/b]

               'Q'                                                        + //Código do segmento do registro detalhe

               ' '                                                        + //Uso exclusivo FEBRABAN/CNAB: Branco

               ATipoOcorrencia                                            + //Tipo Ocorrencia

                   {Dados do sacado}

               IfThen(Sacado.Pessoa = pJuridica,'2','1')                  + //Tipo inscricao

               padR(OnlyNumber(Sacado.CNPJCPF), 15, '0')                              +

               padL(Sacado.NomeSacado, 40, ' ')                                 +

               padL(Sacado.Logradouro +' '+ Sacado.Numero +' '+ Sacado.Complemento , 40, ' ') +

               padL(Sacado.Bairro, 15, ' ')                               +

               //padR(Sacado.CEP, 8, '0')                                   +

               padR(OnlyNumber(Sacado.CEP), 8, '0')                                   +

               //padR(Sacado.Cidade, 15, ' ')                               +

               padL(Sacado.Cidade, 15, ' ')                               +

               padL(Sacado.UF, 2, ' ')                                    +

                        {Dados do sacador/avalista}

               '0'                                                        + //Tipo de inscrição: Não informado

               padL('', 15, '0')                                          + //Número de inscrição

               padL('', 40, ' ')                                          + //Nome do sacador/avalista

               padL('', 3, '0')                                           + //Uso exclusivo FEBRABAN/CNAB

               padL('',20, ' ')                                           + //Uso exclusivo FEBRABAN/CNAB

               padL('', 8, ' ');                                            //Uso exclusivo FEBRABAN/CNAB

      end;

[Antonio Marcelo]

Juliana obrigado pela informação

Vou desfazer as alterações

Outra dúvida

O Banco do Brasil me retornou essa mensagem da análise do arquivo.

ANÁLISE DOS BOLETOS:

FICHA DE COMPENSAÇÃO / RECIBO DO SACADO:

- Campo “Espécie Doc.”: informar DM (que corresponde ao código 02 informado no arquivo remessa)

Como resolver isso?

[Eduardor]

Caro amigo, observei que vc esta consegindo algum meio de homologação do seu arquivo de remessa, por favor gostaria de saber como vc esta tentando homologar para que eu possa tentar homologar o meu arquivo... é via e-mail? qual e-mail.

Saudações, Eduardo

[Juliana Tamizou]

Bom dia.

Na espécie do documento você precisa informar DM.

Respondendo a pergunta sobre como homologar: Você precisa entrar em contato com o suporte do banco, então será gerado um número de protocolo e também será passado a você um endereço de email para enviar os testes.

Att.

[Atilio]

Também gostaria de saber como faço para homologar o arquivo remessa do Banco do Brasil, tanto CNAB 400 quanto 240. Alguém tem algum e-mail para me indicar ?

[Antonio Marcelo]

Não se serve para qualquer região mas os telefones que usei para contato com o banco foram:

3003 0500 suporte BB Cobrança

0800 729 0500 Gerenciador

[Antonio Marcelo]

Bom dia Juliana só para não sair fazendo alterações desnecessárias nos códigos do componente.

O banco me retornou o seguinte erro no layout cnab400

Verificamos que o bairro do sacado começou a ser informado no campo destinado ao endereço. Orientamos tamanho e localização dos campos conforme abaixo:

Pos. 275 a 314 - Endereço do sacado (40 posições)

Pos. 315 a 326 - Bairro do sacado (12 posições)

Porem no código está assim:

padL(trim(Sacado.Logradouro) + ', ' + trim(Sacado.Numero) + ' '+ trim(Sacado.Bairro), 52)          + // Endereço do sacado

Ou seja mesmo que eu trate o Logradouro com 40 posições, no código do componente ele remove.

Pergunto já passaram por essa situação antes?

Obs: Foi o único erro detectado.

[Juliana Tamizou]

Bom dia.

Eu homologuei o BB CNAB 400, porém o meu endereço deve ter dado as 40 posições, caso queira corrigir, apenas cheque o manual CNAB400 do BB, se é isto mesmo.

Att.

[Antonio Marcelo]

Provisóriamente alterei assim:

                  padL( trim(Sacado.Logradouro)+', '+trim(Sacado.Numero), 40) +// Endereço do sacado

                  padL( trim(Sacado.Bairro), 12)                                           +// Bairro do sacado

Se estiver fazendo algo errado ou se alguém já resolveu isso sem ter que alterar os fontes com componente, favor informar.

Obrigado

[Antonio Marcelo]

Pessoal um email para a Equipe de Testes de Layout do Banco do Brasil referente a dúvida do poste anterior

Como foi observado na ultima remessa enviada:

Verificamos que o bairro do sacado começou a ser informado no campo destinado ao endereço. Orientamos tamanho e localização dos campos conforme abaixo:

Pos. 275 a 314 - Endereço do sacado (40 posições)

Pos. 315 a 326 - Bairro do sacado (12 posições)

Mas no Layout que está no site do banco(http://www.bb.com.br/docs/pub/emp/empl/ ... 41Pos7.pdf)

está assim:

42.7 275 a 311 X(037) Endereço do Sacado

43.7 312 a 326 X(015) Complemento do Registro: “Brancos”

Qual seria o Correto?

Assim que tiver a resposta posto aqui.

[Antonio Marcelo]

Pessoal a segundo resposta enviada pela Equipe de Testes de Layout Banco do Brasil o Layout disponível no site está errado.

Marcelo,

A disposição correta dos campos realmente é a informada em nossa última análise.

Esclarecemos que já foi solicitado à Diretoria Comercial a correção do layout disponibilizado no site.

Atenciosamente,

Equipe de Testes de Layout

Banco do Brasil

CSO BH-MG