先进先出的还款处理触发器

来源：互联网发布：linux 任务优先级设置编辑：程序博客网时间：2024/05/15 13:07

有两个表：表1：借支
姓名   日期   借支单号     借支金额     已还金额     未还余额
张三 99-1-1 000001      10000          0           10000
李四 99-1-2 000002      5000           0           5000
张三 99-2-1 000003      6000           0           6000
张三 99-3-1 000004      10000          0           15000
...    ...      ...        ...          ..         .....
表2：还款
姓名   日期    还款单号     还款金额

当表2 输入单据时，表1 的“已还金额”“未还余额”根据表2的输入“还款金额”做相应更改。即：
表2：还款
姓名   日期    还款单号     还款金额
张三   99-4-3   000001      13000

表1：借支
姓名   日期   借支单号     借支金额     已还金额     未还余额
张三 99-1-1 000001      10000          10000        0
李四 99-1-2 000002      5000           0           5000
张三 99-2-1 000003      6000           3000        3000
张三 99-3-1 000004      10000          0           15000
...    ...      ...        ...          ..         .....
表2再输入时：
姓名   日期    还款单号     还款金额
张三   99-4-3   000001      13000
张三   99-4-3   000002      8000
表1为：
表1：借支
姓名   日期   借支单号     借支金额     已还金额     未还余额
张三 99-1-1 000001      10000          10000        0
李四 99-1-2 000002      5000           0           5000
张三 99-2-1 000003      6000           6000        0
张三 99-3-1 000004      15000          5000        10000
...    ...      ...        ...          ..         .....

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

--测试

--测试数据
create table 表1(姓名 varchar(10),日期 datetime,借支单号 char(6),借支金额 int,已还金额 int,未还余额 int)
insert 表1 select '张三','99-1-1','000001',10000,0 ,10000
union all select '李四','99-1-2','000002',5000 ,0 ,5000
union all select '张三','99-2-1','000003',6000 ,0 ,6000
union all select '张三','99-3-1','000004',15000,0 ,15000 --楼主原来这个数据应该不对

create table 表2(姓名 varchar(10),日期 datetime,还款单号 char(6),还款金额 int)
go

--处理的触发器
create trigger tr_insert on 表2
for insert
as
update a set
已还金额=case when (
   select sum(case when 已还金额>0 then 未还余额 else 借支金额 end)
   from 表1
   where 未还余额>0 and 姓名=a.姓名 and 借支单号<=a.借支单号
  )>a.未还余额 then b.还款金额-isnull((
   select sum(case when 已还金额>0 then 未还余额 else 借支金额 end)
   from 表1
   where 未还余额>0 and 姓名=a.姓名 and 借支单号  ),0)+isnull(a.已还金额,0)
  else a.借支金额 end
,未还余额=case when (
   select sum(case when 已还金额>0 then 未还余额 else 借支金额 end)
   from 表1
   where 未还余额>0 and 姓名=a.姓名 and 借支单号<=a.借支单号
  )>a.未还余额 then a.借支金额-(b.还款金额-isnull((
   select sum(case when 已还金额>0 then 未还余额 else 借支金额 end)
   from 表1
   where 未还余额>0 and 姓名=a.姓名 and 借支单号  ),0)+isnull(a.已还金额,0))
  else 0 end
from 表1 a,inserted b
where a.未还余额>0 and a.姓名=b.姓名 and isnull((
  select sum(case when 已还金额>0 then 未还余额 else 借支金额 end)
  from 表1
  where 未还余额>0 and 姓名=a.姓名 and 借支单号 ),0)<=b.还款金额
go

--插入记录测试
insert 表2 select '张三','99-4-3','000001',13000
--显示处理结果
select * from 表1
select * from 表2

--插入记录测试
insert 表2 select '张三','99-4-3','000002',8000
--显示处理结果
select * from 表1
select * from 表2
go

--删除测试
drop table 表1,表2

/*--测试结果

--第一次插入记录的更新结果:

姓名   日期                       借支单号借支金额   已还金额未还余额
------ ------------------------- --------- --------- --------- ----------
张三   1999-01-01 00:00:00.000    000001   10000     10000     0
李四   1999-01-02 00:00:00.000    000002   5000      0         5000
张三   1999-02-01 00:00:00.000    000003   6000      3000      3000
张三   1999-03-01 00:00:00.000    000004   15000     0         15000

（所影响的行数为 4 行）

姓名日期还款单号还款金额
----- -------------------------- --------- -----------
张三 1999-04-03 00:00:00.000 000001 13000

（所影响的行数为 1 行）

--第二次插入的结果:

姓名   日期                       借支单号   借支金额已还金额未还余额
------ ------------------------------------ --------- -------- --------
张三   1999-01-01 00:00:00.000    000001    10000     10000     0
李四   1999-01-02 00:00:00.000    000002    5000      0         5000
张三   1999-02-01 00:00:00.000    000003    6000      6000      0
张三   1999-03-01 00:00:00.000    000004    15000     5000      10000

（所影响的行数为 4 行）

姓名   日期                       还款单号   还款金额
------ ------------------------- ---------- ----------
张三   1999-04-03 00:00:00.000    000001    13000
张三   1999-04-03 00:00:00.000    000002    8000

（所影响的行数为 2 行）

--*/

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=48722