采购订单收货接口代码

*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_HEAD) TYPE  ZSMM_0007
*"  EXPORTING
*"     VALUE(E_MESG) TYPE  ZSMM_0009
*"  TABLES
*"      T_ITEM STRUCTURE  ZSMM_0008
*"----------------------------------------------------------------------
*&程序描述/PROGRAM DES.         : 采购订单收货接口
*&                                接收数据后存自建表
*&申请日期/DATE OF APP          : 2018-01-01
*&作者/AUTHOR                   : XIAOAMAN
*&完成日期/COMPLETION DATE      : 2018-01-01

*BAPI 相关定义
  DATA: LS_HEADER  TYPE                   BAPI2017_GM_HEAD_01,
        LS_HEADER2 TYPE                   BAPI2017_GM_HEAD_01,
        LV_CODE    TYPE                   BAPI2017_GM_CODE,
        LS_HEADRET TYPE                   BAPI2017_GM_HEAD_RET,
        LT_ITEM    TYPE STANDARD TABLE OF BAPI2017_GM_ITEM_CREATE,
        LT_ITEM2   TYPE STANDARD TABLE OF BAPI2017_GM_ITEM_CREATE,
        LS_ITEM    TYPE                   BAPI2017_GM_ITEM_CREATE,
        LS_ITEMA   TYPE                   BAPI2017_GM_ITEM_CREATE ,
        LS_ITEM1   TYPE                   BAPI2017_GM_ITEM_CREATE,
        LS_NM      TYPE                   BAPI2017_GM_ITEM_CREATE,
        LT_RETURN  TYPE STANDARD TABLE OF BAPIRET2,
        LS_RETURN  TYPE                   BAPIRET2.
*  DATA:gc_bukrs TYPE ztpp0036-bukrs.

  "---日志表
  DATA: LT_002 TYPE TABLE OF ZTLOG002,
        LS_002 TYPE          ZTLOG002.
  TABLES:ZTMM0204.
  DATA: BEGIN OF LT_EKPO OCCURS 0.
  DATA: EBELN TYPE EKKO-EBELN, "采购凭证
        EBELP TYPE EKPO-EBELP, "项目
        BSART TYPE EKKO-BSART, "凭证类型
        LIFNR TYPE EKKO-LIFNR, "供应商
        MENGE TYPE EKPO-MENGE, "订单数量
        MEINS TYPE EKPO-MEINS,
        UMREZ TYPE EKPO-UMREZ,
        UMREN TYPE EKPO-UMREN,
        PSTYP TYPE EKPO-PSTYP,
        MATNR TYPE EKPO-MATNR,
        WERKS TYPE EKPO-WERKS,
        XCHAR TYPE MARC-XCHAR.
  DATA: END OF LT_EKPO.

  DATA: BEGIN OF LT_MDSB OCCURS 0.
  DATA:
    RSNUM TYPE MDSB-RSNUM, "预留号
    RSPOS TYPE MDSB-RSPOS, "预留行
    EBELN TYPE MDSB-EBELN, "采购订单
    EBELP TYPE MDSB-EBELP, "行项目
    MATNR TYPE MDSB-MATNR, "物料
    BDMNG TYPE MDSB-BDMNG, "组件总数量
    ESMNG TYPE MDSB-ESMNG, "每个订单计量单位的使用数量
    MEINS TYPE MDSB-MEINS,
    WERKS TYPE MDSB-WERKS.
  DATA: END OF LT_MDSB.
  DATA: BEGIN OF LT_MSLB OCCURS 0.
  DATA: MATNR TYPE MSLB-MATNR,"物料
        WERKS TYPE MSLB-WERKS,"工厂
        CHARG TYPE MSLB-CHARG,"批次
        SOBKZ TYPE MSLB-SOBKZ,"key
        LIFNR TYPE MSLB-LIFNR,"供应商
        LBLAB TYPE MSLB-LBLAB,"非限制数量
*begin of add by pengman 20210526
        ALPGR TYPE MDSB-ALPGR.  "替代组
*end of add by pengman 20210526
  DATA: END OF LT_MSLB.
*begin of add by pengman 20210611
  DATA:LV_FLAGN TYPE C.
