WS_FILENAME_GET 이걸 사용했는데요..
저 펑션사용하려고 패턴눌러서 저 함수 검색하면요..
"Function 모듈 WS_FILENAME_GET을(를) 폐기합니다 -사용하지 마십시오 "
이렇게나오는데요.. 사용해서 결과는 제대로 나오기는 하는데요....
버젼은 ECC 6.0입니다..
그럼 다른걸 사용해야 하는건가요? 그냥 사용해도되는건지..
비슷한게 안보이는데..아시는분 알려주세요..^^ 부탁드립니다..ㅜㅜ
WS_FILENAME_GET 이걸 사용했는데요..
저 펑션사용하려고 패턴눌러서 저 함수 검색하면요..
"Function 모듈 WS_FILENAME_GET을(를) 폐기합니다 -사용하지 마십시오 "
이렇게나오는데요.. 사용해서 결과는 제대로 나오기는 하는데요....
버젼은 ECC 6.0입니다..
그럼 다른걸 사용해야 하는건가요? 그냥 사용해도되는건지..
비슷한게 안보이는데..아시는분 알려주세요..^^ 부탁드립니다..ㅜㅜ
아래와 같이 해보세요.
Method를 사용한 방법입니다.
DATA: lv_subrc LIKE sy-subrc,
lv_has_field_separator TYPE char01,
lv_filename TYPE string,
lv_path TYPE string,
lv_fullpath TYPE string,
lv_default_extension TYPE string,
lv_file_filter TYPE string,
lv_initial_directory TYPE string,
lv_default_file_name TYPE string,
lt_file_table TYPE filetable,
ls_file_table TYPE LINE OF filetable.
lv_default_extension = 'TXT'.
lv_default_file_name = '*.TXT'.
lv_initial_directory = 'C:'.
CONCATENATE cl_gui_frontend_services=>filetype_all
cl_gui_frontend_services=>filetype_text
cl_gui_frontend_services=>filetype_excel
INTO lv_file_filter.
CALL METHOD cl_gui_frontend_services=>get_upload_download_path
CHANGING
upload_path = lv_initial_directory
download_path = lv_path
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
gui_upload_download_path = 4
upload_download_path_failed = 5
OTHERS = 6.
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.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
* window_title =
default_extension = lv_default_extension
default_filename = lv_default_file_name
file_filter = lv_file_filter
* with_encoding =
initial_directory = lv_initial_directory
* multiselection =
CHANGING
file_table = lt_file_table
rc = lv_subrc
* user_action =
* file_encoding =
EXCEPTIONS
file_open_dialog_failed = 1
cntl_error = 2
error_no_gui = 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.
ELSE.
READ TABLE lt_file_table INTO ls_file_table INDEX 1.
IF sy-subrc = 0.
lv_filename = ls_file_table-filename.
ELSE.
EXIT.
ENDIF.
ENDIF.