impresora,Generic / Text Only /impresora,Star SP212 (TearBar) on LPT1: /impresora,Genérico / sólo texto on LPT1: /impresora,1 /******************************** variable4=0 $ si(variable4=0) tipo,Arial tamaño,16 estilo,negrita @15,0,COMEX @15,1,Los Remedios @2,2,bebe 470502 vd1 @7,3,ACEPTAMOS TARJETAS DE CREDITO tamaño,8 @4,4,Av. De los Arcos No. 220 Local B5 @3,5,Col. La Ribera Naucalpan, Edo. Mex. @6,6,Tels. 5300 7032 Y 5300 9758 @2,7, eduardo j. betancourt b. estilo,normal saltar(1) @1,5,HORA +HORAX_F @25,5,FECHA +FEDOC_F *@1,7,NOTA DE VENTA @1,6,CAJA +CLVEN_F *@1,9,NOMBRE +CLCLI_F @1,8,DESCRIPCION IMPORTE @1,9,----------------------------------- saltar(10) variable1=0 variable2=0 tamaño,9 variable4=1 variable3=10 terminacondicion $ & variable2=variable2+1 @1,1,variable2 @15,1,producto sql(5,1,CODIG_I,INVENTAR,CLPRO_I=,CLAVE) saltar(1) formato(##0.00) moneda(1,1,cantidad) formato(#,##0.00) @8,1,X moneda(16,1,precio) moneda(24,1,importe) saltar(1) variable1=variable1+[000] & saltar(2) @1,1,SUBTOTAL moneda(25,1,SUBTO_F,$) @1,2,I.V.A. moneda(25,2,IMIM2_F,$) @1,3,TOTAL moneda(25,3,IMTOD_F,$,Arial Bold) tamaño,7 traduce(1,4,IMTOD_F) tamaño,8 saltar(4) @1,1,------------------------------------ *saltar(2) *@15,1,SELLO *saltar(7) @10,1,GRACIAS POR SU COMPRA...... @11,2,LOS MEJORES PRODUCTOS @10,3,A LOS MEJORES PRECIOS.... saltar(4) @1,1,UNIDADES moneda(40,1,variable1) @1,2,PRODUCTOS moneda(40,2,variable2) /********************************** saltar(1) @1,1, @1,2, @1,3, --------------------------------- @1,4, @1,5, @1,6, @1,7, @1,8, @1,9,.