ABAP-SM30添加选择屏幕-526互联

 1 *&---------------------------------------------------------------------*
 2 *& Report ZRFI030
 3 *&---------------------------------------------------------------------*
 4 *&
 5 *&---------------------------------------------------------------------*
 6 REPORT zrfi030.
 7 
 8 TABLES:t001 .
 9 
10 DATA:lt_sellist TYPE TABLE OF vimsellist,
11      lv_message TYPE char255,
12      lv_flag    TYPE char1.
13 
14 CLEAR lv_message .
15 CLEAR lv_flag .
16 
17 SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text1.
18 
19   SELECT-OPTIONS:s_bukrs FOR t001-bukrs OBLIGATORY.
20 
21 SELECTION-SCREEN END OF BLOCK blk1.
22 
23 SELECT bukrs
24   INTO TABLE @DATA(lt_t001)
25   FROM t001
26   WHERE bukrs IN @s_bukrs .
27 
28 LOOP AT lt_t001 INTO DATA(ls_t001) .
29 
30   AUTHORITY-CHECK OBJECT 'M_MATE_BUK'
31    ID 'BUKRS' FIELD ls_t001-bukrs .
32   IF sy-subrc <> 0.
33     MESSAGE '没有' && ls_t001-bukrs &&  '公司代码的权限' TYPE 'S' DISPLAY LIKE 'E' .
34     lv_flag = 'X' .
35   ENDIF.
36 
37 ENDLOOP .
38 
39 IF lv_flag = '' .
40 
41   CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
42     EXPORTING
43       fieldname = 'BUKRS'
44 *     APPEND_CONJUNCTION       = ' '
45     TABLES
46       sellist   = lt_sellist
47       rangetab  = s_bukrs[].
48 
49   CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
50     EXPORTING
51       action                       = 'U'
52 *     CORR_NUMBER                  = '          '
53 *     GENERATE_MAINT_TOOL_IF_MISSING       = ' '
54 *     SHOW_SELECTION_POPUP         = ' '
55       view_name                    = 'ZTFI_0003'
56 *     NO_WARNING_FOR_CLIENTINDEP   = ' '
57 *     RFC_DESTINATION_FOR_UPGRADE  = ' '
58 *     CLIENT_FOR_UPGRADE           = ' '
59 *     VARIANT_FOR_SELECTION        = ' '
60 *     COMPLEX_SELCONDS_USED        = ' '
61 *     CHECK_DDIC_MAINFLAG          = ' '
62 *     SUPPRESS_WA_POPUP            = ' '
63     TABLES
64       dba_sellist                  = lt_sellist
65 *     EXCL_CUA_FUNCT               =
66     EXCEPTIONS
67       client_reference             = 1
68       foreign_lock                 = 2
69       invalid_action               = 3
70       no_clientindependent_auth    = 4
71       no_database_function         = 5
72       no_editor_function           = 6
73       no_show_auth                 = 7
74       no_tvdir_entry               = 8
75       no_upd_auth                  = 9
76       only_show_allowed            = 10
77       system_failure               = 11
78       unknown_field_in_dba_sellist = 12
79       view_not_found               = 13
80       maintenance_prohibited       = 14
81       OTHERS                       = 15.
82 
83 ENDIF .