Retorno CNAB 400 Banco SAFRA

DouglasGV · 5 Março, 2020

Olá pessoal!

Tudo certo?

Estou com a seguinte situação:

Banco Safra - Retorno CNAB 400, problema na procedure: ValidarDadosRetorno.

No create do TACBrBancoSafra ele define a variável ftTamanhoAgencia como 5;

Aí eu alimento ACBrBoleto1.Cedente.Agencia := '0600'; mas como tá definido como 5 o TamanhoAgencia ele joga como: '00600';

rAgencia := trim(Copy(ARetorno[1], 18, 4)); ///////// Aqui fica correto 0600 4 posições

Cai nesta validação, devido o cedente.Agencia que ficou como 00600 é diferente da rAgencia lida no arquivo que é 0600.

if not AValidaCodCedente then
begin
if (not LeCedenteRetorno) and
((AAgencia <> OnlyNumber(Cedente.Agencia)) or
(AContaCedente <> RightStr(OnlyNumber( Cedente.Conta ),Length(AContaCedente)))
) then
raise Exception.CreateFmt(ACBrStr('Agencia: %s \ Conta: %s do arquivo não correspondem aos dados do Cedente!')
,[AAgencia,AContaCedente]);
end

Para resolver eu apenas mudei para copiar 5 posições, como indicado no create.

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