Manter total de tributos.

[Antonio Gomes]

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 ?

[Juliomar Marchetti]

Sugestões devem ser anexado ao tópico para serem avaliados