TIPTOPGP 公用程序（二）

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