Programa para Modificación

Como se describió en los dos Enlaces anteriores se esta trabajando en una nueva opción que permite modificar varios campos de un AREA de /COLUMNA aunque sean varias páginas, previo a que se lea la información modificada. Al dar la tecla de RETURN se termina la modificación y se inicia la lectura de la información. Si hay error se procede como siempre.

Para ello al definir el AREA se deberá poner /OPCIONES 100 2 y usar la opción de /AYUDA en las variables que se requiera. El Emulador ofrece un ícono junto al campo si se uso la opción de /AYUDA para que cuando el usuario lo seleccione se ejecute la rutina de la opción y se lea un nuevo valor, se puede seleccionar este tipo de ayudas en varios campos del AREA y en diferentes páginas antes de dar por terminada la modificación. Si son varias las variables del AREA con esta opción se debe usar rutinas diferentes. También poner la opción de /RELEER N10 Donde N10 es una variable de este tipo.

Como se comento en el Enlace anterior, si se usan teclas de función se debe de revisar cuales se pueden usar.

En el programa los pasos en el área ya desplegada son:

  • Leer la información de el o los permanentes en vectores.

  • Hacer el ESCRIBIR TERMINAL de los vectores.

  • Hacer un LEER TERMINAL con cada variable que tenga /AYUDA y un LEER TERMINAL para las demas.

  • Escribir la información en el permanente de los vectores.


Un ejemplo de la rutina de /AYUDA puede ser como sigue:

RUTINA SEL-INFO
*
* REVISA SI ES /AYUDA U OTRA TECLA DE AYUDA PROCESADA EN OTRA RUTINA
*
SACAR PARAMETROS CONDICION-EJECUTA COND
SI COND = -12 EJECUTA 5
EJECUTA RUTINA .....
RETORNO
*
* SACAR EL GRUPO DONDE SE PIDIO AYUDA
*
5 SACAR PARAMETROS SELECCIONADO SUB-SEL
*
* DESPLEGAR VALORES A SELECCIONAR
*
OPCION TERMINAL AREA 90 /DESPLEGAR /SALVAR-ANTERIORES
*
* INSTRUCCIONES PARA DESPLEGAR Y SELECCIONAR UN DATO.
* MOVER EL NUEVO VALOR LEIDO USANDO EL SUBINDICE SUB-SEL
*
IND-LEC = 0
OPCION TERMINAL AREA 90 /TERMINAR
RETORNO
*
* CASO DE CANCELACION PONER IND-LEC = 1 PARA DEJAR TODO IGUAL
*
22 IND-LEC = 1
OPCION TERMINAL AREA 90 /TERMINAR
RETORNO

Los Siguientes comentarios son aplicables:

  • Si el valor de CONDICION-EJECUTA no es -12 se dio una tecla de función de ayuda global. En el Emulador no se selecciono el ícono de ayuda.

  • Con el valor de SELECCIONADO se da el grupo donde se pidio la ayuda ya que ahora puede ser cualquier grupo. La variable SUB-SEL se usa como subindice de el vector de la variable donde se pidio /AYUDA

  • Si la variable de /RELEER es IND-LEC, poner en 0 indica que hubo cambio y en 1 que NO se desea hacer el cambio

  • Si la misma AREA se usa para lectura y modificación se debera poner logica especial ya que SUB-SEL en lectura no tendra un valor correcto.



Estos cambios estaran disponibles en la proxima actualización de la versión 7.4