REUSE_ALV_POPUP_TO_SELECT的使用技巧

通过函数的方法弹出一个对话框，提供选择数据的功能……

 1 DATA: BEGIN OF lt_exidv OCCURS 0,
 2        box TYPE char1,
 3        exidv TYPE exidv,
 4        status TYPE char4,
 5       END OF lt_exidv.
 6 DATA:   lt_fieldcat TYPE slis_t_fieldcat_alv,
 7         lh_fieldcat TYPE LINE OF slis_t_fieldcat_alv.
 8 DATA:l_message(100),l_line.
 9 
10 lt_exidv-exidv = '620000000014597001'.
11 lt_exidv-status = '001'.
12 APPEND lt_exidv.
13 lt_exidv-exidv = '620000000014597002'.
14 lt_exidv-status = '002'.
15 APPEND lt_exidv.
16 lt_exidv-exidv = '620000000014597003'.
17 lt_exidv-status = '003'.
18 APPEND lt_exidv.
19 
20 IF lt_fieldcat[] IS INITIAL.
21   CLEAR lh_fieldcat.
22   lh_fieldcat-fieldname  = 'EXIDV'.
23   lh_fieldcat-seltext_l = '箱码'.
24   lh_fieldcat-outputlen = 20.
25   APPEND lh_fieldcat TO lt_fieldcat[].
26 *  CLEAR lh_fieldcat.
27 *  lh_fieldcat-fieldname  = 'STATUS'.
28 *  lh_fieldcat-seltext_l = '箱状态'.
29 *  lh_fieldcat-outputlen = 10.
30 *  APPEND lh_fieldcat TO lt_fieldcat[].
31 ENDIF.
32 
33 CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
34   EXPORTING
35 *       I_TITLE                       =
36 *       I_SELECTION                   = 'X'
37 *       I_ALLOW_NO_SELECTION          =
38    i_zebra                       = 'X'
39 *       I_SCREEN_START_COLUMN         = 0
40 *       I_SCREEN_START_LINE           = 0
41 *       I_SCREEN_END_COLUMN           = 0
42 *       I_SCREEN_END_LINE             = 0
43    i_checkbox_fieldname          = 'BOX'
44 *       I_LINEMARK_FIELDNAME          =
45 *       I_SCROLL_TO_SEL_LINE          = 'X'
46     i_tabname                     = 'LT_EXIDV'
47 *       I_STRUCTURE_NAME              =
48    it_fieldcat                   = lt_fieldcat[]
49 *       IT_EXCLUDING                  =
50 *       I_CALLBACK_PROGRAM            =
51 *       I_CALLBACK_USER_COMMAND       =
52 *       IS_PRIVATE                    =
53 *     IMPORTING
54 *       ES_SELFIELD                   =
55 *       E_EXIT                        =
56   TABLES
57     t_outtab                      = lt_exidv
58  EXCEPTIONS
59    program_error                 = 1
60    OTHERS                        = 2.
61 IF sy-subrc <> 0.
62 *  CALL FUNCTION 'MESSAGE_TEXT_BUILD'
63 *    EXPORTING
64 *      msgid               = sy-msgid
65 *      msgnr               = sy-msgno
66 *      msgv1               = sy-msgv1
67 *      msgv2               = sy-msgv2
68 *      msgv3               = sy-msgv3
69 *      msgv4               = sy-msgv4
70 *    IMPORTING
71 *      message_text_output = l_message.
72 *  MESSAGE l_message TYPE 'E'.
73 ELSE.
74   LOOP AT lt_exidv WHERE box = 'X'.
75     l_line = sy-tabix.
76     CONCATENATE l_message '您选中的有第' l_line '行...' INTO l_message.
77   ENDLOOP.
78   MESSAGE l_message TYPE 'I'.
79 ENDIF.
View Code

弹出的DIALOG示例：

 

posted @ 2014-03-11 16:18  小鱼儿游  阅读(2400)  评论(0)  编辑  收藏  举报