Rateio De Descontos Nos Itens Da Nfc-E

[WINDEL]

Bom dia pessoal,

 

Estou com uma situação que é a seguinte, o cliente precisa que o desconto não rateie entre os itens, então eu setei a propriedade 'FDANFEClassOwner.ImprimirTotalLiquido' = True porém aí acontece um problema, anexei a impressão da NFCe, veja que parece que o desconto está sendo aplicado duas vezes.

 

Então fiz algumas alterações e já testei e ficou tudo certo,

 

Na impressão do report 'DANFeNFCe.fr3', caso o desconto do produto for maior que zero, o componente acaba imprimindo os dados do desconto: Campos 'Desconto' e 'Valor Líquido'.

Eu fiz a seguinte modificação na unit ...\ACBrNFe2\ACBrDANFEFRDM.pas, no método 'CarregaDadosProdutos'.

 

if FDANFEClassOwner.ImprimirDescPorc then
begin
if vDesc > 0 then
FieldByName('vDesc').AsString := DFeUtil.FormatFloat(((vDesc*100) / (VUnCom * QCom))) + '%'
//FieldByName('vDesc').AsString := DFeUtil.FormatFloat(RoundTo(100 - ((((VUnCom * QCom) - vDesc) / (VUnCom * QCom)) * 100), -1)) + '%'
else
FieldByName('vDesc').AsString := DFeUtil.FormatFloat(vDesc);
end
else

if vDesc > 0 then

            if (FDANFEClassOwner.ImprimirTotalLiquido) then

              FieldByName('vDesc').AsString := '0'

            else

              FieldByName('vDesc').AsString := DFeUtil.FormatFloat(vDesc)

          else

            FieldByName('vDesc').AsString := '0';

 

Foi acrescentada a validação abaixo para definir o valor do desconto igual a zero, assim o componente acaba não imprimindo os 'DadosDesconto' do report 'DANFeNFCe.fr3'

 

if vDesc > 0 then
if (FDANFEClassOwner.ImprimirTotalLiquido) then
FieldByName('vDesc').AsString := '0'

 

 

Seria possível disponibilizar as alterações no fonte oficial? Se sim, segue em anexo a unit alterada para ser feito um merge.

 

Obrigado

 

Diogo

DANFeNFCe - ImprimirTotalLiquido = True.pdf

ACBrNFeDANFEFRDM.pas

Editado 19 Novembro, 2014 por DIOGOWAR