BAPI_GOODSMVT_CREATE-(MB1A等收貨)

     FORM GET_PARA_DATA.
       "----1
       CLEAR: LT_HEADER.
       LT_HEADER-PSTNG_DATE = IT_UPDATA-BUDAT.
       LT_HEADER-DOC_DATE   = IT_UPDATA-BLDAT.
       LT_HEADER-HEADER_TXT = IT_UPDATA-BKTXT.
       LT_HEADER-PR_UNAME   = SY-UNAME.
       LT_HEADER-VER_GR_GI_SLIP = '2'.
       "----2
       L_GMCODE = '03'.
       "----3
       CLEAR: LT_ITEM. "LT_ITEM[]
       LT_ITEM-MOVE_TYPE  = IT_UPDATA-BWART.   "Movement Type
       LT_ITEM-PLANT      = IT_UPDATA-WERKS.   "Plant
       LT_ITEM-STGE_LOC   = IT_UPDATA-LGORT.   "Storage Location
       LT_ITEM-COSTCENTER = IT_UPDATA-KOSTL.   "cost center
       LT_ITEM-MATERIAL   = IT_UPDATA-MATNR.   "material
       LT_ITEM-ENTRY_QNT  = IT_UPDATA-ERFMG.   "quantity
       READ TABLE IT_MARA WITH KEY MATNR = IT_UPDATA-MATNR BINARY SEARCH.
       IF SY-SUBRC = 0.
          LT_ITEM-ENTRY_UOM  = IT_MARA-MEINS.   "增加單位
       ENDIF.
       LT_ITEM-IND_PROPOSE_QUANX = 'X'.
       "LT_ITEM-ENTRY_UOM  = ITAB-MEINS.      " UOM
       LT_ITEM-BATCH      = IT_UPDATA-CHARG.  "Batch
       LT_ITEM-PROD_DATE  = IT_UPDATA-HSDAT.  "Date of Manufacture
       APPEND LT_ITEM.
    ENDFORM.

 

===========================================================

 ---BAPI參數填充
           PERFORM GET_PARA_DATA.

 ---執行BAPI上載數據

        CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
        EXPORTING
          GOODSMVT_HEADER     = LT_HEADER
          GOODSMVT_CODE       = L_GMCODE                    "03 - MB1A
          TESTRUN             = P_TEST
        IMPORTING
*         GOODSMVT_HEADRET    =
          MATERIALDOCUMENT    = L_POSTED_DOC_MO
          MATDOCUMENTYEAR     = L_POSTED_YEAR_MO
        TABLES
          GOODSMVT_ITEM       = LT_ITEM
          RETURN              = IT_RETURN.