hab hier ein kleines Schnuckeliges Progrämmchen mit dem man schnell und ohne Probleme an Kollegen Nachrichten schicken kann, die er gleich auf den Bildschirm bekommt(per PopUp).
Sehr nützlich um an mehrere Kollegen gleichzeitzig zu sagen, das jetzt Kaffeepause ist.
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- MSG LIKE SM04DIC-POPUPMSG,
- P_MSG(115) VALUE 'hier Nachricht eingeben'.
- BNAME LIKE UINFO-BNAME,
- TCODE LIKE UINFO-TCODE,
- NAME1 LIKE USR03-NAME1,
- NAME2 LIKE USR03-NAME2,
- NAME3 LIKE USR03-NAME3,
- NAME4 LIKE USR03-NAME4,
- ABTLG LIKE USR03-ABTLG,
- END OF ITAB_UINFO.
- SELECT-OPTIONS S_BNAME FOR UINFO-BNAME.
- S_BNAME-SIGN = 'I'.
- S_BNAME-OPTION = 'CP'.
- S_BNAME-LOW = 'I*'.
- APPEND S_BNAME.
- PERFORM BENUTZER_ERMITTELN.
- PERFORM GRUNDLISTE.
- ********
- AT PF06.
- ********
- PERFORM BENUTZER_ERMITTELN.
- PERFORM GRUNDLISTE.
- ********
- AT PF07.
- ********
- CALL SELECTION-SCREEN 1001 STARTING AT 3 3.
- PERFORM BENUTZER_ERMITTELN.
- PERFORM GRUNDLISTE.
- ********
- AT PF08.
- ********
- * Versenden
- CALL FUNCTION 'TMS_WBO_READ_USER_ADDRESS'
- EXPORTING
- IV_USER_NAME = SY-UNAME
- IMPORTING
- ES_USR03 = USR03
- EXCEPTIONS
- USER_ADDRESS_NOT_FOUND = 1
- INTERNAL_ERROR = 2
- OTHERS = 3.
- READ LINE 1 FIELD VALUE P_MSG.
- LAENGE = STRLEN( MSG ).
- DO.
- CLEAR MARK.
- READ LINE SY-INDEX FIELD VALUE MARK.
- CALL FUNCTION 'TH_POPUP'
- EXPORTING
- CLIENT = SY-MANDT
- USER = ITAB_UINFO-BNAME
- MESSAGE = MSG
- MESSAGE_LEN = LAENGE
- * CUT_BLANKS = ' '
- EXCEPTIONS
- USER_NOT_FOUND = 1
- OTHERS = 2.
- *---------------------------------------------------------------------*
- * FORM GRUNDLISTE *
- *---------------------------------------------------------------------*
- * ........ *
- *---------------------------------------------------------------------*
- FORM GRUNDLISTE.
- SET BLANK LINES ON.
- SY-LSIND = 0.
- SKIP.
- '<F6> Auffrischen / ' &
- '<F7> andere Benutzerauswahl'
- COLOR COL_NEGATIVE INVERSE ON.
- CLEAR MARK.
- LOOP AT ITAB_UINFO.
- ITAB_UINFO-NAME1 COLOR COL_HEADING,
- ITAB_UINFO-NAME2 COLOR COL_NORMAL,
- ITAB_UINFO-ABTLG COLOR COL_HEADING.
- *---------------------------------------------------------------------*
- * FORM BENUTZER_ERMITTELN *
- *---------------------------------------------------------------------*
- * ........ *
- *---------------------------------------------------------------------*
- FORM BENUTZER_ERMITTELN.
- REFRESH ITAB_UINFO.
- CALL FUNCTION 'TH_SYSTEMWIDE_USER_LIST'
- LIST = UINFO
- EXCEPTIONS
- OTHERS = 1.
- CALL FUNCTION 'TMS_WBO_READ_USER_ADDRESS'
- EXPORTING
- IV_USER_NAME = UINFO-BNAME
- IMPORTING
- ES_USR03 = USR03
- EXCEPTIONS
- USER_ADDRESS_NOT_FOUND = 1
- INTERNAL_ERROR = 2
- OTHERS = 3.
- APPEND ITAB_UINFO.
- GeSHi ©