DATA:
GT_SMESG TYPE TSMESG,
GT_SMESG_ALL TYPE TSMESG.
FORM deal_bapi_ret TABLES bapi_ret CHANGING err_status
DATA: ls_smesg TYPE smesg.
DATA(lv_zeile) = lines( gt_smesg_all[] ).
refresh gt_smesg.
LOOP AT bapi_ret ASSIGNING <fs_ret>.
clear err_status.
IF <fs_ret>-type = 'E' OR <fs_ret>-type = 'A' OR <fs_ret> = 'X' .
err_status = abap_true. "失败
ENDIF.
CLEAR ls_smesg.
ls_smesg-zeile = lv_zeile + sy-tabix.
ls_smesg-msgty = <fs_ret>-type.
ls_smesg-arbgb = <fs_ret>-id.
ls_smesg-txtnr = <fs_ret>-number.
ls_smesg-msgv1 = <fs_ret>-message_v1.
ls_smesg-msgv2 = <fs_ret>-message_v2.
ls_smesg-msgv3 = <fs_ret>-message_v3.
ls_smesg-msgv4 = <fs_ret>-message_v4.
APPEND errmsg TO gt_smesg.
ENDLOOP.
APPEND LINES OF gt_smesg TO gt_smesg_all.
CALL FUNCTION 'FB_MESSAGES_DISPLAY_POPUP'
EXPORTING
it_smesg = gt_smesg[]
EXCEPTIONS
no_messages = 1
popup_cancelled = 2
OTHERS = 3.
ENDFORM.
FORM message_collect USING msgty msgv1 msgv2 msgv3 msgv4.
DATA: ls_smesg TYPE smesg.
DATA(lv_zeile) = lines( gt_smesg_all[] ).
ls_smesg-zeile = lv_zeile + 1.
ls_smesg-msgty = msgty.
* ls_smesg-arbgb = '00'.
* ls_smesg-txtnr = '000'.
ls_smesg-msgv1 = msgv1.
ls_smesg-msgv2 = msgv2.
ls_smesg-msgv3 = msgv3.
ls_smesg-msgv4 = msgv4.
INSERT ls_smesg INTO gt_smesg_all INDEX ls_smesg-zeile.
ENDFORM.
FB_MESSAGES_DISPLAY_POPUP - 消息展示弹窗
最新推荐文章于 2024-02-02 17:21:06 发布