impresora,\\PRINCESITA1\Generic / Text Only (Copiar 1)
$
@4,1,MATERIAS PRIMAS LA PRINCESITA
@8,2,R.F.C. SACJ 720125 370
@4,3,CD. LOPEZ MATEOS 8-A1-BODEGAS
@13,4,TEL.35 36 38 09
*@12,5,COL. LOMAS LINDAS
*@11,6,ATIZAPAN, EDO. DE MEX.
*@13,7,TEL. 5816 0358
saltar(5)
*@0,0,VENTA
@0,0,CLDOC_F
*@1,2,CLIENTE
*@10,2,CLCLI_F
*@1,3,NOMBRE
*@9,3,NOMBR_F
*@1,4,DIRECCION
*@10,4,DIREC_F
*@1,5,POBLA_F
@0,1,FECHA
@8,1,FEDOC_F
@23,1,HORA +HORAX_F
//@1,2,VENDEDOR 
sql(1,2,NOMBR_V,VENDEDOR,CLVEN_V=,CLVEN_F)
$
saltar(3)
variable1=0
variable6=0
&
formato(##0.00)
moneda(0,1,cantidad,)
@7,1,UNIDAD
@12,1,Producto
saltar(1)
formato(##0.00)
moneda(13,1,Precio,)
formato(#,##0.00)
moneda(22,1,Importe,)
saltar(1)
&
saltar(1)
estilo,subrayado
@22,1,TOTAL
moneda(27,1,IMTOD_F,*** $)
saltar(1)
*@1,1,--------------------------------------
saltar(1)
estilo,normal
traduce(0,1,IMTOD_F)
saltar(1)
@1,1,           
*@0,1,GRACIAS POR SU COMPRA....
@0,2,CONSERVESE PARA CUALQUIER RECLAMACION   
saltar(3)
@0,1,        
saltar(3)
@1,2,                                                 
*******************************************
cambiaimpresora,\\PRINCESA4\Generic / Text Only
$
@8,0,***COPIA***
saltar(1)
*@0,0,VENTA
@0,0,CLDOC_F
*@1,2,CLIENTE
*@10,2,CLCLI_F
*@1,3,NOMBRE
*@9,3,NOMBR_F
*@1,4,DIRECCION
*@10,4,DIREC_F
*@1,5,POBLA_F
@0,1,FECHA
@8,1,FEDOC_F
@23,1,HORA +HORAX_F
sql(0,2,NOMBR_V,VENDEDOR,CLVEN_V=,CLVEN_F)

$
saltar(2)
variable1=0
variable6=0
&
variable3=tara-0.1
si(variable3<cantidad)
variable6=1
terminacondicion
formato(##0.00)
moneda(0,1,cantidad,)
@7,1,UNIDAD
@12,1,Producto
saltar(1)
formato(##0.00)
moneda(13,1,Precio,)
formato(#,##0.00)
moneda(22,1,Importe,)
saltar(1)
&
saltar(1)
estilo,subrayado
@22,1,TOTAL
moneda(27,1,IMTOD_F,*** $)
saltar(4)
@1,1,
@1,2,
@1,3,
@1,4,
@1,5,.
*******SURTIDO*********
//cadena1=N
//dato,cadena1,IMPRIMIR SURTIDO?
si(variable6=0)
abortar
terminacondicion

saltar(inicio)
cambiaimpresora,Star SP512 Line Mode Printer
$
tamaño,9
tipò,arial
estilo,negrita
@20,0,***SURTIDO***
saltar(1)
@0,0,No. +CLDOC_F
@0,1,FECHA
@16,1,FEDOC_F
@45,1,HORA +HORAX_F
sql(0,2,NOMBR_V,VENDEDOR,CLVEN_V=,CLVEN_F)
$
saltar(3)
variable1=0
&
tamaño,9
tipò,arial
estilo,negrita
variable3=tara-0.1
si(variable3<cantidad)
formato(##0.00)
moneda(0,1,cantidad,)
@18,1,UNIDAD
@25,1,Producto
saltar(1)
formato(##0.00)
moneda(3,1,Precio,)
formato(#,##0.00)
moneda(22,1,Importe,)
saltar(1)
terminacondicion
&