impresora,\\CARLOS\HP LaserJet 1022n
$
****marco general***
cuadro(2,0.2,80,51,8)
***LOGO
cuadro(2,0.2,80,8,8)

*********FOLIO
cuadro(60,8,80,12,8)
*******DATOS EMPRESA/COMPRADOR
cuadro(2,11.5,40,21,8)
cuadro(40,11.5,80,21,8)
//cuadro(2,14,80,15,8)
//cuadro(2,15,80,16,8)
***GENERALES PRODUCTO
cuadro(2,21,9,18,8)
cuadro(9,21,18,18,8)
cuadro(18,21,53,18,8)
cuadro(53,21,61,18,8)
cuadro(61,21,68,18,8)
cuadro(68,21,80,18,8)
*****************************
cuadro(2,42,55,51,8)
cuadro(54,42,80,51,8)

cuadro(2,42,54,46,8)
logo,11,1,66,6,C:\MEGA.bmp
/logo,11,0.2,20,1.5,C:\sif2000\logo2.bmp
/logo,11,0.2,20,1.5,C:\sif2000\logo2.bmp


maximo,140

tipo,Arial
tamaño,12
//@25,0.4,N O T A     D E     C O M P R A 
@62,9,FOLIO No. +CLDOC_F
tamaño,7
estilo,subrayada
//@10,2.2,VENTAS PLUS      Soluciones en Audio y Video
tamaño,9
estilo,normal
@6,9,TLALNEPANTLA EDO. MEXICO.  A:

dia(29.4,9,FEDOC_F)
@32,9,de
mletra(35.3,9,FEDOC_F)
@43,9,de
año(47,9,FEDOC_F)

@3,12,Para / To: +NOMBR_F
@3,13,Direcciòn / Adress:
@3,14,DIREC_F
@3,15,POBLA_F
@3,16,C.p.  +CPXXX_F
@3,17,Tel /PHONE: +TELEF_F
*sql(18,9.2,TELEF_P,PROVEEDO,CLPRV_P=,CLPRV_O)

@41,12,De / From: +MEGA COMERCIALIZADORA  
@41,13, SOLUCIONES EN AUDIO Y VIDEO

@41,14,Direcciòn / Adress:
@41,15, GUERRERO NO. 71-2 COL. SAN JAVIER  C.P. 54030
@41,16,TLALNEPANTLA EDO. MEX.
@41,17,Tel /Phone: + 53-90-61-29 

tamaño,7

*@7,14.2,FAVOR DE SURTIR LO SIGUIENTE SUJETO A TODAS LAS CONDICIONES E INSTRUCCIONES ESTABLECIDAS EN EL PRESENTE
*@9,15.2,PLEASE SEND THIS MATERIAL IN ACCORDING TO THIS CONDITIONS AND INSTRUCTIONS GIVE TO YOU IN THIS P.O.

tamaño,9

@3,19.1,CANT.
@3,20,QTY

@11,19.1,CODIGO
@12,20,CODE

@30,19.1,DESCRIPCION
@33,20,ITEM

@54,19.1,COSTO
@54,20,COST

@62,19.1,DESC
@62,20,%DISC

@71,19.1,TOTAL
@69,20,EXTENDED

@4,43,IMPORTE CON LETRA:   
@3,47,CONDICIONES DE PAGO / PAYMET: 
@3,49,OBSERVACIONES / OBSERVATIONS:

@3,46,FECHA DE ENTREGA / DATE OF DELIVERY:       +FEVEN_F
//@3,45,

@5,52,RECIBIDO
@30,52,ELABORO
@59,52,AUTORIZO

@2,53,__________________
@26,53,____________________
@55,53,_____________________
cadena2=+[001]
saltar(19)
tamaño,9
maximo,40
variable5=DECOT_F
$
&iniciadetalle
formato(##,##0.00)
moneda(2,3,cantidad)
@13,3,CLAVE

@19,3,Producto
tamaño,9

si(variable5<0) then
variable4=variable5/100
variable4=precio*variable4
variable3=precio-variable4
moneda(54,3,variable3)
terminacondicion

si(variable5=0)
moneda(53,3,precio,$)
terminacondicion

moneda(70,3,importe,$)
formato(#0.00)
saltar(1)
&terminadetalle
saltar,inicio
tamaño,10
@57,48,TOTAL 
moneda(64,48,IMTOD_F, $)
tipo,arial
estilo,negrita
tamaño,8
traduce(3,44,IMTOD_F)