十万火急!心急如焚!关于存储过程的问题,请高手们救命!

liangcq 2013-01-22 09:25:10
问题如下面蓝色字体所述:

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pro_Mate_Out_CheckNo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[pro_Mate_Out_CheckNo]
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

/*---------------------------------------------------------------------
过程名称:原料出库【反审】
修改内容:
-----------------------------------------------------------------------*/
CREATE PROCEDURE pro_Mate_Out_CheckNo @UserName nvarchar(50)
WITH ENCRYPTION AS
SET XACT_ABORT ON
Begin Transaction

--00 读取参数
Declare @ProcName nvarchar(50)
Declare @BillCode nvarchar(50)

Select @ProcName = 'pro_Mate_Out_CheckNo'

Select @BillCode = FValue
From Base_Procedure
Where FItem = '单号'
And FUserName = @UserName
And FProcName = @ProcName

Declare @Count int --计数器
Declare @Type nvarchar(50) --单据类型
Declare @State nvarchar(50) --单据状态

Select @Type = FType,
@State = FState
From Mate_OutHead
Where FCode = @BillCode

--01 检查数据的完整性和有效性

--0101 单据状态检查
If IsNull(@State,'') <> '审核'
Begin
Rollback
RaisError('操作无效!只有审核的单据才能反审。', 11, 1)
Return
End

--0102 表体物料不能为空
Select @Count = Count(*)
From Mate_OutBody
Where FHead = @BillCode
And IsNull(FMaterialCode,'') = ''

If @Count > 0
Begin
Rollback
RaisError('物料编号有为空的记录,不能反审!', 11, 1)
Return
End

--0103 表体仓位不能为空
Select @Count = Count(*)
From Mate_OutBody
Where FHead = @BillCode
And IsNull(FPlaceName,'') = ''

If @Count > 0
Begin
Rollback
RaisError('仓位有为空的记录,不能反审!', 11, 1)
Return
End

--02 更新库存数据

--0201 增加物料表的数量和金额
Update Mate_Material
Set FAmount = IsNull(FAmount,0) + F1,
FMoney = IsNull(FMoney,0) + F2
From (Select FMaterialCode, Sum(IsNull(FAmount,0)) As F1, Sum(IsNull(FMoney,0)) As F2
From Mate_OutBody
Where FHead = @BillCode
Group By FMaterialCode) As T1
Where FCode = FMaterialCode

--03 更新库存关系表

--0301 插入库存关系表的缺少记录
Insert Into Mate_Relation(FMaterialCode, FPlaceName)
Select Distinct FMaterialCode, FPlaceName
From Mate_OutBody
Where FHead = @BillCode
And (FMaterialCode + FPlaceName) Not In
(Select IsNull(FMaterialCode,'') + IsNull(FPlaceName,'') From Mate_Relation)

--0302 增加库存关系表的数量
Update Mate_Relation
Set FAmount = IsNull(FAmount,0) + F1
From (Select FMaterialCode, FPlaceName, Sum(IsNull(FAmount,0)) As F1
From Mate_OutBody
Where FHead = @BillCode
Group By FMaterialCode, FPlaceName) As T1
Where Mate_Relation.FMaterialCode = T1.FMaterialCode
And Mate_Relation.FPlaceName = T1.FPlaceName


--上面红色部分偶尔没有执行,但下面的状态更新却执行了。结果导致单据反审了,但库存数量却没有增加。
--这种现象并不常出现,单独测试这个存储过程的时候不出问题,不知道为什么?请帮我看一下,多谢!
--我用的是SQLServer2000,已打SP4补丁了。
--如果需要相应的数据库和程序,我可以打包发给你。


--04 更新物料表
Execute pro_Insert_Proc @UserName, 'pro_Mate_Update', '单号', ''
Execute pro_Insert_Proc @UserName, 'pro_Mate_Update', '类型', '物料档案'
Execute pro_Mate_Update @UserName

--05 更新状态
Update Mate_OutHead
Set FState = '提交',
FCheckName = Null,
FCheckDate = Null
Where FCode = @BillCode


