Ayuda urgente sobre ticket
 

Hola todos

mi problema es lo siguiente tengo que hacer un programa que cuando se inserte los datos en un formulario otro formulario se ejecute dandole al usuario la opcion de imprimir lo que el a insertado en un ticket o no imprimir el ticket por favor no tengo la mayor idea como realizar esto. Estoy utilizando Delphi 6 con paradox7.



gracia mil por su ayuda!!!

y eso lo quieres que se ejecute en el mismo computador donde se ingresan los datos.. o en otro computador ???

sabes pasar variables desde un formulario a otro...

solo tienes que realizar algo así...

Código Delphi [-]
Form2.Edit1.Text := Form1.sNombre.Text;

lo que hace la sentencia anterior es asignar al componente Edit1 del Formulario 2 el contenido que tengal el Edit sNombre del Formulario 1...

esto lo puedes hacer del uno al dos o viceversa...

el traspaso de variable lo tienes que realizar cuando presiones el boton de almacenar el registro....

tienes algo preparado ???

Salu2:p:D

no en red, no tengo nada preparado es que no tengo ni idea como hacer lo que el cliente quieres, te explico es un programa que cuando se inserte una venta o un pago se imprima un ticket o factura de es pago o venta la tabla es en paradox

NoRecibo +(AutoInc.) PK
Fecha D (Date)
Nombre A (String) 50
Desc A 50
Valor N
Efectivo N
Cambio N

Gracia ya encontre la solucion

Codigo Delphi[-]

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); // Cortar
finally
CloseFile(Ticket);
end;
end;