BAPI_GOODSMVT_CREATE

Code: Alles auswählen.

  DATA: header      LIKE          BAPI2017_GM_HEAD_01,
        code        LIKE          BAPI2017_GM_CODE,
        lt_item     LIKE TABLE OF BAPI2017_GM_ITEM_CREATE,
        ls_item     LIKE          BAPI2017_GM_ITEM_CREATE,
        lt_return   LIKE TABLE OF BAPIRET2.

  DATA: lv_ktogr    TYPE ktogr.


        header-pstng_date     = sy-datum.
        header-doc_date       = sy-datum.

        code-gm_code = '03'.    "03 = Goods Issue

        LOOP AT lt_import into ls_import.

          Select SINGLE KTOGR
            FROM ANLA INTO lv_ktogr
            WHERE ANLN1 = ls_import-ranl1.

          ls_item-material      = ls_import-matnr.  "material
          ls_item-plant         = '9000'.           "Plant
          ls_item-stge_loc      = '9000'.           "Storage Location
          ls_item-asset_no      = ls_import-ranl1.  "Assetnumber
          ls_item-entry_qnt     = ls_import-menge.  "Quantity
*          ls_item-entry_uom     = 'PC'.
          ls_item-move_type     = '241'.            "Movement type
          ls_item-gl_account    = lv_ktogr.
          ls_item-entry_uom_iso = 'PCE'.            "ISO Code
          ls_item-mvt_ind       = 'W'.              "Movement Indicator
          ls_item-par_compco    = '99'.

          APPEND ls_item TO lt_item.
        ENDLOOP.

  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      goodsmvt_header               = header
      goodsmvt_code                 = code
*     TESTRUN                       = ' '
*     GOODSMVT_REF_EWM              =
*   IMPORTING
*     GOODSMVT_HEADRET              =
*     MATERIALDOCUMENT              =
*     MATDOCUMENTYEAR               =
    TABLES
      goodsmvt_item                 = lt_item
*     GOODSMVT_SERIALNUMBER         =
      return                        = lt_return
*     GOODSMVT_SERV_PART_DATA       =
*     EXTENSIONIN                   =
            .

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait   = 'X'.