如何通过程序实现搜索帮助

最新推荐文章于 2022-11-01 17:14:22 发布

weixin_30561177

最新推荐文章于 2022-11-01 17:14:22 发布

阅读量116

点赞数

原文链接：http://www.cnblogs.com/landina/archive/2007/08/06/845020.html

版权

PROCESS ON VALUE-REQUEST.
FIELD zbfzb-bfdh MODULE fget_bf_list.

MODULE fget_bf_list INPUT.
CLEAR: ltab_fields, ltab_fields[], ltab_values[].
ltab_fields-tabname = 'ZBFZB'.
ltab_fields-fieldname = 'bfdh'.
ltab_fields-selectflag = 'X'.
APPEND ltab_fields.
ltab_fields-tabname = 'zbfzb'.
ltab_fields-fieldname = 'jbr'.
ltab_fields-selectflag = space.
APPEND ltab_fields.
ltab_fields-tabname = 'zbfzb'.
ltab_fields-fieldname = 'LY'.
ltab_fields-selectflag = space.
APPEND ltab_fields.

SELECT * FROM zbfzb WHERE reqsta = '' AND creator = sy-uname AND bflx = 'XMBF'.
    ltab_values-fieldvalue = zbfzb-bfdh.
    APPEND ltab_values.
    ltab_values-fieldvalue = zbfzb-jbr.
    APPEND ltab_values.
    ltab_values-fieldvalue = zbfzb-ly.
    APPEND ltab_values.
ENDSELECT.

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
    EXPORTING
      fieldname                 = 'bfdh'
      tabname                   = 'zbfzb'
      title_in_values_list      = 'Select a value'
    IMPORTING
      select_value              = bfdh
    TABLES
      fields                    = ltab_fields
      valuetab                  = ltab_values
    EXCEPTIONS
      field_not_in_ddic         = 01
      more_then_one_selectfield = 02
      no_selectfield            = 03.

zbfzb-bfdh = bfdh.

ENDMODULE. " fget_bf_list INPUT

转载于:https://www.cnblogs.com/landina/archive/2007/08/06/845020.html