proc_+

本系统为企业进存销管理系统

IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE NAME='PROC_拷贝采购单' AND TYPE='P')
DROP PROC PROC_拷贝采购单
GO
CREATE PROC PROC_拷贝采购单
@源采购单 INT,
@到采购单 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
SELECT @AS_REN='2'
RETURN
END
SELECT @LI_COUNT=COUNT(*) FROM 采购订单明细表 WHERE 采购单号=@到采购单  
IF ISNULL(@LI_COUNT,0)=0
BEGIN
INSERT INTO  采购订单明细表(采购单号,行, 供应商编码,物料编码,订购数量,计量单位,到期日期,状态,增值税码,货币码,单位材料成本)SELECT  @到采购单,行, 供应商编码,物料编码,订购数量,计量单位,到期日期,状态,增值税码,货币码,材料成本   FROM 采购订单明细表 WHERE 采购单号=@源采购单  
INSERT INTO 采购单主表 (采购单号,日期,状态,供应商编码,采购员,发货途径,仓库,货币,信用条款,上次发票日期,联系人,电话,邮编,传真,增值税码,预付金额)SELECT @到采购单,日期,状态,供应商编码,采购员,发货途径,仓库,货币,信用条款,上次发票日期,联系人,电话,邮编,传真,增值税码,预付金额 FROM 采购单主表 WHERE 采购单号=@源采购单

SELECT @AS_REN='0'
END
END

SELECT *FROM 采购单主表
SELECT *FROM 采购订单明细表
-- EXEC PROC_拷贝采购单 1,6,'0'