proc_删除采购单.sql

来自「SQL server 进销存软件数据库设计。大家积极下载」· SQL 代码 · 共 26 行

IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE NAME='PROC_删除采购单' AND TYPE='P')
DROP PROC PROC_删除采购单
GO
CREATE PROC PROC_删除采购单
@源采购单 INT,
@AS_REN CHAR(1) OUTPUT---'0'-->成功;'1'---源采购单不存在;'2'---目标采购单存在;
AS
BEGIN
DECLARE @LI_COUNT INTEGER
SELECT @LI_COUNT=COUNT(*) FROM 采购订单明细表 WHERE 采购单号=@源采购单  
IF ISNULL(@LI_COUNT,0)=0
BEGIN
SELECT @AS_REN='1'
RETURN
END
SELECT @LI_COUNT=COUNT(*) FROM 采购订单明细表 WHERE 采购单号=@源采购单  
IF ISNULL(@LI_COUNT,0)>0
BEGIN
DELETE FROM 采购订单明细表  WHERE 采购单号=@源采购单  
DELETE FROM 采购单主表 WHERE 采购单号=@源采购单


SELECT @AS_REN='0'
END
END