BAPI创建销售订单BAPI_SALESORDER_CREATEFROMDAT2

在ABAP中调用BAPI的方法与调用Function Module的方法相同。只是要注意BAPI函数没有Exception，调用是否成功是通过参数return返回的。该return参数在不同的BAPI中结构不同，可能是structure，也可能是table，编程时要注意。
下面的程序是ABAP中调用BAPI_SALESORDER_CREATEFROMDAT2的例子。
注意：
1．必须调用BAPI_TRANSACTION_COMMIT完成整个事务。
2．某些数据必须用辅助结构（负责确定所要更新的数据位）完成数据更新。（如ORDER_ITEMS_IN和ORDER_ITEMS_INX）

1. * Order header:
   
2. * - Order type: OR  Important you must use the german code TA
   
3. * - Sales org: 1000
   
4. * - Distrb. chan.: 10
   
5. * - Division: 00
   
6. * - Sold to party: 1032
   
7. * - Ship to party: 1032
   
8. * - Purch order: DG-19970626-3
   
9. * Order item:
   
10. * - Material: P-100
    
11. * - Qty: 1
    
12. DATA:
    
13. * Order partners
    
14. LI_ORDER_PARTNERS    TYPE STANDARD TABLE OF BAPIPARNR,
    
15. L_ORDER_PARTNERS     LIKE BAPIPARNR,
    
16. * Structures for order header
    
17. L_ORDER_HEADER_IN    LIKE BAPISDHD1,
    
18. L_ORDER_HEADER_INX   LIKE BAPISDHD1X,
    
19. * Tables for order items
    
20. LI_ORDER_ITEMS_IN    TYPE STANDARD TABLE OF BAPISDITM,
    
21. L_ORDER_ITEMS_IN     LIKE BAPISDITM,
    
22. LI_ORDER_ITEMS_INX   TYPE STANDARD TABLE OF BAPISDITMX,
    
23. L_ORDER_ITEMS_INX    LIKE BAPISDITMX,
    
24. * Return table from bapi call
    
25. LI_RETURN TYPE STANDARD TABLE OF BAPIRET2,
    
26. L_RETURN  TYPE BAPIRET2,
    
27. * Sales document number
    
28.   L_VBELN LIKE BAPIVBELN-VBELN,
    
29. * Error flag
    
30.   L_ERRFLAG(1) TYPE C.
    
31. 
    
32. START-OF-SELECTION.
    
33. *------------------------------------------------------------------
    
34. * Build partner information
    
35. *------------------------------------------------------------------
    
36.   CLEAR L_ORDER_PARTNERS.
    
37.   L_ORDER_PARTNERS-PARTN_ROLE = 'AG'.          "Remember German codes !
    
38.   L_ORDER_PARTNERS-PARTN_NUMB = '0000001000'.
    
39.   APPEND L_ORDER_PARTNERS TO LI_ORDER_PARTNERS.
    
40. *------------------------------------------------------------------
    
41. * Build order header
    
42. *------------------------------------------------------------------
    
43. * Update flag
    
44.   L_ORDER_HEADER_INX-UPDATEFLAG = 'I'.
    
45. * Sales document type
    
46.   L_ORDER_HEADER_IN-DOC_TYPE    = 'TA'.        "Remember German codes !
    
47.   L_ORDER_HEADER_INX-DOC_TYPE   = 'X'.
    
48. * Sales organization
    
49.   L_ORDER_HEADER_IN-SALES_ORG  = '1000'.
    
50.   L_ORDER_HEADER_INX-SALES_ORG  = 'X'.
    
51. * Distribution channel
    
52.   L_ORDER_HEADER_IN-DISTR_CHAN = '10'.
    
53.   L_ORDER_HEADER_INX-DISTR_CHAN = 'X'.
    
54. * Division
    
55.   L_ORDER_HEADER_IN-DIVISION = '00'.
    
56.   L_ORDER_HEADER_INX-DIVISION = 'X'.
    
57. * Purchase order
    
58.   L_ORDER_HEADER_IN-PURCH_NO_C = 'DG-19970626-300-FLC'.
    
59.   L_ORDER_HEADER_INX-PURCH_NO_C = 'X'.
    
60. *------------------------------------------------------------------
    
61. * Build order item(s) - Only 1 is used in this example
    
62. *------------------------------------------------------------------
    
63. *
    
64.   L_ORDER_ITEMS_IN-ITM_NUMBER = '000010'.
    
65.   L_ORDER_ITEMS_INX-ITM_NUMBER = '000010'.
    
66.   L_ORDER_ITEMS_IN-MATERIAL = 'P-100'.
    
67.   L_ORDER_ITEMS_INX-MATERIAL = 'X'.
    
68.   L_ORDER_ITEMS_IN-TARGET_QTY = '3.000'.
    
69.   L_ORDER_ITEMS_INX-TARGET_QTY = 'X'.
    
70.   L_ORDER_ITEMS_IN-COMP_QUANT = 3 .
    
71.   L_ORDER_ITEMS_INX-COMP_QUANT = 'X'.
    
72.   APPEND L_ORDER_ITEMS_IN TO LI_ORDER_ITEMS_IN.
    
73.   L_ORDER_ITEMS_INX-UPDATEFLAG = 'I'.
    
74.   APPEND L_ORDER_ITEMS_INX TO LI_ORDER_ITEMS_INX.
    
75. *------------------------------------------------------------------
    
76. * CALL Bapi
    
77. *------------------------------------------------------------------
    
78.   CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
    
79.        EXPORTING
    
80.             ORDER_HEADER_IN  = L_ORDER_HEADER_IN
    
81.             ORDER_HEADER_INX = L_ORDER_HEADER_INX
    
82.        IMPORTING
    
83.             SALESDOCUMENT    = L_VBELN
    
84.        TABLES
    
85.             RETURN           = LI_RETURN
    
86.             ORDER_ITEMS_IN   = LI_ORDER_ITEMS_IN
    
87.             ORDER_ITEMS_INX  = LI_ORDER_ITEMS_INX
    
88.             ORDER_PARTNERS   = LI_ORDER_PARTNERS.
    
89. END-OF-SELECTION.
    
90. *------------------------------------------------------------------
    
91. * Check and write Return table
    
92. *------------------------------------------------------------------
    
93.   CLEAR L_ERRFLAG.
    
94.   WRITE: / 'Sales dcoument: ', L_VBELN.
    
95.   LOOP AT LI_RETURN INTO L_RETURN.
    
96.     WRITE: / L_RETURN-TYPE, L_RETURN-MESSAGE(50).
    
97.     IF L_RETURN-TYPE = 'E'.
    
98.       L_ERRFLAG = 'X'.
    
99.     ENDIF.
    
100.   ENDLOOP.
     
101. *------------------------------------------------------------------
     
102. * No errors - Commit
     
103. *------------------------------------------------------------------
     
104. CLEAR L_RETURN.
     
105.   IF L_ERRFLAG  IS INITIAL.
     
106.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
     
107.     EXPORTING
     
108.         RETURN = L_RETURN
     
109.         .
     
110.     WRITE : / L_RETURN-TYPE , L_RETURN-MESSAGE .
     
111.   ENDIF.

复制代码