ABAP 弹窗弹出多个message

2021-02-21 19:33:25 阅读：264 来源： 互联网

标签：FUNCTION sy lt lv ABAP msg message TYPE 弹窗

1、单条消息的输出

普通消息输出方式每次只能输出最后一条消息，例如： message e001(vf).

2、多条消息的输出

需要用到函数组：MESSAGES_SHOW

TYPES:
  BEGIN OF ts_msg,
    msgty     TYPE msgty,
    msgid     TYPE msgid,
    msgno     TYPE syst_msgno,
    msgv1     TYPE msgv1,
    msgv2     TYPE msgv2,
    msgv3     TYPE msgv3,
    msgv4     TYPE msgv4,
    text      TYPE string,
    logsys    TYPE logsys,
    exception TYPE REF TO cx_root,
  END OF ts_msg,
  tt_msg TYPE STANDARD TABLE OF ts_msg WITH EMPTY KEY.
*====================================================
START-OF-SELECTION.
*====================================================
  DATA: lv_corr_wanted TYPE char30,
        lv_msg_sel     TYPE  smesg,
        lv_exit_cmd    TYPE  bal_s_excm.
 
  DATA lt_msg TYPE tt_msg.
  MESSAGE e001(vf) INTO DATA(lv_msg).
  APPEND CORRESPONDING #( sy )  TO lt_msg.
  MESSAGE w005(vf) INTO lv_msg.
  APPEND CORRESPONDING #( sy )  TO lt_msg.
  MESSAGE i010(vf) INTO lv_msg.
  APPEND CORRESPONDING #( sy )  TO lt_msg.
 
  CALL FUNCTION 'MESSAGES_INITIALIZE'.
 
  LOOP AT lt_msg ASSIGNING FIELD-SYMBOL(<ls_msg>).
    CALL FUNCTION 'MESSAGE_STORE'
      EXPORTING
        arbgb  = <ls_msg>-msgid
        msgty  = <ls_msg>-msgty
        msgv1  = <ls_msg>-msgv1
        msgv2  = <ls_msg>-msgv2
        msgv3  = <ls_msg>-msgv3
        msgv4  = <ls_msg>-msgv4
        txtnr  = <ls_msg>-msgno
      EXCEPTIONS
        OTHERS = 1.
    ASSERT sy-subrc = 0.
  ENDLOOP.
 
  CALL FUNCTION 'MESSAGES_STOP'
    EXCEPTIONS
      OTHERS = 0.
 
  CALL FUNCTION 'MESSAGES_SHOW'
    EXPORTING
      object             = 'Message title'
      show_linno         = abap_false
      i_use_grid         = abap_true
    IMPORTING
      corrections_wanted = lv_corr_wanted
      msg_selected       = lv_msg_sel
      e_exit_command     = lv_exit_cmd
    EXCEPTIONS
      OTHERS             = 1.
  ASSERT sy-subrc = 0.
 
  WRITE: 'done'.

标签：FUNCTION,sy,lt,lv,ABAP,msg,message,TYPE,弹窗
来源： https://blog.csdn.net/weixin_42646630/article/details/113922178

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

ABAP 弹窗弹出多个message