DANFe - Fortes - Não Imprimir Coluna de Desconto

[Renato Rubinho]

Bom dia,

    Segue implementação (ACBrFontes.rar) no DANFe - Fortes, habilitando propriedade para identificar se deve imprimir a coluna de desconto nos itens.

1. Propriedade criada na TACBrNFeDANFEClass, configurada por padrão para sempre imprimir 

 { TACBrNFeDANFEClass }

  {$IFDEF RTL230_UP}
  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
  {$ENDIF RTL230_UP}
  TACBrNFeDANFEClass = class(TACBrDFeDANFeReport)
  private
    .
    .
    .
    FImprimeDescAcrescItem: TpcnImprimeDescAcrescItem;
  published
    .
    .
    .
    property ImprimeDescAcrescItem: TpcnImprimeDescAcrescItem read FImprimeDescAcrescItem write FImprimeDescAcrescItem default idaiSempre;

2. Pode-se configurar para imprimir sempre, nunca ou apenas quando houver valor de desconto na NFe
** TpcnImprimeDescAcrescItem = (idaiSempre, idaiNunca, idaiComValor);

3. Quando não for impressa a coluna de desconto, seu espaço liberado será distribuído entre a Quantidade, Valor Unitário e Valor Total, conforme destacado abaixo:

Por favor, vejam se essa opção pode ser incorporada ao projeto ou se precisa de algum ajuste.

Obrigado

 

[Juliana Tamizou]

Bom dia.

Obrigada pela contribuição.

Você chegou a confirmar no layout se é permitido omitir esta informação?

Att.

[Renato Rubinho]

2 minutos atrás, Juliana Tamizou disse:

Bom dia.

Obrigada pela contribuição.

Você chegou a confirmar no layout se é permitido omitir esta informação?

Att.

Bom dia @Juliana Tamizou,

O layout disponibilizado no Manual de Orientação do Contribuinte nem tem essa coluna nos itens.

Não encontrei nada que proíba, nenhuma NT que cite algo do gênero.

[hleorj]

No caso da danfe paisagem ?

[Renato Rubinho]

49 minutos atrás, hleorj disse:

No caso da danfe paisagem ?

São layouts independentes.

[hleorj]

Regra : 

Alterações na danfe de nfe, devem aplicadas nos tipos paisagem e retrato ao mesmo tempo.

 

E se possível aplicar também na danfe desenvolvida em fast report.

 

[hleorj]

@Renato Rubinho, segue o arquivo de log para justificar a regra.

Usando o lado negro .. pode conseguir em Fast , também

 

 

ACBrNFeDANFeRL-change-log.txt

[Renato Rubinho]

Bom dia,

Não sabia da regra.

Segue fonte (ACBrFontesComPaisagem.rar) contendo também a implementação para Paisagem.

 

[hleorj]

Quando comecei ,  ajudar em open source . Sofri bastante para conhecer as regras.

Sou usuário , atualmente da danfe em fast report. E para colocar várias soluções em produção e aprendi  usando muito o lado Negro. Com isto, o acbr me deu certa liberdade para ajustar a danfe em fortes report.

Outra regra :

Sempre atualizar o arquivo de log (  acima tem ele ).

ps :. Vou pedir a meu amigo @BigWings

para validar TB a sua ideia.

 

 

 

 

[Renato Rubinho]

5 minutos atrás, hleorj disse:

Quando comecei ,  ajudar em open source . Sofri bastante para conhecer as regras.

Sou usuário , atualmente da danfe em fast report. E para colocar várias soluções em produção. O acbr me deu certa liberdade para ajustar a danfe em fortes report.

Outra regra :

Sempre atualizar o arquivo de log (  acima tem ele ).

ps :. Vou pedir a meu amigo @BigWings

para validar TB a sua ideia.

 

 

 

 

Vou ler as regras para evitar problemas futuros.

Segue o arquivo de log atualizado.

ACBrNFeDANFeRL-change-log.txt

[hleorj]

@Renato Rubinho, não esquente a cabeça com evitar problemas;

Aqui adoramos problemas solucionados com propriedade e  adoramos um padrão que seja , compreendidos todos.

Ex ; Nome de componentes 

 RLDraw1.Visible := txtValorDesconto.Visible;

poderia ser

rlsDivDesconto = txtValorDesconto.Visible;

Outro

   // Valor Unitario
    RLLabel87.Left := 405;
    RLLabel87.Width := 50;
    RLLabel88.Left := 405;
    RLLabel88.Width := 50;
    txtValorUnitario.Left := 405;
    txtValorUnitario.Width := 50;

para

   // Valor Unitario
    RLLValorUnitario.Left := 405;
    RLLValorUnitario.Width := 50;
    RLLValorUnitario.Left := 405;
    RLLValorUnitario.Width := 50;
    txtValorUnitario.Left := 405;
    txtValorUnitario.Width := 50;

 

[hleorj]

Evitar um código duplicado.

ver ACBrNFeDANFeRLRetrato e ACBrNFeDANFeRLPaisagem

 // Controle para exibir coluna de desconto
  txtValorDesconto.Visible := ( ( fpDANFe.ImprimeDescAcrescItem = idaiSempre ) or
                                ( ( fpDANFe.ImprimeDescAcrescItem = idaiComValor ) and ( fpNFe.Total.ICMSTot.vDesc > 0 ) ) );

Adicionado uma nova função na unit ACBrNFeDANFEClass :

