如何给表维护视图创建选择画面[VIEW_RANGETAB_TO_SELLIST]

最新推荐文章于 2024-08-21 15:02:08 发布

banin4739

最新推荐文章于 2024-08-21 15:02:08 发布

阅读量842

点赞数

原文链接：http://www.cnblogs.com/datie/p/11435834.html

版权

通常SAP系统中的表维护视图(sm30)把所有数据都显示在一个屏幕上，没有筛选，如下，左图是sm30,右图是SE11中的表数据显示。

&lt;img class="alignnone size-full wp-image-3017" src="http://www.baidusap.com/wp-content/uploads/abap-selection-screen-tmg-1_thumb.png" alt="abap-selection-screen-tmg-1_thumb" width="634" height="176" /&gt;

如何要按条件进行筛选，要用到VIEW_RANGETAB_TO_SELLIST创建筛选条件内表，

&lt;img class="alignnone size-full wp-image-3019" src="http://www.baidusap.com/wp-content/uploads/b.png" alt="b" width="788" height="256" srcset="http://www.baidusap.com/wp-content/uploads/b.png 788w, http://www.baidusap.com/wp-content/uploads/b-740x240.png 740w, http://www.baidusap.com/wp-content/uploads/b-768x250.png 768w" sizes="(max-width: 788px) 100vw, 788px" /&gt;

例子程序如下：

简单介绍:

1, 先创建一个选择画面包含3个range ，s_id，s_name, s_place,

2, 调用VIEW_RANGETAB_TO_SELLIST创建sm30的筛选条件内表gt_seltab，三个条件之间是and关系。

3, 调用VIEW_MAINTENANCE_CALL显示表维护视图

REPORT ZTEST_SM30.
TABLES: zemployee.
CONSTANTS: c_view  TYPE   char30  VALUE 'ZEMPLOYEE',
           c_u     TYPE   char1   VALUE 'U',
           c_and   TYPE   char3   VALUE 'AND'.
DATA: gt_seltab    TYPE STANDARD TABLE OF vimsellist.
DATA: g_fieldname  TYPE vimsellist-viewfield.
DATA: gt_exclude   TYPE TABLE OF vimexclfun,
      gwa_exclude  TYPE vimexclfun.

SELECT-OPTIONS: s_id    FOR zemployee-id,
                s_name  FOR zemployee-name,
                s_place FOR zemployee-place.

*Add ID column to selection criteria of Table maintenanace view
g_fieldname = 'ID'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_id.

*Add Name column to selection criteria of Table maintenanace view
g_fieldname = 'NAME'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_name.

*Add Place column to selection criteria of Table maintenanace view
g_fieldname = 'PLACE'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_place.

* Call to the 'VIEW_MAINTENANCE_CALL' function module
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
  EXPORTING
    action         = c_u
    view_name      = c_view
  TABLES
    dba_sellist    = gt_seltab.

运行结果：

选择画面输入筛选条件LONDON,

&lt;img class="alignnone size-full wp-image-3022" src="http://www.baidusap.com/wp-content/uploads/abap-selection-screen-tmg-2_thumb.png" alt="abap-selection-screen-tmg-2_thumb" width="594" height="164" /&gt;

表维护视图只显示LONDON的数据。

&lt;img class="alignnone size-full wp-image-3021" src="http://www.baidusap.com/wp-content/uploads/abap-selection-screen-tmg-3_thumb.png" alt="abap-selection-screen-tmg-3_thumb" width="469" height="213" /&gt;

以上。

转载于:https://www.cnblogs.com/datie/p/11435834.html