CRT de valor 0,35 no Delphi não está passando nem no DEMO

[EMBarbosa]

Pelo que me parece isso só acontece na versão do Delphi, e não se você compilar ele em Lazarus.

Passos para reproduzir:

Iniciar o DEMO do ACBrTEFD
Configurar o ECF (no meu caso Emulador 2100 da Bematech)
Inicializar ECF
Deixar Múltiplos cartões desabilitado
Inicializar Gerenciador Padrão (se ainda não foi feito)
Abrir cupom e vender um item de 0,35
Chamar CRT de 0,35

Retorno:

Multiplos Cartões não habilitado.

Valor da Operação TEF deve ser igual ao Saldo a Pagar

O erro acontece na função TACBrTEFDClass.VerificarTransacaoPagamento. Na seguinte verificação (linha 2363 do arquivoTACBrTEFDClass.pas):

    if (not MultiplosCartoes) and (Valor 
       raise Exception.Create(

              ACBrStr( 'Multiplos Cartões não habilitado.' + sLineBreak +

                       'Valor da Operação TEF deve ser igual ao Saldo a Pagar' ) );

[/code]


 O motivo é que o valor de SaldoAPagar vem de SubTotalECF que é do tipo [i]Extended[/i], mas SaldoAPagar é [i]Double[/i]. Por isso o valor que fica armazenado em SaldoAPagar é realmente diferente de Valor.


 A solução pra esse tipo de comparação é usar a função CompareValue da unit Math. Mas ela não parece retornar o valor correto no Lazarus. Então a solução mais rápida foi adicionar um [b]RoundTo(SaldoAPagar,-2)[/b] antes de comparar as duas variáveis.


 Gostaria que alguém pudesse confirmar o erro e se isso não afeta o funcionamento no lazarus. Em anexo a unit alterada.
ACBrTEFDClass.pas

[EMBarbosa]

Talvez a melhor solução seja usar a rotina CompareValue especificando o delta.

    if (not MultiplosCartoes) and (CompareValue(Valor, SaldoAPagar, 0.01) = LessThanValue) then

       raise Exception.Create(

              ACBrStr( 'Multiplos Cartões não habilitado.' + sLineBreak +

                       'Valor da Operação TEF deve ser igual ao Saldo a Pagar' ) );[/code]

[Daniel Simoes]

Elton,

Acho que o RoundTo deve resolver a parada...

O que achei estranho... é que a Funçao "SubTotalECF" também é do tipo Double

function TACBrTEFD.SubTotalECF : Double;

Assim como o parâmetro de Entrada "Valor" que tb é Double Talvez seja isso... No final da Função ACBrTEFD.SubTotalECF existe um SimpleRoundTo

   SaldoAPagar := SimpleRoundTo( SaldoAPagar, -2);     // por Rodrigo Baltazar

Se mudar para RoundTo não resolve ?

[EMBarbosa]

Também achei isso muito estranho pois no Delphi dá erro mas no Lazarus não deu nos meus testes aqui...

Daí criei um aplicativo tentando reproduzir a mesma coisa por fora da unit ACBrTEFDClass.pas, mas também não consegui.

Vou testar a sua sugestão agora...

[EMBarbosa]

Olá Daniel,

Resolve sim. Mudar de SimpleRoundTo para RoundTo resolveu o problema.

EDIT:Quer que eu suba a alteração?

[Daniel Simoes]

Sim.. por favor...

[EMBarbosa]

Feito. Revisão 3271