触发器 调用存储过程 实例:

最新推荐文章于 2024-06-14 12:17:29 发布
最新推荐文章于 2024-06-14 12:17:29 发布
阅读量315 收藏
点赞数
原文链接：http://www.cnblogs.com/yangpeng-jingjing/p/8797637.html
版权

CREATE OR REPLACE TRIGGER TAB_AMERCE_balance_new
before insert or delete or update of BL_AUDITED ON TAB_AMERCE for each row
declare
-- local variables here
FCount_pre number(1); --网点帐户是否开启
FCount_Next number(1); --网点帐户是否开启
IsSecend_pre number(1); --是否是二级网点
IsSecend_Next number(1); --是否是二级网点
Secend_precenter varchar(30); --二级网点所属中心
Secend_Nextcenter varchar(30); --二级网点所属中心
begin
if inserting then
if nvl(:new.BL_AUDITED, 0) = 1 then
select count(*)
into FCount_pre
from dual a
where exists (select /*+index(b TAB_BALANCE_ACCOUNT_I)*/
1
from tab_balance_account b
where b.center_name = :new.AMERCE_CENTER
and b.site_name = nvl(:new.SITE_NAME, '*')
and b.bl_open = 1
and b.start_date <= :new.OPT_DATE);
select count(*)
into FCount_Next
from dual a
where exists (select /*+index(b TAB_BALANCE_ACCOUNT_I)*/
1
from tab_balance_account b
where b.center_name = :new.reward_center
and b.site_name = nvl(:new.REWARD_NAME, '*')
and b.bl_open = 1
and b.start_date <= :new.OPT_DATE);
select count(*)
into IsSecend_pre
from dual a
where exists (select 1
from tab_site s
where s.site_name = :new.SITE_NAME
and s.type = '二级网点');

select count(*)
into IsSecend_next
from dual a
where exists (select 1
from tab_site s
where s.site_name = :new.reward_name
and s.type = '二级网点');

if FCount_pre > 0 then
if (nvl(:new.SITE_NAME, '*') <> '*') and
(nvl(:new.AMERCE_MONEY, 0) <> 0) then
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
- :new.AMERCE_MONEY,
- :new.AMERCE_MONEY,
:new.OPT_DATE,
:new.AMERCE_CENTER,
:new.SITE_NAME,
'系统',
'系统',
'系统');
if IsSecend_pre > 0 and nvl(:new.AMERCE_REASON, '*') <> '代录单费用' then
select SUPERIOR_FINANCE_CENTER
into Secend_precenter
from tab_site s
where s.site_name = :new.AMERCE_CENTER;
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
- :new.AMERCE_MONEY,
- :new.AMERCE_MONEY,
:new.OPT_DATE,
Secend_precenter,
:new.AMERCE_CENTER,
'系统',
'系统',
'系统');
end if;

if :new.OPT_site = '总部' then
if nvl(Secend_precenter, '*') <> '*' then
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
- :new.AMERCE_MONEY,
- :new.AMERCE_MONEY,
:new.OPT_DATE,
'总部',
Secend_precenter,
'系统',
'系统',
'系统');
else
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
- :new.AMERCE_MONEY,
- :new.AMERCE_MONEY,
:new.OPT_DATE,
'总部',
:new.AMERCE_CENTER,
'系统',
'系统',
'系统');
end if;
end if;
end if;

