Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 2068 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

 

image.png.b68a6e21b15d22c680320112ee491db4.png

ACBrSATExtratoFortesFr.pas

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Fundadores
  • Solution

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

 

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2068 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.