BAPI:BAPI_INCOMINGINVOICE_CREATE MIRO根据物料创建贷项凭证

*&---------------------------------------------------------------------*
*& Report  ZTEST_MIRO.
*&---------------------------------------------------------------------*
REPORT ZTEST_MIRO.
DATA: LS_HEADERDATA       LIKE BAPI_INCINV_CREATE_HEADER,
      LT_RETURN           LIKE TABLE OF BAPIRET2,
      LS_RETURN           LIKE BAPIRET2,
      LV_INVOICEDOCNUMBER LIKE BAPI_INCINV_FLD-INV_DOC_NO.

DATA:LT_TAXDATA         TYPE TABLE OF BAPI_INCINV_CREATE_TAX.
DATA:LS_TAXDATA         TYPE BAPI_INCINV_CREATE_TAX.
DATA:LT_ITEMDATA        TYPE TABLE OF BAPI_INCINV_CREATE_ITEM.
DATA:LS_ITEMDATA        TYPE BAPI_INCINV_CREATE_ITEM.
DATA:LT_MATERIALDATA    LIKE TABLE OF BAPI_INCINV_CREATE_MATERIAL.
DATA:LS_MATERIALDATA    LIKE BAPI_INCINV_CREATE_MATERIAL.
DATA:LT_GLACC           LIKE TABLE OF BAPI_INCINV_CREATE_GL_ACCOUNT.
DATA:LS_GLACC           LIKE BAPI_INCINV_CREATE_GL_ACCOUNT.
DATA:LV_ITEM            TYPE RBLGP.
DATA:LV_GROSS           TYPE BAPI_RMWWR.
"Screen"
PARAMETERS P_MATNR  TYPE  MATNR DEFAULT 'V700000526'.
PARAMETERS P_AMOUNT TYPE  BAPIWRBTR DEFAULT '9'  .
PARAMETERS P_BWKEY  TYPE  BWKEY DEFAULT '9110' .
PARAMETERS P_UOM    TYPE  MEINS DEFAULT  'EA'.
PARAMETERS P_MENGE  TYPE  MENGE_D DEFAULT '1'.
PARAMETERS P_TAX    TYPE  MWSKZ_MRM DEFAULT 'J1'.
PARAMETERS P_CA_TAX AS CHECKBOX DEFAULT 'X'."自动计算税费"

LS_MATERIALDATA-INVOICE_DOC_ITEM = 1.
LS_MATERIALDATA-MATERIAL = P_MATNR.
LS_MATERIALDATA-DB_CR_IND = 'H'.
LS_MATERIALDATA-ITEM_AMOUNT = P_AMOUNT.
LS_MATERIALDATA-QUANTITY = P_MENGE.
LS_MATERIALDATA-TAX_CODE = P_TAX.
LS_MATERIALDATA-BASE_UOM = P_UOM.
LS_MATERIALDATA-VAL_AREA = P_BWKEY.
APPEND LS_MATERIALDATA TO LT_MATERIALDATA.
LV_GROSS = LV_GROSS + P_AMOUNT + P_AMOUNT  * 17 / 100.
" Header "
CLEAR: LS_HEADERDATA.
LS_HEADERDATA-INVOICE_IND  = 'X'. "贷项凭证"
LS_HEADERDATA-GROSS_AMOUNT = LV_GROSS.
LS_HEADERDATA-BLINE_DATE   = SY-DATUM.
LS_HEADERDATA-DIFF_INV     = 'S0021'.
LS_HEADERDATA-REF_DOC_NO   = '4690000030'.
LS_HEADERDATA-DOC_DATE     = SY-DATUM.
LS_HEADERDATA-PSTNG_DATE   = SY-DATUM.
LS_HEADERDATA-COMP_CODE    = '9110'..
LS_HEADERDATA-CURRENCY     = 'CNY'.
LS_HEADERDATA-CURRENCY_ISO = 'CNY'.
LS_HEADERDATA-CALC_TAX_IND = 'X'.
LS_HEADERDATA-PMNTTRMS     = '0001'.
LS_HEADERDATA-ITEM_TEXT    = 'text'.
LS_HEADERDATA-GROSS_AMOUNT = LV_GROSS.

IF P_CA_TAX IS INITIAL.
  LS_HEADERDATA-CALC_TAX_IND = ' '.
  CLEAR LS_TAXDATA.
  LS_TAXDATA-TAX_CODE = 'J1'.
  LS_TAXDATA-TAX_AMOUNT = P_AMOUNT  * 17 / 100."默认17%"
  LS_TAXDATA-ITEMNO_TAX = 1.
  APPEND LS_TAXDATA TO LT_TAXDATA.
ENDIF.

CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'
  EXPORTING
    HEADERDATA       = LS_HEADERDATA
  IMPORTING
    INVOICEDOCNUMBER = LV_INVOICEDOCNUMBER
  TABLES
    ITEMDATA         = LT_ITEMDATA
    MATERIALDATA     = LT_MATERIALDATA
    TAXDATA          = LT_TAXDATA
    RETURN           = LT_RETURN.
IF d_docno IS INITIAL.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDIF.
  WRITE LV_INVOICEDOCNUMBER.