Objektif |
|
Kode Transaksi |
|
Support |
|
1.Buka t-Code "SE37"
2.Masukkan Function Baru "YFM_OPEN_DIALOG"
3.Klik "
"
4.Isikan Function group dengan "YFG_UTILITIES" dan Short text dengan "Run Open Dialog"
5.Klik "
" untuk menyimpan function
6.Tambahkan variabel impor seperti gambar dibawah
7.Tambahkan variabel changing seperti gambar dibawah
8.Tambahkan variabel exception seperti gambar dibawah
9.Tambahkan Kode Sintak Salin dan paste kode berikut pada tab "Source Code"
FUNCTION yfm_open_dialog. *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(GV_PATHNAME) OPTIONAL *" VALUE(GV_TITLE) TYPE C DEFAULT 'Select File' *" VALUE(GV_MASK) DEFAULT ',*.*,*.*.' *" CHANGING *" VALUE(GV_PATHFILE) *" EXCEPTIONS *" GV_CANCELED_BY_USER *" GV_SYSTEM_ERROR *"----------------------------------------------------------------------
DATA: lv_pathfile LIKE /sapdmc/lsscreen-pathfile, lv_pathname LIKE /sapdmc/lsscreen-pathname.
lv_pathfile = gv_pathfile. lv_pathname = gv_pathname.
IF lv_pathname IS INITIAL. CALL FUNCTION '/SAPDMC/LSM_PATH_FILE_SPLIT' EXPORTING pathfile = lv_pathfile IMPORTING pathname = lv_pathname EXCEPTIONS OTHERS = 1. ENDIF.
CALL FUNCTION 'WS_FILENAME_GET' EXPORTING def_filename = ' ' def_path = lv_pathname mask = gv_mask " unbedingt erforderlich! mode = 'O' title = gv_title IMPORTING filename = lv_pathfile EXCEPTIONS inv_winsys = 1 no_batch = 2 selection_cancel = 3 selection_error = 4 OTHERS = 5.
CASE sy-subrc. WHEN 0. gv_pathfile = lv_pathfile. WHEN 3. RAISE gv_canceled_by_user. WHEN OTHERS. RAISE gv_system_error. ENDCASE.
ENDFUNCTION. |
10.Simpan dan aktifkan function
▪Input
▪Output
