Informes Con Visual Foxpro 9

INFORMES

CON

VISUAL FOXPRO 9

Walter R. Ojeda Valiente Asunción – Paraguay Paraguay Mayo de 2017

Walter R. Ojeda Valiente

INDICE INTRODUCCIÓN---------------------------------------------TABLAS USADAS EN ESTE DOCUMENTO -------------------------LA INTERFAZ CON EL USUARIO ------------------------------PROTECCIÓN DEL INFORME ----------------------------------Protección de objetos --------------------------------Nombres de campos de texto en tiempo de diseño -------ToolTips en tiempo de diseño -------------------------DATOS AGRUPADOS -----------------------------------------INFORMES CON MÚLTIPLES BANDAS DE DETALLE ----------------CÁLCULO DE TOTALES PREVIOS ------------------------------EL OBJETO REPORT LISTENER -------------------------------NUEVA VENTANA DE VISTA PREVIA (PREVIEW) -----------------CREANDO UNA PÁGINA WEB ----------------------------------CREANDO UN ARCHIVO XML ----------------------------------ENVIANDO EL ARCHIVO A UN GRÁFICO ------------------------ESTABLECIENDO LA VENTANA DE VISTA PREVIA ----------------POSICIONAMIENTO ABSOLUTO --------------------------------RECORTE DE LOS CAMPOS DE TEXTO --------------------------BARRAS CON COLORES ALTERNADOS ---------------------------CHECKBOXS EN LOS INFORMES -------------------------------INFORMES CON CORTES DE CONTROL FLEXIBLES ----------------CAMBIAR EL TAMAÑO DEL PAPEL -----------------------------HACKEANDO UN INFORME ------------------------------------Tipos de objeto --------------------------------------Códigos de objeto ------------------------------------CONTANDO LA CANTIDAD DE GRUPOS --------------------------TRUCOS Y CONSEJOS ---------------------------------------CONCLUSIÓN -----------------------------------------------

2

3 4 10 11 11 17 21 24 28 37 40 43 46 48 51 53 55 56 58 59 61 65 67 69 70 72 76 79


INTRODUCCIÓN Aunque Visual FoxPro 9 introdujo muchas mejoras que pueden ser usadas cuando se crea un informe, muchas de ellas aún hoy en día siguen siendo desconocidas para una gran cantidad de programadores. El objetivo de este documento es mostrar lo que fue agregado y lo que fue mejorado en esta versión. Ahora tenemos a nuestra disposición un más completo arsenal de herramientas que nos permitirán crear informes con mayor calidad y en menor tiempo que con las versiones anteriores. Los informes son cruciales para nuestras aplicaciones, sirven tanto para analizar los terabytes de datos que generan los usuarios como para que se recuerden del número de teléfono de la secretaria. Este documento no está dirigido a los principiantes en la creación de informes quienes aún no saben lo que es una banda de títulos o una banda de detalles, por ejemplo, sino a quienes ya tienen bastante experiencia y han creado decenas o centenas de informes y quieren saber como mejorarlos. Para facilitar tu tarea, se han incluido en el archivo .ZIP que contiene a este documento todas las tablas (con formato .DBF) y todos los informes (con extensión .FRX) que he utilizado para elaborarlo, además de un formulario MAIN.SCX que permite llamar a algunos de los ejemplos, y también dos programas .PRG que realizan algunas tareas interesantes. Cuando termines de leer este documento, tus habilidades para crear informes con Visual FoxPro 9 probablemente habrán aumentado. Si tienes alguna duda, pregunta, o consulta, puedes contactarme en: [email protected]

3


TABLAS USADAS EN ESTE DOCUMENTO A través de este documento se verán muchas capturas de pantalla que mostrarán el resultado de la ejecución de los informes, cada uno de esos informes puede estar basado en una o más tablas. Para entender mejor lo que muestran es que a continuación se detallan las estructuras y los registros de esas tablas.

TABLA: PAISES PAI_IDENTI

N

2

PAI_NOMBRE

C

20

&& Identificador && Nombre del país

INDEX ON PAI_IDENTI TAG PAI01 INDEX ON PAI_NOMBRE TAG PAI02

TABLA: SUCURSALES SUC_IDENTI

N

2

SUC_NOMBRE

C

25

&& Identificador && Nombre de la Sucursal

INDEX ON SUC_IDENTI TAG SUC01 INDEX ON SUC_NOMBRE TAG SUC02

TABLA: CLIENTES CLI_IDENTI

N

10

&& Identificador

CLI_NOMBRE

C

40

&& Nombre del Cliente

CLI_IDEPAI

N

2

&& Identificador del país

4


CLI_IDESUC

N

2

&& Identificador sucursal

INDEX ON CLI_IDENTI TAG CLI01 INDEX ON CLI_NOMBRE TAG CLI02 INDEX ON CLI_IDEPAI TAG CLI03 INDEX ON CLI_IDESUC TAG CLI04

TABLA: PRODUCTOS PRD_IDENTI

N

10

&& Identificador

PRD_NOMBRE

C

60

&& Nombre del Producto

PRD_PRECIO

N

10

&& Precio unitario de venta

PRD_PORIVA

N

2

&& Porcentaje I.V.A. que paga

INDEX ON PRD_IDENTI TAG PRD01 INDEX ON PRD_NOMBRE TAG PRD02

TABLA: VENTASCAB

(ventas cabecera)

VTC_IDENTI

N

10

&& Identificador

VTC_FECHAX

D

8

&& Fecha de la venta

VTC_TIPDOC

N

1

&& 1=Contado, 2=Crédito

VTC_NRODOC

C

15

&& Número de la Factura

VTC_IDECLI

N

10

&& Identificador del Cliente

INDEX ON VTC_IDENTI TAG VTC01 INDEX ON DTOS(VTC_FECHAX) DTOS (VTC_FECHAX) TAG VTC02 INDEX ON VTC_NRODOC TAG VTC03 INDEX ON VTC_IDECLI TAG VTC04

5


TABLA: VENTASDET

(ventas detalles)

VEN_IDENTI

N

10

&& Identificador

VEN_IDECAB

N

10

&& Identificador de la cabecera

VEN_IDEPRD

N

10

&& Identificador del Producto

VEN_CANTID

N

5

VEN_PRECIO

N

10

&& Cantidad vendida && Precio unitario de venta

INDEX ON VEN_IDENTI TAG VEN01 INDEX ON STR(VEN_IDECAB) STR (VEN_IDECAB) + STR STR(VEN_IDENTI) (VEN_IDENTI) TAG VEN02

TABLA: COBRANZAS COB_IDENTI

N

10

&& Identificador

COB_IDECLI

N

10

&& Identificador del Cliente

COB_FECHAX

D

8

COB_NRODOC

C

15

Número de la Factura cobrada

COB_RECIBO

C

15

Número del Recibo entregado

COB_MONTOX

N

10

Monto cobrado al Cliente

Fecha de la cobranza

INDEX ON COB_IDENTI TAG COB01 INDEX ON COB_IDECLI TAG COB02

6


Captura 1. Los registros de la tabla PAISES

Captura 2. Los registros de la tabla SUCURSALES

Captura 3. Los registros de la tabla CLIENTES

7


Captura 4. Los registros de la tabla PRODUCTOS

Captura 5. Los registros de la tabla VENTASCAB

8


Captura 6. Los registros de la tabla VENTASDET

Captura 7. Los registros de la tabla COBRANZAS

9


LA INTERFAZ CON EL USUARIO La interfaz ha cambiado, en versiones anteriores se tenía una pantalla de diálogo para cada tarea, en Visual FoxPro 9 se tiene una sola pantalla de diálogo pero tabulada, para que todas las opciones disponibles puedan ser accedidas desde un solo lugar. Eso facilita nuestro trabajo.

