弹出对对话框错误信息设计、REUSE_ALV_POPUP_TO_SELECT
代码如下:
sql
IF lw_item_date-menge > lv_atp_other.
lw_error-ebelp = lw_item_date-ebelp.
lw_error-matnr = lw_item_date-matnr.
lw_error-zlabst = lv_labst.
lw_error-zoccupy_so = lv_occupy_so.
lw_error-zoccupy_po = lv_occupy_po.
lw_error-zoccupy_my = lv_occupy_my.
lw_error-zoccupy_rs = lv_occupy_rs.
lw_error-zatp = lv_atp.
lw_error-zdiff = lv_atp_other - lw_item_date-menge.
lw_error-zmenge = lw_item_date-menge.
APPEND lw_error TO lt_error.
CLEAR lw_error.
ENDIF.
IF lt_error[] IS NOT INITIAL .
lw_fieldcat-fieldname = 'EBELP'.
lw_fieldcat-seltext_l = '行项目'.
lw_fieldcat-outputlen = '5'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
lw_fieldcat-fieldname = 'MATNR'.
lw_fieldcat-ref_tabname = 'MARA'.
lw_fieldcat-ref_fieldname = 'MATNR'.
lw_fieldcat-seltext_l = '行项目'.
lw_fieldcat-outputlen = '11'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
lw_fieldcat-fieldname = 'ZLABST'.
lw_fieldcat-seltext_l = '库存数量'.
lw_fieldcat-outputlen = '13'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
lw_fieldcat-fieldname = 'ZOCCUPY_PO'.
lw_fieldcat-seltext_l = '调拨占用'.
lw_fieldcat-outputlen = '13'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
lw_fieldcat-fieldname = 'ZOCCUPY_MY'.
lw_fieldcat-seltext_l = '订单其他行'.
lw_fieldcat-outputlen = '13'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
lw_fieldcat-fieldname = 'ZOCCUPY_SO'.
lw_fieldcat-seltext_l = '销售占用'.
lw_fieldcat-outputlen = '13'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
lw_fieldcat-fieldname = 'ZOCCUPY_RS'.
lw_fieldcat-seltext_l = '预留占用'.
lw_fieldcat-outputlen = '13'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
lw_fieldcat-fieldname = 'ZATP'.
lw_fieldcat-seltext_l = '可用数量'.
lw_fieldcat-outputlen = '13'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
lw_fieldcat-fieldname = 'ZMENGE'.
lw_fieldcat-seltext_l = '订单数量'.
lw_fieldcat-outputlen = '13'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
lw_fieldcat-fieldname = 'ZDIFF'.
lw_fieldcat-seltext_l = '差额'.
lw_fieldcat-outputlen = '13'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR lw_fieldcat.
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
i_title = '库存不足'
i_selection = ''
i_allow_no_selection = 'X'
i_zebra = 'X'
i_screen_start_column = '10'
i_tabname = 'LT_ERROR'
it_fieldcat = lt_fieldcat
* i_structure_name = 'ZSME29N_ERROR'
TABLES
t_outtab = lt_error
EXCEPTIONS
program_error = 1
OTHERS = 2.
MESSAGE e000(zabap) WITH '库存不足'.
ENDIF.