impresora,Generico / Solo Texto
/********************************
*variable4=0
//****lineasmaximo,100
$
*si(variable4=0)
tipo,Arial
tamaņo,9
estilo,normal
@0,0,BARNICES PINTURAS MOLDURAS APLIQUES  
@1,1,=====================================
@4,2,MADERA DECORATIVA, S.A. DE C.V.
@10,3,RFC: MDE-980514-7H9
tamaņo,8
@2,4,JOSE T. CUELLAR 106 ESQ 5 DE FEBRERO
@5,5,Col. OBRERA, DELEG. CUAUHTEMOC
@5,6,CP.06800 MEXICO, DISTRITO FEDERAL
@12,7,TEL: 5740-3452
estilo,normal
//saltar(1)
@1,8,HORA:
@6,8,HORAX_F
@18,8,FECHA:
@25,8,FEDOC_F
*@1,7,NOTA DE VENTA
@1,9,Oper: +CLVEN_F
/@6,9,
@9,9,Cliente: +NOMBR_F
/@1,10,NOMBR_F
//saltar(2)
@1,11,DESCRIPCION                   IMPORTE
@1,12,====================================
saltar(12)
variable1=0
variable2=0
tamaņo,9
variable4=1
variable3=10
maximo,200
terminacondicion
$
&
variable2=variable2+1
@1,1,variable2
/vsql(5,1,CODIG_I,INVENTAR,CLPRO_I=,CLAVE,cadena1)
/@5,1,cadena1
/si(cadena1<0)
/vsql(5,1,CODIG_I,INVENTAR,CLPRO_I=,CLAVE,cadena2)
/@5,1,cadena2
/terminacondicion
@5,1,clave
@15,1,producto
saltar(1)
formato(##0.00)
moneda(1,1,cantidad)
formato(#,##0.00)
@10,1,X
moneda(15,1,precio)
moneda(28,1,importe)
saltar(1)
variable1=variable1+[000]
&
maximo,100
saltar(1)
/@1,1,SUBTOTAL
/moneda(25,1,SUBTO_F,$)
/@1,2,I.V.A.
/moneda(25,2,IMIM2_F,$)
@1,1,TOTAL
moneda(9,1,IMTOD_F,$,Arial Bold)
tamaņo,8

traduce(1,2,IMTOD_F)
tamaņo,8
saltar(2)
@1,1,------------------------------------
*saltar(2)
*@15,1,SELLO
*saltar(7)
@7,2,GRACIAS POR SU PREFERENCIA......
@4,3,LOS MEJORES PRODUCTOS

variable4=cldoc_f-15
@30,3,variable4
@10,4,A LOS MEJORES PRECIOS....                           
@4,5,ESPERAMOS NUEVAMENTE SU VISITA!!!!
saltar(5)
@1,1,UNIDADES
moneda(8,1,variable1)
@18,1,PRODUCTOS
moneda(24,1,variable2)
@1,2,SLCCD 
formato(#,##0.00)
variable3=IMTOD_F
variable4=variable3*.02
variable5=1
entero,variable4,variable5,variable5
@8,2,variable5

/**********************************
saltar(1)
@1,1,
@1,2,
@1,3, 
@1,4,  
@1,5,  
@1,6,  
@1,7,  
@1,8,  
@1,9,  
@1,10,
@1,11,.
 

escape,7