* Pop a Message to specific SAP users * * How to get a list of all the currently logged on users? * How to popup an instant message on a user';s monitor? * How to get a specific user';s details? * Usage of ';POPUP_GET_VALUES'; function module to get data from user * without having to write GUI code * * Submitted by : SAP Basis, ABAP Programming and Other IMG Stuff * * REPORT ZPOPUP NO STANDARD PAGE HEADING. INCLUDE <ICON>. DATA: BEGIN OF USR_TABL OCCURS 0. INCLUDE STRUCTURE UINFO. DATA: END OF USR_TABL. DATA: L_LENGTH TYPE I, T_ABAPLIST LIKE ABAPLIST OCCURS 0 WITH HEADER LINE, BEGIN OF T_USER OCCURS 0, COUNTER TYPE I, SELECTION TYPE C, MANDT LIKE SY-MANDT, BNAME LIKE SY-UNAME, NAME_FIRST LIKE V_ADRP_CP-NAME_FIRST, NAME_LAST LIKE V_ADRP_CP-NAME_LAST, DEPARTMENT LIKE V_ADRP_CP-DEPARTMENT, TEL_NUMBER LIKE V_ADRP_CP-TEL_NUMBER, END OF T_USER, L_CLIENT LIKE SY-MANDT, L_USERID LIKE UINFO-BNAME, L_OPCODE TYPE X, L_FUNCT_CODE(1) TYPE C, L_TEST(200) TYPE C. L_OPCODE = 2. CALL ';ThUsrInfo'; ID ';OPCODE'; FIELD L_OPCODE ID ';TAB'; FIELD USR_TABL-*SYS*. CLEAR T_USER. REFRESH T_USER. LOOP AT USR_TABL. T_USER-MANDT = USR_TABL-MANDT. T_USER-BNAME = USR_TABL-BNAME. APPEND T_USER. ENDLOOP. SORT T_USER. DELETE ADJACENT DUPLICATES FROM T_USER. LOOP AT T_USER. T_USER-COUNTER = SY-TABIX. SELECT V~NAME_FIRST V~NAME_LAST V~DEPARTMENT V~TEL_NUMBER INTO (T_USER-NAME_FIRST, T_USER-NAME_LAST, T_USER-DEPARTMENT, T_USER-TEL_NUMBER) FROM USR21 AS U JOIN V_ADRP_CP AS V ON U~PERSNUMBER = V~PERSNUMBER AND U~ADDRNUMBER = V~ADDRNUMBER WHERE U~BNAME = T_USER-BNAME. ENDSELECT. MODIFY T_USER. ENDLOOP. SORT T_USER BY DEPARTMENT NAME_LAST. PERFORM DISPLAY_LIST. TOP-OF-PAGE. PERFORM DISPLAY_MENU. * End of top-of-page TOP-OF-PAGE DURING LINE-SELECTION. PERFORM DISPLAY_MENU. * End of top-of-page during line-selection AT LINE-SELECTION. IF SY-CUROW = 2. IF SY-CUCOL < 19. T_USER-SELECTION = ';X';. MODIFY T_USER TRANSPORTING SELECTION WHERE SELECTION = ';';. PERFORM DISPLAY_LIST. ELSEIF SY-CUCOL < 36. CLEAR T_USER-SELECTION. MODIFY T_USER TRANSPORTING SELECTION WHERE SELECTION = ';X';. PERFORM DISPLAY_LIST. ELSEIF SY-CUCOL < 50. PERFORM TRANSFER_SELECTION. PERFORM POPUP_MSG. ELSEIF SY-CUCOL < 67. PERFORM TRANSFER_SELECTION. SORT T_USER BY NAME_LAST. PERFORM DISPLAY_LIST. ELSEIF SY-CUCOL < 81. PERFORM TRANSFER_SELECTION. SORT T_USER BY NAME_FIRST. PERFORM DISPLAY_LIST. ELSEIF SY-CUCOL < 93. PERFORM TRANSFER_SELECTION. SORT T_USER BY MANDT. PERFORM DISPLAY_LIST. ENDIF. ENDIF. * End of line-selection *&---------------------------------------------------------------------* *& Form DISPLAY_LIST *&---------------------------------------------------------------------* FORM DISPLAY_LIST. SY-LSIND = 0. FORMAT COLOR COL_NORMAL INTENSIFIED OFF. LOOP AT T_USER. WRITE: / SY-VLINE, T_USER-SELECTION AS CHECKBOX, SY-VLINE, T_USER-MANDT, SY-VLINE, T_USER-BNAME, SY-VLINE, T_USER-NAME_FIRST(15), SY-VLINE, T_USER-NAME_LAST(15), SY-VLINE, T_USER-DEPARTMENT(20), SY-VLINE, T_USER-TEL_NUMBER(20), SY-VLINE. HIDE: T_USER-COUNTER, T_USER-SELECTION. ENDLOOP. FORMAT COLOR OFF. WRITE: /(108) SY-ULINE. ENDFORM. " DISPLAY_LIST *&---------------------------------------------------------------------* *& Form DISPLAY_MENU *&---------------------------------------------------------------------* FORM DISPLAY_MENU. FORMAT COLOR COL_HEADING HOTSPOT. WRITE: (91) SY-ULINE, / SY-VLINE NO-GAP, (4) ICON_SELECT_ALL NO-GAP, ';Select All';, SY-VLINE NO-GAP, (4) ICON_DESELECT_ALL NO-GAP, ';Deselect All';, SY-VLINE NO-GAP, (4) ICON_SHORT_MESSAGE NO-GAP, ';Send Popup';, SY-VLINE NO-GAP, (4) ICON_SORT_UP NO-GAP, ';Last Name'; NO-GAP, SY-VLINE NO-GAP, (4) ICON_SORT_UP NO-GAP, ';First Name'; NO-GAP, SY-VLINE NO-GAP, (4) ICON_SORT_UP NO-GAP, ';Client'; NO-GAP, SY-VLINE, /(91) SY-ULINE, /(108) SY-ULINE. FORMAT HOTSPOT OFF. WRITE: / SY-VLINE, '; ';, SY-VLINE, ';Cli';, SY-VLINE, ';User ';, SY-VLINE, ';First Name ';, SY-VLINE, ';Last Name ';, SY-VLINE, ';Department ';, SY-VLINE, ';Telephone ';, SY-VLINE, /(108) SY-ULINE. FORMAT COLOR OFF. ENDFORM. " DISPLAY_MENU *&---------------------------------------------------------------------* *& Form TRANSFER_SELECTION *&---------------------------------------------------------------------* FORM TRANSFER_SELECTION. DO. READ LINE SY-INDEX FIELD VALUE T_USER-SELECTION. IF SY-SUBRC <> 0. EXIT. ENDIF. MODIFY T_USER TRANSPORTING SELECTION WHERE COUNTER = T_USER-COUNTER. ENDDO. CLEAR T_USER. ENDFORM. " TRANSFER_SELECTION *&---------------------------------------------------------------------* *& Form POPUP_MSG *&---------------------------------------------------------------------* FORM POPUP_MSG. DATA: L_MSG LIKE SM04DIC-POPUPMSG VALUE ';Experimental Message';, L_LEN TYPE I, L_RET TYPE C. LOOP AT T_USER WHERE SELECTION = ';X';. PERFORM GET_MESSAGE CHANGING L_MSG L_RET. EXIT. ENDLOOP. IF L_RET = ';A';. "User cancelled the message EXIT. ENDIF. * Get the message text L_LEN = STRLEN( L_MSG ). LOOP AT T_USER WHERE SELECTION = ';X';. CALL FUNCTION ';TH_POPUP'; EXPORTING CLIENT = T_USER-MANDT USER = T_USER-BNAME MESSAGE = L_MSG MESSAGE_LEN = L_LENGTH * CUT_BLANKS = '; '; EXCEPTIONS USER_NOT_FOUND = 1 OTHERS = 2. IF SY-SUBRC <> 0. WRITE: ';User ';, T_USER-BNAME, ';not found.';. ENDIF. ENDLOOP. IF SY-SUBRC <> 0. * Big error! No user has been selected. MESSAGE ID ';AT'; TYPE ';E'; NUMBER ';315'; WITH ';No user selected!';. EXIT. ENDIF. ENDFORM. " POPUP_MSG *&---------------------------------------------------------------------* *& Form GET_MESSAGE *&---------------------------------------------------------------------* FORM GET_MESSAGE CHANGING P_L_MSG LIKE SM04DIC-POPUPMSG P_RETURNCODE TYPE C. DATA: BEGIN OF FIELDS OCCURS 1. INCLUDE STRUCTURE SVAL. DATA: END OF FIELDS, RETURNCODE TYPE C. FIELDS-TABNAME = ';SM04DIC';. FIELDS-FIELDNAME = ';POPUPMSG';. FIELDS-FIELDTEXT = ';Message :';. CONCATENATE '; - Msg from'; SY-UNAME ';.'; INTO FIELDS-VALUE SEPARATED BY '; ';. APPEND FIELDS. CALL FUNCTION ';POPUP_GET_VALUES'; EXPORTING POPUP_TITLE = ';Supply the popup message'; IMPORTING RETURNCODE = P_RETURNCODE TABLES FIELDS = FIELDS. IF P_RETURNCODE = ';A';. EXIT. ELSE. READ TABLE FIELDS INDEX 1. P_L_MSG = FIELDS-VALUE. ENDIF. ENDFORM. " GET_MESSAGE *-- End of Program
相关文章
- SAP中发消息报表程序
- 如何打通 SAP Cloud for Customer 系统和微信公众号的双向消息通信功能
- Delphi7 从子线程中发送消息到主线程触发事件执行
- NSNotificationCenter不在Swift中发送消息
- 已成功与服务器建立连接,但是在登录过程中发生错误。 (provider: SSL Provider, error: 0 - 接收到的消息异常,或格式不正确。)
- SAP CRM 显示消息/在消息中进行导航
- 微信小程序中发送模版消息注意事项
- Sql server2012连接Sql server 2008时出现的问题:已成功与服务器建立连接,但在登陆过程中发生错误。(provider:SSL Provider,error:0-接收到的消息异常,或格式不正确。)
- 使用ruby on rails在json中发送错误消息