转载自：http://blog.csdn.net/zhongguomao/article/details/31746325
MD61
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[].
MD62
*&---------------------------------------------------------------------* *& 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[].
MD63
*&---------------------------------------------------------------------* *& 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.