impresora,Lexmark Optra S 1255 (MS)
lineas,18
$
tipo,arial
tamaņo,8
saltar(1)
@4,3.6,NOMBR_F
@4,4.4,DIREC_F
@18,6.2,CP +CPXXX_F
@4,5.2,POBLA_F
@4,6.2,RFC +RFCXX_F
@58,1,FEDOC_F
formato(##,##0.00)
variable6=0+[009]

saltar(6)
tamaņo,8
variable5=DECOT_F

vsql(1,1,ZONAX_C,CLIENTE,CLCLI_C=,CLCLI_F,cadena4)

si(cadena4=EXT)
//@69,15.4,FOB
//moneda(73,15.4,SUBTO_F, $)
/@69,16.2,FLETE
/moneda(73,16.2,IMIM2_F, $)
@69,17,CFR
moneda(73,17,IMTOD_F, $)
terminacondicion

si(cadena4!EXT)
moneda(73,15.4,SUBTO_F, $)
moneda(73,16.2,IMIM2_F, $)
moneda(73,17,IMTOD_F, $)
terminacondicion

tamaņo,8
maximo,30
si(NOMDI_F=DLL_IN)
tingles(14.1,14.5,IMTOD_F,DLL_IN)
terminacondicion
si(NOMDI_F!DLL_IN)
traduce(14.1,14.5,IMTOD_F)
terminacondicion
maximo,100
saltar(4)
variable2=0
$


&INICIADETALLE
variable2=variable2+1
formato(##,##0.00)
si(clave!COMENTARIO^clave!FLETE)
moneda(17,1,cantidad)
@14,1,unidad
@24,1,producto
moneda(63,1,precio, $)
moneda(73,1,importe, $)
terminacondicion

si(clave=COMENTARIO)
@24,1,producto
terminacondicion

saltar(1)
si(clave=FLETE)
variable1=0+precio
cadena6=FLETE
terminacondicion

&TERMINADETALLE
saltar,inicio
si(cadena6=FLETE)
saltar(7)
@69,15.4,FOB
variable2=SUBTO_F-variable1
moneda(73,15.4,variable2, $)
@69,16.2,FLETE
moneda(73,16.2,variable1, $)
terminacondicion