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
升级会员 