Erro Nfe Quantidade de casas da Nfe com 4 decimais

[crinfo]

Amigos, boa tarde!

O problema é que gera a 4ª casa com 0,0001. Esse 1 no final que gera problemas nos cálculos e o sefaz não autoriza da NFe.

Como resolver isso??

Como tirar esta casa 1 do final???

<NCM>72085400</NCM>

<CFOP>6925</CFOP>

<uCom>T</uCom>

<qCom>0.2901</qCom> Na base de dados está como 0.29, mas aqui ele insiste em colocar este 01 no final

<vUnCom>3440.0000000000</vUnCom>

<vProd>997.60</vProd>

<cEANTrib>SEM GTIN</cEANTrib>

<uTrib>T</uTrib>

<qTrib>0.2901</qTrib>  Na base de dados está como 0.29, mas aqui ele insiste em colocar este 01 no final

<vUnTrib>3440.0000000000</vUnTrib>

<indTot>1</indTot>

<xPed>0</xPed>

<nItemPed>0</nItemPed

 

Mesmo usando a Função abaixo:

 

Function FormatQuantidadeNota( dValor : Double ) : Double;
var xDisplayFormat : string;
    xCasasDec : Smallint;
begin
 case Sistema.Qtde_Casas_Nota of
  0:xDisplayFormat := '###########0.';
  1:xDisplayFormat := '###########0.0';
  2:xDisplayFormat := '###########0.00';
  3:xDisplayFormat := '###########0.000';
  4:xDisplayFormat := '###########0.0000';
  5:xDisplayFormat := '###########0.00000';
  6:xDisplayFormat := '###########0.000000';
 end;
  Result := StrToFloatDef(FormatFloatBr( dValor , System.Sysutils.format(xDisplayFormat, [Sistema.Qtde_Casas_Nota,0])),dValor);
end;

Result :=0,29

Mesmo assim ele insiste em Colocar no XML e na Report 0,2901

 

ExportaItens.txt

[BigWings]

Favor não duplicar tópicos.