Jump to content

dev botao

Alteração DANFE FastReport - Propriedade ImprimeDescAcrescItem (Não imprimir Valor Desconto no item)


Go to solution Solved by Juliomar Marchetti,
  • Este tópico foi criado há 1257 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Boa tarde pessoal,
Tudo bem?

Eu implementei a funcionalidade da propriedade ImprimeDescAcrescItem (que já existia) no componente TACBrNFeDANFEFR. Havia a propriedade mas nada configurado no código ou no fr3 para não imprimir a coluna "Valor Desconto".

image.png.c55138435fe34efaa8ca499f2b12f38a.png

O arquivo DANFeRetrato.fr3 em anexo que eu alterei estava atualizado com a última revisão.

Precisei alterar também o arquivo ACBrNFeDANFEFRDM.pas, para passar a propriedade para o fr3. Este arquivo eu alterei baseado na revisão 21402 (não é a ultima, houve alteração deste arquivo na revisão 21716).

Para facilitar o commit de vocês neste arquivo .pas, apenas adicionei as linhas abaixo (apenas as marcadas em negrito) na Procedure TACBrNFeFRClass.CarregaParametros:

Citar

 

    if (FDANFEClassOwner is TACBrNFeDANFCEClass) then
    begin
      FieldByName('ImprimeEm1Linha').AsString        := IfThen( TACBrNFeDANFCEClass(FDANFEClassOwner).ImprimeEmUmaLinha, 'S', 'N');
      FieldByName('ImprimeEmDuasLinhas').AsString    := IfThen( TACBrNFeDANFCEClass(FDANFEClassOwner).ImprimeEmDuasLinhas, 'S', 'N');
      FieldByName('QrCodeLateral').AsString          := IfThen( TACBrNFeDANFCEClass(FDANFEClassOwner).ImprimeQRCodeLateral, 'S', 'N');
      FieldByName('ImprimeDescAcrescItem').AsInteger := IfThen( TACBrNFeDANFCEClass(FDANFEClassOwner).ImprimeDescAcrescItem, 1 , 0 );
    end;

    if (FDANFEClassOwner is TACBrNFeDANFEClass) then
    begin
      FieldByName('ImprimeDescAcrescItem').AsInteger := Integer(TACBrNFeDANFEClass(FDANFEClassOwner).ImprimeDescAcrescItem);
    end;

    // Carregamento da imagem
    if NaoEstaVazio(DANFEClassOwner.Logo) then
    begin

 

No fr3, ele basicamente deixa invisivel a coluna Valor Desconto do item quando marcado para nunca exibir -idaiNunca- ou exibir apenas quando tiver valor de desconto -idaiComValor- mas não existir desconto na NF. Também move as demais colunas do item para manter o layout. Implementado na procedure do DadosProdutosHeaderOnBeforePrint.

Segue em anexo também dois arquivos PDF com as alterações antes e depois.
Obs.: No arquivo pdf "Depois" está impresso Valor Total ao invés de Valor Líquido nos itens, isso porque eu alterei a propriedade ImprimeTotalLiquido para False durante os testes. Ignorem esta coluna por favor, pois as alterações descritas aqui foram apenas na coluna Valor Desconto.

Agradeço aos moderadores se puderem subir para o repositório!

DANFeRetrato.fr3 ACBrNFeDANFEFRDM.pas DANFE_Retrato_Antes.pdf DANFE_Retrato_Depois.pdf

  • Like 2
Link to comment
Share on other sites

  • 2 weeks later...
  • Este tópico foi criado há 1257 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.