KrzysztofandClaude Opus 5.5
2e2dc4eb8d
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>
47 lines
1.7 KiB
Transact-SQL
47 lines
1.7 KiB
Transact-SQL
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
|