Etiqueta

13 de enero de 2011

Herramienta "ad hoc"

La herramienta de informes "ad hoc "

Se trata de una versión localizada al castellano de esta herramienta proporcionada por Omnis, para la generación rápida de informes y consulta de datos, mediante SQL.

El acceso a la base de datos se realiza mediante la DAM Omnis SQL para tener acceso a un archivo de datos de Omnis. La utilidad comprueba las sesiones abiertas con el servidor de datos y utiliza esta (independientemente de que servicio se trate Oracle, MySQL, etc) para presentar las tablas de datos que contenga.

Los informes que se generan son iguales que los presentados por la aplicación estándar "ad hoc" por lo que su manejo es idéntico al que se describe en el manual de Omnis para esta herramienta. Para usarla deberá colocar la librería adjunta en la carpeta de inicio (Startup).

Descargar librería

12 de enero de 2011

Aplicaciones modulares

Al diseñar una aplicación, es posible que deseemos modularla mediante la creación de una biblioteca que contenga todos los módulos de ventanas, informes y métodos.
Cada módulo puede tener sus propios menús y barras de herramientas. Un ejemplo podría ser una aplicación de gestión académica, con las preinscripciones, matriculas y expedientes.
En una aplicación totalmente modular, donde el usuario cambia constantemente entre módulos, no es fácil asegurarse de que el usuario vea correctamente los menús y herramientas para el módulo en uso. En un entorno, multi-ventana, el control de esta a veces puede ser difícil. Afortunadamente Omnis Studio permite la creación de múltiples “tasks” o tareas que permiten automatizar el proceso de creación de aplicaciones modulares.
Observe el ejemplo siguiente en el que, en una sola biblioteca se están ejecutando tres tareas: La “Startup_Task” y dos tareas más “Task1” y “Task2”. La tarea de inicio, que se abre automáticamente cuando se abre la biblioteca, contiene una ventana “Acerca de”. Las otras dos tareas contienen cada una, una ventana, un menú y una barra de herramientas. Cuando el usuario selecciona una ventana de “Task1” o de “Task2”, Omnis mostrará automáticamente las herramientas (toolbar) y los menús que correspondan a cada tarea.

Cuando la biblioteca se abre, la tarea inicial se ejecuta (Startup_Task) para mostrar la ventana “Acerca de” entonces se abren las demás tareas, cada una de los cuales abre su ventana, instala su menú y su barra de herramientas. La tarea de inicio concluye una vez que la propia ventana “Acerca de” se cierre.
Para abrir las dos tareas, usted deberá introducir la siguiente secuencia de instrucciones en el método $construct() de la tarea inicial.
Open window instance AboutWindow
Open task instance MyTaskClass1/Task1
Open task instance MyTaskClass2/Task2
Close task instance LibraryName ;; cierra la instancia Startup_Task

Cada tarea tiene una propiedad $autoactivate, que permite a la misma tomar el control, cuando el usuario actúa sobre la ventana que la contiene. Si la propiedad se establece en “false”, la ventana no llegará a mostrarse. Para que se active de manera automática, será necesario fijar la siguiente secuencia en el $construct() de cada tarea.
Do $ctask.$autoactivate.$assign(kTrue)
Para asegurarse de que los menús y barras de herramientas se muestren y oculten al cambiar de tarea, necesitará establecer la propiedad $local en cada clase. Al activar el “modo local” para cada menú y barra de herramientas que posee la tarea, Omnis los esconderá y mostrará automáticamente.
El ejemplo que se muestra a continuación, indica como establecer la propiedad $local desde el procedimiento $construct() de cada tarea:
; Método $construct() para la task1...
Do $menus.MyMenuClass1.$open(‘Menu1’) Returns iMenuRef
Do iMenuRef.$local.$assign(kTrue)
Do $toolbars.MyToolbarClass1.$open(‘Toolbar1’) Returns iToolRef
Do iToolRef.$local.$assign(kTrue)
Do $windows.MyWindowClass1.$open(‘Window1’) Returns iWinRef
Y exactamente lo mismo para la otra tarea.
; Método $construct() para la task2...
Do $menus.MyMenuClass2.$open(‘Menu1’) Returns iMenuRef
Do iMenuRef.$local.$assign(kTrue)
Do $toolbars.MyToolbarClass2.$open(‘Toolbar1’) Returns iToolRef
Do iToolRef.$local.$assign(kTrue)
Do $windows.MyWindowClass2.$open(‘Window1’) Returns iWinRef
Esta funcionalidad hará que los menús y barras de herramientas cambien automáticamente al cambiar de tarea.

¿Cómo permitir al usuario eliminar filas en un "Data Grid"/"Smart List"?

Descripción del problema:

Pongamos como ejemplo la siguiente tabla de datos, representada en un objeto tipo "kdatagrid":

Do cTablaEdit.$definefromsqlclass(iTituVen)
Do cTablaEdit.$sessionobject.$assign(iSessionObj) Returns #F
Do cTablaEdit.$select() Returns lStatus
Do cTablaEdit.$fetch(kFetchAll) Returns lStatus
Do cTablaEdit.$line.$assign(1)
Do cTablaEdit.$smartlist.$assign(kTrue)
If cTablaEdit.$linecount=0
Do cTablaEdit.$add()
End If

El problema parte de que mientras el usuario se mueve entre las celdas de la tabla, el atributo "cTablaEdit.$line" no cambia. En el ejemplo deseamos que el usuario pueda seleccionar la fila a borrar pulsando la tecla "F5", el asunto entonces es: ¿Cómo saber que número de fila (cTablaEdit.$line) debemos eliminar?

Solución:

On evCellChanged
Do cTablaEdit.$line.$assign(pVertCell)
On evKey
If pSystemKey=5
Yes/No message Eliminar registros {¿Desea realmente eliminar la línea de la tabla?}
If flag true
Do cTablaEdit.$remove(cTablaEdit.$line)
Do $root.$redraw()
End If
Process event and continue (Discard event)
End If

El evento evCellChanged, mantendrá seleccionada la línea o fila a borrar, de tal modo que el prodedimiento Do cTablaEdit.$dowork() actualizará finalmente la tabla en el servidor eliminando las filas marcadas para borrar.

No he encontrado un método mejor para solucionar este problema, no obstante (si usted querido lector lo tiene a bien), tal vez pueda sugerir algún otro procedimiento, de ser así lo ánimo a dejar su comentario en este blog.

Gracias por su atención.