impresora,0
tamaņo,12
$
$
lineasmaximo,500
@5,0.4,VENTA
@14,0.4,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
@1,6,FECHA
@8,6,FEDOC_F
sql(8,7,NOMBR_V,VENDEDOR,CLVEN_V=,CLVEN_F)
saltar(8)
variable1=8


@1,1,Cantidad
@9,1,Cantidad
@18,1,Cajas
@27,1,Piezas
@35,1,Unidad
@40,1,Producto
@58,1,Precio
@73,1,Importe
saltar(1)


&
variable1=0
si ([009]>0)
variable1=[000]/[009]
modulo(cantidad,factor,variable2)
entero(cantidad,factor,variable3)
terminacondicion
formato(##0.00)
moneda(1,1,Cantidad,)
si (variable1>0)
moneda(9,1,variable1,)
formato(#,##0)
moneda(18,1,variable3,)
moneda(27,1,variable2,)
formato(##0.00)
terminacondicion
color,rojo
@35,1,Unidad
color,negro
@40,1,Producto
*@15,1,Descuento
formato(##,##0.00)
moneda(58,1,Precio,$)
moneda(73,1,Importe,$)
variable1=variable1+1
saltar(1)
&
saltar(1)
estilo,subrayado
@1,1,TOTAL
moneda(8,1,IMTOD_F,$)
saltar(1)
estilo,normal
traduce(1,1,IMTOD_F)
saltar(1)
@1,1,----------------------------------------
saltar(1)
@1,1,   
saltar(1)
@1,1,   
saltar(1)
@1,1,   
saltar(1)
@1,1,   
saltar(1)
@1,1,   
saltar(1)
@1,1,   
******************************************
*cambiaimpresora,1
*$
*$
*lineasmaximo,500
*@0,0,VENTA
*@9,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
*@1,6,FECHA
*@8,6,FEDOC_F
*sql(8,7,NOMBR_V,VENDEDOR,CLVEN_V=,CLVEN_F)
*saltar(8)
*variable1=8
*&
*formato(##0)
*moneda(0,1,Cantidad,)
*@1,1,Clave
*@1,1,Producto
*@15,1,Descuento
*formato(##,##0.00)
*moneda(40,1,Precio,$)
*moneda(55,1,Importe,$)
*variable1=variable1+1
*saltar(1)
*&
*saltar(1)
*estilo,subrayado
*@1,1,TOTAL
*moneda(8,1,IMTOD_F,$)
*saltar(1)
*estilo,normal
*traduce(1,1,IMTOD_F)
*saltar(1)
*@1,1,----------------------------------------
*saltar(1)
*@1,1,   
*saltar(1)
*@1,1,   
*saltar(1)
*@1,1,   
*saltar(1)
*@1,1,   
*saltar(1)
*@1,1,   
*saltar(1)
*@1,1,