消息框弹出多行消息函数

1.OXT_MESSAGE_TO_POPUP

image.png


2.FB_MESSAGES_DISPLAY_POPUP

image.png

image.png

DATA lt_errormsg TYPE tsmesg.
DATA ls_errormsg LIKE LINE OF lt_errormsg.

DATA iv_aufnr TYPE aufk-aufnr.
iv_aufnr = coruf-aufnr.

CLEAR:lt_errormsg[], ls_errormsg.
ls_errormsg-zeile = iv_aufnr.
ls_errormsg-msgty = 'E'.
ls_errormsg-arbgb = 'ZPP001'.
ls_errormsg-txtnr = '000'.
ls_errormsg-msgv1 = iv_aufnr.
*ls_errormsg-msgv2 = iv_sum_aufm.
*ls_errormsg-msgv3 = iv_sum_resb.
APPEND ls_errormsg TO lt_errormsg.
IF lt_errormsg[] IS NOT INITIAL.
   CALL FUNCTION 'FB_MESSAGES_DISPLAY_POPUP'
       EXPORTING
           IT_SMESG              = lt_errormsg[]
       EXCEPTIONS
           NO_MESSAGES           = 1
           POPUP_CANCELLED       = 2
           OTHERS                = 3.
    MESSAGE e000(zpp001) WITH iv_aufnr.
ENDIF.


关键词: ABAP

网友评论

发表评论