Corrigir a função LerRetorno do ACBrBoletoRet_Cresol.pas (WS)

[Marcelo Grando]

Arquivo: ACBrBoletoRet_Cresol.pas
Local do arquivo: \ACBr_II\trunk2\Fontes\ACBrBoleto\WS
 

Correções na função LerRetorno do ACBrBoletoRet_Cresol.pas (WS)

linha 92
function TRetornoEnvio_Cresol.LerRetorno(const ARetornoWS: TACBrBoletoRetornoWS): Boolean;
...

linha 109
if Pos('[', RetWS) > 0 then //estava executando esse comando tendo o '[' em qualquer lugar do "RetWS";
alterado para
if Pos('[', RetWS) = 1 then //executa o comando somente se o primeiro carácter do "RetWS" for '[';

 

 

linha 168 e 199
ARetornoWS.DadosRet.TituloRet.Vencimento      := DateCresolToDateTime(LJsonObject.AsString['dtvencimento']); // não encontra o dtvencimento
corrigido
ARetornoWS.DadosRet.TituloRet.Vencimento      := DateCresolToDateTime(LJsonObject.AsString['dtVencimento']); // o "V" tem que ser maiúsculo;

ACBrBoletoRet_Cresol.pas

[Juliomar Marchetti]

o problema é que se tu registrar o boleto ele retorna diferente

também havia feito só isso mas é um pouco mais embaixo a mudança a ser feita

[Daniel InfoCotidiano]

Obrigado pela contribuição.
Notei que o @Juliomar Marchetti citou que quando registra boleto ele retorna de forma diferente, foi testado o registro tbm ?
Pode anexar os logs de consultaDetalhe e Registro em modo paranóico para que possamos analisar.

Criado a TK-6821 para análise;
 

[Marcelo Grando]

Eu fiz essas alterações e apliquei no meu sistema e a princípio esta registrando e consultando o boleto normalmente.

INCLUI_CONSULTA_BAIXA.rar

Editado 27 Março, 2025 por Marcelo Grando

[Juliomar Marchetti]

Em 27/03/2025 at 09:07, Marcelo Grando disse:

Arquivo: ACBrBoletoRet_Cresol.pas
Local do arquivo: \ACBr_II\trunk2\Fontes\ACBrBoleto\WS
 

Correções na função LerRetorno do ACBrBoletoRet_Cresol.pas (WS)

linha 92
function TRetornoEnvio_Cresol.LerRetorno(const ARetornoWS: TACBrBoletoRetornoWS): Boolean;
...

linha 109
if Pos('[', RetWS) > 0 then //estava executando esse comando tendo o '[' em qualquer lugar do "RetWS";
alterado para
if Pos('[', RetWS) = 1 then //executa o comando somente se o primeiro carácter do "RetWS" for '[';

 

 

linha 168 e 199
ARetornoWS.DadosRet.TituloRet.Vencimento      := DateCresolToDateTime(LJsonObject.AsString['dtvencimento']); // não encontra o dtvencimento
corrigido
ARetornoWS.DadosRet.TituloRet.Vencimento      := DateCresolToDateTime(LJsonObject.AsString['dtVencimento']); // o "V" tem que ser maiúsculo;

ACBrBoletoRet_Cresol.pas 16.15 kB · 2 downloads

Atualiza o SVN e efetue testes de registro, baixa, cancelamento

e também consultas no Cresol

[Cleonir]

Bom dia.

Na atualização de hoje ocorreu o erro a seguir.

Acho que é referente a este ajuste.

[Marcelo Grando]

7 horas atrás, Juliomar Marchetti disse:

Atualiza o SVN e efetue testes de registro, baixa, cancelamento

e também consultas no Cresol

Tem que corrigir essas linhas também:

 

linha 168, 199, 315 e 346
ARetornoWS.DadosRet.TituloRet.Vencimento      := DateCresolToDateTime(LJsonObject.AsString['dtvencimento']); // não encontra o dtvencimento
corrigido
ARetornoWS.DadosRet.TituloRet.Vencimento      := DateCresolToDateTime(LJsonObject.AsString['dtVencimento']); // o "V" tem que ser maiúsculo;

Editado 7 Abril, 2025 por Marcelo Grando

[Juliomar Marchetti]

1 hora atrás, Marcelo Grando disse:

Tem que corrigir essas linhas também:

 

linha 168, 199, 315 e 346
ARetornoWS.DadosRet.TituloRet.Vencimento      := DateCresolToDateTime(LJsonObject.AsString['dtvencimento']); // não encontra o dtvencimento
corrigido
ARetornoWS.DadosRet.TituloRet.Vencimento      := DateCresolToDateTime(LJsonObject.AsString['dtVencimento']); // o "V" tem que ser maiúsculo;

No svn.
estramente no lazarus ele pegou. naõ tinha visto no delphi