*end of add by pengman 20210611
  DATA:BEGIN OF LT_MARC OCCURS 0,
         MATNR LIKE MARC-MATNR,
         WERKS LIKE MARC-WERKS,
         XCHAR LIKE MARC-XCHAR,
       END OF LT_MARC.

  TYPES:BEGIN OF TYP_MSEG,
          MBLNR TYPE MSEG-MBLNR,
          MJAHR TYPE MSEG-MJAHR,
          ZEILE TYPE MSEG-ZEILE,
          BWART TYPE MSEG-BWART,
          MATNR TYPE MSEG-MATNR,
          WERKS TYPE MSEG-WERKS,
          CHARG TYPE MSEG-CHARG,
          MENGE TYPE MSEG-MENGE,
        END OF TYP_MSEG.
  TYPES:BEGIN OF TYP_EKBE,
          EBELN TYPE EKBE-EBELN,
          EBELP TYPE EKBE-EBELP,
          ZEKKN TYPE EKBE-ZEKKN,
          VGABE TYPE EKBE-VGABE,
          GJAHR TYPE EKBE-GJAHR,
          BELNR TYPE EKBE-BELNR,
          BUZEI TYPE EKBE-BUZEI,
          BEWTP TYPE EKBE-BEWTP,
          BWART TYPE EKBE-BWART,
          MENGE TYPE EKBE-MENGE,
          LFBNR TYPE EKBE-LFBNR,
          LFPOS TYPE EKBE-LFPOS,
          CHARG TYPE EKBE-CHARG,
        END OF TYP_EKBE,

        BEGIN OF GTY_ITEM,
          ZFLAG   TYPE C,
          EBELN   TYPE ZSMM_0008-EBELN,
          EBELP   TYPE ZSMM_0008-EBELP,
          MATNR   TYPE ZSMM_0008-MATNR,
          WERKS   TYPE ZSMM_0008-WERKS,
          LGORT   TYPE ZSMM_0008-LGORT,
          MENGE   TYPE ZSMM_0008-MENGE,
          MEINS   TYPE ZSMM_0008-MEINS,
          INSMK   TYPE ZSMM_0008-INSMK,
          CHARG   TYPE ZSMM_0008-CHARG,
          HSDAT   TYPE ZSMM_0008-HSDAT,
          VFDAT   TYPE ZSMM_0008-VFDAT,
          LICHA   TYPE ZSMM_0008-LICHA,
          BWART   TYPE ZSMM_0008-BWART,
          DO_NO   TYPE ZSMM_0008-DO_NO,
          DO_ITEM TYPE ZSMM_0008-DO_ITEM,
          SGTXT01 TYPE ZSMM_0008-SGTXT01,"新增特采业务NG备注字段    YANGSH 20210331
        END OF GTY_ITEM.

  DATA LT_TITEM TYPE TABLE OF GTY_ITEM.
  DATA LS_TITEM TYPE GTY_ITEM.

  DATA:IT_MSEG TYPE STANDARD TABLE OF TYP_MSEG,
       IS_MSEG TYPE                   TYP_MSEG.
  DATA:IT_EKBE  TYPE STANDARD TABLE OF TYP_EKBE,
       IS_EKBE  TYPE                   TYP_EKBE,
       IS_EKBE1 TYPE                   TYP_EKBE.
  DATA:LS_EKPO LIKE LT_EKPO.
  DATA:LS_MSLB LIKE LT_MSLB.
  DATA : LV_PARENT_ID TYPE MB_PARENT_ID.
  DATA:LV_TYPE.
  DATA LV_HEJI TYPE MSEG-MENGE.
  DATA:GC_MENGE TYPE MSEG-MENGE,
       GC_TOTAL TYPE MSEG-MENGE,
       GG_TOTAL TYPE MSEG-MENGE.
  DATA:GC_DATE TYPE SY-DATUM.
  DATA:IS_ITEM TYPE ZSMM_0008.

  DATA:BEGIN OF LT_MBEW OCCURS 0,
         MATNR LIKE MBEW-MATNR,
         BWTAR LIKE MBEW-BWTAR,
       END OF LT_MBEW.

  DATA:BEGIN OF LT_MARV OCCURS 0,
         BUKRS LIKE MARV-BUKRS,
         LFGJA LIKE MARV-LFGJA,
         LFMON LIKE MARV-LFMON,
         OUTDT TYPE D,
         OUTDZ TYPE D,
       END OF LT_MARV.

  DATA: LV_BUKRS TYPE EKKO-BUKRS,
        LV_RQ    TYPE D,
        LV_MESG  TYPE C,
        LV_MON   TYPE MARV-LFMON,
        LV_GJA   TYPE MARV-LFGJA,
        LV_NY    TYPE MARV-LFGJA,
        LV_OUT   TYPE MARV-LFMON,
        LV_SL    TYPE MSEG-MENGE,
        LV_BSART TYPE EKKO-BSART."采购订单类型

  DATA LV_EKKN TYPE EKKN-AUFNR.
  DATA LV_NUM TYPE I.
  DATA LV_NUM2 TYPE STRING.
  DATA:LV_WHERE TYPE STRING.
  DATA LS_ZTMM0077 TYPE ZTMM0077.
  DATA LT_ZTMM0077 TYPE TABLE OF ZTMM0077.
  DATA: LT_REQUEST           TYPE TABLE OF BAPIDELICIOUSREQUEST,
        LS_REQUEST           TYPE          BAPIDELICIOUSREQUEST,
        LT_CREATEDITEMS      TYPE TABLE OF BAPIDELICIOUSCREATEDITEMS,
        LS_CREATEDITEMS      TYPE          BAPIDELICIOUSCREATEDITEMS,
        LT_RETURN_EXEC       TYPE TABLE OF BAPIRET2,
        LS_RETURN_EXEC       TYPE          BAPIRET2,
        LT_GOODSMVT_HEADRET  TYPE TABLE OF BAPI2017_GM_HEAD_RET,
        LS_GOODSMVT_HEADRET  TYPE          BAPI2017_GM_HEAD_RET,
        LT_RETURN_CANCEL     TYPE TABLE OF BAPIRET2,
        LS_RETURN_CANCEL     TYPE          BAPIRET2,
        LS_HEADER_DATA       TYPE          BAPIOBDLVHDRCON,
        LS_HEADER_CONTROL    TYPE          BAPIOBDLVHDRCTRLCON,
        LT_RETURN_DEC        TYPE TABLE OF BAPIRET2,
        LS_RETURN_DEC        TYPE          BAPIRET2,
        LT_HEADER_DEADLINES  TYPE TABLE OF BAPIDLVDEADLN,
        LS_HEADER_DEADLINES  TYPE          BAPIDLVDEADLN,
        LS_HEADER_DATA_CH    TYPE          BAPIOBDLVHDRCHG,
        LS_HEADER_CONTROL_CH TYPE          BAPIOBDLVHDRCTRLCHG,
        LT_ITEM_DATA_CH      TYPE TABLE OF BAPIOBDLVITEMCHG,
        LS_ITEM_DATA_CH      TYPE          BAPIOBDLVITEMCHG,
        LT_ITEM_CONTROL      TYPE TABLE OF BAPIOBDLVITEMCTRLCHG,
        LS_ITEM_CONTROL      TYPE          BAPIOBDLVITEMCTRLCHG,
        LV_DELIVERY_CH       TYPE          BAPIOBDLVHDRCHG-DELIV_NUMB,
        LT_RETURN_CH         TYPE TABLE OF BAPIRET2,
        LS_RETURN_CH         TYPE          BAPIRET2,
        LT_LIPS              TYPE TABLE OF LIPS,
        LS_LIPS              TYPE          LIPS,
        LT_ZTMM0084          TYPE TABLE OF ZTMM0084,
        LS_ZTMM0084          TYPE          ZTMM0084,
        LS_STOCK_TRANS_ITEMS TYPE          BAPIDLVREFTOSTO,
        LT_STOCK_TRANS_ITEMS TYPE TABLE OF BAPIDLVREFTOSTO,
        LV_DELIVERY          TYPE          BAPISHPDELIVNUMB-DELIV_NUMB,
        LV_NUM_DELIVERIES    TYPE          BAPIDLVCREATEHEADER-NUM_DELIVERIES,
        LV_SHIP_POINT        TYPE          BAPIDLVCREATEHEADER-SHIP_POINT,
        LT_RETURN_STO        TYPE TABLE OF BAPIRET2,
        LS_RETURN_STO        TYPE          BAPIRET2,
        LV_DUE_DATE          TYPE          BAPIDLVCREATEHEADER-DUE_DATE,
        LS_VBKOK_WA          TYPE          VBKOK,
        LT_VBPOK_TAB         TYPE TABLE OF VBPOK,
        LS_VBPOK_TAB         TYPE          VBPOK,
        LT_EKPOJC            TYPE TABLE OF EKPO,
        LS_EKPOJC            TYPE          EKPO,
        LV_ZNUM(3)           TYPE          C.
  DATA LT_ITEM_DATA_SPL TYPE TABLE OF /SPE/BAPIOBDLVITEMCHG.
  DATA LS_ITEM_DATA_SPL TYPE /SPE/BAPIOBDLVITEMCHG.

  DATA LT_BDCDATA TYPE TABLE OF BDCDATA.
  DATA LS_BDCDATA TYPE BDCDATA.
  DATA:MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
  DATA LT_ZTMM0087 TYPE TABLE OF ZTMM0087.
  DATA LS_ZTMM0087 TYPE ZTMM0087.
  DATA LT_T006 TYPE TABLE OF T006.
  DATA LS_T006 TYPE T006.

  DATA:LT_PO05 LIKE ZTMMPO05 OCCURS 0 WITH HEADER LINE,
       LT_PP04 LIKE ZTMMPP04 OCCURS 0 WITH HEADER LINE.

  DATA:LT_EKKO_A LIKE EKKO OCCURS 0 WITH HEADER LINE.
  DATA:LT_EKKO_B LIKE EKKO OCCURS 0 WITH HEADER LINE.
  DATA:LT_MARC_A LIKE MARC OCCURS 0 WITH HEADER LINE.
  DATA:LV_MESG_A TYPE STRING.
  DATA:LT_ZTMM0107 TYPE TABLE OF ZTMM0107.
  DATA GV_FLAG TYPE C.
  DATA LT_MSEGJ TYPE TABLE OF MSEG.
  DATA LS_MSEGJ TYPE MSEG.
  DATA TECHN_CONTROL LIKE BAPIDLVCONTROL. "TECHN_CONTROL.
  DATA LV_CHARG(10) TYPE C.
  DATA LT_MESG TYPE TABLE OF MESG.
  DATA LT_MSEG TYPE TABLE OF MSEG.
  DATA LS_MSEG TYPE MSEG.

  DATA:LV_ABD TYPE EKKO-EBELN.

