ABAP 弹出消息框详解编程语言

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.