搜索帮助demo：F4IF_INT_TABLE_VALUE_REQUEST返回多列值

搜索帮助demo：F4IF_INT_TABLE_VALUE_REQUEST返回多列值

最近偶然写个选择屏幕的帮助，太久不写这些了，忘了很多，然后网上查了一下。

这个demo是返回多值的。

效果：

就是选择工厂的时候把剩下的几个字段自动带过去。

另外，不允许手工输入，防止仨字段不配套嘛。

代码很简单：

TYPES: SHLP_DESCR_T TYPE SHLP_DESCR .DATA: BEGIN OF ITAB OCCURS 0LIKELIKELIKEEND OFDATA: RETURN_TAB TYPE DDSHRETVAL OCCURS 0PARAMETERS: P_WERKS LIKELIKELIKEINITIALIZATION.SELECT * FROM T001W INTO CORRESPONDING FIELDS OF TABLEWHERE SPRAS = '1'.AT SELECTION-SCREEN OUTPUT PERFORM FRM_SCREEN.AT SELECTION-SCREEN ON VALUE-REQUEST FOR PERFORM F4.*&---------------------------------------------------------------------**& Form*&---------------------------------------------------------------------*FORMCALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING'WERKS' DYNPPROG = SY-REPID DYNPNR = SY-DYNNR'P_WERKS''S' CALLBACK_PROGRAM = SY-REPID'CB_FORM''F' " <– Force TABLES VALUE_TAB = ITAB RETURN_TAB = RETURN_TAB EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3.ENDFORM. "f4*&---------------------------------------------------------------------**& Form*&---------------------------------------------------------------------*FORM CB_FORM TABLESTYPELIKEDATA: INTERFACE LIKE LINE OFREAD TABLE SHLP-INTERFACE INTO INTERFACE INDEX 1.INTERFACE-SHLPFIELD+4(1) = '2'.INTERFACE-VALFIELD = 'P_NAME1'.INTERFACE TOINTERFACE-SHLPFIELD+4(1) = '3'.INTERFACE-VALFIELD = 'P_BWKEY'.INTERFACE TOENDFORM. "bo_callback_form*&---------------------------------------------------------------------**& Form FRM_SCREEN*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& --> p1 text*& <-- p2 text*&---------------------------------------------------------------------*FORM FRM_SCREEN . LOOP AT SCREEN. SCREEN-INPUT = 0. MODIFY SCREEN. ENDLOOP.ENDFORM.

仅仅是个简单demo，仅供参考，项目上自己看着写吧。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。