Captura 8. Las propiedades del informe

Como puedes ver, hay una pestaña para Page Layout , otra pestaña para Optional Bands, otra pestaña para Data Grouping , etc. En un solo cuadro de diálogo tienes todo lo que puedes pu edes necesitar.

10


PROTECCIÓN DEL INFORME Protección de objetos Si les permites a los usuarios modificar tu informe, entonces puedes necesitar que exista un nivel de protección para que no hagan un desastre. Ya sabes, usuarios bobos nunca faltan. Es por eso que en Visual FoxPro 9 existe una nueva palabra clave: PROTECTED

Para permitir a los usuarios modificar un informe, puedes escribir:

MODIFY REPORT REPORT MiInforme MiInforme

Para permitir a los usuarios modificar un informe, pero protegiéndolo:

MODIFY REPORT REPORT MiInforme MiInforme PROTECTED PROTECTED

Veamos un ejemplo. Creamos un informe con el nombre LST01 y le agregamos una etiqueta (CLIENTES), un campo de texto (CLI_NOMBRE), y una línea horizontal. Recuerda que los usuarios podrán modificar este informe, tienen esa posibilidad, nuestra aplicación se los permite. Lo que haremos ahora será limitar la cantidad de errores que ellos puedan cometer.

11


Captura 9. Protegiendo una etiqueta

En la Captura 9. vemos como proteger a una etiqueta. En este caso queremos proteger a la etiqueta CLIENTES para que los usuarios no puedan moverla ni eliminarla. Lo conseguimos haciendo doble clic sobre ella, luego clic sobre la pestaña Protection y luego marcando “Object cannot be moved or resized” (el objeto no puede ser movido ni se puede cambiar su tamaño) y “Object cannot be deleted” (el objeto no puede ser eliminado).

Cuando desde nuestra aplicación se ejecute el comando:

MODIFY REPORT REPORT LST01 LST01 PROTECTED PROTECTED Los usuarios verán lo siguiente:

Captura 10. La etiqueta CLIENTES está protegida

12


Donde podrán cambiar algunas de las propiedades de la etiqueta

CLIENTES pero no podrán moverla, ni cambiarle el tamaño, ni eliminarla, ya que todas esas opciones les fueron deshabilitadas. Al hacer doble clic sobre esa etiqueta, el cuadro de diálogo que se verá será el siguiente:

Captura 11. Las propiedades no protegidas de la etiqueta CLIENTES

Si comparas la Captura 9. con la Captura 11. notarás que la pestaña Protection ha desaparecido. Eso es lógico, si los usuarios pudieran ver la

pestaña Protection entonces cuando quisieran podrían quitar cualquier protección que nosotros hubiéramos establecido.

13


De la misma manera que hicimos para proteger a una etiqueta también podemos proteger a un campo de texto, a una línea, a un rectángulo, a una banda, o a cualquier otro objeto. Veamos ahora como proteger a un campo de texto, aunque como es casi lo mismo que proteger a una etiqueta seguramente ya sabes como realizar esa tarea.

Captura 12. Las protecciones al campo de texto CLI_NOMBRE

En este caso, no queremos que los usuarios puedan eliminar al campo de texto CLI_NOMBRE, por lo tanto lo protegemos haciendo doble clic sobre él y luego en la pestaña Protection marcamos la casilla “Object cannot be deleted” (el objeto no puede ser elim inado). Los usuarios podrán cambiar

muchas propiedades del campo de texto CLI_NOMBRE, por ejemplo su color, su tamaño, si se mostrará normal o en negritas, etc., pero no podrán eliminarlo porque esa opción no les permitimos que tengan.

14


Cuando en nuestra aplicación se ejecute el comando:

MODIFY REPORT REPORT LST01 LST01 PROTECTED PROTECTED Y los usuarios hagan doble clic sobre el campo de texto CLI_NOMBRE, verán la siguiente pantalla:

Captura 13. Las propiedades no protegidas del campo texto CLI_NOMBRE

Donde como puedes ver, la pestaña Protection ha desaparecido. Si no hubiera desaparecido, los usuarios podrían quitar las protecciones que les hubiéramos puesto al campo de texto. Ahora, los usuarios podrán cambiar muchas de las propiedades de

CLI_NOMBRE pero no podrán eliminarlo porque no tienen permiso para eliminar ese campo de texto.

15


También las bandas pueden ser protegidas. Por ejemplo, si hacemos doble clic sobre la banda Detail (detalles), veremos sus propiedades, y en la pestaña Protection podremos determinar si el tamaño de la banda puede ser cambiado o no y si el cuadro de diálogo de las propiedades será visible o no.

Captura 14. Protegiendo a la banda de Detalles

Desde luego que de la misma manera también podríamos proteger a las bandas Page Header , Page Footer , etc.

16


Nombres de campos de texto en tiempo de diseño Quizás notaste que en la pestaña Protection de los campos de texto te preguntan por Design-time caption .

Captura 15. Design-time caption

¿Qué es eso de Design-time caption , para qué sirve? Se trata del título o nombre, que tendrá un campo de texto en tiempo de diseño, cuando el usuario lo esté editando. Normalmente, cuando se modifica un informe, en los campos de texto se ve el nombre del campo correspondiente, algo como:

17


Captura 16. En tiempo de diseño se muestra el nombre del campo

Sin embargo, si lo deseamos, podemos ocultar el nombre de nuestro campo para que el usuario no pueda verlo. En su lugar verán el nombre o el alias que se nos haya ocurrido poner, algo como:

Captura 17. Un nombre alternativo para el campo de texto

18


Entonces, lo que verá el usuario cuando modifique al informe será:

Captura 18. El usuario ve el nombre alternativo del campo de texto

Si comparas la Captura 16. con la Captura 18. notarás que el campo de texto tiene otro nombre. En la Captura 16. se llamaba CLI_NOMBRE (que es el nombre verdadero del campo) y en la Captura 18. se llama Nombre del

Cliente (que es un nombre alternativo para ese campo). Sin embargo, si el usuario hace doble clic sobre el campo Nombre del

Cliente verá la siguiente pantalla:

Captura 19. Al hacer doble clic sobre el campo de texto se ve el nombre real

19


Y allí está viendo el nombre verdadero del campo de texto. ¿Para qué entonces sirve tener un Design-time caption ? Pues para que al usuario le sea más fácil entender el significado o la utilidad de nuestro campo de texto. Nosotros como programadores nos podemos sentir cómodos con un campo llamado SAL_ULTFVE pero para los usuarios eso puede parecer chino, algo inentendible, y estarán más felices si en su lugar les mostramos Ultima fecha de venta. Entonces, el texto que escribimos en Design-time Caption está dirigido normalmente a los usuarios que modificarán nuestro informe. No será de mucha utilidad para nosotros, pero para ellos sí.

20


ToolTips en tiempo de diseño Otra facilidad que podemos brindarles a los usuarios son los ToolTips , o sea los textos de ayuda que se muestran cuando colocamos el cursor sobre un objeto.

ca mpo de texto CLI_NOMBRE Captura 20. Poniendo un ToolTip para el campo

Con doble click en (1) elegimos el campo de texto, en (2) editamos el ToolTip de ese campo de texto, y en (3) escribimos el mensaje descriptivo.

21


Captura 21. El ToolTip es visible solamente en tiempo de diseño

Para que se pueda agregar o cambiar un ToolTip, debemos escribir:

MODIFY REPORT REPORT MiInforme MiInforme

Ya que si escribimos:

MODIFY REPORT REPORT MiInforme MiInforme PROTECTED PROTECTED

No tendremos la opción de editar el ToolTip . Sí podremos ver los que ya se hayan establecido previamente, pero no podremos agregar nuevos ni modificar ni eliminar a los ya existentes. Recuerda que los ToolTips sirven para ayudar a los usuarios que modifican informes, para facilitarles el trabajo.

22


Y por ese motivo no se les puede permitir editar los ToolTips o podrían escribir algo fuera de lugar. Si el usuario Luis edita al ToolTip y escribe una estupidez, luego cuando el usuario Juan modifique al informe no verá al ToolTip original sino la estupidez que escribió Luis. Evidentemente, eso no

estaría bien, no es admisible. Algo muy importante a recordar es que los ToolTips pueden ser puestos a todos los objetos, no solamente a los campos de texto. También las etiquetas pueden tener ToolTips , las líneas, los rectángulos, etc.

23


DATOS AGRUPADOS AGRUPACIÓN SIMPLE Listado 1.

CLOSE ALL CLEAR ALL SELECT 0 USE PAISES SET ORDER TO TAG PAI01 SELECT 0 USE CLIENTES SET ORDER TO TAG CLI03 SET RELATION TO CLI_IDEPAI INTO PAISES REPORT FORM LST02 PREVIEW

Captura 22. Clientes agrupados por países

24


En el informe LST02, cuya ejecución se muestra en la Captura 22. vemos la forma tradicional de agrupar registros, con títulos en la cabecera y en el pie de cada grupo, y con cada registro ocupando una fila distinta.

Captura 23. Propiedades para agrupar a los Clientes en 2 columnas

El informe LST03 es similar al informe LST02 pero con algunos cambios, en “Columns Number” (cantidad de columnas) ponemos 2, y en “Column print order” (orden de impresión de las columnas) elegimos “Left to right”

(de izquierda a derecha). El resultado es el siguiente:

25


Captura 24. Clientes agrupados por países, en 2 columnas

Como puedes ver, los nombres de los clientes ahora aparecen en 2 columnas, ya no un cliente en cada fila como era el caso en la Captura 22. Este tipo de informes puede ser muy útil en algunas circunstancias, entonces es importante saber que podemos crearlo con facilidad. Si en “Columns Number” de la Captura 23.

ponemos 3, entonces

veremos algo así:

Captura 25. Clientes agrupados por países, en 3 columnas

26


Desde luego que podemos colocar varias columnas de texto en la banda “Detalles” de nuestro informe. Por ejemplo, si además del Nombre del

Cliente queremos colocar el Nombre de la Sucursal, tendríamos algo así: Listado 2.

CLOSE ALL SELECT 0 USE PAISES SET ORDER TO TAG PAI01 SELECT 0 USE SUCURSALES SET ORDER TO TAG SUC 01 SELECT 0 USE CLIENTES SET ORDER TO TAG CLI03 SET RELATION TO CLI_IDEPAI INTO PAISES, ; CLI_IDESUC INTO CLI_IDESUC INTO SUCURSALES REPORT FORM LST05 PREVIEW

Captura 26. Nombres de clientes y de sucursales, en 2 columnas

27


INFORMES CON MÚLTIPLES BANDAS DE DETALLE Todos los informes tienen al menos una banda de detalle, y lo bueno con Visual FoxPro 9 es que si lo queremos o lo necesitamos ahora podemos tener hasta 20 bandas de detalle en un solo informe. Para agregar bandas de detalles adicionales, en el Menú hacemos clic sobre “Report” y luego sobre “Properties…” :

Captura 27. Para agregar bandas de detalle al informe

28


Captura 28. Debes hacer clic en ““Optional Optional Bands” Bands” y luego en “ Add ”

Haciendo clic en “Optional Bands” (bandas opcionales) y luego en “Add” (agregar) puedes agregar bandas adicionales a tu informe. Un informe

puede tener hasta 20 bandas de detalle, lo cual es más que suficiente para todas tus necesidades. Además, las bandas pueden tener cabeceras ( header ) y pies de página ( footer ). Estas son opcionales, solamente las colocas si quieres colocarlas. En footer ). general resultan útiles para poner títulos y mostrar totales o sub-totales. Para que una banda de detalles tenga su propia cabecera ( header ) y su propio pie ( footer ), debes hacer doble clic sobre esa banda y luego marcar la footer ), casilla “Associated header and footer bands”, tal como se muestra en la Captura 29.

29


y footer a a una banda de detalles Captura 29. Agregando header y

y footer a a una banda de detalles Captura 30. Después de agregar header y

30


¿Y cómo sabe el Visual FoxPro cuáles tablas y cuales registros de esas tablas queremos mostrar en el informe? Eso se lo indicamos en el “Target alias expression ” de la Captura 29. Fíjate que como muy bien lo indica su nombre, lo que escribimos allí debe ser una expresión. O sea que si queremos poner el nombre de una tabla o de un cursor, debemos escribirlo entre comillas. Pero también podríamos escribir una variable o una función, y eso es muy bueno porque nos permite crear informes muy interesantes. En “Target alias expression ” podemos:

1. Dejar en blanco, eso significa que la tabla o cursor actual será utilizado. Esa es nuestra tabla principal. 2. Escribir el nombre de una tabla hija, la cual debe estar relacionada con la tabla principal a través de SET RELATION o a través del Data del informe Environment del 3. Escribir el nombre de la tabla principal. Esto solamente podemos hacer en la primera banda de detalles. Sirve para pedirle que procese todos los registros de la tabla principal antes de pasar a la siguiente banda. Las bandas de detalle tienen otras opciones más, tal como habrás observado en la Captura 29.: permiten empezar en una nueva página o en una nueva columna, empezar en 1 cada vez que son procesadas, imprimir la cabecera de la banda en cada página, y escribir los detalles en una nueva página cuando la cantidad de espacio que resta en una página es menor que un valor establecido.

31


Captura 31. El informe LST06 en el Report Designer

En la Captura 31. vemos a nuestro informe cuando terminamos de diseñarlo. Aquí, hay tres puntos muy importantes a considerar: 1. Cada una de las tablas de detalles debe estar relacionada con la tabla de cabecera, no funcionará si no es así. Esa relación puedes hacerla mediante el comando SET RELATION o mediante el Data Environement del informe. 2. Los nombres de los campos de texto deben estar precedidos por los nombres de sus correspondientes tablas. Eso significa que no debemos escribir VTC_FECHAX sino VENTASCAB.VTC_FECHAX, análogamente no

32


debemos escribir COB_NRODOC sino COBRANZAS.COB_NRODOC, y así sucesivamente. 3. Igualmente, cuando usamos variables, deben estar precedidas por el nombre de su tabla correspondiente. O sea que no debemos escribir VTC_TOTALX sino VENTASCAB.VTC_TOTALX

Captura 32. El nombre de la columna precedido por el nombre de la tabla

33


Captura 33. El nombre de la variable precedido por el nombre de la tabla

Hay una excepción a esta regla y es cuando usas el nombre de la tabla principal, en ese caso no es obligatorio obligatorio escribir el nombre de la tabla. Por ejemplo, si tu tabla principal es CLIENTES entonces si quieres puedes escribir CLI_NOMBRE, no es obligatorio escribir CLIENTES.CLI_NOMBRE

34


¿Recuerdas que las tablas de detalle deben estar relacionadas con la tabla cabecera? Por eso establecemos un SET RELATION a continuación: Listado 3 CLOSE ALL SELECT 0 USE VENTASCAB SET ORDER TO TAG VTC04

&& Indexado por Identificador del Cliente

SELECT 0 USE COBRANZAS SET ORDER TO TAG COB02

&& Indexado por Identificador del Cliente

