Dodaj pliki projektów.

2026-10-14 11:31:36 +02:00
1 parent 1d6a7b0924
commit da030eff7c
@@ -0,0 +1,62 @@
+SET ANSI_NULLS ON
+GO
+SET QUOTED_IDENTIFIER ON
+GO
+
+IF EXISTS (SELECT * FROM sysobjects WHERE name = 'my_ImpDM_Src' AND user_name(uid) = 'CDN')
+	DROP PROCEDURE [CDN].my_ImpDM_Src
+GO
+
+CREATE PROCEDURE [CDN].my_ImpDM_Src
+(
+  @SP int,        -- 1 - uwzglêdniaæ WZ, WZE i ich korekty oraz KK
+  @ZAK int,       -- 1 - uwzglêdniaæ PZ, PZI i ich korekty
+  @WEW int,       -- 1 - uwzglêdniaæ RW, PW i ich korekty
+  @RM int,        -- TrN_RokMiesiac
+  @Rok int,       -- Rok 
+  @Miesiac int    -- Miesi¹c
+)
+AS
+  SET NOCOUNT ON;
+
+  declare @TN table(Dokument varchar(255), RokMiesiac int, TrN_GIDTyp int, TrN_GIDNumer int, TrN_Zaksiegowano int, DataDok int, Magazyn varchar(30), Kontrahent varchar(50), Opis varchar(80), DokKoryg varchar(40))
+  insert into @TN
+    select CDN.NazwaObiektu(TrN_GIDTyp, TrN_GIDNumer, 0, 2) as Dokument, TrN_RokMiesiac as RokMiesiac, TrN_GIDTyp, TrN_GIDNumer, TrN_Zaksiegowano, TrN_Data3, isnull(MAG_Kod, ''), isnull(Kontrahent, ''), isnull(Opis, ''), dokkor
+    from (select TrN_GIDTyp, TrN_GIDNumer, TrN_RokMiesiac, TrN_Zaksiegowano, TrN_Data3, MAG_Kod, Kontrahent = Knt_Akronim, Opis = SUBSTRING(TnO_Opis, 1, 80),
+                 case when TrN_GIDTyp in (1624, 1625, 1497, 1498, 2009, 2013) or TrN_VatKorekta > 0 then cdn.NazwaObiektu(TrN_ZwrTyp, TrN_ZwrNumer, 0, 2) else '' end as dokkor
+          from CDN.TraNag with (nolock) left outer join CDN.Magazyny on TrN_MagDNumer = MAG_GIDNumer and TrN_MagDTyp = MAG_GIDTyp
+                                        left outer join CDN.KntKarty on TrN_KntNumer = Knt_GIDNumer and TrN_KntTyp = Knt_GIDTyp
+                                        left outer join CDN.TrNOpisy on TrN_GIDNumer = TnO_TrnNumer
+          where TrN_Zaksiegowano > 0 and TrN_RokMiesiac = @RM and 
+                ( case when @WEW > 0 then case TrN_GIDTyp when 1616 then 1 when 1624 then 1 when 1617 then 1 when 1625 then 1 else 0 end else 0 end > 0 or 
+                  case when @ZAK > 0 then case TrN_GIDTyp when 1489 then 1 when 1497 then 1 when 1490 then 1 when 1498 then 1 else 0 end else 0 end > 0 or 
+                  case when @SP  > 0 then case TrN_GIDTyp when 2001 then 1 when 2005 then 1 when 2009 then 1 when 2013 then 1 when 2003 then 1 else 0 end else 0 end > 0)) TTT
+  declare @DZV table(DZK_Opis varchar(200), DZK_Rok int, DZK_Miesiac int, DZK_Dzien int, DZK_DokumentZrodlowy varchar(60), DZK_GIDNumer int, DZK_Dziennik varchar(5), CT_Kwota decimal(21,2), DT_Kwota decimal(21,2), DT_DataCentrali int)
+  insert into @DZV
+    select DZK_Opis, DZK_Rok, DZK_Miesiac, DZK_Dzien, DZK_DokumentZrodlowy, DZK_GIDNumer, DZK_Dziennik, CT_Kwota, DT_Kwota, DT_DataCentrali = (select top(1) DT_DataCentrali from CDN.Dekrety  with (nolock) where DT_GIDNumer = DZK_GIDNumer)
+    from CDN.DziennikView  with (nolock)
+    where DZK_Rok = @Rok and DZK_Miesiac = @Miesiac
+
+  SELECT  Lp = ROW_NUMBER() OVER(ORDER BY Dokument), 
+          Dokument, 
+          DZK_Opis, 
+          RokMiesiac, 
+          DataWyst = CDN.TsToDate(CDN.Data(DZK_Rok, DZK_Miesiac, DZK_Dzien), 0), 
+          DataOper = CDN.TsToDate(DataDok, 0), 
+          DokZr = DZK_DokumentZrodlowy, 
+          Dekret = DZK_GIDNumer, 
+          DZK_Dziennik, 
+          SumaCT = CT_Kwota,
+          SumaDT = DT_Kwota,
+          DataImportu = CDN.TsToDate(coalesce(DT_DataCentrali, 0), 1),
+          Magazyn,
+          Kontrahent,
+          Opis,
+          DokKoryg
+  FROM  @TN inner join @DZV on substring(DZK_Opis, 1, len(Dokument)) = Dokument
+  order by 1
+
+  GO
+
+GRANT execute ON CDN.my_ImpDM_Src TO CDNRaport
+GO