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_发票与入库单匹配
AS
CREATE TABLE #AA
(采购单号 INT,
发票金额 NUMERIC,
增值税额 NUMERIC)
INSERT INTO #AA (采购单号,发票金额,增值税额 )  
SELECT 采购单号, SUM(发票金额),SUM(增值税额) 
 FROM 采购入库单明细表  GROUP BY 采购单号

DECLARE PP3  SCROLL CURSOR FOR 
    SELECT 采购单号,发票金额,增值税额 FROM #AA
    OPEN PP3
DECLARE @采购单号 INT, @发票金额 NUMERIC(18,6), @增值税额  NUMERIC(18,6)
    FETCH PP3 INTO @采购单号,@发票金额,@增值税额 
WHILE @@FETCH_STATUS=0
BEGIN
  UPDATE 供应商发票 SET 已分配材料金额=已分配材料金额+@发票金额,已分配增值税=已分配增值税+@增值税额 WHERE  采购单号=@采购单号
FETCH PP3 INTO @采购单号,@发票金额,@增值税额 
     END   
    CLOSE PP3
    DEALLOCATE PP3
-- EXEC PROC_发票与入库单匹配