SELECT 0 USE CLIENTES SET RELATION TO CLI_IDENTI INTO VENTASCAB, ; CLI_IDENTI INTO COBRANZAS REPORT FORM LST06 PREVIEW

Captura 34. El resultado de la vista previa del informe

35


En la Captura 34. vemos, para cada cliente, todo lo que le hemos vendido y todo lo que le hemos cobrado, con sus respectivos totales. Este informe tiene más páginas, aquí solamente se muestra la primera página, porque las siguientes son similares. ¿Cómo funciona? 1. Debemos relacionar a nuestra tabla cabecera con cada una de nuestras tablas de detalles 2. Se procesa un registro de la tabla cabecera. Luego se procesan todos los registros de la primera tabla de detalles que están relacionados con la tabla cabecera. Luego se procesan todos los registros de la segunda tabla de detalles que están relacionados con la tabla de cabecera. 3. Se pasa al siguiente registro de la tabla cabecera. 4. Se regresa al paso 2. hasta que la tabla cabecera ya no tenga más registros.

36


CÁLCULO DE TOTALES PREVIOS Otro gran provecho que podemos obtener de las múltiples bandas de detalles es que podemos realizar cálculos previos. Esto nos resultará muy útil cuando queremos que los totales se muestren antes de que se muestren los

detalles o cuando queremos mostrar los porcentajes del monto total en cada una de las filas. Eso nos obligará a conocer tanto el monto total como la cantidad de filas procesadas, previamente a la impresión. ¿Cómo lo conseguimos? Ejecutando a la banda de detalles dos veces. Una, será la encargada de realizar los cálculos; la otra, será la encargada de mostrar los resultados. En la primera banda de detalles no se muestra algo visible, ya que la usamos exclusivamente para actualizar contadores y acumuladores y otras variables que podamos necesitar.

Captura 35. El informe LST07 en el Report Designer

37


Captura 36. Las variables calculadas en la l a banda de detalles 1

Tal y como se puede ver en la Captura 36., la variable nCantidadVentas reinicia su valor a 0 cuando finaliza la banda de detalles 1. Recuerda que el

Visual FoxPro primero procesa a un registro de la tabla principal, luego todos los registros de la banda de detalles 1 relacionados, luego todos los registros de la banda de detalles 2 relacionados. Por ese motivo, cuando finaliza el procesamiento de la banda de detalles 1, en la variable nCantidadVentas se tiene la cantidad de registros que hay en esa banda. Análogamente, en la variable nTotalVentas se tiene la suma del campo VTC_TOTALX. Eso significa que, antes de que empiece el procesamiento de la banda de detalles 2, ya se conoce el valor de las variables nCantidadVentas y nTotalVentas. Y como conocemos esos valores, podemos usarlos en la banda

de detalles 2. Interesante, ¿verdad?

38


Listado 4. CLOSE ALL SELECT 0 USE VENTASCAB SET ORDER TO TAG VTC04 SELECT 0 USE CLIENTES SET RELATION TO CLI_IDENTI INTO VENTASCAB REPORT FORM LST07 PREVIEW

Captura 37. Mostrando totales en la cabecera

Como puedes ver en la Captura 37., antes de mostrar los registros de detalle hemos mostrado la cantidad de ellos y el monto total, en los detalles hemos mostrado el porcentaje que esa venta corresponde al total vendido a cada cliente. Muy útil, muy interesante, y muy fácil de hacer.

39


EL OBJETO REPORT LISTENER Para ejecutar un informe de la forma antigua, tradicional, debemos escribir:

REPORT FORM MiInforme Esa forma sigue funcionando perfectamente con Visual FoxPro 9, pero ahora tenemos otra forma, mucho mejor. Y es mediante el uso de un objeto llamado Report Listener. Para indicarle al Visual FoxPro que queremos usar la forma nueva, hay dos maneras: a) Escribir:

SET REPORTBEHAVIOR 90 b) Escribir:

loListener = CreateObject(“MiReportListener”)

REPORT FORM MiInforme OBJECT loListener Allí, se instancia un objeto Report Listener manualmente, si prefieres hacerlo automáticamente debes especificar el tipo de objeto y escribir, por ejemplo:

REPORT FORM MiInforme OBJECT TYPE 1 Los tipos de objeto (OBJECT TYPE) predefinidos son: 0

para enviar el informe a la impresora

1

para ver una vista previa del informe

4

para que se cree un archivo XML

5

para que se cree un archivo HTML

40


Claro que tú puedes pensar “Pero en mi aplicación tengo decenas de

informes, ¿debo buscar y cambiar todos los comandos REPORT FORM que encuentre para adecuarlo a la forma nueva?” Afortunadamente, no es necesario. En Visual FoxPro 9 existe una forma más sencilla de hacerlo, y es a través de un SET. Escribiendo:

SET REPORTBEHAVIOR 90 Le dices al Visual FoxPro que quieres usar la forma nueva, entonces cuando él vea el comando:

REPORT FORM MiInforme TO PRINTER Lo reemplazará automáticamente por:

REPORT FORM MiInforme OBJECT TYPE 0 Y cuando vea al comando:

REPORT FORM MiInforme PREVIEW Lo reemplazará automáticamente por:

REPORT FORM MiInforme OBJECT TYPE 1 Lo aconsejable, y lo recomendable es que siempre uses la forma nueva, por eso al principio de tu aplicación deberías escribir:

SET REPORTBEHAVIOR 90 Y si alguna vez, por algún motivo, necesitas regresar a la forma antigua entonces puedes escribir:

SET REPORTBEHAVIOR 80 Y claro, una vez que ya no necesites usar la forma antigua deberías regresar a usar la forma nueva. Ya sabes como hacerlo (poniendo 90 en lugar de 80).

41


A veces (no siempre) cuando imprimes un informe antiguo usando la forma nueva, encuentras algunas pequeñas diferencias, los informes no se ven exactamente iguales. Al imprimir ves que no son idénticos. Para corregir esas pequeñas diferencias tienes dos alternativas posibles: a) cambias el informe antiguo para adecuarlo a la forma nueva, b) antes de ejecutarlo escribes SET REPORTBEHAVIOR 80

Importante: Para que en las aplicaciones que distribuyas a tus usuarios se pueda usar la forma nueva, debes copiar el archivo REPORTOUTPUT.APP en la carpeta donde se encuentra tu .EXE Ese archivo lo encontrarás en la carpeta donde instalaste al Visual

FoxPro 9, por ejemplo en: C:\Program Files\Microsoft Visual FoxPro 9\

42


NUEVA VENTANA DE VISTA PREVIA (PREVIEW) Otra mejora que encontramos en Visual FoxPro 9 es la ventana de vista previa, ahora tiene más opciones.

Captura 38. La vista previa antigua

Captura 39. La vista previa nueva

Captura 40. Se pueden ver 1, 2, ó 4 páginas en la vista previa

43


También se ha mejorado la legibilidad del texto a altas escalas, por ejemplo si en la forma antigua (REPORTBEHAVIOR 80) queremos ver con una escala del 300%, esto es lo que veríamos:

Captura 41. Vista previa antigua con escala del 300%

Captura 42. Vista previa moderna con escala del 300%

En la vista previa moderna es mucho más nítido, en este documento la diferencia casi no se aprecia pero si observas un informe en el monitor de tu computadora allí sí que la diferencia será apreciable.

44


Además, si haces clic con el botón derecho sobre tu informe, verás un menú contextual.

Captura 43. Menú contextual al hacer clic con el botón derecho

El menú contextual tiene las mismas opciones que la ToolBar de de arriba, pero además si queremos podemos ocultar la ToolBar .

