冲销凭证

  LOOP AT IT_TAB INTO ST_TAB  WHERE MARK = 'X'.

    CALL FUNCTION 'CALL_FB08'
      EXPORTING
        I_BUKRS = 'WY'
        I_BELNR = ST_TAB-BELNR
        I_GJAHR = SY-DATUM+(4)
        I_STGRD = '03'.
    IF SY-SUBRC <> 0.
      MESSAGE '凭证冲销失败' TYPE 'S'.
    ELSE.
      MESSAGE '凭证冲销成功' TYPE 'S'.
      ST_TAB-BELNR = ''.
    ENDIF.

    UPDATE ZFIR018
       SET BELNR = ''
     WHERE MATNR = ST_TAB-MATNR
       AND GJAHR = P_GJAHR
       AND MONAT = P_MONAT.

    MODIFY IT_TAB FROM ST_TAB.

  ENDLOOP.