Cobol - Enfocar un solo control entre varios en Acucobol

Enfocar un solo control entre varios en Acucobol

Publicado por Marcos Antonio (3 intervenciones) el 15/05/2006 23:41:01

Hola gente, no encuentro la manera de activar un solo control, cuando existen varios controles en una ventana del Acucobol 5.2. Ejemplo: tengo 3 entry field en una ventana flotante en la cual cada vez que ingreso a dicha ventana, no puedo activar un entry field determinado... Cabe acotar que al entrar a la ventana utilizo el ACCEPT para toda la ventana flotante.... Espero que alguien me pueda ayudar..... Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Activar un Entry Field específico en AcuCOBOL 5.2

Publicado por Alejandro (300 intervenciones) el 06/09/2023 22:57:38

Si deseas activar un Entry Field específico en una ventana flotante en AcuCOBOL 5.2, puedes hacerlo utilizando la propiedad `SET FOCUS` para cambiar el enfoque al Entry Field deseado. A continuación, te muestro un ejemplo de cómo lograrlo:

IDENTIFICATION DIVISION.

PROGRAM-ID. ActivarEntryField.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 ENTRY-FIELD-1 PIC X(20).

01 ENTRY-FIELD-2 PIC X(20).

01 ENTRY-FIELD-3 PIC X(20).

01 INPUT-FIELD PIC X(1).

SCREEN SECTION.

01 EMPTY-LINE.

   05 BLANK SCREEN.

01 FLOATING-WINDOW.

   05 WINDOW TITLE "Ventana Flotante".

   05 ENTRY FIELD ENTRY-FIELD-1 LINE 3 COLUMN 5.

   05 ENTRY FIELD ENTRY-FIELD-2 LINE 5 COLUMN 5.

   05 ENTRY FIELD ENTRY-FIELD-3 LINE 7 COLUMN 5.

   05 INPUT FIELD INPUT-FIELD LINE 9 COLUMN 5.

PROCEDURE DIVISION.

   MAIN-LOGIC.

   DISPLAY FLOATING-WINDOW.

   ACCEPT INPUT-FIELD.

   IF INPUT-FIELD = "1" THEN

       SET FOCUS TO ENTRY-FIELD-1

   ELSE IF INPUT-FIELD = "2" THEN

       SET FOCUS TO ENTRY-FIELD-2

   ELSE IF INPUT-FIELD = "3" THEN

       SET FOCUS TO ENTRY-FIELD-3

   ELSE

       DISPLAY "Opción no válida."

   END-IF.

   GO TO MAIN-LOGIC.

   STOP RUN.

En este ejemplo, hemos creado una ventana flotante con tres Entry Fields (ENTRY-FIELD-1, ENTRY-FIELD-2 y ENTRY-FIELD-3). Luego, le pedimos al usuario que ingrese un número (1, 2 o 3) en el campo de entrada INPUT-FIELD.

Según la opción ingresada por el usuario, utilizamos la instrucción `SET FOCUS TO` para cambiar el enfoque al Entry Field correspondiente.

Espero que este ejemplo te ayude a activar el Entry Field específico que necesitas en tu ventana flotante en AcuCOBOL 5.2. Asegúrate de adaptar el código a tu aplicación según sea necesario.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar