Retorno Banco Safra CNAB400

[falcon2000]

 

Estamos implementando o envio/retorno de cobrança pelo Banco Safra no formato CNAB400 e notamos que o seguinte trecho do programa ACBrBancoSafra.pas

Procedure: procedure TACBrBancoSafra.LerRetorno400(ARetorno: TStringList);

...

  with Titulo do
    begin
      SeuNumero      := Copy(Linha,38,62);

...

Está em desacordo com o manual do banco (creio ter havido uma confusão entre o tamanho do campo com a posição final do campo)

...

 with Titulo do
    begin
      SeuNumero      := Copy(Linha,38,25);

...

Alterando para esta forma o resultado foi capturado corretamente

Se acharem que esta é a solução, segue anexo o programa alterado e o manual que segui e creio ser o último por ter sido enviado há poucos dias pelo pessoal do banco para o processo de homologação.

Grato,

Marcos Dias.

 

Layout de Arquivos - Cobranca CNAB 400.pdf ACBrBancoSafra.pas

[Juliana Tamizou]

Boa tarde.

Recentemente foram enviadas ao svn diversas alterações relativas a este banco, seus fontes estavam atualizados antes do seu ajuste?

Att.

[falcon2000]

Boa tarde Juliana,

Sim fiz o update e alterei o programa

[Juliana Tamizou]

Bom dia.

Contribuição adicionada para validação.

Att.