end if;
if FCount_Next > 0 then
if (nvl(:new.reward_name, '*') <> '*') and
(nvl(:new.reward_money, 0) <> 0) then
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
:new.reward_money,
:new.reward_money,
:new.OPT_DATE,
:new.reward_center,
:new.reward_name,
'系统',
'系统',
'系统');
if IsSecend_next > 0 then
select SUPERIOR_FINANCE_CENTER
into Secend_Nextcenter
from tab_site s
where s.site_name = :new.reward_center;
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
:new.reward_money,
:new.reward_money,
:new.OPT_DATE,
Secend_Nextcenter,
:new.reward_center,
'系统',
'系统',
'系统');
end if;
if :new.OPT_site = '总部' then
if nvl(Secend_Nextcenter, '*') <> '*' then
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
:new.reward_money,
:new.reward_money,
:new.OPT_DATE,
'总部',
Secend_Nextcenter,
'系统',
'系统',
'系统');
else
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
:new.reward_money,
:new.reward_money,
:new.OPT_DATE,
'总部',
:new.reward_center,
'系统',
'系统',
'系统');
end if;
end if;
end if;
end if;
end if;
elsif updating and nvl(:new.AMERCE_REASON, '*') <> '代录单费用' then
--先获取对应的帐户是否开启
select count(*)
into FCount_pre
from dual a
where exists (select /*+index(b TAB_BALANCE_ACCOUNT_I)*/
1
from tab_balance_account b
where b.center_name = :new.AMERCE_CENTER
and b.site_name = nvl(:new.SITE_NAME, '*')
and b.bl_open = 1
and b.start_date <= :new.OPT_DATE);
select count(*)
into FCount_Next
from dual a
where exists (select /*+index(b TAB_BALANCE_ACCOUNT_I)*/
1
from tab_balance_account b
where b.center_name = :new.reward_center
and b.site_name = nvl(:new.REWARD_NAME, '*')
and b.bl_open = 1
and b.start_date <= :new.OPT_DATE);

select count(*)
into IsSecend_pre
from dual a
where exists (select 1
from tab_site s
where s.site_name = :new.SITE_NAME
and s.type = '二级网点');

select count(*)
into IsSecend_next
from dual a
where exists (select 1
from tab_site s
where s.site_name = :new.reward_name
and s.type = '二级网点');

if nvl(:new.BL_AUDITED, 0) = 1 then
if nvl(:old.BL_AUDITED, 0) = 0 then
if FCount_pre > 0 then
if (nvl(:new.SITE_NAME, '*') <> '*') and
(nvl(:new.AMERCE_MONEY, 0) <> 0) then
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
- :new.AMERCE_MONEY,
- :new.AMERCE_MONEY,
:new.OPT_DATE,
:new.AMERCE_CENTER,
:new.SITE_NAME,
:new.AUDIT_MAN,
:new.AUDIT_MAN,
:new.AUDIT_SITE);
if IsSecend_pre > 0 then
select SUPERIOR_FINANCE_CENTER
into Secend_precenter
from tab_site s
where s.site_name = :new.AMERCE_CENTER;
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
- :new.AMERCE_MONEY,
- :new.AMERCE_MONEY,
:new.OPT_DATE,
Secend_precenter,
:new.AMERCE_CENTER,
:new.AUDIT_MAN,
:new.AUDIT_MAN,
:new.AUDIT_SITE);
end if;

if :new.OPT_site = '总部' then
if nvl(Secend_precenter, '*') <> '*' then
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
- :new.AMERCE_MONEY,
- :new.AMERCE_MONEY,
:new.OPT_DATE,
'总部',
Secend_precenter,
:new.AUDIT_MAN,
:new.AUDIT_MAN,
:new.AUDIT_SITE);
else
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
- :new.AMERCE_MONEY,
- :new.AMERCE_MONEY,
:new.OPT_DATE,
'总部',
:new.AMERCE_CENTER,
:new.AUDIT_MAN,
:new.AUDIT_MAN,
:new.AUDIT_SITE);
end if;
end if;
end if;
end if;
if FCount_Next > 0 then
if (nvl(:new.reward_name, '*') <> '*') and
(nvl(:new.reward_money, 0) <> 0) then
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
:new.reward_money,
:new.reward_money,
:new.OPT_DATE,
:new.reward_center,
:new.reward_name,
:new.AUDIT_MAN,
:new.AUDIT_MAN,
:new.AUDIT_SITE);

