BAPI创建PR类型销售订单的问题 求救啊！！！

jhradiofan

敬请各位老师指点指点！真的没有人知道吗？

jhradiofan

问题在创建销售订单后自动生成了售达方工厂的采购订单（如果物料被维护到这个工厂）！！！

shenzhen_sap

jhradiofan 发表于 2017-11-8 13:23
问题在创建销售订单后自动生成了售达方工厂的采购订单（如果物料被维护到这个工厂）！！！

项目类别群组 定义的是什么。

jhradiofan

shenzhen_sap 发表于 2017-11-8 14:43
项目类别群组 定义的是什么。

1. <div class="blockcode"><blockquote>REPORT ZZZ_CC_TEST .
   
2. TABLES: VBAK , VBAP .
   
3. 
   
4. ***表頭******
   
5. DATA: BEGIN OF ORDER_HEADER_IN OCCURS 1.
   
6.         INCLUDE STRUCTURE BAPISDHD1.
   
7. DATA: END OF ORDER_HEADER_IN.
   
8. DATA: BEGIN OF ORDER_HEADER_INX OCCURS 1.
   
9.         INCLUDE STRUCTURE BAPISDHD1X.
   
10. DATA: END OF ORDER_HEADER_INX.
    
11. 
    
12. ***項目**********
    
13. DATA: BEGIN OF ORDER_ITEMS_IN OCCURS 1.
    
14.         INCLUDE STRUCTURE BAPISDITM.
    
15. DATA: END OF ORDER_ITEMS_IN.
    
16. DATA: BEGIN OF ORDER_ITEMS_INX OCCURS 1.
    
17.         INCLUDE STRUCTURE BAPISDITMX.
    
18. DATA: END OF ORDER_ITEMS_INX.
    
19. 
    
20. ****
    
21. DATA: BEGIN OF ORDER_SCHEDULES_IN OCCURS 1.
    
22.         INCLUDE STRUCTURE BAPISCHDL.
    
23. DATA: END OF ORDER_SCHEDULES_IN.
    
24. DATA: BEGIN OF ORDER_SCHEDULES_INX OCCURS 1.
    
25.         INCLUDE STRUCTURE BAPISCHDLX.
    
26. DATA: END OF ORDER_SCHEDULES_INX.
    
27. 
    
28. **** 价格
    
29. DATA: BEGIN OF ORDER_CONDITIONS_IN OCCURS 1.
    
30.         INCLUDE STRUCTURE BAPICOND.
    
31. DATA: END OF ORDER_CONDITIONS_IN.
    
32. DATA: BEGIN OF LOGIC_SWITCH OCCURS 1.
    
33.         INCLUDE STRUCTURE BAPISDLS.
    
34. DATA: END OF LOGIC_SWITCH.
    
35. 
    
36. ***文件夥伴*****
    
37. DATA: BEGIN OF ORDER_PARTNERS OCCURS 1.
    
38.         INCLUDE STRUCTURE BAPIPARNR.
    
39. DATA: END OF ORDER_PARTNERS.
    
40. 
    
41. ****內文************
    
42. DATA: BEGIN OF ORDER_TEXT OCCURS 1.
    
43.         INCLUDE STRUCTURE BAPISDTEXT.
    
44. DATA: END OF ORDER_TEXT.
    
45. DATA: BEGIN OF LI_RETURN OCCURS 1.
    
46.         INCLUDE STRUCTURE BAPIRET2.
    
47. DATA: END OF LI_RETURN.
    
48. DATA: BEGIN OF ORDER_CFGS_VK OCCURS 1.
    
49.         INCLUDE STRUCTURE BAPICUVK.
    
50. DATA: END OF ORDER_CFGS_VK.
    
51. 
    
52. DATA: BEGIN OF ORDER_CFGS_INST OCCURS 1.
    
53.         INCLUDE STRUCTURE BAPICUINS.
    
54. DATA: END OF ORDER_CFGS_INST.
    
55. 
    
56. DATA: BEGIN OF ORDER_CFGS_PART_OF OCCURS 1.
    
57.         INCLUDE STRUCTURE BAPICUPRT.
    
