Berikut potongan code untuk memunculkan search help F4 file ABAP pada selection screen
PARAMETERS: p_file TYPE string.
penjelasan: gunakan code ini pada selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
"Popup file open
PERFORM f_f4_file CHANGING p_file.
penjelasan: deklarasikan event ini setelah deklarasi selection screen
FORM f_f4_file CHANGING pc_flupld TYPE string..
DATA: lt_filetable TYPE filetable,
ls_filetable TYPE file_table,
lv_subrc TYPE i.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
file_filter = 'Excel Files (*.XLSX)|*.XLSX|' ##NO_TEXT " cl_gui_frontend_services=>filetype_excel "
CHANGING
file_table = lt_filetable
rc = lv_subrc
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.
ELSE.
READ TABLE lt_filetable INTO ls_filetable INDEX 1.
pc_flupld = ls_filetable-filename.
ENDIF.
ENDFORM.
Penjelasan: contoh code ini digunakan untuk upload file berformat excel, custom di bagian extensionnya untuk menentukan filter extensionnya. Jika ingin all files maka gunakan * .
Code ini hanya digunakan untuk memilih hanya satu file.
1 thought on “F4 Search Help File”