Erro Cadastro de aliquota ECF Epson TM-T900F

[douglas_k]

Bom dia Pessoal,

   Fui cadastrar uma nova alíquota de valor 5,60 na ECF Epson TM-T900F. Após executar o comando, sempre era cadastrada a alíquota de 5,59.

   Debugando encontrei a seguinte linha na unit ACBrECFEscECF procedure TACBrECFEscECF.ProgramaAliquota, EscECFComando.AddParamString( IntToStrZero( Trunc(Aliquota*100), 4 ) );

   Após executar essa linha a alíquota que vinha com o valor 5,60 se transformava em 0559. Se eu alterar a function Trunc pela TrunFix do AcbrUtil, faz corretamente.

   Não sei qual a melhor solução para essa questão, ou se estou fazendo algo errado, a principio fiz essa alteração...

 

Até mais.

[Daniel Simoes]

Sua sugestão parece correta..

 O Trunc tem um Historico de problemas em algumas versões do Delphi...

Pode por favor anexar as Units modificadas ?

[douglas_k]

Agora, Daniel Simoes disse:

Sua sugestão parece correta..

 O Trunc tem um Historico de problemas em algumas versões do Delphi...

Pode por favor anexar as Units modificadas ?

uhum, esta em anexo.

Obrigado.

ACBrECFEscECF.pas

[Daniel Simoes]

Muito Obrigado... já no SVN... rev: 16983