****抓取该订单行101与102的物料凭证MSEG-MBLNR凭证行ZEILE与参考凭证LFBNR参考凭证行SMBLN
  DATA:BEGIN OF ITAB3 OCCURS 0,  " 
         EBELN LIKE MSEG-EBELN,   "采购订单
         MJAHR LIKE MSEG-MJAHR,   "会计年度
         EBELP LIKE MSEG-EBELP,   "采购订单项目
         MBLNR LIKE MSEG-MBLNR, "物料凭证编号
         ZEILE LIKE MSEG-ZEILE, "物料凭证中的项目
         LFBNR LIKE MSEG-LFBNR, "参考凭证的凭证号
         LFPOS LIKE MSEG-LFPOS, "参考凭证项目
         BWART LIKE MSEG-BWART, "移动类型
         MENGE LIKE MSEG-MENGE,
         MATNR LIKE MSEG-MATNR,  "物料字段 
         CHARG LIKE MSEG-CHARG,  "pici 
         ERFMG LIKE MSEG-ERFMG,  "数量 
         ERFME LIKE MSEG-ERFME,  "数量 
       END OF ITAB3.

  DATA: IT_STPOX  TYPE STANDARD TABLE OF STPOX,
        IS_STPOX  TYPE                   STPOX,
        IS_CSTMAT TYPE                   CSTMAT,
        LV_LAST   LIKE                   MSEG-MENGE ,
        LV_TOTAL  LIKE                   MSEG-MENGE.
  DATA: BEGIN OF LT_TDZ OCCURS 0,
          EBELN LIKE EKPO-EBELN,   "采购订单
          EBELP LIKE