Impressão da Alíquota dos tributos da Danfe no Fortes

[JrClemente]

Boa tarde, estou com problemas na impressão das alíquotas dos tributos no Fortes Report (DANFE).

Está saindo junto com a descrição dos produtos sem espaço.

 

Att

Junior Clemente

 

[Juliana Tamizou]

Boa tarde.

Você chegou a fazer algum ajuste para solucionar? Se sim, anexe os fontes alterados aqui.

Att.

[JrClemente]

Boa tarde, não consegui resolver ainda !!!
Se alguém conseguir resolver essa questão, poderia também inserir uma propriedade no componente no para informar a tabela/referencia para referenciar na impressão.
Valor Aprox dos Tributos R$ 5,41 (30,74%) - Fonte IBPT

 

Att

[JrClemente]

Juliana, não sei se é a forma correta, mas resolveu o problema.

Fiz as seguintes alterações.

 

function TACBrNFeDANFEClass.ManterValAprox(aNFE: TNFe; inItem: Integer): String;
var
  TotalProduto: currency;
  sQuebraLinha: String;
begin
  Result := '';
  if (inItem < 0) or (inItem >= aNFE.Det.Count) then
    Exit;

  with aNFE.Det.Items[inItem] do
  begin
    if ExibeTotalTributosItem and NaoEstaZerado(Imposto.vTotTrib) then
    begin
      with Imposto do
      begin
        sQuebraLinha:=SeparadorDetalhamentos;
        Result := sQuebraLinha+'Val Aprox Tributos: ' + FormatFloatBr(Imposto.vTotTrib);
        if (FTributosPercentual = ptValorNF) then
        begin
          TotalProduto := Prod.VProd + Prod.vFrete + Prod.vOutro + Prod.vSeg + IPI.vIPI + ICMS.vICMSST;
          if NaoEstaZerado(TotalProduto) then
            Result := Result + ' (' + FormatFloatBr((Imposto.vTotTrib * 100) / TotalProduto) + '%)';
        end
        else
            Result := Result + ' (' + FormatFloatBr((Imposto.vTotTrib * 100) / Prod.VProd) + '%)';
      end;
      Result := Result +' FONTE: '+FonteTributos;
    end;
  end;
end;
 

 

Att

 

[Juliana Tamizou]

Bom dia,

Obrigada pela análise, adicionada para validação.

Att.

[hleorj]

@JrClemente , minha sugestão 

De ( sem espaço )

        Result := 'Val Aprox Tributos: ' + FormatFloatBr(Imposto.vTotTrib);

Para : ( 1 espaço  )

        Result := ' Val Aprox Tributos: ' + FormatFloatBr(Imposto.vTotTrib);

Está informação esta se repetindo em várias linha :

 Result := Result +' FONTE: '+FonteTributos;

remova e inclua em informações complementares :

Exemplo

FONTE DA(S) TAXA(S) IBPT 2019 

Ps :

• Nova(s)  propriedade(s) está( ão ) sofrendo severa analise para implementação (  FonteTributos  )

 

[EMBarbosa]

Em 13/05/2019 at 16:31, JrClemente disse:

Juliana, não sei se é a forma correta, mas resolveu o problema.

Fiz as seguintes alterações.

 

function TACBrNFeDANFEClass.ManterValAprox(aNFE: TNFe; inItem: Integer): String;
var
  TotalProduto: currency;
  sQuebraLinha: String;
begin
  Result := '';
  if (inItem < 0) or (inItem >= aNFE.Det.Count) then
    Exit;

  with aNFE.Det.Items[inItem] do
  begin
    if ExibeTotalTributosItem and NaoEstaZerado(Imposto.vTotTrib) then
    begin
      with Imposto do
      begin
        sQuebraLinha:=SeparadorDetalhamentos;
        Result := sQuebraLinha+'Val Aprox Tributos: ' + FormatFloatBr(Imposto.vTotTrib);
        if (FTributosPercentual = ptValorNF) then
        begin
          TotalProduto := Prod.VProd + Prod.vFrete + Prod.vOutro + Prod.vSeg + IPI.vIPI + ICMS.vICMSST;
          if NaoEstaZerado(TotalProduto) then
            Result := Result + ' (' + FormatFloatBr((Imposto.vTotTrib * 100) / TotalProduto) + '%)';
        end
        else
            Result := Result + ' (' + FormatFloatBr((Imposto.vTotTrib * 100) / Prod.VProd) + '%)';
      end;
      Result := Result +' FONTE: '+FonteTributos;
    end;
  end;
end;
 

 

Att

 

Muito obrigado pela sugestão. Fiz uma implementação baseada nela.

Subi as alterações para o SVN na Revisão  17110.
Pelo que vi está tudo certo.
Favor testar e reportar qualquer problema.