DEMO：F4帮助收藏夹功能

news2025/1/13 7:45:57

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

旁边的小宁宁写了一个搜索帮助，用途是根据用户自己的收藏进行提示选择，想想，还是很实用，如果列出几百个，自己常用的就几个，可不是麻烦的很嘛。

效果图：

点了收藏，下次再进入的时候

如果想显示全部，点删除收藏后面那个世界地图似的按钮就行了。

demo代码：

*&---------------------------------------------------------------------*
REPORT ZLM_F4_003.


PARAMETERS P_WERKS TYPE T001W-WERKS.




AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_WERKS.


  PERFORM  F4 USING P_WERKS.


*&---------------------------------------------------------------------*
*&      Module  VERID_F4  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM  F4 USING P_WERKS.
  TYPES:
    BEGIN OF TYP_WERKS,
      WERKS TYPE T001W-WERKS,
      NAME1 TYPE T001W-NAME1,
      BWKEY TYPE T001W-BWKEY,
    END OF TYP_WERKS.


  DATA: LI_WERKS TYPE STANDARD TABLE OF TYP_WERKS,
        LW_WERKS TYPE TYP_WERKS.
*
  DATA: LI_RETURN_TAB TYPE STANDARD TABLE OF DDSHRETVAL, "搜索帮助返回值内表
        LW_RETURN     TYPE DDSHRETVAL.                   "搜索帮助返回值工作区


*  REFRESH:LI_RETURN_TAB,
*  LI_EKORG.


  SELECT *
  INTO CORRESPONDING FIELDS OF TABLE LI_WERKS[]
  FROM T001W.


  CHECK LI_WERKS[] IS NOT INITIAL.


  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*      DDIC_STRUCTURE  = 'T001W'
      PVALKEY         = 'YDEMO008'
      RETFIELD        = 'WERKS'                            "参考字段
      VALUE_ORG       = 'S'
      DYNPPROG        = SY-REPID
      DYNPNR          = SY-DYNNR
      DYNPROFIELD     = 'P_WERKS'                     "屏幕字段
    TABLES
      VALUE_TAB       = LI_WERKS[]
      RETURN_TAB      = LI_RETURN_TAB[]
    EXCEPTIONS
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 2
      OTHERS          = 3.


ENDFORM.

copy后修改的。仅供参考。

关于这个参数的解释：

If the help is only valid for a certain screen, you should define the key from the program and screen number.

If the F4 help is valid for more than one screen, you can also assign other keys. At the moment there is no mechanism that guarantees that the key is unique.

如果想不互相影响，可以使用

用户名+程序名+字段名

的拼接结果作为 PVALKEY 参数的值，注意下最长多少位就行。