proc_-i+

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

IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE NAME='PROC_收款' AND TYPE='P')
DROP PROC PROC_收款
GO
create  PROC PROC_收款
@客户编码 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_收款 C01   SELECT * FROM 收款主表