ABAP 消息弹窗

王佐儿z

已于 2022-08-31 11:06:44 修改

阅读量2k

点赞数

分类专栏： ABAP FM 文章标签： servlet java mybatis

于 2018-10-31 09:48:49 首次发布

本文链接：https://blog.csdn.net/qq_31228779/article/details/83574617

版权

ABAP FM 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

*cl_epic_ui_services=>show_messages_with_alog( ).
*
*CALL FUNCTION 'RSDC_SHOW_MESSAGES_POPUP'.

DATA:it_return TYPE TABLE OF bapiret2 WITH HEADER LINE.

DATA ls_exit_command TYPE bal_s_excm .
DATA lt_t_msg TYPE rs_t_msg.
DATA lt_w_msg TYPE bal_s_msg.
DATA lf_one_msg_as_sys_msg TYPE flag.

LOOP AT it_return.
  lt_w_msg-msgty = it_return-type.
  lt_w_msg-msgid = it_return-id.
  lt_w_msg-msgno = it_return-number.
  lt_w_msg-msgv1 = it_return-message_v1.
  lt_w_msg-msgv2 = it_return-message_v2.
  lt_w_msg-msgv3 = it_return-message_v3.
  lt_w_msg-msgv4 = it_return-message_v4.
  APPEND lt_w_msg TO lt_t_msg.
  CLEAR lt_w_msg.
ENDLOOP.

lt_w_msg-msgty = 'S'.
lt_w_msg-msgid = 'ZESB'.
lt_w_msg-msgno = '000'.
lt_w_msg-msgv1 = '传输成功'.
lt_w_msg-msgv2 = it_return-message_v2.
lt_w_msg-msgv3 = it_return-message_v3.
lt_w_msg-msgv4 = it_return-message_v4.
APPEND lt_w_msg TO lt_t_msg.

cl_epic_ui_services=>show_messages_with_alog(
    it_messages       = lt_t_msg
    iv_one_msg_direct = lf_one_msg_as_sys_msg ).

CALL FUNCTION 'RSDC_SHOW_MESSAGES_POPUP'
  EXPORTING
    i_t_msg           = lt_t_msg
    i_txt             = '测试消息'
    i_with_s_on_empty = rs_c_true
    i_one_msg_direct  = rs_c_true
    i_one_msg_type_s  = rs_c_true
  IMPORTING
    e_s_exit_command  = ls_exit_command.

BREAK-POINT.