*&---------------------------------------------------------------------*
*& Report ZFFX001
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zfjw002.
TABLES:
zfi_jh_gys_dj,sscrfields.
*&---------------------------------------------------------------------*
*& TYPE POOL
*&---------------------------------------------------------------------*
TYPE-POOLS: slis.
*&---------------------------------------------------------------------*
*& ALV varible
*&---------------------------------------------------------------------*
DATA: it_fields TYPE slis_t_fieldcat_alv.
DATA: wa_fields TYPE LINE OF slis_t_fieldcat_alv.
DATA: gs_layout TYPE slis_layout_alv,
wa_event TYPE slis_alv_event,
gt_event TYPE slis_t_event,
gs_variant TYPE disvariant,
gt_list_top_of_page TYPE slis_t_listheader,
g_repid LIKE sy-repid.
*&---------------------------------------------------------------------*
*& Excel Import global variable
*&---------------------------------------------------------------------*
DATA: g_filepath TYPE string. "保存文件路径
FIELD-SYMBOLS:<fs_unit> LIKE alsmex_tabline. "Excel单元格
FIELD-SYMBOLS:<fs_value> TYPE any.
DATA: g_lines LIKE sy-index VALUE 2. "Excel数据的行数
DATA: g_index LIKE sy-index VALUE 1. "message表的序号
DATA: g_sign TYPE c. "Excel一行是否写入成功的标志
DATA: g_succ LIKE sy-index. "成功更新条数
DATA g_fail TYPE i VALUE 0. "失败的行数
DATA g_flag TYPE char1. "标记
CONSTANTS : s_ctumode TYPE ctu_params-dismode VALUE 'N', "屏幕不可见
s_cupdate TYPE ctu_params-updmode VALUE 'S'. "同步模式
DATA t_xlstmp TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE. "保存Excel中读取的记录
DATA:BEGIN OF wa_message,
znumb TYPE int4,
message TYPE char255,
END OF wa_message.
DATA it_message LIKE wa_message OCCURS 0 WITH HEADER LINE."提示信息
DATA: BEGIN OF t_data OCCURS 0,
znumb TYPE int4, "该次上传的excel内的序号
datab TYPE zfi_jh_gys_dj-ww100,
zbzflx TYPE zfi_jh_gys_dj-zbzflx,
lifnr TYPE zfi_jh_gys_dj-lifnr,
datbi TYPE zfi_jh_gys_dj-ww100,
ww100 TYPE zfi_jh_gys_dj-datbi,
zdj TYPE zfi_jh_gys_dj-zdj,
waers TYPE zfi_jh_gys_dj-waers,
zsfcny TYPE zfi_jh_gys_dj-zsfcny,
lines TYPE int4, "保存行号
flag TYPE char1, "标记该行数据是否合法
END OF t_data.
DATA:BEGIN OF wa_itab.
INCLUDE STRUCTURE zfi_jh_gys_dj.
DATA:
sel TYPE char1,
flag TYPE char1,
END OF wa_itab.
DATA t_itab LIKE wa_itab OCCURS 0 WITH HEADER LINE.
DATA t_dj LIKE zfi_jh_gys_dj OCCURS 0 WITH HEADER LINE.
DATA it_alv_d LIKE t_itab OCCURS 0 WITH HEADER LINE .
*DATA:BEGIN OF i_text OCCURS 0,
* znumb TYPE char10,
* bukrs TYPE char10,
* spmon TYPE char10,
* zylx TYPE char10,
* zdj TYPE char10,
* meins TYPE char10,
* END OF i_text.
DATA g_text TYPE char100.
DATA:wa_dj LIKE zfi_jh_gys_dj.
*&---------------------------------------------------------------------*
*& gloabel variable
*&---------------------------------------------------------------------*
DATA: ok_code LIKE sy-ucomm,
save_ok LIKE sy-ucomm.
DATA:save_ok1 LIKE sy-ucomm.
*&---------------------------------------------------------------------*
*& Macro Definition
*&---------------------------------------------------------------------*
DEFINE macro_fieldcat.
wa_fields-fieldname = &1.
TRANSLATE wa_fields-fieldname TO UPPER CASE.
wa_fields-seltext_l = &2.
wa_fields-outputlen = &3.
wa_fields-edit = &4.
APPEND wa_fields TO it_fields.
CLEAR:wa_fields.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& Selection Screen
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK block0 WITH FRAME TITLE TEXT-001.
PARAMETERS: r1 RADIOBUTTON GROUP g DEFAULT 'X'.
SELECT-OPTIONS:
* s_bukrs FOR zfi_jh_gys_dj-bukrs,
* s_spmon FOR zfi_jh_gys_dj-spmon,
* s_zylx FOR zfi_jh_gys_dj-zylx,
* s_zxhlx FOR zfi_jh_gys_dj-zxhlx.
s_ww100 FOR zfi_jh_gys_dj-ww100,
s_datab FOR zfi_jh_gys_dj-datab.
PARAMETERS: r2 RADIOBUTTON GROUP g .
PARAMETERS: g_fname LIKE rlgrap-filename. "输入文件名称
*PARAMETERS: r3 RADIOBUTTON GROUP g .
*PARAMETERS:p_fname TYPE string DEFAULT 'C:/油类型单价信息维护上传模板.XLS'.
SELECTION-SCREEN END OF BLOCK block0.
SELECTION-SCREEN FUNCTION KEY 1. " Download template
*&---------------------------------------------------------------------*
*& File Impoft screen
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR g_fname.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_path = 'c:\'
" 对话框默认打开路径
mask = ',Excel Files,*.xls,'(101)
"文件类型过滤
mode = 'O'
"文件打开的目的
title = '请选择要导入的Excel文件!' "对话框标题
IMPORTING
filename = g_fname
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc <> 0 .
STOP.
ENDIF.
CLEAR g_filepath.
g_filepath = g_fname.
* 判断是否为excel文件
SEARCH g_filepath FOR '.xls'.
IF sy-subrc <> 0.
MESSAGE s003(msgnr) WITH '文件类型错误，请选择Excel数据文件!'.
STOP.
ENDIF.
INITIALIZATION.
sscrfields-functxt_01 = '模板下载'.
AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'FC01' .
PERFORM fm_download_template. " 下载模板
ENDIF.
START-OF-SELECTION.
IF r1 EQ 'X'.
PERFORM frm_query.
ELSEIF r2 = 'X'.
PERFORM frm_excel.
* ELSEIF r3 = 'X'.
*
* PERFORM frm_download.
ELSE.
ENDIF.
*&---------------------------------------------------------------------*
*& Form frm_query
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM frm_query.
FREE:t_itab[].
SELECT *
FROM zfi_jh_gys_dj
INTO CORRESPONDING FIELDS OF TABLE t_itab
WHERE ww100 IN s_ww100
AND datab IN s_datab
.
CLEAR it_alv_d[].
it_alv_d[] = t_itab[].
SORT t_itab BY ww100 zbzflx datab.
gs_layout-zebra = 'X'.
gs_layout-info_fieldname = 'LINE_COLOR'.
gs_layout-box_fieldname = 'SEL'.
PERFORM fr_build_fieldcats.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_save = 'A'
i_callback_program = sy-repid
i_callback_pf_status_set = 'SET_PF_STATUS'
i_callback_user_command = 'FRM_UCOMM'
it_fieldcat = it_fields[]
is_layout = gs_layout
TABLES
t_outtab = t_itab
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. "frm_query
*&---------------------------------------------------------------------*
*& Form fr_build_fieldcats
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM fr_build_fieldcats.
REFRESH it_fields.
macro_fieldcat 'WW100' '注册号' '8' ''.
macro_fieldcat 'DATAB' '开始生效日期' '8' ''.
macro_fieldcat 'ZBZFLX' '飞机保障费类型' '2' 'X'.
macro_fieldcat 'LIFNR' '供应商' '10' 'X'.
macro_fieldcat 'DATBI' '有效截至日期' '8' 'X'.
macro_fieldcat 'ZDJ' '单价' '20' 'X'.
macro_fieldcat 'WAERS' '货币码' '5' 'X'.
macro_fieldcat 'ZSFCNY' '是否以CNY记账' '1' 'X'.
ENDFORM. "fr_build_fieldcats
*&---------------------------------------------------------------------*
*& Form set_pf_status
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RT_EXTAB text
*----------------------------------------------------------------------*
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'STANDARD_FULLSCREEN'.
ENDFORM. "Set_pf_status
*&---------------------------------------------------------------------*
*& Form frm_ucomm
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->R_UCOMM text
* -->RS_SELFIELD text
*----------------------------------------------------------------------*
FORM frm_ucomm USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
DATA: lr_grid TYPE REF TO cl_gui_alv_grid.
DATA l_flag(1).
FIELD-SYMBOLS <fs_itab> LIKE wa_itab.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
e_grid = lr_grid.
CALL METHOD lr_grid->check_changed_data.
rs_selfield-refresh = 'X'."这个值可以让alv制动刷新
CLEAR l_flag.
CASE:r_ucomm.
WHEN 'SAVE'.
DATA gt_update TYPE STANDARD TABLE OF zfi_jh_gys_dj WITH HEADER LINE.
REFRESH gt_update[].
LOOP AT t_itab.
MOVE-CORRESPONDING t_itab TO gt_update.
APPEND gt_update.
CLEAR t_itab.
ENDLOOP.
SORT gt_update BY ww100 datab.
DATA gt_update_d LIKE zfi_jh_gys_dj OCCURS 0 WITH HEADER LINE.
LOOP AT it_alv_d.
CLEAR gt_update.
READ TABLE gt_update WITH KEY ww100 = it_alv_d-ww100
datab = it_alv_d-datab BINARY SEARCH.
IF sy-subrc <> 0."删掉后数据和原数据匹配不到的数据放在另一张表
CLEAR gt_update_d.
MOVE-CORRESPONDING it_alv_d TO gt_update_d.
APPEND gt_update_d.
ENDIF.
ENDLOOP.
LOOP AT gt_update_d. "从配置表删除已经删掉行项目的数据
DELETE FROM zfi_jh_gys_dj WHERE ww100 = gt_update_d-ww100
AND datab = gt_update_d-datab.
ENDLOOP.
MODIFY zfi_jh_gys_dj FROM TABLE gt_update.
COMMIT WORK .
MESSAGE '保存成功' TYPE 'S'.
CLEAR gt_update.
WHEN 'DELETE'.
DELETE t_itab WHERE sel = 'X'.
WHEN OTHERS.
ENDCASE.
ENDFORM. "FRM_UCOMM
*&---------------------------------------------------------------------*
*& Form frm_excel
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM frm_excel.
DATA l_flag(1).
IF g_fname IS INITIAL.
MESSAGE s003(msgnr) WITH '请选择要导入的Excel文件' DISPLAY LIKE 'E'.
STOP.
ENDIF.
PERFORM frm_read_from_excel.
IF it_message[] IS INITIAL.
PERFORM frm_import_data.
IF it_message[] IS NOT INITIAL.
PERFORM show_message.
ELSE.
MESSAGE '数据导入成功！' TYPE 'S' DISPLAY LIKE 'S'.
ENDIF.
ELSE.
PERFORM show_error.
ENDIF.
ENDFORM. "frm_excel
*&---------------------------------------------------------------------*
*& Form frm_read_from_excel
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM frm_read_from_excel.
DATA l_value TYPE char100.
DATA l_flag TYPE char1.
DATA l_count LIKE sy-subrc.
DATA l_message TYPE string.
REFRESH t_xlstmp.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = g_fname
i_begin_col = 1
i_begin_row = 2 "从第二行开始读
i_end_col = 9
i_end_row = 65536
TABLES
intern = t_xlstmp
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 2
OTHERS = 3.
IF sy-subrc NE 0 .
MESSAGE s003(msgnr) WITH '读取文件失败，请检查Excel数据文件!'.
STOP.
ENDIF.
*由于t_xlstmp-row的长度限制，所以最多只能上传9999行数据(包含标题行)
*控制最多条目不能超过9998
DATA:l_znumber TYPE i.
DATA:l_p TYPE p.
DATA:i TYPE p.
CLEAR:i.
LOOP AT t_xlstmp.
i = i + 1.
ENDLOOP.
i = i / 9 ."9为每行的列数
IF i > 9998.
MESSAGE i398(00) WITH '上传条目数不能超过9998条！'.
EXIT.
ELSE.
CLEAR:t_xlstmp.
READ TABLE t_xlstmp WITH KEY row = '9999'.
IF sy-subrc = 0.
MESSAGE i398(00) WITH '上传条目数不能超过9998条！'.
EXIT.
ENDIF.
ENDIF.
CLEAR t_data.
SORT t_xlstmp BY row col .
LOOP AT t_xlstmp ASSIGNING <fs_unit>.
ASSIGN COMPONENT <fs_unit>-col OF STRUCTURE <fs_unit> TO <fs_value> .
l_value = <fs_unit>-value .
CONDENSE l_value.
CASE <fs_unit>-col.
WHEN 1.
t_data-znumb = l_value+0(10).
WHEN 2.
PERFORM frm_check_ww100_exists USING '注册号' l_value.
WHEN 3.
PERFORM frm_check_datab_exists USING '开始生效日期' l_value.
WHEN 4.
PERFORM frm_check_zbzflx_exists USING '飞机保障费类型' l_value.
WHEN 5.
PERFORM frm_check_lifnr_exists USING '供应商' l_value.
WHEN 6.
PERFORM frm_check_datbi_exists USING '有效截至日期' l_value.
WHEN 7.
PERFORM frm_check_zdj_exists USING '单价' l_value.
WHEN 8.
PERFORM frm_check_waers_exists USING '货币码' l_value.
WHEN 9.
PERFORM frm_check_zsfcny_exists USING '是否以CNY记账' l_value.
ENDCASE.
AT END OF row .
* CLEAR:wa_dj.
* SELECT SINGLE begda endda FROM zfi_jh_gys_dj
* INTO CORRESPONDING FIELDS OF wa_dj
* WHERE bukrs = t_data-bukrs
* AND zylx = t_data-zylx
* AND zxhlx = t_data-zxhlx
* AND spmon = t_data-spmon.
* IF sy-subrc = 0.
* CLEAR:g_text.
* g_text = '年月在系统中已存在数据；'.
* PERFORM frm_add_error_mes USING t_data-znumb g_text.
* ENDIF.
APPEND t_data.
CLEAR t_data.
ENDAT.
ENDLOOP.
ENDFORM. "frm_read_from_excel
*&---------------------------------------------------------------------*
*& Form frm_add_error_mes
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_PERNR text
* -->P_MSG text
* -->P_LINES text
*----------------------------------------------------------------------*
FORM frm_add_error_mes USING p_znumb
p_msg
.
g_flag = 'X'. "设置本行的错误标记
CLEAR wa_message.
wa_message-znumb = p_znumb.
wa_message-message = p_msg.
APPEND wa_message TO it_message.
ENDFORM. "frm_add_error_mes
*&---------------------------------------------------------------------*
*& Form frm_check_bukrs_exists
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
FORM frm_check_ww100_exists USING p_text
p_value.
DATA l_text TYPE char100.
IF p_value+0(8) = ''.
CONCATENATE p_text '不能为空；' INTO l_text.
PERFORM frm_add_error_mes USING t_data-znumb l_text.
EXIT.
ELSE.
t_data-ww100 = p_value+0(8).
ENDIF.
ENDFORM. " frm_check_bukrs_exists
*&---------------------------------------------------------------------*
*& Form frm_check_spmon_exists
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
FORM frm_check_datab_exists USING p_text
p_value.
DATA l_text TYPE char100.
IF p_value+0(8) = ''.
CONCATENATE p_text '不能为空；' INTO l_text.
PERFORM frm_add_error_mes USING t_data-znumb l_text.
EXIT.
ELSE.
t_data-datab = p_value+0(8).
ENDIF.
ENDFORM. " frm_check_spmon_exists
*&---------------------------------------------------------------------*
*& Form frm_check_zylx_exists
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
FORM frm_check_zbzflx_exists USING p_text
p_value.
DATA l_text TYPE char100.
IF p_value+0(2) = ''.
CONCATENATE p_text '不能为空；' INTO l_text.
PERFORM frm_add_error_mes USING t_data-znumb l_text.
EXIT.
ELSE.
t_data-zbzflx = p_value+0(2).
ENDIF.
ENDFORM. " frm_check_zylx_exists
*&---------------------------------------------------------------------*
*& Form frm_check_zxhlx_exists
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
FORM frm_check_lifnr_exists USING p_text
p_value.
DATA l_text TYPE char100.
IF p_value+0(10) = ''.
CONCATENATE p_text '不能为空；' INTO l_text.
PERFORM frm_add_error_mes USING t_data-znumb l_text.
EXIT.
ELSE.
t_data-lifnr = p_value+0(10).
ENDIF.
ENDFORM. " frm_check_zxhlx_exists
*&---------------------------------------------------------------------*
*& Form frm_check_zdj_exists
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
FORM frm_check_datbi_exists USING p_text
p_value.
DATA l_text TYPE char100.
IF p_value+0(8) = ''.
CONCATENATE p_text p_value+0(30) '不能为空；' INTO l_text.
PERFORM frm_add_error_mes USING t_data-znumb l_text.
EXIT.
ELSE.
t_data-datbi = p_value+0(8).
ENDIF.
ENDFORM. " frm_check_zdj_exists
*&---------------------------------------------------------------------*
*& Form frm_check_meins_exists
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
FORM frm_check_zdj_exists USING p_text
p_value.
DATA l_text TYPE char100.
IF p_value+0(30) CN '0123456789. ' .
CONCATENATE p_text p_value+0(30) '不是数值字段；' INTO l_text.
PERFORM frm_add_error_mes USING t_data-znumb l_text.
EXIT.
ELSE.
t_data-zdj = p_value+0(30).
ENDIF.
ENDFORM. " frm_check_meins_exists
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_WAERS_EXISTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0808 text
* -->P_L_VALUE text
*----------------------------------------------------------------------*
FORM frm_check_waers_exists USING p_text
p_value.
DATA l_text TYPE char100.
IF p_value+0(5) = ''.
CONCATENATE p_text '不能为空；' INTO l_text.
PERFORM frm_add_error_mes USING t_data-znumb l_text.
EXIT.
ELSE.
t_data-waers = p_value+0(5).
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_ZSFCNY_EXISTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0815 text
* -->P_L_VALUE text
*----------------------------------------------------------------------*
FORM frm_check_zsfcny_exists USING p_text
p_value.
DATA l_text TYPE char100.
IF p_value+0(1) = ''.
CONCATENATE p_text '不能为空；' INTO l_text.
PERFORM frm_add_error_mes USING t_data-znumb l_text.
EXIT.
ELSE.
t_data-zsfcny = p_value+0(1).
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form show_error
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM show_error .
MESSAGE s398(00) WITH '数据检查有错误，未导入数据！'.
REFRESH it_fields.
macro_fieldcat 'ZNUMB' 'EXCEL表内序号' '15' ''.
macro_fieldcat 'MESSAGE' '错误内容' '50' ''.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_save = 'A'
i_callback_program = sy-repid
i_callback_pf_status_set = 'SET_PF_STATUS'
* i_callback_user_command = 'FRM_UCOMM'
it_fieldcat = it_fields[]
is_layout = gs_layout
TABLES
t_outtab = it_message
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. " show_error
*&---------------------------------------------------------------------*
*& Form frm_import_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM frm_import_data.
DATA l_text TYPE char100.
DATA l_message TYPE string.
DATA l_count LIKE sy-subrc.
FREE:t_dj[].
LOOP AT t_data.
MOVE-CORRESPONDING t_data TO t_dj.
APPEND t_dj.
ENDLOOP.
IF t_dj[] IS NOT INITIAL.
MODIFY zfi_jh_gys_dj FROM TABLE t_dj. "更新数据库
IF sy-subrc = 0.
MESSAGE s398(00) WITH '更新成功；'.
ELSE.
MESSAGE e398(00) WITH '更新失败；'.
ENDIF.
ENDIF.
ENDFORM. "frm_import_data
*&---------------------------------------------------------------------*
*& Form show_message
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM show_message.
DATA: ls_layout TYPE slis_layout_alv,
l_fieldcat TYPE slis_fieldcat_alv,
ls_fieldcat TYPE slis_t_fieldcat_alv,
l_temp TYPE string,
l_str TYPE string.
FIELD-SYMBOLS: <fs_msg> LIKE wa_message.
MESSAGE s398(00) WITH '数据更新有错误，错误如下！（所有均未导入）'.
REFRESH it_fields.
macro_fieldcat 'ZNUMB' 'EXCEL表内序号' '15' ''.
macro_fieldcat 'MESSAGE' '错误内容' '50' '' .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_save = 'A'
i_callback_program = sy-repid
i_callback_pf_status_set = 'SET_PF_STATUS'
* i_callback_user_command = 'FRM_UCOMM'
it_fieldcat = it_fields[]
is_layout = gs_layout
TABLES
t_outtab = it_message
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. "show_message
**&---------------------------------------------------------------------*
**& Form FRM_DOWNLOAD
**&---------------------------------------------------------------------*
** text
**----------------------------------------------------------------------*
** --> p1 text
** <-- p2 text
**----------------------------------------------------------------------*
*FORM frm_download .
*
*
* FREE:i_text[].
* i_text-znumb = '序号'.
* i_text-bukrs_fx = '公司'.
* i_text-spmon = '年月'.
* i_text-zylx = '油类型'.
* i_text-zdj = '单价'.
* i_text-meins = '单位'.
* APPEND i_text.
*
*
* CALL METHOD cl_gui_frontend_services=>gui_download
* EXPORTING
* filename = p_fname "fullpath "
* write_field_separator = 't'
* filetype = 'ASC'
* codepage = '8400' "GB2312中文章编码
* CHANGING
* data_tab = i_text[].
* IF sy-subrc = 0.
* MESSAGE s398(00) WITH '模板已下载到' p_fname.
* ELSE.
* MESSAGE i398(00) WITH '模板下载失败'.
* ENDIF.
*
*ENDFORM. " FRM_DOWNLOAD
*&---------------------------------------------------------------------*
*& Form FM_DOWNLOAD_TEMPLATE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM fm_download_template .
DATA: l_filename TYPE string,
l_fullpath TYPE string,
l_path TYPE string,
l_key TYPE wwwdatatab,
l_mime TYPE TABLE OF w3mime.
l_key-relid = 'MI'.
l_key-objid = 'ZFX003'.
CALL FUNCTION 'WWWDATA_IMPORT'
EXPORTING
key = l_key
TABLES
mime = l_mime
EXCEPTIONS
wrong_object_type = 1
import_error = 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.
ENDIF.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
window_title = 'Download File'
default_extension = '.XLS'
default_file_name = '机号及供应商对应的单价上传模板'
file_filter = cl_gui_frontend_services=>filetype_excel
CHANGING
filename = l_filename
path = l_path
fullpath = l_fullpath
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
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 l_fullpath IS INITIAL.
RETURN.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = l_fullpath
filetype = 'BIN'
* write_field_separator = cl_abap_char_utilities=>horizontal_tab
TABLES
data_tab = l_mime
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDFORM.
浙公网安备 33010602011771号