Ir para conteúdo
  • Cadastre-se

dev botao

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


JrClemente
  • Este tópico foi criado há 1763 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Administradores

Boa tarde.

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

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

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


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia,

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

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

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


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Moderadores

@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 [email protected] - Skype : hleorj

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Consultores
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.

  • Curtir 2

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1763 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.