快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

金沙国际娱城app_博格自动化网进入



REPORT Z_SEND_POPUP NO STANDARD PAGE HEADING.

include .

* Global data decleration

data: itab_uinfo like standard table of uinfo with header line.

data: itab_send like standard table of uinfo with header line.

data: box(1) TYPE c,

lines T金沙国际娱城appYPE i,

w_text1 like sm04dic-popupmsg,

w_text2 like sm04dic-popupmsg,

message like SM04DIC-POPUPMSG.

start-of-selection.

set pf-status 'LIST'.

* Text which should be send to other users

perform show_input_message.

* First, show all User which are in the system...

perform show_loged_on_users.

lines = sy-linno - 1.

END-OF-SELECTION.

AT USER-COMMAND.

case sy-ucomm.

when 'EXEC'.

* Determine Text

read line 2 field value w_text1.

w_text2 = w_text1.

DO 金沙国际娱城applines TIMES.

clear box.

READ LINE sy-index FIELD VALUE box.

IF box = 'X'.

itab_send-bname = itab_uinfo-bname.

itab_send-mandt = itab_uinfo-m金沙国际娱城appandt.

append itab_send.

endif.

enddo.

* Finally send message....

perform send_message.

when 'AUFF'.

* Text which should be send to other users

perform show_input_message.

* First, show all User which are in the system...

perform show_loged_on_users.

lines = sy-linno - 1.

sy-lsind = sy-lsind - 1.

when others.

endcase.

*&---金沙国际娱城app------------------------------------------------------------------*

*& Form show_loged_on_users

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

*p1 text

*0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

loop at itab_RFCHOSTS.

CALL FUNCTION 'THUSRINFO' Destination itab_rfchosts

TABLES

USR_TABL = itab_UINFO

EXCEPTIONS communication_failure = 17.

endloop.

ENDFORM. " get_loged_on_users

*&---------------------------------------------------------------------*

*& Form combine_users

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

*p1 text

*p1 text

*p1 text

*0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

else.

w_success = 'X'.

endif.

endloop.

refresh itab_send.

clear itab_send.

if w_success ne space.

w_icon1 =金沙国际娱城app 'ICON_MANAGER'.

w_icon2 = 'ICON_PM_INSERT'.

w_icon3 = 'ICON_MESSAGE_INFORMATION_SMALL'.

concatenate sy-uname

':Your message has be send to the selected user(s)'

into w_succt.

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

TITLEBAR = 'Send Message to User'

TEXT_QUESTION = w_succt

TEXT_BUTTON_1 = 'Yes'

ICON_BUTTON_1 = w_icon1

TEXT_BUTTON_2 = 'Yuhuu'

ICON_BUTTON_2 = w_icon2

DISPLAY_CANCEL_BUTTON = ' '

POPUP_TYPE = w_icon3

* IMPORTING

* ANSWER =

* TABLES

* PARAMETER =

EXCEPTIONS

TEXT_NOT_FOUND = 1

OTHERS = 2

.

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

endif.

ENDFORM. " send_message

您可能还会对下面的文章感兴趣: