Truco 25. Utilidad para envio de mensajes online a usuarios conectados.

En cualquier sistema Sap tenemos disponible una herramienta para crear mensajes del sistema. Con la transacción SM02 podemos crear estos avisos que serán visibles por los usuarios al entrar al sistema o si ya estan conectados, cuando realicen la siguiente interacción con el sapgui.

A través de estos mensajes, podemos avisar de tareas de mantenimiento, actualizaciones, problemas con algún módulo o cualquier aspecto relevante para que sea conocido por todos los usuarios del sistema. El mensaje se muestra como una ventana emergente cuando el usuario interactua con el sistema Sap.

Se echa de menos una utilidad que nos permita enviar mensajes a usuarios especificos y que los mensajes sean del tipo Popup. Es decir, que sean inmediatamente visibles aunque el usuario no este trabajando en ese momento con su pantalla de Sap (aunque la pueda tener abierta).

Para solventar este requerimiento de administración, vamos a programar una pequeña utilidad en Abap que nos cubrira esta necesidad, utilizando el módulo de función  ‘TH_POPUP’. Esta funcion nos permite activar un popup emergente a cualquier usuario que tenga abierto en su ordenador el Sapgui conectado a una instancia Sap.

El report nos preguntara a quien queremos enviar el mensaje y el texto de este.

Al ejecutar el programa, la ventana emergente del usuario aparecera en su equipo y nos aseguraremos de la notificación.

El código del programa es el siguiente:

 REPORT ZBCMENSAJES.

 TABLES:
             TSTC,
             TSTCT,USR21,ADRP.

 DATA OPCODE            TYPE X.
 DATA: BEGIN OF USR_TABL OCCURS 10.
         INCLUDE STRUCTURE UINFO.
 DATA: END OF USR_TABL.

* select-options: s_tcode for tstc-tcode.
* selection-screen: skip 1.
 SELECTION-SCREEN: BEGIN OF BLOCK BLOQUE1 WITH FRAME TITLE TEXT-001.
 PARAMETERS:  USUA RADIOBUTTON GROUP UNO DEFAULT 'X',
              CONE RADIOBUTTON GROUP UNO.
 SELECTION-SCREEN: END OF BLOCK BLOQUE1.
 SELECTION-SCREEN: SKIP 1.
 SELECTION-SCREEN: BEGIN OF BLOCK BLOQUE2 WITH FRAME TITLE TEXT-002.
 PARAMETERS:  USUARIO LIKE USR_TABL-BNAME,
              MENSAJE LIKE SM04DIC-POPUPMSG.
 SELECTION-SCREEN: END OF BLOCK BLOQUE2.

INITIALIZATION.

 START-OF-SELECTION.
   IF CONE = 'X'.
     CLEAR USR_TABL.
     FREE  USR_TABL.
* set the function call mode
     OPCODE = 2.
* get list of all users actually logging on
     CALL 'ThUsrInfo' ID 'OPCODE' FIELD OPCODE
                      ID 'TAB' FIELD USR_TABL-*SYS*.
     SORT USR_TABL BY BNAME TCODE.

     LOOP AT USR_TABL.                 " where tcode in s_tcode.
       CLEAR TSTCT.
       SELECT SINGLE TTEXT FROM TSTCT INTO TSTCT-TTEXT
                           WHERE SPRSL = SY-LANGU       AND
                                 TCODE = USR_TABL-TCODE.

       TRANSLATE TSTCT-TTEXT TO UPPER CASE.
       CLEAR USR21.
       SELECT        * FROM  USR21
              WHERE  BNAME  = USR_TABL-BNAME.
         CLEAR ADRP.
         SELECT        * FROM  ADRP
                WHERE  PERSNUMBER  = USR21-PERSNUMBER.

         ENDSELECT.
       ENDSELECT.

       CALL FUNCTION 'TH_POPUP'
            EXPORTING
                 CLIENT         = SY-MANDT
                 USER           = USR_TABL-BNAME
                 MESSAGE        = MENSAJE
            EXCEPTIONS
                 USER_NOT_FOUND = 1
                 OTHERS         = 2.
       IF SY-SUBRC EQ 0.
         WRITE:/ 'Mensaje enviado CORRECTAMENTE al usuario..: ',
              USUARIO,
              ADRP-NAME_TEXT+0(40).
       ELSE.
         WRITE:/ 'ERROR AL ENVIAR MENSAJE al usuario..: ',
              USUARIO,
              ADRP-NAME_TEXT+0(40),
              'USUARIO INEXISTENTE O NO CONECTADO'.
       ENDIF.
     ENDLOOP.

     IF SY-SUBRC <> 0.
       MESSAGE I001(38) WITH 'NO ENTRIES FOR YOUR SELECTION CRITERIA!'.
     ENDIF.
   ELSE.
     CALL FUNCTION 'TH_POPUP'
          EXPORTING
               CLIENT         = SY-MANDT
               USER           = USUARIO
               MESSAGE        = MENSAJE
          EXCEPTIONS
               USER_NOT_FOUND = 1
               OTHERS         = 2.
     IF SY-SUBRC EQ 0.
       WRITE:/ 'Mensaje enviado CORRECTAMENTE al usuario..: ',
            USUARIO,
            ADRP-NAME_TEXT+0(40).
     ELSE.
       WRITE:/ 'ERROR AL ENVIAR MENSAJE al usuario..: ',
            USUARIO,
            ADRP-NAME_TEXT+0(40),
            'USUARIO INEXISTENTE O NO CONECTADO'.
     ENDIF.
   ENDIF.

BONUS: en ocasiones necesitamos transportar el codigo fuente de nuestros programas y dynpros en un medio diferente a ordenes de transporte (ver entrada del SCN para descargar un paquete completo en una orden de transporte). Siempre tenemos la opción del upload/download del editor Abap (transacción SE38). Ademas, Sap nos proporciona el report REPTRAN que permite descargar a fichero el codigo fuente de varios programas a la vez de forma masiva (aunque no permite el upload del programa descargado). Ademas, en algunos blogs aparecen utilidades que nos permiten realizar este proceso de forma masiva, por ejemplo, erpgreat.com (solo funciona hasta la version 4.7) o el proyecto de Google Code copyabapprogram (nos permite descargar en un fichero el codigo fuente, atributos del programa, textos, documentación, status y traducciones).