【转载】MIR7 发票预制 BAPI_INCOMINGINVOICE_PARK

引自：http://blog.youkuaiyun.com/champaignwolf/article/details/51422329

需要根据实际情况进行调整。

FUNCTION zincominginvoice_park.

*"----------------------------------------------------------------------
*"*"Local interface:
*"  EXPORTING
*"     VALUE(CODE) TYPE  CHAR01
*"     VALUE(MESSAGE) TYPE  CHAR200
*"  TABLES
*"      INPUT STRUCTURE  ZFC_INCOMINGINVOICE_PARK_INPUT OPTIONAL
*"----------------------------------------------------------------------

  DATA: vp_eind(1),
        ls_headerdata       LIKE bapi_incinv_create_header,
        lt_itemdata         LIKE TABLE OF bapi_incinv_create_item,
        ls_itemdata         LIKE bapi_incinv_create_item,
        lt_materialdata     LIKE TABLE OF bapi_incinv_create_material,
        ls_materialdata     LIKE bapi_incinv_create_material,
        lt_taxdata          LIKE TABLE OF bapi_incinv_create_tax,
        ls_taxdata          LIKE bapi_incinv_create_tax,
        lt_return           LIKE TABLE OF bapiret2,
        ls_return           LIKE bapiret2,
        lv_invoicedocnumber LIKE bapi_incinv_fld-inv_doc_no,
        lv_fiscalyear       LIKE bapi_incinv_fld-fisc_year.

  DATA:lv_mwskz LIKE ekpo-mwskz.
  DATA:lv_rblgp TYPE rblgp.
*1/3 invoice_ind='X' db_cr_ind='S' (抬头),  2/4 invoice_ind='' db_cr_ind='H'  (外部物料相关项目)
*1/2 de_cre_ind =''   ,  3/4 de_cre_ind='X'   (po采购订单相关项目)


* BAPI赋值
  CLEAR input.
  READ TABLE input INDEX 1.
  IF sy-subrc EQ 0.
    ls_headerdata-invoice_ind  = 'X'." sp_head-xrech.    "发票标志
*  ls_headerdata-doc_type     = 'RE'."sp_head-blart.
    ls_headerdata-doc_date     = sy-datum."sp_head-bldat.
    ls_headerdata-pstng_date   = sy-datum. "sp_head-budat.
    ls_headerdata-bline_date   = sy-datum. "sp_head-zfbdt.    "基线日期/付款计算的起始日期

    ls_headerdata-comp_code    = '6100'."sp_head-bukrs.
    SELECT SINGLE
           waers
           INTO ls_headerdata-currency
           FROM ekko
           WHERE ebeln = input-ebeln.

*    ls_headerdata-gross_amount = '24'."sp_head-rmwwr.    "总金额
*  ls_headerdata-del_costs    = sp_head-beznk.    "未计划的交货费
*  ls_headerdata-pmnttrms     = sp_head-zterm.    "付款条件
*  ls_headerdata-alloc_nmbr   = sp_head-zuonr.    "分配编号/外部发票号码
*  ls_headerdata-diff_inv     = sp_head-lifnr.    "出票方/供应商
*  ls_headerdata-ref_doc_no   = sp_head-xblnr.
    ls_headerdata-header_txt   = input-bktxt."'123'."sp_head-bktxt.
    ls_headerdata-item_text    = input-sgtxt."'456'."sp_head-sgtxt.
  ENDIF.


  CLEAR lv_rblgp.
  LOOP AT input.
    lv_rblgp = lv_rblgp + 1.
    CLEAR lv_mwskz.
    SELECT SINGLE
           mwskz
           meins
           INTO (lv_mwskz,ls_itemdata-po_unit)
           FROM ekpo
           WHERE ebeln = input-ebeln
             AND ebelp = input-ebelp.

    ls_headerdata-gross_amount = ls_headerdata-gross_amount + input-wrbtr.

    ls_itemdata-invoice_doc_item = lv_rblgp."ls_poitem-buzei.   "发票行项目号
    ls_itemdata-po_number        = input-ebeln."'4500038014'."ls_poitem-ebeln.
    ls_itemdata-po_item          = input-ebelp."'10'."ls_poitem-ebelp.

    SELECT SINGLE
           belnr
           gjahr
           buzei
           INTO (ls_itemdata-ref_doc,ls_itemdata-ref_doc_year,ls_itemdata-ref_doc_it  )
           FROM ekbe
           WHERE ebeln = input-ebeln
             AND ebelp = input-ebelp
             AND belnr = input-mblnr.
