选择屏幕F4使用小节

REPORT  z_barry_test .

PARAMETERS: p_werks LIKE t001l-werks ,
            p_lgort LIKE t001l-lgort .
SELECTION-SCREEN SKIP.
PARAMETERS: p_kunnr LIKE kna1-kunnr  .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_lgort.
  PERFORM get_lgort CHANGING p_lgort.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_kunnr.
  PERFORM kunnr_f4help CHANGING p_kunnr.
*&---------------------------------------------------------------------*
*&      Form  get_event_for_user
*&---------------------------------------------------------------------*
FORM get_lgort  CHANGING l_lgort LIKE p_lgort.
  DATA: wa_shlp TYPE shlp_descr,
        wa_selopt TYPE ddshselopt,
        it_return_values TYPE STANDARD TABLE OF ddshretval,
        wa_return_values TYPE ddshretval,
        it_dynpfields TYPE STANDARD TABLE OF dynpread,
        wa_dynpfields TYPE dynpread.

  wa_dynpfields-fieldname = 'P_WERKS'.
  APPEND wa_dynpfields TO it_dynpfields.

**取屏幕字段的已有值
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname     = sy-repid
      dynumb     = sy-dynnr
    TABLES
      dynpfields = it_dynpfields.

**根据表名和字段名确定使用哪个搜索帮助
  CALL FUNCTION 'F4IF_DETERMINE_SEARCHHELP'
    EXPORTING
      tabname   = 'T001L'
      fieldname = 'LGORT'
    IMPORTING
      shlp      = wa_shlp.

  READ TABLE it_dynpfields WITH KEY fieldname = 'P_WERKS' INTO wa_dynpfields.
  IF NOT wa_dynpfields-fieldvalue IS INITIAL.
    wa_selopt-sign      = 'I'.
    wa_selopt-option    = 'CP'.
    wa_selopt-low       = wa_dynpfields-fieldvalue.
    wa_selopt-shlpfield = 'WERKS'.
    wa_selopt-shlpname  = wa_shlp-shlpname.
    APPEND wa_selopt TO wa_shlp-selopt.
  ENDIF.

**根据条件打开指定的搜索帮助
  CALL FUNCTION 'F4IF_START_VALUE_REQUEST'
    EXPORTING
      shlp          = wa_shlp
    TABLES
      return_values = it_return_values.

  READ TABLE it_return_values WITH KEY fieldname = 'LGORT' INTO wa_return_values.
  IF sy-subrc IS INITIAL.
    l_lgort = wa_return_values-fieldval.
    READ TABLE it_return_values WITH KEY fieldname = 'WERKS' INTO wa_return_values.
    IF sy-subrc IS INITIAL AND wa_return_values-fieldval NE wa_dynpfields-fieldvalue.
      REFRESH it_dynpfields.
      wa_dynpfields-fieldvalue = wa_return_values-fieldval.
      APPEND wa_dynpfields TO it_dynpfields.
**更新屏幕字段
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname     = sy-repid
          dynumb     = sy-dynnr
        TABLES
          dynpfields = it_dynpfields.
    ENDIF.
  ENDIF.
ENDFORM.                    " get_event_for_user

*&---------------------------------------------------------------------*
*&      Form  kunnr_f4help
*&---------------------------------------------------------------------*
FORM kunnr_f4help CHANGING l_kunnr .
  DATA: wa_shlp         TYPE shlp_descr,
        wa_shlp_desct   TYPE shlp_desct ,
        fcode           LIKE sy-ucomm ,
        wa_interface    LIKE LINE OF wa_shlp-interface,
        wa_fielddescr   LIKE LINE OF wa_shlp-fielddescr,
        wa_fieldprop    LIKE LINE OF wa_shlp-fieldprop,
        wa_selopt       LIKE LINE OF wa_shlp-selopt,
        wa_retval       TYPE ddshretval,
        it_retval       TYPE STANDARD TABLE OF ddshretval.
  DATA: subrc LIKE sy-subrc .

**根据搜索帮助取得wa_shlp
  CALL FUNCTION 'F4IF_GET_SHLP_DESCR' EXPORTING
      shlpname = 'VMVAA'  "search help VMVAA
      shlptype = 'SH'
    IMPORTING
      shlp     = wa_shlp.

*定义 VKORG 为只读字段
  LOOP AT wa_shlp-interface INTO wa_interface WHERE shlpfield = 'VKORG'.
    wa_interface-value = '3020'.
    wa_interface-dispfield = 'X'.
    MODIFY wa_shlp-interface FROM wa_interface INDEX syst-tabix.
  ENDLOOP.
  LOOP AT wa_shlp-fieldprop INTO wa_fieldprop WHERE fieldname = 'VKORG'.
    wa_fieldprop-shlpinput = 'X'.
    wa_fieldprop-shlpseldis = 'X'.
    MODIFY wa_shlp-fieldprop FROM wa_fieldprop INDEX syst-tabix.
  ENDLOOP.
*定义输出字段
  READ TABLE wa_shlp-interface INTO wa_interface WITH KEY shlpfield = 'VBELN'.
  IF sy-subrc = 0.
    wa_interface-valfield = 'X'.
*    l_shlp_interface-value = tree_id.
    MODIFY wa_shlp-interface FROM wa_interface INDEX sy-tabix.
  ELSE.
    MESSAGE e017(bmen) RAISING internal_error.
  ENDIF.
* 选择界面初始值
  wa_selopt-shlpname  = wa_shlp-shlpname.
  wa_selopt-shlpfield = 'KUNNR'.
  wa_selopt-sign      = 'I'.
  wa_selopt-option    = 'EQ'.
  wa_selopt-low       = '4000'.
  APPEND wa_selopt TO wa_shlp-selopt.

  APPEND wa_shlp TO wa_shlp_desct.
  APPEND wa_shlp TO wa_shlp_desct.
  CLEAR wa_shlp.

  CALL FUNCTION 'F4IF_CHOOSE_SEARCHHELP'
    EXPORTING
      shlp_tab = wa_shlp_desct
    IMPORTING
      shlp     = wa_shlp
      fcode    = fcode.
  CALL FUNCTION 'F4IF_START_VALUE_REQUEST'
    EXPORTING
      shlp          = wa_shlp
    IMPORTING
      rc            = subrc
    TABLES
      return_values = it_retval.
  LOOP AT it_retval INTO wa_retval.
    p_kunnr = wa_retval-fieldval.
  ENDLOOP.
ENDFORM.                    " CALL_F4HELP