BAPI创建SO.docVIP

?BAPI_SALESORDER_CREATEFROMDAT2--VA01 实例1:REPORT? Z_ORDER_CREATE_SPA_HBR.*----------------------------------------------------------------------** Parameters*----------------------------------------------------------------------*Parameters: P_order like vbak-vbeln.Parameters: P_quote like BAPIVBELN-VBELN.Parameters: P_new?? like BAPIVBELN-VBELN.** We need to create a new order number P_New from an existing order P_order* linked to an existing quotation P_quote*----------------------------------------------------------------------** Tables*----------------------------------------------------------------------*Tables: VBAK,??????? VBAP,??????? VBKD. Sales Document: Business Data*----------------------------------------------------------------------** Data and internal table*----------------------------------------------------------------------*DATA:? order_header_in1?????? LIKE BAPISDHD1.DATA:? order_header_intX????? like BAPISDHD1X.DATA : SALESDOCUMENT1???????? TYPE BAPIVBELN-VBELN.DATA : RETURN2??????????????? TYPE BAPIRET2.DATA:? order_partners1??????? type BAPIPARNR? occurs 0 with header line.DATA:? ORDER_ITEMS_IN1??????? type BAPISDITM? occurs 0 with header line.DATA:? ORDER_ITEMS_IN1X?????? type BAPISDITMX occurs 0 with header line.DATA:? ORDER_SCHEDULES_IN1??? type BAPISCHDL? occurs 0 with header line.DATA:? ORDER_SCHEDULES_IN1X?? type BAPISCHDLX occurs 0 with header line.DATA : RETURN1??????????????? TYPE BAPIRET2?? OCCURS 0 with header line.Start-of-selection.? Select single * from vbak where vbeln = p_quote.? if not sy-subrc = 0.??? write:/ text-e02.??? exit.? endif.? Select single * from vbak where vbeln = p_order.? if not sy-subrc = 0.??? write:/ text-e01.??? exit.? endif.? Select single * from vbkd where vbeln = p_order.? if not sy-subrc = 0.??? write:/ text-e03.??? exit.? endif.? order_header_in1-doc_type?? = TA.? order_header_in1-sales_org? =? vbak-vkorg.? order_header_in1-distr_chan =? vbak-