alv实现采购申请关闭与打开

在业务中存在采购申请因某些原因需要关闭的情况，但用户打开采购订单进行删除时比较麻烦，如何进行操作？可将采购申请进行列表显示，让用户进行选择关闭，显示处理结果。

选择屏幕

自定义delpr和undpr两个按钮实现采购申请的关闭与打开

消息提示


采购申请查看：me53n  用来判断某个采购申请是否打开 关闭

主程序代码：

1. TYPE-POOLS:SLIS.
   
2. TABLES:EBAN.
   
3. DATA: BEGIN OF IT_LOG OCCURS 0,
   
4.           BANFN LIKE EBAN-BANFN,
   
5.           TYPE  LIKE BAPIRETURN-TYPE,
   
6.           MESSAGE LIKE BAPIRETURN-MESSAGE,
   
7.        END OF IT_LOG.
   
8. DATA: BEGIN OF T_DATA OCCURS 0,
   
9.        BANFN LIKE EBAN-BANFN,
   
10.        BNFPO LIKE EBAN-BNFPO,
    
11.        BSART LIKE EBAN-BSART,
    
12.        LOEKZ LIKE EBAN-LOEKZ,"Deletion Indicator in Purchasing Document
    
13.        ERDAT LIKE EBAN-ERDAT,
    
14.        EKGRP LIKE EBAN-EKGRP,
    
15.        WERKS LIKE EBAN-WERKS,
    
16.        RESWK LIKE EBAN-RESWK,
    
17.        MATNR LIKE EBAN-MATNR,
    
18.        TEZ01 LIKE EBAN-TXZ01,
    
19.        MENGE LIKE EBAN-MENGE,
    
20.        MEINS LIKE EBAN-MEINS,
    
21.        SFLAG TYPE CHECKBOX,
    
22.        END OF T_DATA.
    
23. 
    
24. 
    
25. DATA:IT_DATA LIKE STANDARD TABLE OF T_DATA,
    
26.      WA_DATA LIKE T_DATA.
    
27. *“非常重要：这里lt_data必须定义为 like table of 上面的t_data。
    
28. *可能有疑问了，上面的occur 0不就是定义了一个内表了吗，
    
29. *为什么这里还需要是table of t_data才是内表呢？
    
30. *这是因为，occurs <n>声明的内表，如果用在定义上，
    
31. *它是相当于一个structure的。
    
32. 
    
33. SELECTION-SCREEN BEGIN OF BLOCK BLK_001 WITH FRAME TITLE TEXT-001.
    
34. SELECT-OPTIONS:S_BSART FOR EBAN-BSART,
    
35.                S_EKGRP FOR EBAN-EKGRP,
    
36.                S_ERNAM FOR EBAN-ERNAM,
    
37.                S_ERDAT FOR EBAN-ERDAT,
    
38.                S_WERKS FOR EBAN-WERKS,
    
39.                S_RESWK FOR EBAN-RESWK,
    
40.                S_BANFN FOR EBAN-BANFN,
    
41.                S_MATNR FOR EBAN-MATNR.
    
42. PARAMETERS:P_OLDEL TYPE FLAG.
    
43. SELECTION-SCREEN END OF BLOCK BLK_001.
    
44. 
    
45. INITIALIZATION.
    
46.   S_BSART-LOW = 'NB'.
    
47.   APPEND S_BSART.
    
48. 
    
49. START-OF-SELECTION.
    
50.   PERFORM GET_DATA.
    
51. 
    
52. END-OF-SELECTION.
    
53.   PERFORM DISPALY_DATA.
    
54. *&---------------------------------------------------------------------*
    
55. *&      Form  GET_DATA
    
56. *&---------------------------------------------------------------------*
    
57. *       text
    
58. *----------------------------------------------------------------------*
    
59. *  -->  p1        text
    
60. *  <--  p2        text
    
61. *----------------------------------------------------------------------*
    
62. FORM GET_DATA .
    
63.   DATA:LV_WHERE TYPE STRING.
    
64.   FIELD-SYMBOLS:<FS_DATA> LIKE LINE OF IT_DATA.
    
65.   REFRESH: IT_DATA.
    
66.   IF P_OLDEL = 'X'.
    
67.     LV_WHERE = 'EBAN~LOEKZ = ''X'''.
    
68.   ENDIF.
    
69. 
    
70.   SELECT EBAN~BANFN
    
71.          EBAN~BNFPO
    
72.          EBAN~BSART
    
73.          EBAN~LOEKZ
    
74.          EBAN~ERDAT
    
75.          EBAN~EKGRP
    
76.          EBAN~WERKS
    
77.          EBAN~RESWK
    
78.          EBAN~MATNR
    
79.          EBAN~TXZ01
    
80.          EBAN~MENGE
    
81.          EBAN~MEINS
    
82.     INTO CORRESPONDING FIELDS OF TABLE IT_DATA
    
83.     FROM EBAN
    
84.     WHERE  EBAN~BANFN IN S_BANFN AND
    
85.            EBAN~BSART IN S_BSART AND
    
86.            EBAN~ERDAT IN S_ERDAT AND
    
87.            EBAN~EKGRP IN S_EKGRP AND
    
88.            EBAN~ERNAM IN S_ERNAM AND
    
89.            EBAN~WERKS IN S_WERKS AND
    
90.            EBAN~RESWK IN S_RESWK AND
    
91.            EBAN~MATNR IN S_MATNR AND
    
92.            (LV_WHERE).
    
93. ENDFORM.                    " GET_DATA
    
94. *&---------------------------------------------------------------------*
    
95. *&      Form  DISPALY_DATA
    
96. *&---------------------------------------------------------------------*
    
97. *       text
    
98. *----------------------------------------------------------------------*
    
99. *  -->  p1        text
    
100. *  <--  p2        text
     
101. *----------------------------------------------------------------------*
     
102. FORM DISPALY_DATA .
     
103.   DATA:LS_LAYOUT TYPE SLIS_LAYOUT_ALV,
     
104.        IT_FCAT TYPE SLIS_T_FIELDCAT_ALV.
     
105.   FIELD-SYMBOLS: <SF_FACT> LIKE IT_FCAT.
     
106. 
     
107.   LS_LAYOUT-ZEBRA = 'X'.
     
108.   LS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
     
109.   LS_LAYOUT-BOX_FIELDNAME = 'SFLAG'. " fieldname for checkbox
     
110. 
     
111.   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     
112.    EXPORTING
     
113.      I_PROGRAM_NAME               = SY-REPID
     
114.      I_INTERNAL_TABNAME           = 'T_DATA'
     
115.   "这里的I_INTERNAL_TABNAME必须是定义为occurs <n>之类的内表结构。
     
116. *   I_STRUCTURE_NAME             =
     
117. *   I_CLIENT_NEVER_DISPLAY       = 'X'
     
118.      I_INCLNAME                   = SY-REPID
     
119. *   I_BYPASSING_BUFFER           =
     
120. *   I_BUFFER_ACTIVE              =
     
121.     CHANGING
     
122.       CT_FIELDCAT                  = IT_FCAT
     
123. * EXCEPTIONS
     
124. *   INCONSISTENT_INTERFACE       = 1
     
125. *   PROGRAM_ERROR                = 2
     
126. *   OTHERS                       = 3
     
127.             .
     
128.   DELETE IT_FCAT WHERE FIELDNAME = 'SFLAG'.
     
129.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     
130.    EXPORTING
     
131. *   I_INTERFACE_CHECK                 = ' '
     
132. *   I_BYPASSING_BUFFER                = ' '
     
133. *   I_BUFFER_ACTIVE                   = ' '
     
134.      I_CALLBACK_PROGRAM                = SY-REPID
     
135.      I_CALLBACK_PF_STATUS_SET          = 'CALLBACK_PF_STATUS'
     
