受注伝票: 受注伝票登録（转）

source is as follows

[@more@]

REPORT ZTESTDB01.

data : iBAPISDHEAD like BAPISDHEAD occurs 10 with header line,
iBAPIITEMIN like BAPIITEMIN occurs 10 with header line,"Item data input
iBAPIPARTNR like BAPIPARTNR occurs 10 with header line."partners

iBAPISDHEAD-doc_type = 'BV'.
iBAPISDHEAD-SALES_ORG = '1000'.
iBAPISDHEAD-DISTR_CHAN = '10'.
iBAPISDHEAD-DIVISION = '10'.

append iBAPISDHEAD.

*****Item details
iBAPIITEMIN-ITM_NUMBER = '10'.
*HG_LV_ITEM = ''.
*PO_ITM_NO = ''.
iBAPIITEMIN-MATERIAL = 'SMB_FERT04'.

append iBAPIITEMIN.
*clear iBAPIITEMIN.

***** End Item details

*****Partner functions
iBAPIPARTNR-PARTN_ROLE = 'AG'.
iBAPIPARTNR-PARTN_NUMB = '0000000001'.
iBAPIPARTNR-ITM_NUMBER = '10'.
iBAPIPARTNR-TITLE ='Company'.
iBAPIPARTNR-name = 'Test Customer1'.
iBAPIPARTNR-street = 'kandivali'.
iBAPIPARTNR-country ='IN'.
iBAPIPARTNR-POSTL_CODE = '400101'.


append iBAPIPARTNR.
*clear iBAPIPARTNR.
*****end partner functions

data : iBAPI_VBELN like BAPIVBELN-VBELN." value '0020000054'.

data : iBAPISOLDTO like BAPISOLDTO occurs 10 with header line."SOLD TO PARTY

data : iBAPISHIPTO like BAPISHIPTO occurs 10 with header line."SHIP TO PARTY


data iBAPIRETURN1 like BAPIRETURN occurs 10 with header line.

***end addition

loop at iBAPISOLDTO.

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT1'

EXPORTING
ORDER_HEADER_IN = iBAPISDHEAD
WITHOUT_COMMIT = space
* CONVERT_PARVW_AUART = 'X'
IMPORTING
SALESDOCUMENT = iBAPI_VBELN
SOLD_TO_PARTY = iBAPISOLDTO
SHIP_TO_PARTY = iBAPISHIPTO
* BILLING_PARTY = '1'
RETURN = iBAPIRETURN1
TABLES
ORDER_ITEMS_IN = iBAPIITEMIN
ORDER_PARTNERS = iBAPIPARTNR
* ORDER_ITEMS_OUT =
* ORDER_CFGS_REF =
* ORDER_CFGS_INST =
* ORDER_CFGS_PART_OF =
* ORDER_CFGS_VALUE =
* ORDER_CCARD =
* ORDER_CFGS_BLOB =
* ORDER_SCHEDULE_EX =
.

append iBAPIRETURN1.
endloop.



CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = ' '
* IMPORTING
* RETURN =
.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8214011/viewspace-910683/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8214011/viewspace-910683/