进群统一修改群名片，例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接，小程序等，进群看公告，谢谢配合
不修改昵称会被不定期踢除，谢谢配合
最近偶然写个选择屏幕的帮助，太久不写这些了，忘了很多，然后网上查了一下。
这个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，仅供参考，项目上自己看着写吧。
