--1----------------------------
begin tran
go
insert into 作业项目表 values('zy2016006','112202002','y005',
10000,'张三', '07-01-2016' ,'07-04-2016','07-25-2016',
'作业公司作业一队','堵漏',7000,2500,1000,1400,11900,
'李四','07-26-2016',11900,'王五','07-28-2016')
insert into 材料费表 values('zy2016006','wm001',200,10)
insert into 材料费表 values('zy2016006','wm002',200,10)
insert into 材料费表 values('zy2016006','wm003',200,10)
insert into 材料费表 values('zy2016006','wm004',100,10)
if @@error<>0
begin
print '语句执行失败'
rollback
end
else
begin
print '语句执行成功'
commit
end
--2---------------------------------
begin tran
declare yb cursor for
select *
from 作业项目表
open yb
declare @单据号 varchar(20)
declare @预算单位 varchar(20)
declare @井号 varchar(20)
declare @预算金额 varchar(20)
declare @预算人 varchar(20)
declare @预算日期 varchar(20)
declare @开工日期 varchar(20)
declare @完工日期 varchar(20)
declare @施工单位 varchar(20)
declare @施工内容 varchar(20)
declare @材料费 varchar(20)
declare @人工费 varchar(20)
declare @设备费 varchar(20)
declare @其它费用 varchar(20)
declare @结算金额 varchar(20)
declare @结算人 varchar(20)
declare @结算日期 varchar(20)
declare @入账金额 varchar(20)
declare @入账人 varchar(20)
declare @入账日期 varchar(20)
print '单据号 '+
'预算单位 '+
'井号 '+
'预算金额 '+
'预算人 '+
'预算日期 '+
'开工日期 '+
'完工日期 '+
'施工单位 '+
'施工内容 '+
'材料费 '+
'人工费 '+
'设备费 '+
'其它费用 '+
'结算金额 '+
'结算人 '+
'结算日期 '+
'入账金额 '+
'入账人'+
'入账日期'
fetch next from yb
into @单据号,
@预算单位 ,
@井号 ,
@预算金额 ,
@预算人 ,
@预算日期,
@开工日期 ,
@完工日期 ,
@施工单位 ,
@施工内容 ,
@材料费 ,
@人工费 ,
@设备费 ,
@其它费用,
@结算金额 ,
@结算人 ,
@结算日期,
@入账金额 ,
@入账人 ,
@入账日期
while(@@fetch_status = 0)
begin
print
@单据号 +' '+
@预算单位 +' '+
@井号 +' '+
@预算金额 +' '+
@预算人 +' '+
@预算日期 +' '+
@开工日期 +' '+
@完工日期 +' '+
@施工单位 +' '+
@施工内容 +' '+
@材料费 +' '+
@人工费 +' '+
@设备费 +' '+
@其它费用 +' '+
@结算金额 +' '+
@结算人 +' '+
@结算日期 +' '+
@入账金额 +' '+
@入账人 +' '+
@入账日期
fetch next from yb
into
@单据号,
@预算单位 ,
@井号 ,
@预算金额 ,
@预算人 ,
@预算日期,
@开工日期 ,
@完工日期 ,
@施工单位 ,
@施工内容 ,
@材料费 ,
@人工费 ,
@设备费 ,
@其它费用,
@结算金额 ,
@结算人 ,
@结算日期,
@入账金额 ,
@入账人 ,
@入账日期 ;
end
--3----------------------------------
if object_id('_someDepCost','p') is not null
drop procedure _someDepCost;
go
create procedure _someDepCost
@单位代码 varchar(40),
@起始日期 datetime,
@结束日期 datetime
as
declare @单位名称 varchar(40);
declare @预算金额 money,
@结算金额 money,
@入账金额 money,
@未结算金额 money,
@未入账金额 money;
select @单位名称 = 单位名称 from 单位代码表
where 单位代码 = @单位代码
set @预算金额 = (select sum(预算金额) from 作业项目表
where 预算单位 like @单位代码 + '%' and (预算日期 between @起始日期 and @结束日期))
set @结算金额 = (select sum(结算金额) from 作业项目表
where 预算单位 like @单位代码 + '%' and (结算日期 between @起始日期 and @结束日期))
set @入账金额 = (select sum(入账金额) from 作业项目表
where 预算单位 like @单位代码 + '%' and (入账日期 between @起始日期 and @结束日期) and
(入账金额 is not null))
set @未结算金额 = (select sum(预算金额) from 作业项目表
where (结算金额 is null) and (预算日期 between @起始日期 and @结束日期))
set @未入账金额 = (select sum(结算金额) from 作业项目表
where (入账金额 is null) and (结算日期 between @起始日期 and @结束日期))
set @未结算金额 = @预算金额 - @结算金额
set @未入账金额 = @结算金额 - @入账金额
if @预算金额 is null
set @预算金额 = 0
if @结算金额 is null
set @结算金额 = 0
if @入账金额 is null
set @入账金额 = 0
if @未结算金额 is null
set @未结算金额 = 0
if @未入账金额 is null
set @未入账金额 = 0
declare @result varchar(100)
set @result = convert(varchar,@预算金额)+' '+convert(varchar,@结算金额)+
' '+convert(varchar,@入账金额)+' '+convert(varchar,@未结算金额)+' '+convert(varchar,@未入账金额)
print @单位名称+'单位'+convert(varchar,@起始日期,102)+'--'+convert(varchar,@结束日期,102)+'成本运营状况'
print '预算金额 结算金额 入账金额 未结算金额 未入账金额'
print @result
go
execute _someDepCost @单位代码 = '1122',@起始日期 = '2016-5-1',@结束日期 = '2016-5-29';
execute _someDepCost @单位代码 = '112201',@起始日期 = '2016-5-1',@结束日期 = '2016-5-29';
execute _someDepCost @单位代码 = '112201001',@起始日期 = '2016-5-1',@结束日期 = '2016-5-29';
go
--4---------------------------------------------
--(1)----------------------------
if OBJECT_ID('trmytr1','TR') is not null
drop trigger tr_mytrl
go
create trigger trmytr1 on 作业项目表
after insert
as
declare @结算金额 money
declare @temp1 money,@temp2 money,@temp3 money,@temp4 money;
select @temp1 = 材料费,@temp2 = 人工费,@temp3 = 设备费,@temp4 = 其他费用
from inserted;
set @结算金额 = @temp1+@temp2+@temp3+@temp4;
update 作业项目表
set 结算金额 = @结算金额
where 单据号 = (select 单据号 from inserted);
go
--(2)---------------------------------------------
if OBJECT_ID('trmytr2','TR') is not null
drop trigger tr_mytr2
go
create trigger trmytr2 on 作业项目表
after update
as
declare @结算金额 money
declare @temp1 money,@temp2 money,@temp3 money,@temp4 money;
select @temp1 = 材料费,@temp2 = 人工费,@temp3 = 设备费,@temp4 = 其他费用
from inserted;
set @结算金额 = @temp1+@temp2+@temp3+@temp4;
update 作业项目表
set 结算金额 = @结算金额
where 单据号 = (select 单据号 from inserted);
go
--(3)----------------------------------
if OBJECT_ID('trmytr3','TR') is not null
drop trigger tr_mytr3
go
create trigger trmytr3 on 作业项目表
instead of delete
as
delete from 材料费表
where 单据号 = (select 单据号 from deleted);
--(4)------------------------
begin tran
/*(1)*/ insert into 作业项目表(单据号,预算人,材料费,人工费,设备费,其他费用)
values('2017000','test',100,200,300,400);
delete from 作业项目表 where 单据号 = '2017000';
/*(2)*/ insert into 作业项目表(单据号,预算人,材料费,人工费,设备费,其他费用)
values('2017111','test',100,200,300,400);
update 作业项目表
set 材料费 = 100000
where 单据号 = '2017111';
/*(3)*/insert into 作业项目表(单据号,预算人,材料费,人工费,设备费,其他费用)
values('2017110','test',100,200,300,400);
insert into 材料费表
values('2017110','wm001');
select 单据号,物码
from
材料费表;
delete from 作业项目表
where 单据号 = '2017110';
select 单据号,物码
from 材料费表
rollback
