事务代码:IL01，更改功能位置。
输入功能位置，功能位置描述，维护工厂，结构标识，功能位置种类，成本中心，计划工厂，投运日期，在功能位置所允许的设备安装。
实际业务中需要导入大量的功能位置数据，因此需要使用BAPI批量导入功能位置。可使用BAPI：BAPI_FUNCLOC_CREATE批量导入功能。
BAPI参数声明：
TABLES:sscrfields.
*----------------------------------------------------------------------*
* 定义内表
*----------------------------------------------------------------------*
DATA:BEGIN OF gt_input OCCURS 0,
eid(6) TYPE c,
* tplkz TYPE iflot-tplkz, "结构标识
* fltyp TYPE iflot-fltyp, "功能位置种类
tplnr TYPE iflot-tplnr, "功能位置编码
pltxt TYPE iflotx-pltxt, "功能位置名称
kostl TYPE iloa-kostl, "成本中心
swerk TYPE iloa-swerk, "维护工厂
iwerk TYPE iflot-iwerk, "计划工厂
erdat TYPE iflot-erdat, "投运日期
iequi TYPE iflot-iequi, "在功能位置所允许的设备安装
status(20) TYPE c, "导入是否成功状态
drjg TYPE c,
message(100) TYPE c,
cjr(10) TYPE c,
date TYPE iflot-erdat,
END OF gt_input.
DATA:gt_output LIKE gt_input OCCURS 0 WITH HEADER LINE.
DATA: gt_specific LIKE bapi_itob_fl_only OCCURS 0 WITH HEADER LINE,
gt_general LIKE bapi_itob OCCURS 0 WITH HEADER LINE,
g_funcloc TYPE bapi_itob_parms-funcloc,
gt_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
* gt_return TYPE TABLE OF bapiret2.
*----------------------------------------------------------------------*
* 定义alv数据对象
*----------------------------------------------------------------------*
DATA: t_fieldcat TYPE slis_t_fieldcat_alv,
w_fieldcat TYPE slis_fieldcat_alv,
w_layout TYPE slis_layout_alv.
*----------------------------------------------------------------------*
* 定义选择屏幕
*----------------------------------------------------------------------*
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS: p_infile TYPE rlgrap-filename OBLIGATORY MEMORY ID m01.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_infile.
PERFORM frm_get_path."获取路径
AT SELECTION-SCREEN.
PERFORM frm_download_excel."下载模板
AT SELECTION-SCREEN OUTPUT.
PERFORM frm_set_screen."屏幕设置
INITIALIZATION.
PERFORM frm_screen_ini."初始化屏幕
START-OF-SELECTION.
PERFORM frm_check_data1."上传文件校验
PERFORM frm_upload_data."上载数据
PERFORM frm_call_bapi."调用BAPI
PERFORM frm_display_alv."ALV显示
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form FRM_GET_PATH
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_get_path .
CALL FUNCTION 'TB_LIMIT_WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
* DEF_PATH = ' '
mask = 'Excel Files,*.xlsx,*.*. '
* MODE = ' '
* TITLE = ' '
IMPORTING
filename = p_infile
* PATH =
* FILE =
EXCEPTIONS
selection_cancel = 1
selection_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
* MESSAGE '获取文件路径失败！' TYPE 'E'.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DOWNLOAD_EXCEL
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_download_excel .
CASE sscrfields-ucomm .
WHEN 'FC01'.
DATA: l_filename TYPE string,
l_path TYPE string,
l_fullpath TYPE string,
l_filelength TYPE i.
PERFORM frm_filesave_dialog USING '功能位置批量导入模板.xls'
CHANGING l_filename
l_path
l_fullpath.
PERFORM frm_download_files USING l_fullpath .
CLEAR sscrfields-ucomm .
WHEN OTHERS .
ENDCASE .
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DOWNLOAD_FILES
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> L_FULLPATH
*&---------------------------------------------------------------------*
FORM frm_download_files USING p_fullpath.
DATA:ls_key TYPE wwwdatatab,
lv_rc TYPE sy-subrc.
DATA: l_destination LIKE rlgrap-filename .
l_destination = p_fullpath .
SELECT SINGLE relid objid INTO CORRESPONDING FIELDS OF ls_key
FROM wwwdata
WHERE srtf2 EQ 0
AND relid EQ 'MI'
* AND objid EQ lv_objid.
AND objid EQ sy-cprog.
IF sy-subrc NE 0.
MESSAGE '模板文件不存在' TYPE 'E'.
RETURN.
ENDIF.
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
EXPORTING
key = ls_key
destination = l_destination
IMPORTING
rc = lv_rc.
IF lv_rc <> 0.
MESSAGE '模板文件:下载失败，请与相关人员联系' TYPE 'E'.
RETURN.
ENDIF.
DATA: application TYPE ole2_object,
workbook TYPE ole2_object,
sheet TYPE ole2_object.
*&& 打开模版 文件
CREATE OBJECT application 'EXCEL.APPLICATION'.
IF sy-subrc NE 0.
MESSAGE '不能创建Excel对象' TYPE 'E'.
RETURN.
ENDIF.
CALL METHOD OF
application
'WORKBOOKS' = workbook.
CALL METHOD OF
workbook
'OPEN'
EXPORTING
#1 = l_destination.
CALL METHOD OF
application
'WORKSHEETS' = sheet
EXPORTING
#1 = 1.
GET PROPERTY OF application 'ACTIVESHEET' = sheet.
SET PROPERTY OF application 'VISIBLE' = 1.
FREE sheet.
FREE workbook.
FREE application.
CALL METHOD OF
workbook
'CLOSE'.
CALL METHOD OF
application
'QUIT'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_FILESAVE_DIALOG
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> P_
*& <-- L_FILENAME
*& <-- L_PATH
*& <-- L_FULLPATH
*&---------------------------------------------------------------------*
FORM frm_filesave_dialog USING p_value
CHANGING p_filename
p_path
p_fullpath.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
default_file_name = p_value
default_extension = 'xls'
CHANGING
filename = p_filename
path = p_path
fullpath = p_fullpath
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SET_SCREEN
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_set_screen .
LOOP AT SCREEN.
IF screen-name = 'P_INFILE'.
screen-required = '2'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SCREEN_INI
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_screen_ini .
sscrfields-functxt_01 = '模板下载'. "模板下载
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_check_data1 .
IF p_infile IS INITIAL.
MESSAGE '文件路径不能为空！' TYPE 'S' DISPLAY LIKE 'E'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_UPLOAD_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_upload_data .
DATA: l_infile TYPE string.
l_infile = p_infile.
DATA: t_raw_data TYPE truxs_t_text_data.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
i_line_header = 'X'
i_tab_raw_data = t_raw_data
i_filename = p_infile
TABLES
i_tab_converted_data = gt_input
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CALL_BAPI
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_call_bapi .
DATA tlen TYPE i.
LOOP AT gt_input.
tlen = strlen( gt_input-tplnr ).
g_funcloc = gt_input-tplnr.
gt_general-maintplant = gt_input-swerk.
gt_general-planplant = gt_input-iwerk.
gt_general-descript = gt_input-pltxt.
gt_general-costcenter = gt_input-kostl.
gt_general-read_crdat = gt_input-erdat.
APPEND gt_general.
* gt_specific-strind = gt_input-tplkz.
gt_specific-strind = 'CDFLS'.
* gt_specific-category = gt_input-fltyp.
gt_specific-category = 'M'.
IF tlen LT 15.
IF tlen = 2.
gt_specific-supfloc = gt_input-tplnr+0(2).
ENDIF.
IF tlen = 7.
gt_specific-supfloc = gt_input-tplnr+0(2).
ENDIF.
IF tlen = 12.
gt_specific-supfloc = gt_input-tplnr+0(7).
ENDIF.
ELSEIF tlen GE 15.
gt_specific-supfloc = gt_input-tplnr+0(15).
ENDIF.
gt_specific-eqinstall = gt_input-iequi.
APPEND gt_specific.
CALL FUNCTION 'BAPI_FUNCLOC_CREATE'
EXPORTING
external_number = g_funcloc
* LABELING_SYSTEM =
data_general = gt_general
data_specific = gt_specific
* AUTOMATIC_INSTALL =
IMPORTING
* FUNCTLOCATION =
* DATA_GENERAL_EXP =
* DATA_SPECIFIC_EXP =
return = gt_return
* TABLES
* EXTENSIONIN =
* EXTENSIONOUT =
.
IF syst-msgty = 'I'.
gt_output-drjg = syst-msgty.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
INTO gt_output-message
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSEIF syst-msgty = 'S'.
gt_output-drjg = syst-msgty.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' .
WAIT UP TO '0.1' SECONDS.
ENDIF.
IF gt_output-drjg = 'I'.
gt_output-status = icon_led_red.
ELSEIF gt_output-drjg = 'S'.
gt_output-status = icon_led_green.
ENDIF.
gt_output-eid = gt_input-eid.
gt_output-tplnr = gt_input-tplnr.
gt_output-pltxt = gt_input-pltxt.
gt_output-swerk = gt_input-swerk.
gt_output-cjr = sy-uname.
gt_output-date = sy-datum.
APPEND gt_output.
CLEAR gt_output.
CLEAR gt_return.
REFRESH gt_return.
CLEAR g_funcloc.
CLEAR gt_general.
REFRESH gt_general.
CLEAR gt_specific.
REFRESH gt_specific.
CLEAR tlen.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_display_alv .
PERFORM frm_fill_fieldcat.
PERFORM frm_alv_layout.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_buffer_active = 'X'
i_callback_program = sy-repid
is_layout = w_layout
it_fieldcat = t_fieldcat
* i_callback_pf_status_set = 'SET_PF_STATUS'
i_callback_user_command = 'USER_COMMAND'
TABLES
t_outtab = gt_output
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_FILL_FIELDCAT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_fill_fieldcat .
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'EID'.
w_fieldcat-seltext_m = '导入编码'.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'STATUS'.
w_fieldcat-seltext_m = '指示灯'.
w_fieldcat-icon = 'X'.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'DRJG'.
w_fieldcat-seltext_m = '导入结果'.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'MESSAGE'.
w_fieldcat-seltext_m = '消息'.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'TPLNR'.
w_fieldcat-seltext_m = '功能位置编码'.
w_fieldcat-no_zero = 'X'.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'PLTXT'.
w_fieldcat-seltext_m = '导入功能位置名称'.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'SWERK'.
w_fieldcat-seltext_m = '维护工厂'.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'CJR'.
w_fieldcat-seltext_m = '创建人'.
APPEND w_fieldcat TO t_fieldcat.
CLEAR w_fieldcat.
w_fieldcat-fieldname = 'DATE'.
w_fieldcat-seltext_m = '日期时间'.
APPEND w_fieldcat TO t_fieldcat.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_ALV_LAYOUT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_alv_layout .
w_layout-colwidth_optimize = 'X'.
ENDFORM.
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN '&IC1'.
IF rs_selfield-value IS INITIAL.
r_ucomm = '&ETA'.
ENDIF.
* CHECK rs_selfield-value IS NOT INITIAL.
* READ TABLE it_tab INTO wa_tab INDEX rs_selfield-tabindex.
CASE rs_selfield-fieldname.
WHEN 'TPLNR'. "交货单号
SET PARAMETER ID 'IFL' FIELD rs_selfield-value.
CALL TRANSACTION 'IL02' AND SKIP FIRST SCREEN.
WHEN OTHERS.
r_ucomm = '&ETA'.
ENDCASE.
ENDCASE.
ENDFORM.