搜索帮助demo：F4IF_INT_TABLE_VALUE

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

news2024/10/5 13:52:03

货铺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