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