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

Luciana Cristina Pereira · 20 Abril, 2021

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".

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