Erro na conversão em OnInfoECF

[Denken.Von.Code]

Ocorreu a seguinte mesagem de erro:

Erro na conversão do Valor Retornado em: OnInfoECF(ineSubTotal,SaldoAPagar).

O erro ocorria sempre que que havia um saldo a pagar de -2,pois no cupom foi lançado os seguintes valores:

Produto com valor 2.99

Finalizadora em dinheiro com valor de 5,00

A partir dai ocorre o erro especificado. Olhando o fontes do TEF verifiquei que esse erro era provocado sempre que o saldo a pagar fosse igual ao valor -2, o que é o caso.Para resolver o problema do cliente marquei como comentario essa verificação e não ocorreu mais o erro.

Mas ficou a dúvida, porque essa verificação, e se há necessidade dessa verificação, como deveria fazer o procedimento corretamente.

[rodrigorodrigues]

hehehe..vim aqui no forum dizer isso, aconteceu exatamente comigo.

A função é

function TACBrTEFD.SubTotalECF : Double;

var

SaldoAPagar : Double ;

SubTotal : String ;

begin

try

SubTotal := '' ;

OnInfoECF( ineSubTotal, SubTotal ) ;

except

on E : Exception do

raise EACBrTEFDECF.Create(E.Message);

end;

SaldoAPagar := StringToFloatDef( SubTotal, -2);

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

if SaldoAPagar = -2 then

raise Exception.Create( ACBrStr( 'Erro na conversão do Valor Retornado '+

'em: OnInfoECF( ineSubTotal, SaldoAPagar )' ) );

Result := SaldoAPagar;

end;

Na minha visão essa é apenas a rotina para validar se o valor da variável SubTotal é um valor numérico, portanto, eu coloquei um valor que jamais pode ser um troco, por exemplo, -98787158

e logo abaixo eu coloquei

if SaldoAPagar = -98787158 then

raise Exception.Create( ACBrStr( 'Erro na conversão do Valor Retornado '+

'em: OnInfoECF( ineSubTotal, SaldoAPagar )' ) );

[Daniel Simoes]

Humm.... Que coisa... um bug induzido nos fontes

realmente o problema ocorrerá sempre que o valor for -2... Vou aplicar a correção proposta pelo Rodrigo