PROGRAMA 'Reporte con logo'
*
* Este programa ilutra el uso de logo en un reporte
*
IGUAL AREA N10-MZ9 PAG TOT
IGUAL AREA FECHA-M20 FEC-DIA
*
* Sacar el LOGO, Se asume el logo 1
*
NUM-EMP = 1
BUSCAR DISCO LOGO EJECUTA 5 PRIN-G1 NUM-EMP
LEER DISCO LOGO NOM-EMP LOGO-EMP
EJECUTA 10
5 ERROR 'Logo de empresa 1 no registrado'
FIN
10 PAG = 0
SACAR PARAMETROS FECHA FEC-DIA
*
* Se pone los encabezados del reporte
*
*
1111 OPCION IMPRIMIR /NO-RENGLON-INICIAL /MARCO-D $
/SELECCIONAR-PAGINAS /ARCHIVO /BORRAR /PORTAPAPELES $
*
/DEFINIR-FONT 'SUIZO' 12 -10 $
/DF1 'SUIZO' 14 -8 $
*
/ENC. 1 LOGO-EMP /V /AVANCE-AL-FINAL /RENG. 40 /LONG. 40 $
20 NOM-EMP /V /F1 /CEL $
60 'Pagina' $
7 PAG /I /V /MOVER-PAGINA /JD $
2 '/' /I $
1 TOT /I /V /R1 /JI $
*
/ENC. 20 'Reporte de ....' $
*
/ENC. 60 'al' $
3 FEC-DIA /I /V /AP 5 $
*
/PIE 2 FEC-DIA /V $
57 PAG /V /MOVER-PAGINA /JD $
2 '/' /I $
1 TOT /I /V /JI /R1
*
* Aqui se ponen las impresiones del reporte
*
IMPRIMIR DETALLE 5 'Informacion del reporte 1'
IMPRIMIR DETALLE 2 $
'De forma predeterminada, Windows ME utiliza la ruta de acceso '
IMPRIMIR DETALLE 2 $
'de red como designaci¢n de puerto para impresoras de red. Debido '
IMPRIMIR DETALLE 2 $
'a que es ligeramente diferente de la ruta de acceso utilizada en '
IMPRIMIR DETALLE 2 $
'Windows 3.1 y algunos programas, podría tener problemas. Una ruta '
IMPRIMIR DETALLE 2 $
'de acceso de red (también conocida como UNC) aparece normalmente '
IMPRIMIR DETALLE 2 $
'con el siguiente formato:'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
' \\servidor\colaDeImpresi¢n'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'Sin embargo, las rutas de acceso de red en Windows ME tienden '
IMPRIMIR DETALLE 2 $
'a ser m s largas que las equivalentes en Windows 3.1 y esto crea '
IMPRIMIR DETALLE 2 $
'problemas con algunos programas. Si detecta problemas, puede regresar '
IMPRIMIR DETALLE 2 $
'al m‚todo de direccionamiento de recursos de red de Windows 3.1. '
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'Algunos programas pueden experimentar dificultades similares si la '
IMPRIMIR DETALLE 2 $
'ruta de acceso de red contiene un car cter de espacio. Este problema '
IMPRIMIR DETALLE 2 $
'puede resolverse si regresa al m‚todo de direccionamiento de recursos '
IMPRIMIR DETALLE 2 $
'de red de Windows 3.1 o si modifica la ruta de acceso de la red de '
IMPRIMIR DETALLE 2 $
'forma que no contenga espacios. Consulte a su administrador de red par'
IMPRIMIR DETALLE 2 $
'obtener ayuda acerca de c¢mo modificar el nombre '
IMPRIMIR DETALLE 2 $
'de la ruta de acceso de red.'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'Problemas al imprimir en impresoras PostScript a trav‚s de una red '
IMPRIMIR DETALLE 2 $
'-------------------------------------------------------------------'
IMPRIMIR DETALLE 2 $
'Si tiene dificultades al imprimir en una impresora PostScript de una '
IMPRIMIR DETALLE 2 $
'NetWare, puede que las p ginas de separaci¢n (tambi‚n denominadas '
IMPRIMIR DETALLE 2 $
'p ginas de t¡tulo) est‚n configuradas de forma incorrecta en el servi'
IMPRIMIR DETALLE 2 $
'NetWare. A menos que las p ginas de separaci¢n est‚n configuradas '
IMPRIMIR DETALLE 2 $
'correctamente en el servidor NetWare, ‚stas provocan errores y no se '
IMPRIMIR DETALLE 2 $
'imprime nada. Para resolver este problema puede intentar una de las '
IMPRIMIR DETALLE 2 $
'soluciones siguientes:'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'- Desactivar la casilla de verificaci¢n P ginas de t¡tulo en el cuadr '
IMPRIMIR DETALLE 2 $
' di logo Propiedades de impresora.'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'- Pedir al administrador de red que configure p ginas de separaci¢n '
IMPRIMIR DETALLE 2 $
' correctamente para una impresora PostScript en el servidor NetWare.'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'P ginas de separaci¢n no deseadas en una red NetWare desde '
IMPRIMIR DETALLE 2 $
'programas MS-DOS'
IMPRIMIR DETALLE 2 $
'----------------------------------------------------------'
IMPRIMIR DETALLE 2 $
'Si despu‚s de haber quitado las p ginas de separaci¢n como se '
IMPRIMIR DETALLE 2 $
'describe en la secci¢n anterior, aún aparecen p ginas de separaci¢n '
IMPRIMIR DETALLE 2 $
'no deseadas cuando imprime desde programas de MS-DOS, modifique la '
IMPRIMIR DETALLE 2 $
'designaci¢n de puerto para la impresora desde el nombre de la ruta '
IMPRIMIR DETALLE 2 $
'de acceso de red (UNC) al puerto capturado. '
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'Para modificar el puerto de la designaci¢n de puerto de la impresora:'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'1. Haga clic en Inicio, seleccione Configuraci¢n y, despu‚s, haga clic'
IMPRIMIR DETALLE 2 $
' Impresoras.'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'2. Haga clic con el bot¢n secundario del mouse (rat¢n) en el icono de '
IMPRIMIR DETALLE 2 $
' impresora que est‚ utilizando y, despu‚s, haga clic en Propiedades.'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'3. Haga clic en la ficha Detalles.'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'4. En el cuadro Imprimir en el siguiente puerto, haga clic en la entra'
IMPRIMIR DETALLE 2 $
' (\\Servidor\colaDeImpresi¢n) y, a continuaci¢n, haga clic en Aplica'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
' Éste es el puerto LPT que ha capturado.'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'5. Haga clic en Capturar puerto y, a continuaci¢n, haga clic en Acepta'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'6. Desactive la configuraci¢n P gina de t¡tulo como se ha descrito en '
IMPRIMIR DETALLE 2 $
' secci¢n anterior.'
IMPRIMIR DETALLE 2 $
' '
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'================================================'
IMPRIMIR DETALLE 2 $
'DISPONIBILIDAD DE FUENTES TRUETYPE PARA IMPRIMIR'
IMPRIMIR DETALLE 2 $
'================================================'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'Las fuentes TrueType normalmente no est n disponibles en impresoras '
IMPRIMIR DETALLE 2 $
'de chorro de tinta con resoluciones bajas (de 75 a 150 ppp). Esta '
IMPRIMIR DETALLE 2 $
'limitaci¢n no se aplica a las impresoras l ser ni matriciales. Las '
IMPRIMIR DETALLE 2 $
'fuentes TrueType tampoco est n disponibles cuando se utiliza el '
IMPRIMIR DETALLE 2 $
'controlador de impresora Gen‚rica/S¢lo texto.'
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'========================================='
IMPRIMIR DETALLE 2 $
'COMPATIBILIDAD CON CANON COLOR BUBBLE-JET'
IMPRIMIR DETALLE 2 $
'========================================='
IMPRIMIR DETALLE 2 $
''
IMPRIMIR DETALLE 2 $
'Es posible que advierta algunas diferencias de impresi¢n en '
IMPRIMIR DETALLE 2 $
'los controladores de Windows ME para las impresoras Canon Color Bubble'
IMPRIMIR DETALLE 2 $
'si actualiza desde una versi¢n anterior de Windows. Como parte de la '
IMPRIMIR DETALLE 2 $
'instalaci¢n de Windows ME, los controladores de las impresoras '
IMPRIMIR DETALLE 2 $
'Canon BJC-70, BJC-600, BJC-600e, BJC-800 y BJC-4000 para Windows 3.1 '
IMPRIMIR DETALLE 2 $
'se actualizan autom ticamente con los controladores de Windows ME '
IMPRIMIR DETALLE 2 $
'debido a que las versiones anteriores no funcionan con Windows ME.'
IMPRIMIR DETALLE 2 $
' '
IMPRIMIR DETALLE 2 $
'Para obtener informaci¢n acerca de la disponibilidad de controladores,'
IMPRIMIR DETALLE 2 $
'p¢ngase en contacto con el representante de Canon local (o consulte '
IMPRIMIR DETALLE 2 $
'la secci¢n "D¢nde encontrar m s Ayuda" del manual de la impresora).'
IMPRIMIR DETALLE 2 $
' '
IMPRIMIR DETALLE 2 $
' '
IMPRIMIR DETALLE 2 $
' '
*
* Al final se remplaza, despliega e imprime
*
TOT = PAG
OPCION IMPRIMIR /REMPLAZAR-ARCHIVO TOT
1112 EJECUTA RUTINA DESP-IMP
FIN
*
******************************************************************
*
RUTINA DESP-IMP
*
* Rutina para desplegar o imprimir
*
IGUAL AREA N10 TIPO-CON
IGUAL AREA X20 PAL-BUSC
*
OPCION TERMINAL AREA 7000 /MENU 3 0 0 /MARCO /POS. 14 25 $
/LONG. 8 30 /BN NORMAL VI NORMAL $
/COLOR AZUL AZUL BLANCO BLANCO NEGRO AZUL BLANCO $
/VARIAS-SELECCIONES $
/CAMPOS $
'Consultar por:' /ENC. $
1 '*Terminal' $
2 '*Impresora' $
3 'Terminal y *Buscar' $
5 '*Correo' $
4 'Fin' $
TIPO-CON /VAR-SEL. /DESP-LEC.
*
OPCION TERMINAL AREA 7002 /RENGLON /MARCO /POS. 19 15 $
/LONG. 3 50 /BN NORMAL VI NORMAL $
/COLOR NEGRO NEGRO BLANCO BLANCO NEGRO NEGRO BLANCO $
/CAMPOS 2 3 'Palabra a buscar:' PAL-BUSC /VAR. /LEC. /BLANCOS
*
* Desplegar y leer opcion
*
OPCION TERMINAL AREA 7000 /DESPLEGAR
5 LEER TERMINAL TIPO-CON
SI TIPO-CON = 4 EJECUTA 20
MOVER 'UNA' A PAL-BUSC
SI TIPO-CON <> 3 EJECUTA 10
OPCION TERMINAL AREA 7002 /DESPLEGAR /SALVAR-ANTERIORES /EMPALMAR
LEER TERMINAL PAL-BUSC
OPCION TERMINAL AREA 7002 /TERMINAR
*
* Ejecuta opcion
*
10 SI TIPO-CON = 5 EJECUTA 11
SI TIPO-CON = 2 OPCION IMPRIMIR /IMPRIMIR-ARCHIVO
SI TIPO-CON <> 2 OPCION IMPRIMIR /DESPLEGAR-ARCHIVO PAL-BUSC
EJECUTA 5
11 OPCION IMPRIMIR /ENVIAR-ARCHIVO 'rgm_pr@yahoo.com.mx' 'Prueba' $
'Esto es un correo' /RTF
EJECUTA 5
*
* Fin, borrar el archivo
*
20 OPCION TERMINAL AREA 7000 /TERMINAR
OPCION IMPRIMIR /BORRAR
RETORNO