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
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。