Vtottrib Erro Impressão Nfe

[robertocamargo]

Bom dia
 
Estou usando o Fast Report.
 
A partir do momento que setei para mostrar a o vTotTrib por item começou dar erro Is not a valid floating point value.
 
Já tentei fazer o que o Regis disse de colocar :
 
DecimalSeparator  := ',';
ThousandSeparator := '.';
 
Já tentei colocar outros tipos de conversão de floating e sempre da o mesmo erro.
 
Engraçado que o erro só aparece no item abaixo
 

-----------------------------------------------------------
with Imposto do
          begin
            // lei da transparencia nos impostos
            vTotTrib := ZQuery_produtos.FieldByName('imposto').AsFloat;
----------------------------------------------------------
 
Neste do IMCS total (abaixo) não da erro algum e aparece normalmente na nota

 

 --------------------------------------------------------------
Nfe.Total.ICMSTot.vTotTrib := ZQuery_produtos.FieldByName('imposto').AsFloat;
 --------------------------------------------------------------

 

Estou usando Fast Report e o arquivo DANFeRetrato.fr3
 
Alguem ja passou por isso e conseguiu resolver?
 
Obrigado

[robertocamargo]

Ninguem passou por isso? ???

[Juliomar Marchetti]

Boa tarde!

veja que postou hoje então ou o pessoal não leu ou é muito recente!

aguarde pois não passou nem 4 horas que fez o post!

 

pare a execução onde pode ocorrer o erro e execute com o F7 até chegar no momento da exceção!

[Tiago Ravache]

Amigo "Is not a valid floating point value": não é um ponto flutuante válido, verifique tuas variáveis.

[robertocamargo]

Juliomar, cheguei até o ponto do erro.

 

ACBrNFeDANFEFRDM

 

Eu estou passando VOutro e VDesc como 0, porem quando cai aqui:

 

if FieldByName('vTotTrib').AsFloat <> 0 then

          begin

            wInfAdProd := wInfAdProd+#13+'Val Aprox Tributos: '+ FloatToStrF(FieldByName('vTotTrib').AsFloat,ffCurrency,15,2);

            wInfAdProd := wInfAdProd+' ('+FloatToStrF(((DFeUtil.StringToFloatDef(FieldByName('vTotTrib').AsString,0)*100)/(DFeUtil.StringToFloatDef(FieldByName('VProd').AsString,0) +

            DFeUtil.StringToFloatDef(FieldByName('VOutro').AsString,0) -

            DFeUtil.StringToFloatDef(FieldByName('VDesc').AsString,0)) ),ffNumber,15,2)+'%)';

          end;

 

Voutro e Vdesc vem vazio, por isso que está dando o erro do floating point value.

 

Pergunta: Se eu não tenho desconto nem outro valor como devo passar esses valores para não chegar como vazio?

 

Lembrando que isso apenas acontece quando seto para o fastreport imprimir o imposto por item.

 

 

 

 

 

 

 

[Juliomar Marchetti]

boa noite

mas veja que mesmo ele vindo vazio ou sem nada ele trata para vir zero com o Stringtofloatdef

então a exceção só ocorre em debug já se rodar por fora do delphi não irá ocorrer!

[robertocamargo]

Juliomar bom dia.

 

Exato, você está certo.

 

A Falha só ocorre em debug.

 

Resolvido minha questão.

 

Obrigado.