58. DATA: END OF ORDER_CFGS_PART_OF.
    
59. 
    
60. 
    
61. DATA: BEGIN OF ORDER_CFGS_REF OCCURS 1.
    
62.         INCLUDE STRUCTURE BAPICUCFG.
    
63. DATA: END OF ORDER_CFGS_REF.
    
64. DATA: BEGIN OF ORDER_CFGS_VALUE OCCURS 1.
    
65.         INCLUDE STRUCTURE BAPICUVAL.
    
66. DATA: END OF ORDER_CFGS_VALUE.
    
67. 
    
68. DATA :   L_VBELN LIKE BAPIVBELN-VBELN.
    
69. DATA: L_SALESDOCUMENT LIKE BAPIVBELN-VBELN.
    
70. 
    
71. PARAMETERS: P_VBELN LIKE VBAK-VBELN.
    
72. 
    
73. 
    
74. START-OF-SELECTION.
    
75.   L_SALESDOCUMENT = P_VBELN.
    
76.   PERFORM SET_HEADER.
    
77.   PERFORM SET_ITEM.
    
78.   PERFORM SET_PARTNER.
    
79.   PERFORM SET_TEXT.
    
80.   PERFORM SET_BAPICOND.
    
81.   PERFORM SET_BAPISDLS.
    
82.   PERFORM CALL_BAPI.
    
83. 
    
84. *&---------------------------------------------------------------------*
    
85. *&      Form  set_partner
    
86. *&---------------------------------------------------------------------*
    
87. *       text
    
88. *----------------------------------------------------------------------*
    
89. *  -->  p1        text
    
90. *  <--  p2        text
    
91. *----------------------------------------------------------------------*
    
92. FORM SET_PARTNER.
    
93. **賣方  SP
    
94.   CLEAR ORDER_PARTNERS.
    
95.   ORDER_PARTNERS-PARTN_ROLE = 'AG'.          "Remember German codes !
    
96.   ORDER_PARTNERS-PARTN_NUMB = '0000000012'.
    
97.   APPEND ORDER_PARTNERS .
    
98. 
    
99. *出貨對象  SH
    
100.   CLEAR ORDER_PARTNERS.
     
101.   ORDER_PARTNERS-PARTN_ROLE = 'WE'.          "Remember German codes !
     
102.   ORDER_PARTNERS-PARTN_NUMB = '0000000012'.
     
103.   APPEND ORDER_PARTNERS.
     
104. 
     
105. 
     
106. *付款方  PY
     
107.   CLEAR ORDER_PARTNERS.
     
108.   ORDER_PARTNERS-PARTN_ROLE = 'RG'.          "Remember German codes !
     
109.   ORDER_PARTNERS-PARTN_NUMB = '0000000012'.
     
110.   APPEND ORDER_PARTNERS.
     
111. 
     
112. ENDFORM.                    " set_partner
     
113. *&---------------------------------------------------------------------*
     
114. *&      Form  set_header
     
115. *&---------------------------------------------------------------------*
     
116. *       text
     
117. *----------------------------------------------------------------------*
     
118. FORM SET_HEADER.
     
119. * Sales document type
     
120.   ORDER_HEADER_IN-DOC_TYPE    = 'ZAOR'.       "Remember German codes !
     
121.   ORDER_HEADER_IN-SALES_ORG  = '311'.
     
122.   ORDER_HEADER_IN-DISTR_CHAN = '10'.
     
123.   ORDER_HEADER_IN-DIVISION = '14'.
     
124.   ORDER_HEADER_IN-PURCH_NO_C = 'A162728YYB'.
     
125.   ORDER_HEADER_IN-SALES_GRP = '022'.
     
126.   ORDER_HEADER_IN-SALES_OFF = 'Z004'.
     
127.   ORDER_HEADER_IN-PMNTTRMS = '0001'.
     
128.   ORDER_HEADER_IN-PO_METHOD = '121'.
     
129.   ORDER_HEADER_IN-PO_SUPPLEM = '122'.
     
130.   APPEND ORDER_HEADER_IN.
     
131. 
     
132.   ORDER_HEADER_INX-UPDATEFLAG = 'I'.
     