Otra mejora que tenemos en Visual FoxPro 9 es que las opciones que elegimos quedan guardadas y la siguiente vez que ejecutemos el informe serán seleccionadas por defecto. Por ejemplo, si elegimos un zoom de 300% la siguiente vez que ejecutemos el informe será con un zoom de 300%.

45


CREANDO UNA PÁGINA WEB Si queremos crear una página web, bien hecha, con el contenido de nuestro informe, es muy fácil. Listado 5. Local loListener loListener = .NULL. DO (_ReportOutput _ReportOutput) ) with 5, loListener loListener.TargetFileName = "Ventas a clientes.html" loListener.QuietMode loListener.QuietMode = .F. && No muestra el mensaje CLOSE ALL SELECT 0 USE VENTASCAB SET ORDER TO TAG VTC04

&& Indexado por Identificador cliente

SELECT 0 USE CLIENTES SET RELATION TO CLI_IDENTI INTO VENTASCAB SET REPORTBEHAVIOR 90 REPORT FORM LST07 OBJECT loListener

Si queremos que aparezca un mensaje indicativo después de haberse creado el archivo .HTML (o sea, la página web) en QuietMode debemos poner .T. Al ejecutar el código anterior, se creará un archivo .HTML, que se puede usar en cualquier sitio web, tal y como podemos ver en la Captura 44.

46


Captura 44. La página web creada automáticamente

47


CREANDO UN ARCHIVO XML Si queremos crear un archivo .XML (se usa para intercambiar datos en Internet) también lo tenemos muy fácil, como vemos a continuación: Listado 6. Local loListener loListener = .NULL. DO (_ReportOutput _ReportOutput) ) with 4, loListener loListener.TargetFileName = "Ventas a clientes.xml" loListener.QuietMode loListener.QuietMode = .F. && No muestra el mensaje loListener.XMLMode = 0 * * * *

Los 0 = 1 = 2 =

valores de .XMLMode pueden ser: Solamente datos Solamente forma de salida Ambos

CLOSE ALL SELECT 0 USE VENTASCAB SET ORDER TO TAG VTC04 SELECT 0 USE CLIENTES SET RELATION TO CLI_IDENTI INTO VENTASCAB SET REPORTBEHAVIOR 90 REPORT FORM LST07 OBJECT loListener

Al ejecutar ese código, se creará un archivo con formato XML (uno de los estándares que se usan para intercambiar datos entre aplicaciones en Internet).

48


Captura 45. Primeras líneas del archivo .XML creado automaticamente

En la Captura 45. vemos las primeras líneas del archivo .XML que el

Visual FoxPro 9 creó. El formato es correcto y completamente funcional.

49


Listado 7. loListener.TargetFileName = "Ventas a clientes 2.xml" loListener.QuietMode loListener.QuietMode = .F. && No muestra el mensaje loListener.XMLMode = 2

Para crear un archivo .XML completo solamente debemos poner el número 2 en la propiedad .XMLMode del objeto Listener, tal y como vemos en el Listado 7. (también se cambió el nombre del archivo .XML para que no se confunda con el anteriormente creado) Lo que obtendremos en ese caso será algo similar a esto:

Captura 46. Primeras líneas de un archivo .XML completo

Aquí hay muchos más detalles, por ejemplo vemos el nombre de la impresora, la orientación del papel, el ancho del papel, la cantidad de copias, etc. En general, se usa la primera forma para el intercambio de datos.

50


ENVIANDO EL ARCHIVO A UN GRÁFICO También tenemos la opción de enviar nuestro archivo a un gráfico. Los formatos soportados son: BMP, EMF, GIF, JPG, PNG, TIFF. Por ejemplo, para crear un archivo .JPG podríamos escribir: Listado 8. Local loListener loListener = CreateObject CreateObject("ReportListener") ("ReportListener") loListener.ListenerType loListener.ListenerType = 3 && Gráfico CLOSE ALL SELECT 0 USE VENTASCAB SET ORDER TO TAG VTC04 SELECT 0 USE CLIENTES SET RELATION TO CLI_IDENTI INTO VENTASCAB SET REPORTBEHAVIOR 90 REPORT FORM LST07 OBJECT loListener loListener.OutputPage loListener.OutputPage(1, (1, "VentasClientes.jpg", 102)

Los códigos de los formatos gráficos son:

100 101 102 103 104 105

= = = = = =

imagen imagen imagen imagen imagen imagen

de de de de de de

tipo tipo tipo tipo tipo tipo

EMF TIFF JPEG GIF PNG BMP

Como en la propiedad OutputPage escribimos 102, eso significa que queremos un archivo JPEG.

51


El resultado de ejecutar el Listado 8. es:

Captura 47. El informe enviado a un gráfico con formato JPEG

A veces, un informe con un formato gráfico no se ve tan bien como con otro formato gráfico. Por ejemplo, si en este caso elegimos el formato PNG el informe se ve mejor, es más nítido.

Captura 48. El informe enviado a un gráfico con formato PNG

52


ESTABLECIENDO LA VENTANA DE VISTA PREVIA Como ahora tenemos un Report Listener , o sea un objeto dedicado a imprimir informes, podemos hacer algunas cosas interesantes con él, como por ejemplo definir la ventana en la cual se mostrará la vista previa. Local loPreview, loListener * Se define la ventana de vista previa loPreview = .NULL. DO (_ReportPreview _ReportPreview) ) WITH loPreview with loPreview .CanvasCount .ToolBarIsVisible .Width .ZoomLevel endwith

= = = =

2 .T. 800 4

* Se crea el objeto Listener loListener = CreateObject CreateObject("ReportListener") ("ReportListener") with loListener .ListenerType = 1 && Vista previa .PreviewContainer = loPreview endwith * Se abren las tablas que tienen los datos CLOSE ALL SELECT 0 USE VENTASCAB SET ORDER TO TAG VTC04 SELECT 0 USE CLIENTES SET RELATION TO CLI_IDENTI INTO VENTASCAB * Se muestra el informe SET REPORTBEHAVIOR 90 REPORT FORM LST07 OBJECT loListener

53


En el objeto loPreview , la propiedad CanvasCount indica indica la cantidad de paneles que estarán visibles, su valor puede ser 1, 2, ó 4; la propiedad indica el porcentaje del zoom y ese número es el orden en el cual ZoomLevel indica se muestran los porcentajes: 1=10%, 2=25%, 3=50%, 4=75%, 5=100%, etc. La propiedad ZoomLevel puede ser muy útil para mostrar informes a los usuarios que no tienen una buena vista. Si en esa propiedad colocamos un valor de 11 (Fit to Width ) entonces el informe ocupará todo el ancho del monitor y las letras y los números se verán muy grandes. Muy útil.

54


POSICIONAMIENTO ABSOLUTO Otra de las características de los informes de Visual FoxPro 9 que puede ayudarnos a crear mejores informes es el posicionamiento absoluto. Eso significa que podemos decirle donde exactamente queremos que se muestre un objeto (etiqueta, campo de texto, línea, rectángulo, etc.)

Captura 49. Ahora se puede posicionar exactamente un objeto

Tal y como puedes ver en la Captura 49., ahora cada objeto se puede posicionar en un lugar exacto, ya no hace falta que estemos con el mouse subiendo y bajando y yendo de izquierda a derecha para colocarlo en el lugar deseado. El posicionamiento absoluto facilita nuestro trabajo.

55


RECORTE DE LOS CAMPOS DE TEXTO

Captura 50. El modo de recorte de los campos de texto

