Retorno 400 do Banco Safra 422

[econdotta]

Olá a todos, verifiquei que o fonte ACBRBancoSafra.pas na linha 1166 estava com o seguinte código:
      SeuNumero      := Copy(Linha,38,62);
Enquanto que o correto seria:
      SeuNumero      := Copy(Linha,38,25);             
Visto que Copy(Linha,38,62);  <- Observar que a posição 38 + 62 vai invadir a posição do NossoNumero que começa na 63
Segue em anexo o fonte que modifiquei e o Manual do Safra para 400 posições.

Se puderem implementar no SVN ou me informar qual a forma correta de acessar este dado agradeço.

ACBrBancoSafra.pas Banco Safra 422 .pdf Safra.pdf

Editado 7 Agosto, 2020 por econdotta

[Juliomar Marchetti]

acho que a @Juliana Tamizou ou o @José M. S. Junior pode dizer mais sobre

[Juliana Tamizou]

Boa tarde.

Já foi adicionado para verificação, retornaremos assim que possível.

Att.

[José M. S. Junior]

Ajuste disponível no SVN. Favor atualizar os fontes!

[Daniel Sonda]

@econdotta por acaso você teve problemas na validação da Agência e Conta no retorno com layout CNAB 400?

Estou recebendo o erro "Agencia: 14800 \ Conta: 00001843 do arquivo não correspondem aos dados do Cedente!".

Na leitura do retorno 400, a agência é extraída assim:

  rAgencia       := trim(Copy(ARetorno[1], 18, 5));
  rDigitoAgencia := trim(Copy(ARetorno[1], 22, 1));

No arquivo, da posição 18 em diante tem "14800", onde 1480 é a agência e 0 é DV. Então, o correto seria:

  rAgencia       := trim(Copy(ARetorno[1], 18, 4));
  rDigitoAgencia := trim(Copy(ARetorno[1], 22, 1));

[econdotta]

3 horas atrás, Daniel Sonda disse:

@econdotta por acaso você teve problemas na validação da Agência e Conta no retorno com layout CNAB 400?

Estou recebendo o erro "Agencia: 14800 \ Conta: 00001843 do arquivo não correspondem aos dados do Cedente!".

Na leitura do retorno 400, a agência é extraída assim:

  rAgencia       := trim(Copy(ARetorno[1], 18, 5));
  rDigitoAgencia := trim(Copy(ARetorno[1], 22, 1));

No arquivo, da posição 18 em diante tem "14800", onde 1480 é a agência e 0 é DV. Então, o correto seria:

  rAgencia       := trim(Copy(ARetorno[1], 18, 4));
  rDigitoAgencia := trim(Copy(ARetorno[1], 22, 1));

Olá Daniel, no caso eu cadastrei no sistema a Agencia + DV e repeti o DV no campo Digito da Agencia. Veja a imagem abaixo.