Permitir escolher se quer imprimir desconto ou nao DANFE

[gss200610]

gostaria de saber se posso fazer a seguinte alteracao no ACBrNFeDANFEFRDM.pas pois tenho clientes que nao querem que saia o valor desconto no danfe.

 

Function TACBrNFeFRClass.ManterVDesc( dvDesc: Currency; dVUnCom , dQCom : double ) : Double;
begin
  if FDANFEClassOwner.ImprimeDescAcrescItem then
  begin
    if ( FDANFEClassOwner.ImprimirDescPorc ) then
    begin
      if ( ( dvDesc  > 0 ) and ( dVUnCom > 0 ) and ( dQCom   > 0 ) ) then
        Result := (( dvDesc*100 ) / (dVUnCom * dQCom) )
      else
        Result := 0;
    end
    else
      Result := dvDesc;

  end else
  Result := 0;

end;

 

[Juliomar Marchetti]

anexe a unit

[gss200610]

segue DANFE FAST para impressão se valores dos descontos nos itens conforme configuracao: ImprimeDescAcrescItem

ACBrNFeDANFEFRDM.pas

[hleorj]

2 horas atrás, gss200610 disse:

segue DANFE FAST para impressão se valores dos descontos nos itens conforme configuracao: ImprimeDescAcrescItem

ACBrNFeDANFEFRDM.pas

Seu código está compatível com o ultima versão do SVN ? 

[gss200610]

sim, acabei de atualizar novamente e nao tem nada que imprima o vdesc conforme configuracao. segue codigo do fonte acbr

Function TACBrNFeFRClass.ManterVDesc( dvDesc: Currency; dVUnCom , dQCom : double ) : Double;
begin
  if ( FDANFEClassOwner.ImprimirDescPorc ) then
  begin
    if ( ( dvDesc  > 0 ) and ( dVUnCom > 0 ) and ( dQCom   > 0 ) ) then
      Result := (( dvDesc*100 ) / (dVUnCom * dQCom) )
    else
      Result := 0;
  end
  else
    Result := dvDesc;
end;
 

[gss200610]

segue anexo unit atualizada com ultima versao do svn. estou preparando pra Fortes Report, apos realizar os devidos testes e correcoes, posto aqui, para possível aprovação dos administradores

ACBrNFeDANFEFRDM.pas

[gss200610]

Arquivos para FORTES REPORT , testado 

FORTES REPORT.zip

[BigWings]

Em 09/04/2018 at 11:04, gss200610 disse:

gostaria de saber se posso fazer a seguinte alteracao no ACBrNFeDANFEFRDM.pas pois tenho clientes que nao querem que saia o valor desconto no danfe.

Se entendi bem, essa alteração vai mostrar o valor 0,00 nos descontos nos itens da NFe, mesmo quando houver desconto para o item.

Não acho que essa abordagem seja correta, já que seria uma informação discrepante com o XML, o que não é permitido.

Uma solução seria suprimir toda a coluna do desconto, dada a configuração, na impressão do DANFE, já que o desconto por item não é informação obrigatória, segundo o MOC da NFe.

[gss200610]

23 minutos atrás, BigWings disse:

Se entendi bem, essa alteração vai mostrar o valor 0,00 nos descontos nos itens da NFe, mesmo quando houver desconto para o item.

Não acho que essa abordagem seja correta, já que seria uma informação discrepante com o XML, o que não é permitido.

Uma solução seria suprimir toda a coluna do desconto, dada a configuração, na impressão do DANFE, já que o desconto por item não é informação obrigatória, segundo o MOC da NFe.

mesmo suprimindo vai sair no xml,.o que o pessoal precisa aqui. é nao aparecer o valor de desconto "NO ITEM". Deixo a cargo dos administradores ai, se acharem correto tudo bem.

Editado 11 Abril, 2018 por gss200610