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

http://blog.sina.com.cn/u/3231157403

首页博文目录关于我

个人资料

SAP刘梦

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：0

博客访问：13,971
关注人气：96
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

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

(2022-08-02 13:51:16)

标签：

abap

liumeng

sap

屏幕

f4

分类： ABAP屏幕相关

货铺QQ群号：834508274
微信群不能扫码进了，可以加我微信SAPliumeng拉进群，申请时请提供您哪个模块顾问，否则是一律不通过的。
进群统一修改群名片，例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接，小程序等，进群看公告，谢谢配合
不修改昵称会被不定期踢除，谢谢配合

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

这个demo是返回多值的。

效果：

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

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

代码很简单：


TYPES: SHLP_DESCR_T TYPE SHLP_DESCR .DATA: BEGIN OF ITAB OCCURS 0 ,        WERKS LIKE  T001W-WERKS,        NAME1 LIKE  T001W-NAME1,        BWKEY LIKE T001W-BWKEY,      END OF ITAB.DATA: RETURN_TAB TYPE DDSHRETVAL OCCURS 0 .PARAMETERS: P_WERKS LIKE T001W-WERKS,            P_NAME1 LIKE T001W-NAME1,            P_BWKEY LIKE T001W-BWKEY.INITIALIZATION.  SELECT * FROM T001W INTO CORRESPONDING FIELDS OF TABLE ITAB[]    WHERE SPRAS = '1'.AT SELECTION-SCREEN OUTPUT .  PERFORM FRM_SCREEN.AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_WERKS .  PERFORM F4.*&---------------------------------------------------------------------**&      Form  f4*&---------------------------------------------------------------------*FORM F4.  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'    EXPORTING      RETFIELD         = 'WERKS'      DYNPPROG         = SY-REPID      DYNPNR           = SY-DYNNR      DYNPROFIELD      = 'P_WERKS'      VALUE_ORG        = 'S'      CALLBACK_PROGRAM = SY-REPID      CALLBACK_FORM    = 'CB_FORM'      DISPLAY          = 'F'   " <– Force    TABLES      VALUE_TAB        = ITAB      RETURN_TAB       = RETURN_TAB    EXCEPTIONS      PARAMETER_ERROR  = 1      NO_VALUES_FOUND  = 2      OTHERS           = 3.ENDFORM.                    "f4*&---------------------------------------------------------------------**&      Form  cb_form*&---------------------------------------------------------------------*FORM CB_FORM TABLES RECORD_TAB STRUCTURE SEAHLPRES              CHANGING SHLP TYPE SHLP_DESCR_T                       CALLCONTROL LIKE DDSHF4CTRL.  DATA: INTERFACE LIKE LINE OF SHLP-INTERFACE.  READ TABLE SHLP-INTERFACE INTO INTERFACE INDEX 1.  INTERFACE-SHLPFIELD+4(1) = '2'.  INTERFACE-VALFIELD = 'P_NAME1'.  APPEND INTERFACE TO SHLP-INTERFACE.  INTERFACE-SHLPFIELD+4(1) = '3'.  INTERFACE-VALFIELD = 'P_BWKEY'.  APPEND INTERFACE TO SHLP-INTERFACE.ENDFORM.                    "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，仅供参考，项目上自己看着写吧。

我网上查资料的时候是参考的老白的文章

http://blog.chinaunix.net/uid-8527621-id-2029921.html