NFSe - Problema com NFSe.Loadfromfile quando valor da NF tem valor maior que R$ 999,99

[Juliano Otaviano Barreto]

Saudações

@EMBarbosa

Dando continuidade a um tópico que abri em julho sobre a impressão de DANFSe com valores acima de R$ 999,99.

Estou utilizando Delphi 7 e o modelo do Relatório que estou utilizando é DANFSeFR.

O erro acontece no AcbrUtil.pas :

function StringToFloatDef(const NumString : String ; const DefaultValue : Double
   ) : Double ;
begin
  if EstaVazio(NumString) then
     Result := DefaultValue
  else
   begin
     try
        Result := StringToFloat( NumString ) ;
     except
        Result := DefaultValue ;
     end ;
   end;
end ;

Imaginemos que o valor total da NFS-e seja R$ 1035,00 o result gerado é 1,035,00.

Vou anexar o XML de uma nota fiscal para testar.

Desde já agradeço.

 

 

 

2019121-nfse.xml

[Juliano Otaviano Barreto]

Alguem?

[Juliomar Marchetti]

A princípio não houve mais problemas com outras pessoas.

mas isso ocorre com o exemplo do svn? qual gerador?

[Italo Giurizzato Junior]

Bom dia Juliano,

Acredito que o problema é o provedor que formata os valores no XML.

Abra esse XML que você anexou usando um navegador, vai notar que o valor da tag <ValorServicos> é 1.035,00 em vez de 1035,00

Notou a diferença?

Tem o ponto "." de milhar.

Se remover esse ponto tenho certeza que o erro não vai mais ocorrer.

Deve ser removido também o ponto de milhar das tags: BaseCalculo e ValorLiquidoNFSe.

[Juliano Otaviano Barreto]

Bom dia Italo e Juliomar,

Eu tentarei fazer uma rotina para isso, o tempo está muito corrido mas eu preciso atender a demanda da empresa.

Desde já agradeço.

Daqui alguns dias eu postarei o resultado.