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

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

1、测试代码

1. TYPE-POOLS: esp1.
   
2. 
   
3. DATA: lt_message_tab TYPE esp1_message_tab_type.
   
4. DATA: ls_message_tab TYPE esp1_message_wa_type.
   
5. DATA: lv_lineno TYPE mesg-zeile.
   
6. 
   
7. CLEAR:ls_message_tab.
   
8. ls_message_tab-msgid  = 'E4'.
   
9. ls_message_tab-msgno  = '000'.
   
10. ls_message_tab-msgty  = 'E'.
    
11. ls_message_tab-msgv1  = 'Error Message'.
    
12. lv_lineno = lv_lineno + 1.
    
13. ls_message_tab-lineno = lv_lineno.
    
14. APPEND ls_message_tab TO lt_message_tab.
    
15. CLEAR:ls_message_tab.
    
16. ls_message_tab-msgid  = 'E4'.
    
17. ls_message_tab-msgno  = '000'.
    
18. ls_message_tab-msgty  = 'W'.
    
19. ls_message_tab-msgv1  = 'warning Message'.
    
20. lv_lineno = lv_lineno + 1.
    
21. ls_message_tab-lineno = lv_lineno.
    
22. APPEND ls_message_tab TO lt_message_tab.
    
23. CLEAR:ls_message_tab.
    
24. ls_message_tab-msgid  = 'E4'.
    
25. ls_message_tab-msgno  = '000'.
    
26. ls_message_tab-msgty  = 'S'.
    
27. ls_message_tab-msgv1  = 'Success Message'.
    
28. lv_lineno = lv_lineno + 1.
    
29. ls_message_tab-lineno = lv_lineno.
    
30. APPEND ls_message_tab TO lt_message_tab.
    
31. 
    
32. CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
    
33.   TABLES
    
34.     i_message_tab = lt_message_tab.

复制代码

2、测试效果

3、消息类E4