ABAP弹出多条提示信息的函数

  • 4
  • 678 views
  • A+
所属分类：Notes

abap函数之RSDC_SHOW_MESSAGES_POPUP

用法举例：
定义变量
DATA ZZI_TXT(20) TYPE C."消息框抬头
DATA ZZMSG TYPE RS_T_MSG WITH HEADER LINE. "消息行(内表)
DATA ZZSYMSGV TYPE SYMSGV.

赋值
loop at itab[].
ZZI_TXT = '注意事项：'.
IF SY-SUBRC NE 0.
CONCATENATE '在会计年度' S_HKRQ-LOW(4) '中' INTO ZZSYMSGV.
ZZMSG-MSGTY = 'E'.
ZZMSG-MSGID = 'S000'.
ZZMSG-MSGNO = '000'.
ZZMSG-MSGV1 = '外部物料组'.
ZZMSG-MSGV2 = itab-EXTWG.
ZZMSG-MSGV3 = ZZSYMSGV.
ZZMSG-MSGV4 = '没有维护奖罚系数，请联系财务经理！'.
APPEND ZZMSG.
ENDIF.
endloop.

调用函数
IF ZZMSG[] IS NOT INITIAL.
CALL FUNCTION 'RSDC_SHOW_MESSAGES_POPUP'
EXPORTING
I_T_MSG = ZZMSG[]
I_TXT   = ZZI_TXT
I_WITH_S_ON_EMPTY = ''  "leace blank for false, 'x'' for true.
I_ONE_MSG_DIRECT  = ''
I_ONE_MSG_TYPE_S  = ''
*    IMPORTING
*       E_S_EXIT_COMMAND  =
.

注意事项：
下面的三个参数要传入''，否则弹不出窗口，信息会显示在消息栏上！
I_WITH_S_ON_EMPTY = ''  "leace blank for false, 'x'' for true.
I_ONE_MSG_DIRECT  = ''
I_ONE_MSG_TYPE_S  = ''

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

目前评论：4   其中：访客  4   博主  0

    • ag 回复 2017.05.15 07:11  4楼

      MESSAGE ‘Warning Message’ TYPE ‘I’ DISPLAY LIKE ‘W’.

      • ag 回复 2017.05.15 07:09  地板

        Try POPUP* in se37 and find the function modules which suits your requirement

        • ag 回复 2017.05.15 07:09  板凳

          FC_POPUP_ERR_WARN_MESSAGE这个函数有个缺点，不能很好的识别中文，如果使用中文、弹出的窗口宽度非常小、会掩藏掉汉字。
          可以塞一部分英文进去！！

          • ag 回复 2017.05.15 07:09  沙发

            其他参考：
            CALL FUNCTION ‘POPUP_TO_INFORM’
            EXPORTING
            titel = w_titel
            txt1 = w_txt
            txt2 = ‘ ‘
            txt3 = ‘ ‘
            txt4 = ‘ ‘.