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.