-STATUS GUI
*SE41 - Menu Painter - Permite copiar Status GUI de un programa a otro.
Componente de un programa ABAP que proporciona varias funcionalidades en la pantalla, está presente siempre que se requiera interacción con el usuario.
Se utilizan en reportes, programación de diálogo o Module Pool
Se compone de:
Barras de herramientas, de menú, teclas de función.
-Creacion
*SE80 En el nombre de nuestro programa -> Click derecho -> Crear -> Status GUI -> Status 0100 -> Short Text -> Continue.
Veremos -User Interface, -Menu Bar, -Application toolbar, -Function keys
Desplegamos la lista de -Application toolbar -> 1er item ponemos USU_ACTI (Corresponderá al botón Usuarios activos) -> Enter -> Create function text -> Continue -> Function text=Reporte (Texto a la derecha del botón), Icon name=ICON_EXECUTE_OBJECT. Info text=Reporte de usuarios activos (Texto emergente del botón). -> Continue -> Function key=|Shift+F1| -> Continue -> Click on the new icon -> Icon Text=Reporte de usuarios activos -> Continue
*Repetir para USU_INACT
-Grabar y activar
*****Ahora INVOCARLO dentro del programa.
START OF SELECTION.
SET PF-STATUS '0100'.
*sy-pfkey "Esta variable nos puede indicar el GUI Status actual
-Para capturar el evento de boton presionado:
AT-USER-COMMAND + SY-UCOMM (Variable con el código de función del botón presionado por el usuario)
*SY-UCOMM Variable muy útil y utilizada ampliamente en programas de diálogo, permite debugging.
AT-USER-COMMAND.
IF sy-ucomm = 'USU_ACTI'.
PERFORM usuarios_activos.
ELSEIF sy-ucomm = 'USU_INACT'.
PERFORM usuarios_inactivos.
ENDIF.
*Activamos y ejecutamos el programa.
-Administración
*SE41 Transacción para administrarlos
program_name -> Status = 0100 -> Change
-CREACIÓN DE TÍTULOS.
*SE80 -> click derecho sobre el nombre del programa -> Create -> GUI Titles -> Title Code=0100 (No tiene nada que ver con el 0100 de Status GUI), Title=Usuarios activos.
*Crear 0200 para inactivos y 0300 pantalla inicial
*** INVOCARLOS dentro del programa
START OF SELECTION.
SET PF-STATUS '0100'.
SET TITLEBAR '0300'. "Esta es la línea que se añade al inicio.
...
IF sy-ucomm = 'USU_ACTI'.
SET TITLEBAR '0100'.
...
ELSEIF sy-ucomm = 'USU_INACT'.
SET TITLEBAR '0200'.