Erro Remessa Boleto Banco Amazônia

[leandroksc]

Amigos, estou com problema paga homologar a remessa para o Banco Amazônia. Segue a resposta do banco em relação ao arquivo de remessa de teste enviado:

Encontrado erro no registro da Linha [12]; Campo: [C070]; Posição: [24,29]; Valor: [000000]; Motivo: Código Ocorrência [ 03 = [ArquivoForaDePadrao] - Quantidade de titulos em cobrança simples inválida , 000000 diferente de 000003 ]
Encontrado erro no registro da Linha [12]; Campo: [C071]; Posição: [30,46]; Valor: [00000000000000000]; Motivo: Código Ocorrência [ 03 = [ArquivoForaDePadrao] - Valor total divergente do apresentado no arquivo, 00000000000000000 diferente de 00000000000001500 ]
Encontrado erro no registro da Linha [13]; Campo: [G056]; Posição: [24,29]; Valor: [000007]; Motivo: Código Ocorrência [ 03 = [ArquivoForaDePadrao] - Total de Segmentos no Arquivo Inválido, 000007 diferente de 000013 ]

Todos os erros são referentes ao Trailler da remessa layout 240.

No código, vi que os dois primeiros erros estão ocorrendo pois está sendo preenchido com zeros, não sendo feito a contagem exigida pelo campo.

Result := IntToStrZero(ACBrBanco.Numero, 3) +                                  // 1 a 3 - Código do banco
          '0001' +                                                                  // 4 a 7 - Número do lote
          '5' +                                                                     // 8 - Tipo do registro: Registro trailer do lote
          Space(9) +                                                                // 9 a 17 - Uso exclusivo FEBRABAN/CNAB
          IntToStrZero((3 * (ARemessa.Count - 3)), 6) +                             // 18 a 23 - Quantidade de Registro da Remessa
 {-->}    PadRight('', 6, '0') +                                                    // 24 a 29 - Quantidade títulos em cobrança
 {-->}    PadRight('', 17, '0') +                                                   // 30 a 46 - Valor dos títulos em carteiras}
          PadRight('', 6, '0') +                                                    // 47 a 52 - Quantidade títulos em cobrança
          PadRight('', 17, '0') +                                                   // 53 a 69 - Valor dos títulos em carteiras}
          PadRight('', 6, '0') +                                                    // 70 a 75 - Quantidade títulos em cobrança
          PadRight('', 17, '0') +                                                   // 76 a 92 - Valor dos títulos em carteiras}
          PadRight('', 6, '0') +                                                    // 93 a 98 - Quantidade títulos em cobrança
          PadRight('', 17, '0') +                                                   // 99 a 115 - Valor dos títulos em carteiras}
          Space(8) +                                                                // 116 a 123 - Uso exclusivo FEBRABAN/CNAB}
          PadRight('', 117, ' ');                                                   // 124 a 240 - Uso exclusivo FEBRABAN/CNAB}

O estranho é que vi esta mesma implementação para o Banco do Brasil e aparentemente lá ninguém reclamou sobre estes campos! Será uma exigência apenas deste banco Amazônia?

Já o terceiro erro está nesta linha, o qual faz este cálculo para extrair a quantidade de registros e não sei se está correto.

Result := Result + #13#10 + IntToStrZero(ACBrBanco.Numero, 3) +                // 1 a 3 - Código do banco
          '9999' +                                                                  // 4 a 7 - Lote de serviço
          '9' +                                                                     // 8 - Tipo do registro: Registro trailer do arquivo
          Space(9) +                                                                // 9 a 17 - Uso exclusivo FEBRABAN/CNAB}
          '000001' +                                                                // 18 a 23 - Quantidade de lotes do arquivo}
 {-->}    IntToStrZero(((ARemessa.Count - 3) * 3) + 4, 6) +                         // 24 a 29 - Quantidade de registros do arquivo, inclusive este registro que está sendo criado agora}
          aFEBRABAN +                                                               // 30 a 35 - Uso exclusivo FEBRABAN/CNAB}
          Space(205);                                                               // 36 a 240 - Uso exclusivo FEBRABAN/CNAB}

 

Desde já agradeço!!!

[Juliana Tamizou]

Boa tarde.

Mas a implementação bate com o manual?

Att.