FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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!!! |
#2
|
||||
|
||||
Cita:
sabes pasar variables desde un formulario a otro... solo tienes que realizar algo así...
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
__________________
BlueSteel |
#3
|
||||
|
||||
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 |
#4
|
||||
|
||||
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; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda urgente... | fide | Internet | 6 | 11-12-2007 16:35:25 |
ayuda urgente sobre como actualizar base de datos de paradox | Mairel | Tablas planas | 2 | 02-12-2006 19:54:14 |
ayuda urgente | RICHARIN | Tablas planas | 3 | 20-04-2006 20:09:30 |
Ayuda urgente sobre el Costo!! | luis_sencion | OOP | 1 | 14-04-2005 00:14:00 |
Ayuda Urgente | Nelson Alberto | Varios | 12 | 11-12-2003 18:34:27 |
|