Objektif |
|
Kode Transaksi |
|
Support |
|
1.Buka t-Code "SE37"
2.Masukkan Function Baru "YFM_DATE_TO_STRING"
3.Klik "
"
4.Isikan Function group dengan "YFG_UTILITIES" dan Short text dengan "Convert Date to String"
5.Klik "
" untuk menyimpan function
6.Tambahkan variabel impor seperti gambar dibawah
7.Tambahkan variabel ekspor seperti gambar dibawah
8.Tambahkan Kode Sintak Salin dan paste kode berikut pada tab "Source Code"
FUNCTION yfm_date_to_string. *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(GV_DATE) LIKE SY-DATUM DEFAULT SY-DATUM *" VALUE(GV_SEPARATOR) TYPE C DEFAULT '.' *" VALUE(GV_FORMAT) DEFAULT 'DMY' *" VALUE(GV_MONTH_TYPE) TYPE I DEFAULT 1 *" VALUE(GV_SPRAS) LIKE SY-LANGU DEFAULT SY-LANGU *" EXPORTING *" REFERENCE(GV_RESULT) *"----------------------------------------------------------------------
TABLES : t247.
DATA : gv_day(2) TYPE c, gv_month(2) TYPE c, gv_year(4) TYPE c, gv_str(3) TYPE c.
* Split date into its parts gv_year = gv_date(4). gv_month = gv_date+4(2). gv_day = gv_date+6(2).
* Get Month IF gv_month_type <> 0. SELECT SINGLE * FROM t247 WHERE spras = gv_spras AND mnr = gv_month. ENDIF.
* Proses gv_result = ''. CASE gv_format. WHEN 'DMY'. IF gv_separator IS INITIAL. CASE gv_month_type. WHEN 0. CONCATENATE gv_day gv_month gv_year INTO gv_result SEPARATED BY space. WHEN 1. CONCATENATE gv_day t247-ktx gv_year INTO gv_result SEPARATED BY space. WHEN 2. CONCATENATE gv_day t247-ltx gv_year INTO gv_result SEPARATED BY space. ENDCASE. ELSE. CASE gv_month_type. WHEN 0. CONCATENATE gv_day gv_separator gv_month gv_separator gv_year INTO gv_result. WHEN 1. CONCATENATE gv_day gv_separator t247-ktx gv_separator gv_year INTO gv_result. WHEN 2. CONCATENATE gv_day gv_separator t247-ltx gv_separator gv_year INTO gv_result. ENDCASE. ENDIF. WHEN 'MDY'. IF gv_separator IS INITIAL. CASE gv_month_type. WHEN 0. CONCATENATE gv_month gv_day gv_year INTO gv_result SEPARATED BY space. WHEN 1. CONCATENATE t247-ktx gv_day gv_year INTO gv_result SEPARATED BY space. WHEN 2. CONCATENATE gv_day ',' INTO gv_str.
CONCATENATE t247-ltx gv_str gv_year INTO gv_result SEPARATED BY space. ENDCASE. ELSE. CASE gv_month_type. WHEN 0. CONCATENATE gv_month gv_separator gv_day gv_separator gv_year INTO gv_result. WHEN 1. CONCATENATE t247-ktx gv_separator gv_day gv_separator gv_year INTO gv_result. WHEN 2. CONCATENATE gv_day ',' INTO gv_str.
CONCATENATE t247-ltx gv_str gv_year INTO gv_result SEPARATED BY space. ENDCASE. ENDIF. WHEN 'YMD'. IF gv_separator IS INITIAL. CASE gv_month_type. WHEN 0. CONCATENATE gv_year gv_month gv_day INTO gv_result SEPARATED BY space. WHEN 1. CONCATENATE gv_year t247-ktx gv_day INTO gv_result SEPARATED BY space. WHEN 2. CONCATENATE gv_year t247-ltx gv_day INTO gv_result SEPARATED BY space. ENDCASE. ELSE. CASE gv_month_type. WHEN 0. CONCATENATE gv_year gv_separator gv_month gv_separator gv_day INTO gv_result. WHEN 1. CONCATENATE gv_year gv_separator t247-ktx gv_separator gv_day INTO gv_result. WHEN 2. CONCATENATE gv_year gv_separator t247-ltx gv_separator gv_day INTO gv_result. ENDCASE. ENDIF. ENDCASE.
ENDFUNCTION. |
9.Simpan dan aktifkan function
▪Input
▪Output
Dibuat Oleh : Endro Koesno/EDP/WINGS
Dimodifikasi Oleh : Albertus Reinandang