文件名
语法
R_ActionRecordDatabase(VAL InTran: Boolean,VAL this_Action: R_ACTIONS_REC, VAL old_Action: R_ACTIONS_REC) IS
参数
InTran - 确定是否在事务处理中
this_Action - 当前操作记录
old_Action - 数据库并行的旧记录
返回
无
副作用
无
说明
此修改处理规则操作的添加、修改及删除。
调用的对话框窗体
无
文件名
语法
R_FindRuleInList(VAL ID: INTEGER, VAL RuleList: LIST OF R_RULES_REC): R_RULES_REC IS
参数
ID - 要查找的规则记录标识
RuleList - 要搜索的规则记录列表
返回
R_RULES_REC
副作用
无
说明
此例行程序获取与指定标识匹配的规则记录。
调用的对话框窗体
无
文件名
语法
R_Insert_table_CHANGE_TEXT( VAL current_text: R_CHANGE_TEXT_REC ): INTEGER
参数
current_text - 要插入的文本。
返回
整数
副作用
无
说明
此例行程序将文本插入表 CHANGE_TEXT 中。
调用的对话框窗体
无
文件名
语法
R_LoadActionsForRule: INTEGER IS
参数
无
返回
无
副作用
无
说明
“仅”当相应的高速缓存规则还“没有”装入规则操作时,此例行程序装入当前规则的操作。如果装入了规则操作,则这些操作将装入 CSTACK 及规则高速缓存栈 R_G_SRule.ARules。
调用的对话框窗体
无
文件名
语法
R_LoadGeneralRules( VAL org_id: STRING ): INTEGER IS
参数
org_id - 当前组织
返回
整数
副作用
无
说明
若给定一个组织标识,则此函数会将一般规则装入高速缓冲存储器。
调用的对话框窗体
无
文件名
语法
R_LoadRuleByID(REF this_Rule: R_RULES_REC): INTEGER IS
参数
this_Rule - 当前规则记录
返回
整数
副作用
无
说明
此例行程序装入与给定标识匹配的规则。
调用的对话框窗体
无
文件名
语法
R_LoadRules(VAL Rule_SQL_String: STRING): INTEGER IS
参数
Rule_SQL_String - 要执行规则检索的 SQL 字符串
返回
整数
副作用
无
说明
此例行程序装入与给定准则匹配的规则。
调用的对话框窗体
无
文件名
语法
R_PopulateWWRuleMCLB( VAL w: WINDOW, VAL desination_MCLB: STRING) IS
参数
w -
destinationMCLB -
返回
无
副作用
无
说明
创建“处理规则”对话框时,此例行程序选择要显示的规则。请注意,由于特定原因,要按以下次序装入规则。该次序与将要实施的次序相同:首先,按特权次序实施“一般”规则。其次,按特权次序实施具体“类别”规则。
调用的对话框窗体
无
文件名
语法
R_RuleRecordDatabase(VAL InTran: BOOLEAN): INTEGER IS
参数
InTran - 确定是否在事务处理中
返回
整数
副作用
无
说明
此例行程序处理规则记录的添加、修改及删除。
调用的对话框窗体
无