create procedure W1_kwxiang_18_CCD_add2
@出仓单号 varchar(20),@出仓日期 datetime,@操作人员代码 varchar(20),@备注 varchar(80),
@物料代码 varchar(20),@出仓数量 smallint,@出仓金额 smallint,
@p_message char(50) output
as
if exists(select * from W1_kwxiang_18_CCD where 出仓单号=@出仓单号)
set @p_message= '此单号已存在!'else if exists(select * from W1_kwxiang_18_Goods where @出仓数量>库存数量 and 物料代码=@物料代码)
set @p_message= '库存量不足!'else if exists(select * from W1_kwxiang_18_Goods where 库存数量<0)
set @p_message= '对不起你的库存量为负!'else if @出仓单号=''
set @p_message= '单号不能为空!'else if @出仓数量=''
begin
set @p_message= '数量不能为空!'
end
else if @出仓金额<0
begin
set @p_message= '金额不能负数!'
end
else
beginupdate W1_kwxiang_18_Goods
set 库存数量=库存数量-@出仓数量
where 物料代码=@物料代码insert into W1_kwxiang_18_CCD
values(@出仓单号,@出仓日期,@操作人员代码,@备注,@物料代码,@出仓数量,@出仓金额)
set @p_message='更新成功!'
end
print(@p_message)
为什么
update W1_kwxiang_18_Goods
set 库存数量=库存数量-@出仓数量
where 物料代码=@物料代码
不能执行???????求大家帮帮忙
@出仓单号 varchar(20),@出仓日期 datetime,@操作人员代码 varchar(20),@备注 varchar(80),
@物料代码 varchar(20),@出仓数量 smallint,@出仓金额 smallint,
@p_message char(50) output
as
if exists(select * from W1_kwxiang_18_CCD where 出仓单号=@出仓单号)
set @p_message= '此单号已存在!'else if exists(select * from W1_kwxiang_18_Goods where @出仓数量>库存数量 and 物料代码=@物料代码)
set @p_message= '库存量不足!'else if exists(select * from W1_kwxiang_18_Goods where 库存数量<0)
set @p_message= '对不起你的库存量为负!'else if @出仓单号=''
set @p_message= '单号不能为空!'else if @出仓数量=''
begin
set @p_message= '数量不能为空!'
end
else if @出仓金额<0
begin
set @p_message= '金额不能负数!'
end
else
beginupdate W1_kwxiang_18_Goods
set 库存数量=库存数量-@出仓数量
where 物料代码=@物料代码insert into W1_kwxiang_18_CCD
values(@出仓单号,@出仓日期,@操作人员代码,@备注,@物料代码,@出仓数量,@出仓金额)
set @p_message='更新成功!'
end
print(@p_message)
为什么
update W1_kwxiang_18_Goods
set 库存数量=库存数量-@出仓数量
where 物料代码=@物料代码
不能执行???????求大家帮帮忙
解决方案 »
- CRC32算法问题
- 记录定位问题,跪求达人赐教,急!!!
- 110分求助打印问题
- 注册表问题;有一二进制键值,在注册表编辑器里看到是’D2 07 0C 00 00 00 0D 00’,如何取得这串字符?
- 求救formula one6.0在安装编译的时候却出现一大堆错误
- 如何使与数据库连接失败时只显示信息不报错
- 各位大虾们,请教一条SQL日期查询语句。
- 请问,有什么方法可以实现网管的一些功能
- 在MDI应用程序中,父窗口如何在子窗口关闭时立刻得到通知,有源码最好!
- 我刚安装了一个XPMenu控件,但不知道如何使用,请指教!
- 关于文件编码问题(ANSI,UTF8,Unicode等)
- delphi中如何创建Excel对象
(所影响的行数为 1 行)
(所影响的行数为 0 行)更新成功!
就是
update W1_kwxiang_18_Goods
set 库存数量=库存数量-@出仓数量
where 物料代码=@物料代码
这句没执行到
要怎么办?