DEMO：创建表维护视图并根据选择屏幕筛选数据_SAP刘梦_新浪博客

*&---------------------------------------------------------------------*

*& Report  ZDEMO_VIEW01

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT  zdemo_view01.

TABLES spfli.

SELECT-OPTIONS:

  s_carrid FOR spfli-carrid,

  s_connid FOR spfli-connid.

DATA: lt_seltab    TYPE STANDARD TABLE OF vimsellist.

*DATA: g_fieldname  TYPE vimsellist-viewfield.

DATA: gt_exclude   TYPE TABLE OF vimexclfun,

      gwa_exclude  TYPE vimexclfun.

***&  为自建表赋值

**DATA:lt_spfli TYPE TABLE OF spfli.

**

**SELECT * FROM spfli INTO TABLE lt_spfli.

**

**MODIFY zlmt_001 FROM TABLE lt_spfli.

**

**COMMIT WORK AND WAIT.

*------------------------------------------------------

*& 权限控制

*------------------------------------------------------

*&-----------------------------------------

*& 添加选择条件

*&-----------------------------------------

CLEAR lt_seltab[].

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'

  EXPORTING

    fieldname          = 'CARRID'

    append_conjunction = 'AND'

  TABLES

    sellist            = lt_seltab

    rangetab           = s_carrid.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'

  EXPORTING

    fieldname          = 'CONNID'

    append_conjunction = 'AND'

  TABLES

    sellist            = lt_seltab

    rangetab           = s_connid.

*import：action       s = display u = change t = transport

* corr_number  传送号（上面的action是t）

* show_selection_popup   是否弹出选择画面

* view_name    视图名

* no_warning_for_clientindep  跨集团是否现实警告

* variant_for_selection   变式名

* check_ddic_mainflag     察看是否为可维护对象

CALL FUNCTION 'VIEW_MAINTENANCE_CALL'

  EXPORTING

    action                               = 'U'

*   CORR_NUMBER                          = '          '

*   GENERATE_MAINT_TOOL_IF_MISSING       = ' '

*   SHOW_SELECTION_POPUP                 = 'X'

    view_name                            = 'ZLMT_001'

*   NO_WARNING_FOR_CLIENTINDEP           = ' '

*   RFC_DESTINATION_FOR_UPGRADE          = ' '

*   CLIENT_FOR_UPGRADE                   = ' '

*   VARIANT_FOR_SELECTION                = ' '

*   COMPLEX_SELCONDS_USED                = ' '

*   CHECK_DDIC_MAINFLAG                  = ' '

*   SUPPRESS_WA_POPUP                    = ''

 TABLES

   dba_sellist                          = lt_seltab[]

*   EXCL_CUA_FUNCT                       =

* EXCEPTIONS

*   CLIENT_REFERENCE                     = 1

*   FOREIGN_LOCK                         = 2

*   INVALID_ACTION                       = 3

*   NO_CLIENTINDEPENDENT_AUTH            = 4

*   NO_DATABASE_FUNCTION                 = 5

*   NO_EDITOR_FUNCTION                   = 6

*   NO_SHOW_AUTH                         = 7

*   NO_TVDIR_ENTRY                       = 8

*   NO_UPD_AUTH                          = 9

*   ONLY_SHOW_ALLOWED                    = 10

*   SYSTEM_FAILURE                       = 11

*   UNKNOWN_FIELD_IN_DBA_SELLIST         = 12

*   VIEW_NOT_FOUND                       = 13

*   MAINTENANCE_PROHIBITED               = 14

*   OTHERS                               = 15

          .

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

以下是纯顾问群~
微信群：SAP干货铺，请联系本人微信 sapliumeng。
QQ群 ：SAP干货铺，  群号：775662808

所有群管理严格，严格禁止一切外来链接、招聘、广告等垃圾信息!