2010年11月5日 星期五

TIPTOP函數

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 訊息的類型(insdelupdsel
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()
tt1t2 單身的資料﹝若有兩個以上的單身才會用到t1t2
回傳值: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 ﹝程式所屬的4adex. axmt410.4ad
傳入參數:ps_prog STRING 程式代號
回傳值:none
用法:CALL cl_load_act_list(NULL)

函式名稱:cl_load_act_sys
程式名稱:cl_load_act_sys.4gl
用途:載入ActionList ﹝系統標準的4adtiptop.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 TRUEactiveFALSEdeactive
回傳值: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

2 則留言: