ABAP 内表的行列转换-发货通知单-打印到Excel里

 

需要传入数据到Excel里的模板如上图所示

 

 

 *&---------------------------------------------------------------------*
*& Report  Z_TEST_COL_TO_ROW_02
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT z_test_col_to_row_02.
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 ,
        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 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 ,         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 OBLIGATORY,                   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.   
PERFORM fixdata.   
PERFORM outdata.   

"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.   
DATA: index LIKE sy-tabix .   
DATA:wa_itab TYPE  ty_sum.   
LOOP AT itab INTO wa_itab.     hs_sum 
= wa_itab.     
COLLECT hs_sum.     hs_col 
= wa_itab-name1 .     
COLLECT hs_col.   
ENDLOOP.   

SORT hs_col.   itab_col[] 
= hs_col[].   itab_sum[] 
= hs_sum[].   
LOOP AT itab_sum.     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 .   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.   

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 .   
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 '' '' ''  .   
ENDLOOP.   
PERFORM frm_catlg_set USING: 'LINE_SUM' '数量合计' '' '' '' .   
PERFORM frm_catlg_set USING: 'BRGEW_sum' '毛重' '' '' '' .   gs_layo

-zebra             = 'X'.

ENDFORM. "fieldcat_init

FORM outdata.   
PERFORM fieldcat_init .   
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            
= gs_layo       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 GT_HEADER_SHOW INTO WA_HEADER INDEX 1.       
"CONCATENATE PATH  '\产品发货单.xls' INTO FILE_PATH.        FILE_PATH 
= PATH && '\运单' && WA_HEADER-TKNUM && '发货通知单.xls'.       
PERFORM frm_download_template USING FILE_PATH."'C:\Users\DONG\Desktop\发货通知单.XLS'.       
PERFORM data_to_excel USING FILE_PATH." 'C:\Users\DONG\Desktop\发货通知单.XLS'.       
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.

*  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.   

CLEAR wa_header.   

DATA:wa_sum TYPE itab_sum,        l_col 
TYPE sy-index.   


FIELD-SYMBOLS: <f>.   

LOOP AT itab_out INTO wa_sum.     
CALL METHOD OF excel 'ROWS' = row EXPORTING #1 = '11' .     
CALL METHOD OF row 'INSERT'.     

CLEAR: l_col.     

DO.       
ASSIGN COMPONENT sy-index OF STRUCTURE wa_sum TO <f>.       
IF sy-index GT 9.         
EXIT.       
ENDIF.       

ADD 1 TO l_col.       

PERFORM fill_cell USING 11 l_col <f>. "wa_sum-matnr.     


ENDDO.     
"  CONCATENATE '' wa_sum-LGORT   INTO TXT.     
"PERFORM fill_cell USING 11 5 TXT.     
CLEAR txt.   
ENDLOOP.

*客户名称填充开始   
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' TO lv_obj_name.     
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.