proc_支付应付款.sql

来自「SQL server 进销存软件数据库设计。大家积极下载」· SQL 代码 · 共 24 行

IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE NAME='PROC_支付应付款' AND TYPE='P')
DROP PROC PROC_支付应付款
GO
CREATE  PROC PROC_支付应付款
@凭证 INT,
@供应商编码 VARCHAR(10)
AS
DECLARE @凭证号 INT, @实付金额 NUMERIC 
DECLARE PP1  SCROLL CURSOR FOR 
    SELECT 供应商编码,凭证号,实付金额 FROM 付款明细表 
    OPEN PP1
    FETCH PP1 INTO @供应商编码,@凭证号,@实付金额
WHILE @@FETCH_STATUS=0
BEGIN
UPDATE 付款主表 SET 已分配金额=已分配金额+@实付金额 WHERE  供应商编码=@供应商编码
       FETCH PP1 INTO @供应商编码,@凭证号,@实付金额
     END   
    CLOSE PP1
DEALLOCATE PP1

--EXEC PROC_支付应付款 1,'V01'

SELECT *FROM 付款主表