5.1创建销售订单
*凭证类型->凭证类别->对象类型
SELECT SINGLE VBTYP INTO
VBTYP FROM TVAK
WHERE AUART = IS_ZRFC_S_SD037-DOC_TYPE.
CALL FUNCTION 'SD_OBJECT_TYPE_DETERMINE'
EXPORTING
I_DOCUMENT_TYPE = VBTYP
IMPORTING
E_BUSINESS_OBJECT = OBJTYPE.
IF
OBJTYPE = 'BUS2032'.
CALL
FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
ORDER_HEADER_IN
= ORDER_HEADER_IN
ORDER_HEADER_INX
= ORDER_HEADER_INX
LOGIC_SWITCH
= LOGIC_SWITCH
TESTRUN
= ' '
CONVERT
= ' '
IMPORTING
SALESDOCUMENT
= EP_VBELN
TABLES
RETURN
= ET_LOG
ORDER_ITEMS_IN
= ORDER_ITEMS_IN
ORDER_ITEMS_INX
= ORDER_ITEMS_INX
ORDER_PARTNERS
= ORDER_PARTNERS
ORDER_SCHEDULES_IN =
ORDER_SCHEDULES_IN
ORDER_SCHEDULES_INX = ORDER_SCHEDULES_INX
ORDER_CONDITIONS_IN = ORDER_CONDITIONS_IN
ORDER_CONDITIONS_INX = ORDER_CONDITIONS_INX
ORDER_TEXT
= IS_ORDER_TEXT.
ELSE.
fbgenmac 'BAPI_SALESORDER_CREATEFROMDAT2'.
* BAPIs run without dialog
CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
* Set global Bapiflag for further background
processing
"1112263
CALL FUNCTION
'IBAPI_Z_SET_BAPI_FLAG'
"1112263
EXPORTING
"1112263
iv_flag =
'X'.
"1112263
*ENHANCEMENT-SECTION
BAPI_SALESORDER_CREATEFROMD_02 SPOTS ES_SAPL2032.
CALL FUNCTION 'SD_SALESDOCUMENT_CREATE'
EXPORTING
salesdocument
= salesdocumentin
sales_header_in
= order_header_in
sales_header_inx
= order_header_inx
sender
= sender
binary_relationshiptype = binary_relationshiptype
int_number_assignment =
int_number_assignment
behave_when_error
= behave_when_error
logic_switch
= logic_switch
business_object
= business_object
testrun
= testrun
convert_parvw_auart
= convert
IMPORTING
salesdocument_ex
= salesdocument
TABLES
return
= return
sales_items_in
= order_items_in
sales_items_inx
= order_items_inx
sales_partners
= order_partners
sales_schedules_in
= order_schedules_in
|