136.      I_CALLBACK_USER_COMMAND           = 'CALLBACK_USER_COMMAND'
     
137. *   I_CALLBACK_TOP_OF_PAGE            = ' '
     
138. *   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
     
139. *   I_CALLBACK_HTML_END_OF_LIST       = ' '
     
140. *   I_STRUCTURE_NAME                  =
     
141. *   I_BACKGROUND_ID                   = ' '
     
142. *   I_GRID_TITLE                      =
     
143. *   I_GRID_SETTINGS                   =
     
144.      IS_LAYOUT                         = LS_LAYOUT
     
145.      IT_FIELDCAT                       = IT_FCAT
     
146. *   IT_EXCLUDING                      =
     
147. *   IT_SPECIAL_GROUPS                 =
     
148. *   IT_SORT                           =
     
149. *   IT_FILTER                         =
     
150. *   IS_SEL_HIDE                       =
     
151. *   I_DEFAULT                         = 'X'
     
152. *   I_SAVE                            = ' '
     
153. *   IS_VARIANT                        =
     
154. *   IT_EVENTS                         =
     
155. *   IT_EVENT_EXIT                     =
     
156. *   IS_PRINT                          =
     
157. *   IS_REPREP_ID                      =
     
158. *   I_SCREEN_START_COLUMN             = 0
     
159. *   I_SCREEN_START_LINE               = 0
     
160. *   I_SCREEN_END_COLUMN               = 0
     
161. *   I_SCREEN_END_LINE                 = 0
     
162. *   I_HTML_HEIGHT_TOP                 = 0
     
163. *   I_HTML_HEIGHT_END                 = 0
     
164. *   IT_ALV_GRAPHICS                   =
     
165. *   IT_HYPERLINK                      =
     
166. *   IT_ADD_FIELDCAT                   =
     
167. *   IT_EXCEPT_QINFO                   =
     
168. *   IR_SALV_FULLSCREEN_ADAPTER        =
     
169. * IMPORTING
     
170. *   E_EXIT_CAUSED_BY_CALLER           =
     
171. *   ES_EXIT_CAUSED_BY_USER            =
     
172.     TABLES
     
173.       T_OUTTAB                          = IT_DATA
     
174. * EXCEPTIONS
     
175. *   PROGRAM_ERROR                     = 1
     
176. *   OTHERS                            = 2
     
177.             .
     
178.   IF SY-SUBRC <> 0.
     
179. * Implement suitable error handling here
     
180.   ENDIF.
     
181. 
     
182. 
     
183. 
     
184. 
     
185. ENDFORM.                    " DISPALY_DATA
     
186. 
     
187. *&---------------------------------------------------------------------*
     
188. *&      Form  CALLBACK_PF_STATUS
     
189. *&---------------------------------------------------------------------*
     
190. *       text
     
191. *----------------------------------------------------------------------*
     
192. *      -->RT_EXTAB   text
     
193. *----------------------------------------------------------------------*
     
194. FORM CALLBACK_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
     
195.   SET PF-STATUS 'ALV_STATUS' EXCLUDING RT_EXTAB.
     
196. ENDFORM.                    "CALLBACK_PF_STATUS
     
197. 
     
198. *&---------------------------------------------------------------------*
     
199. *&      Form  CALLBACK_USER_COMMAND
     
200. *&---------------------------------------------------------------------*
     
201. *       text
     
202. *----------------------------------------------------------------------*
     
203. *      -->P_UCOMM    text
     
204. *      -->PS_SELFIED text
     
205. *----------------------------------------------------------------------*
     
206. FORM  CALLBACK_USER_COMMAND USING P_UCOMM LIKE SY-UCOMM
     
207.                               PS_SELFIED TYPE SLIS_SELFIELD.
     
208.   DATA:REF_GRID TYPE REF TO CL_GUI_ALV_GRID.
     
209.   CASE P_UCOMM.
     
210.     WHEN 'DELPR'.
     
211.       PERFORM FCODE_DELETE_PR.
     
212.     WHEN 'UNDPR'.
     
