backing.txt

< 飞鸿商品>>零售是基于VB+SQL2000开的商品零售管理系统. 开发的很好.可以一看

CREATE PROCEDURE backing  @ID varchar(40), @date varchar(20), @time varchar(20), @yuan smallmoney,
	@back smallmoney, @username varchar(20)
AS

INSERT INTO back_list  SELECT id,yaopin_id,num FROM sell_list where id=@id

DELETE  FROM sell_list  WHERE id=@id AND yaopin_id NOT IN (SELECT yaopin_id  FROM back_tmp  WHERE id=@id)

UPDATE sell_list  SET sell_list.num=back_tmp.num  
	FROM  back_tmp  WHERE sell_list.yaopin_id=back_tmp.yaopin_id AND back_tmp.id=@id

UPDATE back_list SET back_list.num=back_list.num - back_tmp.num 
	FROM back_tmp  WHERE  back_list.yaopin_id=back_tmp.yaopin_id AND  back_tmp.id=@id

UPDATE yaopin_num  SET yaopin_num.num = yaopin_num.num + back_list.num 
	FROM  back_list WHERE yaopin_num.id = back_list.yaopin_id AND back_list.id=@id

DELETE  FROM back_tmp

INSERT  INTO back_index VALUES(@id,@date,@time,@yuan,@back,@yuan - @back, @username)

UPDATE sell_index SET sums=@yuan - @back, sellsums = @yuan - @back WHERE id=@id
GO