Si haces doble clic sobre un campo del informe, aparecerá la ventana de diálogo llamada Field Properties . Si tu campo del informe contiene texto alfanumérico entonces puedes elegir el modo de recorte que deseas utilizar cuando el texto en ese campo sea muy largo y no entre todo en él. Por ejemplo, si en tu campo del informe hay lugar para mostrar 20 caracteres y el texto que contiene ocupa 28 caracteres. Como puedes ver en la Captura 50., ahora hay 6 formas en las cuales se puede recortar el texto ( trim mode, en inglés).

56


•

•

•

•

•

•

Default trimming. Se agregan tres puntos al final, lo cual significa que hay más caracteres pero que no pueden pu eden ser vistos. Trim to nearest character. Se corta el texto en el último carácter que cabe en el campo, se completa con espacios en blanco. Trim to nearest word. Se corta el texto en la última palabra que cabe en el campo, se completa con espacios en blanco. Trim to nearest character, append ellipsis. Se corta el texto en el último carácter que cabe en el campo, se completa con tres puntos. Trim to nearest word, append ellipsis. Se corta el texto en la última palabra que cabe en el campo, se completa con tres puntos. Filespec: Show inner paths as ellipsis. Aparecen los caracteres del principio y del final, y los del medio son reemplazados por tres puntos.

Captura 51. Todos los modos de recorte de los campos de texto

En la Captura 51. puedes ver el resultado de usar cada uno de los 6 tipos de recorte del texto. En algunas aplicaciones podría ser mejor usar el primer tipo de recorte, en otras sería mejor usar el segundo tipo de recorte, etc. Lo bueno es que tenemos varias posibilidades, y elegir una u otra ya es demasiado fácil.

57


BARRAS CON COLORES ALTERNADOS Desde las primeras computadoras se acostumbraba a imprimir los informes en papel con colores alternados, gris y blanco, eso mejora la visibilidad y hace más fácil la lectura de los informes. Para obtener ese efecto podemos hacer lo siguiente: 1. Agregamos un rectángulo con color de fondo transparente 2. En la pestaña “Print When” del cuadro de diálogo “Rectangle Properties” escribimos: MOD(RECNO(), 2) = 0

3. Agregamos un rectángulo con color de fondo opaco, y con una tonalidad de gris bastante clara, para no gastar mucha tinta de la impresora. Un RGB(192, 192, 192) suele quedar muy bien, aunque si la impresora está en modo de ahorro de tinta tendremos que usar números menores, por ejemplo 128, 128, 128. 4. En la pestaña “Print When” del cuadro de diálogo “Rectangle Properties” escribimos: MOD(RECNO(), 2) = 1

Captura 52. Informe con líneas de colores alternados

58


CHECKBOXS EN LOS INFORMES Cuando en un informe debemos mostrar un valor que evalúa a verdadero o a falso, podemos poner .T., y .F., o “Sí”, y “No”, o algo así. Sin

embargo, queda mucho más presentable y mucho más profesional si usamos checkboxes en esos casos. La forma más sencilla de imprimir checkboxes es usando las fuentes de tipo Wingdings que vienen nativamente con el Windows, o sea que siempre las tenemos a nuestra disposición. Si en tu computadora buscas el mapa de caracteres del Windows, encontrarás algo similar a esto:

Captura 53. La fuente Wingdings en el Mapa de caracteres del Windows

Como puedes ver, abajo y a la izquierda, también nos dice cual es el código ASCII (en hexadecimal) del carácter elegido. En este caso: 0xFE

59


Entonces, en nuestro informe solamente debemos colocar un campo de texto y en la pestaña “Print When” de las propiedades de ese campo de

texto escribir una condición que evalúe a .T. cuando queremos mostrar el carácter.

Captura 54. Checkboxes en nuestro informe

En las fuentes Wingdings hay muchos más caracteres que podemos usar, están a nuestra disposición, ya depende de nuestra creatividad usarlos. Este tipo de informe informe es muy bueno para para presentarlo al propietario propietario o a los altos directivos de una Empresa. Les gusta mucho más que aquellos que simplemente ponen “Sí”, “.T.”, o algún otro texto.

60


INFORMES CON CORTES DE CONTROL FLEXIBLES Supongamos que el gerente nos pide dos informes sobre las ventas, contendrán los mismos datos, pero uno de ellos debe estar agrupado por fechas y el otro debe estar agrupado por clientes. En una situación así la gran mayoría de los programadores crearían dos informes. Sin embargo la forma profesional es crear un solo informe. ¿Por qué? Primero, porque se trabaja menos. Segundo, si hay que hacer un cambio al informe se lo hace en un solo lugar, si debemos hacerlo en dos lugares entonces existe la posibilidad de que no sean idénticos, o que hicimos uno, nos llamaron, y dejamos al otro sin terminar, etc. Y si en lugar de dos informes son tres, cuatro, o más, la cosa se complica en demasía.

Captura 55. Cortes de control flexibles

El truco está en agrupar, no por el nombre de un campo de nuestra tabla o cursor, sino por un nombre genérico. Es ese nombre genérico el que usaremos en todos los casos.

61


Listado 9. SELECT ; VTC_FECHAX, ; VTC_FECHAX AS MIGRUPO, ; VTC_NRODOC, ; VTC_TOTALX, ; CLI_NOMBRE AS VTC_NOMCLI, ; VTC_IDECLI ; FROM ; VENTASCAB ; JOIN ; CLIENTES ; ON VTC_IDECLI = CLI_IDENTI ; ORDER BY ; MIGRUPO ; INTO CURSOR ; MICURSOR REPORT FORM LST12 PREVIEW SELECT ; VTC_FECHAX, ; VTC_NRODOC, ; VTC_TOTALX, ; CLI_NOMBRE AS VTC_NOMCLI, ; CLI_NOMBRE AS MIGRUPO ; FROM ; VENTASCAB ; JOIN ; CLIENTES ; ON VTC_IDECLI = CLI_IDENTI ; ORDER BY ; MIGRUPO ; INTO CURSOR ; MICURSOR REPORT FORM LST12 PREVIEW

Aquí, el campo genérico se llama MIGRUPO, en ambos casos.

62


La primera vez que ejecutamos el informe, vemos esto:

Captura 56. Las ventas están agrupadas por fechas

Donde como puedes ver, las ventas están agrupadas por fechas. En la segunda ejecución vemos esto:

63


Captura 57. Las ventas están agrupadas por nombres de los clientes

Donde, como puedes ver, las ventas están agrupadas por los nombres de los clientes. En síntesis, hicimos un solo informe pero nos sirvió para mostrar los registros agrupados con diferentes criterios. Muy bien, así hemos ahorrado trabajo.

64


CAMBIAR EL TAMAÑO DEL PAPEL A veces, podríamos encontrarnos con esta situación: nuestro informe está diseñado para que se vea bien en papel de tamaño “Carta”, pero el cliente tiene papel de tamaño “A4”. Evidentemente, no saldrá bien. Entonces, ¿cómo lo solucionamos? Una alternativa es crear dos informes, uno optimizado para tamaño “Carta” y el otro optimizado para tamaño “A4”. Funcionará, claro, pero nos hará trabajar de más, sobre todo cuando no es un solo informe el que debemos cambiar sino que son decenas o cientos los informes. La segunda alternativa es “hackear” nuestro informe para que se adecue a lo que necesitamos. Eso es lo que veremos aquí. Listado 10

(CAMBIAR_TIPO_PAPEL.PRG) (CAMBIAR_TIPO_PAPEL.P RG)