213.       PERFORM FCODE_UNDELETE_PR.
     
214.   ENDCASE.
     
215. 
     
216. *->刷新ALV屏幕
     
217.   CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
     
218. *   EXPORTING
     
219. *     IR_SALV_FULLSCREEN_ADAPTER       =
     
220.    IMPORTING
     
221. *     ET_EXCLUDING                     =
     
222. *     E_REPID                          =
     
223. *     E_CALLBACK_PROGRAM               =
     
224. *     E_CALLBACK_ROUTINE               =
     
225.      E_GRID                           = REF_GRID
     
226. *     ET_FIELDCAT_LVC                  =
     
227. *     ER_TRACE                         =
     
228. *     E_FLG_NO_HTML                    =
     
229. *     ES_LAYOUT_KKBLO                  =
     
230. *     ES_SEL_HIDE                      =
     
231. *     ET_EVENT_EXIT                    =
     
232. *     ER_FORM_TOL                      =
     
233. *     ER_FORM_EOL                      =
     
234.             .
     
235. 
     
236.   CALL METHOD REF_GRID->CHECK_CHANGED_DATA.
     
237.   CALL METHOD REF_GRID->REFRESH_TABLE_DISPLAY.
     
238. 
     
239. ENDFORM.                    "CALLBACK_USER_COMMAND
     
240. 
     
241. *&---------------------------------------------------------------------*
     
242. *&      Form  FCODE_DELETE_PR
     
243. *&---------------------------------------------------------------------*
     
244. *       text
     
245. *----------------------------------------------------------------------*
     
246. FORM FCODE_DELETE_PR .
     
247.   PERFORM CHANGE_PR USING 'X'.
     
248. ENDFORM.                    " FCODE_DELETE_PR
     
249. 
     
250. *&---------------------------------------------------------------------*
     
251. *&      Form  FCODE_UNDELETE_PR
     
252. *&---------------------------------------------------------------------*
     
253. *       text
     
254. *----------------------------------------------------------------------*
     
255. FORM FCODE_UNDELETE_PR .
     
256.   PERFORM CHANGE_PR USING ' '.
     
257. ENDFORM.                    "FCODE_UNDELETE_PR
     
258. 
     
259. *&---------------------------------------------------------------------*
     
260. *&      Form  CHANGE_PR
     
261. *&---------------------------------------------------------------------*
     
262. *       text
     
263. *----------------------------------------------------------------------*
     
264. *      -->VALUE      text
     
265. *      -->(P_DELFG)  text
     
266. *----------------------------------------------------------------------*
     
267. FORM CHANGE_PR  USING    VALUE(P_DELFG) TYPE FLAG.
     
268.   DATA:IT_DATA_SEL LIKE TABLE OF T_DATA WITH HEADER LINE,
     
269.        IT_ITEM LIKE TABLE OF BAPIEBAND WITH HEADER LINE,
     
270.        "Transfer Structure: Delete/Close Requisition
     
271.        IT_RETURN LIKE TABLE OF BAPIRETURN WITH HEADER LINE,
     
272.        "Return Parameter
     
273.        IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
     
274.        LS_FCAT TYPE LINE OF SLIS_T_FIELDCAT_ALV,
     
275.        LV_ERROR TYPE FLAG.
     
276.   FIELD-SYMBOLS: <FS_DATA> LIKE T_DATA.
     
277. 
     
278.   REFRESH IT_LOG.
     
279.   LOOP AT IT_DATA INTO WA_DATA WHERE SFLAG = 'X'
     
280.                                AND LOEKZ <> P_DELFG.
     
281.     "LOEKZ Deletion Indicator in Purchasing Document
     
282.     "P_DELFG 放开关闭的采购申请字段
     
283.     APPEND WA_DATA TO IT_DATA_SEL.
     
284.   ENDLOOP.
     
285. 
     
286.   IF IT_DATA_SEL[] IS INITIAL.
     
287.        MESSAGE '没有选中数据' TYPE 'E'.
     
