Erro Danfe Nfce Com Desconto

[tchuck]

Estou fazendo desconto no Item, mas me deparei com um problema no somatório no DANFE os valores são diferentes do gerado no xml, o DANFE esta descontando 2 x o desconto dado.

 

Segue anexo xml e pdf do exemplo gerado.

 

Link do PDF https://www.dropbox.com/s/rwetnp6qb3wen3m/DANFeNFCe.pdf?dl=0

Link do XMl  https://www.dropbox.com/s/trcnjc56bztpyqh/32141211475728000196650010000006581000006588-nfe.xml?dl=0

[Régys Silveira]

Qual tipo de impressão está utilizando EscPOS, Fortes, Fast, ...?

[tchuck]

No fast Report, mas acho que esta funcionando agora normal, eu paguei todas units e fiz atualização novamente, vou fazer mais uns teste

[tchuck]

aproveitei o problema que tive com desconto fiz uma alteração no componente para dar desconto e acrescimo no total do item tbm como é feito com os ecfs, a alteração foi feira na procedure SubtotalizaCupomVirtual segue o link do arquivo abaixo

 

codigo da alteração

procedure TACBrECFVirtualNFCeClass.SubtotalizaCupomVirtual(DescontoAcrescimo: Double; MensagemRodape: AnsiString);
Var
  i: Integer;
  ValorDescontoAcrescimo : Double;
begin
  with fsACBrNFCe.NotasFiscais.Items[0].NFe do
  begin
    ValorDescontoAcrescimo := 0;
    if DescontoAcrescimo > 0 then
    begin
      ValorDescontoAcrescimo  := DescontoAcrescimo / Det.Count;
      for i := 0 to Det.Count - 1 do
        Det.Items[i].Prod.vOutro := Det.Items[i].Prod.vOutro + ValorDescontoAcrescimo;//se o produto ja tiver acrescimo soma
    end
    else
    begin
      ValorDescontoAcrescimo  := (DescontoAcrescimo / Det.Count) * -1;
      for i := 0 to Det.Count - 1 do
        Det.Items[i].Prod.vDesc := Det.Items[i].Prod.vDesc + ValorDescontoAcrescimo; //se o produto ja tiver desconto soma
    end;

    if DescontoAcrescimo > 0 then
      Total.ICMSTot.vOutro := DescontoAcrescimo
    else
      Total.ICMSTot.vDesc  := DescontoAcrescimo;

    InfAdic.infCpl := MensagemRodape;
  end;
end;

https://www.dropbox.com/s/qlj3z4o64eusc8q/ACBrECFVirtualNFCe.pas?dl=0

Editado 10 Dezembro, 2014 por tchuck