Hola a todos
Tengo el siguiente problema en la impresion de un ticket tipo recibo
se repite el nombre del cliente en todos los ticket ultizo delphi 6 la tabla esta en paradox 7 el database desktop, la impresora es Samsung Bixolon SRP-275.
Código Delphi
[-]procedure TfrmMain.BitBtn1Click(Sender: TObject);
var Fecha : String;
Ticket: TextFile;
Total, Efectivo, Cambio : Double;
xdes, xval, xtot, xpag, xcam: ShortString;
xsum: Double;
begin
Fecha := DateToStr(Now);
TIngresosFecha.AsString := Fecha;
Total := TIngresosValor.Value;
Efectivo := TIngresosEfectivo.Value;
Cambio := Total - Efectivo;
TIngresosCambio.Value := Cambio;
TIngresos.Post;
try
AssignPrn(Ticket);
Rewrite(Ticket);
Writeln(Ticket,#27#64);
Writeln(Ticket,'Ministerio Bendicion Inc.');
Writeln(Ticket,'C/Ambar No.109 Ens. Papagayo');
Writeln(Ticket,'La Romana RD. 22000');
Writeln(Ticket,'Tel: 809-556-4914');
Writeln(Ticket,'Tel: 809-550-8266');
Writeln(Ticket,'RNC: #4-12-02047-1');
Writeln(Ticket,'E-Mail: bendicionfm@hotmail.com');
Writeln(Ticket,'Website: www.bendicionfm.com');
Writeln(Ticket,'');
Writeln(Ticket,'Fecha: '+DateToStr(Now));
Writeln(Ticket,'Recibo: '+DBText1.Caption+'');
Writeln(Ticket,'Colaborador: '+ QConsulta.FieldByName('Nombre').asString);
Writeln(Ticket,'');
QConsulta.Close;
QConsulta.SQL.Clear;
QConsulta.SQL.ADD('Select * From Ingresos where NoRecibo='+DBText1.Caption);
QConsulta.Open;
Writeln(Ticket,'-------------------------------');
Writeln(Ticket,'Descripcion Valor ');
Writeln(Ticket,'-------------------------------');
xsum := 0;
QConsulta.Close;
QConsulta.SQL.Clear;
QConsulta.SQL.Add('Select * from Ingresos where NoRecibo='+DBText1.Caption);
QConsulta.Open;
QConsulta.First;
while not QConsulta.Eof do
begin
xdes := copy(QConsulta.fieldbyname('desc').AsString,1,20);
xval := format('%8.2f',[QConsulta.fieldbyname('valor').asFloat]);
xsum := xsum + QConsulta.fieldbyname('valor').AsFloat;
Writeln(Ticket,xdes+' '+xval);
QConsulta.Next;
end;
Writeln(Ticket,'-------------------------------');
xtot := FloatToSTR(xsum);
xpag := FloatToSTR(Efectivo);
xcam := FloatToSTR(Cambio);
Writeln(Ticket,'Total: RD$'+xtot);
Writeln(Ticket,'Efectivo: RD$'+xpag);
Writeln(Ticket,'Cambio: RD$'+xcam);
Writeln(Ticket,'-------------------------------');
Writeln(Ticket,'Dios les Bendiga');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,#27#105); finally
CloseFile(Ticket);
end;
end;