oracle+app_query,APP_CALCULATE.RUNNING_TOTAL用法

最新推荐文章于 2022-03-27 17:59:44 发布
最新推荐文章于 2022-03-27 17:59:44 发布
阅读量191 收藏
点赞数
文章标签： oracle+app_query

有时候需要显示某个栏位的汇总数量，且在例如新增、删除、修改记录的时候，汇总项的值要相应地改变，如果直接使用Form中的SUM属性功能，对于清除等操作要进行复杂处理。Oracle提供了APP_CALCULATE.RUNNING_TOTAL来实现这种需求，封装在APPCORE.PLL中。

For Example：

要汇总的ITEM为:LINES.QUANTITY,要显示汇总结果的BLOCK为HEADERS

1.HEADERS里建立要显示的汇总结果ITEM,如QTY_SUM

2.HEADERS里建立两个非数据库项，分别命名为QTY_SUM_RTOT_OLD和QTY_SUM_RTOT_DB(Number型)

3.LINES里建立两个非数据库项，分别命名为QUANTITY_RTOT_OLD和QUANTITY_RTOT_DB(Number型)

4.建立存储过程来包装APP_CALCULATE.RUNNING_TOTAL

例：

PROCEDURE RUNNING_TOTAL_QUANTITY(EVENT VARCHAR2) IS

BEGIN

APP_CALCULATE.RUNNING_TOTAL(EVENT, 'LINES.QUANTITY', 'HEADERS.QTY_SUM');

END;

--在TRIGGER中调用RUNNING_TOTAL_QUANTITY来进行计算处理

5.:LINES.QUANTITY的WHEN-VALIDATE-ITEM Trigger中写RUNNING_TOTAL_QUANTITY('WHEN-VALIDATE-ITEM');

如果要汇总的栏位来自多个栏位的运算，需要在每个栏位的WHEN-VALIDATE-ITEM时写运算重新计算值赋给要汇总的栏位。

6.:HEADERS的POST-QUERY Trigger中从数据库中抓取初始的汇总值，例:

Declare

V_SUM NUMBER;

BEGIN

SELECT NVL(SUM(QUANTITY), 0)

INTO V_SUM

FROM LINES

WHERE HEADER_ID = :HEADERS.HEADER_ID;

:HEADERS.QTY_SUM                   := V_SUM;

:HEADERS.QTY_SUM_RTOT_DB := V_SUM;----------------------注①

END;

7.:LINES的如下TRIGGER中写相应代码:

--KEY-DELREC

RUNNING_TOTAL_QUANTITY('KEY-DELREC');

DELETE_RECORD;

RUNNING_TOTAL_QUANTITY('UNDELETE');----------------------注③

--KEY-DUPREC

RUNNING_TOTAL_QUANTITY('KEY-DUPREC');

DUPLICATE_RECORD;

--KEY-CLRREC

RUNNING_TOTAL_QUANTITY('KEY-CLRREC');

CLEAR_RECORD;--(网上例子为：APP_FOLDER.EVENT('KEY-CLRREC');)

--POST-QUERY

RUNNING_TOTAL_QUANTITY( 'POST-QUERY' );

--WHEN-CLEAR-BLOCK

RUNNING_TOTAL_QUANTITY( 'WHEN-CLEAR-BLOCK' );----------------------注②

注：网上例子中还有post_insert,post_update,pre_record中写，我目前没写，测试OK，不知道会有什么漏洞，暂时没测出来。

另外上面的链接中，作者的例子会有问题，像链接文章评论所说，作者需增加

注①

的代码

，即

WHEN-CLEAR-BLOCK的代码需和注①同时存在(查询发现EBS中PO的画面也是这么做的)。

最初我没有写

注②

和

注①

的代码

，后经测试，

缺少这两部分会出现问题

，还是举个例子说吧：

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

例：

Line项只有一条记录，值为100，

1)正常查询出来记录后，汇总栏显示100;

2)修改记录值为99，汇总栏变为99;

3)按F11，会提示“是否保存记录”，选择“否”;

--此时汇总栏值为99(正常情况下此时汇总栏显示100)。

4)执行Ctrl+F11;

--此时汇总栏值依然为99(正常情况下此时汇总栏显示100，(且很大问题是此时Line值为100，汇总为99))。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

所以：注②

+

注①一定要写。

注③：

Block的Delete Allowed设置为No，由于种种原因，Delete按钮是亮的。这种情况下，点击

Delete按钮

的时候会提示

FRM-41049:You cannot delete this record.但是汇总量会被减掉，一直点下去，会一直减掉..直至负NNNN...

viewspace-2214931

所以加上

注③，以避免这种情况时汇总量的错误。

