采购发票预制 bapi BAPI_INCOMINGINVOICE_PARK'
BAPI_INCOMINGINVOICE_PARK'
.业务场景：对于有需要更新的si，需要对他做一次冲销后在进行收货，在冲销时可能会产生差异，因此需要调用这个bapi去修正差异。
DATA :WA_ HEADERDATA TYPE BAPI_INCINV_CREATE_HEADER.
DATA :IT_ ITEMDATA TYPE TABLE OF BAPI_INCINV_CREATE_ITEM WITH HEADER LINE.
DATA :IT_GLACCOUNTDATA TYPE TABLE OF BAPI_INCINV_CREATE_GL_ACCOUNT WITH HEADER LINE.
DATA :IT_MATERIALDATA TYPE TABLE OF BAPI_INCINV_CREATE_MATERIAL WITH HEADER LINE.
DATA :IT_RETURN LIKE TABLE OF BAPIRET2 WITH HEADER LINE.
DATA : WA_INVOICEDOCNUMBER TYPE BAPI_INCINV_FLD-INV_DOC_NO .
DATA : WA_ FISCALYEAR TYPE BAPI_INCINV_FLD-FISC_YEAR.
b.赋值
抬头赋值：
WA_ HEADERDATA-DOC_DATE = ‘20180628’ . 发票日期
WA_ HEADERDATA-PSTNG_DATE = ‘20180628’. 过账日期
WA_ HEADERDATA- REF_DOC_NO = XXX 参照(该场景此处填借贷标识)
WA_ HEADERDATA-CURRENCY = ‘CNY’ 币别
WA_ HEADERDATA- HEADER_TXT = XXXXXXXXX 抬头文本
WA_ HEADERDATA- BLINE_DATE = 20180628 基准日期
WA_ HEADERDATA-DIFF_INV = ‘S0001’ . 发票方
WA_ HEADERDATA-ALLOC_NMBR = XXXXX 分配
行项目赋值:
IT_ITEMDATA-PO_NUMBER = 1234567 采购订单号
APPEND IT_ ITEMDATA.
IT_GLACCOUNTDATA-GL_ACCOUNT = 6401040000 总账科目
IT_GLACCOUNTDATA- DB_CR_IND = XXX D/C
IT_GLACCOUNTDATA- BUS_AREA = 1101 业务中心
IT_GLACCOUNTDATA- PROFIT_CTR = 1101 利润中心
IT_GLACCOUNTDATA-ITEM_AMOUNT = 100000000. 金额
APPEND IT_GLACCOUNTDATA.
IT_ MATERIALDATA- MATERIAL = XXXXX 物料编码
IT_ MATERIALDATA- VAL_AREA = 1100 工厂
IT_ MATERIALDATA- DB_CR_IND = XXX 记（与先前的借贷标识相反）
IT_ MATERIALDATA- ITEM_AMOUNT = 100000000. 金额
APPEND IT_ MATERIALDATA.
注：行项目根据需求添加进内表中。
c.调用bapi
CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
EXPORTING
HEADERDATA = WA_HEADERDATA
IMPORTING
INVOICEDOCNUMBER = WA_INVOICEDOCNUMBER
FISCALYEAR = WA_FISCALYEAR
TABLES
ITEMDATA = IT_ITEMDATA
GLACCOUNTDATA = IT_GLACCOUNTDATA
MATERIALDATA = IT_ MATERIALDATA
RETURN = IT_RETURN.
READ TABLE IT_RETURN WITH KEY type = 'E'.
IF SY-SUBRC = 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
ELSE. "无 E 类型消息
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ENDIF.