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(l_msg) RETURNING g_choice
函式名稱:cl_open_url
程式名稱:cl_client_app.4gl
用途:藉由explorer 開啟傳入的網址
傳入參數:ps_url STRING 網址
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:CALL cl_open_url("http://www")
函式名稱:cl_open_doc
程式名稱:cl_client_app.4gl
用途:開啟檔案
傳入參數:ps_doc STRING 檔案位置
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:CALL cl_open_doc("C:/tiptop/tiptop.txt")
函式名稱:cl_open_prog
程式名稱:cl_client_app.4gl
用途:藉由指定的程式開啟檔案
傳入參數:ps_prog STRING 程式工具
ps_arg STRING 檔案位置
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:CALL cl_open_prog("C:/Editor.exe", "C:/tiptop/tiptop.txt")
函式名稱:cl_close
程式名稱:cl_close.4gl
用途:詢問"此筆資料是否確定結案(Y/N):"
或"此筆資料是否取消結案(Y/N):"
傳入參數:p_row,p_col 無作用,傳入0,0 即可
p_old_acticode 傳入Y 代表訊息為取消結案;N 代表確定結案
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF cl_close(0,0,”Y”)
函式名稱:cl_cmdask
程式名稱:cl_cmdask.4gl
用途:詢問使用者欲執行的程式,並執行之
傳入參數:none
回傳值:none
用法:CALL cl_cmdask()
函式名稱:cl_cmdat
程式名稱:cl_cmdat.4gl
用途:指定時間延後執行UNIX 指令
傳入參數:p_time 指定時間
p_cmd UNIX 指令
回傳值:none
用法:CALL cl_cmdat(p_code,p_time,p_cmd)
函式名稱:cl_cmdrun
程式名稱:
用途:執行UNIX 指令
傳入參數:ps_cmd 程式碼或UNIX 執行指令
回傳值:none
用法:CALL cl_cmdrun('axmq450')
函式名稱:cl_cmdrun_wait
程式名稱:
用途:執行UNIX 指令,需等待此指令結束後才可繼續原程式的執行
傳入參數:ps_cmd 程式碼或UNIX 執行指令
回傳值:none
用法:LET l_cmd="axmp800 '",g_oea.oea01,"' '",g_oea.oea905,"' "
CALL cl_cmdrun_wait(l_cmd)
函式名稱:cl_cmmsg
程式名稱:cl_cmmsg.4gl
用途:顯示異動更新成功訊息
傳入參數:p_code 訊息種類1 及4 代表異動更新完成
2 及3 代表此張單據異動更新完成
回傳值:none
用法:CALL cl_cmmsg(1)
函式名稱:cl_conf3
程式名稱:cl_conf3.4gl
用途:根據MESSAGE CODE 取出正確訊息,詢問
﹝配合發票的使用,本作業允許使用者不輸入資料﹞
傳入參數:p_row,p_col 無作用
p_msgcode
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF cl_conf(0,0,p_msgcode) THEN
函式名稱:cl_confirm
程式名稱:cl_confirm.4gl
用途:依照訊息代碼將資料顯示在畫面上,詢問〝是否…〞
傳入參數:ps_msg 訊息代碼或訊息字串
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF (cl_confirm("agl-021")) THEN
函式名稱:cl_cont
程式名稱:cl_cont.4gl
用途:詢問"是否繼續執行本作業(Y/N):"
傳入參數:p_row,p_col 無作用
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF cl_cont(0,0) THEN
函式名稱:cl_create_4sm
程式名稱:cl_create_4sm.4gl
用途:產生udm_tree 所需要的StartMenu 檔案
傳入參數:pc_menu_root StartMenu 的根節點
pi_rebuild 是否需要重新覆蓋已存在的4sm 檔案
回傳值:none
用法:CALL cl_create_4sm("m01", TRUE)
函式名稱:cl_create_qry
程式名稱:cl_create_qry.4gl
用途:動態產生視窗以供查詢,並回傳查詢結果
傳入參數:none
回傳值:ms_ret1,ms_ret2,ms_ret3 回傳數目依照對應的回傳欄位數
用法:CALL cl_create_qry() RETURNING g_oea.oea14
函式名稱:cl_dynamic_qry
程式名稱:cl_create_qry.4gl
用途:自訂/行業別欄位動態產生開窗功能,並回傳查詢結果
傳入參數:none
回傳值:ms_ret1,ms_ret2,ms_ret3 回傳數目依照對應的回傳欄位數
用法:CALL cl_dynamic_qry() RETURNING g_oea.oeaida001
函式名稱:cl_days
程式名稱:cl_days.4gl
用途:取得該年月的天數
傳入參數:p_year 年份
p_month 月份
回傳值:l_days 天數
用法:let l_days=cl_days(p_yy,p_mm)
函式名稱:cl_delb
程式名稱:cl_delb.4gl
用途:詢問"是否確定取消此筆單身資料(Y/N):"
(for 單檔建檔程式單身取消功能ON KEY F2)
傳入參數:p_row,p_col
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF cl_delb(0,0) THEN
函式名稱:cl_delete
程式名稱:cl_delete.4gl
用途:詢問〝是否刪除此筆資料?〞
傳入參數:none
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF (cl_delete()) THEN
函式名稱:cl_delh
程式名稱:cl_delh.4gl
用途:詢問"是否確定刪除此筆單頭及所有單身資料(Y/N):"
(for 單檔建檔程式單頭刪除功能)
傳入參數:p_row,p_col
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:if cl_delh(0,0)
函式名稱:cl_delh1
程式名稱:cl_delh1.4gl
用途:詢問"是否確定取消此筆單頭及所有單身資料(Y/N):"
(for 單檔建檔程式單頭取消功能)
傳入參數:p_row,p_col
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:if cl_delh1(0,0)
函式名稱:cl_detail_input_auth
程式名稱:cl_detail_input_auth.4gl
用途:檢查是否允許在單身中有insert 或delete 的許可權
傳入參數:ps_act_type STRING 要檢查的字串(insert/delete)
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:CALL cl_detail_input_auth("insert")
函式名稱:cl_digcut
程式名稱:cl_digcut.4gl
用途:將數值依指定的小數位數做四捨五入
傳入參數:p_value 數值
p_digit 允許小數位數
回傳值:p_value 四捨五入後的數值
用法:LET a = cl_digcut(p_value,p_digit)
函式名稱:cl_doc
程式名稱:cl_doc.4gl
用途:相關檔案維護
傳入參數:none
回傳值:none
用法:LET g_doc.column1 = "oea01"
LET g_doc.value1 = g_oea.oea01
CALL cl_doc()
函式名稱:cl_dynamic_locale
程式名稱:cl_dynamic_locale.4gl
用途:動態轉換畫面語言別
傳入參數:none
回傳值:none
用法:CALL cl_dynamic_locale()
函式名稱:cl_end
程式名稱:cl_end.4gl
用途:顯示"作業結束,請按任何鍵繼續:"
傳入參數:p_row,p_col 無作用
回傳值:none
用法:CALL cl_end(0,0)
函式名稱:cl_end2
程式名稱:cl_end2.4gl
用途:顯示執行結果,並詢問是否要繼續作業
傳入參數:p_code (1 代表成功,2 代表失敗)
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:CALL cl_end2(1) RETURNING l_flag
函式名稱:cl_err
程式名稱:cl_err.4gl
用途:顯示錯誤訊息
傳入參數:p_msg 錯誤訊息的附加說明
err_code 錯誤訊息代碼
p_n 顯示錯誤訊息後的停留秒數或是等用戶按下確定
0 :不開啟訊息視窗,只在狀態列顯示
> 1 :停留秒數
1 :開啟訊息視窗等待使用者確定
回傳值:none
用法:CALL cl_err(p_msg,err_code,p_n)
函式名稱:cl_err_msg
程式名稱:cl_err_msg.4gl
用途:顯示錯誤訊息
傳入參數:ps_title 錯誤訊息的附加說明
ps_err_code 錯誤訊息代碼
ps_replace_arg 欲替換的訊息字串,以”| ”分隔字串
pi_idle_sec idle 秒數
0 :不開啟訊息視窗,只在狀態列顯示
> 1 :停留秒數
1 :開啟訊息視窗等待使用者確定
回傳值:none
用法:CALL cl_err_msg("Warning","1000",NULL,1)
函式名稱:cl_err3
程式名稱:
用途:顯示資料庫處理後的錯誤訊息(insert/update/delete/select)
傳入參數:Type 訊息的類型(ins、del、upd、sel)
Tables 處理的table 代碼
Key1 Key1 的value
Key2 Key2 的value
Description 額外訊息(訊息代碼/訊息字串)
Action 訊息Action 代碼(未來延伸功能,可不傳)
Mark 按下〝更多〞按鍵時顯示的訊息
Open 是否開窗(0/1)
回傳值:none
用法:CALL cl_err3("ins","azb_file",g_azb01,"",SQLCA.sqlcode,"","",0)
函式名稱:cl_err_msg_log
程式名稱:cl_err_msg.4gl
用途:紀錄錯誤訊息
傳入參數:none
回傳值:none
用法:WHENEVER ERROR CALL cl_err_msg_log
函式名稱:cl_exp
程式名稱:cl_exp.4gl
用途:詢問"此筆資料是否確定無效(Y/N):"
或"此筆資料是否恢復有效(Y/N):"
(for 單檔建檔無效功能)
傳入參數:p_row,p_col
p_old_acticode 有效碼﹝Y/N﹞
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF cl_exp(0,0,g_pmw.pmwacti) THEN
函式名稱:cl_export_to_excel
程式名稱:cl_export_to_excel.4gl
用途:
傳入參數:n 畫面的根節點元件﹝ui.Interface.getRootNode()﹞
t、t1、t2 單身的資料﹝若有兩個以上的單身才會用到t1、t2
﹞
回傳值:none
用法:CALL cl_export_to_excel
(ui.Interface.getRootNode(),base.TypeInfo.create(g_pmx),'','')
函式名稱:cl_facfor
程式名稱:cl_facfor.4gl
用途:將INPUT DECLIAM(16,8) 數值轉為9 位元字元的格式
若值為12345678 , 將傳回'^12345678'
若值為1234567 , 將傳回'1234567.0'
若值為123456 , 將傳回'123456.00'
若值為12345.67 , 將傳回'12345.670'
若值為1.234567 , 將傳回'1.2345670'
若值為.1234567 , 將傳回'.12345670'
傳入參數:p_fac 數值
回傳值:l_str FORMAT 後的數值,以CHAR 型態RETURN
用法:LET a = cl_facfor(p_fac); PRINT a
PRINT cl_facfor(p_fac)
函式名稱:cl_field_format
程式名稱:cl_field_format.4gl
用途:轉換p_per 內自由格式設定的format
傳入參數:ps_currency CHAR(04) ﹝當前無用處﹞
pc_frm_name CHAR(10) 畫面檔名
回傳值:none
用法:CALL cl_field_format(g_aza.aza17, mc_frm_name)
函式名稱:cl_fld_doc
程式名稱:cl_fld_doc.4gl
用途:欄位的相關檔案維護
傳入參數:ps_field STRING 欄位名稱
回傳值:url 檔案的URL
用法:CALL cl_fld_doc("ima01")
函式名稱:cl_fldhelp
程式名稱:cl_fldhelp.4gl
用途:顯示欄位說明
傳入參數:g_frm_name 畫面檔名稱
g_fld_name 欄位名稱
g_lang 語言別
回傳值:none
用法:CALL cl_fldhelp(g_frm_name,g_fld_name,g_lang)
函式名稱:cl_flow_notify
程式名稱:cl_flow_notify.4gl
用途:透過JavaMail 傳送工作流程通知
傳入參數:ps_doc_no STRING 單據編號
pc_state CHAR(1) 功能類別
(I.新增U.更改D.刪除Y.確認S.過帳V.作廢)
回傳值:none
用法:CALL cl_flow_notify(g_pmw.pmw01,'I')
函式名稱:cl_forupd_sql
程式名稱:cl_forupd_sql.4gl
用途:判斷SELECT ... FOR UPDATE 是否加上其它語法(by
Database)
傳入參數:ps_forupd_sql STRING 原傳入SQL 字串
回傳值:ps_forupd_sql STRING 調整過的SQL 字串
用法:CALL cl_forupd_sql(ps_forupd_sql)
函式名稱:cl_get_column_info
程式名稱:cl_get_column_info.4gl
用途:取得欄位型態及長度
傳入參數:p_tabname TABLE 名稱
p_colname 欄位名稱
回傳值:欄位型態not null FOR TRUE:有回傳值:
null FOR FALSE:否
長度not null FOR TRUE:有回傳值:
null FOR FALSE:否
用法:CALL cl_get_column_info(p_tabname,p_colname)
RETURNING l_coldatatype,l_collength
函式名稱:cl_get_feldname
程式名稱:cl_get_feldname.4gl
用途:依欄位代碼取出系統欄位名稱設定維護作業(p_feldname)內的
欄位名稱
傳入參數:p_gaq01 欄位代碼
p_lang 語言別
回傳值:l_gaq03 欄位說明
用法:LET g_msg = cl_get_feldname(p_gaq01,p_lang)
函式名稱:cl_get_progdesc
程式名稱:cl_get_progdesc.4gl
用途:取得程式碼說明(若有客制碼='Y'的優先回傳)
傳入參數:p_gaz01 程式碼
p_lang 語言別
回傳值:l_gaz03 程式碼說明
用法:LET g_msg = cl_get_progdesc(g_prog,p_lang)
函式名稱:cl_getmsg
程式名稱:cl_getmsg.4gl
用途:依訊息代碼取出系統錯誤訊息檔(ze_file)內的錯誤訊息
傳入參數:p_code 訊息代碼
p_lang 語言別
回傳值:l_msg 錯誤訊息.
用法:LET g_msg = cl_getmsg(p_code,p_lang)
函式名稱:cl_insert_top_menu
程式名稱:cl_insert_top_menu.4gl
用途:插入TopMenu
傳入參數:pc_prog CHAR(10) 程式代號
回傳值:none
用法:CALL cl_insert_top_menu(NULL)
函式名稱:cl_itemname_by_lang
程式名稱:cl_itemname_by_lang.4gl
用途:多語言記錄功能查詢
傳入參數:l_gbc01 檔案代碼(Table ID) "zx_file"
l_gbc02 欄位代碼"zx02"
l_gbc03 KEY 值序列,多組時以,隔開"001"
l_gbc04 語言別g_lang
l_gbc05 資料多語言名稱"中文名稱"
回傳值:lc_gbc05 對應語言別的名稱
用法:CALL cl_itemname_by_lang("ima_file","ima02",g_ima.ima01
CLIPPED,g_lang,g_ima.ima02) RETURNING g_ima.ima02
函式名稱:cl_load_act_list
程式名稱:cl_load_act_list.4gl
用途:載入ActionList ﹝程式所屬的4ad,ex. axmt410.4ad﹞
傳入參數:ps_prog STRING 程式代號
回傳值:none
用法:CALL cl_load_act_list(NULL)
函式名稱:cl_load_act_sys
程式名稱:cl_load_act_sys.4gl
用途:載入ActionList ﹝系統標準的4ad,tiptop.4ad﹞
傳入參數:ps_prog STRING 程式代號
回傳值:none
用法:CALL cl_load_act_sys(NULL)
函式名稱:cl_load_action_view
程式名稱:cl_load_action_view.4gl
用途:載入TopMenu 與ToolBar
傳入參數:none
回傳值:none
用法:CALL cl_load_action_view()
函式名稱:cl_load_style_list
程式名稱:cl_load_style_list.4gl
用途:載入StyleList
傳入參數:ps_prog STRING 程式代號
回傳值:none
用法:CALL cl_load_style_list(NULL)
函式名稱:cl_msgany
程式名稱:cl_msgany.4gl
用途:顯示訊息,然後按任何鍵繼續
傳入參數:p_row,p_col 無作用
p_msg 訊息代碼
回傳值:none
用法:CALL cl_prompt(0,0,l_msg)
函式名稱:cl_navigator_setting
程式名稱:cl_navigator_setting.4gl
用途:設定ToolBar 上流覽上下筆資料的按鈕狀態
傳入參數:pi_curr_index 當前Cursor 索引值
pi_row_count 資料筆數
回傳值:none
用法:CALL cl_navigator_setting( g_curs_index, g_row_count )
函式名稱:cl_null
程式名稱:cl_null.4gl
用途:檢查字串是否為Null 或是空字串
傳入參數:ps_source (來源字串)
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF NOT cl_null(g_pmx[l_ac].pmx02) THEN
函式名稱:cl_numchk
程式名稱:cl_numchk.4gl
用途:檢查'p_str' 是否為數值型態
傳入參數:p_str 欲檢查字串
p_len 檢查的長度
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF cl_numchk(p_str,p_len) THEN
函式名稱:cl_numfor
程式名稱:cl_numfor.4gl
用途:將數值依指定的列印長度及小數位數做FORMAT,以便列印
若值為0,將傳回0.00,並非空白
傳入參數:p_value 數值
p_len 允許列印長度
回傳值:l_str FORMAT 後的數值,以CHAR 型態RETURN
用法:LET a = cl_numfor(amt,17);PRINT a
函式名稱:cl_numfor3
程式名稱:cl_numfor3.4gl
用途:將數值不須的小數位數不列印出
傳入參數:p_value 數值
回傳值:l_str FORMAT 後的數值,以CHAR 型態RETURN
用法:LET a = cl_numfor3(amt,13);PRINT a
函式名稱:cl_on_idle
程式名稱:cl_on_idle.4gl
用途:在ON IDLE 時的處理
傳入參數:none
回傳值:none
用法:CALL cl_on_idle()
函式名稱:cl_opmsg
程式名稱:cl_opmsg.4gl
用途:顯示操作方法於狀態列
操作方法著重於FUNCTION 鍵的使用
傳入參數:p_op_type 操作型態
a:新增,u:更改,q:查詢b:單身處理,w:多欄查詢,p:列印條件選擇
回傳值:none
用法:CALL cl_opmsg('q')
函式名稱:cl_outnam
程式名稱:cl_outnam.4gl
用途:賦予一個報表檔代號(Disk File Name)
傳入參數:p_code 報表程式代號
回傳值:p_name 報表檔代號
用法:call cl_outnam(p_code) RETURNING l_name
函式名稱:cl_parse
程式名稱:cl_parse.4gl
用途:將MATCHES '[xyz]' 的指令轉成ORACLE 的IN ('x','y','z')
傳入參數:p_type 欲轉換的字串
回傳值:l_str 轉換過後的字串
用法:CALL cl_parse(ls_str)
函式名稱:cl_pause
程式名稱:cl_pause.4gl
用途:請按Enter 繼續…
傳入參數:none
回傳值:none
用法:IF cl_pause()
函式名稱:cl_progress_bar
程式名稱:cl_progress_bar.4gl
用途:開啟作業處理進度畫面
傳入參數:pi_total_count 處理作業總次數
回傳值:none
用法:CALL cl_progress_bar(3)
函式名稱:cl_progressing
程式名稱:cl_progress_bar.4gl
用途:顯示當前處理進度
傳入參數:ps_log 正在處理的作業說明
回傳值:none
用法:CALL cl_progressing("Create : ")
函式名稱:cl_prompt
程式名稱:cl_prompt.4gl
用途:詢問l_msg
傳入參數:p_row,p_col 無作用
l_msg 顯示於視窗上的說明
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF cl_prompt(0,0,l_msg) THEN
函式名稱:cl_prt
程式名稱:cl_prt.4gl
用途:詢問使用者以何種方式處理報表檔
傳入參數:p_name 報表檔案名稱
p_prtway 列印方式
p_copies 列印份數
p_len 報表長度
回傳值:none
用法:CALL cl_prt(l_name,' ','1',g_len)
函式名稱:cl_qbe_init
程式名稱:
用途:預設QBE 及g_qbe_code 的值
傳入參數:none
回傳值:none
用法:CALL cl_qbe_init()
函式名稱:cl_qbe_select
程式名稱:
用途:開啟QBE 查詢準則清單及顯示條件於畫面上
傳入參數:none
回傳值:none
用法:CALL cl_qbe_select()
函式名稱:cl_qbe_list
程式名稱:
用途:QBE 查詢準則列表
傳入參數:none
回傳值:g_qbe_code 條件序號
用法:CALL cl_qbe_list() RETURNING lc_qbe_sn
函式名稱:cl_qbe_display_condition
程式名稱:
用途:顯示QBE 查詢準則於畫面上
傳入參數:pc_gbm01 條件序號
回傳值:none
用法:CALL cl_qbe_display_condition(lc_qbe_sn)
函式名稱:cl_qbe_save
程式名稱:
用途:QBE 查詢準則儲存
傳入參數:none
回傳值:none
用法:CALL cl_qbe_save()
函式名稱:cl_qzx
程式名稱:cl_qzx.4gl
用途:對g_user 提供可執行程式的視窗查詢
傳入參數:p_row,p_col 無作用
p_key 用戶基本檔代碼
回傳值:p_key 用戶基本檔代碼
用法:call cl_qzx(0,0,p_key) returning p_key
函式名稱:cl_rbmsg
程式名稱:cl_rbmsg.4gl
用途:顯示ROLLBACKWORK 訊息
傳入參數:p_code 訊息種類1 代表異動更新不成功
2 及3 代表此張單據異動更新不成功
4 代表更新不成功
回傳值:none
用法:CALL cl_rbmsg(1)
函式名稱:cl_repcon
程式名稱:cl_repcon.4gl
用途:詢問特殊列印條件
傳入參數:p_pdate 製表日期p_towhom 報表收受單位或人員
p_lang 選擇列印語言別p_bgjob 是否延後執行本作業
p_time 執行時間p_prtway 選擇列印方式
p_copies 列印份數
回傳值:p_pdate 製表日期p_towhom 報表收受單位或人員
p_lang 選擇列印語言別p_bgjob 是否延後執行本作業
p_time 執行時間p_prtway 選擇列印方式
p_copies 列印份數
用法:CALL cl_repcon(p_row,p_col,p_pdate,p_towhom,p_lang,
p_bgjob,p_time,p_prtway,p_copies) Returning p_row,p_col,
p_pdate,p_towhom,p_lang,p_bgjob,p_time,p_prtway,p_copies
函式名稱:cl_replace_str
程式名稱:cl_replace_str.4gl
用途:取代字串
傳入參數:ps_source STRING 來源字串
ps_old STRING 要被換掉的舊字串
ps_new STRING 要換成的新字串
回傳值:ls_result STRING 取代後的新字串
用法:CALL cl_replace_str("abcdefg", "cde", "WXYZ") RETURNING
ls_new
函式名稱:cl_replace_str_by_index
程式名稱:cl_replace_str_by_index.4gl
用途:依據索引位置取代字串
傳入參數:ps_source STRING 來源字串
pi_from SMALLINT 起始索引位置
pi_end SMALLINT 結束索引位置
ps_new STRING 要換成的新字串
回傳值:ls_result STRING 取代後的新字串
用法:CALL cl_replace_str_by_index("abcdefg", 3, 5, "WXYZ")
RETURNING ls_new
函式名稱:cl_say
程式名稱:cl_say.4gl
用途:將金額類數值轉換成SAY TOTAL
傳入參數:p_amt (Decimal value of money)
p_len (String length of SAY1 and SAY2)
回傳值:l_say1 (Say total string-1 of p_amt)
l_say2 (Say total string-2 of p_amt)
用法:CALL cl_say(p_amt,p_len)
RETURNING l_say1,l_say2
函式名稱:cl_set_act_visible
程式名稱:cl_set_act_visible.4gl
用途:動態顯現/隱藏畫面上的Action
傳入參數:ps_act_names 要顯示或隱藏的欄位名稱字串(以逗號分隔)
pi_visible TRUE:顯現,FALSE:隱藏
回傳值:none
用法:CALL cl_set_act_visible("accept,cancel", FALSE)
函式名稱:cl_set_action_active
程式名稱:cl_set_action_active.4gl
用途:動態開啟或關閉畫面上的Action﹝不隱藏只是不可使用﹞
傳入參數:ps_actions 要顯示或隱藏的欄位名稱字串(以逗號分隔)
pi_active TRUE:active,FALSE:deactive
回傳值:none
用法:CALL cl_set_action_active("act1,act2", TRUE)
函式名稱:cl_set_check_text
程式名稱:cl_set_check_text.4gl
用途:設定CHECKBOX 的顯示文字
傳入參數:ps_field STRING 要設定的欄位名稱
ps_text STRING 要設定的TEXT
回傳值:none
用法:CALL cl_set_check_text("aza04", "新的文字標籤")
函式名稱:cl_set_combo_items
程式名稱:cl_set_combo_items.4gl
用途:動態設定ComboBox 的Item
傳入參數:ps_field_name ComboBox 所對應的欄位名稱
ps_values Item 所對應的儲存值字串(以逗號分
隔)
ps_items Item 字串(以逗號分隔)
回傳值:None
用法:CALL cl_set_combo_items("oea08", "1,2", "Local Order,Export
Order")
函式名稱:cl_set_combo_lang
程式名稱:cl_set_combo_lang.4gl
用途:動態設定有選擇語言別的ComboBox 語言選項
傳入參數:ps_field_name ComboBox 所對應的欄位名稱
回傳值:None
用法:CALL cl_set_combo_lang("oea08")
函式名稱:cl_set_combo_module
程式名稱:cl_set_combo_module.4gl
用途:動態設定有選擇模組資料的ComboBox 選項
傳入參數:ps_field_name ComboBox 所對應的欄位名稱
pi_type pi_type = 1 時輸出大寫資料
回傳值:None
用法:CALL cl_set_combo_module("oea08",0)
函式名稱:cl_set_comments
程式名稱:cl_set_comments.4gl
用途:設定欄位的comments
傳入參數:ps_fields 欲轉換哪個欄位﹙以字串代表﹚
ps_att_value 欲轉換的字串
回傳值:none
用法:CALL cl_set_comments("oea01,oea02","string1|string2")
函式名稱:cl_set_comp_att_text
程式名稱:cl_set_comp_att_text.4gl
用途:設定欄位的顯示名稱(元件前面Label 的text)
傳入參數:ps_fields 欲轉換的欄位
ps_att_value 欲轉換的字串
回傳值:None
用法:CALL cl_set_comp_att_text("oma16”,”Order Number”)
函式名稱:cl_set_comp_entry
程式名稱:cl_set_comp_entry.4gl
用途:動態設定元件是否可輸入
傳入參數:ps_fields 欄位名稱字串(中間以逗號分隔)
pi_entry TRUE:可輸入,FALSE:不可輸入
回傳值:None
用法:CALL cl_set_comp_entry("m01,m03,m07", FALSE)
函式名稱:cl_set_comp_font_color
程式名稱:cl_set_comp_font_color.4gl
用途:設定元件字型顏色
傳入參數:ps_fields 欄位名稱字串(中間以逗號分隔)
ps_color 要設定的顏色(black,blue,cyan,...)
回傳值:None
用法:CALL cl_set_comp_font_color("oea01,oea04", "red")
函式名稱:cl_set_comp_lab_text
程式名稱:cl_set_comp_lab_text.4gl
用途:設定Static Label (dummy) 的顯示名稱
傳入參數:ps_fields 欲轉換的欄位
ps_att_value 欲轉換的字串
回傳值:none
用法:CALL cl_set_comp_att_text("oma16”,”Order Number”)
函式名稱:cl_set_comp_required
程式名稱:cl_set_comp_required.4gl
用途:動態設定欄位是否必須輸入值
傳入參數:ps_fields 欄位名稱字串(中間以逗號分隔)
pi_required TRUE:必須輸入值,FALSE:非必須輸入值
回傳值:None
用法:CALL cl_set_comp_required("m01,m03,m07", TRUE)
函式名稱:cl_set_comp_visible
程式名稱:cl_set_comp_visible.4gl
用途:動態顯現/隱藏畫面上的元件
傳入參數:ps_fields 欄位名稱字串(中間以逗號分隔)
pi_visible TRUE:顯現,FALSE:隱藏
回傳值:None
用法:CALL cl_set_comp_visible("oea01,oea04", FALSE)
函式名稱:cl_set_docno_format
程式名稱:cl_set_docno_format.4gl
用途:依照系統參數(aoos010)設定單據編號欄位格式
傳入參數:ps_field 欄位名稱
回傳值:none
用法:CALL cl_set_docno_format("pmw01")
函式名稱:cl_set_doctype_format
程式名稱:cl_set_doctype_format.4gl
用途:依照系統參數(aoos010)設定單別欄位格式
傳入參數:ps_field 欄位名稱
回傳值:none
用法:CALL cl_set_doctype_format ("apyslip")
函式名稱:cl_set_field_format
程式名稱:cl_set_field_format.4gl
用途:設定組件的format(金額,日期)
傳入參數:ps_fields STRING 欄位名稱字串(中間以逗點分隔)
pi_format STRING 要設定的format 字串
回傳值:none
用法:CALL cl_set_field_format("oea01,oea04", "###,###.##")
函式名稱:cl_set_field_pic
程式名稱:cl_set_field_pic.4gl
用途:設定顯示圖片
傳入參數:ps_confirm 確認碼
ps_approve 核准碼
ps_post 過帳碼
ps_close 結案碼
ps_void 作廢碼
ps_valid 有效碼
回傳值:none
用法:CALL cl_set_field_pic(g_oea.oeaconf,g_approve,"","",g_void,"")
函式名稱:cl_set_focus_form
程式名稱:cl_set_focus_form.4gl
用途:截取當前游標停留在畫面上的欄位位置
傳入參數:ui_node 畫面根節點元件
回傳值:fld_name 畫面名稱
frm_name 欄位名稱
用法:CALL cl_set_focus_form(ui.Interface.getRootNode())
函式名稱:cl_set_head_visible
程式名稱:cl_set_head_visible.4gl
用途:動態顯現/隱藏畫面上的單頭區塊
傳入參數:ps_comps 要顯現/隱藏元件的欄位名稱字串(中間以逗點分
隔)
ps_visible 是否顯現(YES→顯現,NO→隱藏,AUTO→自動判斷)
回傳值:none
用法:CALL cl_set_head_visible("folder01,folder02","AUTO")
函式名稱:cl_set_num_value
程式名稱:cl_set_num_value.4gl
用途:設定數值小數位數(可以四捨五入)
傳入參數:ps_value STRING 傳入數值
ps_digit INTEGER 小數位數
回傳值:ls_value 回傳數值
用法:CALL cl_set_num_value(23.12345,4) RETURNING ls_value
函式名稱:cl_set_win_title
程式名稱:cl_set_win_title.4gl
用途:專門用於OPENWINDOW 但沒有FORM 的title 語言轉換
傳入參數:lc_frm_name 畫面名稱
回傳值:none
用法:CALL cl_set_win_title(‘aimt370’)
函式名稱:cl_setup
程式名稱:cl_setup.4gl
用途:程式執行的基本設定
傳入參數:ps_module 模組代號
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:CALL cl_setup("AXM")
函式名稱:cl_show_array
程式名稱:cl_show_array.4gl
用途:開窗顯示array 內容
傳入參數:pnode_array 傳入base.TypeInfo.create(array 變數)
ps_win_title 作為畫面上方的title 字串
ps_title_str 作為table 中各欄位Title 的字串,轉好多語言
後,
請用"|"組合傳入
回傳值:none
用法:CALL (base.TypeInfo.create(g_azb),"簽核人員列表","簽核人員|
密碼|金額")
函式名稱:cl_show_fld_cont
程式名稱:cl_show_fld_cont.4gl
用途:設定p_per 內有特殊格式設定的欄位
1. 匯率顯示:rate(幣別欄位)
2. textEdit 明細顯示:show_fd_desc
3. 金額逗號:amt --不在此function 控制
4. 對象多語系名稱:show_itme(參照table,參照欄名,key 序列,
per 檔上欄位名稱) ﹝2.0﹞
5. 多單位欄位顯示:multi_unit(數量二欄位,單位二欄位,換算率
二欄位,數量一欄位,單位一欄位,換算率一欄位,採購單位欄
位,料件編號欄位) ﹝2.0﹞
傳入參數:none
回傳值:none
用法:CALL cl_show_fld_cont()
函式名稱:cl_show_help
程式名稱:cl_show_help.4gl
用途:顯示程式的說明檔案
傳入參數:None
回傳值:None
用法:CALL cl_show_help()
函式名稱:cl_show_req_fields
程式名稱:cl_show_req_fields.4gl
用途:顯現畫面上需要輸入卻未輸入的所有欄位
傳入參數:None
回傳值:None
用法:CALL cl_show_req_fields()
函式名稱:cl_sure
程式名稱:cl_sure.4gl
用途:詢問"是否確定執行本作業(Y/N):"
傳入參數:p_row,p_col
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF cl_sure(0,0)
函式名稱:cl_sure3
程式名稱:cl_sure3.4gl
用途:詢問"您所輸入的資料是否正確(Y/N)?"
傳入參數:p_row,p_col
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:IF cl_sure3(0,0)
函式名稱:cl_trans_xml
程式名稱:cl_trans_xml.4gl
用途:轉換xml 檔案
1:excel , 2:html , 3:callViewer, 4:txt , 5:html2pdf , 6:word
傳入參數:xml_name 要轉換的xml 檔案
output_type 轉換格式
回傳值:none
用法:CALL cl_trans_xml("aimr100.23r.xml","1")
函式名稱:cl_download_file
程式名稱:cl_transfer_file.4gl
用途:Transfer file from Server to Client
傳入參數:ps_source STRING Source file path
ps_target STRING Destination file path
回傳值:1 FOR TRUE 成功
0 FOR FALSE 失敗
用法:CALL cl_download_file("/tmp/a.doc", "C:/temp/b.doc")
函式名稱:cl_upload_file
程式名稱:cl_transfer_file.4gl
用途:Transfer file from Client to Server
傳入參數:ps_source STRING Source file path
ps_target STRING Destination file path
回傳值:1 FOR TRUE 成功
0 FOR FALSE 失敗
用法:CALL cl_upload_file("C:/temp/a.doc", "/tmp/b.doc")
函式名稱:cl_browse_file
程式名稱:cl_transfer_file.4gl
用途:Open a file dialog to get a file on Client
傳入參數:none
回傳值:file STRING - selected file path or NULL means cancel selection
用法:CALL cl_browse_file()
函式名稱:cl_browse_dir
程式名稱:cl_transfer_file.4gl
用途:Open a directory dialog to get a directory on Client
傳入參數:none
回傳值:directory STRING - selected directory or NULL means cancel
selection
用法:CALL cl_browse_dir()
函式名稱:cl_server_file
程式名稱:cl_transfer_file.4gl
用途:Open a directory dialog to get a file on Server
傳入參數:Default starting path
回傳值:file STRING - selected directory or NULL means cancel selection
用法:CALL cl_server_file()
函式名稱:cl_ui_init
程式名稱:cl_ui_init.4gl
用途:程式設定初始化
傳入參數:None
回傳值:None
用法:CALL cl_ui_init()
函式名稱:cl_ui_locale
程式名稱:cl_ui_locale.4gl
用途:轉換語言別
傳入參數:pc_frm_name 畫面名稱(NULL→預設名稱:g_prog)
回傳值:None
用法:CALL cl_ui_locale()
函式名稱:cl_upsw
程式名稱:cl_upsw.4gl
用途:詢問"是否確認此張異動單據(Y/N)? "
"是否取消確認此張異動單據(Y/N)? "
傳入參數:p_row,p_col
p_upsw Y:確認
N:取消確認
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:if cl_upsw(0,0,p_upsw)
函式名稱:cl_used
程式名稱:cl_used.4gl
用途:計錄各程式實際被執行的狀況
傳入參數:p_code - 程式代號
time1 - 起始執行時間
sw - 1:執行開始,RETURN TIME
2:執行結束
回傳值:time
用法:call cl_used(p_code,time1,sw)
call cl_used('aom2020','09:30','1')
call cl_used('aom2020','09:40','2')
函式名稱:cl_user
程式名稱:cl_user.4gl
用途:設定關於使用者與系統公用變數的設定
傳入參數:none
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:CALL cl_user()
函式名稱:cl_userdefined_field_check
程式名稱:cl_userdefined_field.4gl
用途:檢查自訂欄位值
傳入參數:pc_fldname 自訂欄位名稱
ps_value 自訂欄位值
回傳值:1 FOR TRUE 是
0 FOR FALSE 否
用法:CALL cl_userdefined_field_check("imaud01",g_ima.imaud01)
RETURNING li_result
函式名稱:cl_userdefined_field_query
程式名稱:cl_userdefined_field.4gl
用途:自訂欄位開窗
傳入參數:pc_fldname 自訂欄位名稱
pi_construct TRUE 多選資料/FALSE 單選資料回傳
回傳值:lc_result 開窗值回傳
用法:CALL cl_userdefined_field_query("imaud02",FALSE)
RETURNING g_ima.imaud02
函式名稱:cl_validate
程式名稱:cl_validate.4gl
用途:檢查行業別欄位資料、帶出關聯欄位資料(p_per 設定)
傳入參數:none
回傳值:li_result TRUE/FALSE
用法:IF NOT cl_validate() THEN NEXT FIELD CURRENT END IF
函式名稱:cl_ui_set_init
程式名稱:cl_validate.4gl
用途:抓取元件設定值(p_per 行業別欄位設定)
傳入參數:none
回傳值:ls_value 畫面上顯示的值lc_gav28 基本檔資料檢查方式
lc_gav20 動態檢查設定lc_gav21 SQL 或函式檢查設定
lc_gav29 關聯欄位抓取方式lc_gav31 關聯欄位代碼
lc_gav22 關聯欄位動態設定lc_gav23 SQL 或函式抓取方式
lc_gav30 資料重複檢查方式lc_gav26 動態資料檢查
lc_gav27 SQL 或函式檢查設定
用法:CALL cl_ui_set_init()
RETURNING g_ui.g_value,g_ui.g_check_mtd,g_ui.g_check_dym,
g_ui.g_check_fun, g_ui.g_refer_mtd,g_ui.g_refer_fld,
g_ui.g_refer_dym,g_ui.g_refer_fun,g_ui.g_rpt_mtd,
g_ui.g_rpt_dym, g_ui.g_rpt_fun
函式名稱:cl_data_check
程式名稱:cl_validate.4gl
用途:基本檔資料檢查(p_per 行業別欄位設定)
傳入參數:ps_field 欄位代碼
pc_value 欄位值
回傳值:li_result TRUE/FALSE
用法:CALL cl_data_check("oeaida001",g_oea.oeaida001)
RETURNING li_result
函式名稱:cl_repeat_check
程式名稱:cl_validate.4gl
用途:資料重複檢查(p_per 行業別欄位設定)
傳入參數:ps_field 欄位代碼
pc_value 欄位值
回傳值:li_result TRUE/FALSE
用法:CALL cl_repeat_check("oeaida001",g_oea.oeaida001)
RETURNING li_result
函式名稱:cl_reference
程式名稱:cl_validate.4gl
用途:關聯欄位值抓取並顯示(p_per 行業別欄位設定)
傳入參數:ps_field 欄位代碼
pc_value 欄位值
回傳值:li_result TRUE
用法:CALL cl_reference("oeaida001",g_oea.oeaida001)
RETURNING li_result
函式名稱:cl_qry_string
程式名稱:cl_validate.4gl
用途:欄位連查(p_per 欄位設定)
傳入參數:ps_fldname 欄位代碼
回傳值:none
用法:CALL cl_qry_string("btn_01")
函式名稱:cl_get_table_name
程式名稱:cl_validate.4gl
用途:尋找欄位在資料庫對應的table name
傳入參數:ps_fldname 欄位代碼
回傳值:lc_frmname 表格代碼
用法:CALL cl_get_table_name(lc_gaq01)
本文來自CSDN博客,轉載請標明出處:http://blog.csdn.net/leekeyshaw/archive/2008/12/17/3540354.aspx
視訊妹
回覆刪除成人視訊
美女視訊
免費視訊聊天交友網
辣妹視訊
免費視訊聊天室
影音視訊聊天室
視訊聊天室
視訊辣妹
104meme影音視訊聊天室
ut視訊
0401影音視訊
免費視訊聊天
視訊軟體
uthome視訊聊天
558168視訊正妹免費玩
影音視訊
免費視訊秀
視訊會議
視訊鏡頭
免費視訊moligirl
情色視訊
色情視訊
視訊驅動程式
視訊盒
大中華視訊網
avtv99視訊
免費視訊美女
後宮視訊
視訊錄影
mfc視訊
meme視訊
免費視訊美女網站
momo520視訊美女
影音視訊聊天
韓國視訊
g4vmp4 視訊
影音視訊聊聊天室
nice job, nice func
回覆刪除