Procedimiento GML INSERT_ROW

Sintaxis
CALL "GML::INSERT_ROW"

Propósito:
Inserta una fila de datos vacía en el grid principal del set de grid seleccionado.

Nota:
La plantilla GML_TPL$ variable GML_TPL.ROW_N% es usada para designar donde va a insertar una fila vacía. Los datos en la celda son movidos 1 fila abajo, si los datos existen en la última fila serán descartados. Este procedimiento es válido solo cuando es aplicado al grid principal. (GML_TPL.MEMBER%=1).

Ejemplo:
Insertar una fila vacía en la fila 1 del grid principal en el grid set 1.

2400 GML.SET%=1
2410 CALL "GML::TPL_PREP"
2420 GML_TPL.ROW_N%=1
2430 CALL "GML::INSERT_ROW"

Opción:
El procedimiento INSERT_ROW normalmente redibuja el grid. Fijando el GML_TPL.DEF_FLAG% al valor 1, prevendrá el procedimiento ejecutar la operación de redibujo.

Procedimiento GML LOAD

Sintaxis
CALL "GML::LOAD"

Propósito:
Carga variables desde la plantilla GML_TPL$ dentro de las variables GML apropiadas y posiciones correspondientes. La variable GML_TPL.ROW_N% es usada para indicar cual fila de datos será cargada.

Nota:
Este procedimiento no redibuja el grid. Subsiguiente a cargar todos los datos, el procedimiento REFRESH es usado para causar que el grid se redibuje.

Ejemplo:
Cargando unas tres columnas del grid con datos desde un archivo. Este grid es un miembro del set grid dos. La tecla del archivo asociada con cada registro ha sido almacenada en el campo GML_TPL$.REL[c]. Después de cerrar el archivo se usa el procedimiento REFRESH para redibujar 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::LOAD"
2580 GOTO 2500
2590 CLOSE (4)
2600 CALL "GML::TPL_PREP"
2610 CALL "GML::REFRESH"