impresora,Epson FX-880
/impresora,EPSON LX-300+
/impresora,0
********FORMATO DE COMPRAS*******
tipo,Arial
tamaņo,10
saltar(0)
@25,1,COMEX LOS REMEDIOS
@27,2,ENTRADA No :      +CLDOC_O
@5,3,RECIBIMOS DE : +NOMBR_O
@5,4.4,DIREC_O
*@5,5.2,DIRE2_F
*@5,7.2,C.P.  +CPXXX_F
@5,6,POBLA_O
@9,13.5,TELEF_O
@38,7.2,RFPRO_O
*@50,6,CLCLI_F
*@60,6,CLVEN_F
*@70,6,CONDI_F
*sql(1,1,NOMBR_V,VENDEDOR,CLVEN_V=,CLVEN_F)
*abortar
@69,2,FEDOC_O
@50,3,RECEP. +FEREC_O
@50,4,PAGO: +FEPAG_O
@50,2,No FACT :+REFER_O

formato(##,##0.00)
*@10,40,PAGO EN UNA SOLA EXHIBICION
variable6=0+[009]
saltar(6)
tamaņo,8
moneda(70,36,SUBTO_O,$)
moneda(70,37,TIMPU_O,$)
moneda(70,38,IMDOC_O,$)
tamaņo,8
traduce(10,39,IMDOC_O)
&INICIADETALLE
formato(##0.000)
moneda(2,3.3,Cantidad,)
@20,3.3,Producto
sql(11,3.3,CODIG_I,INVENTAR,CLPRO_I=,CLAVE)
formato(##,##0.00)
moneda(57,3.3,Precio,$)
variable1=Impuesto
si(variable1>0)
moneda(70,3.3,Importe,$)
terminacondicion
si(variable1<1)
moneda(70,3.3,Importe,$)
terminacondicion
saltar(1)
&TERMINADETALLE