Advertisement
Guest User

Untitled

a guest
Feb 20th, 2019
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
T-SQL 1.22 KB | None | 0 0
  1. ALTER FUNCTION [CDN].[Prf_sumafaktur](@WkZ2_GUID INT)
  2. returns @T TABLE(
  3.   sumakwota     MONEY,
  4.   sumapozostaje MONEY)
  5. AS
  6.   BEGIN
  7.       DECLARE @sumaKwota INT
  8.       DECLARE @sumaPozostaje INT
  9.       DECLARE kursor CURSOR FOR
  10.         SELECT wkz2_gidtyp,
  11.                wkz2_gidnumer,
  12.                wkz2_gidlp
  13.         FROM   cdn.wkrzaznaczenia2
  14.         WHERE  wkz2_guid = @WkZ2_GUID
  15.       DECLARE @WkZ2_GIDTyp   INT,
  16.               @WkZ2_GIDNumer INT,
  17.               @WkZ2_GIDLp    INT
  18.  
  19.       OPEN kursor
  20.  
  21.       FETCH next FROM kursor INTO @WkZ2_GIDTyp, @WkZ2_GIDNumer, @WkZ2_GIDLp
  22.  
  23.       WHILE @@FETCH_STATUS = 0
  24.         BEGIN
  25.             UPDATE @T
  26.             SET    sumakwota = sumakwota + CONVERT(MONEY, a.trp_kwota),
  27.                    sumapozostaje = sumapozostaje
  28.                                    + CONVERT(MONEY, a.trp_pozostaje)
  29.             FROM   cdn.traplat a
  30.             WHERE  a.trp_gidtyp = @WkZ2_GIDTyp
  31.                    AND a.trp_gidnumer = @WkZ2_GIDNumer
  32.                    AND a.trp_gidlp = @WkZ2_GIDLp
  33.         END
  34.  
  35.       FETCH next FROM kursor INTO @WkZ2_GIDTyp, @WkZ2_GIDNumer, @WkZ2_GIDLp
  36.  
  37.       CLOSE kursor
  38.  
  39.       DEALLOCATE kursor
  40.  
  41.       RETURN
  42.   END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement