Tiptop GP 共用内置函数函式程式查询手册V1.1

TIPTOP Common Library Fuction

1．cl_about

程序名称：cl_about.4gl

用 途：程序信息

传入参数：none

回传值 ：none

用 法 ：CALL cl_about()

2．cl_anykey

程序名称：cl_anykey.4gl

用 途：按任意键继续

传入参数：p_sw Not used

回传值 ：none

用 法 ：CALL cl_anykey()

3．cl_autotime

程序名称：cl_autotime.4gl

用 途：自动累加时间，累加级数为1

传入参数：time1 累加起始时间

sw 累加类型 H:小时 M：分钟 S：秒钟

lay 累加级数 Default = 1

回传值 ：Time 时间

用 法 ：CALL cl_autotime(`09:30`,`H`,1)

4．cl_batch_proc

程序名称：cl_batch_proc.4gl

用 途：动态产生批次数据处理画面

传入参数：ps_headers (Table的Header字符串，中间以逗号分隔)

回传值 ：none

用 法 ：LET ls_headers =”img01,img02,img03,img04,img09”

CALL cl_batch_proc(ls_headers)

5．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)

6．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,lue,green)”)

7．cl_chg_win_title

程序名称：cl_chg_win_title.4gl

用 途：转换程序Title显示

传入参数：ps_str 显示的字符串

回传值 ：none

用 法 ：CALL cl_chg_win_title(“更改后的窗体Title”)

8．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 …

9．cl_chk_data_continue

程序名称：cl_chk_data_continue.4gl

用 途：检查资料是否连续

传入参数：p_souce STRING 源数据

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF NOT cl_chk_data_continue(g_pmw.pmw01[5,10]) THEN …

10．cl_chk_str_correct

程序名称：cl_chk_data_continue.4gl

用 途：检查字符串是否符合0~9，a~z

传入参数：ps_source STRING 源数据

ps_count SMALLINT 检查几码，如果未传几码则会以来源字

符串长度当作ps_count

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF NOT cl_chk_str_correct(g_pmw01[1,3]) THEN …

11．cl_chkym

程序名称：cl_chkym.4gl

用 途：检查文字型态变量是否为年月型台

传入参数：p_str CHAR(6) 文字型态变量

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF cl_cheym(p_str) THEN …

12．cl_choice

程序名称：cl_choice.4gl

用 途：让用户输入选择

传入参数：l_msg CHAR(100) 窗体上显示的说明文字

回传值 ：l_choice

用 法 ：CALL cl_choice(l_msg) RETURNING g_choice

13．cl_open_url

程序名称：cl_client_app.4gl

用 途：藉由explorer开启传入的网址

传入参数：p_url STRING 网址

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：CALL cl_open_url(“http://www.space-shuttle.com.tw”)

14．cl_open_doc

程序名称：cl_client_app.4gl

用 途：开启档案

传入参数：ps_doc STRING 档案位置

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：CALL cl_open_doc(“C:/tiptop/tiptop.txt”)

15．cl_open_prog

程序名称：cl_client_app.4gl

用 途：藉由指定的程序开启档案

传入参数：ps_prog STRING 程序工具

ps_arg STRING 待开启档案的位置

回传值 ：1 FOR TURE 是

0 FOR FALSE 否

用 法 ：CALL cl_open_prog

(“C:/editor.exe”,”C:/toptip/toptip.txt”)

16．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”)

17．cl_cmdask

程序名称：cl_cmdask.4gl

用 途：询问用户欲执行的程序，并执行之

传入参数：none

回传值 ：none

用 法 ：CALL cl_cmdask()

18．cl_cmdat

程序名称：cl_cmdat.4gl

用 途：指定时间延后执行UNIX指令

传入参数：p_time 指定时间

p_cmd UNIX指令

回传值 ：none

用 法 ：CALL cl_cmdat(ptime，pcmd)

19．cl_cmdrun

程序名称：cl_cmdrun.4gl

用 途：执行UNIX指令

传入参数：ps_cmd 程序代码或UNIX执行指令

回传值 ：none

用 法 ：CALL cl_cmdrun(‘axmq450’)

20．cl_cmdrun_wait

程序名称：cl_cmdrun_wait.4gl

用 途：执行UNIX指令，需等待此指令结束后才可继续原程序的执行

传入参数：ps_cmd 程序代码或UNIX执行指令

回传值 ：none

用 法 ：LET l_cmd = “axmp800”

CALL cl_cmd(l_cmd)

21．cl_cmmsg

程序名称：cl_cmmsg.4gl

用 途：显示 异动更新成功 讯息

传入参数：p_code 讯息种类 1及4：代表异动更新完成

2及3：代表此张单据异动更新完成

回传值 ：none

用 法 ：CALL cl_cmmsg(1)

22．cl_conf3

程序名称：cl_conf3.4gl

用 途：根据MESSAGE CODE取出正确讯息，询问

（配合发票的使用，本作业允许用户不输入数据）

传入参数：p_row,p_col 无作用

P_msgcode

回传值 ：1 FOR TURE 是

0 FOR FALSE 否

用 法 ：IF cl_conf3(0,0,mesgcode)THEN …

23．cl_confirm

程序名称：cl_confirm.4gl

用 途：依照讯息代码将数据显示在画面上，询问”是否…”

传入参数：ps_msg 讯息代码或讯息字符串

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF(cl_confirm(“agl_021”))THEN…

24．cl_cont

程序名称：cl_cont.4gl

用 途：询问”是否继续执行本作业（Y/N）:”

传入参数：p_row,p_col 无作用

回传值 ：1 FOR TURE 是

0 FOR FALSE 否

用 法 ：IF cl_cont(0,0)THEN…

25．cl_create_4sm

程序名称：cl_create_4sm.4gl

用 途：产生udm_tree所需要的StartMenu档案

传入参数：pc_menu_root StartMenu的根节点

Pi_rebuild 是否需要重新覆盖已存在的4sm档案

回传值 ：none

用 法 ：CALL cl_create_4sm(“m01”,TRUE)

26．cl_create_qry

程序名称：cl_create_qry.4gl

用 途：动态产生窗口以供查询，并回传查询结果

传入参数：none

回传值 ：ms_ret1,ms_ret2,ms_ret3… 回传数目依照对应的回传字段数

用 法 ：CALL cl_create_qry() RETURNING g_oea.oea14

27．cl_dynamic_qry

程序名称：cl_dynamic_qry.4gl

用 途： 自定义行别字段动态产生开窗功能，并回传查询结果

传入参数：none

回传值 ：ms_ret1,ms_ret2,ms_ret3… 回传数目依照对应的回传字段数

用 法 ：CALL cl_dynamic_qry()RETURNING g_oea.oeaida001

28．cl_days

程序名称：cl_days.4gl

用 途：取得该年月的天数

传入参数：p_year 年份

p_month 月份

回传值 ：l_days 天数

用 法 ：LET l_days = cl_days(p_yy,p_mm)

29．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…

30．cl_delete

程序名称：cl_delete.4gl

用 途：询问”是否删除此笔资料”

传入参数：none

回传值 ：1 FOR TURE 是

0 FOR FALSE 否

用 法 ：IF (cl_delete()) THEN …

31．cl_delh

程序名称：cl_delh.4gl

用 途：询问”是否确定删除此笔单头及所有单身数据(Y/N):”

(for 单文件建文件程序单头删除功能)

传入参数：p_row,p_col

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF(cl_delh(0,0))THEN…

32．cl_delh1

程序名称：cl_deh1.4gl

用 途：询问”是否确定取消此笔单头及所有单身数据(Y/N):”

(for 单文件建文件程序单头取消功能)

传入参数：p_row,p_col

回传值 ：1 FOR TURE 是

0 FOR FALSE 否

用 法 ：IF(cl_dehl(0,0))THEN…

33．cl_detail_input_auth

程序名称：cl_detail_input_auth.4gl

用 途：检查是否允许在单身中有insert或delete的权限

传入参数：ps_act_type STRING 要检查的字符串(insert/delete)

回传值 ：1 FOR TURE 是

0 FOR FALSE 否

用 法 ：IF(cl_detail_input_auth(“insert”))

34．cl_digcut

程序名称：cl_digcut.4gl

用 途：将数值依照指定的小数字数进行四舍五入

传入参数：p_value 数值

P_digit 允许的小数位数

回传值 ：p_afterValue

用 法 ：LET p_afterValue = cl_digcut(p_value,p_digit)

35．cl_doc

程序名称：cl_doc.4gl

用 途：相关档案维护

传入参数：none

回传值 ：none

用 法 ：LET g_doc.columnl = “oea01”

LET g_doc.valuel = g_oea.oea01

CALL cl_doc()

36．cl_dynamic_locale

程序名称：cl_dynamic_local.4gl

用 途：动态转换画面的语言别

传入参数：none

回传值 ：none

用 法 ：CALL cl_dynamic_local()

37．cl_end

程序名称：cl_end.4gl

用 途：显示”作业结束，请按任意键继续：”

传入参数：p_row,p_col 无作用

回传值 ：none

用 法 ：CALL c_end(0,0)

38．cl_end2

程序名称：cl_end2.4gl

用 途：显示执行结果，并询问是否要继续作业

传入参数：p_code (1:成功 2:失败)

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：CALL cl_end2(1)RETURNING l_flag

39．cl_err

程序名称：cl_err.4gl

用 途：显示错误讯息

传入参数：p_msg 错误讯息的附加说明

err_code 错误讯息代码

p_n 显示错误讯息后的停留秒数或是等用户按下确定

1. ：不开启讯息窗口，只在状态栏显示、

>1 ：停留秒数

1 ：开启讯息窗口等待用户确定

回传值 ：none

用 法 ：CALL cl_err(p_msg,err_code,p_n)

40．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(“Wring”,”1000”,NULL,1)

41．cl_err3

程序名称：cl_err3.4gl

用 途：显示数据库处理后的错误讯息(insert/update/select/delete)

传入参数：Type 讯息的类型(ins/upd/sel/del)

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)

42．cl_err_msg_log

程序名称：cl_err_msg_log.4gl

用 途：记录错误讯息

传入参数：none

回传值 ：none

用 法 ：WHENEVER ERROR CALL cl_err_msg_log

43．cl_exp

程序名称：cl_exp.4gl

用 途：询问”此笔资料是否确定无效(Y/N):”

或”此笔资料是否恢复有效(Y/N):”

(for 单文件建文件无效功能)

传入参数：p_row,o_col

P_old_acticode 有效码(Y/N)

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF (cl_exp(0,0,g_pmw.pmwacti))THEN…

44．cl_facfor

程序名称：cl_facfor.4gl

用 途：将INPUT DECLIAM(16，8)数值转换为9位字符的格式

若值为12345678， 将传回’^12345678’

若值为1234567， 将传回’1234567.0’

若值为123456， 将传回’123456.00’

若值为12345.67， 将传回’12345.670’

若值为.1234567， 将传回’.12345670’

传入参数：p_fac 数值

回传值 ：l_str FORMAT后的数值，以CHAR形态RETURN

用 法 ：LET a = cl_facfor(p_fac);PRINT a

PRINT cl_facfor(p_fac)

45．cl_field_fomat

程序名称：cl_field_format.4gl

用 途：转换p_per内自由格式设定的format

传入参数：ps_currency CHAR(4) —当前无用处

Pc_frm_name CHAR(10) 画面档名

回传值 ：none

用 法 ：CALL cl_field_format(g_aza.aza17.mc_frm_name)

46．cl_fld_doc

程序名称：cl_fld_doc.4gl

用 途：字段的相关档案维护

传入参数：ps_field STRING 字段名称

回传值 ：url 档案的URL

用 法 ：CALL cl_fld_doc(“ima01”)

47．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)

48．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’)

49．cl_forupd_sql

程序名称：cl_forupd_sql.4gl

用 途：判断SELECT … FOR UPDATE 是否加上其他语法（by Database）

传入参数：ps_forund_sql STRING 原传入的SQL字符串

回传值 ：ps_forupd_sql STRING 调整过的SQL字符串

用 法 ：CALL cl_forupd_sql(ps_forupd_sql)

50．cl_get_column_info

程序名称：cl_get_column_info.4gl

用 途：取得字段型态及长度

传入参数：p_tablename TABLE的名称

p_colname 字段的名称

回传值 ：字段型态 not null FOR TURE:有回传值

null FOR FALSE：否

长度 not null FOR TURE:有回传值

null FOR FALSE:否

用 法 ：CALL cl_get_column_info(p_tablename,p_colname)

RETURNING l_coldatatype,l_collenth

51．cl_get_feldname

程序名称：cl_feldname.4gl

用 途：依字段代码取出系统字段名称设定维护作业(p_feldname)内的字段名称

传入参数：p_gaq01 字段代码

p_lang 语言别

回传值 ：p_gaq03 字段说明

用 法 ：LET g_msg = cl_get_feldname(p_gaq01,p_lang)

52．cl_get_progdesc

程序名称：cl_get_progdesc.4gl

用 途：取得程序代码说明(若有客制码=”Y”的优先回传)

传入参数：p_gaz01 程序代码

p_lang 语言别

回传值 ：p_gaz03 程序代码说明

用 法 ：LET g_msg = cl_get_progdesc(g_prog,p_lang)

53．cl_getmsg

程序名称：cl_getmesg.4gl

用 途：依讯息代码取出系统错误讯息文件(ze_file)内的错误信息

传入参数：p_code 讯息代码

P_lang 语言别

回传值 ：l_msg 错误讯息

用 法 ：LET g_msg = cl_getmsg(p_code,p_lang)

54．cl_insert_top_menu

程序名称：cl_insert_top_menu.4gl

用 途：插入TopMenu

传入参数：pc_prog CHAR(10) 程序代号

回传值 ：none

用 法 ：CALL cl_insert_top_menu(NULL)

55．cl_itemname_by_lang

程序名称：cl_itemname_by_lang.4gl

用 途：多语言记录功能查询

传入参数：l_gbc01 档案代码(Table ID)

l_gbc02 字段代码

l_gbc03 KEY值序列，多组时以,隔开

l_gbc04 语言别

l_gbc05 数据多语言名称

回传值 ：lc_gbc05 对应语言别的名称

用 法 ：cl_itemname_by_lang(“ima_file”,”ima02”,g_ima.ima01CLIPPEND,

g_lang,g_ima.ima02)RETURNING g_ima.ima02

56．cl_load_act_list

程序名称：cl_load_act_list.4gl

用 途：加载ActionList(程序所属的4ad)

传入参数：ps_prog STRING 程序代号

回传值 ：none

用 法 ：CALL cl_load_act_list(NULL)

57．cl_load_act_sys

程序名称：cl_load_act_sys.4gl

用 途：加载ActionList（系统标准的4ad）

传入参数：ps_prog STRING 程序代号

回传值 ：none

用 法 ：CALL cl_load_act_sys(NULL)

58．cl_load_action_view

程序名称：cl_load_action_view.4gl

用 途：载入TopMenu与ToolBar

传入参数：none

回传值 ：none

用 法 ：CALL cl_load_action_view()

59．cl_load_style_list

程序名称：cl_load_style_list.4gl

用 途：载入StyleList

传入参数：ps_prog STRING 程序代号

回传值 ：none

用 法 ：CALL cl_load_style_list(NULL)

60．cl_msgany

程序名称：cl_msgany.4gl

用 途：显示讯息，然后按任意键继续

传入参数：p_row,p_col 无作用

p_msg

回传值 ：none

用 法 ：CALL cl_msgany(0,0,1_msg)

61．cl_navigator_seting

程序名称：cl_navigator_seting.4gl

用 途：设定ToolBar上浏览上下笔数据的按钮状态

传入参数：pic_curr_index 当前Cursor索引值

pic_row_count 资料笔数

回传值 ：none

用 法 ：CALL cl_navigator_setting(g_cur_index,g_row_count)

62．cl_null

程序名称：cl_null.4gl

用 途：检查字符串是否为null或是空字符串

传入参数：ps_source （来源字符）

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF NOT cl_null(ps_source)THEN…

63．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…

64．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

65．cl_numfor3

程序名称：cl_numfor3.4gl

用 途：将数值不须的小数位数不打印出

传入参数：p_value数值

回传值 ：l_str FORMAT后的数值，以CHAR型态RETURN

用 法 ：LET a = cl_numfor3(l_str,13);PRINT a

66．cl_on_idle

程序名称：cl_on_idle.4gl

用 途：在ON IDLE时的处理

传入参数：none

回传值 ：none

用 法 ：CALL cl_on_idle()

67．cl_opmsg

程序名称：cl_opmsg.4gl

用 途：显示操作方法于状态栏

操作方法着重于FUCTION键的作用

传入参数：p_op_type 操作型态

a:新增，u：更改，q：查询，b:单身处理，w:多栏查询，p：打印条件选择

回传值 ：none

用 法 ：CALL cl_opmsg(‘q’)

68．cl_outnam

程序名称：cl_outnam.4gl

用 途：赋予一个报表文件代号(Disk File Name)

传入参数：p_code 报表程序代号

回传值 ：p_name 报表文件代号

用 法 ：CALL cl_outnam(p_code)RETURNING l_name

69．cl_parse

程序名称：cl_parse.4gl

用 途：将MATCHS’[XYZ]’的指令转成ORACLE的IN（’X’,’Y’,’Z’）

传入参数：p_type 欲转换的字符串

回传值 ：l_str 转换过后的字符串

用 法 ：CALL cl_parse(ls_str)

70．cl_pause

程序名称：cl_pause.4gl

用 途：请按Enter继续…

传入参数：none

回传值 ：none

用 法 ：IF cl_pause()

71．cl_prcgress_bar

程序名称：cl_progress_bar.4gl

用 途：开启作业处理的画面

传入参数：pi_total_count

回传值 ：none

用 法 ：CALL cl_progress_bar(3)

72．cl_progressing

程序名称：cl_progress_bar.4gl

用 途：显示当前处理的进度

传入参数：ps_log 正在处理的作业说明

回传值 ：none

用 法 ：CALL cl_progressing(“Create:”)

73．cl_prompt

程序名称：cl_prompt.4gl

用 途：询问l_msg

传入参数：p_row,p_col 无作用

l_msg 显示于窗口上的信息

回传值 ：1 FOR TURE 是

0 FOR FALSE 否

用 法 ：IF cl_prompt(0,0,l_msg)THEN…

74．cl_prt

程序名称：cl_prt.4gl

用 途：询问用户以何种方式处理报表文件

传入参数：p_name 报表文件名称

p_prtway 打印方式

p_copies 打印份数

p_len 报表长度

回传值 ：none

用 法 ：CALL cl_prt(l_name,’’,’1’,g_len)

75．cl_qbe_init

程序名称：

用 途：预设QBE及g_qbe_code的值

传入参数：none

回传值 ：none

用 法 ：CALL cl_qbe_init()

76．cl_qbe_select

程序名称：

用 途：开启QBE查询条件列表及显示条件于画面上

传入参数：none

回传值 ：none

用 法 ：CALL cl_qbe_select()

77．cl_qbe_list

程序名称：

用 途：QBE查询条件列表

传入参数：none

回传值 ：g_qbe_code 条件序号

用 法 ：CALL cl_qbe_list()RETURNING lc_qbe_sn

78．cl_qbe_display_condition

程序名称：

用 途：显示QBE查询条件于画面上

传入参数：pc_gbm01 条件序号

回传值 ：none

用 法 ：CALL cl_qbe_display_cndition(lc_qbe_sn)

79．cl_qbe_save

程序名称：

用 途：QBE查询条件储存

传入参数：none

回传值 ：none

用 法 ：CALL cl_qbe_save()

80．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

81．cl_rbmsg

程序名称：cl_rbmsg.4gl

用 途：显示ROLLBACK WORK 讯息

传入参数：p_code 讯息种类

1. 代表异动更新不成功

2及3.代表此张单据异动更新不成功

4.代表更新不成功

回传值 ：none

用 法 ：CALL cl_rbmsg(l)

82．cl_repcon

程序名称：cl_repcon.4gl

用 途：询问特殊打印条件

传入参数：p_date 制表日期 p_towhom 报表收受单位或人员

p_lang 选择打印语言别 p_bgjob 是否延后执行本作业

p_time 运行时间 p_prtway 选择打印方式

p_copies 打印份数

回传值 ：同传入参数列表

用 法 ：CALL cl_repcon(p_row,p_col, p_date, p_towhom, p_lang, p_bgjob, p_time,

p_prtway, p_copies)

83．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

84．cl_replace_str_by_index

程序名称：cl_replace_str_by_index.4gl

用 途：依据索引位置取代字符串

传入参数：ps_source STRING 来源字符串

pi_from STRING 起始索引位置

pi_end STRING 结束索引位置

ps_new STRING 要换成的新字符串

回传值 ：ls_result STRING 取代后的新的字符串

用 法 ：CALL cl_replace_str_by_index(“abcdefg”,3,5,”WXYZ”)

RETURNING ls_new

85．cl_say

程序名称：cl_say.4gl

用 途：将金额类数值转换成SAY TOTALA

传入参数：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_sqy1,l_sqy2

86．cl_set_act_visible

程序名称：cl_set_act_visble.4gl

用 途：动态显示/隐藏画面上的Action

传入参数：ps_act_names 要显示或隐藏的字段名称字符串(以逗号分隔)

Pi_visible TRUE:显示 FALSE:隐藏

回传值 ：none

用 法 ：CALL cl_set_act_visible(“accept,cancel”,FALSE)

87．cl_set_action_active

程序名称：cl_set_action_active.4gl

用 途：动态开启或关闭画面上的Action(不隐藏只是不可使用)

传入参数：ps_actions 要显示或隐藏的字段名称字符串（以逗号分隔）

回传值 ：pi_active TRUE:active FLASE:deactive

用 法 ：CALL cl_set_action_active(“act1,act2”,TRUE)

88．cl_set_check_text

程序名称：cl_set_check_text.4gl

用 途：设定CHECKBOX的显示文字

传入参数：ps_field STRING 要设定的字段名称

ps_text STRING 要设定的TEXT

回传值 ：none

用 法 ：CALL cl_set_check_text(“aza04”,”新的文字卷标”)

89．cl_set_combo_items

程序名称：cl_set_combo_items.4gl

用 途：动态设定ComboBox的Item

传入参数：ps_field_name ComboBOX所对应的字段名称

ps_value Item所对应的存储值字符串(以逗号分隔)、

ps_items Item字符串（以逗号分隔）

回传值 ：none

用 法 ：CALL cl_set_combobox_items

(“oea08”,”1,2”,”Local Order,”Export Order)

90．cl_set_combo_lang

程序名称：cl_combo_lang.4gl

用 途：动态设定有选择语言别的ComboBox语言选项

传入参数：ps_filed_name ComboBOX所对应的字段名称

回传值 ：none

用 法 ：CALL cl_set_combo_lang(“oea08”)

91．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)

92．cl_set_comments

程序名称：cl_comments.4gl

用 途：设定字段的comments

传入参数：ps_fields 欲转换哪个字段(以字符串代表)

ps_att_value 欲转换的字符串

回传值 ：none

用 法 ：CALL cl_set_comments(“oea01,oea02”,”string1|string2”)

93．cl_set_comp_att_text

程序名称：cl_set_comp_att_text.4gl

用 途：设定字段的显示名称(组件前面的Lable的text)

传入参数：ps_fields 欲转换的字段

ps_att_value 欲转换的字符串

回传值 ：none

用 法 ：CALL set_comp_att_text(“oma16”,”Order Number”)

94．cl_set_comp_entry

程序名称：cl_set_comp_entry.4gl

用 途：动态设定组件是否可输入

传入参数：ps_fields 字段名称字符串（中间以逗号分隔）

pi_entry TRUE:可输入 False：不可输入

回传值 ：none

用 法 ：CALL cl_set_comp_entry(“m01,m02,m08”,FALSE)

95．cl_set_comp_font_color

程序名称：cl_set_comp_font.4gl

用 途：设定组件字型颜色

传入参数：ps_fields 字段名称字符串（中间以逗号分隔）

ps_color 要设定的颜色（black，bule，cyan…）

回传值 ：none

用 法 ：CALL cl_set_comp_font_color(“oea01,oea04”,”red”)

96．cl_set_comp_lab_text

程序名称：cl_set_comp_lab_text.4gl

用 途：设定Static Label（dummy）的显示名称

传入参数：ps_fields 欲转换的字段

ps_att_value 欲转换的字符串

回传值 ：none

用 法 ：CALL cl_set_comp_lab_text(“oma10”,”Order Number”)

97．cl_set_comp_required

程序名称：cl_set_comp_requird.4gl

用 途：动态设定字段是否必须输入值

传入参数：ps_fields 字段名称字符串(中间以逗号分隔)

pi_required TRUE:必须输入值 FALSE：非必要输入值

回传值 ：none

用 法 ：CALL cl_set_comp_required(“m01,m08”,TRUE)

98．cl_set_comp_visible

程序名称：cl_set_comp_visible.4gl

用 途：动态显示/应藏画面上的组件

传入参数：ps_fields 字段名称字符串（中间以逗号分隔）

pi_visible TRUE:显示 FALSE：应藏

回传值 ：none

用 法 ：CALL cl_set_comp_visible(“oeca01,ocea3”,FALSE)

99．cl_set_docno_format

程序名称：cl_set_docno_format.4gl

用 途：依照系统参数(aoos010)设定单据编号字段格式

传入参数：ps_field 字段名称

回传值 ：none

用 法 ：CALL cl_set_docno_format(“pmw01”)

100．cl_set_doctype_format

程序名称：cl_set_doctype_format.4gl

用 途：依照系统参数(aoos010)设定单别字段格式

传入参数：ps_field 字段名称

回传值 ：none

用 法 ：CALL cl_set_doctype_format(“apyslip”)

101．cl_set_field_format

程序名称：cl_set_field_format.4gl

用 途：设定组件的format(金额，日期)

传入参数： ps_fields STRING 字段名称字符串（中间以逗号分隔开）

ps_format STRING 要设定的format字符串

回传值 ：none

用 法 ：CALL cl_set_field_format(“oea01,oea04”,”###,###.#”)

102．cl_set_field_pic

程序名称：cl_set_field_pic.4gl

用 途：设定显示图片

传入参数： ps_confirm 确认码

ps_approve 核准码

ps_post 过账码

ps_close 结案码

ps_void 作废码

pa_valid 有效码

回传值 ：none

用 法 ：CALL cl_set_filed_pic(g_oea.oeaconf,g_approve,””,””,g_void,””)

103．cl_set_focus_form

程序名称：cl_set_focus_form.4gl

用 途：截取当前光标停留在画面上的字段位置

传入参数： ui_code 画面根节点组件

回传值 ：fld_name 画面名称

frm_name 字段名称

用 法 ：CALL cl_set_focus_form(ui.Interface.getRootNode())

104．cl_set_head_visible

程序名称：cl_set_head_visible.4gl

用 途：动态显示/隐藏画面上的单头区块

传入参数： ps_comps 要显示/隐藏组件的字段名称字符串（中间以逗点分隔）

ps_visible 是否显示(YES:显示，NO:隐藏，AUTO：自动判断)

回传值 ：none

用 法 ：CALL cl_set_head_visible(“folder01,fold02”,”AUTO”)

105．cl_set_num_value

程序名称：cl_set_num_value.4gl

用 途：设定数值小数字数(可以四舍五入)

传入参数： ps_value STRING 传入数值

Ps_digit INTERGER 小数位数

回传值 ：ls_value

用 法 ：CALL cl_set_num_value(23.12345,4)RETURNING ls_value

106．cl_set_win_title

程序名称：cl_.set_win_title.4gl

用 途：专门用于OPEN WINDOW但没有FORM的title语言转换

传入参数： lc_frm_name 画面名称

回传值 ：none

用 法 ：CALL cl_set_win_title（‘aimt370’）

107．cl_setup

程序名称：cl_setup.4gl

用 途：程序执行的基本设定

传入参数： ps_module 模块代号

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：CALL cl_setup(“AXM”)

108．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 cl_show_array(base.TypeInfo.create(a_azb),”签核人员列表”，“签

核人员|密码|金额”)

109．cl_show_fld_cont

程序名称：cl_show_fld_cont.4gl

用 途：设定p_per内有特殊格式设定的字段

传入参数： 1、汇率显示：rate（币别字段）

2、textEdit明细显示：show_fd_desc

3、金额逗号：amt—不在此funcation控制

4、对象多语系名称：show_item(参照tabel，参照栏名，key序列，per檔

上字段名称)

5、多单位字段显示：multi_unit（数量二字段，单位二字段，换算率二字段，

数量一字段，单位一字段，换算率一字段，采购单位字段，料件号字段）

回传值 ：none

用 法 ：CALL cl_show_fld_cont()

110．cl_show_help

程序名称：cl_show_help.4gl

用 途：显示程序的说明文文件

传入参数：none

回传值 ：none

用 法 ：CALL cl_show_help()

111．cl_show_req_fields

程序名称：cl_show_req_fields.4gl

用 途：显示画面上要输入的字段却未输入的所有字段

传入参数：none

回传值 ：none

用 法 ：CALL cl_show_req_fields()

112．cl_sure

程序名称：cl_sure.4gl

用 途：询问“是否确定执行本作业（Y/N）：”

传入参数：p_row,p_col

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF cl_sure(0,0)

113．cl_sure3

程序名称：cl_sure3.4gl

用 途：询问“您所输入的数据是否正确（Y/N）？”

传入参数：p_row,p_col

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF cl_sure3(0,0)

114．cl_trans_xml

程序名称：cl_trans_xml.4gl

用 途：转换xml档案

1：execl，2：html，3：callViewer，4：txt，5：html2pdf，6：word

传入参数：xml_name 要转换的xml档案

out_type 转换格式

回传值 ：none

用 法 ：CALL cl_trans_xml(“aimr100.23r.xml”,”1”)

115．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 TURE 成功

0 FOR FALSE 失败

用 法 ：CALL cl_download_file(“/tmp/a.doc”,”c:/temp:b.doc”)

116．cl_upload_file

程序名称：cl_transfer_file.4gl

用 途：Transfer file from Clien To Server

传入参数：ps_source STRING Source file path

ps_target STRING Destination file path

回传值 ：1 FOR TURE 成功

0 FOR FALSE 失败

用 法 ：CALL cl_download_file(“c:/temp:a.doc”,” /tmp/b.doc”)

117．cl_browse_file

程序名称：cl_transfer_file.4gl

用 途：Open a file dialog to get a file on Client

传入参数：none

回传值 ：file STRING -slected filed path or NULL means cancel selection

用 法 ：CALL cl_browse_file()

118．cl_server_file

程序名称：cl_transfer_file.4gl

用 途：Open a directory dialog to get a file on Server

传入参数：Defalut starting path

回传值 ：file STRING –selected directory or null means cancel selection

用 法 ：CALL cl_server_file()

119．cl_ui_init

程序名称：cl_ui_init.4gl

用 途：程序设定初始化

传入参数：none

回传值 ：none

用 法 ：CALL cl_ui_init()

120．cl_ui_locale

程序名称：cl_ui_local.4gl

用 途：转换语言别

传入参数：pc_frm_name 换面名称 (NULL 预设名称：g_prog)

回传值 ：none

用 法 ：CALL cl_ui_locale()

121．cl_upsw

程序名称：cl_upsw.4gl

用 途：询问“是否确认此张异动单据(Y/N)?”

或“是否取消确认此张异动单据(Y/N)?”

传入参数：pc_row,p_col

p_upsw Y:确认

N：取消确认

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF cl_upsw(0,0,p_upsw)

122．cl_used

程序名称：cl_used.4gl

用 途：记录各程序实际被执行的状况

传入参数：p_code 程序代号、

time1 起始运行时间

sw 1: 执行开始 RETURN TIEM

2:执行结束

回传值 ：time

用 法 ：CALL cl_used(p_code,time1,sw)

CALL cl_used(‘aom2020’,’09:30’,’1’)

CALL cl_used(‘aom2020’,’09:40’,’2’)

123．cl_user

程序名称：cl_user.4gl

用 途：设定关于用户于系统公用变量的设定

传入参数：none

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：CALL cl_user()

124．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

125．cl_userdefined_field_query

程序名称：cl_userdefined_field.4gl

用 途：自定义字段开窗

传入参数：pc_fldname 自定义字段名称

ps_construct TRUE：多选数据 FLASE：单选数据回传

回传值 ：lc_result 开窗回传值

用 法 ：CALL cl_userdefined_field_check(“imaud01”,FALSE)

RETURNING g_ima.imaud02

126．cl_validate

程序名称：cl_validate.4gl

用 途：检查行业别字段数据、带出关联字段数据(p_per设定)

传入参数：none

回传值 ：li_result TRUE/FALSE

用 法 ：IF NOT cl_validate() THEN NEXT FIRLD CURRENT

END IF

127．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

128．cl_data_check

程序名称：cl_validate.4gl

用 途：基本文件数据检查(p_per行业别字段设定)

传入参数：ps_field 字段代码

ps_value 字段值

回传值 ：li_result TRUE/FALSE

用 法 ：CALL cl_data_check(“oeaida001”,g_oea.oeaida001)

RETURNING li_result

129．cl_repeat_check

程序名称：cl_validate.4gl

用 途：数据重复检查(p_per行业别字段设定)

传入参数：ps_field 字段代码

ps_value 字段值

回传值 ：li_result TRUE/FALSE

用 法 ：CALL cl_repeat_check(“oeaida001”,g_oea.oeaida001)

RETURNING li_result

130．cl_reference:

程序名称：cl_validate.4gl

用 途：关联字段值抓取并显示(p_per行业别字段设定)

传入参数：ps_field 字段代码

pc_value 字段值

回传值 ：li_result

用 法 ：CALL cl_reference:(“oeaida001”,g_oea.oeaida001)

RETURNING li_result

131．cl_qry_string

程序名称：cl_validate.4gl

用 途：字段连查(p_per字段设定)

传入参数：ps_fldname 字段代码

回传值 ：none

用 法 ：CALL cl_qry_string(“btn_01”)

132．cl_get_table_name

程序名称：cl_validate.4gl

用 途：寻找字段在数据库对应的table name

传入参数：ps_fldname 字段代码

回传值 ：lc_frmname 表格代码

用 法 ：CALL cl_get_table_name(lc_gaq01)

133．cl_void

程序名称：cl_void.4gl

用 途：询问“此笔资料是否确定作废(Y/N):”

或 “此笔资料是否取消作废(Y/N):”

传入参数：p_row,p_col,p_old_acticode

回传值 ：1 FOR TRUE 是

0 FOR FALSE 否

用 法 ：IF cl_void(0,0,p_old_acticode)

134．cl_wait

程序名称：cl_wait.4gl

用 途：显示等待讯息

传入参数：none

回传值 ：none

用 法 ：CALL cl_wait()

135．cl_wcchp

程序名称：cl_wcchp.4gl

用 途:WC内重要字句中文化(Changing patter in p_wc)

传入参数：p_wc VARCHAR(3000) WHERE condition

p_oldp VARCHAR(60) Pattern(column list)to be changed

回传值 ：p_newwc VARCHAR(300) New where condition after changed

用 法 ：CALL cl_wcchp(p_wc,p_oldp)RETURNING p_wc

CALL cl_wcchp(1_wc,’gca01,gca02,gca03,gca06’)

RETURNING P_WC

136．cl_wcshow

程序名称：cl_wcshow.4gl

用 途：显示组合的RDSQL指令于屏幕20，21，22，23行

传入参数：p_wc（Where Condition clause）

回传值 ：none

用 法 ：CALL cl_wcshow(p_wc)

137．cl_init_qry_var

程序名称：cl_init_qry_var.4gl

用 途：清空g_qryparam变数

传入参数：none

回传值 ：none

用 法 ：CALL cl_int_qry_var()

138．cl_get_locale

程序名称：

用 途：取得主机端系统目前设定的语系(一律转成大写)

传入参数：

回传值 ：ZH_TW,EN_US等编码

用 法 ：CALL cl_get_locale()

# LET ms_locale = FGL_GETENV(“LANG”)

# LET li_i = ms_locale.getIndexOf(“.”, 1)

# IF li_i != 0 THEN

# LET ms_locale = ms_locale.subString(1, li_i – 1)

# END IF

# LET ms_locale = ms_locale.toUpperCase()

139．cl_get_codeset

程序名称：

用 途：取得主机端系统目前设定的语言别(一律转成大写)

传入参数：

回传值 ：UFT-8等编码

用 法 ：CALL cl_get_codeset()

# LET lch_cmd = base.Channel.create()

# CALL lch_cmd.openPipe(“locale charmap | cut -d. -f1 | tr -d \”‘\”‘\”‘”, “r”)

# WHILE lch_cmd.read(ms_codeset)

# END WHILE

# LET ms_codeset = ms_codeset.toUpperCase()

140．cl_used_ap_hostname

程序名称：

用 途：抓取AP Server的hostname

传入参数：NULL

回传值 ：AP_Server_Hostname String

用 法 ：CALL cl_used_ap_hostname()

转载请注明：赫非域 » Tiptop GP 共用内置函数函式程式查询手册V1.1