TIPTOP内置函数Word格式.docx

1、CALL cl_batch_proc（ls_headers） cl_cal cl_cal.4gl 傳入當前日期，要增加的月份及天數取得計算過後的日期 p_date 日期 p_month 月份 p_day 日 l_year,l_month,l_day LET l_date=cl_cal（p_date,p_mm,p_dd） cl_chg_comp_att cl_chg_comp_att.4gl 更動原有對象的attribute ps_field STRING 欲更動欄位名稱 ps_atts STRING 欄位type 屬性 ps_values STRING 欄位type 屬性值 CALL cl_c

2、hg_comp_att （ima01,NOENTRY|ITEMS1|（1,2,3）,（red,b lue,green） cl_chg_win_title cl_chg_win_title.4gl 轉換程式Title 顯示 ps_str 顯示字串 CALL cl_chg_win_title（“用戶參數設定作業”） cl_chk_act_auth cl_chk_act_auth.4gl 檢查ACTION 的許可權檢查前務必指定g_action_choice 值 1 FOR TRUE 是 0 FOR FALSE 否 LET g_action_choice = “insert” IF cl_chk_a

3、ct_auth（） THEN cl_chk_data_continue cl_chk_data_continue.4gl 檢查資料是否連續 ps_source STRING 來源資料 IF NOT cl_chk_data_continue（g_pmw.pmw015,10） THEN cl_chk_str_correct 檢查字串是否符合09,az ps_count SMALLINT 檢查幾碼，如果未傳幾碼，則會以 來源字串長度當作ps_count li_result SMALLINT 回傳結果 IF NOT cl_chk_data_continue（g_pmw.pmw011,3） THEN c

4、l_chkym cl_chkym.4gl 檢查文字型態變數是否為年月型態 p_str CHAR（6） 文字型態變數 IF cl_chkym（p_str） cl_choice cl_choice.4gl 讓用戶輸入選擇 l_msg CHAR（100） 視窗上顯示的說明文字 l_choice CALL cl_choice（l_msg） RETURNING g_choice cl_open_url cl_client_app.4gl 藉由explorer 開啟傳入的網址 ps_url STRING 網址 CALL cl_open_url（http:/wwwcl_open_doc 開啟檔案 ps_do

5、c STRING 檔案位置 CALL cl_open_doc（C:/tiptop/tiptop.txtcl_open_prog 藉由指定的程式開啟檔案 ps_prog STRING 程式工具 ps_arg STRING 檔案位置 CALL cl_open_prog（/Editor.exe, cl_close cl_close.4gl 詢問此筆資料是否確定結案（Y/N）：或此筆資料是否取消結案（Y/N）：p_row,p_col 無作用，傳入0,0 即可 p_old_acticode 傳入Y 代表訊息為取消結案；N 代表確定結案 IF cl_close（0,0,”Y”） cl_cmdask cl_

6、cmdask.4gl 詢問用戶欲執行的程式，並執行之 CALL cl_cmdask（） cl_cmdat cl_cmdat.4gl 指定時間延後執行UNIX 指令 p_time 指定時間 p_cmd UNIX 指令 CALL cl_cmdat（p_code,p_time,p_cmd） cl_cmdrun 執行UNIX 指令 ps_cmd 程式碼或UNIX 執行指令 CALL cl_cmdrun（axmq450cl_cmdrun_wait 執行UNIX 指令，需等待此指令結束後才可繼續原程式的執行 LET l_cmd=axmp800 ,g_oea.oea01, ,g_oea.oea905, CA

7、LL cl_cmdrun_wait（l_cmd） cl_cmmsg cl_cmmsg.4gl 顯示異動更新成功訊息 p_code 訊息種類1 及4 代表異動更新完成 2 及3 代表此張單據異動更新完成 CALL cl_cmmsg（1） cl_conf3 cl_conf3.4gl 根據MESSAGE CODE 取出正確訊息，詢問 配合發票的使用，本作業允許用戶不輸入資料 p_row,p_col 無作用 p_msgcode IF cl_conf（0,0,p_msgcode） THEN cl_confirm cl_confirm.4gl 依照訊息代碼將資料顯示在畫面上，詢問是否 ps_msg 訊息代

