SAP系统中发送消息的几种办法
生活随笔
收集整理的這篇文章主要介紹了
SAP系统中发送消息的几种办法
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
1、SM02 創建消息,并設定有效期。當用戶刷新窗口或打開窗口時會顯示。 這個消息對client中的所有用戶有效 2、So00中創建“到期郵件” So00中創建一個普通郵件,在下面選擇收件人,收件人后面有三個可選項,選中第一個(閃電標志):到期郵件 郵件發出后,當用戶刷新窗口或打開窗口時會顯示。 3、用ABAP程序創建系統提示:這個提示的效果像是SAP系統出錯時的提示,用戶體驗可能不夠好,代碼如下: *&---------------------------------------------------------------------*
*& Report?YSENDMSG???????????????????????????????????????????????????*
*&---------------------------------------------------------------------*
REPORT? ysendmsg? MESSAGE-ID zsd.
DATA: list LIKE uinfo OCCURS 0 WITH HEADERLINE.
DATA: mess LIKE sm04dic-popupmsg.
PARAMETERS: p_mandt? LIKE? sy-mandtDEFAULT sy-mandt,
???????????p_user?? LIKE sy-uname,
???????????p_mess1(40),
???????????p_mess2(40),
???????????p_mess3(25),
???????????p_sender LIKE sy-uname DEFAULT sy-uname,
???????????p_time TYPE i DEFAULT '1'. AT SELECTION-SCREEN.
? PERFORM check. START-OF-SELECTION.
? CONCATENATE p_sender 'says:' p_mess1 p_mess2p_mess3 INTO mess.
? CONDENSE mess.
? DO p_time TIMES.
??? CALL FUNCTION 'TH_POPUP'
????? EXPORTING
??????? client? =p_mandt
??????? user??? =p_user
??????? MESSAGE = mess.
? ENDDO.
*---------------------------------------------------------------------
*?????? FORM check
*---------------------------------------------------------------------
FORM check.
? CALL FUNCTION 'TH_USER_LIST'
??? TABLES
????? list = list.
? READ TABLE list WITH KEY bname = p_user mandt =p_mandt.
? IF sy-subrc <>? 0.
??? READ TABLE list WITH KEY bname = p_user.
??? MESSAGE e001 WITH 'the user not on this client,but in'
???? list-mandt.
? ENDIF.
ENDFORM.???????????????????" check
*& Report?YSENDMSG???????????????????????????????????????????????????*
*&---------------------------------------------------------------------*
REPORT? ysendmsg? MESSAGE-ID zsd.
DATA: list LIKE uinfo OCCURS 0 WITH HEADERLINE.
DATA: mess LIKE sm04dic-popupmsg.
PARAMETERS: p_mandt? LIKE? sy-mandtDEFAULT sy-mandt,
???????????p_user?? LIKE sy-uname,
???????????p_mess1(40),
???????????p_mess2(40),
???????????p_mess3(25),
???????????p_sender LIKE sy-uname DEFAULT sy-uname,
???????????p_time TYPE i DEFAULT '1'. AT SELECTION-SCREEN.
? PERFORM check. START-OF-SELECTION.
? CONCATENATE p_sender 'says:' p_mess1 p_mess2p_mess3 INTO mess.
? CONDENSE mess.
? DO p_time TIMES.
??? CALL FUNCTION 'TH_POPUP'
????? EXPORTING
??????? client? =p_mandt
??????? user??? =p_user
??????? MESSAGE = mess.
? ENDDO.
*---------------------------------------------------------------------
*?????? FORM check
*---------------------------------------------------------------------
FORM check.
? CALL FUNCTION 'TH_USER_LIST'
??? TABLES
????? list = list.
? READ TABLE list WITH KEY bname = p_user mandt =p_mandt.
? IF sy-subrc <>? 0.
??? READ TABLE list WITH KEY bname = p_user.
??? MESSAGE e001 WITH 'the user not on this client,but in'
???? list-mandt.
? ENDIF.
ENDFORM.???????????????????" check
總結
以上是生活随笔為你收集整理的SAP系统中发送消息的几种办法的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: SAP Basis 应该做什么
- 下一篇: 物料分类账业务配置及操作手册