Jump to content

2 Dia do ACBr

Ingressos esgotados! Agradecemos a todos os inscritos.
Site do Evento

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

JrClemente

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

Recommended Posts

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

 

Sem título123.png

Share this post


Link to post
Share on other sites

Boa tarde.

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

Att.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

 

Sem título123.png

Share this post


Link to post
Share on other sites

Bom dia,

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

Att.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites

@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  )

 


Equipe ACBr Henrique Leonardo
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Tecnólogo em processamento de dados

E-mail hleon[email protected] - Skype : hleorj

Share this post


Link to post
Share on other sites
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.

  • Like 2

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...