二维码

ABAP实现多条消息弹出POPUP对话框

Twilight发表于 2019-03-11 15:13Twilight 最后回复于 2019-03-11 15:13 [复制链接] 3955 0

有些场景需要弹出多条消息,可以使用SAP标准函数:C14Z_MESSAGES_SHOW_AS_POPUP实现。

1、测试代码
  1. TYPE-POOLS: esp1.

  2. DATA: lt_message_tab TYPE esp1_message_tab_type.
  3. DATA: ls_message_tab TYPE esp1_message_wa_type.
  4. DATA: lv_lineno TYPE mesg-zeile.

  5. CLEAR:ls_message_tab.
  6. ls_message_tab-msgid  = 'E4'.
  7. ls_message_tab-msgno  = '000'.
  8. ls_message_tab-msgty  = 'E'.
  9. ls_message_tab-msgv1  = 'Error Message'.
  10. lv_lineno = lv_lineno + 1.
  11. ls_message_tab-lineno = lv_lineno.
  12. APPEND ls_message_tab TO lt_message_tab.
  13. CLEAR:ls_message_tab.
  14. ls_message_tab-msgid  = 'E4'.
  15. ls_message_tab-msgno  = '000'.
  16. ls_message_tab-msgty  = 'W'.
  17. ls_message_tab-msgv1  = 'warning Message'.
  18. lv_lineno = lv_lineno + 1.
  19. ls_message_tab-lineno = lv_lineno.
  20. APPEND ls_message_tab TO lt_message_tab.
  21. CLEAR:ls_message_tab.
  22. ls_message_tab-msgid  = 'E4'.
  23. ls_message_tab-msgno  = '000'.
  24. ls_message_tab-msgty  = 'S'.
  25. ls_message_tab-msgv1  = 'Success Message'.
  26. lv_lineno = lv_lineno + 1.
  27. ls_message_tab-lineno = lv_lineno.
  28. APPEND ls_message_tab TO lt_message_tab.

  29. CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
  30.   TABLES
  31.     i_message_tab = lt_message_tab.
复制代码
2、测试效果
pop_message.jpg
3、消息类E4
SE91_E4.jpg
回复

使用道具 举报

快速回帖

本版积分规则
您需要登录后才可以回帖 登录 | 注册有礼

快速回复 返回顶部 返回列表