acbrnfedanfefrdm linha 2160
Function TACBrNFeFRClass.ManterValAprox( inItem : Integer ): String;
begin
Result := '';
with FNFe.Det.Items[inItem] do
begin
if (Imposto.vTotTrib <> 0) and (ExibirTotalTributosItem) then
begin
Result := '';
with Imposto do
begin
Result := Result+'Val Aprox Tributos: '+ FloatToStrF(Imposto.vTotTrib,ffCurrency,15,2);
if TributosPercentual = ptValorNF then
Result := Result+' ('+FloatToStrF(((StringToFloatDef(FloatToStr(Imposto.vTotTrib),0)*100)/(StringToFloatDef(FloatToStr(Prod.VProd),0) +
StringToFloatDef(FloatToStr(Prod.vFrete),0) +
StringToFloatDef(FloatToStr(Prod.vOutro),0) +
StringToFloatDef(FloatToStr(Prod.vSeg),0) +
StringToFloatDef(FloatToStr(IPI.vIPI), 0) +
StringToFloatDef(FloatToStr(ICMS.vICMSST), 0))),ffNumber,15,2)+'%)'
else
Result := Result+' ('+FloatToStrF(((StringToFloatDef(FloatToStr(Imposto.vTotTrib),0)*100)/(StringToFloatDef(FloatToStr(Prod.VProd),0))),ffNumber,15,2)+'%)';
end;
end;
end;
end;
0 comentários:
Postar um comentário