8、碼或訊息字串 IF （cl_confirm（agl-021） THEN cl_cont cl_cont.4gl 是否繼續執行本作業（Y/N）：IF cl_cont（0,0） THEN cl_create_4sm cl_create_4sm.4gl 產生udm_tree 所需要的StartMenu 檔案 pc_menu_root StartMenu 的根節點 pi_rebuild 是否需要重新覆蓋已存在的4sm 檔案 CALL cl_create_4sm（m01, TRUE） cl_create_qry cl_create_qry.4gl 動態產生視窗以供查詢，並回傳查詢結果 ms_ret1,m

9、s_ret2,ms_ret3 回傳數目依照對應的回傳欄位數 CALL cl_create_qry（） RETURNING g_oea.oea14 cl_dynamic_qry 自定義/行業別欄位動態產生開窗功能，並回傳查詢結果 CALL cl_dynamic_qry（） RETURNING g_oea.oeaida001 cl_days cl_days.4gl 取得該年月的天數 p_year 年份 l_days 天數 let l_days=cl_days（p_yy,p_mm） cl_delb cl_delb.4gl 是否確定取消此筆單身資料（Y/N）：（for 單檔建檔程式單身取消功能ON K

10、EY F2） p_row,p_col IF cl_delb（0,0） THEN cl_delete cl_delete.4gl 詢問是否刪除此筆資料？ IF （cl_delete（） THEN cl_delh cl_delh.4gl 是否確定刪除此筆單頭及所有單身資料（Y/N）：（for 單檔建檔程式單頭刪除功能） if cl_delh（0,0）cl_delh1cl_delh1.4gl是否確定取消此筆單頭及所有單身資料（Y/N）：（for 單檔建檔程式單頭取消功能）p_row,p_col1 FOR TRUE 是0 FOR FALSE 否if cl_delh1（0,0）cl_detail_inp

11、ut_authcl_detail_input_auth.4gl檢查是否允許在單身中有insert 或delete 的許可權ps_act_type STRING 要檢查的字串（insert/delete）CALL cl_detail_input_auth（insert）cl_digcutcl_digcut.4gl將數值依指定的小數位數做四捨五入p_value 數值p_digit 允許小數位數p_value 四捨五入後的數值LET a = cl_digcut（p_value,p_digit）cl_doccl_doc.4gl相關檔案維護noneLET g_doc.column1 = oea01LET

12、 g_doc.value1 = g_oea.oea01CALL cl_doc（）cl_dynamic_localecl_dynamic_locale.4gl動態轉換畫面語言別CALL cl_dynamic_locale（）cl_endcl_end.4gl顯示作業結束，請按任何鍵繼續：p_row,p_col 無作用CALL cl_end（0,0）cl_end2cl_end2.4gl顯示執行結果，並詢問是否要繼續作業p_code （1 代表成功，2 代表失敗）CALL cl_end2（1） RETURNING l_flagcl_errcl_err.4gl顯示錯誤訊息p_msg 錯誤訊息的附加說明e

13、rr_code 錯誤訊息代碼p_n 顯示錯誤訊息後的停留秒數或是等用戶按下確定0 ：不開啟訊息視窗，只在狀態列顯示 1 ：停留秒數1 ：開啟訊息視窗等待用戶確定CALL cl_err（p_msg,err_code,p_n）cl_err_msgcl_err_msg.4glps_title 錯誤訊息的附加說明ps_err_code 錯誤訊息代碼ps_replace_arg 欲替換的訊息字串，以”| ”分隔字串pi_idle_sec idle 秒數CALL cl_err_msg（Warning1000,NULL,1）cl_err3顯示資料庫處理後的錯誤訊息（insert/update/delete/

14、select）Type 訊息的類型（ins、del、upd、sel）Tables 處理的table 代碼Key1 Key1 的valueKey2 Key2 的valueDescription 額外訊息（訊息代碼/訊息字串）Action 訊息Action 代碼（未來延伸功能，可不傳）Mark 按下更多按鍵時顯示的訊息Open 是否開窗（0/1）CALL cl_err3（insazb_file,g_azb01,SQLCA.sqlcode,0）cl_err_msg_log紀錄錯誤訊息WHENEVER ERROR CALL cl_err_msg_logcl_expcl_exp.4gl此筆資料是否確定無

