ABAP-修改月计划

DATA: ls_schedule TYPE bapisshdin,
        lt_schedule TYPE TABLE OF bapisshdin,
        ls_return   TYPE bapiret2,
        lt_return   TYPE TABLE OF bapiret2,
        lv_reqno    TYPE bapisitemr-req_number.

      ls_schedule-date_type = '3'.   "期间类型 PBED-ENTLI
      ls_schedule-req_date  = '20260101'. 
      ls_schedule-req_qty   = '100'.
      ls_schedule-unit = 'TO'. "MARA主数据的基本单位否则失败
      APPEND ls_schedule TO lt_schedule.
      lv_reqno = '202601'.
      CALL FUNCTION 'BAPI_REQUIREMENTS_CHANGE'
          EXPORTING
            material                 = 'matnr'
            plant                    = 'werks'
            requirementstype         = 'VSF' "PBIM-BEDAE
            version                  = '00' "PBIM-VERSB
            reqmtsplannumber         = lv_reqno "PBIM-PBDNR
            vers_activ               = 'X' "PBIM-VERVS
          TABLES
            requirements_schedule_in = lt_schedule
            return                   = lt_return.

        IF sy-subrc = 0.
          CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
            EXPORTING
              wait = 'X'.
        ELSE.
          CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
          LOOP AT lt_return INTO ls_return WHERE type CA 'AEX'.
            CLEAR: ls_return.
          ENDLOOP.
        ENDIF.