RETURN
= LT_RETURN
.
* DATA: GS_HEADERDATA TYPE BAPI_INCINV_CREATE_HEADER,
* GS_ADDITIONALHEADERDATA TYPE BAPI_INCINV_SAVE_HEADER_BACKGR ,
* GT_SELECTDELIVERY TYPE TABLE OF BAPI_INCINV_SELECT_DELIVERY WITH HEADER LINE,
* GT_RETURN TYPE TABLE OF BAPIRET2 WITH HEADER LINE,
* INVOICE TYPE BAPI_INCINV_FLD-INV_DOC_NO,
* INVOICE_YR TYPE BAPI_INCINV_FLD-FISC_YEAR.
*
* DATA:RD_BUKRS TYPE RANGE OF T001-BUKRS.
* DATA:RH_BUKRS LIKE LINE OF RD_BUKRS.
*
DATA :LS_STLMI LIKE GS_STLMI .
*
*
* CLEAR:INVOICE,INVOICE_YR,GS_HEADERDATA,GS_ADDITIONALHEADERDATA,GT_SELECTDELIVERY[],GT_RETURN[],GT_RETURN ,GT_SELECTDELIVERY.
*
* SORT ITAB BY VBELN.
* DELETE ADJACENT DUPLICATES FROM ITAB COMPARING VBELN.
*
* LOOP AT ITAB.
* GT_SELECTDELIVERY-DELIVERY_NOTE = ITAB-VBELN.
* APPEND GT_SELECTDELIVERY.
* ENDLOOP.
* GS_HEADERDATA-DOC_DATE = SY-DATUM.
* GS_HEADERDATA-PSTNG_DATE = SY-DATUM.
* GS_HEADERDATA-BLINE_DATE = SY-DATUM.
* GS_HEADERDATA-REF_DOC_NO = ZITAX-FP.
* GS_HEADERDATA-COMP_CODE = ITAB-VKORG.
* GS_HEADERDATA-CURRENCY_ISO = 'CNY'.
* GS_HEADERDATA-GROSS_AMOUNT = ZITAX-SH.
* GS_HEADERDATA-DEL_COSTS_TAXJ = 20.
* GS_HEADERDATA-J_1BNFTYPE = 'J1'.
*
* GS_ADDITIONALHEADERDATA-ASSIGN_DELIV = 'X'.
* GS_ADDITIONALHEADERDATA-DELIV_POSTING = 'S'.
* GS_ADDITIONALHEADERDATA-SEL_GOODS = 'X'.
* GS_ADDITIONALHEADERDATA-SEL_VENDOR = ITAB-LIFNR.
*
*
*
* CALL FUNCTION 'BAPI_INCOMINGINVOICE_SAVE'
* EXPORTING
* HEADERDATA = GS_HEADERDATA
* ADDITIONALHEADERDATA = GS_ADDITIONALHEADERDATA
* REFDOCCATEGORY = '2'"发票
** ADDRESSDATA =
* IMPORTING
* INVOICEDOCNUMBER = INVOICE
* FISCALYEAR = INVOICE_YR
* TABLES
** SELECTPO =
* SELECTDELIVERY = GT_SELECTDELIVERY
** SELECTBILLLADING =
** SELECTSERVICE =
** SELECTPLANT =
** TAXDATA =
** WITHTAXDATA =
** VENDORITEMSPLITDATA =
* RETURN = GT_RETURN
** EXTENSIONIN =
* .
* DATA: GS_HEADERDATA TYPE BAPI_INCINV_CREATE_HEADER,
* GS_ADDITIONALHEADERDATA TYPE BAPI_INCINV_SAVE_HEADER_BACKGR ,
* GT_SELECTDELIVERY TYPE TABLE OF BAPI_INCINV_SELECT_DELIVERY WITH HEADER LINE,
* GT_RETURN TYPE TABLE OF BAPIRET2 WITH HEADER LINE,
* INVOICE TYPE BAPI_INCINV_FLD-INV_DOC_NO,
* INVOICE_YR TYPE BAPI_INCINV_FLD-FISC_YEAR.
*
* DATA:RD_BUKRS TYPE RANGE OF T001-BUKRS.
* DATA:RH_BUKRS LIKE LINE OF RD_BUKRS.
*
DATA :LS_STLMI LIKE GS_STLMI .
*
*
* CLEAR:INVOICE,INVOICE_YR,GS_HEADERDATA,GS_ADDITIONALHEADERDATA,GT_SELECTDELIVERY[],GT_RETURN[],GT_RETURN ,GT_SELECTDELIVERY.
*
* SORT ITAB BY VBELN.
* DELETE ADJACENT DUPLICATES FROM ITAB COMPARING VBELN.
*
* LOOP AT ITAB.
* GT_SELECTDELIVERY-DELIVERY_NOTE = ITAB-VBELN.
* APPEND GT_SELECTDELIVERY.
* ENDLOOP.
* GS_HEADERDATA-DOC_DATE = SY-DATUM.
* GS_HEADERDATA-PSTNG_DATE = SY-DATUM.
* GS_HEADERDATA-BLINE_DATE = SY-DATUM.
* GS_HEADERDATA-REF_DOC_NO = ZITAX-FP.
* GS_HEADERDATA-COMP_CODE = ITAB-VKORG.
* GS_HEADERDATA-CURRENCY_ISO = 'CNY'.
* GS_HEADERDATA-GROSS_AMOUNT = ZITAX-SH.
* GS_HEADERDATA-DEL_COSTS_TAXJ = 20.
* GS_HEADERDATA-J_1BNFTYPE = 'J1'.
*
* GS_ADDITIONALHEADERDATA-ASSIGN_DELIV = 'X'.
* GS_ADDITIONALHEADERDATA-DELIV_POSTING = 'S'.
* GS_ADDITIONALHEADERDATA-SEL_GOODS = 'X'.
* GS_ADDITIONALHEADERDATA-SEL_VENDOR = ITAB-LIFNR.
*
*
*
* CALL FUNCTION 'BAPI_INCOMINGINVOICE_SAVE'
* EXPORTING
* HEADERDATA = GS_HEADERDATA
* ADDITIONALHEADERDATA = GS_ADDITIONALHEADERDATA
* REFDOCCATEGORY = '2'"发票
** ADDRESSDATA =
* IMPORTING
* INVOICEDOCNUMBER = INVOICE
* FISCALYEAR = INVOICE_YR
* TABLES
** SELECTPO =
* SELECTDELIVERY = GT_SELECTDELIVERY
** SELECTBILLLADING =
** SELECTSERVICE =
** SELECTPLANT =
** TAXDATA =
** WITHTAXDATA =
** VENDORITEMSPLITDATA =
* RETURN = GT_RETURN
** EXTENSIONIN =
* .