Procedimiento GML UPDATE

Sintaxis
CALL "GML::UPDATE"

Propósito:
Actualiza los datos y atributos del grid con valores contenidos en la plantilla GML_TPL$ y redibuja el grid control. La variable GML_TPL.ROW_N% es usada para indicar la fila para actualizar.

Nota:
Este procedimiento es normalmente usado para actualizar una celda o una fila del grid. Cuando se cargan muchas celdas, por ejemplo, cuando se lee de un archivo, se debe usar el procedimiento LOAD.

Ejemplo A:
Actualizar la celda localizada en el grid set 1, fila 3, columna 2 con texto y fijar el color de la celda a rojo.

2400 GML.SET%=1
2410 CALL "GML::TPL_PREP"
2420 GML_TPL.ROW_N%=3
2430 GML_TPL.COL$[2]="John Smith"
2440 GML_TPL.T_COLOR$[2]=GML.RED$
2450 CALL "GML::UPDATE"

Opción:
Fijando GML_TPL.OPTION% a 1 antes de ejecutar el procedimiento UPDATE, actualizará los datos del grid, pero no redibuja, no cambia y no deselecciona la celda seleccionada. Un GML_TPL.OPTION% fijado a 2 causa que el grid sea redibujado, pero los datos de la celda y atributos no serán cambiados.

Ejemplo B:
Este ejemplo usa dos procedimientos para desplegar el grid cuando el procedimiento UPDATE es usado con la variable GML_TPL.OPTION% fijada con un valor de 2. Usando el procedimiento REFRESH en lugar del procedimiento UPDATE logrará los mismos resultados.

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::LOAD"
2580 GOTO 2500
2590 CLOSE (4)
2600 CALL "GML::TPL_PREP"
2610 GML_TPL.OPTION%=2
2620 CALL "GML::UPDATE"