Podrias empezar con un simple reporte .TXT mandandolo a la impresora o crear un reporte para esa impresora
* (c) NickSoft Corporation 2004
* Date : 04/16/04
* Made by : E.H.A.
* Time : 14:30
* Formato para las NOTAS DE MOSTRADOR
DO NOTEHEADER
STORE 0 TO W_PZAS,W_WXLIN,NETO,X_CANT
X_CANT = 0
SELECT DETALLE
GO TOP
SCAN
IF X_CANT < W_LIDOC
X_CANT = X_CANT + 1
? Z_CLAVE +" "+Z_DESCR AT 2
? TRANSFORM(Z_CANT,"999") AT 2
?? TRANSFORM(Z_PRE,'999,999.99')+ " " + TRANSFORM(Z_IMPN,'999,999.99') + " " + TRANSFORM(Z_DESC,'999,999.99')
ELSE
X_CANT = 0
DO NOTEHEADER
ENDIF
ENDSCAN
DO FINAL
? CHR(27)+CHR(67)+CHR(10)+CHR(27)+CHR(105)
************************
* PROCEDURES *
************************
PROCEDURE NOTEHEADER
*ode com1:9600,N,8,1,P
? CHR(27)+CHR(112)+CHR(0)+CHR(25)+CHR(250)
? CHR(14)+CHR(15) + "ELEGANCIA INTIMA S.A. DE C.V."
? "MATRIZ : " + EMP.E_DIREC
? "COLONIA : " + EMP.E_COLON +" "+ EMP.E_POB
? "C.P. : " + TRANSFORM(EMP.E_CP,"@L 99999") +" "+ EMP.E_TELS
? "SUCURSAL: "
? " ROBIROSA # 34"
? " COL. SAN ESTEBAN TEL. 5359-6503"
? " NAUCALPAN DE JUAREZ, EDO. DE MEXICO"
? " R.F.C. : EIN-951123-1G8" + CHR(18)
? REPLICATE('-',40)
?
? CHR(14)+CHR(15) + "NOTA DE VENTA No."+W_SERIE+W_DOC + CHR(18) AT 2
? DTOC(DATE())+ " "+ TIME() AT 2
? CHR(14) + CHR(15)
? "ATENDIDO POR : " + AGE.GC_NOM
? REPLICATE("=",40)
? "CODIGO DESCRIPCION "
? "CANT. PRECIO IMPORTE DESCUENTO "
? REPLICATE("=",40)
ENDPROC
****************************************************************************************
PROCEDURE FINAL
FOR I = 1 TO 2
?
ENDFOR
? CHR(27)+"0"+ LETRAS
IF W_TOTDES<>0 .OR. W_DESGLO<>0
? "IMP BRUTO >" + Trans(W_IMPBRU,'9999,999.99') AT 10
ENDIF
IF W_TOTDES<>0
? "DESC X ART >" + Trans(W_TOTDES,'9999,999.99') AT 10
ENDIF
IF W_DESGLO<>0
? "DESC X VOL >" + Trans(W_DESGLO,'9999,999.99') AT 10
ENDIF
? "SUBTOTAL ->" + Trans(W_SUBTOT,'9999,999.99') AT 10
IF W_IVA>0
? "I.V.A. ->" + Trans(W_IVA,'9999,999.99') AT 10
ENDIF
? "TOTAL ->" + Trans(W_TOTAL,'9999,999.99') AT 10
?
IF W_PAGACON<>0
? "PAGO CON ->" + Trans(W_PAGACON,'9999,999.99') + " " + "CAMBIO ->" + Trans(W_CAMBIO,'9999,999.99') AT 10
ENDIF
?
SELECT FORPAG
GO TOP
SCAN
? Z_CLAVE+" "+SUBSTR(Z_DESCR,1,22)+" "+TRANSFORM(Z_IMP,"999,999.99")
ENDSCAN
? ' GIOVANA TESSA ' AT 8
? 'VANGUARDIA EN LENCERIA' AT 9
? '!!! GRACIAS POR SU COMPRA !!!' AT 5
? 'COMPROBANTE SIMPLIFICADO INCLUIDO' AT 3
? 'EN LA FACTURA GLOBAL DEL DIA' AT 5
FOR I=1 TO 9
? CHR(12)
ENDFOR
ENDPROC
Analiza este archivo lo mandas con un
COPY REPORTE.TXT > LPT1
sUERTE
