Solicitacao de melhoria - TributosSeparadamente

[Junior82]

Tudo bem entao Daniel Simoes

Mas so para deixar claro era assim que funcionava anteriormente e esse codigo retirei de uma versao antes da atualizacao e que entao esta errada
Agora me diga, isso estava errado anteriormente?

 

procedure TACBrNFeDANFeESCPOS.GerarTotTrib;

begin

 if TributosSeparadamente = False then

  begin

   if FpNFe.Total.ICMSTot.vTotTrib > 0 then

    begin

     FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace('Informação dos Tributos Totais Incidentes|' +

        FormatFloat('#,###,##0.00', FpNFe.Total.ICMSTot.vTotTrib),

        FPosPrinter.ColunasFonteCondensada, '|')));

     FPosPrinter.Buffer.Add('<c>(Lei Federal 12.741/2012)');

     FPosPrinter.Buffer.Add('</linha_simples>');

    end;

  end

 else

  begin

   if (vTribFed > 0) or (vTribEst > 0) or (vTribMun > 0) then

    begin

     FPosPrinter.Buffer.Add(ACBrStr('<c>Informação dos Tributos Totais (Lei Federal 12.741/2012)'));

 

     FPosPrinter.Buffer.Add('<c>' + PadSpace('Tributos Federais   R$ :|' +

        FormatFloat('#,###,##0.00', vTribFed), FPosPrinter.ColunasFonteCondensada, '|'));

     FPosPrinter.Buffer.Add('<c>' + PadSpace('Tributos Estaduais  R$ :|' +

        FormatFloat('#,###,##0.00', vTribEst), FPosPrinter.ColunasFonteCondensada, '|'));

     FPosPrinter.Buffer.Add('<c>' + PadSpace('Tributos Municipais R$ :|' +

        FormatFloat('#,###,##0.00', vTribMun), FPosPrinter.ColunasFonteCondensada, '|'));

 

     if Trim(FonteTributos) <> '' then

      FPosPrinter.Buffer.Add('<c>' + PadSpace('Fonte : '+FonteTributos+'|' +

         ChaveTributos, FPosPrinter.ColunasFonteCondensada, '|'));

 

     FPosPrinter.Buffer.Add('</linha_simples>');

    end;

  end;

end;

[Daniel Simoes]

Sim estava... justamente por isso que foi modificado...

Se quer sugerir uma modificação nos fontes... faça isso de forma correta e ordenada, e pensando no uso conjunto do componente por toda a comunidade e não apenas no seu caso...

Já lhe dei a dica, de que seria necessário uma nova propriedade... 

[Junior82]

ok

[Junior82]

Daniel Simoes 
Fiz o que vc me sujeriu. estou lhe mandando os fontes alterados e com a inclusao da Propriedade ImprimirTributos:Boolean conforme vc mencionou
Acredito que agora esta da forma certa

Nao tenho certeza se deveria alterar algum outro arquivo para que a propriedade apareca diretamente no componente ou nao.. mas ai vai e veja o que  achas e me de um retorno..
Obrigado

 

ps: acredito que agora estou compreendendo o que estavas me dizendo

ACBrNFeDANFEClass.pas

ACBrNFeDANFeESCPOS.pas

[Junior82]

Faltou um detalhe Daniel Simoues... na unit ACBrNFeDANFEClass.pas na linha 309  esta false mas deveria estar true para estar correta. FImprimirTributos := True;
Agora sim esta correto... 
Acabei de anexar os arquivos

ACBrNFeDANFEClass.pas

ACBrNFeDANFeESCPOS.pas

[hleorj]

6 horas atrás, Daniel Simoes disse:

 a dica, de que seria necessário uma nova propriedade... 

Novas propriedades deveriam ser evitadas o máximo possível.

Pois, afetam todo o conjunto de danfes.

 

[hleorj]

Fiz um levantamento :

Revision: 12214
Author: anfm
Date: sexta-feira, 26 de agosto de 2016 15:48:47
Message:
Alterações para atender Manual de Especificações Técnicas do DANFE NFC-e e QR Code - versão 3.5 - http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=A3Bd/m6qGPM=

@Daniel Simoes

@Junior82

Ficou, 1 ano sem fazer atualização do seu código ?

@Junior82, favor testar o código atual do SVN. 

 

[Daniel Simoes]

@hleorj,

Não notei modificações nos fontes do SVN, vc fez algum ajuste ?

[hleorj]

@Daniel Simoes, não fiz ajustes no código , pois considero sua atualização boa.

[Junior82]

Bom dia 

@hleorj e @Daniel Simoes

As alteracoes que fiz no fonte eu nao enviei para o SVN, achei mais pertinente apenas lhe enviar em anexo na conversa os arquivos. A ultima conversa com anexo esta com ele ok. Mas agradeceria se vcs olhassem a inclusao que fiz, pois fiz como vc indicou e nao prejudiquei a propriedade que estava sendo utilizada.

