Fórum Impressão direta, Outras Dúvidas! #288535

procedure TFormLocacao.BtnNotaClick(Sender: TObject);
var
Nota : TextFile;
Status : String;
begin
vPago := DM_BANCO.LOCACAOPago.AsBoolean;
if vPago then Status := ´Pago´ else Status := ´A Pagar´;
AssignFile(Nota,´LPT1´);
Rewrite(Nota);
Write(Nota);
WriteLn(Nota,´---------- FOX VIDEO LOCADORA -------------´);
WriteLn(Nota,´O Endereço da Locadora vem aqui´);
WriteLn(Nota,´Fone: xxxx-xxxx´);
Writeln(Nota,´-------------------------------------------´);
WriteLn(Nota,Format(´¬7s´,[´Socio: ´+IntToStr(DM_BANCO.LOCACAOCliente.Value)+10+´Locatario: ´+DM_BANCO.LOCACAOLocatario.Value]));
Writeln(Nota);
WriteLn(Nota,Format(´¬7s´,[´Filme  -  Valor  -  Devolucao´]));
DM_BANCO.DETLOCACAO.First;
while Not DM_BANCO.DETLOCACAO.Eof do
begin
if DM_BANCO.DETLOCACAObonus.AsBoolean then
 WriteLn(Nota,DM_BANCO.DETLOCACAOLINK_FILME.Value +´ <GRATIS>´)
  else
WriteLn(Nota,DM_BANCO.DETLOCACAOLINK_FILME.Value +´ R$ ´+FormatFloat(´#,,0.00´,DM_BANCO.DETLOCACAOLINK_DIARIA_VALOR.Value));
DM_BANCO.DETLOCACAO.Next;
End;
Writeln(Nota,´-------------------------------------------´);
Writeln(Nota,´R$ ´+FormatFloat(´,,0.00´,DM_BANCO.LOCACAOTotal.Value)+´ - ´+ Status);
Writeln(Nota,´-  -  -  -  -  -  -  -  -  -  -  -  -  -  -´);
Writeln(Nota);
Writeln(Nota);
System.Close(Nota);//Fecho a porta da impressora
end;