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 = \,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

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

函式名称：cl_open_doc

程序名称：cl_client_app.4gl

用途：开启档案

传入参数：ps_doc STRING 档案位置

回传值：1 FOR TRUE 是

0 FOR FALSE 否

用法：CALL cl_open_doc(\:/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(\:/Editor.exe\:/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”)

本文来源：https://www.bwwdw.com/article/6gtf.html