RE:COMO IMPRIMO UN REPORTE PORMEDIO DE CODIGO
PROCEDURE ticket
SELECT * from vreportes WHERE co_alma = m.alma ORDER BY co_art INTO CURSOR vreportes1
SET PRINTER TO (impre)
* SET PRINTER TO
SET DEVICE TO PRINTER
SET PRINTER ON
SET PRINTER FONT 'Arial', 7
@ 1,0 say 'Almacen: ' + ALLTRIM(vreportes.des_sub)
@ 1,30 say 'Fecha: '
@ 1,39 say DATETIME()
@ 2,0 say IIF(vreportes1.tipo_ruta=1,"Puerta: ",IIF(vreportes1.tipo_ruta=9,"Detal: ","Ruta: "))
@ 2,9 say ALLTRIM(STR(vreportes1.ruta))
@ 3,0 say 'Descripción Cajas/Unid.'
@ 4,0 say REPLICATE('=',55)
totales = 0
fi = 5
SCAN
*@ fi,0 say alltrim(vreportes1.co_art)
@ fi,0 say ALLTRIM(vreportes1.art_des)
@ fi,53 say ALLTRIM(STR(vreportes1.total_art/vreportes1.uni_relac,10,4))
totales = totales + vreportes1.total_art/vreportes1.uni_relac
fi = fi + 1
ENDSCAN
@ fi,0 say REPLICATE('=',55)
fi = fi + 1
@ fi,0 say 'Totales: '
@ fi,53 say ALLTRIM(STR(totales,10,4))
fi = fi + 1
@ fi,0 say 'Número de renglones: '
@ fi,53 say RECCOUNT()
fi = fi + 1
@ fi,0 say 'NO TOMAR EN CUENTA ES SOLO PRUEBA PARA EL SISTEMA'
SET PRINTER to
SET PRINTER off
SET DEVICE TO screen
ENDPROC