FoxPro/Visual FoxPro - Imprimir

 
Vista:

Imprimir

Publicado por Carlos (37 intervenciones) el 13/06/2003 14:57:23
Hola a todos:
necesito ayuda lo mas urgente poslible por favor, yo lo que necesito es imprimir recibos a clientes.
Al ejectuar el informe tiene que imprimir en la esquina superior derecha el número de recibo y la fecha de la transacción, luego tiene que listarme las facturas por las que está efectuando el pago Por ej:
FACTURA NRO. FECHA IMPORTE
1525 17/05/2003 550,00
1700 25/05/2003 250,00
y al pie del comprobante quiero imprimir el detalle completo de los pagos que entrega. Por ej:
TIPO DE PAGO NÚMERO BANCO FECHA VTO. IMPORTE
Cheque 98499489 NACION 30/06/2003 650,00
Cheque 65456422 CBA. 15/07/2003 100,00
Efectivo 50,00
Las tablas que tengo en el entorno de datos del Informe son: RECIBOS en donde están almacenados el Nro de Recibo y la Fecha, RECIBOS_FACTURAS en donde estan almacenadas todas las facturas correspondientes el Recibo y el importe pagado por cada una,
RECIBOS_PAGOS en donde están almacenados todos los pagos que el cliente entregó, TIPOSDEPAGO en donde están almacenados los tipos de pago (CHEQUE, EFECTIVO, etc...)
El detalle de las facturas se imprime perfectamente pero no puedo conseguir hacer el detalle de los pagos al pie del formulario. Intenté agrupar datos con diferentes criterios pero no puedo conseguirlo.
¿ALGUIEN PUEDE AYUDARME?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Imprimir

Publicado por Marco A. (263 intervenciones) el 13/06/2003 16:02:13
Yo imprimo asi.

SYS(1037) *** esta opcion es para elegir la impresora
SET PRINTER ON
SET CONSOLE OFF
SET DEVICE TO PRINTER
SET CENTURY OFF
SET PRINTER TO LPT1
NOCONSOLE
SET PRINTER FONT 'ARIAL',7 STYLE 'N'
? CHR(15)
@0,0 say "Fundo El Bajo"
@0,80 say "Fecha:"
@0,96 say DATE()
@1,0 say "Melipilla"
@1,80 say "Hora :"
@1,96 say TIME()
@3,0 say "Fecha Numero Cantidad"
@4,0 say "-----------------------------------------"
FILA = 5
GO TOP
DO WHILE !EOF()
@FILA, 0 SAY FECHA
@FILA, 11 SAY NUMERO
@FILA, 19 SAY CANTIDAD pict"999,999.99"
FILA = FILA+1
SKIP
ENDDO

SET PRINTER OFF
SET DEVICE TO SCREEN
SET CONSOLE ON
SET PRINTER TO
thisform.Release

prueba con esto a mi me funciona...

saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Imprimir

Publicado por eleazar (1 intervención) el 13/06/2003 23:31:20
porque no agrupas toda tu informacion (tus dos bases de datos) en una temporal, creando un unico registro y los jalas sin ningun problema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar