Venda de Item com valor 999999,99

[Davi]

Boa tarde, fiz atualização dos fontes agora estou tendo problema de diferença de 1 centavo ate mesmo no ecfteste, para simular processo mais simples abri o cupom 

vendi um item com quantidade 1 e valor unitário 999999,99 o mesmo registra no ecf como 999999,98 por causa da função trunkfix em versões anteriores 

o mesmo não ocorria.

[Daniel Simoes]

Qual é exatamente a mensagem de Erro ?

Qual é a a marca e modelo do ECF ?

Qual é o passo a passo para reproduzir o problema, no ECFTeste ?

Repare que o método TruncFix está coberta por nossas UnitTestes.... já rodou elas ?

procedure TruncFixTest.AsExpression;
begin
  CheckEquals( 156, TruncFix( 1.602 * 0.98 * 100) );
  CheckEquals( 64, TruncFix( 5 * 12.991) );
  CheckEquals( 49, TruncFix( 2.09 * 23.5) );
end;

procedure TruncFixTest.AsDouble;
var
  ADouble: Double;
begin
  ADouble := 1.602 * 0.98 * 100;
  CheckEquals( 156, TruncFix( ADouble ) );
  ADouble := 5 * 12.991;
  CheckEquals( 64, TruncFix( ADouble ) );
  ADouble := 2.09 * 23.5;
  CheckEquals( 49, TruncFix( ADouble ) );
end;

procedure TruncFixTest.AsExtended;
var
  AExtended: Extended;
begin
  AExtended := 1.602 * 0.98 * 100;
  CheckEquals( 156, TruncFix( AExtended ) );
  AExtended := 5 * 12.991;
  CheckEquals( 64, TruncFix( AExtended ) );
  AExtended := 2.09 * 23.5;
  CheckEquals( 49, TruncFix( AExtended ) );
end;

procedure TruncFixTest.AsCurrency;
var
  ACurr: Currency;
begin
  ACurr := 1.602 * 0.98 * 100;
  CheckEquals( 156, TruncFix( ACurr ) );
  ACurr := 5 * 12.991;
  CheckEquals( 64, TruncFix( ACurr ) );
  ACurr := 2.09 * 23.5;
  CheckEquals( 49, TruncFix( ACurr ) );
end;

procedure TruncFixTest.AsLargeExtended;
var
  AExtended: Extended;
begin
  AExtended := 116529560.3123 * 100;

  CheckEquals( 11652956031, TruncFix( AExtended ) );
end;     

 

[Davi]

15 horas atrás, Daniel Simoes disse:

Qual é exatamente a mensagem de Erro ?

Qual é a a marca e modelo do ECF ?

Qual é o passo a passo para reproduzir o problema, no ECFTeste ?

Repare que o método TruncFix está coberta por nossas UnitTestes.... já rodou elas ?

Estou usando Uma Bematech MP-4200 FI II ESCECF  V2.0.02  e uma daruma FS700!

Passos para reproduzir no ECF Teste:

Ativar
- + - + - + - + - + - + - + - + - + - + - + -
AbreCupom
- + - + - + - + - + - + - + - + - + - + - + -
Vende Item: Cod:111222333 DescTESTE DE PRODUTO Aliq:NN Qtd:1 Preço:999999,99 Desc:0 Un:UN Tipo:% Desc:D
- + - + - + - + - + - + - + - + - + - + - + -
Subtotaliza Cupom: 0
- + - + - + - + - + - + - + - + - + - + - + -
Efetua Pagamento: 1 Valor: 999999,99 Obs:  Vinc: N
- + - + - + - + - + - + - + - + - + - + - + -
Fecha Cupom: 
Componentes ACBr
http://acbr.sourceforge.net
- + - + - + - + - + - + - + - + - + - + - + -
 

Qual é exatamente a mensagem de Erro ?

Não esta necessariamente  informando uma mensagem de erro pois quando vendo Preço:999999,99 no ecf vende como Preço:999999,98 perde 1 centavo,

porem se mandar pagar Preço:999999,99 pelo tef ele diz que esta limitado ao saldo em aberto então não consigo finalizar sem alterar o TEF1.TEF.TrocoMaximo para aceitar um valor!

[Daniel Simoes]

Enviei uma possível correção para o SVN...

Citar

-- ACBrECFEscECF --
[-] Correção em  "TACBrECFEscECFComando.AddParamDouble", para evitar
    arredondamento indevidos em valores altos...

 

[Davi]

9 minutos atrás, Daniel Simoes disse:

Enviei uma possível correção para o SVN...

 

Opa era isso mesmo ja fiz o teste estão ok...   Muito obrigado.