ITPUB论坛-中国最专业的IT技术社区

 找回密码
 注册
查看: 552|回复: 0

app_calculate.running_total问题请教

[复制链接]
论坛徽章:
1
托尼托尼·乔巴
日期:2016-12-12 17:19:51
发表于 2017-11-6 16:54 | 显示全部楼层 |阅读模式
本帖最后由 tyh2009 于 2017-11-6 17:48 编辑

在EBS R12中利用app_calculate.running_total实现主从金额汇总时,新建第一条的时候没有问题,但是再新建第二条或者修改数据的时候,数据块中以前存在的行数据就会被删除。自己实现的方法如下,但是就是找不到头数据被删除的原因。请接触过这一方面的大神多多指教
实现的过程如下:
1.在头数据块中创建非数据项:ACCOUNT_DR_RTOT_DB,类型为display_item,number(38);
2.在行数据块中创建非数据项:ENTERED_DR_RTOT_OLD,ENTERED_DR_RTOT_DB,类型都是display_item,number(38);
3.创建程序单元:PROCEDURE running_total(p_event VARCHAR2 ) is
                          BEGIN
                         app_calculate.running_total(p_event, 'lines.ENTERED_DR', 'headers.account_dr');
                         END running_total;
4.在行数据块中的数据项ENTERED_DR中加入触发器WHEN-VALIDATE-ITEM:running_total('WHEN-VALIDATE-ITEM');
5.在行数据块中加入触发器POST-QUERY:               running_total( 'POST-QUERY' );
                                    KEY-DUPREC:               running_total('KEY-DUPREC');duplicate_record;
                                    KEY-DELREC:                running_total('KEY-DELREC');Delete_Record;RUNNING_TOTAL('UNDELETE');
                                    KEY-CLRREC:                running_total('KEY-CLRREC');CLEAR_RECORD;
                                    WHEN-CLEAR-BLOCK:    running_total('WHEN-CLEAR-BLOCK');
6.在头数据块中加入触发器POST-QUERY:   
                                                  select nvl(sum(entered_dr),0)
                                                   into :headers.account_dr
                                                   from cux_lines_test
                                                  where je_header_id=:headers.je_header_id;
                                                :headers.account_dr_rtot_db:=:headers.account_dr;
新建时:
        form界面如下:
QQ截图20171106164601.jpg
       数据库数据如下:
QQ截图20171106164815.jpg
修改后:
       form界面如下:
QQ截图20171106164915.jpg
      数据块界面如下:
    QQ截图20171106165036.jpg
  头表里面新建时,产生的数据被删除了。  
都折腾好几天了也没有找到头数据被删除的原因,请各位大神不吝赐教,多谢了




您需要登录后才可以回帖 登录 | 注册

本版积分规则

TOP技术积分榜 社区积分榜 徽章 电子杂志 团队 统计 虎吧 老博客 知识索引树 读书频道 积分竞拍 文本模式 帮助
  ITPUB首页 | ITPUB论坛 | 数据库技术 | 企业信息化 | 开发技术 | 微软技术 | 软件工程与项目管理 | IBM技术园地 | 行业纵向讨论 | IT招聘 | IT文档 | IT博客
  ChinaUnix | ChinaUnix博客 | ChinaUnix论坛 | SAP ERP系统
CopyRight 1999-2011 itpub.net All Right Reserved. 北京盛拓优讯信息技术有限公司版权所有 联系我们 网站律师 隐私政策 知识产权声明
京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802021510 广播电视节目制作经营许可证:编号(京)字第1149号
  
快速回复 返回顶部 返回列表