利用函数BAPI_REQUIREMENTS_CREATE开发计划独立需求批导程序

项目中，计划独立需求批导也是项目上线时，用到的程序，下面代码是在某项目中利用函数BAPI_REQUIREMENTS_CREATE计划独立需求批导程序，分享一下，希望对需要的兄弟有帮助。

*&---------------------------------------------------------------------*

*& Report ZPP_CUS_JHXQ

*&

*&---------------------------------------------------------------------*

*& Program Name : ZPP_CUS_JHXQ

*& Description : 计划独立需求批导创建

*& Author :

*& Date Written :

*& Tcode :

*& Note :

*&---------------------------------------------------------------------*

REPORT zpp_cus_jhxq.

INCLUDE <icon>.

TABLES:sscrfields.

TYPES:BEGIN OF ty_up,

"&&-----header------------

pbdnr TYPE am60x-pbdnr,

werks TYPE werks_d,

versb TYPE rm60x-versb, "00"

* datve TYPE rm60x-datve,

* datbe TYPE rm60x-datbe,

* entlu TYPE rm60x-entlu,

datve(10),

datbe(10),

dtype TYPE prgrs, "3"

matnr TYPE matnr,

maktx TYPE maktx,

werks2 TYPE werks_d,

versb2 TYPE rm60x-versb, "00"

vervs TYPE vervs, "X"

date2(10),

plnmg TYPE plnmg,

verid TYPE verid,

text1 TYPE vers_text,

END OF ty_up.

DATA: gt_up TYPE TABLE OF ty_up,

gs_up TYPE ty_up.

DATA gt_up_d TYPE TABLE OF ty_up.

DATA:re_item LIKE bapisitemr,

re_schedule_in LIKE TABLE OF
bapisshdin WITH HEADER LINE,

return LIKE TABLE OF
bapireturn1 WITH HEADER LINE,

re_change LIKE bapisitemr.

DATA: BEGIN OF gs_log,

sno TYPE i,

matnr TYPE matnr,

werks TYPE werks_d,

pbdnr TYPE pbdnr,

msg(50) TYPE c,

END OF gs_log.

DATA:gt_log LIKE TABLE OF gs_log.

DATA:con_but(20) TYPE c.

DATA:v_code TYPE sy-ucomm.

DATA:wwwdata_new LIKE wwwdatatab.

DATA:g_stat. "数据状态

TYPES BEGIN OF ty_up2.

TYPES uniq(40).

INCLUDE TYPE ty_up.

TYPES END OF ty_up2.

DATA:gs_up2 TYPE ty_up2,

gt_up2 TYPE TABLE OF ty_up2.

SELECTION-SCREEN FUNCTION KEY 1.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECTION-SCREEN SKIP.

PARAMETERS: p_file(80).

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS:p_delold AS CHECKBOX.

* p_create RADIOBUTTON GROUP g1 DEFAULT 'X',

* p_change RADIOBUTTON GROUP g1 .

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.

SELECTION-SCREEN: BEGIN OF LINE,

COMMENT 1(20) text-c01.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE,

COMMENT 1(60) text-c02.

SELECTION-SCREEN: END OF LINE.

*SELECTION-SCREEN COMMENT 1(20) text-c02.

*SELECTION-SCREEN COMMENT 1(30) text-c03.

SELECTION-SCREEN END OF BLOCK b3.

INITIALIZATION.

CONCATENATE space space '@49@' '下载EXCEL模板' INTO con_but.

sscrfields-functxt_01 = con_but.

AT SELECTION-SCREEN.

PERFORM screen_check.

PERFORM get_template.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

PERFORM get_excel USING p_file.

START-OF-SELECTION.

PERFORM upload_data.

PERFORM process_data.

* IF p_create = 'X'.

PERFORM creat_req.

* ENDIF.

* IF p_change = 'X'.

* PERFORM change_req.

* ENDIF.

PERFORM output_log.

*&---------------------------------------------------------------------*

*& Form GET_EXCEL

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_P_FILE text

*----------------------------------------------------------------------*

FORM get_excel USING p_file.

DATA: l_filetab TYPE filetable,

l_rc TYPE i.

CLEAR l_filetab.

REFRESH l_filetab.

* Open dialog

CALL METHOD cl_gui_frontend_services=>file_open_dialog

EXPORTING

* WINDOW_TITLE = 'SAP Custom - Open File'

* DEFAULT_EXTENSION =

default_filename = '*.xls'

* FILE_FILTER = '*.xls'

initial_directory = 'd:\'

multiselection = ''

CHANGING

file_table = l_filetab

rc = l_rc

EXCEPTIONS

cntl_error = 1

error_no_gui = 2

not_supported_by_gui = 3

OTHERS = 4.

* Get file path

CHECK l_rc EQ 1.

READ TABLE l_filetab INDEX 1 INTO p_file.

ENDFORM. " GET_EXCEL

*&---------------------------------------------------------------------*

*& Form UPLOAD_DATA

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM upload_data .

DATA: BEGIN OF i_excel OCCURS 0.

INCLUDE STRUCTURE alsmex_tabline.

DATA: END OF i_excel.

DATA: l_answer(1) TYPE c.

DATA: l_column TYPE i.

FIELD-SYMBOLS: <fs>.

DATA: l_pathname LIKE rlgrap-filename.

MOVE p_file TO l_pathname.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = l_pathname

i_begin_col = '1'

i_begin_row = '1'

i_end_col = '99'

i_end_row = '9999'

TABLES

intern = i_excel

EXCEPTIONS

inconsistent_parameters = 1

upload_ole = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

IF i_excel[] IS INITIAL.

CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'

EXPORTING

* DEFAULTOPTION = 'Y'

diagnosetext1 = '没有数据'

* DIAGNOSETEXT2 = ' '

* DIAGNOSETEXT3 = ' '

textline1 = '没有数据'

* TEXTLINE2 = ' '

titel = '错误'

* START_COLUMN = 25

* START_ROW = 6

* CANCEL_DISPLAY = 'X'

IMPORTING

answer = l_answer.

ELSE.

DELETE i_excel WHERE row = '0001'.

SORT i_excel BY row col.

LOOP AT i_excel.

MOVE i_excel-col TO l_column.

ASSIGN COMPONENT l_column OF STRUCTURE gs_up TO <fs>.

MOVE i_excel-value TO <fs>.

AT END OF row.

APPEND gs_up TO gt_up.

CLEAR gs_up.

ENDAT.

ENDLOOP.

ENDIF.

ENDIF.

ENDFORM. " UPLOAD_DATA

*&---------------------------------------------------------------------*

*& Form CREAT_REQ

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM creat_req .

DATA:lt_up TYPE TABLE OF ty_up,

ls_up TYPE ty_up.

DATA:lv_pbdnr TYPE pbdnr.

DATA:ls_pbim TYPE pbim,

ls_pbed TYPE pbed.

DATA:lv_delold.

LOOP AT gt_up2 INTO gs_up2.

* IF gs_up2-dtype = 'D'.

* APPEND gs_up2 TO gt_up2_d.

* DELETE gt_up2.

* CONTINUE.

* ENDIF.

CONDENSE:gs_up2-matnr NO-GAPS,

gs_up2-werks NO-GAPS,

gs_up2-pbdnr NO-GAPS,

gs_up2-datve NO-GAPS.

* CLEAR g_stat.

AT NEW uniq.

g_stat = 'N'. "NEW

ENDAT.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = gs_up2-matnr

IMPORTING

output = gs_up2-matnr.

IF g_stat = 'N'.

CLEAR:ls_pbim,ls_pbed.

SELECT SINGLE * INTO ls_pbim FROM pbim

WHERE matnr = gs_up2-matnr

AND werks = gs_up2-werks

AND bedae = 'BSF'

AND versb = gs_up2-versb

AND pbdnr = gs_up2-pbdnr.

IF ls_pbim IS NOT INITIAL.

g_stat = 'M'.

ENDIF.

ENDIF.

re_item-material = gs_up2-matnr.

re_item-plant = gs_up2-werks.

re_item-version = gs_up2-versb.

re_item-vers_activ = 'X'.

re_item-req_number = gs_up2-pbdnr.

* re_item-requ_type = 'BSF'.

* re_schedule_in-date_type = '3'.

IF gs_up2-dtype = 'M'.

re_schedule_in-date_type = '3'.

ELSEIF gs_up2-dtype = 'D'.

re_schedule_in-date_type = '1'.

ENDIF.

REPLACE ALL OCCURRENCES OF '.' IN gs_up2-datve WITH ''.

REPLACE ALL OCCURRENCES OF '-' IN gs_up2-datve WITH ''.

REPLACE ALL OCCURRENCES OF '/' IN gs_up2-datve WITH ''.

REPLACE ALL OCCURRENCES OF '.' IN gs_up2-date2 WITH ''.

REPLACE ALL OCCURRENCES OF '-' IN gs_up2-date2 WITH ''.

REPLACE ALL OCCURRENCES OF '/' IN gs_up2-date2 WITH ''.

re_schedule_in-req_date = gs_up2-date2.

re_schedule_in-req_qty = gs_up2-plnmg.

re_schedule_in-prod_ves = gs_up2-verid.

APPEND re_schedule_in.

CLEAR re_schedule_in.

IF g_stat = 'N'.

CLEAR lv_pbdnr.

CALL FUNCTION 'BAPI_REQUIREMENTS_CREATE'

EXPORTING

requirements_item = re_item

IMPORTING

* MATERIAL =

* PLANT =

reqmtsplannumber = lv_pbdnr

TABLES

requirements_schedule_in = re_schedule_in

return = return.

IF lv_pbdnr IS NOT INITIAL.

gs_log-matnr = gs_up2-matnr.

gs_log-werks = gs_up2-werks.

gs_log-pbdnr = gs_up2-pbdnr.

gs_log-msg = '计划独立需求创建成功.'.

APPEND gs_log TO gt_log.

CLEAR gs_log.

COMMIT WORK.

g_stat = 'M'. "MODIFY

CLEAR:return,return[],lv_pbdnr,re_item,re_schedule_in[].

CONTINUE.

ELSE.

READ TABLE return WITH KEY type = 'E'.

gs_log-matnr = gs_up2-matnr.

gs_log-werks = gs_up2-werks.

gs_log-msg = return-message.

APPEND gs_log TO gt_log.

CLEAR gs_log.

g_stat = 'E'. "ERROR

ENDIF.

ELSEIF g_stat = 'M'.

CLEAR:ls_pbim,ls_pbed.

SELECT SINGLE * INTO ls_pbim FROM pbim

WHERE matnr = gs_up2-matnr

AND werks = gs_up2-werks

AND bedae = 'BSF'

AND versb = gs_up2-versb

AND pbdnr = gs_up2-pbdnr.

SELECT SINGLE * INTO ls_pbed FROM pbed WHERE bdzei = ls_pbim-bdzei AND pdatu = gs_up2-date2.

IF ls_pbed-plnmg NE 0.

IF p_delold = ''.

gs_log-matnr = gs_up2-matnr.

gs_log-werks = gs_up2-werks.

gs_log-pbdnr = gs_up2-pbdnr.

gs_log-msg = '此日期下计划已存在，不允许覆盖.'.

APPEND gs_log TO gt_log.

CLEAR gs_log.

CLEAR:return,return[],lv_pbdnr,re_item,re_schedule_in[].

CONTINUE.

ENDIF.

ENDIF.

CLEAR re_change.

CALL FUNCTION 'BAPI_REQUIREMENTS_CHANGE'

EXPORTING

material = gs_up2-matnr

