ITPub博客

首页 > 应用开发 > IT综合 > R/3 系统发送消息测试程序

R/3 系统发送消息测试程序

原创 IT综合 作者:ghuafeng 时间:2005-10-13 14:42:16 0 删除 编辑

REPORT zsapsap message-id za.
data: list like uinfo occurs 0 with header line.
data: mess like sm04dic-popupmsg.
parameters: p_mandt like sy-mandt default 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_mess2 p_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

[@more@]

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/28994/viewspace-807871/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    57
  • 访问量
    1220502