Pesquisar na Comunidade

variavel: ExibirTotalTributosItem atribuição com a função: FieldByName('vTotTrib').AsString := ManterdvTotTrib( Imposto.vTotTrib ); Função: Function TACBrNFeFRClass.ManterdvTotTrib( dvTotTrib : Double ) : String; Var dValor : Double; begin if ExibirTotalTributosItem then dValor := dvTotTrib else dValor := 0; Result := FormatFloatBr( dValor,'###,###,##0.00'); end; depois foi feito isso, para achar o percentual (e tinha o valor do imposto aproximado pelo item, bastaria ter dividido o acumulado da do imposto aproximado da nota pelo imposto do item.;...) 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; Gostaria de saber do mantenedor, se isso pode ser alterado, dado que está zerando o valor que vai para dentro do dataset de impressão. Não sei qual ideia disso, de zerar um valor gerado pela emissão do DF-e... Porque alguem não imprimiria isso, se foi gerado ?