Fico no aguardo de vcs pois nao quero prejudicar nenhum funcionamento do componente.

[Juliomar Marchetti]

1 hora atrás, Junior82 disse:

Bom dia 

@hleorj e @Daniel Simoes

As alteracoes que fiz no fonte eu nao enviei para o SVN, achei mais pertinente apenas lhe enviar em anexo na conversa os arquivos. A ultima conversa com anexo esta com ele ok. Mas agradeceria se vcs olhassem a inclusao que fiz, pois fiz como vc indicou e nao prejudiquei a propriedade que estava sendo utilizada.

Fico no aguardo de vcs pois nao quero prejudicar nenhum funcionamento do componente.

No caso é somente anexando aqui pra poder enviar ao svn, somente alguns tem acesso de escrita no repositório.

[Junior82]

Juliomar Marchetti 
Vc gostaria que eu enviasse novamente os Fontes que alterei?

[Junior82]

Ola @Juliomar Marchetti !
Vc gostaria que eu anexasse novamente os arquivos para que possas olhar?

[Daniel Simoes]

Enviei para o SVN, modificações basedo nas suas sugestões

Citar

-- ACBrNFeDANFE* --
[+] Adicionada a propriedade "ImprimirTributos: Boolean default True".
    Quando Falsa suprime toda a impressão dos Tributos pelo ACBr
    http://www.projetoacbr.com.br/forum/topic/38342-solicitacao-de-melhoria-tributosseparadamente/
    (por: DSA)

 

[Valdir Dill]

Boa noite,

As alterações feitas até agora têm efeito apenas para danfe com ACBrNFeDANFeESCPOS.
Pelo que entendi e nos testes que fiz, a impressão da NFCe com Fortes Report está imprimindo os tributos igual, mesmo que .imprimirTributos = false.
Então, creio que é preciso fazer as alterações abaixo na ACBrDANFCeFortesFr.pas, a qual já envio anexo com as alterações.

Peço que seja incluído no código oficial .

procedure TACBrNFeDANFCeFortesFr.rlbRodapeBeforePrint(Sender: TObject; var PrintIt: Boolean);
var
  i:integer;
begin
  with ACBrNFeDANFCeFortes.FpNFe do
  begin
    if (ACBrNFeDANFCeFortes.ImprimirTributos) and //alteração proposta
     (Total.ICMSTot.vTotTrib > 0) then
      lTitLei12741.Caption := lTitLei12741.Caption +' '+ FormatFloatBr(Total.ICMSTot.vTotTrib)
    else
      lTitLei12741.Visible := False;

    for I := 0 to InfAdic.obsCont.Count - 1 do
    begin
      lObservacoes.Lines.Add( StringReplace( InfAdic.obsCont.xCampo + ': ' +
                                             InfAdic.obsCont.xTexto, ';', #13, [rfReplaceAll] ) ) ;
    end;

    if InfAdic.infCpl <> '' then
      lObservacoes.Lines.Add( StringReplace( InfAdic.infCpl, ';', #13, [rfReplaceAll] ) );

    lObservacoes.Visible := ( lObservacoes.Lines.Count > 0 );
  end;
end;

 

Obrigado.

ACBrDANFCeFortesFr.pas

[Daniel Simoes]

Veja os Eventos OnBeforePrint... toda a banda é desativada, se a propriedade for False...

[Junior82]

Muito obrigado Daniel Simoes 

Vou atualizar os fontes

Abraços

[Valdir Dill]

13 horas atrás, Daniel Simoes disse:

Veja os Eventos OnBeforePrint... toda a banda é desativada, se a propriedade for False...

Bom dia,

Na ACBrDANFCeFortesFr.pas eu não encontrei isso que você menciona Daniel. Aliás, na ACBrDANFCeFortesFr.pas, em nenhum local e encontrei rotina que verifique se ImprimirTributos é false ou true.

Veja bem, nessa mudança que eu propus, apenas o lTitLei12741 (que é um TrlLabel) é que vai ficar invisível e não a banda toda.

Obrigado.

[Daniel Simoes]

Você tem razão.. essa Unit não havia sido corrigida.. eu havia trabalhado na "ACBrDANFCeFortesFrA4.pas"...

Implementei modificações, baseado nas suas sugestões:

Citar

-- ACBrDANFCeFortesFr --
[+] Adicionado suporte as propriedades "ImprimirTributos" e "TributosSeparadamente"
    http://www.projetoacbr.com.br/forum/topic/38342-solicitacao-de-melhoria-tributosseparadamente/?page=2#comment-253535
    (por: DSA)

 

[Juliana Tamizou]

Bom dia @rogercon

Este tópico é antigo e será fechado, movi sua postagem para um novo tópico dentro da área SAC.