plant = gs_up2-werks

requirementstype = space

version = gs_up2-versb

reqmtsplannumber = gs_up2-pbdnr

vers_activ = 'X'

* REQUIREMENT_PARAM =

* MRP_AREA =

* DO_COMMIT = 'X'

* UPDATE_MODE = 'X'

delete_old = ''

* NO_WITHDR = ' '

* MATERIAL_EVG =

IMPORTING

requirement_item_out = re_change

TABLES

requirements_schedule_in = re_schedule_in

* REQUIREMENTS_CHAR_IN =

return = return.

IF re_change IS NOT INITIAL.

gs_log-matnr = gs_up2-matnr.

gs_log-werks = gs_up2-werks.

gs_log-pbdnr = gs_up2-pbdnr.

gs_log-msg = '计划独立需求追加成功.'.

IF p_delold = 'X'.

gs_log-msg = '计划独立需求修改成功.'.

ENDIF.

APPEND gs_log TO gt_log.

CLEAR gs_log.

COMMIT WORK.

ELSE.

READ TABLE return WITH KEY type = 'E'.

gs_log-matnr = gs_up2-matnr.

gs_log-werks = gs_up2-werks.

gs_log-msg = return-message.

APPEND gs_log TO gt_log.

CLEAR gs_log.

ENDIF.

ELSEIF g_stat = 'E'.

gs_log-matnr = gs_up2-matnr.

gs_log-werks = gs_up2-werks.

gs_log-msg = '创建失败'.

APPEND gs_log TO gt_log.

CLEAR gs_log.

CLEAR:return,return[],lv_pbdnr,re_item,re_schedule_in[].

CONTINUE.

ENDIF.

CLEAR:return,return[],lv_pbdnr,re_item,re_schedule_in[].

ENDLOOP.

ENDFORM. " CREAT_REQ

*&---------------------------------------------------------------------*

*& Form OUTPUT_LOG

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM output_log .

DATA:lv_count TYPE i.

LOOP AT gt_log INTO gs_log.

lv_count = lv_count + 1.

gs_log-sno = lv_count.

WRITE:/ gs_log-sno, '物料', gs_log-matnr, '在工厂', gs_log-werks, gs_log-msg.

ENDLOOP.

ENDFORM. " OUTPUT_LOG

*&---------------------------------------------------------------------*

*& Form GET_TEMPLATE

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM get_template .

v_code = sscrfields-ucomm.

CASE v_code.

WHEN 'FC01'.

PERFORM download_excel_template.

ENDCASE.

ENDFORM. " GET_TEMPLATE

*&---------------------------------------------------------------------*

*& Form DOWNLOAD_EXCEL_TEMPLATE

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM download_excel_template .

DATA: rc TYPE sy-subrc,

temp.

wwwdata_new-relid = 'MI'.

wwwdata_new-objid = 'Z_PIR_TEMPLATE'. "SMW0定义的对象名称

*下载模板

CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'

EXPORTING

key = wwwdata_new

destination = 'D:\计划独立需求导入模板.XLS'

IMPORTING

rc = rc

CHANGING

temp = temp.

IF rc NE 0.

MESSAGE '模板下载失败' TYPE 'E'.

ELSE.

MESSAGE '模板下载到D盘根目录成功' TYPE 'S'.

ENDIF.

ENDFORM. " DOWNLOAD_EXCEL_TEMPLATE

*&---------------------------------------------------------------------*

*& Form CHANGE_REQ

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM change_req .

LOOP AT gt_up INTO gs_up.

CONDENSE:gs_up-matnr NO-GAPS,

gs_up-werks NO-GAPS,

gs_up-pbdnr NO-GAPS,

gs_up-datve NO-GAPS.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = gs_up-matnr

IMPORTING

output = gs_up-matnr.

re_item-material = gs_up-matnr.

re_item-plant = gs_up-werks.

re_item-version = '00'.

re_item-vers_activ = 'X'.

