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 时间
字符串函数title作用用法：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("www")
函式名称：cl_open_doc
程序名称：cl_client_app.4gl
用途：开启档案
传入参数：ps_doc STRING 档案位置
回传值：1 FOR TRUE 是
0 FOR FALSE 否
用法：CALL cl_open_doc("C:/")
函式名称：cl_open_prog
程序名称：cl_client_app.4gl
用途：藉由指定的程序开启档案
传入参数：ps_prog STRING 程序工具
ps_arg STRING 档案位置
回传值：1 FOR TRUE 是
0 FOR FALSE 否
用法：CALL cl_open_prog("C:/", "C:/")
函式名称：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 '",a01,"' '",a905,"' "
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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。