TIPTOP函数大全docWord下载.docx
- 文档编号:19187746
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:35
- 大小:27.01KB
TIPTOP函数大全docWord下载.docx
《TIPTOP函数大全docWord下载.docx》由会员分享,可在线阅读,更多相关《TIPTOP函数大全docWord下载.docx(35页珍藏版)》请在冰豆网上搜索。
CALLcl_batch_proc(ls_headers)
cl_cal
cl_cal.4gl
传入当前日期,要增加的月份及天数取得计算过后的日期
p_date日期p_month月份p_day日
l_year,l_month,l_day
LETl_date=cl_cal(p_date,p_mm,p_dd)
cl_chg_comp_att
cl_chg_comp_att.4gl
更动原有对象的attribute
ps_fieldSTRING欲更动字段名称
ps_attsSTRING字段type属性
ps_valuesSTRING字段type属性值
CALLcl_chg_comp_att
("
ima01"
"
NOENTRY|ITEMS"
1|(1,2,3),(red,blue,green)"
)
cl_chg_win_title
cl_chg_win_title.4gl
转换程序Title显示
ps_str显示字符串
CALLcl_chg_win_title(“用户参数设定作业”)
cl_chk_act_auth
cl_chk_act_auth.4gl
检查ACTION的权限﹝检查前务必指定g_action_choice值﹞
1FORTRUE是0FORFALSE否
LETg_action_choice=“insert”IFcl_chk_act_auth()THEN
cl_chk_data_continue
cl_chk_data_continue.4gl
检查资料是否连续
ps_sourceSTRING来源资料
IFNOTcl_chk_data_continue(g_pmw.pmw01[5,10])THEN
cl_chk_str_correct
检查字符串是否符合0~9,a~z
ps_countSMALLINT检查几码,如果未传几码,则会以
来源字符串长度当作ps_count
li_resultSMALLINT回传结果
IFNOTcl_chk_data_continue(g_pmw.pmw01[1,3])THEN
cl_chkym
cl_chkym.4gl
检查文字型态变量是否为年月型态
p_strCHAR(6)文字型态变量
IFcl_chkym(p_str)
cl_choice
cl_choice.4gl
让用户输入选择
l_msgCHAR(100)窗口上显示的说明文字
l_choice
CALLcl_choice(l_msg)RETURNINGg_choice
cl_open_url
cl_client_app.4gl
藉由explorer开启传入的网址
ps_urlSTRING网址
CALLcl_open_url("
http:
//www"
cl_open_doc
开启档案
ps_docSTRING档案位置
CALLcl_open_doc("
C:
/tiptop/tiptop.txt"
cl_open_prog
藉由指定的程序开启档案
ps_progSTRING程序工具
ps_argSTRING档案位置
CALLcl_open_prog("
/Editor.exe"
"
cl_close
cl_close.4gl
询问"
此笔资料是否确定结案(Y/N):
"
或"
此笔资料是否取消结案(Y/N):
p_row,p_col无作用,传入0,0即可
p_old_acticode传入Y代表讯息为取消结案;
N代表确定结案
IFcl_close(0,0,”Y”)
cl_cmdask
cl_cmdask.4gl
询问用户欲执行的程序,并执行之
CALLcl_cmdask()
cl_cmdat
cl_cmdat.4gl
指定时间延后执行UNIX指令
p_time指定时间
p_cmdUNIX指令
CALLcl_cmdat(p_code,p_time,p_cmd)
cl_cmdrun
执行UNIX指令
ps_cmd程序代码或UNIX执行指令
CALLcl_cmdrun('
axmq450'
)
cl_cmdrun_wait
执行UNIX指令,需等待此指令结束后才可继续原程序的执行
LETl_cmd="
axmp800'
g_oea.oea01,"
'
'
g_oea.oea905,"
"
CALLcl_cmdrun_wait(l_cmd)
cl_cmmsg
cl_cmmsg.4gl
显示异动更新成功讯息
p_code讯息种类1及4代表异动更新完成
2及3代表此张单据异动更新完成
CALLcl_cmmsg
(1)
cl_conf3
cl_conf3.4gl
根据MESSAGECODE取出正确讯息,询问
﹝配合发票的使用,本作业允许用户不输入数据﹞
p_row,p_col无作用
p_msgcode
IFcl_conf(0,0,p_msgcode)THEN
cl_confirm
cl_confirm.4gl
依照讯息代码将数据显示在画面上,询问〝是否…〞
ps_msg讯息代码或讯息字符串
IF(cl_confirm("
agl-021"
))THEN
cl_cont
cl_cont.4gl
是否继续执行本作业(Y/N):
IFcl_cont(0,0)THEN
cl_create_4sm
cl_create_4sm.4gl
产生udm_tree所需要的StartMenu档案
pc_menu_rootStartMenu的根节点
pi_rebuild是否需要重新覆盖已存在的4sm档案
CALLcl_create_4sm("
m01"
TRUE)
cl_create_qry
cl_create_qry.4gl
动态产生窗口以供查询,并回传查询结果
ms_ret1,ms_ret2,ms_ret3回传数目依照对应的回传字段数
CALLcl_create_qry()RETURNINGg_oea.oea14
cl_dynamic_qry
自定义/行业别字段动态产生开窗功能,并回传查询结果
CALLcl_dynamic_qry()RETURNINGg_oea.oeaida001
cl_days
cl_days.4gl
取得该年月的天数
p_year年份p_month月份
l_days天数
letl_days=cl_days(p_yy,p_mm)
cl_delb
cl_delb.4gl
是否确定取消此笔单身资料(Y/N):
(for单文件建文件程序单身取消功能ONKEYF2)
p_row,p_col
IFcl_delb(0,0)THEN
cl_delete
cl_delete.4gl
询问〝是否删除此笔资料?
〞
IF(cl_delete())THEN
cl_delh
cl_delh.4gl
是否确定删除此笔单头及所有单身数据(Y/N):
(for单文件建文件程序单头删除功能)
1FORTRUE是
0FORFALSE否
ifcl_delh(0,0)
cl_delh1
cl_delh1.4gl
是否确定取消此笔单头及所有单身数据(Y/N):
(for单文件建文件程序单头取消功能)
p_row,p_col
1FORTRUE是0FORFALSE否
ifcl_delh1(0,0)
cl_detail_input_auth
cl_detail_input_auth.4gl
检查是否允许在单身中有insert或delete的权限
ps_act_typeSTRING要检查的字符串(insert/delete)
CALLcl_detail_input_auth("
insert"
cl_digcut
cl_digcut.4gl
将数值依指定的小数位数做四舍五入
p_value数值p_digit允许小数位数
p_value四舍五入后的数值
LETa=cl_digcut(p_value,p_digit)
cl_doc
cl_doc.4gl
相关档案维护
none
LETg_doc.column1="
oea01"
LETg_doc.value1=g_oea.oea01
CALLcl_doc()
cl_dynamic_locale
cl_dynamic_locale.4gl
动态转换画面语言别
CALLcl_dynamic_locale()
cl_end
cl_end.4gl
显示"
作业结束,请按任何键继续:
p_row,p_col无作用
CALLcl_end(0,0)
cl_end2
cl_end2.4gl
显示执行结果,并询问是否要继续作业
p_code(1代表成功,2代表失败)
CALLcl_end2
(1)RETURNINGl_flag
cl_err
cl_err.4gl
显示错误讯息
p_msg错误讯息的附加说明
err_code错误讯息代码
p_n显示错误讯息后的停留秒数或是等用户按下确定
0:
不开启讯息窗口,只在状态列显示
>
1:
停留秒数
1:
开启讯息窗口等待用户确定
CALLcl_err(p_msg,err_code,p_n)
cl_err_msg
cl_err_msg.4gl
ps_title错误讯息的附加说明
ps_err_code错误讯息代码
ps_replace_arg欲替换的讯息字符串,以”|”分隔字符串
pi_idle_secidle秒数
CALLcl_err_msg("
Warning"
1000"
NULL,1)
cl_err3
显示数据库处理后的错误讯息(insert/update/delete/select)
Type讯息的类型(ins、del、upd、sel)
Tables处理的table代码
Key1Key1的value
Key2Key2的value
Description额外讯息(讯息代码/讯息字符串)
Action讯息Action代码(未来延伸功能,可不传)
Mark按下〝更多〞按键时显示的讯息
Open是否开窗(0/1)
CALLcl_err3("
ins"
azb_file"
g_azb01,"
SQLCA.sqlcode,"
0)
cl_err_msg_log
纪录错误讯息
WHENEVERERRORCALLcl_err_msg_log
cl_exp
cl_exp.4gl
此笔资料是否确定无效(Y/N):
此笔资料是否恢复有效(Y/N):
(for单文件建文件无效功能)
p_old_acticode有效码﹝Y/N﹞
IFcl_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
﹞
CALLcl_export_to_excel
(ui.Interface.getRootNode(),base.TypeInfo.create(g_pmx),'
cl_facfor
cl_facfor.4gl
将INPUTDECLIAM(16,8)数值转为9位字符的格式
若值为12345678,将传回'
^12345678'
若值为1234567,将传回'
1234567.0'
若值为123456,将传回'
123456.00'
若值为12345.67,将传回'
12345.670'
若值为1.234567,将传回'
1.2345670'
若值为.1234567,将传回'
.12345670'
p_fac数值
l_strFORMAT后的数值,以CHAR型态RETURN
LETa=cl_facfor(p_fac);
PRINTa
PRINTcl_facfor(p_fac)
cl_field_format
cl_field_format.4gl
转换p_per内自由格式设定的format
ps_currencyCHAR(04)﹝当前无用处﹞
pc_frm_nameCHAR(10)画面档名
CALLcl_field_format(g_aza.aza17,mc_frm_name)
cl_fld_doc
cl_fld_doc.4gl
字段的相关档案维护
ps_fieldSTRING字段名称
url档案的URL
CALLcl_fld_doc("
cl_fldhelp
cl_fldhelp.4gl
显示字段说明
g_frm_name画面档名称g_fld_name字段名称g_lang语言别
CALLcl_fldhelp(g_frm_name,g_fld_name,g_lang)
cl_flow_notify
cl_flow_notify.4gl
透过JavaMail传送工作流程通知
ps_doc_noSTRING单据编号
pc_stateCHAR
(1)功能类别
(I.新增U.更改D.删除Y.确认S.过帐V.作废)
CALLcl_flow_notify(g_pmw.pmw01,'
I'
cl_forupd_sql
cl_forupd_sql.4gl
判断SELECT...FORUPDATE是否加上其它语法(by
Database)
ps_forupd_sqlSTRING原传入SQL字符串
ps_forupd_sqlSTRING调整过的SQL字符串
CALLcl_forupd_sql(ps_forupd_sql)
cl_get_column_info
cl_get_column_info.4gl
取得字段型态及长度
p_tabnameTABLE名称
p_colname字段名称
字段型态notnullFORTRUE:
有回传值:
nullFORFALSE:
否
长度notnullFORTRUE:
CALLcl_get_column_info(p_tabname,p_colname)
RETURNINGl_coldatatype,l_collength
cl_get_feldname
cl_get_feldname.4gl
依字段代码取出系统字段名称设定维护作业(p_feldname)内的
字段名称
p_gaq01字段代码
p_lang语言别
l_gaq03字段说明
LETg_msg=cl_get_feldname(p_gaq01,p_lang)
cl_get_progdesc
cl_get_progdesc.4gl
取得程序代码说明(若有客制码='
Y'
的优先回传)
p_gaz01程序代码
l_gaz03程序代码说明
LETg_msg=cl_get_progdesc(g_prog,p_lang)
cl_getmsg
cl_getmsg.4gl
依讯息代码取出系统错误讯息文件(ze_file)内的错误讯息
p_code讯息代码
l_msg错误讯息.
LETg_msg=cl_getmsg(p_code,p_lang)
cl_insert_top_menu
cl_insert_top_menu.4gl
插入TopMenu
pc_progCHAR(10)程序代号
CALLcl_insert_top_menu(NULL)
cl_itemname_by_lang
cl_itemname_by_lang.4gl
多语言记录功能查询
l_gbc01档案代码(TableID)"
zx_file"
l_gbc02字段代码"
zx02"
l_gbc03KEY值序列,多组时以,隔开"
001"
l_gbc04语言别g_lang
l_gbc05数据多语言名称"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- TIPTOP 函数 大全 doc