REUSE_ALV_POPUP_TO_SELECT使用技巧
可以实现弹出一个对话框,提供选择数据的功能……
栗子1:
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
TYPE-POOLS slis. DATA: selec TYPE slis_selfield, l_exit TYPE c. DATA: lv_repid TYPE sy-repid. lv_repid = sy-repid. CONCATENATE sy-title '檢查異動類型+異動指示碼+特殊庫存是否與ZCO011相同' INTO gv_title. REFRESH gt_msg. CLEAR: gs_msg,gt_msg. SELECT * INTO TABLE @gt_matdoc FROM matdoc WHERE budat BETWEEN @gv_start_date AND @gv_end_date AND bukrs EQ @p_bukrs AND mjahr = @gv_start_date+0(4) AND werks IN @s_werks AND matnr IN @s_matnr AND lgort IN @s_lgort. SELECT * FROM zco011 INTO TABLE gt_zco011. SORT gt_zco011 BY kokrs bwart kzbew sobkz. LOOP AT gt_matdoc. READ TABLE gt_zco011 INTO DATA(ls_zco011) WITH KEY bwart = gt_matdoc-bwart kzbew = gt_matdoc-kzbew sobkz = gt_matdoc-sobkz BINARY SEARCH. IF sy-subrc <> 0. IF gt_matdoc-bwart = '561' OR gt_matdoc-bwart = '562'. "開帳MVT不納入 ELSE. CONCATENATE '異動類型:' gt_matdoc-bwart ',異動指示碼:' gt_matdoc-kzbew ',特殊庫存指示碼:' gt_matdoc-sobkz ',不存在設定檔中' INTO gs_msg-msg. COLLECT gs_msg INTO gt_msg. CLEAR gs_msg. ENDIF. ENDIF. ENDLOOP. LOOP AT gt_msg ASSIGNING FIELD-SYMBOL(<lf_msg>). <lf_msg>-num = sy-tabix. ENDLOOP. IF gt_msg[] IS NOT INITIAL. CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT' EXPORTING i_title = gv_title "'SELECT MATERIAL' i_tabname = 'GT_MSG' i_structure_name = 'SLS_MSGS' i_callback_program = lv_repid **i_callback_user_command = 'USER_COMMAND' IMPORTING es_selfield = selec e_exit = l_exit TABLES t_outtab = gt_msg. * CALL FUNCTION 'SLS_MISC_SHOW_MESSAGE_TAB' * TABLES * p_messages = gt_msg[] * EXCEPTIONS * no_messages_provided = 1 * OTHERS = 2. ELSE. MESSAGE i001(00) WITH '本期:異動類型+異動指示碼+特殊庫存與ZCO011設定一致.'. LEAVE LIST-PROCESSING. ENDIF.
展示效果:
可以实现
栗子2:
CALL FUNCTION 'SLS_MISC_SHOW_MESSAGE_TAB'
本人常年接收SAP运维和远程项目,ECC,S/4HANA,CRM,WDA.
远程人天可谈,终身售后,有活请联系V信:18925782767(问问题免费,欢迎交流!)
!!请关注本人技术分享公众号:SAP翔子(可扫头像二维码)
每天分享新知识,博客文章也会陆续整理并迁移至公众号,与您一起共同学习
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步