ZLMT033中间表中订购原因丢失数据批量维护程序

需求:OMS二期上线后，ERP系统中部分物流ZLMT033表中异常状态的数据订购原因丢失批量维护

设计方案：
1．定义选择屏幕。
处理状态一般情况下都为H，不需要修改。
勾选“是否根据zlmt033处理H状态数据”时，先检查vbuv表，再修改vbak表中的augru字段；不勾选，直接修改vbak中的augru字段。
退货申请为手动输入需要修改vbak-augru的值。
2．取数
3．用BAPI_SALESORDER_CHANGE批量更新SO订单数据
4．收集消息并记录到日志表中

选择屏幕：

注：勾选：不给出消息提示，直接记录到日志中，因为业务需要后台定义JOB

日志表：


主程序代码：

1. *&---------------------------------------------------------------------*
   
2. *& 程序名: ZDQSD_166                                                   *
   
3. *&                                                                     *
   
4. *&---------------------------------------------------------------------*
   
5. *& 抬头     : ZLMT033中间表中订购原因丢失数据批量维护报表              *
   
6. *& 模块     : SD                                                       *
   
7. *& 作者     : XXX                                                   *
   
8. *& 创建日期 : 2014/03/13                                               *
   
9. *& 程序类型 : 报表/表单/批导入/后台作业                                *
   
10. *& 消息类   : 00                                                       *
    
11. *& 描述     : ZLMT033中间表中订购原因丢失数据批量维护报表              *
    
12. *&                                                                     *
    
13. *& 修改记录 :                                                          *
    
14. *& 日期    修改人 修改内容                                             *
    
15. *& YYYY/MM/DD修改人员名说明                                            *
    
16. *&---------------------------------------------------------------------*
    
17. REPORT  zdqsd_166 MESSAGE-ID 00.
    
18. 
    
19. *&---------------------------------------------------------------------*
    
20. *& INCLUDE
    
21. *&---------------------------------------------------------------------*
    
22. INCLUDE zdqsd_166_top.    "Type/Data
    
23. *INCLUDE zxxxxxxxx_class.        "Class
    
24. INCLUDE zdqsd_166_selscr.        "Selection screen
    
25. INCLUDE zdqsd_166_form.   "Form
    
26. *INCLUDE zxxxxxxxx_module.  "Module
    
27. 
    
28. *&---------------------------------------------------------------------*
    
29. *& 初始化处理
    
30. *&---------------------------------------------------------------------*
    
31. INITIALIZATION.
    
32. *  PERFORM xxxxxxx.
    
33. 
    
34. *&---------------------------------------------------------------------*
    
35. *& 选择屏幕控制
    
36. *&---------------------------------------------------------------------*
    
37. AT SELECTION-SCREEN OUTPUT.
    
38. *  PERFORM xxxxxxx.
    
39. 
    
40. *&---------------------------------------------------------------------*
    
41. *& 参数输入检查
    
42. *&---------------------------------------------------------------------*
    
43. AT SELECTION-SCREEN.
    
44.   PERFORM f_authority_check."权限检查
    
45.   PERFORM f_check_screen."选择屏幕条件控制校验
    
46. *  PERFORM xxxxxxx.
    
47. 
    
48. *&---------------------------------------------------------------------*
    
49. *& 程序开始处理
    
50. *&---------------------------------------------------------------------*
    
51. START-OF-SELECTION.
    
52.   PERFORM f_get_data. "取数逻辑
    
53.   PERFORM f_process_data. "处理逻辑
    
54. *&---------------------------------------------------------------------*
    
55. *& 程序结束处理
    
56. *&---------------------------------------------------------------------*
    
57. END-OF-SELECTION.
    
58. *  PERFORM XXXXXX.

复制代码

1. *&---------------------------------------------------------------------*
   
2. *&  包括              ZDQSD_166_TOP
   
3. *&---------------------------------------------------------------------*
   
4. TABLES:zlmt033.
   
5. DATA:wa_zsd_conf02 TYPE zsd_conf02.
   
6. DATA:wa_zdqsd_166_log TYPE zdqsd_166_log.
   
7. DATA:it_zdqsd_166_log TYPE TABLE OF zdqsd_166_log.
   
8. DATA:gs_tvau TYPE tvau.
   
9. 
   
10. TYPES:BEGIN OF ty_vbuv,
    
11.         vbeln TYPE vbuv-vbeln,
    
12.         posnr TYPE vbuv-posnr,
    
13.         etenr TYPE vbuv-etenr,
    
14.         parvw TYPE vbuv-parvw,
    
15.         tdid  TYPE vbuv-tdid ,
    
16.         tbnam TYPE vbuv-tbnam,
    
17.         fdnam TYPE vbuv-fdnam,
    
18.      END OF ty_vbuv.
    
19. TYPES:BEGIN OF ty_vbak,
    
20.         vbeln    TYPE vbak-vbeln ,
    
21.         augru    TYPE vbak-augru ,
    
22.         zzfhqzlx TYPE vbak-zzfhqzlx,
    
23.      END OF ty_vbak.
    
24. TYPES: BEGIN OF ty_zlmt033,
    
25.         omsorder TYPE zlmt033-omsorder,
    
26.         vbeln TYPE zlmt033-vbeln,
    
27.        END OF ty_zlmt033.
    
28. 
    
29. DATA: it_vbuv TYPE TABLE OF ty_vbuv WITH HEADER LINE.
    
30. DATA: it_vbak TYPE TABLE OF ty_vbak WITH HEADER LINE.
    
31. DATA:wa_zlmt033 TYPE ty_zlmt033,
    
32.       it_zlmt033 TYPE STANDARD TABLE OF ty_zlmt033.

复制代码

1. *&---------------------------------------------------------------------*
   
2. *&  包括              ZDQSD_166_SELSCR
   
3. *&---------------------------------------------------------------------*
   
4. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
   
5. SELECT-OPTIONS: s_omsor FOR zlmt033-omsorder,"OMS订单号
   
6.                 s_vbeln FOR zlmt033-vbeln," 销售凭证
   
7.                 s_datum FOR zlmt033-zdatum  OBLIGATORY. "记录创建日期
   
8. PARAMETERS:p_sataus TYPE zlmt033-zstatus DEFAULT 'H' OBLIGATORY."处理状态
   
9. PARAMETERS: p_flag  AS CHECKBOX DEFAULT 'X'.
   
10. SELECTION-SCREEN END OF BLOCK b1.
    
11. 
    
12. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
    
13. PARAMETERS: p_augru TYPE vbak-augru DEFAULT '026' OBLIGATORY. " 退货申请
    
14. SELECTION-SCREEN END OF BLOCK b2.

复制代码

1. *&---------------------------------------------------------------------*
   
2. *&  包括              ZDQSD_166_FORM
   
3. *&---------------------------------------------------------------------*
   
4. *&---------------------------------------------------------------------*
   
5. *&      Form  GET_DATA
   
6. *&---------------------------------------------------------------------*
   
7. *       text
   
8. *----------------------------------------------------------------------*
   
9. *  -->  p1        text
   
10. *  <--  p2        text
    
11. *----------------------------------------------------------------------*
    
12. FORM f_get_data .
    
13.   IF p_flag = 'X'."选择屏幕中 勾选时的取数逻辑
    
14.     SELECT omsorder
    
15.            vbeln
    
16.     INTO TABLE it_zlmt033
    
17.     FROM zlmt033
    
18.     WHERE omsorder IN s_omsor AND
    
19.           vbeln IN s_vbeln AND
    
20.           zdatum IN s_datum AND
    
21.           zstatus = p_sataus.
    
22.     SORT it_zlmt033 BY vbeln.
    
23.     DELETE it_zlmt033[] WHERE vbeln = space.
    
24.     DELETE ADJACENT DUPLICATES FROM it_zlmt033[] COMPARING vbeln.
    
25. 
    
26.     LOOP AT it_zlmt033 INTO wa_zlmt033."添加前导零
    
27.       CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    
28.         EXPORTING
    
29.           input  = wa_zlmt033-vbeln
    
30.         IMPORTING
    
31.           output = wa_zlmt033-vbeln.
    
32.       MODIFY it_zlmt033 FROM wa_zlmt033 TRANSPORTING vbeln.
    
33.     ENDLOOP.
    
34. 
    
35.     IF it_zlmt033[] IS NOT INITIAL.
    
36.       SELECT vbeln
    
37.              posnr
    
38.              etenr
    
39.              parvw
    
40.              tdid
    
41.              tbnam
    
42.              fdnam
    
43.        INTO TABLE it_vbuv
    
44.        FROM vbuv
    
45.        FOR ALL ENTRIES IN it_zlmt033
    
46.        WHERE vbeln = it_zlmt033-vbeln AND fdnam = 'AUGRU'.
    
47.     ENDIF.
    
48. 
    
49.     LOOP AT it_vbuv."添加前导零
    
50.       CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    
51.         EXPORTING
    
52.           input  = it_vbuv-vbeln
    
53.         IMPORTING
    
54.           output = it_vbuv-vbeln.
    
55.       MODIFY it_vbuv TRANSPORTING vbeln.
    
56.     ENDLOOP.
    
57. 
    
58.     DELETE it_vbuv[] WHERE vbeln = space.
    
59.     IF it_vbuv[] IS NOT INITIAL.
    
60.       SORT it_vbuv[] BY vbeln.
    
61.       DELETE ADJACENT DUPLICATES FROM it_vbuv COMPARING vbeln.
    
62.       SELECT vbeln
    
63.              augru
    
64.              zzfhqzlx
    
65.         INTO TABLE it_vbak
    
66.         FROM vbak
    
67.         FOR ALL ENTRIES IN it_vbuv
    
68.         WHERE vbeln = it_vbuv-vbeln.
    
69.     ENDIF.
    
70.   ELSE."选择屏幕中 不勾选时的取数逻辑
    
71.     SELECT vbeln
    
72.            augru
    
73.            zzfhqzlx
    
74.       INTO TABLE it_vbak
    
75.       FROM vbak
    
76.       WHERE zzfhqzlx IN s_omsor AND "签章类型
    
77.             vbeln IN s_vbeln AND "销售凭证
    
78.             erdat IN s_datum."记录建立日期
    
79.     SORT it_vbak BY vbeln.
    
80.   ENDIF.
    
81. 
    
82.   IF it_vbak[] IS INITIAL.
    
83.     MESSAGE i001(00) WITH '没有符合条件的数据要更新！'.
    
84.     LEAVE LIST-PROCESSING.
    
85.   ENDIF.
    
86. ENDFORM.              " F_GET_DATA
    
87. *&---------------------------------------------------------------------*
    
88. *&      Form  f_AUTHORITY_CHECK
    
89. *&---------------------------------------------------------------------*
    
90. *       text
    
91. *----------------------------------------------------------------------*
    
92. *  -->  p1        text
    
93. *  <--  p2        text
    
94. *----------------------------------------------------------------------*
    
95. FORM f_authority_check .
    
96.   SELECT SINGLE *
    
97.     INTO wa_zsd_conf02
    
98.     FROM zsd_conf02
    
99.     WHERE zpara = 'ZSD166'
    
100.      AND zchar = sy-uname.
     
101.   IF sy-subrc <> 0.
     
102.     MESSAGE e001(00) WITH '您没有权限操作'.
     
103.   ENDIF.
     
104. ENDFORM.        "f_A     UTHORITY_CHECK
     
105. *&---------------------------------------------------------------------*
     
106. *&      Form  f_process_data
     
107. *&---------------------------------------------------------------------*
     
108. *       text
     
109. *----------------------------------------------------------------------*
     
110. *  -->  p1        text
     
111. *  <--  p2        text
     
112. *----------------------------------------------------------------------*
     
113. FORM f_process_data .
     
114.   DATA: lt_return  TYPE STANDARD TABLE OF bapiret2,
     
115.         ls_return  TYPE bapiret2,
     
116.         ls_headerx TYPE bapisdh1x, "表头标志
     
117.         ls_header  TYPE bapisdh1.
     
118. 
     
119.   ls_headerx-updateflag = 'U'.     "Update
     
120.   ls_header-ord_reason = p_augru.
     
121.   ls_headerx-ord_reason = 'X'.
     
122. 
     
123.   DATA:l_vbak_augru TYPE vbak-augru.
     
124.   DATA:l_message TYPE bapiret2-message.
     
125.   DATA:l_error(1) TYPE c.
     
126. *-->调用bapi批处理augru
     
127.   LOOP AT  it_vbak.
     
128.     CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
     
129.       EXPORTING
     
130.         salesdocument    = it_vbak-vbeln
     
131.         order_header_in  = ls_header
     
132.         order_header_inx = ls_headerx
     
133.       TABLES
     
134.         return           = lt_return.
     
135. 
     
136.     CLEAR:l_error.
     
137.     LOOP AT lt_return INTO ls_return WHERE  type EQ 'E' OR type = 'A'.
     
138.       l_error = 'X'.
     
139.     ENDLOOP.
     
140. 
     
141.     IF l_error = 'X'.
     
142.       CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
     
143. *-->收集失败的消息
     
144.       l_vbak_augru = it_vbak-augru.
     
145.       l_message = '修改失败'.
     
146.       PERFORM f_add_message USING l_vbak_augru
     
147.                                   l_message.
     
148.     ELSE.
     
149.       CALL FUNCTION'BAPI_TRANSACTION_COMMIT'
     
150.             EXPORTING
     
151.               wait = 'X'.
     
152. *-->收集成功的消息
     
153.       l_vbak_augru = p_augru.
     
154.       l_message = '修改成功'.
     
155.       PERFORM f_add_message USING l_vbak_augru
     
156.                                   l_message.
     
157.     ENDIF.
     
158.   ENDLOOP.
     
159. 
     
160.   IF p_flag = space.
     
161.     MESSAGE s001(00) WITH '数据已被修改请查看日志表！'.
     
162.   ENDIF.
     
163. *-->收集消息记录到日志表中
     
164.   IF it_zdqsd_166_log IS NOT INITIAL.
     
165.     MODIFY zdqsd_166_log FROM TABLE it_zdqsd_166_log.
     
166.     IF sy-subrc = 0.
     
167.       COMMIT WORK AND WAIT.
     
168.     ELSE.
     
169.       ROLLBACK WORK.
     
170.     ENDIF.
     
171.   ENDIF.
     
172. ENDFORM.                    " f_process_data
     
173. *&---------------------------------------------------------------------*
     
174. *&      Form  F_CHECK_SCREEN
     
175. *&---------------------------------------------------------------------*
     
176. *       text
     
177. *----------------------------------------------------------------------*
     
178. *  -->  p1        text
     
179. *  <--  p2        text
     
180. *----------------------------------------------------------------------*
     
181. FORM f_check_screen .
     
182.   IF  p_flag = space AND s_vbeln[] IS INITIAL  AND  s_omsor[] IS INITIAL .
     
183.     MESSAGE e001(00) WITH 'OMS单号和销售凭证号至少输入一项'.
     
184.   ENDIF.
     
185. 
     
186.   SELECT SINGLE *
     
187.     INTO gs_tvau
     
188.     FROM tvau
     
189.     WHERE augru = p_augru.
     
190.   IF sy-subrc <> 0.
     
191.     MESSAGE e001(00) WITH '退货申请' p_augru  '不存在！'.
     
192.   ENDIF.
     
193. ENDFORM.                    "f_check_screen
     
194. " F_CHECK_SCREEN
     
195. *&---------------------------------------------------------------------*
     
196. *&      Form  f_add_message
     
197. *&---------------------------------------------------------------------*
     
198. *       text
     
199. *----------------------------------------------------------------------*
     
200. *      -->L_P_VBAK_AUGRU  text
     
201. *      -->L_P_MESSAGE  text
     
202. *----------------------------------------------------------------------*
     
203. FORM f_add_message  USING    l_p_vbak_augru
     
204.                              l_p_message.
     
205.   wa_zdqsd_166_log-mandt = sy-mandt.
     
206.   wa_zdqsd_166_log-zzfhqzlx = it_vbak-zzfhqzlx.
     
207.   wa_zdqsd_166_log-vbeln =  it_vbak-vbeln.
     
208.   wa_zdqsd_166_log-erdat = sy-datum.
     
209.   wa_zdqsd_166_log-erzet = sy-uzeit.
     
210.   wa_zdqsd_166_log-augru = l_p_vbak_augru.
     
211.   wa_zdqsd_166_log-uname = sy-uname.
     
212.   wa_zdqsd_166_log-message = l_p_message.
     
213.   APPEND wa_zdqsd_166_log TO it_zdqsd_166_log.
     
214.   CLEAR wa_zdqsd_166_log.
     
215. ENDFORM.                    " f_add_message

复制代码