REPORT  ZMM_ZABALANS_WRITEOFF                   .

TABLES: RESB.

DATA: ZRESB LIKE RESB OCCURS 0 WITH HEADER LINE.

DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF GMHEAD.
        INCLUDE STRUCTURE BAPI2017_GM_HEAD_01.
DATA: END OF GMHEAD.

DATA: BEGIN OF GMCODE.
        INCLUDE STRUCTURE BAPI2017_GM_CODE.
DATA: END OF GMCODE.


DATA: BEGIN OF MTHEAD.
        INCLUDE STRUCTURE BAPI2017_GM_HEAD_RET.
DATA: END OF MTHEAD.

DATA: BEGIN OF ITAB OCCURS 100.
        INCLUDE STRUCTURE BAPI2017_GM_ITEM_CREATE.
DATA: END OF ITAB.

DATA: BEGIN OF ERRMSG OCCURS 10.
        INCLUDE STRUCTURE BAPIRET2.
DATA: END OF ERRMSG.

DATA: WMENGE LIKE ISEG-MENGE,
      ERRFLAG.


DATA: BEGIN OF BDCDATA OCCURS 0.
        INCLUDE STRUCTURE BDCDATA.

DATA: END OF BDCDATA.
DATA:  RETURN_CODE LIKE SY-SUBRC,
       TTT1(10),
       TTT2(10),
       SS(13),
       SSS(15).


START-OF-SELECTION.

* Выберем все позиции документа, у которых дата окончания срока эксплуатации равна текущей дате

  SELECT * FROM RESB INTO TABLE ZRESB
   WHERE BDTER = SY-DATUM.

  REFRESH MESSTAB.

  GMHEAD-PSTNG_DATE = SY-DATUM.
  GMHEAD-DOC_DATE = SY-DATUM.
  GMHEAD-PR_UNAME = SY-UNAME.
  GMHEAD-HEADER_TXT = 'Заголовок'.

  GMCODE-GM_CODE = '03'.                                    "03 - MB1A

* заполним данные
  LOOP AT ZRESB.

    ITAB-MOVE_TYPE = '959'.

    ITAB-MVT_IND = ' '.
    ITAB-PLANT = ZRESB-WERKS.
    ITAB-MATERIAL = ZRESB-MATNR.
    ITAB-ENTRY_QNT = ZRESB-BDMNG.
    ITAB-ENTRY_UOM = ZRESB-MEINS.
    ITAB-BATCH = '*'.
    ITAB-STGE_LOC = ZRESB-LGORT.


    ITAB-RESERV_NO  = ZRESB-RSNUM.
    ITAB-RES_ITEM  = ZRESB-RSPOS.
    ITAB-RES_TYPE = ZRESB-RSART.

    APPEND ITAB.

  ENDLOOP.

*запустим BAPI

  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER             = GMHEAD
      GOODSMVT_CODE               = GMCODE
*   TESTRUN                     = ' '
* IMPORTING
*      GOODSMVT_HEADRET            = MTHEAD
*   MATERIALDOCUMENT            =
*   MATDOCUMENTYEAR             =
    TABLES
      GOODSMVT_ITEM               = ITAB
*   GOODSMVT_SERIALNUMBER       =
      RETURN                      = ERRMSG.

  CLEAR ERRFLAG.
  LOOP AT ERRMSG.
    IF ERRMSG-TYPE EQ 'E'.
      WRITE:/'Ошибка в функции', ERRMSG-MESSAGE.
      ERRFLAG = 'X'.
    ELSE.
      WRITE:/ ERRMSG-MESSAGE.
    ENDIF.
  ENDLOOP.

  IF ERRFLAG IS INITIAL.
    COMMIT WORK AND WAIT.
    IF SY-SUBRC NE 0.
      WRITE:/ 'Ошибка обновления'.
      EXIT.
    ELSE.
      WRITE:/ MTHEAD-MAT_DOC, MTHEAD-DOC_YEAR.
    ENDIF.
  ENDIF.