titpop内置函数大全(2)

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(\

函式名称：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 = \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(\

函式名称：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(\

函式名称：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(\

函式名称：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)

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库titpop内置函数大全(2)在线全文阅读。