SAP的 消息 弹出窗口（备忘）

DATA: i_smesg TYPE tsmesg WITH HEADER LINE.

   i_smesg-msgty = 'E'.

   i_smesg-arbgb = ''.

   i_smesg-txtnr = ''.

   i_smesg-msgv1 = 'test1'.

   i_smesg-msgv2 = '箱码未扫描装车'.

   i_smesg-msgv3 = ''.

   APPEND i_smesg.

 IF i_smesg[] IS NOT INITIAL.

   CLEAR i_smesg.

   i_smesg-msgty = 'E'.

   i_smesg-arbgb = ''.

   i_smesg-txtnr = ''.

   i_smesg-msgv1 = '下列箱码未扫描装车'.

   INSERT i_smesg INDEX .

   CALL FUNCTION 'FB_MESSAGES_DISPLAY_POPUP'

     EXPORTING

       it_smesg        = i_smesg[]

     EXCEPTIONS

       no_messages     =

       popup_cancelled =

       OTHERS          = .

   IF sy-subrc <> .

     RETURN.

   ENDIF.

 ENDIF.