LParameters tcNombreInforme, tcTipoPapel Local lcAlias #DEFINE MSG_ICONO_ERROR 16 if Parameters() Parameters() <> 2 =MessageBox MessageBox("Debes ("Debes enviar como parámetros el Nombre del Informe que deseas cambiar y el tipo de papel que deseas que tenga (Carta, A4, Oficio, etc.)", MSG_ICONO_ERROR, "Hay un problema") Return endif tcNombreInforme = tcNombreInforme + iif iif( (Right Right(tcNombreInforme, (tcNombreInforme, 4) <> ".FRX", ".FRX", "") lcAlias = Alias Alias() () select 0 USE (tcNombreInforme) EXCLUSIVE DO CASE CASE tcTipoPapel == "A4" REPLACE EXPR WITH SubStr( SubStr(EXPR EXPR, , 1, At At("PAPERSIZE", ("PAPERSIZE", EXPR EXPR) ) - 2) ; + "PAPERSIZE=9" ; + SubStr SubStr( (EXPR EXPR, , At At("PAPERSIZE", ("PAPERSIZE", EXPR EXPR) ) + 12) REPLACE WIDTH WITH 77433.000

65


CASE tcTipoPapel == "Carta" CASE tcTipoPapel == "Oficio" ENDCASE USE if !Empty Empty(lcAlias) (lcAlias) SELECT (lcAlias) endif Return * *

En el Listado 10. vemos como podemos cambiar el tipo de papel del informe. Todos los informes, aunque sus archivos tienen la extensión .FRX son en realidad tablas .DBF con otra extensión. Por lo tanto, podemos hacer un USE de esas tablas/informes. No debemos olvidar colocar la extensión .FRX o no se abrirán, ya que un USE supone que la extensión será .DBF El primer REPLACE lo que hace es grabar en el campo EXPR todo lo que está antes de PAPERSIZE, luego graba el nuevo PAPERSIZE (con el valor 9, que es el correspondiente al papel de tamaño “A4”), y luego vuelve a grabar lo que estaba después del PAPERSIZE. El segundo REPLACE graba el ancho que tienen todas las hojas de tamaño “A4”. Y eso es todo, ahora, nuestro informe que estaba programado para usar hojas de papel de tamaño “Carta” ha sido cambiado para que utilice hojas de papel de tamaño “A4”. Fácil, rápido, y sencillo. ¿Cómo usar este programa? Debemos ejecutarlo antes que nuestro informe, por ejemplo:

DO CAMBIAR_TIPO_PAPEL WITH “LST13”, “A4”

REPORT FORM LST13 PREVIEW Y listo, ya aparecerá correctamente en hojas de papel de tamaño “A4”.

66


HACKEANDO UN INFORME Como sabes, aunque todos los informes tienen la extensión .FRX en realidad se trata de tablas .DBF con otra extensión. Esa es la forma que tiene el Visual FoxPro de diferenciar entre tus tablas de datos y las tablas que contienen datos que usará en los informes. Entonces, como en realidad se trata de tablas .DBF con con la extensión extensión cambiada, podemos hacer un USE de esas tablas y realizar en ellas todas las operaciones que podemos realizar en las tablas .DBF Desde luego, que si hacemos algo mal podríamos estropear el informe y dejarlo inutilizable, por eso hasta que adquieras experiencia en este tema lo recomendable es que hagas una copia de tus informes antes de siquiera intentar hackearlos. Si escribes estos comandos:

USE LST07.FRX BROWSE Verás algo similar a la Captura 58.

67


Captura 58. Primeras filas y primeras columnas del archivo LST07.FRX

En la Captura 58. vemos las primeras filas y las primeras columnas de la tabla LST07.FRX. El significado de muchas de las columnas es muy fácil de deducir leyendo sus nombres. Por ejemplo “Name” es el Nombre, “Expr” es la Expresión, “VPos” es la posición vertical, “HPos” e s la posición horizontal,

etc. Las principales columnas, las que nos resultarán de más utilidad cuando hackeemos el informe son las siguientes: OBJTYPE, OBJCODE, NAME, EXPR, SUPEXPR

68


Tipos de objeto: En la columna OBJTYPE se guarda el Tipo del Objeto (o sea, si se trata de una etiqueta, de un campo de texto, de una línea, de un rectángulo, etc.). Sus posibles valores son:

1 = Definición del informe. Siempre es el primer registro de la tabla. Y siempre hay uno y solamente uno. En él se guardan datos como: el nombre de la impresora, la orientación del papel (horizontal o vertical), el tamaño del papel, etc.

2 = Obsoleto. Se usaba en FoxPro 2.x 3 = Obsoleto. Se usaba en FoxPro 2.x 4 = Obsoleto. Se usaba en FoxPro 2.x 5 = Es una etiqueta. O sea, “label” en inglé s. Un texto que permanece estático durante todo el informe.

6 = Línea. Es una línea horizontal o vertical. Cada línea en el informe tiene su propio registro en la tabla.

7 = Rectángulo. Es un rectángulo con esquinas perpendiculares o con esquinas redondeadas.

8 = Campo de texto. Es un campo de datos, su contenido es variable. 9 = Banda. Es una de las bandas usadas en el informe (cabecera, pie, sumario, etc.).

10 = Grupo de objetos. Objetos agrupados juntos al elegir la opción “Group” que se encuentra en la opción “Format” del Report Designer.

No confundas esto con grupos de datos.

17 = Gráfico / OLE bound. Es un gráfico o un objeto OLE incrustado. 18 = Variable. Es una de las variables definidas por el usuario. 21 = Obsoleto. Se usaba en FoxPro 2.x 23 = Fuente. El tipo de letra usado por defecto en el informe. del informe. 25 = Data Environment. El Data Environment del 26 = Cursor, Relation, o Cursor Adapter. Para saber cual de ellos, hay que mirar el campo NAME.

69


Códigos de objeto: En muchos casos el valor de la columna OBJTYPE no es suficiente para identificar al registro. Para que se lo pueda identificar adecuadamente también debemos mirar el valor que se encuentra en la columna OBJCODE.

OBJTYPE

OBJCODE

1=Definición del informe 2 = Obsoleto 3 = Obsoleto 4 = Obsoleto 5 = Etiqueta 6 = Línea 7 = Rectángulo 8 = Campo de texto 9 = Banda

Siempre 53 Ya no se usa Ya no se usa Ya no se usa Siempre 0 Siempre 0 Siempre 4 Siempre 0 0 = Título (Title) 1 = Encabezado de página (Page Header) 2 = Encabezado de columna (Column Header) 3 = Encabezado de grupo (Group Header) 4 = Detalle (Detail) 5 = Pie de grupo (Group Footer) 6 = Pie de columna (Column Footer) 7 = Pie de página (Page Footer) 8 = Resumen (Summary) 9 = Encabezado de detalle (Detail Header) 10 = Pie de detalle (Detail Footer) Siempre 0 Siempre 0 Siempre 0 Ya no se usa Siempre 0 Siempre 0 Siempre 0

10 = Grupo de objetos 17 = Imagen gráfica 18 = Variable 21 = Obsoleto 23 = Fuente 25 = Data Environment 26 = Cursor, Relation Tabla 1. El significado de los campos OBJTYPE y OBJCODE

70


Ahora, puedes realizar cualquier cambio que quieras en los registros de la tabla LST07.FRX y ese cambio se verá reflejado en el informe LST07. Por supuesto que LST07.FRX es solamente un ejemplo, tú deberás elegir el nombre de tu propio informe. Esto puede ser muy útil para cambiar la impresora, la orientación del papel, el tamaño del papel, o cualquier otra característica que te interese.

71


CONTANDO LA CANTIDAD DE GRUPOS. Si necesitas conocer la cantidad de grupos impresos, ¿cómo lo haces? Por ejemplo, si miramos la Captura 59., que corresponde al informe LST14.FRX, veremos que hay 3 grupos. ¿Cómo conocemos esa cantidad? No podemos usar la función RecCount(“PAISES”) porque en nuestra tabla PAISES