15、效（Y/N）：此筆資料是否恢復有效（Y/N）：（for 單檔建檔無效功能）p_old_acticode 有效碼Y/NIF cl_exp（0,0,g_pmw.pmwacti） THENcl_export_to_excelcl_export_to_excel.4gln 畫面的根節點元件ui.Interface.getRootNode（）t、t1、t2 單身的資料若有兩個以上的單身才會用到t1、t2CALL cl_export_to_excel（ui.Interface.getRootNode（）,base.TypeInfo.create（g_pmx）,cl_facforcl_facfor.4gl將

16、INPUT DECLIAM（16,8） 數值轉為9 位元字元的格式若值為12345678 , 將傳回12345678若值為1234567 , 將傳回1234567.0若值為123456 , 將傳回123456.00若值為12345.67 , 將傳回12345.670若值為1.234567 , 將傳回1.2345670若值為.1234567 , 將傳回.12345670p_fac 數值l_str FORMAT 後的數值，以CHAR 型態RETURNLET a = cl_facfor（p_fac）; PRINT aPRINT cl_facfor（p_fac）cl_field_formatcl_fi

17、eld_format.4gl轉換p_per 內自由格式設定的formatps_currency CHAR（04） 當前無用處pc_frm_name CHAR（10） 畫面檔名CALL cl_field_format（g_aza.aza17, mc_frm_name）cl_fld_doccl_fld_doc.4gl欄位的相關檔案維護ps_field STRING 欄位名稱url 檔案的URLCALL cl_fld_doc（cl_fldhelpcl_fldhelp.4gl顯示欄位說明g_frm_name 畫面檔名稱g_fld_name 欄位名稱g_lang 語言別CALL cl_fldhelp（g

18、_frm_name,g_fld_name,g_lang）cl_flow_notifycl_flow_notify.4gl透過JavaMail 傳送工作流程通知ps_doc_no STRING 單據編號pc_state CHAR（1） 功能類別（I.新增U.更改D.刪除Y.確認S.過帳V.作廢）CALL cl_flow_notify（g_pmw.pmw01,Icl_forupd_sqlcl_forupd_sql.4gl判斷SELECT . FOR UPDATE 是否加上其他語法（byDatabase）ps_forupd_sql STRING 原傳入SQL 字串ps_forupd_sql STRI

19、NG 調整過的SQL 字串CALL cl_forupd_sql（ps_forupd_sql）cl_get_column_infocl_get_column_info.4gl取得欄位型態及長度p_tabname TABLE 名稱p_colname 欄位名稱欄位型態not null FOR TRUE：有回傳值：null FOR FALSE：否長度not null FOR TRUE：CALL cl_get_column_info（p_tabname,p_colname）RETURNING l_coldatatype,l_collengthcl_get_feldnamecl_get_feldname.

20、4gl依欄位代碼取出系統欄位名稱設定維護作業（p_feldname）內的欄位名稱p_gaq01 欄位代碼p_lang 語言別l_gaq03 欄位說明LET g_msg = cl_get_feldname（p_gaq01,p_lang）cl_get_progdesccl_get_progdesc.4gl取得程式碼說明（若有客制碼=Y的優先回傳）p_gaz01 程式碼l_gaz03 程式碼說明LET g_msg = cl_get_progdesc（g_prog,p_lang）cl_getmsgcl_getmsg.4gl依訊息代碼取出系統錯誤訊息檔（ze_file）內的錯誤訊息p_code 訊息代碼l_msg 錯誤訊息.LET g_msg = cl_getmsg（p_code,p_lang）cl_insert_top_menucl_insert_top_menu.4gl插入TopMenupc_prog CHAR（10） 程式代號CALL cl_insert_top_menu（NULL）cl_itemname_by_langcl_itemname_by_lang.4gl多語言記錄功能查詢l_gbc01 檔案代碼（Table ID） zx_filel_gbc02 欄位代碼zx02l_gbc03 KEY 值序列，多組時以，隔開001l_gbc04