ABAP TIPS (1) F4检索功能的实现

ABAP TIPS (1) -- F4检索功能的实现

      为了规范画面输入数据，有的时候需要对自建画面输入项目（不能参照系统项目）附加自检索帮助功能（系统的F4功能）。
      此功能的实现，大体上分两部分。第一，可选画面的调用，按下F4后可弹出约定可输入项目的列表；第二，用户选定的值能够返回到输入项目中。

      另外，我提供的这个程序事例可自己添加选可选数据，而不仅仅局限于R/3系统内已创建的表数据作为数据源，先前在网上寻找能自定义的此类功能，几乎没有，所以我把我后来研究出的这个放到这里，以飨大家：）下面是该功能事例代码，请大家参考，欢迎讨论。

 

 

************************************************************************
* プログラム　: ZZF4HELP
* 名称　　　　: 入力項目選択ヘルプ用サンプル
* 機能概要　　: 独自検索ヘルプ.
* 作成者　　　: KONGXIANGSHUAI
* 作成日　　　: 2005/09/30
*----------------------------------------------------------------------*
REPORT  ZZF4HELP.

* 入力項目選択ヘルプ用
TYPES: BEGIN OF TY_VALUES,
         VALUE    TYPE SETHEADERT-SETNAME,
         DESCRIPT TYPE SETHEADERT-DESCRIPT,
       END OF TY_VALUES.

CONSTANTS:
  CNS_TITLE(8)     TYPE C VALUE 'ソート区分'.   "入力項目選択ヘルプ用タイトル

DATA:
  IT_VALUES TYPE TABLE OF TY_VALUES,
  TW_VALUES LIKE LINE  OF IT_VALUES.
DATA:
  IT_DYNPFIELDS TYPE TABLE OF DYNPREAD,
  TW_DYNPFIELDS LIKE LINE  OF IT_DYNPFIELDS.

*----------------------------------------------------------------------*
*     パラメータ定義
*----------------------------------------------------------------------*
* 出力区分定義
  PARAMETERS:PA_OUTYP(1) TYPE C OBLIGATORY.

*----------------------------------------------------------------------*
*    AT SELECTION-SCREEN
*----------------------------------------------------------------------*
* 入力項目選択ヘルプ用
AT SELECTION-SCREEN ON VALUE-REQUEST FOR PA_OUTYP.
  PERFORM FRM_F4_HELP_OUTYP.

AT SELECTION-SCREEN.
* 出力区分のチェック
  IF NOT ( PA_OUTYP = '1' OR PA_OUTYP = '2' OR PA_OUTYP = '3' ).
    SET CURSOR FIELD 'PA_OUTYP'.
    MESSAGE E001(ZFI0) WITH TEXT-M06 PA_OUTYP.
  ENDIF.
*----------------------------------------------------------------------*
*    START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.

  WRITE: '出力区分:',
         PA_OUTYP.

*&---------------------------------------------------------------------*
*&      Form  FRM_F4_HELP_OUTYP
*&---------------------------------------------------------------------*
*       出力区分項目の入力選択ヘルプ
*----------------------------------------------------------------------*
FORM FRM_F4_HELP_OUTYP.

  CLEAR: TW_VALUES.
  REFRESH: IT_VALUES.

  TW_VALUES-VALUE = '1'.
  TW_VALUES-DESCRIPT = '社員番号'.
  APPEND TW_VALUES TO IT_VALUES.
  TW_VALUES-VALUE = '2'.
  TW_VALUES-DESCRIPT = '部門番号'.
  APPEND TW_VALUES TO IT_VALUES.
  TW_VALUES-VALUE = '3'.
  TW_VALUES-DESCRIPT = '年齢'.
  APPEND TW_VALUES TO IT_VALUES.

  PERFORM FRM_F4_HELP USING 'PA_OUTYP'
                            CNS_TITLE.

ENDFORM.                    " FRM_F4_HELP_OUTYP

*&---------------------------------------------------------------------*
*&      Form  FRM_F4_HELP
*&---------------------------------------------------------------------*
*       項目の入力選択ヘルプ
*----------------------------------------------------------------------*
*   -->  　　P_PARAM          項目名
*   -->  　　P_TITLE          タイトル
*----------------------------------------------------------------------*
FORM FRM_F4_HELP USING P_PARAM
                       P_TITLE.

  DATA: LIT_DDSHRETVAL TYPE STANDARD TABLE OF DDSHRETVAL,
        LTW_DDSHRETVAL LIKE LINE           OF LIT_DDSHRETVAL.

  SORT IT_VALUES BY VALUE.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD     = 'VALUE'
      DYNPPROG     = SY-CPROG
      DYNPNR       = SY-DYNNR
      WINDOW_TITLE = P_TITLE
      VALUE_ORG    = 'S'
    TABLES
      VALUE_TAB    = IT_VALUES
      RETURN_TAB   = LIT_DDSHRETVAL
    EXCEPTIONS
      PARAMETER_ERROR        = 1
      NO_VALUES_FOUND        = 2
      OTHERS                 = 3.
  IF SY-SUBRC <> 0.
    MESSAGE E005(ZCA0) WITH TEXT-M01.        "'値がありません。'
  ENDIF.

  CLEAR: TW_DYNPFIELDS.
  REFRESH: IT_DYNPFIELDS.

  READ TABLE LIT_DDSHRETVAL INTO LTW_DDSHRETVAL INDEX 1.
      CASE SY-DYNNR.
        WHEN '1000'.
          TW_DYNPFIELDS-FIELDNAME = P_PARAM.
      ENDCASE.
      TW_DYNPFIELDS-FIELDVALUE = LTW_DDSHRETVAL-FIELDVAL.
  APPEND TW_DYNPFIELDS TO IT_DYNPFIELDS.

  CALL FUNCTION 'DYNP_VALUES_UPDATE'
  EXPORTING
    DYNAME     = SY-CPROG
    DYNUMB     = SY-DYNNR
  TABLES
    DYNPFIELDS = IT_DYNPFIELDS
  EXCEPTIONS
    OTHERS     = 1.

ENDFORM.                    " FRM_F4_HELP