quarta-feira, 9 de março de 2016

Correção para não imprimir linhas a mais nos itens da NFE do acbr

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:

 

(c)2009 Felipe Govoni.