스크린문에서 파일업로드 파라메타를 아래와 설정을 하였지만 파일탐색 도움말이 나오지
않아 문의드립니다.
SELECTION-SCREEN BEGIN OF BLOCK B04 WITH FRAME TITLE TEXT-013.
PARAMETER : PA_FILE LIKE RLGRAP-FILENAME DEFAULT 'C:'
VISIBLE LENGTH 50 OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B04.
현재는 수작업으로 쓰고 있습니다.
댓글 4
-
기쁨
2011.03.23 13:14
-
케리언
2011.03.23 13:20
답변 감사합니다.
제가 문의한 것은 텍스트박스에 possible enfry 즉 F4도움말이 나오지 않는 것입니다.
-
테라스
2011.03.23 14:18
질문하신것 처럼 하시면 원래 f4 도움말이 나오지 않습니다.
RLGRAP 의 FILENAME 필드에는 f4도움말이 설정되어있지 기때문입니다.
기쁨님 소스코드를 사용해서 하시면 f4 도움말이 나올껍니다.
-
케리언
2011.03.23 15:21
제가 잠깐 착각했습니다.
기쁨님 테라스님 답변 감사합니다.
아래소스 참고하세요.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file.
PERFORM read_filename.
서브루틴....
FORM read_filename .
DATA:
ld_def_path TYPE string,
ld_rc TYPE i VALUE 1,
ld_mask TYPE string VALUE
'All(*.*)|*.*|Excel-Sheet(*.xls)|*.xls|Excel-Sheet(*.xlsx)|*.xlsx|',
ld_window_title TYPE string,
lt_files TYPE filetable,
filename TYPE string.
IF ld_def_path IS INITIAL.
ld_def_path = 'C:SAPworkdir'.
ENDIF.
* returns default path for up- and download
CALL METHOD cl_gui_frontend_services=>directory_get_current
CHANGING
current_directory = ld_def_path.
* calls selection-popup -> returns upload-path + filename
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
window_title = ld_window_title
default_filename = space
file_filter = ld_mask
initial_directory = ld_def_path
CHANGING
file_table = lt_files
rc = ld_rc.
READ TABLE lt_files INTO filename INDEX 1.
pa_file = filename.
ENDFORM. " READ_FILENAME