至于其它在

APP_CALCULATE.RUNNING_TOTAL

中涉及到的

Trigger中是否要写以及如何写，还未测试，目前为止，应用正常。

(有一点问题，即"新增一条记录，保存，然后点击clear-record按钮"，数量会减掉，还未解决，其余Trigger应该也需要加上，但是有几个Trigger好像在Block下面没有，但又有其它Trigger调用在它们中产生的全局变量，暂时未过多测试。。Busy。。)

另外，如果汇总结果要拿来与其它值作比较，比如超过了某个值则raise error，则要注意running_total和比较大小两者的先后顺序。

如在when-validate-item时比较，则在此trigger中先running_total，后比较，否则...

--------------------------------------------------------------------------------------------------------------------------------------------------

附APP_CALCULATE.RUNNING_TOTAL原代码：

PACKAGE BODY app_calculate IS

PROCEDURE running_total(event        VARCHAR2,

source_field VARCHAR2,

total_field  VARCHAR2) IS

Last_Val_Field  VARCHAR2(61) := Source_Field || '_RTOT_OLD';

DB_Source_Field VARCHAR2(61) := Source_Field || '_RTOT_DB';

DB_Total_Field  VARCHAR2(61) := Total_Field || '_RTOT_DB';

Last_Value      NUMBER;

Source_Value    NUMBER;

DB_Source_Value NUMBER;

Total_Value     NUMBER := NVL(name_in(Total_Field), 0);

DB_Total_Value  NUMBER := NVL(name_in(DB_Total_Field), 0);

New_Total       NUMBER;

Form_Id         FORMMODULE;

BEGIN

COPY('Entering app_calculate.running_total.  Event is ' || event || '.',

'global.frd_debug');

IF (event <> 'WHEN-CLEAR-BLOCK') THEN

Last_Value      := NVL(name_in(Last_Val_Field), 0);

Source_Value    := NVL(name_in(Source_Field), 0);

DB_Source_Value := NVL(name_in(DB_Source_Field), 0);

END IF;

IF (event = 'POST-QUERY') THEN

copy(to_char(Source_Value), DB_Source_Field);

copy(to_char(Source_Value), Last_Val_Field);

ELSIF (event = 'WHEN-CLEAR-BLOCK') THEN

IF (Total_Value <> DB_Total_Value) THEN

copy(to_char(DB_Total_Value), Total_Field);

END IF;

ELSIF (event = 'WHEN-VALIDATE-ITEM') THEN

IF (Source_Value <> Last_Value) THEN

New_Total := Total_Value - Last_Value + Source_Value;

copy(to_char(New_Total), Total_Field);

copy(to_char(Source_Value), Last_Val_Field);

END IF;

ELSIF (event = 'KEY-DELREC') THEN

IF (Last_Value <> 0) THEN

New_Total := Total_Value - Last_Value;

copy(to_char(New_Total), Total_Field);

END IF;

copy(to_char(Source_Value), Last_Val_Field);

ELSIF (event IN ('POST-INSERT', 'POST-UPDATE')) THEN

IF (Source_Value <> DB_Source_Value) THEN

copy(to_char(DB_Source_Value), Last_Val_Field);

copy(to_char(Source_Value), DB_Source_Field);

END IF;

ELSIF (event = 'PRE-RECORD') THEN

IF (Source_Value <> Last_Value) THEN

Form_Id := Find_Form(Get_Application_Property(Current_Form_Name));

IF (Name_In('GLOBAL.RTOT_' ||

substr(source_field,

1,

least(instr(source_field, '.') - 1, 15)) ||

to_char(Form_id.id)) = 'N') THEN

copy(to_char(Last_Value), DB_Source_Field);

END IF;

copy(to_char(Source_Value), Last_Val_Field);

END IF;

ELSIF (event = 'PRE-COMMIT') THEN

Form_Id := Find_Form(Get_Application_Property(Current_Form_Name));

copy('N',

'GLOBAL.RTOT_' ||

substr(source_field, 1, least(instr(source_field, '.') - 1, 15)) ||

to_char(Form_id.id));

ELSIF (event = 'POST-FORMS-COMMIT') THEN

Form_Id := Find_Form(Get_Application_Property(Current_Form_Name));

copy('Y',

'GLOBAL.RTOT_' ||

substr(source_field, 1, least(instr(source_field, '.') - 1, 15)) ||

to_char(Form_id.id));

IF (Total_Value <> DB_Total_Value) THEN

copy(to_char(Total_Value), DB_Total_Field);

END IF;

ELSIF (event = 'UNDELETE') THEN

New_Total := Total_Value + Source_Value;

