TIPTOP内置函数Word格式.docx
《TIPTOP内置函数Word格式.docx》由会员分享,可在线阅读,更多相关《TIPTOP内置函数Word格式.docx(37页珍藏版)》请在冰豆网上搜索。
CALLcl_batch_proc(ls_headers)
cl_cal
cl_cal.4gl
傳入當前日期,要增加的月份及天數取得計算過後的日期
p_date日期
p_month月份
p_day日
l_year,l_month,l_day
LETl_date=cl_cal(p_date,p_mm,p_dd)
cl_chg_comp_att
cl_chg_comp_att.4gl
更動原有對象的attribute
ps_fieldSTRING欲更動欄位名稱
ps_attsSTRING欄位type屬性
ps_valuesSTRING欄位type屬性值
CALLcl_chg_comp_att
("
ima01"
"
NOENTRY|ITEMS"
1|(1,2,3),(red,blue,green)"
)
cl_chg_win_title
cl_chg_win_title.4gl
轉換程式Title顯示
ps_str顯示字串
CALLcl_chg_win_title(“用戶參數設定作業”)
cl_chk_act_auth
cl_chk_act_auth.4gl
檢查ACTION的許可權﹝檢查前務必指定g_action_choice值﹞
1FORTRUE是
0FORFALSE否
LETg_action_choice=“insert”
IFcl_chk_act_auth()THEN
cl_chk_data_continue
cl_chk_data_continue.4gl
檢查資料是否連續
ps_sourceSTRING來源資料
IFNOTcl_chk_data_continue(g_pmw.pmw01[5,10])THEN
cl_chk_str_correct
檢查字串是否符合0~9,a~z
ps_countSMALLINT檢查幾碼,如果未傳幾碼,則會以
來源字串長度當作ps_count
li_resultSMALLINT回傳結果
IFNOTcl_chk_data_continue(g_pmw.pmw01[1,3])THEN
cl_chkym
cl_chkym.4gl
檢查文字型態變數是否為年月型態
p_strCHAR(6)文字型態變數
IFcl_chkym(p_str)
cl_choice
cl_choice.4gl
讓用戶輸入選擇
l_msgCHAR(100)視窗上顯示的說明文字
l_choice
CALLcl_choice(l_msg)RETURNINGg_choice
cl_open_url
cl_client_app.4gl
藉由explorer開啟傳入的網址
ps_urlSTRING網址
CALLcl_open_url("
http:
//www"
cl_open_doc
開啟檔案
ps_docSTRING檔案位置
CALLcl_open_doc("
C:
/tiptop/tiptop.txt"
cl_open_prog
藉由指定的程式開啟檔案
ps_progSTRING程式工具
ps_argSTRING檔案位置
CALLcl_open_prog("
/Editor.exe"
"
cl_close
cl_close.4gl
詢問"
此筆資料是否確定結案(Y/N):
"
或"
此筆資料是否取消結案(Y/N):
p_row,p_col無作用,傳入0,0即可
p_old_acticode傳入Y代表訊息為取消結案;
N代表確定結案
IFcl_close(0,0,”Y”)
cl_cmdask
cl_cmdask.4gl
詢問用戶欲執行的程式,並執行之
CALLcl_cmdask()
cl_cmdat
cl_cmdat.4gl
指定時間延後執行UNIX指令
p_time指定時間
p_cmdUNIX指令
CALLcl_cmdat(p_code,p_time,p_cmd)
cl_cmdrun
執行UNIX指令
ps_cmd程式碼或UNIX執行指令
CALLcl_cmdrun('
axmq450'
cl_cmdrun_wait
執行UNIX指令,需等待此指令結束後才可繼續原程式的執行
LETl_cmd="
axmp800'
g_oea.oea01,"
'
'
g_oea.oea905,"
"
CALLcl_cmdrun_wait(l_cmd)
cl_cmmsg
cl_cmmsg.4gl
顯示異動更新成功訊息
p_code訊息種類1及4代表異動更新完成
2及3代表此張單據異動更新完成
CALLcl_cmmsg
(1)
cl_conf3
cl_conf3.4gl
根據MESSAGECODE取出正確訊息,詢問
﹝配合發票的使用,本作業允許用戶不輸入資料﹞
p_row,p_col無作用
p_msgcode
IFcl_conf(0,0,p_msgcode)THEN
cl_confirm
cl_confirm.4gl
依照訊息代碼將資料顯示在畫面上,詢問〝是否…〞
ps_msg訊息代碼或訊息字串
IF(cl_confirm("
agl-021"
))THEN
cl_cont
cl_cont.4gl
是否繼續執行本作業(Y/N):
IFcl_cont(0,0)THEN
cl_create_4sm
cl_create_4sm.4gl
產生udm_tree所需要的StartMenu檔案
pc_menu_rootStartMenu的根節點
pi_rebuild是否需要重新覆蓋已存在的4sm檔案
CALLcl_create_4sm("
m01"
TRUE)
cl_create_qry
cl_create_qry.4gl
動態產生視窗以供查詢,並回傳查詢結果
ms_ret1,ms_ret2,ms_ret3回傳數目依照對應的回傳欄位數
CALLcl_create_qry()RETURNINGg_oea.oea14
cl_dynamic_qry
自定義/行業別欄位動態產生開窗功能,並回傳查詢結果
CALLcl_dynamic_qry()RETURNINGg_oea.oeaida001
cl_days
cl_days.4gl
取得該年月的天數
p_year年份
l_days天數
letl_days=cl_days(p_yy,p_mm)
cl_delb
cl_delb.4gl
是否確定取消此筆單身資料(Y/N):
(for單檔建檔程式單身取消功能ONKEYF2)
p_row,p_col
IFcl_delb(0,0)THEN
cl_delete
cl_delete.4gl
詢問〝是否刪除此筆資料?
〞
IF(cl_delete())THEN
cl_delh
cl_delh.4gl
是否確定刪除此筆單頭及所有單身資料(Y/N):
(for單檔建檔程式單頭刪除功能)
ifcl_delh(0,0)
cl_delh1
cl_delh1.4gl
是否確定取消此筆單頭及所有單身資料(Y/N):
(for單檔建檔程式單頭取消功能)
p_row,p_col
1FORTRUE是
0FORFALSE否
ifcl_delh1(0,0)
cl_detail_input_auth
cl_detail_input_auth.4gl
檢查是否允許在單身中有insert或delete的許可權
ps_act_typeSTRING要檢查的字串(insert/delete)
CALLcl_detail_input_auth("
insert"
)
cl_digcut
cl_digcut.4gl
將數值依指定的小數位數做四捨五入
p_value數值
p_digit允許小數位數
p_value四捨五入後的數值
LETa=cl_digcut(p_value,p_digit)
cl_doc
cl_doc.4gl
相關檔案維護
none
LETg_doc.column1="
oea01"
LETg_doc.value1=g_oea.oea01
CALLcl_doc()
cl_dynamic_locale
cl_dynamic_locale.4gl
動態轉換畫面語言別
CALLcl_dynamic_locale()
cl_end
cl_end.4gl
顯示"
作業結束,請按任何鍵繼續:
p_row,p_col無作用
CALLcl_end(0,0)
cl_end2
cl_end2.4gl
顯示執行結果,並詢問是否要繼續作業
p_code(1代表成功,2代表失敗)
CALLcl_end2
(1)RETURNINGl_flag
cl_err
cl_err.4gl
顯示錯誤訊息
p_msg錯誤訊息的附加說明
err_code錯誤訊息代碼
p_n顯示錯誤訊息後的停留秒數或是等用戶按下確定
0:
不開啟訊息視窗,只在狀態列顯示
>
1:
停留秒數
1:
開啟訊息視窗等待用戶確定
CALLcl_err(p_msg,err_code,p_n)
cl_err_msg
cl_err_msg.4gl
ps_title錯誤訊息的附加說明
ps_err_code錯誤訊息代碼
ps_replace_arg欲替換的訊息字串,以”|”分隔字串
pi_idle_secidle秒數
CALLcl_err_msg("
Warning"
1000"
NULL,1)
cl_err3
顯示資料庫處理後的錯誤訊息(insert/update/delete/select)
Type訊息的類型(ins、del、upd、sel)
Tables處理的table代碼
Key1Key1的value
Key2Key2的value
Description額外訊息(訊息代碼/訊息字串)
Action訊息Action代碼(未來延伸功能,可不傳)
Mark按下〝更多〞按鍵時顯示的訊息
Open是否開窗(0/1)
CALLcl_err3("
ins"
azb_file"
g_azb01,"
SQLCA.sqlcode,"
0)
cl_err_msg_log
紀錄錯誤訊息
WHENEVERERRORCALLcl_err_msg_log
cl_exp
cl_exp.4gl
此筆資料是否確定無效(Y/N):
此筆資料是否恢復有效(Y/N):
(for單檔建檔無效功能)
p_old_acticode有效碼﹝Y/N﹞
IFcl_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
﹞
CALLcl_export_to_excel
(ui.Interface.getRootNode(),base.TypeInfo.create(g_pmx),'
cl_facfor
cl_facfor.4gl
將INPUTDECLIAM(16,8)數值轉為9位元字元的格式
若值為12345678,將傳回'
^12345678'
若值為1234567,將傳回'
1234567.0'
若值為123456,將傳回'
123456.00'
若值為12345.67,將傳回'
12345.670'
若值為1.234567,將傳回'
1.2345670'
若值為.1234567,將傳回'
.12345670'
p_fac數值
l_strFORMAT後的數值,以CHAR型態RETURN
LETa=cl_facfor(p_fac);
PRINTa
PRINTcl_facfor(p_fac)
cl_field_format
cl_field_format.4gl
轉換p_per內自由格式設定的format
ps_currencyCHAR(04)﹝當前無用處﹞
pc_frm_nameCHAR(10)畫面檔名
CALLcl_field_format(g_aza.aza17,mc_frm_name)
cl_fld_doc
cl_fld_doc.4gl
欄位的相關檔案維護
ps_fieldSTRING欄位名稱
url檔案的URL
CALLcl_fld_doc("
cl_fldhelp
cl_fldhelp.4gl
顯示欄位說明
g_frm_name畫面檔名稱
g_fld_name欄位名稱
g_lang語言別
CALLcl_fldhelp(g_frm_name,g_fld_name,g_lang)
cl_flow_notify
cl_flow_notify.4gl
透過JavaMail傳送工作流程通知
ps_doc_noSTRING單據編號
pc_stateCHAR
(1)功能類別
(I.新增U.更改D.刪除Y.確認S.過帳V.作廢)
CALLcl_flow_notify(g_pmw.pmw01,'
I'
cl_forupd_sql
cl_forupd_sql.4gl
判斷SELECT...FORUPDATE是否加上其他語法(by
Database)
ps_forupd_sqlSTRING原傳入SQL字串
ps_forupd_sqlSTRING調整過的SQL字串
CALLcl_forupd_sql(ps_forupd_sql)
cl_get_column_info
cl_get_column_info.4gl
取得欄位型態及長度
p_tabnameTABLE名稱
p_colname欄位名稱
欄位型態notnullFORTRUE:
有回傳值:
nullFORFALSE:
否
長度notnullFORTRUE:
CALLcl_get_column_info(p_tabname,p_colname)
RETURNINGl_coldatatype,l_collength
cl_get_feldname
cl_get_feldname.4gl
依欄位代碼取出系統欄位名稱設定維護作業(p_feldname)內的
欄位名稱
p_gaq01欄位代碼
p_lang語言別
l_gaq03欄位說明
LETg_msg=cl_get_feldname(p_gaq01,p_lang)
cl_get_progdesc
cl_get_progdesc.4gl
取得程式碼說明(若有客制碼='
Y'
的優先回傳)
p_gaz01程式碼
l_gaz03程式碼說明
LETg_msg=cl_get_progdesc(g_prog,p_lang)
cl_getmsg
cl_getmsg.4gl
依訊息代碼取出系統錯誤訊息檔(ze_file)內的錯誤訊息
p_code訊息代碼
l_msg錯誤訊息.
LETg_msg=cl_getmsg(p_code,p_lang)
cl_insert_top_menu
cl_insert_top_menu.4gl
插入TopMenu
pc_progCHAR(10)程式代號
CALLcl_insert_top_menu(NULL)
cl_itemname_by_lang
cl_itemname_by_lang.4gl
多語言記錄功能查詢
l_gbc01檔案代碼(TableID)"
zx_file"
l_gbc02欄位代碼"
zx02"
l_gbc03KEY值序列,多組時以,隔開"
001"
l_gbc04