Stan początkowy: XL-API 20251

Projekt ImportDokMag w wersji korzystającej z XL-API 20251
(cdn_api20251.net.dll), z połączeniem do bazy źródłowej przez
uwierzytelnianie Windows. Foldery .svn/ i Publikuj/ są poza repozytorium.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

DokumentyZrodlowe-DekretySkladowe.sql

@@ -0,0 +1,46 @@
+SET ANSI_NULLS ON
+GO
+SET QUOTED_IDENTIFIER ON
+GO
+
+IF EXISTS (SELECT * FROM sysobjects WHERE name = 'my_ImpDM_Dekr' AND user_name(uid) = 'CDN')
+	DROP PROCEDURE [CDN].my_ImpDM_Dekr
+GO
+
+CREATE PROCEDURE [CDN].my_ImpDM_Dekr
+(
+  @DZKNr int     -- 1 - DZK_DIGNumer
+)
+AS
+  SET NOCOUNT ON;
+
+  declare @DEB table(DT_GIDNumer int, DT_GIDLp int, DT_DC int, DT_Konto varchar(100), DT_Kwota decimal(21,2), DT_DataCentrali int)
+  declare @CRE table(DT_GIDNumer int, DT_GIDLp int, DT_DC int, DT_Konto varchar(100), DT_Kwota decimal(21,2), DT_DataCentrali int)
+
+  insert into @DEB
+    select DT_GIDNumer, DT_GIDLp, DT_DC, DT_Konto, DT_Kwota, DT_DataCentrali from CDN.Dekrety where DT_DC = 1 and DT_GIDNumer = @DZKNr
+  insert into @CRE
+    select DT_GIDNumer, DT_GIDLp, DT_DC, DT_Konto, DT_Kwota, DT_DataCentrali from CDN.Dekrety where DT_DC = 2 and DT_GIDNumer = @DZKNr
+
+SELECT Lp = ROW_NUMBER() OVER(ORDER BY DZK_Opis, DEL_Opis, deb.DT_Konto, cre.DT_Konto),
+       DZK_Opis = left (DZK_Opis, 80),
+       [Data] = DEL_DataWyst, 
+       DataDokumentu = DEL_DataOper, 
+       Kwota = deb.DT_Kwota,
+       DokZr = DZK_DokumentZrodlowy, 
+       KontoDebet = deb.DT_Konto,
+       KontoCredit = cre.DT_Konto,
+       Identyfikator = left(DZK_Opis, 80),
+       Opis = left(DEL_Opis, 80),
+       DataImportu = CDN.TsToDate(coalesce(deb.DT_DataCentrali, 0), 1)
+FROM   CDN.Dziennik inner join CDN.DziennikElem on DZK_GIDNumer = DEL_GIDNumer
+		                inner join @DEB deb ON deb.DT_GIDNumer = DEL_GIDNumer and deb.DT_GIDLp = DEL_GIDLp
+		                inner join @CRE cre ON cre.DT_GIDNumer = DEL_GIDNumer and cre.DT_GIDLp = DEL_GIDLp
+where DZK_GIDNumer = @DZKNr
+order by 1
+
+
+  GO
+
+GRANT execute ON CDN.my_ImpDM_Dekr TO CDNRaport
+GO