copy(to_char(New_Total), Total_Field);

copy(to_char(Source_Value), Last_Val_Field);

ELSIF (event = 'KEY-DUPREC') THEN

New_Total := Total_Value + Source_Value;

copy(to_char(New_Total), Total_Field);

copy(to_char(Source_Value), Last_Val_Field);

copy(NULL, DB_Source_Field);

ELSIF (event = 'KEY-CLRREC') THEN

IF (Last_Value <> DB_Source_Value) THEN

New_Total := Total_Value - Last_Value + DB_Source_Value;

copy(to_char(New_Total), Total_Field);

END IF;

ELSE

message('Invalid event ' || event ||

' in app_calulate.running_total');

END IF;

COPY('Completed app_calculate.running_total.  Event is ' || event || '.',

'global.frd_debug');

END running_total;

END app_calculate;

---------------------

本文来自 cherrzhao 的CSDN 博客 ，全文地址请点击：https://blog.csdn.net/u011287994/article/details/18222893?utm_source=copy

赵龙峰
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
oracle erp 表结构
waiwai1015的专栏
09-26 3292
BOM模块常用表结构  表名: bom.bom_bill_of_materials  说明: BOM清单父项目  BILL_SEQUENCE_ID NUMBER 清单序号（关键字） ASSEMBLY_ITEM_ID NUMBER 装配件内码 ORGANIZATION_ID NUMBER 组织代码 ASSEMBLY_TYPE NUMBER 装配类别 SPECFIIC_ASSEMBLY_COMMEN...
Oracle EXPDP和IMPDP指令详解
个人公众号：Alen的数据库学习笔记
06-28 5237
概要 Oracle 11g及以上版本提供了数据泵技术，可以用来进行数据库的逻辑备份和恢复，Oracle建议使用数据泵来代替EXP和IMP技术。数据泵技术基于Oracle数据库服务器，导入导出的数据文件也保存在数据库服务器端，而EXP/IMP基于客户机运行。利用数据泵技术，Oracle要求必须使用目录对象，以防止用户误操作服务器上特定目录下的操作系统文件。 EXPDP数据访问方法
实现主从关系Form中汇总行金额/数量(app_calculate.running_total)
cong31848的博客
02-21 343
在Oracle EBS的二次开发中，常有在主从关系的主块中需要显示明细块中金额或数量的汇总，在Oracle Form. Builder中实际上提供了汇总的功能，但它的这个汇总功能...
APP_CALCULATE.RUNNING_TOTAL用法
cherryzhao的专栏
01-13 1267
附oracleseeker一篇链接 http://oracleseeker.com/2009/08/19/calculate_detail_amount_or_quantity_for_master_block/ ---------------------------------------------------------------------------------------
绝对经典的 Oracle 几个使用技巧
maco_liao的专栏
06-04 771
1.找出无用索引：　　DML 性能低下，其中最严重的原因之一是无用索引的存在。所有SQL的插入，更新和删除操作在它们需要在每一行数据被改变时修改大量索引的时候会变得更慢。许多Oracle 管理人员只要看见在一个SQL 查询的WHERE语句出现了一列的话就会为它分配索引。虽然这个方法能够让SQL运行得更快速，但是基于功能的Oracle 索引使得数据库管理人员有可能在数据表的行上过度分配索引。过度分配
oracle+app_query,query用法
weixin_36104484的博客
04-03 342
【转】https://blog.csdn.net/tangzihao_c/article/details/52927347一、数据库介绍1、数据库简介设计数据库要保证冗余(重复)度小，数据的完整性一套软件 UI、业务逻辑层、持久层DB(database)：数据库DBMS(databasemanagement system)：数据库管理系统DBA：数据库管理员DBS：数据库系统关系型数据库(RD...
oracle total,How to check Total memory used by Oracle and which user are using more memo
weixin_36272673的博客
04-13 168
Hi,Oracle EM is the best to identify the usage of CPU and memory used by each session.Moreover use following query to calculate the memory used by the each session.SELECT to_char(ssn.sid, '9999') || '...
newsgroup_txt
weixin_44714173的博客
07-29 2万+
Why is the mirror of journey to the West useless to monkey king? |||0 First couplet: one night spring breeze to go, how to the second couplet? |||0 What do relatives say makes you most disgusted? |||0 The second couplet: three mountains and five mountains
Oracle11g数据库导入Oracle10g数据库 EXPDP工具
qq_43679720的博客
02-22 209
Oracle11g数据库导入Oracle10g数据库 EXPDP工具
[转]高负载并发网站架构分析
热门推荐
bluehire的专栏
12-23 2万+
由于自己正在做一个高性能大用户量的论坛程序，对高性能高并发服务器架构比较感兴趣，于是在网上收集了不少这方面的资料和大家分享。希望能和大家交流 msn: defender_ios@hotmail.com ——————————————————————————————————————— ? 初创网站与开源软件 6 ? 谈谈大型高负载网站服务器的优化心得! 8 ? Lighttpd+Squid+Apach
Oracle函数大全总结及用法
04-26
对oracle的函数做了一个总结，不一定很齐全，希望大家能多多补充！错误的地方能及时提出来反馈给我，感谢！
Oracle Total Recall - FDA（Flashback Data Archives）
喝醉酒的小白
03-27 3755
0 Flashback Data Archive 12c - Using Flashback Data Archive 19c - Using Flashback Time Travel 1 概览 闪回查询和闪回版本查询 ORA-01555 2 配置闪回数据归档 创建或指定一个或多个表空间用于FBDA保留历史数据 指派一个FBDA作为数据库的默认FBDA 指派一个用户账户作为FBDA管理员，授予它FLASHBACK ARCHIVE ADMINISTER系统权限 授予FBDA权限给适合
SQL之Running Total
kiwi_coder
11-27 3576
SQL之Running Total简介
oracle total,数据库 – 是Oracle Total Recall的替代方案吗？
weixin_39602579的博客
04-13 112
Flashback Data Archive creates aninternal history table for everytracked table. The internal historytable is initially a replica of theFDA-enabled table with additionalMetadata columns. When one or mo...
RDL 報表Running Total的用法
weixin_30898109的博客
06-25 118
RunningValue(Fields!quotedetailid.Value,Count,Nothing)=1 转载于:https://www.cnblogs.com/janmson/archive/2009/06/25/1511258.html
forms builder开发form常用函数汇总
gaojian2008cnn的专栏
01-27 2732
（1）abort_query：停止查询的执行。 （2）add_group_column（record group id 或 name，group column）：添加一个列到一个记录组，Record group id、name，column type，column width。 （3）add_group_row（record group id 或 name，row number）： 添
ORACLE PLSQL 表变量
yyyxx6的博客
01-12 2768
oracle form 金额汇总 金额汇总而已，最多三分钟嘛 针对新手，我没有打包，实际情况根据需要打包 实现后的结果 头数据块 添加的字段，名字随便你，只要自己对应的上 块也一样 各种触发器的添加,重中之重 BEGIN SELECT nvl(SUM(v.unit_selling_price * v.orderd_quantity) ...
oracle数据库用法
liuzhiqiang66的博客
09-19 1487
row_number() over() 分析函数，row_number() over() 与rank(),dense_rank()排名函数，to_char转换函数，NVL通用函数，LAG和LEAD分析函数，DECODE逻辑判断函数，case when逻辑函数，substr()(字符截取函数)与instr()（字符查找函数），TRUNC()（类似截取函数），MOD(m,n)取余函数，rollup()（分组函数）等各种函数用法
if (bS11En) { N5230C.SCPI.CALCulate.PARameter.SELect.Command(null, strTestName + "_S11"); N5230C.SCPI.CALCulate.FORMat.Command(null, "MLOGarithmic"); //Thread.Sleep(100); N5230C.SCPI.CALCulate.DATA.QueryAsciiReal(null, "FDATA", out result_data_db_s11); //this.txtLog.AppendText("the result of S11" + "(db):\r\n"); showLog("the result of S11" + "(db):\r\n"); Console.WriteLine("data.Length:" + result_data_db_s11.Length); for (int i = 0; i < result_data_db_s11.Length; i++) { strDat = strDat + result_data_db_s11[i].ToString() + ","; } //this.txtLog.AppendText(strDat + "\r\n"); showLog(strDat); N5230C.SCPI.CALCulate.FORMat.Command(null, "PHASe"); //Thread.Sleep(100); N5230C.SCPI.CALCulate.DATA.QueryAsciiReal(null, "FDATA", out result_data_ph_s11); showLog("the result of S11" + "(deg):\r\n"); Console.WriteLine("data.Length:" + result_data_ph_s11.Length); strDat = ""; for (int i = 0; i < result_data_ph_s11.Length; i++) { strDat = strDat + result_data_ph_s11[i].ToString() + ","; } showLog(strDat); N5230C.SCPI.CALCulate.FORMat.Command(null, "MLOGarithmic"); }啥意思
最新发布
07-10
然后，它通过调用 CALCulate.DATA.QueryAsciiReal 方法查询数据，并将查询结果保存到 result_data_db_s11 变量中。接下来，它展示了 S11 数据的结果，将结果输出到日志中，并打印出数据的长度。 接着，它使用一个...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值