288.   ENDIF.
     
289. 
     
290.   SORT IT_DATA_SEL BY BANFN BNFPO.
     
291.   LOOP AT IT_DATA_SEL.
     
292.     CLEAR IT_ITEM. "Transfer Structure: Delete/Close Requisition
     
293.     IT_ITEM-PREQ_ITEM = IT_DATA_SEL-BNFPO.
     
294.     "Item Number of Purchase Requisition
     
295.     IT_ITEM-DELETE_IND = P_DELFG.
     
296.     "Deletion Indicator in Purchasing Document
     
297.     APPEND IT_ITEM.
     
298. 
     
299.     AT END OF BANFN.
     
300.       REFRESH:IT_RETURN.
     
301.       CLEAR:LV_ERROR.
     
302.       CALL FUNCTION 'BAPI_REQUISITION_DELETE'
     
303.         EXPORTING
     
304.           NUMBER                      = IT_DATA_SEL-BANFN
     
305.         TABLES
     
306.           REQUISITION_ITEMS_TO_DELETE = IT_ITEM
     
307.           RETURN                      = IT_RETURN.
     
308.       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
     
309.        EXPORTING
     
310.          WAIT          = 'X'
     
311. *     IMPORTING
     
312. *       RETURN        =
     
313.                 .
     
314.       LOOP AT IT_RETURN.
     
315.         CLEAR IT_LOG.
     
316.         IT_LOG-BANFN = IT_DATA_SEL-BANFN.
     
317.         IT_LOG-TYPE = IT_RETURN-TYPE.
     
318.         MESSAGE ID IT_RETURN-CODE+0(2) TYPE IT_RETURN-TYPE NUMBER
     
319.         IT_RETURN-CODE+2(3)
     
320.               WITH IT_RETURN-MESSAGE_V1
     
321.                    IT_RETURN-MESSAGE_V2
     
322.                    IT_RETURN-MESSAGE_V3
     
323.                    IT_RETURN-MESSAGE_V4
     
324.               INTO IT_LOG-MESSAGE.
     
325.         APPEND IT_LOG.
     
326. 
     
327.         IF IT_RETURN-TYPE = 'E' OR IT_RETURN-TYPE = 'A'.
     
328.           LV_ERROR = 'X'.
     
329.         ENDIF.
     
330.       ENDLOOP.
     
331. 
     
332.       IF LV_ERROR = SPACE.
     
333.         LOOP AT IT_ITEM.
     
334.           READ TABLE IT_DATA ASSIGNING <FS_DATA>
     
335.            WITH KEY BANFN = IT_DATA_SEL-BANFN
     
336.                     BNFPO = IT_ITEM-PREQ_ITEM.
     
337.           IF SY-SUBRC = 0.
     
338.             <FS_DATA>-LOEKZ = P_DELFG.
     
339.           ENDIF.
     
340.         ENDLOOP.
     
341.       ENDIF.
     
342.       REFRESH:IT_ITEM.
     
343.     ENDAT.
     
344.   ENDLOOP.
     
345. 
     
346.   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     
347.    EXPORTING
     
348.      I_PROGRAM_NAME               = SY-REPID
     
349.      I_INTERNAL_TABNAME           = 'IT_LOG'
     
350.      I_INCLNAME                   = SY-REPID
     
351. *   I_BYPASSING_BUFFER           =
     
352. *   I_BUFFER_ACTIVE              =
     
353.     CHANGING
     
354.       CT_FIELDCAT                  = IT_FCAT
     
355.       .
     
356. 
     
357.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     
358.    EXPORTING
     
359.      I_CALLBACK_PROGRAM                = SY-REPID
     
360.      IT_FIELDCAT                       = IT_FCAT
     
361.     TABLES
     
362.       T_OUTTAB                          = IT_LOG
     
363.             .
     
364. ENDFORM.                    "CHANGE_PR

复制代码

工具栏的定义，可以先copy标准工具栏，再添加两个按钮