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 收款主表