✒️ABAP Los status GUI y los títulos
ABAP Los status GUI y los títulos
1 - Creación de un status GUI
STATUS GUI: Es un componente independiente de los programas ABAP, que se utilizan para proporcionarle al usuario un amplio rango de funciones en la pantalla de los programas.
El Status GUI esta compuesto por:
- Barra de menú.
- Barra de herramientas estándar.
- Barra de herramientas de aplicaciones.
- Configuración de teclas de función.
Para crear el STATUS GUI nos vamos a la transacción SE80 y damos clic derecho en el programa y seleccionamos Crear y después Status GUI.
Una vez creado el STATUS GUI, lo declaramos en el programa con la sentencia SET PF-STATUS:
START-OF-SELECTION.
SET PF-STATUS '0100'.
WRITE 'Selecciona alguna de las dos opciones del reporte'.
Después para identificar el Botón que presionó el usuario, utilizamos el evento AT USER-COMMAND junto con la variable del sistema SY-UCOMM que contendrá el código de función correspondiente al botón presionado:
AT USER-COMMAND.
IF sy-ucomm = 'USU_ACTI'.
PERFORM usuarios_activos.
ELSEIF sy-ucomm = 'USU_INACTI'.
PERFORM usuarios_inactivos.
ENDIF
Transacción SE41: Mediante esta transacción se puede copiar un Status GUI de un programa ABAP a otro.
Para copiarlo hacemos lo siguiente:
- Identificar el Status GUI en el programa que vamos a copiar, para ello ejecutamos el programa y vamos Sistema/Status y en la pantalla que presenta identificamos el Status GUI en el campo Status interfase.
- Despues vamos a la transacción SE41 y damos clic en el boton Status0 y aparece la pantalla que solicita el Programa y Status de Origen y Destino de la copia.
2 - Creacion de titulos.
Para crear los títulos para nuestro reporte nos vamos a la transacción SE80 y damos clic derecho en el programa y seleccionamos Crear y después Títulos GUI.
Una vez creado el o los títulos necesarios, los declaramos en el reporte con la sentencia SET TITLE:
START-OF-SELECTION.
SET PF-STATUS '0100'.
SET TITLEBAR '0300'.
WRITE 'Seleccione alguna de las dos opciones del reporte'.
AT USER-COMMAND.
IF sy-ucomm = 'USU_ACTI'.
SET TITLEBAR '0100'.
PERFORM usuarios_activos.
ELSEIF sy-ucomm = 'USU_INACTI'.
SET TITLEBAR '0200'.
PERFORM usuarios_inactivos.
ENDIF.
 
 
 
Sobre el autor
Publicación académica de Calixto Guti?rrez, en su ámbito de estudios para la Carrera Consultor ABAP.
Calixto Guti?rrez
Profesión: Ingeniero en Sistemas Computacionales - Mexico - Legajo: JW47Q
✒️Autor de: 120 Publicaciones Académicas
🎓Egresado de los módulos:
Certificación Académica de Calixto Guti?rrez