133.   ORDER_HEADER_INX-SALES_ORG  = 'X'.
     
134.   ORDER_HEADER_INX-DOC_TYPE   = 'X'.
     
135.   ORDER_HEADER_INX-DIVISION = 'X'.
     
136.   ORDER_HEADER_INX-DISTR_CHAN = 'X'.
     
137.   ORDER_HEADER_INX-PURCH_NO_C = 'X'.
     
138.   ORDER_HEADER_INX-SALES_GRP = 'X'.
     
139.   ORDER_HEADER_INX-SALES_OFF = 'X'.
     
140.   ORDER_HEADER_INX-PMNTTRMS = 'X'.
     
141.   ORDER_HEADER_INX-PO_METHOD = 'X'.
     
142.   ORDER_HEADER_INX-PO_SUPPLEM = 'X'.
     
143.   APPEND ORDER_HEADER_INX.
     
144. ENDFORM.                    " set_header
     
145. 
     
146. FORM SET_BAPISDLS.
     
147.   LOGIC_SWITCH-PRICING = 'G'.
     
148.   APPEND LOGIC_SWITCH.
     
149. ENDFORM.
     
150. *&---------------------------------------------------------------------*
     
151. *&      Form  set_item
     
152. *&---------------------------------------------------------------------*
     
153. *       text
     
154. *----------------------------------------------------------------------*
     
155. *  -->  p1        text
     
156. *  <--  p2        text
     
157. *----------------------------------------------------------------------*
     
158. FORM SET_ITEM.
     
159. ****項目資料***************************
     
160.   ORDER_ITEMS_IN-ITM_NUMBER = '000010'.
     
161.   ORDER_ITEMS_IN-MATERIAL = 'J0111LTG025'.
     
162. *  order_items_in-ITEM_CATEG = 'TAC'.
     
163.   ORDER_ITEMS_IN-PO_ITM_NO = '000010'.
     
164. ORDER_ITEMS_IN-COMP_QUANT = '1'.
     
165. *  order_items_in-TARGET_QTY = '1'.
     
166.   ORDER_ITEMS_IN-ITEM_CATEG = 'PR'.
     
167.   ORDER_ITEMS_IN-REC_POINT = '输入送货信息'.
     
168.   ORDER_ITEMS_IN-DLVSCHDUSE = '002'.
     
169.   APPEND ORDER_ITEMS_IN.
     
170. 
     
171.   ORDER_ITEMS_INX-ITM_NUMBER = '000010'.
     
172.   ORDER_ITEMS_INX-MATERIAL = 'X'.
     
173.   ORDER_ITEMS_INX-UPDATEFLAG = 'I'.
     
174.   ORDER_ITEMS_INX-PO_ITM_NO = 'X'.
     
175. *  order_items_inx-ITEM_CATEG ='X'.
     
176.   ORDER_ITEMS_INX-COMP_QUANT = 'X'.
     
177. *  order_items_inX-TARGET_QTY = 'X'.
     
178.   ORDER_ITEMS_INX-ITEM_CATEG = 'X'.
     
179.   ORDER_ITEMS_INX-REC_POINT = 'X'.
     
180.   ORDER_ITEMS_INX-DLVSCHDUSE = 'X'.
     
181.   APPEND ORDER_ITEMS_INX .
     
182. 
     
183. 
     
184.   ORDER_SCHEDULES_IN-ITM_NUMBER = '000010'.
     
185.   ORDER_SCHEDULES_INX-ITM_NUMBER = '000010'.
     
186.   ORDER_SCHEDULES_IN-REQ_DATE = SY-DATUM .
     
187.   ORDER_SCHEDULES_INX-REQ_DATE = 'X'.
     
188.   ORDER_SCHEDULES_IN-REQ_QTY = '1.000'.
     
189.   ORDER_SCHEDULES_INX-REQ_QTY = 'X'.
     
190.   ORDER_SCHEDULES_IN-SCHED_LINE = '0001'.
     
191.   ORDER_SCHEDULES_INX-SCHED_LINE = 'X'.
     
192. * order_schedules_inx-updateflag = 'X'.
     
193.   APPEND ORDER_SCHEDULES_IN.
     
194.   APPEND ORDER_SCHEDULES_INX.
     
195. 
     
196. ***組態資料*************************
     
197.   ORDER_CFGS_REF-POSEX = '000010'.
     
198.   ORDER_CFGS_REF-CONFIG_ID = '000010'.
     
199.   ORDER_CFGS_REF-ROOT_ID = '000010'.
     
200.   APPEND ORDER_CFGS_REF.
     
201. 
     
202.   ORDER_CFGS_VALUE-CONFIG_ID = '000010'.
     
203.   ORDER_CFGS_VALUE-INST_ID = '000010'.
     
204.   ORDER_CFGS_VALUE-CHARC = 'M10142_A_COLOR'.
     
205.   ORDER_CFGS_VALUE-VALUE = 'A'.
     
206.   APPEND ORDER_CFGS_VALUE.
     
207. 
     
208.   ORDER_CFGS_VALUE-CONFIG_ID = '000010'.
     
209.   ORDER_CFGS_VALUE-INST_ID = '000010'.
     
210.   ORDER_CFGS_VALUE-CHARC = 'M10142_A_SIZE'.
     
211.   ORDER_CFGS_VALUE-VALUE = '43-23-135'.
     
212.   APPEND ORDER_CFGS_VALUE.
     
213. 
     
214. ENDFORM.                    " set_item
     
215. 
     
216. FORM SET_BAPICOND.
     
217. 
     
218.   ORDER_CONDITIONS_IN-ITM_NUMBER = '000010'.
     
219.   ORDER_CONDITIONS_IN-COND_VALUE = '9999.00'.
     
220.   ORDER_CONDITIONS_IN-COND_TYPE = 'PR00'.
     
221.   ORDER_CONDITIONS_IN-COND_P_UNT = '1'.
     
222.   ORDER_CONDITIONS_IN-CURRENCY = 'RMB'.
     
223.   ORDER_CONDITIONS_IN-COND_ST_NO = '101'.
     
224.   ORDER_CONDITIONS_IN-COND_COUNT = '01'.
     
225.   ORDER_CONDITIONS_IN-COND_UPDAT = 'X'.
     
226.   APPEND ORDER_CONDITIONS_IN.
     
227. 
     
228. ENDFORM.
     
229. *&---------------------------------------------------------------------*
     
230. *&      Form  set_text
     
231. *&---------------------------------------------------------------------*
     
232. *       text
     
233. *----------------------------------------------------------------------*
     
234. *  -->  p1        text
     
235. *  <--  p2        text
     
236. *----------------------------------------------------------------------*
     
237. FORM SET_TEXT.
     
238. **表頭內文***********
     
239.   ORDER_TEXT-DOC_NUMBER = P_VBELN.
     
240.   ORDER_TEXT-TEXT_ID = '0003'.
     
241.   ORDER_TEXT-LANGU = 'M'.
     
242.   ORDER_TEXT-LANGU_ISO = 'ZF'.
     
243.   ORDER_TEXT-FORMAT_COL = '*'.
     
244.   ORDER_TEXT-TEXT_LINE = 'text line 1'.
     
245. *order_text-FUNCTION
     
246.   APPEND ORDER_TEXT.
     
247.   ORDER_TEXT-TEXT_LINE = 'text line 2'.
     
248.   APPEND ORDER_TEXT.
     
249.   ORDER_TEXT-TEXT_LINE = 'text line 3'.
     
250.   APPEND ORDER_TEXT.
     
251.   ORDER_TEXT-TEXT_LINE = 'text line 4'.
     
252.   APPEND ORDER_TEXT.
     
253. 
     
254. ***項目內文************
     
255.   ORDER_TEXT-DOC_NUMBER = 'A162728YYB'.
     
256.   ORDER_TEXT-ITM_NUMBER = '000010'.
     
257.   ORDER_TEXT-TEXT_ID = '0002'.
     
258.   ORDER_TEXT-LANGU = 'M'.
     
259.   ORDER_TEXT-LANGU_ISO = 'ZF'.
     
260.   ORDER_TEXT-FORMAT_COL = '*'.
     
261.   ORDER_TEXT-TEXT_LINE = 'item text'.
     
262.   APPEND ORDER_TEXT.
     
263. 
     
264. 
     
265. ENDFORM.                    " set_text
     
266. *&---------------------------------------------------------------------*
     
267. *&      Form  call_bapi
     
268. *&---------------------------------------------------------------------*
     
269. *       text
     
270. *----------------------------------------------------------------------*
     
271. 
     
272. FORM CALL_BAPI.
     
273. *  CALL FUNCTION 'CUXC_INIT'.
     
274.   CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
     
275.         EXPORTING
     
276.              ORDER_HEADER_IN  = ORDER_HEADER_IN
     
277.              ORDER_HEADER_INX = ORDER_HEADER_INX
     
278.              SALESDOCUMENTIN  = L_SALESDOCUMENT
     
279.              LOGIC_SWITCH = LOGIC_SWITCH
     
280. *            testrun          = 'X'
     
281.         IMPORTING
     
282.              SALESDOCUMENT    = L_VBELN
     
283.         TABLES
     
284.              RETURN           = LI_RETURN
     
285.              ORDER_ITEMS_IN   = ORDER_ITEMS_IN
     
286.              ORDER_ITEMS_INX  = ORDER_ITEMS_INX
     
287.              ORDER_SCHEDULES_IN = ORDER_SCHEDULES_IN
     
288.              ORDER_SCHEDULES_INX = ORDER_SCHEDULES_INX
     
289.              ORDER_PARTNERS   = ORDER_PARTNERS
     
290.              ORDER_CONDITIONS_IN = ORDER_CONDITIONS_IN
     
291.              ORDER_CFGS_REF = ORDER_CFGS_REF
     
292. *             order_cfgs_inst = order_cfgs_inst
     
293. *             order_cfgs_part_of = order_cfgs_part_of
     
294.              ORDER_CFGS_VALUE = ORDER_CFGS_VALUE
     
295. *             order_cfgs_vk = order_cfgs_vk
     
296.              ORDER_TEXT = ORDER_TEXT.
     
297.   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
     
298. 
     
299.   LOOP AT LI_RETURN.
     
300.     WRITE:/ LI_RETURN-TYPE,
     
301.             LI_RETURN-MESSAGE.
     
302.   ENDLOOP.
     
303. ENDFORM.                    " call_bapi

复制代码

谢谢回复！

shenzhen_sap

jhradiofan 发表于 2017-11-9 07:41
谢谢回复！

这个物料的物料主档的项目类别群组是什么？

jhradiofan

shenzhen_sap 发表于 2017-11-9 09:26
这个物料的物料主档的项目类别群组是什么？

物料主档的项目类别群组：普通项目类别组 NORM 标准项目
如果ORDER_PARTNERS-PARTN_NUMB = '0000000016'就不会有问题，因为不会自动生成16工厂的采购订单。
我感觉BAPI中有一个判断物料是否维护到售达方工厂的语句，如果维护了，自动创建并提交销售订单，并同时自动生成售达方工厂的采购订单，这个时候就出现了问题，销售订单状态没有被更新到相关表！而且奇怪的是：我没有commit，销售订单也被创建了？？？
如果没有被维护到这个工厂，就不会自动生成采购订单，销售订单状态被更新到相关表，则没有问题！

jhradiofan

拟通过模拟创建销售订单进行尝试，BAPI_SALESORDER_SIMULATE

shenzhen_sap

jhradiofan 发表于 2017-11-9 13:52
物料主档的项目类别群组：普通项目类别组 NORM 标准项目
如果ORDER_PARTNERS-PARTN_NUMB = '0000000016' ...

有没有增强啊

shenzhen_sap

jhradiofan 发表于 2017-11-9 13:52
物料主档的项目类别群组：普通项目类别组 NORM 标准项目
如果ORDER_PARTNERS-PARTN_NUMB = '0000000016' ...

以为是第三方

jhradiofan

shenzhen_sap 发表于 2017-11-10 09:00
以为是第三方

正在研究是否必要的参数未带入……