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