Ao Efeturar uma Venda Parcelada no Sitef DLL está gerando erro de conversão de interiro.

[Pedro E. Braga]

Boa Tarde,

Ao efetuar uma venda parcelada está gerando erro de conversão de inteiro na linha "Parc.Vencimento := LeInformacao(140, I).AsDate;" isso pq no retorno não foi gerado o campo 140.

No método "TACBrInformacao.GetAsDate" ele faz uma StrToInt diretamente não validando se o campo está vazio.

Segue anexo Log gerado pelo ACBr.

 

CliSiTef.log

[EMBarbosa]

Em 10/06/2020 at 14:31, Pedro E. Braga disse:

Boa Tarde,

Ao efetuar uma venda parcelada está gerando erro de conversão de inteiro na linha "Parc.Vencimento := LeInformacao(140, I).AsDate;" isso pq no retorno não foi gerado o campo 140.

No método "TACBrInformacao.GetAsDate" ele faz uma StrToInt diretamente não validando se o campo está vazio.

Segue anexo Log gerado pelo ACBr.

 

CliSiTef.log 33 kB · 0 downloads

Bom dia Pedro,

   você já tem uma sugestão de correção? Em caso positivo, poderia nos enviar?

[Daniel Simoes]

@Pedro E. Braga, pelo que notei nos fontes... caso o retorno 140 não exista, o método:

LeInformacao(140, I).AsDate

não causaria um Exception, mas retornaria o valor 0.

e nas linhas abaixo repare que existe um workaround para esse caso...

        if Parc.Vencimento <= 0 then
          Parc.Vencimento := IncDay(fpDataHoraTransacaoHost, I * 30);  

Em todo caso, me parece ser uma falha da CliSiTef, não retornar o Vencimento em transações com Parcelamento... mas a correção definitiva, dependeria de ajustes do lado deles...

[Juliomar Marchetti]

Sei que eles tem uma solução de conciliação e que vendem as empresas, e houve problema com um cliente exatamente por isso. tinha no manual a informação. eu lia e estava zerado sempre mas dai eles vieram oferecer ao cliente essa solução logo após

[Edson Alves]

O que fazer nesse caso pra quem usa o SiTEF?