if IsSecend_next > 0 then
select SUPERIOR_FINANCE_CENTER
into Secend_Nextcenter
from tab_site s
where s.site_name = :new.reward_center;
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
:new.reward_money,
:new.reward_money,
:new.OPT_DATE,
Secend_Nextcenter,
:new.reward_center,
:new.AUDIT_MAN,
:new.AUDIT_MAN,
:new.AUDIT_SITE);
end if;
if :new.OPT_site = '总部' then
if nvl(Secend_Nextcenter, '*') <> '*' then
--- 调用存储过程 tab_balance_detail_insert
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
:new.reward_money,
:new.reward_money,
:new.OPT_DATE,
'总部',
Secend_Nextcenter,
:new.AUDIT_MAN,
:new.AUDIT_MAN,
:new.AUDIT_SITE);
else
tab_balance_detail_insert('罚款',
substr(:new.AMERCE_REASON, 1, 200),
substr(:new.BILL_CODE, 1, 20),
:new.reward_money,
:new.reward_money,
:new.OPT_DATE,
'总部',
:new.reward_center,
:new.AUDIT_MAN,
:new.AUDIT_MAN,
:new.AUDIT_SITE);
end if;
end if;
end if;
end if;
end if;
end if;
elsif deleting and nvl(:old.AMERCE_REASON, '*') = '代录单费用' then
if nvl(:old.BL_AUDITED, 0) = 1 then
select count(*)
into FCount_pre
from dual a
where exists (select /*+index(b TAB_BALANCE_ACCOUNT_I)*/
1
from tab_balance_account b
where b.center_name = :old.AMERCE_CENTER
and b.site_name = nvl(:old.SITE_NAME, '*')
and b.bl_open = 1
and b.start_date <= :old.OPT_DATE);
select count(*)
into FCount_Next
from dual a
where exists (select /*+index(b TAB_BALANCE_ACCOUNT_I)*/
1
from tab_balance_account b
where b.center_name = :old.reward_center
and b.site_name = nvl(:old.REWARD_NAME, '*')
and b.bl_open = 1
and b.start_date <= :old.OPT_DATE);

select count(*)
into IsSecend_next
from dual a
where exists (select 1
from tab_site s
where s.site_name = :old.reward_name
and s.type = '二级网点');
if FCount_pre > 0 then
if (nvl(:old.SITE_NAME, '*') <> '*') and
(nvl(:old.AMERCE_MONEY, 0) <> 0) then
tab_balance_detail_insert('罚款',
substr(:old.AMERCE_REASON, 1, 50) ||
'【取消】',
substr(:old.BILL_CODE, 1, 20),
:old.AMERCE_MONEY,
:old.AMERCE_MONEY,
:old.OPT_DATE,
:old.AMERCE_CENTER,
:old.SITE_NAME,
'系统',
'系统',
'系统');

if :old.OPT_site = '总部' then

tab_balance_detail_insert('罚款',
substr(:old.AMERCE_REASON, 1, 50) ||
'【取消】',
substr(:old.BILL_CODE, 1, 20),
:old.AMERCE_MONEY,
:old.AMERCE_MONEY,
:old.OPT_DATE,
'总部',
:old.AMERCE_CENTER,
'系统',
'系统',
'系统');

end if;
end if;

end if;
if FCount_Next > 0 then
if (nvl(:old.reward_name, '*') <> '*') and
(nvl(:old.reward_money, 0) <> 0) then
tab_balance_detail_insert('罚款',
substr(:old.AMERCE_REASON, 1, 50) ||
'【取消】',
substr(:old.BILL_CODE, 1, 20),
- :old.reward_money,
- :old.reward_money,
:old.OPT_DATE,
:old.reward_center,
:old.reward_name,
'系统',
'系统',
'系统');
if IsSecend_next > 0 then
select SUPERIOR_FINANCE_CENTER
into Secend_Nextcenter
from tab_site s
where s.site_name = :old.reward_center;
tab_balance_detail_insert('罚款',
substr(:old.AMERCE_REASON, 1, 50) ||
'【取消】',
substr(:old.BILL_CODE, 1, 20),
:old.reward_money,
:old.reward_money,
:old.OPT_DATE,
Secend_Nextcenter,
:old.reward_center,
'系统',
'系统',
'系统');
end if;
if :old.OPT_site = '总部' then
if nvl(Secend_Nextcenter, '*') <> '*' then
tab_balance_detail_insert('罚款',
substr(:old.AMERCE_REASON, 1, 50) ||
'【取消】',
substr(:old.BILL_CODE, 1, 20),
:old.reward_money,
:old.reward_money,
:old.OPT_DATE,
'总部',
Secend_Nextcenter,
'系统',
'系统',
'系统');
else
tab_balance_detail_insert('罚款',
substr(:old.AMERCE_REASON, 1, 50) ||
'【取消】',
substr(:old.BILL_CODE, 1, 20),
- :old.reward_money,
- :old.reward_money,
:old.OPT_DATE,
'总部',
:old.reward_center,
'系统',
'系统',
'系统');
end if;
end if;
end if;
end if;
end if;

