Extrato do S@t quando possui acréscimo e desconto, o Valor líquido totaliza errado, devido a não subtrair o desconto. Fonte: ACBrSATExtratoFortesFr.pas

[Wladimir Isnard]

Hoje com fonte mais atual, ele está imprimindo assim, para corrigir, tive que acrescentar no evento, TACBrSATExtratoFortesFr.rlbOutroItemBeforePrint a seguinte alteração:

procedure TACBrSATExtratoFortesFr.rlbOutroItemBeforePrint(Sender: TObject;
  var PrintIt: boolean);
begin
  with ACBrSATExtrato.CFe.Det.Items[fNumItem] do
  begin
    PrintIt := (not Resumido) and (Prod.vOutro > 0) and ACBrSATExtrato.ImprimeDescAcrescItem ;

    if PrintIt then
    begin
      lOutro.Caption       := FormatFloatBr(Prod.vOutro,'+,0.00');
      lOutroValLiq.Caption := FormatFloatBr(Prod.vProd+Prod.vOutro - Prod.vDesc);
    end;
  end;

end;

 

Anexei o fonte para os moderadores verificarem.

Att,

Wladimir Isnard

 

ACBrSATExtratoFortesFr.pas

[Daniel Simoes]

Obrigado... correção enviada para o SVN.. também corrigi o mesmo problema, na Impressão em EscPos