function TACBrNFeDANFEClass.ManterColunaDesconto( Value : Double): Boolean;
begin

  // idaiSempre    => Sempre apresentar a coluna desconto
  // idaiNunca     => Nunca apresenta a coluna desconto
  // idaiComValor  => Apresentar a coluna desconto se value > 0 ( desconto )
  
  Result := (   ( fImprimeDescAcrescItem = idaiSempre   ) or
              (
                ( fImprimeDescAcrescItem = idaiComValor ) and
                ( Value > 0 )
              )
            );
end;

E refatorando as unit ACBrNFeDANFeRLRetrato e ACBrNFeDANFeRLPaisagem com : 

// Controle para exibir coluna de desconto
  txtValorDesconto.Visible := ManterColunaDesconto( fpNFe.Total.ICMSTot.vDesc )

 

[hleorj]

Sendo uma nova propriedade  ( ImprimeDescAcrescItem ) . os critérios de implantação ficam mas rígidos .

E  um parecer de outros moderadores.  para a nova propriedade no acbr.

Grato 

 

[hleorj]

Sugestão minha :

function TACBrNFeDANFEClass.ManterColunaDesconto( Value : Double): Boolean;
begin
  // idaiSempre    => Sempre apresentar a coluna desconto
  // idaiNunca     => Nunca apresenta a coluna desconto
  // idaiComValor  => Apresentar a coluna desconto se value > 0 ( desconto )

  case fImprimeDescAcrescItem of
    idaiSempre    : Result := True;
    idaiNunca     : Result := False;
    idaiComValor  : Result := ( value > 0 );
  end;

end;

 

[Renato Rubinho]

Bom dia,

Por favor, podem me confirmar se a implementação foi rejeitada ou se será incorporada ao projeto ?

Obrigado

[Juliana Tamizou]

Boa tarde Renato, tudo bem?
Você chegou a aplicar as sugestões dadas pelo Henrique?

Att.

[Renato Rubinho]

Boa tarde Juliana,

Tudo bem, obrigado pelo retorno.

 

Não fiz mais nenhuma alteração porque pelo que entendi, devido à nova propriedade, não está certo que a implementação será "autorizada" e nenhuma das sugestões alterariam esse cenário.

Caso confirmem a implantação, posso fazer as melhorias sugeridas.

Att

[EMBarbosa]

Em 30/09/2019 at 15:01, Renato Rubinho disse:

Boa tarde Juliana,

Tudo bem, obrigado pelo retorno.

 

Não fiz mais nenhuma alteração porque pelo que entendi, devido à nova propriedade, não está certo que a implementação será "autorizada" e nenhuma das sugestões alterariam esse cenário.

Caso confirmem a implantação, posso fazer as melhorias sugeridas.

Att

Bom dia,

   Após conversa com o pessoal aqui, nos pareceu muito boa sua sugestão. Queremos subir ao SVN.

   Verifique por favor o seguinte:

• Apesar da propriedade ImprimeDescAcrescItem estar marcada como default idaiSempre, ela deve ser atribuída no método Create (Veja a nota na documentação).

   Após isso queira por favor anexar novamente os arquivos alterados.

[Renato Rubinho]

1 hora atrás, EMBarbosa disse:

Bom dia,

   Após conversa com o pessoal aqui, nos pareceu muito boa sua sugestão. Queremos subir ao SVN.

   Verifique por favor o seguinte:

• Apesar da propriedade ImprimeDescAcrescItem estar marcada como default idaiSempre, ela deve ser atribuída no método Create (Veja a nota na documentação).

   Após isso queira por favor anexar novamente os arquivos alterados.

Boa tarde @EMBarbosa,

Obrigado pelo retorno.

Seguem os fontes ( ACBrFontesAtualizados.rar ) com as implementações incorporadas na versão atual, para Retrato e Paisagem, e com a atribuição do valor padrão no create.

 

[hleorj]

@Renato Rubinho,  bem vindo ao time .. 

[hleorj]

Segue as minhas sugestões.

Elas tem o intuito de facilitar o entendimento da implementação e ao tempo mesmo, facilitar futuras manutenções.

Ps : Outra dica  , existe alguns de log que são atualizados e mantidos :         

PCNComum-change-log
ACBrNFe-change-log
ACBrNFeDANFeRL-change-log

Muito grato pela sugestão e implementação 

Henrique_ACBrFontesAtualizados.rar

[EMBarbosa]

Em 03/10/2019 at 14:22, hleorj disse:

Segue as minhas sugestões.

Elas tem o intuito de facilitar o entendimento da implementação e ao tempo mesmo, facilitar futuras manutenções.

Ps : Outra dica  , existe alguns de log que são atualizados e mantidos :         

PCNComum-change-log
ACBrNFe-change-log
ACBrNFeDANFeRL-change-log

Muito grato pela sugestão e implementação 

Henrique_ACBrFontesAtualizados.rar 67 kB · 3 downloads

@Renato Rubinho

Muito obrigado pela contribuição.
Fiz a implementação baseada nela e nas alterações do Henrique.
Subi as alterações para o SVN na Revisão  17836.
Pelo que vi está tudo certo.
Mas queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[Renato Rubinho]

1 hora atrás, EMBarbosa disse:

@Renato Rubinho

Muito obrigado pela contribuição.
Fiz a implementação baseada nela e nas alterações do Henrique.
Subi as alterações para o SVN na Revisão  17836.
Pelo que vi está tudo certo.
Mas queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

Boa tarde @EMBarbosa,

Atualizado o componente e validada implementação, conforme destacado a seguir.

Agradeço a todos pela ajuda.

 

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.