屏幕输入设置F4

说明：给屏幕输入设置F4.

“ 声明变量

DATA  t_returntab TYPE TABLE OF ddshretval WITH HEADER LINE."用于动态提取搜索帮助数据

 

” 屏幕设计时

” 查询工厂是否存在，否则提示报错； 消息类 ZIEB01 ，e209——工厂&，系统不存在，请确认！

AT SELECTION-SCREEN ON p_werks.
  CLEAR t001w.
  SELECT SINGLE * FROM t001w WHERE werks = p_werks.
  CHECK sy-subrc <> 0.
  MESSAGE e209 WITH p_werks.

“ 设置F4
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_zhtbh-low.
  PERFORM frm_get_zhtbh.

FORM frm_get_zhtbh .
  REFRESH: t_htbh,t_returntab,t_htbh.
  SELECT DISTINCT zhtbh INTO TABLE t_htbh FROM ziebckcp.
  DELETE t_htbh WHERE zhtbh = ''.
  IF t_htbh[] IS INITIAL.
    MESSAGE s000 WITH '系统中没有此合同号! '.
    LEAVE SCREEN.
  ENDIF.

  SORT t_htbh BY zhtbh DESCENDING.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'zhtbh'                             "返回字段=F1
      value_org       = 'S'
    TABLES
      value_tab       = t_htbh
      return_tab      = t_returntab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  READ TABLE t_returntab INDEX 1.
  s_zhtbh-low = t_returntab-fieldval.

ENDFORM.                    " FRM_GET_ZHTBH