*    ls_itemdata-ref_doc          = '5000188866'."ls_poitem-lfbnr.
*    ls_itemdata-ref_doc_year     = '2016'."ls_poitem-lfgja.
*    ls_itemdata-ref_doc_it       = '1'."ls_poitem-lfpos.

    ls_itemdata-item_amount      = input-wrbtr."'24'."ls_poitem-wrbtr.
    ls_itemdata-quantity         = input-menge."'2'."ls_poitem-menge.
*    ls_itemdata-po_unit          = 'EA'."ls_poitem-meins.
    ls_itemdata-tax_code         = lv_mwskz."ls_poitem-mwskz.

    APPEND ls_itemdata TO lt_itemdata.
    CLEAR: ls_itemdata.



    "  LOOP AT tp_baitem INTO ls_baitem.
    ls_materialdata-invoice_doc_item = lv_rblgp."ls_baitem-buzei.
    ls_materialdata-material         = input-matnr."'VBJHH05000000000'."ls_baitem-matnr.
    ls_materialdata-val_area         = '6100'."ls_baitem-bwkey.    "评估范围/工厂
    ls_materialdata-valuation_type   = '6100'."ls_baitem-bwtar.    "评估类型
    ls_materialdata-db_cr_ind        = 'S'."ls_baitem-shkzg.    "借方/贷方标识
    ls_materialdata-item_amount      = '0'."ls_baitem-wrbtr.
    ls_materialdata-quantity         = input-menge."ls_baitem-menge.
    SELECT SINGLE
           meins
           INTO ls_materialdata-base_uom
           FROM mara
           WHERE matnr = input-matnr.
*    ls_materialdata-base_uom         = 'EA'."ls_baitem-meins.
    ls_materialdata-tax_code         = lv_mwskz."ls_baitem-mwskz.
    APPEND ls_materialdata TO lt_materialdata.
    CLEAR: ls_materialdata.



    ls_taxdata-tax_code   = lv_mwskz."ls_taitem-mwskz.
    "    ls_taxdata-tax_amount = ''."ls_taitem-wrbtr.
    APPEND ls_taxdata TO lt_taxdata.
    CLEAR: ls_taxdata.
  ENDLOOP.


  CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
    EXPORTING
      headerdata          = ls_headerdata
*     ADDRESSDATA         =
    IMPORTING
      invoicedocnumber    = lv_invoicedocnumber
      fiscalyear          = lv_fiscalyear
    TABLES
      itemdata            = lt_itemdata
*     ACCOUNTINGDATA      =
*     GLACCOUNTDATA       =
      materialdata        = lt_materialdata
      taxdata             = lt_taxdata
*     WITHTAXDATA         =
*     VENDORITEMSPLITDATA =
      return              = lt_return.

  IF lv_invoicedocnumber IS INITIAL OR lv_fiscalyear IS INITIAL.
    vp_eind = 'X'.
  ENDIF.


  IF vp_eind = 'X'.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

    code = '1'.
    LOOP AT lt_return INTO ls_return WHERE type = 'E'.
      IF message IS INITIAL.
        message = ls_return-message.
      ELSE.
        CONCATENATE message ';' ls_return-message INTO message.
      ENDIF.

      CONCATENATE '预制发票失败：' message INTO message.
    ENDLOOP.


  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
    code = '0'.
    CONCATENATE '预制发票成功，发票号：' lv_invoicedocnumber '发票年度：' lv_fiscalyear INTO message.
  ENDIF.



ENDFUNCTION.