***********************************************************************
* Title : ZSDF003 *
* Application : SD *
*
***********************************************************************
* 设计主要逻辑与原理说明 *
***********************************************************************
*SD模块发货通知单
*****************************************************************************
REPORT zsdf003.
TABLES: vttp,lips,likp,kna1 ,vttk.
INCLUDE ole2incl.
DATA: gs_fcat TYPE lvc_s_fcat,
gt_fcat TYPE lvc_t_fcat,
gs_layo TYPE lvc_s_layo,
gs_grid TYPE lvc_s_glay.
DATA: gt_event TYPE slis_t_event WITH HEADER LINE,
gt_event_exit TYPE slis_t_event_exit WITH HEADER LINE.
DATA: ref_grid TYPE REF TO cl_gui_alv_grid .
DATA: excel TYPE ole2_object,
workbook TYPE ole2_object,
sheet TYPE ole2_object,
cell TYPE ole2_object,
row TYPE ole2_object.
TYPES: BEGIN OF ty_all,
tknum LIKE vttk-tknum,"运单号
vbeln LIKE lips-vbeln,"交货单号
tplst LIKE vttk-tplst ,"装运点
name1 LIKE kna1-name1 ,"客户
erdat LIKE vttk-erdat ,"创建日期
tdlnr LIKE vttk-tdlnr ,"物流公司
route LIKE vttk-route ,"线路
distz LIKE vttk-distz ,"里程
add01 LIKE vttk-add01 ,"车主
exti1 LIKE vttk-exti1 ,"卸货点
add02 LIKE vttk-add02 ,"司机
bfart LIKE vttk-bfart ,"车厢类型
matnr LIKE lips-matnr,"物料编码
arktx LIKE lips-arktx,"物料描述
brgew LIKE lips-brgew,"货物单项目毛重
lfimg LIKE lips-lfimg,"单项目数量
vrkme LIKE lips-vrkme ,"单位
gewei LIKE lips-gewei,"重量单位
lgort LIKE lips-lgort,"库存地点
beizhu(30) TYPE c,"备注
END OF ty_all.
TYPES:BEGIN OF ty_header,
tknum LIKE vttk-tknum,"运单号
vbeln LIKE lips-vbeln,"交货单号
name1 LIKE kna1-name1 ,"客户
tplst LIKE vttk-tplst ,"装运点
erdat LIKE vttk-erdat ,"装运日期
tdlnr LIKE vttk-tdlnr ,"物流公司
route LIKE vttk-route ,"线路
distz LIKE vttk-distz ,"里程
add01 LIKE vttk-add01 ,"车主
exti1 LIKE vttk-exti1 ,"卸货点
add02 LIKE vttk-add02 ,"司机
bfart LIKE vttk-bfart ,"车厢类型
total_brgew LIKE lips-brgew,"一个交货单的总重量
lgort LIKE lips-lgort,"库存地点
END OF ty_header.
*单据抬头结束
*单据明细开始
TYPES:BEGIN OF ty_items,
tknum LIKE vttk-tknum,"运单号
vbeln LIKE lips-vbeln,"交货单号
name1 LIKE kna1-name1 ,"客户
matnr LIKE lips-matnr,"物料编码
arktx LIKE lips-arktx,"物料描述
brgew LIKE lips-brgew,"单项目毛重
gewei LIKE lips-gewei,"重量单位
lfimg LIKE lips-lfimg,"单项目数量
vrkme LIKE lips-vrkme ,"单位
lgort LIKE lips-lgort,"库存地点
beizhu(30) TYPE c,"备注
END OF ty_items.
*单据明细结束
DATA:wa_all TYPE ty_all,
gt_all TYPE ty_all OCCURS 0.
DATA : hs_all TYPE HASHED TABLE OF ty_all WITH UNIQUE KEY tknum name1 WITH HEADER LINE .
DATA:wa_header TYPE ty_header,
gt_header TYPE ty_header OCCURS 0 .
DATA:wa_items TYPE ty_items,
gt_items TYPE ty_items OCCURS 0.
DATA: gt_header_show TYPE ty_header OCCURS 0.
DATA: gt_items_show TYPE ty_items OCCURS 0.
*定义传入到smartforms的变量开始
DATA:fm_name TYPE rs38l_fnam.
DATA:itemsname(32) TYPE c.
DATA:headername(32) TYPE c.
*定义传入到smartforms的变量结束
*定义存储ALV向smartforms传入数据的内表开始
DATA:gt_header_temp TYPE ty_header OCCURS 0.
DATA:gt_items_temp TYPE ty_items OCCURS 0.
DATA:gt_all_temp TYPE ty_all OCCURS 0.
*定义存储ALV向smartforms传入数据的内表结束
"控制smartforms参数声明开始
DATA :control_parameters TYPE ssfctrlop.
"控制smartforms参数声明结束
TYPES: BEGIN OF ty_sum ,
tknum LIKE vttk-tknum,"运单号
matnr LIKE lips-matnr,"物料编码
arktx LIKE lips-arktx,"物料描述
lfimg LIKE lips-lfimg,"单项目数量
vrkme LIKE lips-vrkme ,"单位
name1 LIKE kna1-name1 ,"客户
lgort LIKE lips-lgort,"库存地点
brgew LIKE lips-brgew,"单项目毛重
END OF ty_sum.
DATA : itab TYPE ty_sum OCCURS 0 ."WITH HEADER LINE ."从数据库中取出的数放入的内表
DATA : hs_sum TYPE HASHED TABLE OF ty_sum WITH UNIQUE KEY matnr arktx vrkme lgort name1 tknum WITH HEADER LINE .
DATA : itab_sum TYPE STANDARD TABLE OF ty_sum WITH HEADER LINE .
TYPES: BEGIN OF itab_sum,"行列转换后的内表
matnr LIKE lips-matnr,"物料编码
arktx LIKE lips-arktx,"物料描述
line_sum TYPE i ,
vrkme LIKE lips-vrkme ,"单位
lgort LIKE lips-lgort,"库存地点
01 TYPE i ,
02 TYPE i ,
03 TYPE i ,
04 TYPE i ,
05 TYPE i ,
06 TYPE i ,
07 TYPE i ,
08 TYPE i ,
09 TYPE i ,
10 TYPE i ,
11 TYPE i ,
12 TYPE i ,
13 TYPE i ,
14 TYPE i ,
15 TYPE i ,
16 TYPE i ,
17 TYPE i ,
18 TYPE i ,
19 TYPE i ,
20 TYPE i ,
21 TYPE i ,
22 TYPE i ,
23 TYPE i ,
24 TYPE i ,
25 TYPE i ,
26 TYPE i ,
tknum
LIKE vttk-tknum,"运单号
brgew_sum
LIKE lips-brgew,
END OF itab_sum.
DATA:itab_out TYPE itab_sum OCCURS 0 WITH HEADER LINE .
TYPES: BEGIN OF ty_col ,"存储动态显示列的内表结构
name1
LIKE kna1-name1 ,"客户
END OF ty_col.
DATA : hs_col TYPE HASHED TABLE OF ty_col WITH UNIQUE KEY name1 WITH HEADER LINE .
DATA : itab_col TYPE STANDARD TABLE OF ty_col WITH HEADER LINE .
FIELD-SYMBOLS: <f_fs1> ,
<f_fs2>
.
START-OF-SELECTION.
SELECT-OPTIONS: p_erdat FOR vttk-erdat ,
p_tknum
FOR vttk-tknum ," no-EXTENSION NO INTERVALS,
p_tdlnr
FOR vttk-tdlnr ,
p_tplst
FOR vttk-tplst ,
p_ernam
FOR vttk-ernam ,
p_route
FOR vttk-route .
START-OF-SELECTION.
PERFORM getdata.
DATA:title TYPE lvc_s_layo-grid_title.
LOOP AT gt_header_show INTO wa_header.
title = wa_header-tknum.
CLEAR hs_sum[].
CLEAR hs_col[].
CLEAR itab_col[].
CLEAR itab_sum[].
CLEAR gt_fcat.
CLEAR gs_layo.
CLEAR itab_out[].
PERFORM fixdata USING wa_header-tknum.
PERFORM outdata USING title .
ENDLOOP.
"parameters: p_fname like RLGRAP-FILENAME default 'C:\Users\DONG\Desktop\model.xls'.
FORM getdata.
SELECT *
FROM vttk AS vk
INNER
JOIN vttp AS vp
ON vk~tknum = vp~tknum
INNER
JOIN lips AS l
ON l~vbeln = vp~vbeln
INNER
JOIN likp AS lp
ON lp~vbeln = l~vbeln
INNER
JOIN kna1 AS k
ON k~kunnr = lp~kunag
INTO CORRESPONDING FIELDS OF TABLE gt_all
WHERE
vk
~tknum IN p_tknum AND (
vk
~erdat IN p_erdat AND
vk
~tdlnr IN p_tdlnr AND
vk
~tplst IN p_tplst AND
vk
~ernam IN p_ernam AND
vk
~route IN p_route ) .
SORT gt_all ASCENDING BY tknum.
MOVE-CORRESPONDING gt_all TO gt_header_show.
MOVE-CORRESPONDING gt_all TO gt_items_show.
DELETE ADJACENT DUPLICATES FROM gt_header_show COMPARING tknum .
DATA :sum_weight LIKE lips-brgew VALUE 0.
LOOP AT gt_header_show INTO wa_header.
LOOP AT gt_items_show INTO wa_items.
IF wa_header-tknum EQ wa_items-tknum.
sum_weight
= wa_items-brgew + sum_weight.
ENDIF.
ENDLOOP.
wa_header
-total_brgew = sum_weight.
MODIFY TABLE gt_header_show FROM wa_header.
CLEAR sum_weight.
ENDLOOP.
CLEAR wa_header.
CLEAR wa_items.
MOVE-CORRESPONDING gt_all TO itab.
ENDFORM. " GETDATA
*&---------------------------------------------------------------------*
*& Form FIXDATA
*&---------------------------------------------------------------------*
FORM fixdata USING tknum TYPE ty_header-tknum.
DATA: index LIKE sy-tabix .
DATA:wa_itab TYPE ty_sum.
LOOP AT itab INTO wa_itab.
IF tknum EQ wa_itab-tknum.
hs_sum
= wa_itab.
COLLECT hs_sum.
hs_col
= wa_itab-name1 .
COLLECT hs_col.
ENDIF.
ENDLOOP.
SORT hs_col.
itab_col[]
= hs_col[].
itab_sum[]
= hs_sum[].
LOOP AT itab_sum.
itab_out
-tknum = itab_sum-tknum.
itab_out
-matnr = itab_sum-matnr .
itab_out
-arktx = itab_sum-arktx .
itab_out
-vrkme = itab_sum-vrkme .
itab_out
-lgort = itab_sum-lgort.
READ TABLE itab_col WITH KEY name1 = itab_sum-name1 .
index = sy-tabix + 5."3这个数字代表有几列是固定不变的
ASSIGN COMPONENT index OF STRUCTURE itab_out TO <f_fs1>.
<f_fs1>
= itab_sum-lfimg.
itab_out
-line_sum = itab_sum-lfimg.
itab_out
-brgew_sum = itab_sum-brgew.
COLLECT itab_out.
CLEAR itab_out.
ENDLOOP.
ENDFORM. " FIXDATA
FORM frm_catlg_set USING p_field p_text p_key p_edit p_no_out p_do_sum.
gs_fcat
-fieldname = p_field.
gs_fcat
-reptext = p_text.
gs_fcat
-key = p_key.
gs_fcat
-edit = p_edit.
gs_fcat
-no_out = p_no_out.
gs_fcat
-do_sum = p_do_sum.
IF p_field = 'LINE_SUM'.
gs_fcat
-emphasize = 'C700'.
ENDIF.
APPEND gs_fcat TO gt_fcat .
CLEAR gs_fcat .
ENDFORM. "frm_catlg_set
FORM fieldcat_init USING grid_title TYPE lvc_s_layo-grid_title.
DATA: c(2) TYPE n ,
txt
(20) TYPE c .
PERFORM frm_catlg_set USING:
'MATNR' '物料编码' 'X' '' '' '' ,
'ARKTX' '物料描述' 'X' '' '' '',
'VRKME' '单位' 'X' '' '' '' ,
'LGORT' '库存地点' 'X' '' '' ''.
LOOP AT hs_col .
c = c + 1.
CONCATENATE '' c INTO txt.
PERFORM frm_catlg_set USING: txt hs_col-name1 '' '' '' 'X' .
ENDLOOP.
PERFORM frm_catlg_set USING: 'LINE_SUM' '数量合计' '' '' '' 'X' .
PERFORM frm_catlg_set USING: 'BRGEW_sum' '毛重' '' '' '' 'X'.
gs_layo
-zebra = 'X'.
gs_layo
-grid_title = 'dongdong'.
gs_layo
-smalltitle = 'X'.
ENDFORM. "fieldcat_init
FORM outdata USING grid_title TYPE lvc_s_layo-grid_title.
PERFORM fieldcat_init USING grid_title .
PERFORM show_alv TABLES gt_fcat itab_out[]
USING gs_layo.
ENDFORM. " outdata
FORM show_alv TABLES pt_fcat
pt_tab
USING ps_layout.
gs_grid
-edt_cll_cb = 'X'."当屏幕失去焦点时，自动刷新
gt_event
-name = 'CALLER_EXIT'. "slis_ev_caller_exit_at_start事件
gt_event
-form = 'FM_BUTTON'.
APPEND gt_event .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program
= sy-repid
i_callback_user_command
= 'USER_COMMAND'
i_grid_settings
= gs_grid
i_callback_pf_status_set
= 'SET_PF_STATUS'
is_layout_lvc
= ps_layout
it_fieldcat_lvc
= pt_fcat[]
it_events
= gt_event[]
i_save
= 'X'
* it_event_exit = gt_event_exit[]
TABLES
t_outtab
= pt_tab
EXCEPTIONS
program_error
= 1
OTHERS = 2.
ENDFORM. "csalv_set_fcat
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield
TYPE slis_selfield.
CASE r_ucomm.
WHEN '&DATA_SAVE'.
WHEN '&SAVE' .
"PERFORM PRINT.
DATA: path LIKE rlgrap-filename..
DATA :file_path LIKE rlgrap-filename.
PERFORM set_file_path CHANGING path.
READ TABLE itab_out.
"LOOP AT itab_out .
file_path
= path && '\运单' && itab_out-tknum && '发货通知单.xls'.
PERFORM frm_download_template USING file_path."'C:\Users\DONG\Desktop\发货通知单.XLS'.
PERFORM data_to_excel USING file_path wa_header." 'C:\Users\DONG\Desktop\发货通知单.XLS'.
CLEAR itab_out.
"ENDLOOP.
"READ TABLE GT_HEADER_SHOW INTO WA_HEADER INDEX 1.
"CONCATENATE PATH '\产品发货单.xls' INTO FILE_PATH.
IF sy-subrc EQ 0 .
MESSAGE s004(zmess) WITH '导出成功！'.
ENDIF.
CLEAR path.
CLEAR file_path.
WHEN OTHERS.
LEAVE TO SCREEN 0.
ENDCASE.
ENDFORM. "user_command
*&---------------------------------------------------------------------*
*& Form SET_PF_STATUS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RT_EXTAB text
*----------------------------------------------------------------------*
FORM set_pf_status USING rt_extab TYPE slis_t_extab..
SET PF-STATUS 'STANDARD'.
ENDFORM. "SET_PF_STATUS
*&---------------------------------------------------------------------*
*& Form fm_button
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->E_GRID text
*----------------------------------------------------------------------*
FORM fm_button USING e_grid TYPE slis_data_caller_exit.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
* EXPORTING
* IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
* ET_EXCLUDING =
* E_REPID =
* E_CALLBACK_PROGRAM =
* E_CALLBACK_ROUTINE =
e_grid
= ref_grid
* ET_FIELDCAT_LVC =
* ER_TRACE =
* E_FLG_NO_HTML =
* ES_LAYOUT_KKBLO =
* ES_SEL_HIDE =
* ET_EVENT_EXIT =
* ER_FORM_TOL =
* ER_FORM_EOL =
.
* CALL METHOD ref_grid->check_changed_data.
* 设置enter事件
CALL METHOD ref_grid->register_edit_event
EXPORTING
i_event_id
= cl_gui_alv_grid=>mc_evt_enter
EXCEPTIONS
error
= 1
OTHERS = 2.
"CREATE OBJECT gt_event_receiver.
"SET HANDLER gt_event_receiver->handle_modify FOR ref_grid.
ENDFORM. "FM_BUTTON
FORM fill_cell USING i_row i_col p_value.
CALL METHOD OF excel 'CELLS' = cell
EXPORTING #1 = i_row #2 = i_col.
SET PROPERTY OF cell 'VALUE' = p_value.
ENDFORM. "fill_cell
FORM data_to_excel USING c_path wa_header TYPE ty_header.
* Create an Excel object and start Excel.
CREATE OBJECT excel 'EXCEL.APPLICATION'.
IF sy-subrc <> 0.
MESSAGE 'The excel object can''t be created' TYPE 'I'.
ENDIF.
* Create an Excel workbook Object.
CALL METHOD OF excel 'WORKBOOKS' = workbook .
* Transfer the header line to Excel.
CALL METHOD OF workbook 'OPEN' EXPORTING #1 = c_path.
"READ TABLE gt_header_show INTO wa_header INDEX 1.
DATA:txt(30).
CONCATENATE '运单号：' wa_header-tknum INTO txt.
PERFORM fill_cell USING 4 1 txt.
CLEAR txt.
CONCATENATE '装运点：' wa_header-tplst INTO txt.
PERFORM fill_cell USING 4 3 txt.
CLEAR txt.
DATA: l_erdat TYPE char10.
l_erdat
= wa_header-erdat(4) && '-' && wa_header-erdat+4(2) && '-' && wa_header-erdat+6(2).
CONCATENATE '装运日期：' l_erdat INTO txt.
PERFORM fill_cell USING 4 8 txt.
CLEAR txt.
CONCATENATE '物流公司：' wa_header-tdlnr INTO txt.
PERFORM fill_cell USING 5 1 txt.
CLEAR txt.
CONCATENATE '线路：' wa_header-route INTO txt.
PERFORM fill_cell USING 5 3 txt.
CLEAR txt.
DATA: l_distz TYPE char13.
l_distz
= wa_header-distz.
CONCATENATE '里程：' l_distz INTO txt.
PERFORM fill_cell USING 5 8 txt.
CLEAR txt.
CONCATENATE '车主/车号：' wa_header-add01 INTO txt.
PERFORM fill_cell USING 6 1 txt.
CLEAR txt.
CONCATENATE '卸货点：' wa_header-exti1 INTO txt.
PERFORM fill_cell USING 6 3 txt.
CLEAR txt.
CONCATENATE '司机：' wa_header-add02 INTO txt.
PERFORM fill_cell USING 6 8 txt.
CLEAR txt.
DATA:l_total_brgew TYPE char13.
l_total_brgew
= wa_header-total_brgew.
CONCATENATE '重量：' l_total_brgew INTO txt.
PERFORM fill_cell USING 7 1 txt.
CLEAR txt.
CONCATENATE '库存地点：' wa_header-lgort INTO txt.
PERFORM fill_cell USING 7 3 txt.
CLEAR txt.
CONCATENATE '车厢类型：' wa_header-bfart INTO txt.
PERFORM fill_cell USING 7 8 txt.
CLEAR txt.
DATA:wa_sum TYPE itab_sum,
l_col
TYPE sy-index.
FIELD-SYMBOLS: <f>.
DATA : cust_num TYPE i.
DESCRIBE TABLE itab_col LINES cust_num.
DATA :rows TYPE i VALUE 10."行数据从第十一行开始
LOOP AT itab_out INTO wa_sum.
* CALL METHOD OF excel 'ROWS' = row EXPORTING #1 = '11' .
* CALL METHOD OF row 'INSERT'.
IF wa_sum-tknum EQ wa_header-tknum.
rows = rows + 1.
CLEAR: l_col.
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE wa_sum TO <f>.
IF sy-index GT ( cust_num + 5 ).
EXIT.
ENDIF.
ADD 1 TO l_col.
PERFORM fill_cell USING rows l_col <f>. "wa_sum-matnr.
ENDDO.
" CONCATENATE '' wa_sum-LGORT INTO TXT.
"PERFORM fill_cell USING 11 5 TXT.
CLEAR txt.
ENDIF.
ENDLOOP.
CLEAR wa_header.
*客户名称填充开始
DATA: c(2) .
DATA:cols TYPE i.
LOOP AT hs_col .
c = c + 1.
cols
= c + 5.
CONCATENATE '' c INTO txt.
PERFORM fill_cell USING 8 cols hs_col-name1 .
ENDLOOP.
*客户名称填充结束
GET PROPERTY OF excel 'ACTIVEWORKBOOK' = workbook.
* release and exit Excel.
CALL METHOD OF workbook 'SAVE'.
CALL METHOD OF excel 'QUIT'.
* Free all objects
FREE OBJECT cell.
FREE OBJECT workbook.
FREE OBJECT excel.
excel
-handle = -1.
FREE OBJECT row.
ENDFORM.
FORM frm_download_template USING c_path .
DATA: lv_objdata LIKE wwwdatatab,
lv_obj_name
LIKE wwwdatatab-objid,
lv_destination
LIKE rlgrap-filename,
lv_objid
LIKE sy-repid,
lv_subrc
LIKE sy-subrc.
DATA:l_ret TYPE abap_bool,
lv_answer
.
DATA:lv_file TYPE string.
MOVE c_path TO lv_file.
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file
= lv_file
RECEIVING
result
= l_ret
EXCEPTIONS
cntl_error
= 1
error_no_gui
= 2
wrong_parameter
= 3
not_supported_by_gui
= 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
EXIT.
ENDIF.
IF l_ret EQ 'X'.
* 模版已存在，是否覆盖
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question
= '模版已存在，是否覆盖？'
text_button_1
= '是'(001)
text_button_2
= '否'(002)
IMPORTING
answer
= lv_answer
EXCEPTIONS
text_not_found
= 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
IF lv_answer EQ 'A'. "取消
EXIT.
ELSEIF lv_answer NE '1'. "否
"p_filepath = c_path.
ENDIF.
ELSE.
lv_answer
= '1'.
ENDIF.
CREATE OBJECT excel 'EXCEL.APPLICATION'.
GET PROPERTY OF excel 'Workbooks' = workbook .
CALL METHOD OF
workbook
'Close'.
IF lv_answer EQ '1'.
MOVE 'ZSD_FHTZD_NEW' TO lv_obj_name."引用传入到服务器中xls模板
SELECT relid objid
FROM wwwdata
INTO CORRESPONDING FIELDS OF lv_objdata
UP TO 1 ROWS
WHERE srtf2 = 0 AND relid = 'MI'
AND objid = lv_obj_name.
ENDSELECT.
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
EXPORTING
key = lv_objdata
destination
= c_path
IMPORTING
rc
= lv_subrc.
* IF lv_subrc = 0.
* p_filepath = c_path.
* ENDIF.
ENDIF.
* CALL METHOD OF
* g_workbook
* 'open'
*
* EXPORTING
* #1 = c_path.
*
* CALL METHOD OF
* g_excel
* 'worksheets' = g_sheet
* EXPORTING
* #1 = 1.
* CALL METHOD OF
* g_sheet
* 'activate'.
"SET PROPERTY OF g_excel 'visible' = 0.
FREE OBJECT sheet.
"FREE OBJECT g_applica.
FREE OBJECT workbook.
FREE OBJECT excel.
ENDFORM. "frm_download_template
FORM set_file_path CHANGING filepath LIKE rlgrap-filename.
DATA: gd_path TYPE string.
DATA: it_tab TYPE filetable,
gd_subrc
TYPE i.
DATA: ld_filename TYPE string,
ld_path
TYPE string,
ld_fullpath
TYPE string,
ld_result
TYPE i,
gd_file
TYPE c.
DATA:"filepath LIKE rlgrap-filename,
openfile
LIKE rlgrap-filename.
CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
window_title
= '文件路径选择'
initial_folder
= 'C:'
CHANGING
selected_folder
= gd_path.
CALL METHOD cl_gui_cfw=>flush.
CONCATENATE gd_path '' INTO filepath.
* CALL METHOD cl_gui_frontend_services=>file_open_dialog
* EXPORTING
* window_title = 'Select File'
* default_filename = '*.txt'
* multiselection = 'X'
* CHANGING
* file_table = it_tab
* rc = gd_subrc.
** LOOP AT it_tab INTO openfile-low.
** openfile-sign = 'I'.
** openfile-option = 'EQ'.
** APPEND openfile.
** ENDLOOP.
* CALL METHOD cl_gui_cfw=>flush.
*
*CALL METHOD cl_gui_frontend_services=>file_save_dialog
* EXPORTING
* default_extension = 'XLS'
* default_file_name = '产品出库单'
* initial_directory = 'c:/temp/'
* CHANGING
* filename = ld_filename
* path = filepath
* fullpath = ld_fullpath
* user_action = ld_result.
ENDFORM.