BAPI FOR MD61,MD62,MD63

REPORT  ZBAPI_MD61.

data: matemp like BAPISITEMR-MATERIAL.  "物料编码

data: req_item like BAPISITEMR.
data: req_data like BAPISSHDIN occurs 0 with header line.
data: RETURN LIKE BAPIRETURN1 OCCURS 0 WITH HEADER LINE.
data: matertemp like BAPISITEMR-MATERIAL.

req_item-material = 'M-ZZM-20'.
req_item-plant = '1000'.
req_item-REQU_TYPE = 'VSE'.
req_item-VERSION = '00'.
req_item-VERS_ACTIV = 'X'.

req_data-DATE_TYPE = 3.
req_data-req_date = '20080821'.
req_data-REQ_QTY = 200.
append req_data.
clear req_data.


CALL FUNCTION 'BAPI_REQUIREMENTS_CREATE'
         EXPORTING
           REQUIREMENTS_ITEM              = req_item
*           REQUIREMENT_PARAM              =
         IMPORTING
          MATERIAL                       = matemp
*           PLANT                          =
*           REQUIREMENTSTYPE               =
*           VERSION                        =
*           REQMTSPLANNUMBER               =
         TABLES
           REQUIREMENTS_SCHEDULE_IN       = REQ_data
*           REQUIREMENTS_CHAR_IN           =
           RETURN                         = RETURN.

if lines( RETURN ) = 0 .
  MESSAGE '计划创建成功' type 'S'.
endif.

clear:req_item,REQ_data,REQ_data[].

 

 

 

 

 

 

 

*&---------------------------------------------------------------------*
*& Report  ZBAPI_MD62
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZBAPI_MD62.
data: req_data like BAPISSHDIN occurs 0 with header line.
data: RETURN LIKE BAPIRETURN1 OCCURS 0 WITH HEADER LINE.



req_data-DATE_TYPE = 1.
req_data-req_date = '20070723'.
req_data-REQ_QTY = 800.
append req_data.
clear req_data.

req_data-DATE_TYPE = 1.
req_data-req_date = '20070823'.
req_data-REQ_QTY = 200.
append req_data.
clear req_data.

CALL FUNCTION 'BAPI_REQUIREMENTS_CHANGE'
  EXPORTING
    MATERIAL                       = 'M-ZZM-20'
    PLANT                          = '1000'
    REQUIREMENTSTYPE               = 'VSE'
    VERSION                        = '00'
    REQMTSPLANNUMBER               = ''
    VERS_ACTIV                     = 'X'
*   REQUIREMENT_PARAM              =
*   MRP_AREA                       =
*   DO_COMMIT                      = 'X'
*    UPDATE_MODE                    = 'X'
   DELETE_OLD                     = 'X'
*   NO_WITHDR                      = ' '
*   MATERIAL_EVG                   =
* IMPORTING
*   REQUIREMENT_ITEM_OUT           =
  TABLES
    REQUIREMENTS_SCHEDULE_IN       = req_data
*   REQUIREMENTS_CHAR_IN           =
    RETURN                         = RETURN
          .

if lines( RETURN ) = 0 .
  MESSAGE '计划修改成功' type 'S'.
endif.

clear:REQ_data,REQ_data[].

 

 

 

 

 

*&---------------------------------------------------------------------*
*& Report  ZBAPI_MD63
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZBAPI_MD63.


data: req_data like BAPISITMEO occurs 0 with header line.
data: RETURN LIKE BAPIRETURN1 OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'BAPI_REQUIREMENTS_GETDETAIL'
  EXPORTING
    MATERIAL               = 'M-ZZM-20'
    PLANT                  = '1000'
    REQUIREMENTSTYPE       = 'VSE'
    VERSION                = '00'
    REQMTSPLANNUMBER       = ''
*   MRP_AREA               =
*   MATERIAL_EVG           =
  TABLES
  REQUIREMENTS_OUT       =  req_data
    RETURN                 = RETURN
          .

BREAK-POINT.