IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE NAME= 'PROC_物料拷貝' AND TYPE='P')
DROP PROC PROC_物料拷貝
GO
CREATE PROC PROC_物料拷貝
@源物料編碼 VARCHAR(30) ,
@到物料編碼 VARCHAR(30),
@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
SELECT @AS_REN='2'
RETURN
END
SELECT @LI_COUNT=COUNT(*) FROM 物料主文件_基本 WHERE 物料編碼=@到物料編碼
IF ISNULL(@LI_COUNT,0)=0
BEGIN
INSERT INTO 物料主文件_基本(物料編碼,物料描述,計量單位編碼,來源,分類碼,重量,采購員,顏色,圖號,版本號跟蹤,銷售員,銷售價格,批發價格,稅碼,存儲期限_天,ABC分析碼,狀態)
SELECT @到物料編碼,物料描述,計量單位編碼,來源,分類碼,重量,采購員,顏色,圖號,版本號跟蹤,銷售員,銷售價格,批發價格,稅碼,存儲期限_天,ABC分析碼,狀態
FROM 物料主文件_基本 WHERE 物料編碼=@源物料編碼
INSERT INTO 物料主文件_成本(物料編碼,直接材料,直接人工,制造費用 )SELECT @到物料編碼,直接材料,直接人工,制造費用 FROM 物料主文件_成本 WHERE 物料編碼=@源物料編碼
END
END

-- EXEC PROC_物料拷貝 '電腦','計算','0'
SELECT *FROM 物料主文件_基本
SELECT *FROM 物料主文件_成本