ABAP中SELECTION-SCREEN 内表直接作为搜索帮助

最新推荐文章于 2025-06-25 10:01:59 发布

转载最新推荐文章于 2025-06-25 10:01:59 发布 · 1k 阅读

标签

#header #function #table #list #测试

收录于

本文介绍了一次成功的ECC6系统测试案例，并通过具体的ABAP代码示例展示了如何从V_USERNAME表中选择特定字段进行数据处理的过程。

转贴地址：http://blog.csdn.net/asdf19256/archive/2008/10/26/3147928.aspx

ECC6 测试OK！

TABLES:V_USERNAME.

DATA: LTAB_FIELDS LIKE HELP_VALUE OCCURS 0 WITH HEADER LINE,
        BEGIN OF LTAB_VALUES OCCURS 0,
          FELD(40) TYPE C,
        END OF LTAB_VALUES.

SELECT-OPTIONS: SE_UNAME FOR V_USERNAME-bname.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR SE_UNAME-LOW.

clear LTAB_FIELDS[]. clear LTAB_VALUES[].
LTAB_FIELDS-TABNAME = 'V_USERNAME'.
LTAB_FIELDS-FIELDNAME = 'BNAME'.
LTAB_FIELDS-SELECTFLAG = 'X'. "X表示需要的值
APPEND LTAB_FIELDS.

LTAB_FIELDS-TABNAME = 'V_USERNAME'.
LTAB_FIELDS-FIELDNAME = 'PERSNUMBER'.
LTAB_FIELDS-SELECTFLAG = 'SPACE'.
APPEND LTAB_FIELDS.

LTAB_FIELDS-TABNAME = 'V_USERNAME'.
LTAB_FIELDS-FIELDNAME = 'NAME_LAST'.
LTAB_FIELDS-SELECTFLAG = 'SPACE'.
APPEND LTAB_FIELDS.

_select_ * FROM V_USERNAME .
LTAB_VALUES-FELD = V_USERNAME-BNAME.
APPEND LTAB_VALUES.
ENDSELECT.

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
    EXPORTING
      FIELDNAME                 = 'BNAME'
      TABNAME                   = 'V_USERNAME'
      TITLE_IN_VALUES_LIST      = '_select a value'
    IMPORTING
      SELECT_VALUE              = SE_UNAME-LOW
    TABLES
      FIELDS                    = LTAB_FIELDS
      VALUETAB                  = LTAB_VALUES
    EXCEPTIONS
      FIELD_NOT_IN_DDIC         = 01
      MORE_THEN_ONE_SELECTFIELD = 02.
*      NO_SELECTFIELD            = 03