Trata retorno CRESOL

[M & M INFORMATICA LTDA]

Ao ler retorno CRESOL 240, quando a conta está cadastrada como CPF, no arquivo o CPF vem errado, e acontece erro ao tratar.

Adicionei um try na linha onde carrega o CPF para resolver, se possível adicionar ao SVN.

Arquivo ACBr\Fontes\ACBrBoleto\ACBrBancoCresol.pas

 

with ACBrBanco.ACBrBoleto do
  begin
     if LeCedenteRetorno then
     begin
       ACodBeneficiario:= trim(DefineCodBeneficiarioHeader);
       Cedente.Nome     := rCedente;
       try
          Cedente.CNPJCPF  := rCNPJCPF;
       except
          // Retorno quando é CPF está vindo errado por isso ignora erro na atribuição
       end;
       Cedente.Convenio := rConvenioCedente;
       Cedente.Agencia       := trim(copy(ARetorno[0], 53, 5));
       Cedente.AgenciaDigito := trim(copy(ARetorno[0], 58, 1));
       if (ACodBeneficiario <> '') then
         Cedente.CodigoCedente := trim(copy(ARetorno[0], 59, 14))
       else
       begin
         Cedente.Conta         := trim(copy(ARetorno[0], 59, 12));
         Cedente.ContaDigito   := trim(copy(ARetorno[0], 71, 1));
       end;

       if (StrToIntDef(copy(ARetorno[0], 18, 1), 0) = 1) then
         Cedente.TipoInscricao := pFisica
       else
         Cedente.TipoInscricao := pJuridica;

     end;

     ACBrBanco.ACBrBoleto.ListadeBoletos.Clear;
  end;

 

[walfrido]

Mesmo fazendo a alteração mencionada o erro continua.
Ocorre na linha 112: ValidarDadosRetorno('', '', rCNPJCPF);

[M & M INFORMATICA LTDA]

Você deve estar carregando os dados do cedente antes de ler o arquivo, no arquivo o CPF está vindo cortado por isso fala que não é igual, no caso é só não carregar o CPF do cedente antes de ler o arquivo.

[walfrido]

Fiz o teste e mão é isso não, o erro acontece na leitura do CPF/CNPJ no arquivo de retorno de retorno.

[walfrido]

15 minutos atrás, walfrido disse:

Fiz o teste e mão é isso não, o erro acontece na leitura do CPF/CNPJ no arquivo de retorno de retorno.

correção: Fiz o teste e não é isso não, o erro acontece na leitura do CPF/CNPJ no arquivo de retorno.

[walfrido]

Por gentileza verificar antes, a unit Cresol, ACBrBancoCresol.pas (corrigido e testado)

Aproveito também para compartilhar um ajuste no layout do ACBrBoletoFortesFr (QRCode Pix)

ACBrBancoCresol.pas ACBrBoletoFCFortesFr.dfm ACBrBoletoFCFortesFr.pas

[walfrido]

Pessoal, esses dois ajustes já estão em produção, favor colocar como resolvido e se possível atualizar o ACBrBoletoFortesFr