|
Procedimiento GML START
Sintaxis
CALL "GML::START"
Propósito:
Identifica los conjuntos (sets) de grids que serán manejados por el GML (Grid Management Library).
Nota:
Este procedimiento es usado una vez al inicio del código de aplicación, antes de ejecutar el programa GML_I. Cuando el procedimiento
START es ejecutado una plantilla GML_INIT$ es regresada al programa que lo invocó
con las variables dimensionadas basadas en el valor de la variable GML_QTY%,
la cual indica cuantos conjuntos (sets) serán manejados por el GML. Las
variables de plantillas son las siguientes:
GML_INIT.MAIN_ID%[s] Id del grid principal
GML_INIT.COL_HEADER_ID%[s] Id del control de encabezado de columna
GML_INIT.ROW_HEADER_ID%[s] Id del control de encabezado de fila.
GML_INIT.SYSGUI%[s] Número del canal dispositivo del sistema
GML_INIT.CONTEXT%[s] Control contexto
GML_INIT.LUM_QTY% Cantidad de controles de busqueda
El número de ID para el control del grid principal debe contener un valor que regrese el número
1 al usar la función MOD(n,5), como en el ejemplo donde MOD(5001,5)=1.
El número de ID del control de encabezado de columna para el mismo grid set debe ser igual al grid
principal control ID+1, mientras el número de ID del control de encabezado de fila debe
ser igual a el ID+2 control del grid principal. Si un grid principal no tiene
un control de encabezado de columna y/o un control de encabezado de fila, entonces las variables
de ID para esos controles en la plantilla GML_INIT$ deben ser fijados a 0.
Ejemplo:
Dos grids serán manejados por el GML. Como el grid set 1
no contiene un control de encabezado de fila, el ID del control de encabezado de fila es fijado
a 0.
4130 LET GML_QTY%=2
4140 CALL "GML::START"
4150 LET GML_INIT.MAIN_ID%[1]=5001
4160 LET GML_INIT.COL_HEADER_ID%[1]=5002
4170 LET GML_INIT.ROW_HEADER_ID%[1]=0
4180 LET GML_INIT.SYSGUI%[1]=SYSGUI%
4190 LET GML_INIT.CONTEXT%[1]=1
4200 LET GML_INIT.MAIN_ID%[2]=5021
4210 LET GML_INIT.COL_HEADER_ID%[2]=5022
4220 LET GML_INIT.ROW_HEADER_ID%[2]=5023
4230 LET GML_INIT.SYSGUI%[2]=SYSGUI%
4240 LET GML_INIT.CONTEXT%[2]=2
4250 LET GML_INIT.LUM_QTY%=1
4260 CALL "GML_I",SYSGUI,GML_INIT$,GML$,GML_GM$[ALL],GML_GC$[ALL],
GML_GR$[ALL],GML_SET$
|
