使用'REUSE_ALV_LIST_DISPLAY'建立互交式alv list

该程序是通过the basic ALV list 显示 Purchase Order的头部明细，然后双击任一行，在第二个alv list 界面显示Purchase Order行项目明细

选择屏幕：       

输入采购订单号，点击执行

双击记录的任一行，跳转到第二个alv list


程序代码：

1. ***********************************************************************
   
2. * type-pools declaration
   
3. ***********************************************************************
   
4. TYPE-POOLS:slis.
   
5. 
   
6. ***********************************************************************
   
7. * data declarations
   
8. ***********************************************************************
   
9. DATA:
   
10. w_ebeln TYPE ekko-ebeln,
    
11. w_prog TYPE sy-repid,
    
12. t_fieldcat TYPE slis_t_fieldcat_alv,
    
13. fs_fieldcat LIKE LINE OF t_fieldcat,
    
14. t_eventcat TYPE slis_t_event,
    
15. w_eventcat LIKE LINE OF t_eventcat.
    
16. 
    
17. ***********************************************************************
    
18. * select-options declaration
    
19. ***********************************************************************
    
20. SELECT-OPTIONS:s_ebeln FOR w_ebeln.
    
21. 
    
22. ***********************************************************************
    
23. * internal table and field-string declarations
    
24. ***********************************************************************
    
25. DATA:
    
26. t_ekko LIKE STANDARD TABLE OF ekko,
    
27. fs_ekko LIKE LINE OF t_ekko.
    
28. 
    
29. DATA:t_ekpo LIKE STANDARD TABLE OF ekpo,
    
30. fs_ekpo LIKE LINE OF t_ekpo.
    
31. 
    
32. ***********************************************************************
    
33. *start-of-selection
    
34. ***********************************************************************
    
35. START-OF-SELECTION.
    
36.   SELECT *
    
37.   FROM ekko
    
38.   INTO TABLE t_ekko
    
39.   WHERE ebeln IN s_ebeln.
    
40. 
    
41.   w_prog = sy-repid.
    
42. 
    
43.   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    
44.     EXPORTING
    
45.       i_callback_program      = w_prog
    
46.       i_callback_user_command = 'PICK'
    
47.       i_structure_name        = 'EKKO'
    
48.     TABLES
    
49.       t_outtab                = t_ekko
    
50.     EXCEPTIONS
    
51.       program_error           = 1
    
52.       OTHERS                  = 2.
    
53.   IF sy-subrc <> 0.
    
54. *message id sy-msgid type sy-msgty number sy-msgno
    
55. *with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
56.   ENDIF.
    
57. 
    
58. *&--------------------------------------------------------------------*
    
59. *& form pick
    
60. *&--------------------------------------------------------------------*
    
61. *-->ucomm text
    
62. *-->selfield text
    
63. *---------------------------------------------------------------------*
    
64. FORM pick USING command LIKE sy-ucomm
    
65.                 selfield TYPE slis_selfield.
    
66.   READ TABLE t_ekko INTO fs_ekko INDEX selfield-tabindex.  "internal output table index
    
67. 
    
68.   CASE command.
    
69.     WHEN '&IC1'.
    
70.       SELECT *
    
71.       FROM ekpo
    
72.       INTO TABLE t_ekpo
    
73.       WHERE ebeln EQ fs_ekko-ebeln.
    
74. 
    
75.       w_prog = sy-repid.
    
76. 
    
77.       CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'"根据内表或结构返回FIELDCAT字段结构信息
    
78.         EXPORTING
    
79.           i_structure_name       = 'EKPO'
    
80.         CHANGING
    
81.           ct_fieldcat            = t_fieldcat
    
82.         EXCEPTIONS
    
83.           inconsistent_interface = 1
    
84.           program_error          = 2
    
85.           OTHERS                 = 3.
    
86.       IF sy-subrc <> 0.
    
87. * message id sy-msgid type sy-msgty number sy-msgno
    
88. * with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
89.       ENDIF.
    
90. 
    
91.       DELETE t_fieldcat WHERE fieldname EQ 'EBELN'.
    
92.       DELETE t_fieldcat WHERE fieldname EQ 'BUKRS'.
    
93.       DELETE t_fieldcat WHERE fieldname EQ 'LGORT'.
    
94.       DELETE t_fieldcat WHERE fieldname EQ 'WERKS'.
    
95. 
    
96.       PERFORM t_eventcat."alv表头
    
97. 
    
98.       CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    
99.         EXPORTING
    
100.           i_callback_program = w_prog
     
101.           it_fieldcat        = t_fieldcat
     
102.           it_events          = t_eventcat
     
103.         TABLES
     
104.           t_outtab           = t_ekpo
     
105.         EXCEPTIONS
     
106.           program_error      = 1
     
107.           OTHERS             = 2.
     
108.       IF sy-subrc <> 0.
     
109. * message id sy-msgid type sy-msgty number sy-msgno
     
110. * with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     
111.       ENDIF.
     
112. 
     
113.   ENDCASE. " CASE COMMAND
     
114. ENDFORM. " FORM PICK
     
115. 
     
116. *&---------------------------------------------------------------------*
     
117. *&      Form  T_EVENTCAT
     
118. *&---------------------------------------------------------------------*
     
119. *       text
     
120. *----------------------------------------------------------------------*
     
121. FORM t_eventcat.
     
122.   w_eventcat-name = 'TOP_OF_PAGE'.
     
123.   w_eventcat-form = 'TOP'.
     
124.   APPEND w_eventcat TO t_eventcat.
     
125. ENDFORM.                    "T_EVENTCAT
     
126. 
     
127. *&---------------------------------------------------------------------*
     
128. *&      Form  TOP
     
129. *&---------------------------------------------------------------------*
     
130. *       text
     
131. *----------------------------------------------------------------------*
     
132. FORM top.
     
133.   READ TABLE t_ekpo INTO fs_ekpo INDEX 1.
     
134.   WRITE:/ 'Purchase Document Number'(001),30 fs_ekpo-ebeln,
     
135.   / 'Company Code'(002), 30 fs_ekpo-bukrs,
     
136.   / 'Plant'(003), 30 fs_ekpo-werks,
     
137.   / 'Storage Location'(004),30 fs_ekpo-lgort.
     
138. ENDFORM.                    "TOP

复制代码

学习了    楼主辛苦了{:soso_e183:}