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 訊息的類型（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