impresora,Generico / Solo Texto
//impresora,Generic / Text Only
///impresora,Star SP512 Line Mode Printer

/********************************
*variable4=0
//****lineasmaximo,100
$
*si(variable4=0)
tipo,Draft
/tipo,Arial
tamaņo,9
/estilo,normal
/estilo,negrita
@1,0,Madera Decorativa S.A de C.V  
@1,1,Jose T Cuellar # 106 Esq. 5 de Febrero
@1,2, Col Obrera Del Cuauhtemoc Mexico D.F. 
@5,3,CP 06800 mde9206227h9
tamaņo,8
@4,4,CADENA DICOPA
@5,5,SISTEMA DE RECARGAS ELECTRONICAS.
tamaņo,10
@3,6,TELEFONO   57403452
tamaņo,7
/@7,7,EDUARDO JOSE BETANCOURT BLAKE
/estilo,normal
tamaņo,8
saltar(1)
@1,7,HORA:
@7,7,HORAX_F
@18,7,FECHA: +FEDOC_F
/@21,7,FEDOC_F
*@1,7,NOTA DE VENTA
@1,8,CAJA +CLVEN_F
*@1,9,NOMBRE +CLCLI_F
@1,9,DESCRIPCION                    IMPORTE
@1,10,---------------------------------------
saltar(10)
tamaņo,8
variable1=0
variable2=0
tamaņo,9
variable4=1
variable3=10
terminacondicion
$
&
tamaņo,8
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
////@5,1,cadena2
terminacondicion
@15,1,producto
/////@12,1,producto
saltar(1)
formato(##0.00)
moneda(1,1,cantidad)
formato(#,##0.00)
@10,1,X
moneda(13,1,precio)
moneda(25,1,importe)
saltar(1)
variable1=variable1+[000]
&
saltar(2)
/@1,1,SUBTOTAL
/moneda(25,1,SUBTO_F,$)
/@1,2,I.V.A.
/moneda(25,2,IMIM2_F,$)
@1,1,TOTAL
moneda(25,1,IMTOD_F,$,Arial Bold)
tamaņo,8

traduce(1,2,IMTOD_F)
tamaņo,8
saltar(2)
@0,1,////////////////////////////
*saltar(4)
*@15,1,SELLO
*saltar(7)
@1,2,POR FAVOR ANOTE SU NUMERO DE CELULAR
@1,3,  **_________________________**
@0,4,Circule o Subraye  PROOVEDOR  CELULAR
@0,5,TELCEL  Movistar  UNEFON   Iusacell   JgO
@1,6,SU NUMERO DE FOLIO DE SU RECARGA ES:
@1,7, ******______________________*******
@1,8, ACLARACIONES DIRECTO CON SU PROVEEDOR CELULAR
@15,11,Cajero +CLDOC_F
/variable4=cldoc_f-27000
/@30,3,NUMERO DE FOLIO DE SISTEMA variable4
/@8,4,A LOS MEJORES PRECIOS....                           
/saltar(1)
@1,12,UNIDADES
moneda(40,12,variable1)
@1,13,PRODUCTOS
moneda(40,13,variable2)
@1,14,SLCCD 
formato(#,##0.00)
variable3=IMTOD_F
variable4=variable3*.02
variable5=1
entero,variable4,variable5,variable5
@40,14,variable5
/**********************************
/saltar(2)
@1,15,
@1,16,
@0,17, 
@1,18,  
@1,19,  
@1,20,  
@1,21, 
@1,22,
@1,23,.
/@1,7,  
/@1,8,  
/@1,9,  
/@1,10,.   

*//escape,7