Commit

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
...全文
331 点赞 收藏 18
写回复
18 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
liangcq 2013-01-24
我顶!
回复
liangcq 2013-01-23
我顶
回复
liangcq 2013-01-23
老兄做什么工作,这么晚了还在加班? 执行速度目前倒是不慢,挺顺畅的。 如果SQL语句从写法上没有问题,我想从【事务处理】和【更新锁】两个方面入手解决。 我把代码改动如下,你看行吗? 蓝色字体是我添加的部分: --02 更新库存数据 --0201 增加物料表的数量和金额 Update Mate_Material With (UPDLOCK) Set FAmount = IsNull(FAmount,0) + F1, FMoney = IsNull(FMoney,0) + F2 From (Select FMaterialCode, Sum(IsNull(FAmount,0)) As F1, Sum(IsNull(FMoney,0)) As F2 From Mate_OutBody Where FHead = @BillCode Group By FMaterialCode) As T1 Where FCode = FMaterialCode --03 更新库存关系表 --0301 插入库存关系表的缺少记录 Insert Into Mate_Relation With (UPDLOCK)(FMaterialCode, FPlaceName) Select Distinct FMaterialCode, FPlaceName From Mate_OutBody Where FHead = @BillCode And (FMaterialCode + FPlaceName) Not In (Select IsNull(FMaterialCode,'') + IsNull(FPlaceName,'') From Mate_Relation) --0302 增加库存关系表的数量 Update Mate_Relation With (UPDLOCK) Set FAmount = IsNull(FAmount,0) + F1 From (Select FMaterialCode, FPlaceName, Sum(IsNull(FAmount,0)) As F1 From Mate_OutBody Where FHead = @BillCode Group By FMaterialCode, FPlaceName) As T1 Where Mate_Relation.FMaterialCode = T1.FMaterialCode And Mate_Relation.FPlaceName = T1.FPlaceName
回复
ljr_aa 2013-01-23
把检测数据写在另一个存储过程或程序中,更新数据独立出来。
回复
liangcq 2013-01-23
我再顶!
回复
Andy-W 2013-01-23
我個人覺得這問題應該從數據上去查,語句沒什麽就是數據的問題了。 你可以做個日誌表跟蹤下更新庫存的過程. e.g. --0201 增加物料表的数量和金额 Update Mate_Material Set FAmount = IsNull(FAmount,0) + F1, FMoney = IsNull(FMoney,0) + F2 From (Select FMaterialCode, Sum(IsNull(FAmount,0)) As F1, Sum(IsNull(FMoney,0)) As F2 From Mate_OutBody Where FHead = @BillCode Group By FMaterialCode) As T1 Where FCode = FMaterialCode if @@rowcount =0 --写日志 begin insert into db_log .... end 不写日志也可以,使用rollback 方法并告诉客户端,找不到对应的库存数据无法更新库存,也说明这原料在仓库有问题。
回复
liangcq 2013-01-23
顶起来!
回复
發糞塗牆 2013-01-22
对于9楼,如果你觉得比较大的可能行,那么你可以尝试加锁,但是应该有规律检查一下是否会更慢或者有死锁。 对于10楼,业务我不熟,写法上我帮不了你,但是如果觉得慢,可以把执行计划贴出来看看 刚才加班去了。现在才搞完
回复
liangcq 2013-01-22
我要实现的功能其实很简单:当领料出库单反审后,相应物料的库存数量增加。 物料库存表为:Mate_Material(FCode, FAmount) 出库单表体为:Mate_OutBody(FMaterial, FAmount) 对应的更新语句如下: Update Mate_Material Set FAmount = IsNull(FAmount,0) + F1, FMoney = IsNull(FMoney,0) + F2 From (Select FMaterialCode, Sum(IsNull(FAmount,0)) As F1, Sum(IsNull(FMoney,0)) As F2 From Mate_OutBody Where FHead = @BillCode Group By FMaterialCode) As T1 Where FCode = FMaterialCode 有没有别的写法呢?
回复
liangcq 2013-01-22
你说的也有道理,我的推测是: 1、因事务产生冲突,导致Update语句是执行了,但没有影响任何记录。 2、Where条件不符合,导致Update语句是执行了,但没有影响任何记录。 第一种的可能性比较大,但无法再现。 第二种情况不大,因为后面有个更新单据状态的Update语句,它一直是更新成功的。 郁闷…… 高人,有没有别的思路呢?
回复
發糞塗牆 2013-01-22
中间那块没有执行我个人觉得: 1、你的@count每次用完没有重置,影响了,试试每次使用钱先set @count=0。 2、那段红字部分的条件不符合,导致执行了,但是没结果,所以你看到是没执行。
回复
liangcq 2013-01-22
我的程序里已经设置了事务了,如下: SET XACT_ABORT ON Begin Transaction 我的代码块1 我又调用了另一存储过程(里面也含有事务处理) 我的代码块2 Commit 这样做有问题吗?
回复
liangcq 2013-01-22
我顶!
回复
發糞塗牆 2013-01-22
加锁是一种方式,但是如果你的update不够快,会造成阻塞甚至死锁。你把这套逻辑处理放在 begin tran 代码块 commit/rollback 中。
回复
liangcq 2013-01-22
如果加上更新锁,是否可行,如下: Update Mate_Material With (UPDLOCK) Set FAmount = IsNull(FAmount,0) + F1, FMoney = IsNull(FMoney,0) + F2 From (Select FMaterialCode, Sum(IsNull(FAmount,0)) As F1, Sum(IsNull(FMoney,0)) As F2 From Mate_OutBody Where FHead = @BillCode Group By FMaterialCode) As T1 Where FCode = FMaterialCode 请高人指点一下!
回复
liangcq 2013-01-22
放到一个事务里面来保证业务的一致性。这才是最重要的。 这句话怎么理解? 是指不要在存储过程中调用其它含事务处理的存储过程吗?
回复
發糞塗牆 2013-01-22
放到一个事务里面来保证业务的一致性。这才是最重要的。
回复
叶子 2013-01-22
这种偶尔发生的情况很难查找原因.
回复
相关推荐
发帖
疑难问题
创建于2007-09-28

2.1w+

社区成员

MS-SQL Server 疑难问题
申请成为版主
帖子事件
创建了帖子
2013-01-22 09:25
社区公告
暂无公告