Geracao Arquivo Registro R5

[Buffon]

boa tarde,

 

 

estou com problema na geracao do arquivo R5 ...

 

 

no arquivo esta saindo a quantidade = 0000000

 

porem estou passando a quanitdade 0,001        QTDE_DECIMAL = 3

 

vi que na funcao LFill  (WriteRegistroR05)  ocorre a linha

 

Result := LFill(Trunc(Value * intP), Size, Nulo, Caracter);

 

              entrando nesta funcao (F7)...o valor do value do parametro  (0,001 * 1000)  com o trunc esta zerado...

 

 

alguem sabe o pq?

 

obrigado

 

[Buffon]

fiz uns teste....   o problema pelo q vi eh no tipo da variavel   Extended ...

 

ela nao guarda o valor 1 em (0,001 * 1000)  deve guardar tipo ...  0,999999999999999..... entao no trunc zera....

 

se alterar o tipo para currency ou double funciona....

 

para ver esta dif pode ser feito  

var1 : extended

var2 : currency

 

e um showmessage   var1 - var2   ..

 

pra mim deu   

---------------------------
Project3
---------------------------
-2,08581863261371E-20
---------------------------
OK  
---------------------------
 

[EMBarbosa]