Procedimiento GML POPULATE

Sintaxis
CALL "GML: POPULATE"

Propósito:
Localiza texto en el grid de celdas principal como si se hubiera entrado directamente a través del uso de los procedimientos START_EDIT y END_EDIT

Notas:
Este procedimiento debe ser usado cuando un control, como el control de listas (Listbox), es usado para llenar una celda grid provista de una lista de texto de selecciones en lugar de la entrada de texto directamente dentro de la celda grid.

Ejemplo:
Control ID 2402 es un control de listas (Listbox) que ha generado un evento de código 1, el cual indica que un click en un ítem del control de listas (Listbox) ha ocurrido. El procedimiento GML::CURRENT es ejecutado para determinar la fila del grid asociado con el control de listas (Listbox). El texto del ítem seleccionado es obtenido usando la función CTRL y entonces localizado dentro del grid en la columna 2 (row_n%) al asignar el valor a la variable GML_TPL.COL$[2].

3660 IF EVENT.CODE$= l AND EVENT.ID%=2402 THEN GOSUB LB

7980 LB:
7990 GML.SET%=1
8000 CALL "GML::TPL_PREP"
8010 CALL "GML::CURRENT"
8020 LET ROW_N%=GML_TPL.ROW_N%
8030 CALL "GML::TPL_PREP"
8040 LET GML_TPL.ROW_N%=ROW_N%
8050 LET GML_TPL.COL$[2]=CTRL(SYSGUI,EVENT.ID%,1)
8060 CALL "GML::POPULATE"

Procedimiento GML PUT

Sintaxis
CALL "GML::PUT"

Propósito:
Cargar variables desde la plantilla GML_TPL$ dentro de las variables GML correspondientes y posiciones correspondientes. La variable GML_TPL.ROW_N% es usada para indicar cual fila de datos se va a cargar.

Notas:
Este procedimiento no redibuja el grid. Subsiguiente a cargar todos los datos el procedimiento REFRESH es usado para causar que el grid sea redibujado.

Ejemplo:
Cargando columnas del grid con datos desde un archivo. El grid es un miembro del set de grid 2. El indice asociado a cada registro leído es almacenado en la variable GML_TPL$.REL[c]. Después el archivo es cerrado, y el procedimiento REFRESH redibuja el grid.

2300 DIM ITEM$:"NUM:C(6),DESC:C(30),PRICE:N(10)"

2400 GML.SET%=2
2410 CALL "GML::TPL_PREP"
2420 ROW%=0

2500 READ RECORD(4,END=2590)ITEM$
2510 ROW%=ROW%+1
2520 GML_TPL.COL$[1]=ITEM.NUM$
2530 GML_TPL.COL$[2]=ITEM.DESC$
2540 GML_TPL.COL$[3]=STR(ITEM.PRICE:"#,###,##0.00")
2550 GML_TPL.REL$[1]=KEYP(4)
2560 GML_TPL.ROW_N%=ROW%
2570 CALL "GML::PUT"
2580 GOTO 2500
2590 CLOSE (4)
2600 CALL "GML::TPL_PREP"
2610 CALL "GML::REFRESH"