如何通过程序实现搜索帮助
2007-08-06 16:32
701 查看
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
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
相关文章推荐
- 微信小程序如何实现通过点击view改变背景颜色
- C#中Winform程序中如何实现多维表头【不通过第三方报表程序】
- 【腾讯云搜分享】如何通过干预搜索结果排序,实现产品运营的策略和目的
- 如何通过程序实现网卡的启用和禁止功能?
- ALV通过F4事件,实现自定义搜索帮助F4
- winform程序如何通过操作注册表来实现限制使用次数
- 如何通过程序实现同一事务中多次数据库更新的错误回滚?
- 如何实现通过自己的程序发送邮件
- 如何在程序中实现类似GOOGLE一样的模糊搜索?
- 问题的提出:如何在Windows上通过终端程序实现Unix平台的前台编译?
- 如何通过java程序来实现多线程的程序呢?
- 如何通过NFS实现ubuntu与开发板的同步?
- 通过反汇编一个简单的C程序,分析汇编代码理解计算机是如何工作的
- CSS 布局实例系列(二)如何通过 CSS 实现一个左边固定宽度、右边自适应的两列布局
- 通过异步程序调用(APC)实现的定时功能
- 通过程序实现SMARTFORMS文本编辑模式在WORD和TEXT文本之间转换
- 用servlet如何实现jsp登陆页面的跳转??搜索
- 小程序如何删除或隐藏头部导航栏,实现全屏
- MF中使用GPRS:如何通过一个串口终端实现GPRS Modem拨号上网
- ASP小偷程序如何利用XMLHTTP实现表单的提交