impresora,1
$INCIAENCABEZADO
tipo,Comic Sans MS
tamaño,12
dia(31,7,FEDOC_F)
mletra(43,7,FEDOC_F)
año(65,7,FEDOC_F)
@10,10,NOMBR_F
@12.5,12,DIREC_F
@17,14.5,RFCXX_F
si([009]<1)
@65,14.5,CONTADO
terminacondicion
si([009]>0)
@65,14.5,CONDI_F+ días
terminacondicion
tamaño,10
traducir(3,45,IMTOD_F)
moneda(65,47,SUBTO_F)
moneda(65,49,IMIM2_F)
moneda(65,51,IMTOD_F)
saltar(1)
$
variable1=0+0
&INICIADETALLE
variable1=variable1+1
tipo,Century Gothic
tamaño,10
@0,17,variable1
formato(###)
moneda(3,17,CANTIDAD)
@15,17,PRODUCTO
tamaño,10
formato(###,###.00)
moneda(59,17,PRECIO,$)
moneda(69,17,IMPORTE,$)
saltar(1)
&FINALIZADETALLE