自定义搜索帮助

业务场景：

在屏幕上搜索自己想要的数据，而不是所有的数据

方法1：se11创建搜索帮助（网上自行搜索，一大堆）

使用：PARAMETERS: P_VERSN TYPE ZTPP0002-VERID MODIF ID M1 MATCHCODE OBJECTZHZEVERSION.

方法 2 ：程序写搜索帮助

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_VERID1-LOW.

  PERFORM FRM_F4_VERID USING 'S_VERID1-LOW'.

FORM FRM_F4_VERID USING PV_FIELD.

  DATA: BEGIN OF LS_VERID,

         VERID TYPE ZTPP0006-VERID,

        END OF LS_VERID,

        LS_DFIES TYPE DFIES,"系统参数

 

        LT_VERID LIKE STANDARD TABLE OF LS_VERID,"需要f4搜索帮助的参数

        LT_DFIES TYPE STANDARD TABLE OF DFIES.

 

  SELECT DISTINCT VERID

    INTOTABLE LT_VERID

  FROM ZTPP0006.

 

  LS_DFIES-TABNAME = 'ZTPP0006'.

  LS_DFIES-FIELDNAME = 'VERID'.

  APPEND LS_DFIES TO LT_DFIES.

 

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

    EXPORTING

     RETFIELD        = 'VERID'

     DYNPPROG        = SY-REPID

     DYNPNR          = SY-DYNNR

     DYNPROFIELD     = PV_FIELD

    TABLES

     VALUE_TAB       =LT_VERID

     FIELD_TAB       =LT_DFIES

    EXCEPTIONS

      PARAMETER_ERROR = 1

      NO_VALUES_FOUND = 2.

 

ENDFORM.