proc_物料拷贝.sql

SQL server 进销存软件数据库设计。大家积极下载

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 物料主文件_成本