Erro ao processar retorno Caixa

[maxdatasistema]

Boa tarde.

Ao processar o retorno da Caixa recebo a mensagem:

Agencia: 3314 \ Conta: 900019 do arquivo não correspondem aos dados do Cedente!

Verificando o arquivo "ACBrBancoCaixa.pas" foi verificado fpTamanhoAgencia := 5;

Ao processar o retorno o componente formata o número da agência para 03314, porém ao ler o retorno o valor capturado é 3314.

 

Feita a alteração abaixo no arquivo "ACBrBoleto.pas" resolveu o problema:

 

Método: TACBrBancoClass.ValidarDadosRetorno

Antes:

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

Depois:

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

 

Por favor verificar se é possível incorporar a alteração aos fontes do componente.

 

ACBrBoleto.pas

[José M. S. Junior]

Boa tarde, vamos verificar para atualização. Obrigado!

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[EMBarbosa]

 

Em 28/09/2018 at 14:49, maxdatasistema disse:

Por favor verificar se é possível incorporar a alteração aos fontes do componente.

  

ACBrBoleto.pas

Enviei sua sugestão na revisão 15773.

Queira por favor testar e reportar qualquer problema.