re_item-req_number = gs_up-pbdnr.

* re_item-requ_type = 'BSF'.

IF gs_up-dtype = 'M'.

re_schedule_in-date_type = '3'.

ELSEIF gs_up-dtype = 'D'.

re_schedule_in-date_type = '1'.

ENDIF.

REPLACE ALL OCCURRENCES OF '.' IN gs_up-datve WITH ''.

REPLACE ALL OCCURRENCES OF '-' IN gs_up-datve WITH ''.

REPLACE ALL OCCURRENCES OF '/' IN gs_up-datve WITH ''.

REPLACE ALL OCCURRENCES OF '.' IN gs_up-date2 WITH ''.

REPLACE ALL OCCURRENCES OF '-' IN gs_up-date2 WITH ''.

REPLACE ALL OCCURRENCES OF '/' IN gs_up-date2 WITH ''.

re_schedule_in-req_date = gs_up-date2.

re_schedule_in-req_qty = gs_up-plnmg.

re_schedule_in-prod_ves = gs_up-verid.

APPEND re_schedule_in.

CLEAR re_schedule_in.

CALL FUNCTION 'BAPI_REQUIREMENTS_CHANGE'

EXPORTING

material = gs_up-matnr

plant = gs_up-werks

requirementstype = space

version = '00'

reqmtsplannumber = gs_up-pbdnr

vers_activ = 'X'

* REQUIREMENT_PARAM =

* MRP_AREA =

* DO_COMMIT = 'X'

* UPDATE_MODE = 'X'

delete_old = ''

* NO_WITHDR = ' '

* MATERIAL_EVG =

IMPORTING

requirement_item_out = re_change

TABLES

requirements_schedule_in = re_schedule_in

* REQUIREMENTS_CHAR_IN =

return = return.

IF re_change IS NOT INITIAL.

gs_log-matnr = gs_up-matnr.

gs_log-werks = gs_up-werks.

gs_log-pbdnr = gs_up-pbdnr.

gs_log-msg = '计划独立需求修改成功.'.

APPEND gs_log TO gt_log.

CLEAR gs_log.

COMMIT WORK.

ELSE.

READ TABLE return WITH KEY type = 'E'.

gs_log-matnr = gs_up-matnr.

gs_log-werks = gs_up-werks.

gs_log-msg = return-message.

APPEND gs_log TO gt_log.

CLEAR gs_log.

ENDIF.

CLEAR:return,return[],re_schedule_in[],gs_up,re_change.

ENDLOOP.

ENDFORM. " CHANGE_REQ

*&---------------------------------------------------------------------*

*& Form SCREEN_CHECK

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM screen_check .

IF sy-ucomm = 'ONLI' .

IF p_file = ''.

MESSAGE '请选择上传文件' TYPE 'E'.

ENDIF.

ENDIF.

ENDFORM. " SCREEN_CHECK

*&---------------------------------------------------------------------*

*& Form PROCESS_DATA

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM process_data .

LOOP AT gt_up INTO gs_up.

MOVE-CORRESPONDING gs_up TO gs_up2.

CONCATENATE gs_up-pbdnr gs_up-werks gs_up-versb gs_up-matnr INTO gs_up2-uniq.

APPEND gs_up2 TO gt_up2.

CLEAR gs_up2.

ENDLOOP.

ENDFORM. " PROCESS_DATA

*Text elements

*----------------------------------------------------------

* 001 上传文件

* 002 选择操作

* 003 注释

* C01 注意事项：

* C02 如勾选覆盖，同一计划需求下同一物料同一日期同一版本的计划数量会被覆盖，请慎重选择

*Selection texts

*----------------------------------------------------------

* P_CHANGE 修改

* P_CREATE 创建

* P_DELOLD 覆盖现有数据

* P_FILE 选择上传文件

*Messages

*----------------------------------------------------------

*

* Message class: Hard coded

* 模板下载失败

----------------------------------------------------------------------------------

Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 731