Retorno CNAB 400 Banco SAFRA

[DouglasGV]

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)); /

 

 

Qualquer dúvida a disposição! 

Agradeço desde já!

Editado 5 Março, 2020 por DouglasGV

[José M. S. Junior]

Bom dia

Vamos verificar, obrigado!