pueden haber países que no corresponden a ningún cliente. ¿Y entonces?

Captura 59. Mostrando la cantidad de grupos

La solución es escribir código en las expresiones “On Entry” y “On Exit” de las bandas de nuestro informe.

72


Cada banda de nuestro informe nos permite ejecutar expresiones cuando se entra a la banda y cuando se sale de la banda. También existe una función poco conocida del Visual FoxPro llamada _VFP.SETVAR() que nos resultará útil en este caso. Entonces, en la expresión “On Entry” de la banda “Page Header” de nuestro informe escribimos:

_VFP.SETVAR _VFP.SETVAR("nCan ("nCantidad tidadGrupos Grupos", ", 0) Con lo cual estamos creando a la variable nCantidadGrupos e iniciando su valor a 0.

Captura 60. Creando una variable en la expresión “On entry” de la banda

Page Header

73


Lo que le estamos diciendo aquí al Visual FoxPro es: “cuando entres a la banda ‘Page Header’ crea una variable llamada nCantidadGrupos e inicia su

valor a 0”. Ahora, lo que nos está faltando es incrementar el valor de esa variable. Esa tarea se también se realizará en una expresión “On entry” pero en e ste caso de la banda “Group Header”. En ella escribirem os:

_VFP.SETVAR _VFP.SETVAR("nCa ("nCantidad ntidadGrupos Grupos", ", nCantida nCantidadGrup dGrupos os + 1) 1)

Como la variable nCantidadGrupos ya existe (porque la creamos en la banda “Page Header”) entonces podemos utilizarla.

Captura 61. Creando una variable en la expresión “On entry” de la banda

Group Header

Y eso es todo, como la variable nCantidadGrupos existe y guarda en ella la cantidad de grupos impresos, podemos utilizarla cuando sea necesario, tal y como vimos en la Captura 59.

74


Para ver el informe mostrado en la Captura 59. puedes escribir: Listado 11. SELECT 0 USE PAISES SET ORDER TO TAG PAI01 SELECT 0 USE CLIENTES SET RELATION TO CLI_IDEPAI INTO PAISES REPORT FORM LST14 PREVIEW

Así como hemos escrito una expresión en “On entry” también podemos escribir una expresión en “On exit”.

Ya dependerá de tus necesidades y de tu creatividad saber como quitarles provecho a las expresiones “On entry” y “On exit” de las bandas.

Pueden ser de mucha utilidad en algunos casos.

75


TRUCOS Y CONSEJOS 1. ¿Cómo puedo mostrar los números de página en la forma “Página X de Y”, dónde “ Y” es la cantidad total de páginas? En un campo de texto de tu informe escribe:

"Página " + TRANSFORM(_pageno) TRANSFORM(_pagetotal)

+

"

de

"

+

2. ¿Cómo puedo hacer que la impresora elegida por el usuario sea la impresora por defecto en esa sesión?

SET PRINTER TO NAME GETPRINTER() 3. Si el usuario elige una impresora como se ha mostrado en 2., ¿eso cambiará la impresora por defecto en las demás aplicaciones? No, solamente afecta a la impresora por defecto del Visual FoxPro, no afecta a la impresora por defecto del Windows. 4. ¿Cómo puedo hacer que la impresora por defecto del Windows sea también la impresora por defecto del Visual FoxPro?

SET PRINTER TO DEFAULT 5. ¿Qué hace la función GETPRINTER()? Le permite al usuario seleccionar una impresora, esa impresora puede ser local o estar en la red. 6. ¿Qué hace la función SYS(1037)? Abre la ventana de diálogo Page Setup, donde el usuario puede seleccionar el tamaño del papel, la fuente del papel, y la orientación. 7. ¿Cómo puedo hacer para que se le pida al usuario que seleccione la impresora cuando haga clic sobre el botón de Imprimir?

REPORT FORM MiInforme TO PRINTER PROMPT PREVIEW

76


8. ¿Cómo puedo saber si hay alguna impresora instalada?

lnCantidadImpresoras = APRINTERS(laImpresoras) IF lnCantidadImpresoras > 0

&& Hay impresoras

&& Tus comandos aquí ENDIF 9. ¿Cómo puedo conocer los nombres de todas las impresoras?

lnCantidadImpresoras = APRINTERS(laImpresoras) FOR lnI = 1 to lnCantidadImpresoras ? laImpresoras[lnI] ENDFOR 10. Quiero que los usuarios vean la vista previa pero que no puedan imprimir el informe. ¿Cómo lo hago? Hay un programa llamado INFORMES_VFP9.PRG que está incluido en el archivo .ZIP que contiene a este documento. Ese programa muestra como subclasar a un objeto Report Listener, como establecer el nivel de zoom, como poner el ancho de la ventana de vista previa, y como deshabilitar el botón de la impresora. Para ejecutarlo, debes enviarle como parámetro el nombre de tu informe, el nivel de zoom, el ancho de la ventana, y si quieres que el botón de imprimir esté habilitado, algo como:

DO INFORMES_VFP9 WITH “LST07” , 5, 800, .F. donde debes reemplazar a “LST07” por el nombre de tu informe y a los

demás parámetros por los valores que consideres adecuados. Entre paréntesis, si estudias ese programa podrías aprender algo más sobre clases.

77


11.Quiero 11.Quiero que algunos objetos (etiquetas, campos de texto, etc.) se vean en la vista previa pero no en el informe impreso, ¿es eso posible? Sí, la forma antigua es la siguiente: a) doble clic sobre el objeto b) clic sobre la pestaña “Print when” c) escribir en el campo “Print only when expression is true” : NOT WEXIST(“Printing…”) .AND. NOT WEXIST(“Imprimiendo…”)

d) SET REPORTBEHAVIOR 80 e) REPORT FORM MiInforme PREVIEW

12 ¿Cómo hago para ocultar el icono de la impresora? Listado 12. Local loPreview DO (_ReportOutput _ReportOutput) ) WITH 1 loPreview = .NULL. DO (_ReportPreview _ReportPreview) ) WITH loPreview loPreview.AllowPrintFromPreview = .F. _oReportOutput['1'].PreviewContainer _oReportOutput['1']. PreviewContainer = loPreview REPORT FORM (tcNombreInforme) PREVIEW

Un valor .F. no permite imprimir desde la vista previa. Otras opciones de la ventana de vista previa puedes encontrar en el archivo PRUEBA01.PRG

78


CONCLUSIÓN Hay mucho más que se puede escribir sobre los informes, y quizás más adelante escriba otro documento que muestre las características avanzadas y muchos trucos que tengo en la cab eza pero “me han quedado en el tintero”, porque ya quería terminar de elaborar este documento, mi tiempo siempre es escaso. De todas maneras, con el contenido de este documento creo que ya has tenido suficiente para comprobar la potencia de los informes que se pueden crear con el lenguaje Visual FoxPro. Los informes son muy pero muy importantes, en nuestras aplicaciones ya que marcan la diferencia entre una aplicación profesional y una realizada por principiantes. Además, no debes olvidar que quien firma tus cheques es en general el propietario de una Empresa o un alto directivo, esas personas no cargan datos y ni siquiera miran los monitores de sus empleados, lo que ellos ven son los informes que se les presentan. Si tus informes no les gustan, es muy poco probable que vuelvan a contratarte. Entonces, saber como elaborar buenos informes puede marcarte la diferencia entre recibir un gran cheque o recibir una despedida. Tú decides. Si tienes alguna duda, consulta, o sugerencia, puedes contactarme en: [email protected] Walter.

79

Informes Con Visual Foxpro 9

Recommend Documents