TIPTOP内置函数资料.docVIP

TIPTOP內置函數 函式名稱：cl_about 程式名稱：cl_about.4gl 用途：程式資訊 傳入參數：none 回傳值：none 用法：CALL cl_about() 函式名稱：cl_anykey 程式名稱：cl_anykey.4gl 用途：請按任何鍵繼續 傳入參數：p_sw Not used 回傳值：none 用法：CALL cl_anykey() 函式名稱：cl_autotime 程式名稱：cl_autotime.4gl 用途：自動累加時間，累加級數為1 傳入參數：time1 累加起始時間 sw 累加類型H:小時M:分鐘S:秒鐘 lay 累加級數Default = 1 回傳值：Time 時間 用法：CALL cl_autotime(09:30,H,1) 函式名稱：cl_batch_proc 程式名稱：cl_batch_proc.4gl 用途：動態產生批次資料處理畫面 傳入參數：ps_headers (Table 的Header 字串，中間以逗號分隔) 回傳值：none 用法：LET ls_headers = img01,img02,img03,img04,imk09 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 屬性值 回傳值：none 用法：CALL cl_chg_comp_att (ima01,NOENTRY|ITEMS,1|(1,2,3),(red,b lue,green)) 函式名稱：cl_chg_win_title 程式名稱：cl_chg_win_title.4gl 用途： 轉換程式Title 顯示 傳入參數：ps_str 顯示字串 回傳值：none 用法：CALL cl_chg_win_title(“用戶參數設定作業”) 函式名稱：cl_chk_act_auth 程式名稱：cl_chk_act_auth.4gl 用途： 檢查ACTION 的許可權﹝檢查前務必指定g_action_choice 值﹞ 傳入參數：none 回傳值：1 FOR TRUE 是 0 FOR FALSE 否 用法：LET g_action_choice = “insert” IF cl_chk_act_auth() THEN 函式名稱：cl_chk_data_continue 程式名稱：cl_chk_data_continue.4gl 用途： 檢查資料是否連續 傳入參數：ps_source STRING 來源資料 回傳值：1 FOR TRUE 是 0 FOR FALSE 否 用法：IF NOT cl_chk_data_continue(g_pmw.pmw01[5,10]) THEN 函式名稱：cl_chk_str_correct 程式名稱：cl_chk_data_continue.4gl 用途：檢查字串是否符合0~9,a~z 傳入參數：ps_source STRING 來源資料 ps_count SMALLINT 檢查幾碼，如果未傳幾碼，則會以 來源字串長度當作ps_count li_result SMALLINT 回傳結果 回傳值：1 FOR TRUE 是 0 FOR FALSE 否 用法：IF NOT cl_chk_data_continue(g_pmw.pmw01[1,3]) THEN 函式名稱：cl_chkym 程式名稱：cl_chkym.4gl 用途：檢查文字型態變數是否為年月型態 傳入參數：p_str CHAR(6) 文字型態變數 回傳值：1 FOR TRUE 是 0 FOR FALSE 否 用法：IF cl_chkym(p_str) 函式名稱：cl_choice 程式名稱：cl_choice.4gl 用途：讓用戶輸入選擇 傳入參數：l_msg CHAR(100) 視窗上顯示的說明文字 回傳值：l_choice 用法：CALL cl_choice