end if;
end TAB_AMERCE_balance_new;

-----add by sd

转载于:https://www.cnblogs.com/yangpeng-jingjing/p/8797637.html

weixin_30265103
关注
触发器与存储过程的相互调用
tearsmo的专栏
05-27 5446
<br />触发器与存储过程互调<br />--触发器如何调用存储过程<br />create trigger test on table<br />for insert<br />as<br />exec 存储过程名<br />go <br /><br />--存储过程如何调用触发器<br />create proc test<br />as<br />update table set ...<br />insert table select ...<br />delete table ...<br /
mysql在触发器中调用存储过程_mysql 触发器中调用存储过程
weixin_29315091的博客
02-02 2496
想要在MYSQL的触发器中调用存储过程，但是IDE提示：0A000 Not allowed to return a result set from a trigger触发器代码如下：DELIMITER $$CREATE TRIGGER tri_ContactCompany_Insert AFTER INSERTON contactcompany FOR EACH ROW# 创建时间：2019年6月...
触发器调用存储过程
06-19
触发器调用存储过程
二十三、触发器：自动执行的存储过程
基督山伯爵的博客
12-01 1904
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp
触发器调用存储过程 / 存储过程调用触发器
cuizatu9720的博客
09-15 1841
触发器与存储过程互调 --触发器如何调用存储过程 create trigger test on table for insert as exec 存储过程名 go --存储过程如何调用触发器 crea...
navicat中创建存储过程、触发器和使用游标的简单实例(图文)
09-09
本文将详细介绍如何在Navicat中创建存储过程、触发器以及使用游标进行数据操作。 1. **存储过程**： 存储过程是一组为了完成特定功能的SQL语句集合，可以在数据库中预先编译并存储，后续需要时只需调用即可。在...
oracle 存储过程、函数和触发器用法实例详解
12-14
本文实例讲述了oracle 存储过程、函数和触发器用法。分享给大家供大家参考，具体如下： 一、存储过程和存储函数 指存储在数据库中供所有用户程序调用的子程序叫存储过程、存储函数。 创建存储过程 用CREATE ...
PLSQL操作存储过程、函数、游标、触发器、定时任务等实例SQL脚本.zip
12-25
实例脚本可能包含创建、修改和调用存储过程的示例。 2. **函数**：与存储过程类似，函数也是预编译的代码块，但其返回一个值。函数通常用于计算或检索单一数据项。在PL/SQL中，我们可以定义自定义函数，然后在SQL...
SQL Server：触发器实例详解
09-09
触发器不能像普通存储过程那样被显式调用，而是隐式地在数据修改操作触发时运行。 1. **触发器的分类** - **“Instead of”触发器**：这类触发器在DML语句（INSERT、UPDATE、DELETE）执行之前触发，可以用来替代...
存储过程和触发器笔记
weixin_30511107的博客
01-16 151
1. 存储过程和触发器是什么? 存储过程不能可以显著提高系统的执行速度,还能提高效率确保一致性. 1.1存储过程:一种数据库对象,将负责不同功能的语句分类放置起来,以便能反复使用. 1.2特点: 1.3存储过程的分类 分为五类,系统存储过程,用户定义存储过程,临时存储过程,远程存储过程,扩展存储过程. 临时存储过程又分为本地临时存储过程,全局临时存储过程. ...
oracle触发器调用存储过程
12-07
oracle触发器调用存储过程，最简单的例子适用于初学者
触发器中调用存储过程
anx5568的博客
05-05 371
存储过程名称为A，假设A返回一个ID EXEC @id = A 1031,1 在触发器中像上面那样调用，调试时发现@FolderHierarchyid的值为0 后面参考网上的方法，建了一个表，表结构和存储过程的返回结果集结构一样 declare @idtable table(ID int); insert into @idtable EXEC A 1031,1 select @...
触发器中调用存储过程,事务的使用
金 色 的 草 棚
08-07 431
<br /><br />作者蓉儿szx1999 <br />1.set xact_abort off <br />2.设置保存点  <br />IF OBJECT_ID('TA')IS NOT NULL DROP TABLE TA<br />GO<br />CREATE TABLE TA( ID INT IDENTITY,性別 NVARCHAR(5) CHECK(性別 IN(N'男',N'女')))<br />IF OBJECT_ID('PRO_TEST')IS NOT NULL DROP PROC PRO
mysql 触发器 调用存储过程_MySql在触发器中调用存储过程
weixin_33456452的博客
01-19 1129
不太写触发器，今天遇到个语法问题，在朋友(DBA)的帮助下解决了，记录下来。需求：在CLASS_PROPERTY_REL删除记录时，调用存储过程gen_ci_property_value问题反馈：SQL 错误 [1064] [42000]: You have an error in your SQL syntax; check the manual that corresponds to your...
Oracle通过触发器调用存储过程
cjzero的博客
12-10 3992
实现效果：向销量表插入数据后，通过触发器调用存储过程同步更新至销售额表（工具为PL/SQL） 1、创建相关表 -- Create table create table R_TEST1 ( stdate VARCHAR2(20), productid VARCHAR2(200), saleamount VARCHAR2(20) ); comment on table R_TEST1 is '产品销量表'; comment on column R_TEST1.stdate is .
SQL Server 文档整理 - 3 触发器调用存储过程
彭建军的专栏
07-08 9541
       两年多没有碰SQL Server 2000了，昨天整理电脑的时候发现了以前写的一些文档，今天就整理到博客上来吧。不然也对不起“彭建军的专栏”几个字了，呵呵。       不想人工干预地自动执行存储过程？当目的表发生变动时自动执行相应的存储过程？本存储过程就是提供这样一个方法……/*** 关于： MS SQL Server 2000 触发器调用存储过程* 作者：彭建军*
【Oracle】触发器调用存储过程
最新发布
u010446835的博客
06-14 460
环境：oracle 11g。
mysql 触发器调用存储过程_初试mysql存储过程&触发器
weixin_39858298的博客
01-19 458
玩mysql以来，一直没有试过实现存储过程，因为存储过程的语法看起来有些笨重。所以一直采用手动批量运行查询，而且要手动改日期之类的参数。今天尝试着学了一会，发现其实是很简单的。语法上确实格式复杂些，但是实现起来有章可循。于是花了一个小时就把最近一个小项目的批量sql改成了存储过程。先作简要笔记，记录最基础的语法。存储过程的基本格式CREATE PROCEDURE icarus_daily(in p...
mysql在触发器中调用存储过程_MySql在触发器中调用存储过程_MySQL
weixin_42108054的博客
01-20 163
不太写触发器，今天遇到个语法问题，在朋友(DBA)的帮助下解决了，记录下来。需求：在CLASS_PROPERTY_REL删除记录时，调用存储过程gen_ci_property_value问题反馈：SQL 错误 [1064] [42000]: You have an error in your SQL syntax; check the manual that corresponds to your...
SQLServer存储过程详解：优点与实例
这个过程不需要任何参数，执行时使用"EXECUTE"语句或者直接调用存储过程名称。执行后，它会返回指定学生的所有成绩记录。 触发器则是另一种数据库对象，它在特定的数据操作（如INSERT、UPDATE、DELETE）发生时自动...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值