|
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 = "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("http://www") 函式名称：cl_open_doc
程序名称：cl_client_app.4gl 用途：开启档案 传入参数：ps_doc STRING 档案位置 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：CALL cl_open_doc("C:/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("C:/Editor.exe", "C:/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”) 函式名称：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 '",g_oea.oea01,"' '",g_oea.oea905,"' " 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 函式名称：cl_create_4sm
程序名称：cl_create_4sm.4gl 用途：产生udm_tree 所需要的StartMenu 档案 传入参数：pc_menu_root StartMenu 的根节点 pi_rebuild 是否需要重新覆盖已存在的4sm 档案 回传值：none 用法：CALL cl_create_4sm("m01", TRUE) 函式名称：cl_create_qry
程序名称：cl_create_qry.4gl 用途：动态产生窗口以供查询，并回传查询结果 传入参数：none 回传值：ms_ret1,ms_ret2,ms_ret3 回传数目依照对应的回传字段数 用法：CALL cl_create_qry() RETURNING g_oea.oea14 函式名称：cl_dynamic_qry
程序名称：cl_create_qry.4gl 用途：自定义/行业别字段动态产生开窗功能，并回传查询结果 传入参数：none 回传值：ms_ret1,ms_ret2,ms_ret3 回传数目依照对应的回传字段数 用法：CALL cl_dynamic_qry() RETURNING g_oea.oeaida001 函式名称：cl_days
程序名称：cl_days.4gl 用途：取得该年月的天数 传入参数：p_year 年份 p_month 月份 回传值：l_days 天数 用法：let l_days=cl_days(p_yy,p_mm) 函式名称：cl_delb
程序名称：cl_delb.4gl 用途：询问"是否确定取消此笔单身资料(Y/N)：" (for 单文件建文件程序单身取消功能ON KEY F2) 传入参数：p_row,p_col 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：IF cl_delb(0,0) THEN 函式名称：cl_delete
程序名称：cl_delete.4gl 用途：询问〝是否删除此笔资料？〞 传入参数：none 回传值：1 FOR TRUE 是 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("insert") 函式名称：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 = "oea01" 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("Warning","1000",NULL,1) 函式名称：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("ins","azb_file",g_azb01,"",SQLCA.sqlcode,"","",0) 函式名称：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("ima01") 函式名称：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) 函式名称：cl_getmsg
程序名称：cl_getmsg.4gl 用途：依讯息代码取出系统错误讯息文件(ze_file)内的错误讯息 传入参数：p_code 讯息代码 p_lang 语言别 回传值：l_msg 错误讯息. 用法：LET g_msg = cl_getmsg(p_code,p_lang) 函式名称：cl_insert_top_menu
程序名称：cl_insert_top_menu.4gl 用途：插入TopMenu 传入参数：pc_prog CHAR(10) 程序代号 回传值：none 用法：CALL cl_insert_top_menu(NULL) 函式名称：cl_itemname_by_lang
程序名称：cl_itemname_by_lang.4gl 用途：多语言记录功能查询 传入参数：l_gbc01 档案代码(Table ID) "zx_file" l_gbc02 字段代码"zx02" l_gbc03 KEY 值序列，多组时以，隔开"001" l_gbc04 语言别g_lang l_gbc05 数据多语言名称"中文名称" 回传值：lc_gbc05 对应语言别的名称 用法：CALL cl_itemname_by_lang("ima_file","ima02",g_ima.ima01 CLIPPED,g_lang,g_ima.ima02) RETURNING g_ima.ima02 函式名称：cl_load_act_list
程序名称：cl_load_act_list.4gl 用途：载入ActionList ﹝程序所属的4ad，ex. axmt410.4ad﹞ 传入参数：ps_prog STRING 程序代号 回传值：none 用法：CALL cl_load_act_list(NULL) 函式名称：cl_load_act_sys
程序名称：cl_load_act_sys.4gl 用途：加载ActionList ﹝系统标准的4ad，tiptop.4ad﹞ 传入参数：ps_prog STRING 程序代号 回传值：none 用法：CALL cl_load_act_sys(NULL) 函式名称：cl_load_action_view
程序名称：cl_load_action_view.4gl 用途：载入TopMenu 与ToolBar 传入参数：none 回传值：none 用法：CALL cl_load_action_view() 函式名称：cl_load_style_list
程序名称：cl_load_style_list.4gl 用途：载入StyleList 传入参数：ps_prog STRING 程序代号 回传值：none 用法：CALL cl_load_style_list(NULL) 函式名称：cl_msgany
程序名称：cl_msgany.4gl 用途：显示讯息，然后按任何键继续 传入参数：p_row,p_col 无作用 p_msg 讯息代码 回传值：none 用法：CALL cl_prompt(0,0,l_msg) 函式名称：cl_navigator_setting
程序名称：cl_navigator_setting.4gl 用途：设定ToolBar 上浏览上下笔数据的按钮状态 传入参数：pi_curr_index 当前Cursor 索引值 pi_row_count 资料笔数 回传值：none 用法：CALL cl_navigator_setting( g_curs_index, g_row_count ) 函式名称：cl_null
程序名称：cl_null.4gl 用途：检查字符串是否为Null 或是空字符串 传入参数：ps_source （来源字符串） 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：IF NOT cl_null(g_pmx[l_ac].pmx02) THEN 函式名称：cl_numchk
程序名称：cl_numchk.4gl 用途：检查'p_str' 是否为数值型态 传入参数：p_str 欲检查字符串 p_len 检查的长度 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：IF cl_numchk(p_str,p_len) THEN 函式名称：cl_numfor
程序名称：cl_numfor.4gl 用途：将数值依指定的打印长度及小数字数做FORMAT，以便打印 若值为0，将传回0.00，并非空白 传入参数：p_value 数值 p_len 允许打印长度 回传值：l_str FORMAT 后的数值，以CHAR 型态RETURN 用法：LET a = cl_numfor(amt,17)；PRINT a 函式名称：cl_numfor3
程序名称：cl_numfor3.4gl 用途：将数值不须的小数位数不打印出 传入参数：p_value 数值 回传值：l_str FORMAT 后的数值，以CHAR 型态RETURN 用法：LET a = cl_numfor3(amt,13)；PRINT a 函式名称：cl_on_idle
程序名称：cl_on_idle.4gl 用途：在ON IDLE 时的处理 传入参数：none 回传值：none 用法：CALL cl_on_idle() 函式名称：cl_opmsg
程序名称：cl_opmsg.4gl 用途：显示操作方法于状态列 操作方法着重于FUNCTION 键的使用 传入参数：p_op_type 操作型态 a:新增,u:更改,q:查询b:单身处理,w:多栏查询,p:打印条件选择 回传值：none 用法：CALL cl_opmsg('q') 函式名称：cl_outnam
程序名称：cl_outnam.4gl 用途：赋予一个报表文件代号(Disk File Name) 传入参数：p_code 报表程序代号 回传值：p_name 报表文件代号 用法：call cl_outnam(p_code) RETURNING l_name 函式名称：cl_parse
程序名称：cl_parse.4gl 用途：将MATCHES '[xyz]' 的指令转成ORACLE 的IN ('x','y','z') 传入参数：p_type 欲转换的字符串 回传值：l_str 转换过后的字符串 用法：CALL cl_parse(ls_str) 函式名称：cl_pause
程序名称：cl_pause.4gl 用途：请按Enter 继续… 传入参数：none 回传值：none 用法：IF cl_pause() 函式名称：cl_progress_bar
程序名称：cl_progress_bar.4gl 用途：开启作业处理进度画面 传入参数：pi_total_count 处理作业总次数 回传值：none 用法：CALL cl_progress_bar(3) 函式名称：cl_progressing
程序名称：cl_progress_bar.4gl 用途：显示当前处理进度 传入参数：ps_log 正在处理的作业说明 回传值：none 用法：CALL cl_progressing("Create : ") 函式名称：cl_prompt
程序名称：cl_prompt.4gl 用途：询问l_msg 传入参数：p_row,p_col 无作用 l_msg 显示于窗口上的说明 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：IF cl_prompt(0,0,l_msg) THEN 函式名称：cl_prt
程序名称：cl_prt.4gl 用途：询问用户以何种方式处理报表文件 传入参数：p_name 报表文件名称 p_prtway 打印方式 p_copies 打印份数 p_len 报表长度 回传值：none 用法：CALL cl_prt(l_name,' ','1',g_len) 函式名称：cl_qbe_init
程序名称： 用途：预设QBE 及g_qbe_code 的值 传入参数：none 回传值：none 用法：CALL cl_qbe_init() 函式名称：cl_qbe_select
程序名称： 用途：开启QBE 查询条件列表及显示条件于画面上 传入参数：none 回传值：none 用法：CALL cl_qbe_select() 函式名称：cl_qbe_list
程序名称： 用途：QBE 查询条件列表 传入参数：none 回传值：g_qbe_code 条件序号 用法：CALL cl_qbe_list() RETURNING lc_qbe_sn 函式名称：cl_qbe_display_condition
程序名称： 用途：显示QBE 查询条件于画面上 传入参数：pc_gbm01 条件序号 回传值：none 用法：CALL cl_qbe_display_condition(lc_qbe_sn) 函式名称：cl_qbe_save
程序名称： 用途：QBE 查询条件储存 传入参数：none 回传值：none 用法：CALL cl_qbe_save() 函式名称：cl_qzx
程序名称：cl_qzx.4gl 用途：对g_user 提供可执行程序的窗口查询 传入参数：p_row,p_col 无作用 p_key 用户基本档代码 回传值：p_key 用户基本档代码 用法：call cl_qzx(0,0,p_key) returning p_key 函式名称：cl_rbmsg
程序名称：cl_rbmsg.4gl 用途：显示ROLLBACKWORK 讯息 传入参数：p_code 讯息种类1 代表异动更新不成功 2 及3 代表此张单据异动更新不成功 4 代表更新不成功 回传值：none 用法：CALL cl_rbmsg(1) 函式名称：cl_repcon
程序名称：cl_repcon.4gl 用途：询问特殊打印条件 传入参数：p_pdate 制表日期p_towhom 报表收受单位或人员 p_lang 选择打印语言别p_bgjob 是否延后执行本作业 p_time 执行时间p_prtway 选择打印方式 p_copies 打印份数 回传值：p_pdate 制表日期p_towhom 报表收受单位或人员 p_lang 选择打印语言别p_bgjob 是否延后执行本作业 p_time 执行时间p_prtway 选择打印方式 p_copies 打印份数 用法：CALL cl_repcon(p_row,p_col,p_pdate,p_towhom,p_lang, p_bgjob,p_time,p_prtway,p_copies) Returning p_row,p_col, p_pdate,p_towhom,p_lang,p_bgjob,p_time,p_prtway,p_copies 函式名称：cl_replace_str
程序名称：cl_replace_str.4gl 用途：取代字符串 传入参数：ps_source STRING 来源字符串 ps_old STRING 要被换掉的旧字符串 ps_new STRING 要换成的新字符串 回传值：ls_result STRING 取代后的新字符串 用法：CALL cl_replace_str("abcdefg", "cde", "WXYZ") RETURNING ls_new 函式名称：cl_replace_str_by_index
程序名称：cl_replace_str_by_index.4gl 用途：依据索引位置取代字符串 传入参数：ps_source STRING 来源字符串 pi_from SMALLINT 起始索引位置 pi_end SMALLINT 结束索引位置 ps_new STRING 要换成的新字符串 回传值：ls_result STRING 取代后的新字符串 用法：CALL cl_replace_str_by_index("abcdefg", 3, 5, "WXYZ") RETURNING ls_new 函式名称：cl_say
程序名称：cl_say.4gl 用途：将金额类数值转换成SAY TOTAL 传入参数：p_amt (Decimal value of money) p_len (String length of SAY1 and SAY2) 回传值：l_say1 (Say total string-1 of p_amt) l_say2 (Say total string-2 of p_amt) 用法：CALL cl_say(p_amt,p_len) RETURNING l_say1,l_say2 函式名称：cl_set_act_visible
程序名称：cl_set_act_visible.4gl 用途：动态显现/隐藏画面上的Action 传入参数：ps_act_names 要显示或隐藏的字段名称字符串（以逗号分隔） pi_visible TRUE：显现，FALSE：隐藏 回传值：none 用法：CALL cl_set_act_visible("accept,cancel", FALSE) 函式名称：cl_set_action_active
程序名称：cl_set_action_active.4gl 用途：动态开启或关闭画面上的Action﹝不隐藏只是不可使用﹞ 传入参数：ps_actions 要显示或隐藏的字段名称字符串（以逗号分隔） pi_active TRUE：active，FALSE：deactive 回传值：none 用法：CALL cl_set_action_active("act1,act2", TRUE) 函式名称：cl_set_check_text
程序名称：cl_set_check_text.4gl 用途：设定CHECKBOX 的显示文字 传入参数：ps_field STRING 要设定的字段名称 ps_text STRING 要设定的TEXT 回传值：none 用法：CALL cl_set_check_text("aza04", "新的文字卷标") 函式名称：cl_set_combo_items
程序名称：cl_set_combo_items.4gl 用途：动态设定ComboBox 的Item 传入参数：ps_field_name ComboBox 所对应的字段名称 ps_values Item 所对应的储存值字符串（以逗号分 隔） ps_items Item 字符串（以逗号分隔） 回传值：None 用法：CALL cl_set_combo_items("oea08", "1,2", "Local Order,Export Order") 函式名称：cl_set_combo_lang
程序名称：cl_set_combo_lang.4gl 用途：动态设定有选择语言别的ComboBox 语言选项 传入参数：ps_field_name ComboBox 所对应的字段名称 回传值：None 用法：CALL cl_set_combo_lang("oea08") 函式名称：cl_set_combo_module
程序名称：cl_set_combo_module.4gl 用途：动态设定有选择模块数据的ComboBox 选项 传入参数：ps_field_name ComboBox 所对应的字段名称 pi_type pi_type = 1 时输出大写数据 回传值：None 用法：CALL cl_set_combo_module("oea08",0) 函式名称：cl_set_comments
程序名称：cl_set_comments.4gl 用途：设定字段的comments 传入参数：ps_fields 欲转换哪个字段﹙以字符串代表﹚ ps_att_value 欲转换的字符串 回传值：none 用法：CALL cl_set_comments("oea01,oea02","string1|string2") 函式名称：cl_set_comp_att_text
程序名称：cl_set_comp_att_text.4gl 用途：设定字段的显示名称（组件前面Label 的text） 传入参数：ps_fields 欲转换的字段 ps_att_value 欲转换的字符串 回传值：None 用法：CALL cl_set_comp_att_text("oma16”,”Order Number”) 函式名称：cl_set_comp_entry
程序名称：cl_set_comp_entry.4gl 用途：动态设定组件是否可输入 传入参数：ps_fields 字段名称字符串（中间以逗号分隔） pi_entry TRUE：可输入，FALSE：不可输入 回传值：None 用法：CALL cl_set_comp_entry("m01,m03,m07", FALSE) 函式名称：cl_set_comp_font_color
程序名称：cl_set_comp_font_color.4gl 用途：设定组件字型颜色 传入参数：ps_fields 字段名称字符串（中间以逗号分隔） ps_color 要设定的颜色（black,blue,cyan,...） 回传值：None 用法：CALL cl_set_comp_font_color("oea01,oea04", "red") 函式名称：cl_set_comp_lab_text
程序名称：cl_set_comp_lab_text.4gl 用途：设定Static Label (dummy) 的显示名称 传入参数：ps_fields 欲转换的字段 ps_att_value 欲转换的字符串 回传值：none 用法：CALL cl_set_comp_att_text("oma16”,”Order Number”) 函式名称：cl_set_comp_required
程序名称：cl_set_comp_required.4gl 用途：动态设定字段是否必须输入值 传入参数：ps_fields 字段名称字符串（中间以逗号分隔） pi_required TRUE：必须输入值，FALSE：非必须输入值 回传值：None 用法：CALL cl_set_comp_required("m01,m03,m07", TRUE) 函式名称：cl_set_comp_visible
程序名称：cl_set_comp_visible.4gl 用途：动态显现/隐藏画面上的组件 传入参数：ps_fields 字段名称字符串（中间以逗号分隔） pi_visible TRUE：显现，FALSE：隐藏 回传值：None 用法：CALL cl_set_comp_visible("oea01,oea04", FALSE) 函式名称：cl_set_docno_format
程序名称：cl_set_docno_format.4gl 用途：依照系统参数(aoos010)设定单据编号字段格式 传入参数：ps_field 字段名称 回传值：none 用法：CALL cl_set_docno_format("pmw01") 函式名称：cl_set_doctype_format
程序名称：cl_set_doctype_format.4gl 用途：依照系统参数(aoos010)设定单别字段格式 传入参数：ps_field 字段名称 回传值：none 用法：CALL cl_set_doctype_format ("apyslip") 函式名称：cl_set_field_format
程序名称：cl_set_field_format.4gl 用途：设定组件的format(金额,日期) 传入参数：ps_fields STRING 字段名称字符串(中间以逗点分隔) pi_format STRING 要设定的format 字符串 回传值：none 用法：CALL cl_set_field_format("oea01,oea04", "###,###.##") 函式名称：cl_set_field_pic
程序名称：cl_set_field_pic.4gl 用途：设定显示图片 传入参数：ps_confirm 确认码 ps_approve 核准码 ps_post 过帐码 ps_close 结案码 ps_void 作废码 ps_valid 有效码 回传值：none 用法：CALL cl_set_field_pic(g_oea.oeaconf,g_approve,"","",g_void,"") 函式名称：cl_set_focus_form
程序名称：cl_set_focus_form.4gl 用途：截取当前光标停留在画面上的字段位置 传入参数：ui_node 画面根节点组件 回传值：fld_name 画面名称 frm_name 字段名称 用法：CALL cl_set_focus_form(ui.Interface.getRootNode()) 函式名称：cl_set_head_visible
程序名称：cl_set_head_visible.4gl 用途：动态显现/隐藏画面上的单头区块 传入参数：ps_comps 要显现/隐藏组件的字段名称字符串(中间以逗点分 隔) ps_visible 是否显现(YES→显现,NO→隐藏,AUTO→自动判断) 回传值：none 用法：CALL cl_set_head_visible("folder01,folder02","AUTO") 函式名称：cl_set_num_value
程序名称：cl_set_num_value.4gl 用途：设定数值小数字数(可以四舍五入) 传入参数：ps_value STRING 传入数值 ps_digit INTEGER 小数位数 回传值：ls_value 回传数值 用法：CALL cl_set_num_value(23.12345,4) RETURNING ls_value 函式名称：cl_set_win_title
程序名称：cl_set_win_title.4gl 用途：专门用于OPENWINDOW 但没有FORM 的title 语言转换 传入参数：lc_frm_name 画面名称 回传值：none 用法：CALL cl_set_win_title(‘aimt370’) 函式名称：cl_setup
程序名称：cl_setup.4gl 用途：程序执行的基本设定 传入参数：ps_module 模块代号 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：CALL cl_setup("AXM") 函式名称：cl_show_array
程序名称：cl_show_array.4gl 用途：开窗显示array 内容 传入参数：pnode_array 传入base.TypeInfo.create(array 变数) ps_win_title 作为画面上方的title 字符串 ps_title_str 作为table 中各字段Title 的字符串，转好多语言 后， 请用"|"组合传入 回传值：none 用法：CALL (base.TypeInfo.create(g_azb),"签核人员列表","签核人员| 密码|金额") 函式名称：cl_show_fld_cont
程序名称：cl_show_fld_cont.4gl 用途：设定p_per 内有特殊格式设定的字段 1. 汇率显示：rate(币别字段) 2. textEdit 明细显示：show_fd_desc 3. 金额逗号：amt --不在此function 控制 4. 对象多语系名称：show_itme(参照table,参照栏名,key 序列, per 档上字段名称) ﹝2.0﹞ 5. 多单位字段显示：multi_unit(数量二字段,单位二字段,换算率 二字段,数量一字段,单位一字段,换算率一字段,采购单位栏 位,料件编号字段) ﹝2.0﹞ 传入参数：none 回传值：none 用法：CALL cl_show_fld_cont() 函式名称：cl_show_help
程序名称：cl_show_help.4gl 用途：显示程序的说明档案 传入参数：None 回传值：None 用法：CALL cl_show_help() 函式名称：cl_show_req_fields
程序名称：cl_show_req_fields.4gl 用途：显现画面上需要输入却未输入的所有字段 传入参数：None 回传值：None 用法：CALL cl_show_req_fields() 函式名称：cl_sure
程序名称：cl_sure.4gl 用途：询问"是否确定执行本作业(Y/N)：" 传入参数：p_row,p_col 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：IF cl_sure(0,0) 函式名称：cl_sure3
程序名称：cl_sure3.4gl 用途：询问"您所输入的数据是否正确(Y/N)？" 传入参数：p_row,p_col 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：IF cl_sure3(0,0) 函式名称：cl_trans_xml
程序名称：cl_trans_xml.4gl 用途：转换xml 档案 1:excel , 2:html , 3:callViewer, 4:txt , 5:html2pdf , 6:word 传入参数：xml_name 要转换的xml 档案 output_type 转换格式 回传值：none 用法：CALL cl_trans_xml("aimr100.23r.xml","1") 函式名称：cl_download_file
程序名称：cl_transfer_file.4gl 用途：Transfer file from Server to Client 传入参数：ps_source STRING Source file path ps_target STRING Destination file path 回传值：1 FOR TRUE 成功 0 FOR FALSE 失败 用法：CALL cl_download_file("/tmp/a.doc", "C:/temp/b.doc") 函式名称：cl_upload_file
程序名称：cl_transfer_file.4gl 用途：Transfer file from Client to Server 传入参数：ps_source STRING Source file path ps_target STRING Destination file path 回传值：1 FOR TRUE 成功 0 FOR FALSE 失败 用法：CALL cl_upload_file("C:/temp/a.doc", "/tmp/b.doc") 函式名称：cl_browse_file
程序名称：cl_transfer_file.4gl 用途：Open a file dialog to get a file on Client 传入参数：none 回传值：file STRING - selected file path or NULL means cancel selection 用法：CALL cl_browse_file() 函式名称：cl_browse_dir
程序名称：cl_transfer_file.4gl 用途：Open a directory dialog to get a directory on Client 传入参数：none 回传值：directory STRING - selected directory or NULL means cancel selection 用法：CALL cl_browse_dir() 函式名称：cl_server_file
程序名称：cl_transfer_file.4gl 用途：Open a directory dialog to get a file on Server 传入参数：Default starting path 回传值：file STRING - selected directory or NULL means cancel selection 用法：CALL cl_server_file() 函式名称：cl_ui_init
程序名称：cl_ui_init.4gl 用途：程序设定初始化 传入参数：None 回传值：None 用法：CALL cl_ui_init() 函式名称：cl_ui_locale
程序名称：cl_ui_locale.4gl 用途：转换语言别 传入参数：pc_frm_name 画面名称（NULL→预设名称：g_prog） 回传值：None 用法：CALL cl_ui_locale() 函式名称：cl_upsw
程序名称：cl_upsw.4gl 用途：询问"是否确认此张异动单据(Y/N)? " "是否取消确认此张异动单据(Y/N)? " 传入参数：p_row,p_col p_upsw Y：确认 N：取消确认 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：if cl_upsw(0,0,p_upsw) 函式名称：cl_used
程序名称：cl_used.4gl 用途：计录各程序实际被执行的状况 传入参数：p_code - 程序代号 time1 - 起始执行时间 sw - 1：执行开始，RETURN TIME 2：执行结束 回传值：time 用法：call cl_used(p_code,time1,sw) call cl_used('aom2020','09:30','1') call cl_used('aom2020','09:40','2') 函式名称：cl_user
程序名称：cl_user.4gl 用途：设定关于用户与系统公用变量的设定 传入参数：none 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：CALL cl_user() 函式名称：cl_userdefined_field_check
程序名称：cl_userdefined_field.4gl 用途：检查自订字段值 传入参数：pc_fldname 自订字段名称 ps_value 自订字段值 回传值：1 FOR TRUE 是 0 FOR FALSE 否 用法：CALL cl_userdefined_field_check("imaud01",g_ima.imaud01) RETURNING li_result 函式名称：cl_userdefined_field_query
程序名称：cl_userdefined_field.4gl 用途：自订字段开窗 传入参数：pc_fldname 自订字段名称 pi_construct TRUE 多选数据/FALSE 单选数据回传 回传值：lc_result 开窗值回传 用法：CALL cl_userdefined_field_query("imaud02",FALSE) RETURNING g_ima.imaud02 函式名称：cl_validate
程序名称：cl_validate.4gl 用途：检查行业别字段数据、带出关联字段数据（p_per 设定） 传入参数：none 回传值：li_result TRUE/FALSE 用法：IF NOT cl_validate() THEN NEXT FIELD CURRENT END IF 函式名称：cl_ui_set_init
程序名称：cl_validate.4gl 用途：抓取组件设定值（p_per 行业别字段设定） 传入参数：none 回传值：ls_value 画面上显示的值lc_gav28 基本文件资料检查方式 lc_gav20 动态检查设定lc_gav21 SQL 或函式检查设定 lc_gav29 关联字段抓取方式lc_gav31 关联字段代码 lc_gav22 关联字段动态设定lc_gav23 SQL 或函式抓取方式 lc_gav30 数据重复检查方式lc_gav26 动态数据检查 lc_gav27 SQL 或函式检查设定 用法：CALL cl_ui_set_init() RETURNING g_ui.g_value,g_ui.g_check_mtd,g_ui.g_check_dym, g_ui.g_check_fun, g_ui.g_refer_mtd,g_ui.g_refer_fld, g_ui.g_refer_dym,g_ui.g_refer_fun,g_ui.g_rpt_mtd, g_ui.g_rpt_dym, g_ui.g_rpt_fun 函式名称：cl_data_check
程序名称：cl_validate.4gl 用途：基本文件数据检查（p_per 行业别字段设定） 传入参数：ps_field 字段代码 pc_value 字段值 回传值：li_result TRUE/FALSE 用法：CALL cl_data_check("oeaida001",g_oea.oeaida001) RETURNING li_result 函式名称：cl_repeat_check
程序名称：cl_validate.4gl 用途：数据重复检查（p_per 行业别字段设定） 传入参数：ps_field 字段代码 pc_value 字段值 回传值：li_result TRUE/FALSE 用法：CALL cl_repeat_check("oeaida001",g_oea.oeaida001) RETURNING li_result 函式名称：cl_reference
程序名称：cl_validate.4gl 用途：关联字段值抓取并显示（p_per 行业别字段设定） 传入参数：ps_field 字段代码 pc_value 字段值 回传值：li_result TRUE 用法：CALL cl_reference("oeaida001",g_oea.oeaida001) RETURNING li_result 函式名称：cl_qry_string
程序名称：cl_validate.4gl 用途：字段连查（p_per 字段设定） 传入参数：ps_fldname 字段代码 回传值：none 用法：CALL cl_qry_string("btn_01") 函式名称：cl_get_table_name
程序名称：cl_validate.4gl 用途：寻找字段在数据库对应的table name 传入参数：ps_fldname 字段代码 回传值：lc_frmname 表格代码 用法：CALL cl_get_table_name(lc_gaq01) 本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/leekeyshaw/archive/2008/12/17/3540354.aspx
|
|
|
