Import linii dekretu jednostronnych (wersja 2.0.2)

Procedura CDN.my_ImpDM_Dekr łączyła stronę Wn z Ma przez inner join
po numerze linii, więc z dekretów zapisanych w liniach jednostronnych
(np. PKI: linia 1 tylko Wn, linia 2 tylko Ma) nie przechodziła żadna
linia albo tylko linie dwustronne. Teraz przechodzi każda linia;
brakująca strona to puste konto i KKSNumer = 0 w pozycji noty.

Procedura zwraca '' zamiast NULL, więc działa też ze starą wersją
programu.

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

DokumentyZrodlowe-DekretySkladowe.sql

@@ -1,4 +1,4 @@
-SET ANSI_NULLS ON
+SET ANSI_NULLS ON
 GO
 SET QUOTED_IDENTIFIER ON
 GO
@@ -7,6 +7,10 @@ IF EXISTS (SELECT * FROM sysobjects WHERE name = 'my_ImpDM_Dekr' AND user_name(u
 	DROP PROCEDURE [CDN].my_ImpDM_Dekr
 GO
 
+/*
+      2026.10.14 - KC: import linii jednostronnych (tylko Wn albo tylko Ma). Wcześniej Wn i Ma były łączone przez inner join
+                       po DT_GIDLp, więc z dekretu o kilku liniach przechodziły tylko linie mające obie strony.
+*/
 CREATE PROCEDURE [CDN].my_ImpDM_Dekr
 (
   @DZKNr int     -- 1 - DZK_DIGNumer
@@ -22,21 +26,23 @@ AS
   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),
+-- linia dekretu może mieć obie strony albo tylko jedną; brakująca strona = pusty numer konta
+SELECT Lp = ROW_NUMBER() OVER(ORDER BY DZK_Opis, DEL_Opis, isnull(deb.DT_Konto, ''), isnull(cre.DT_Konto, ''), DEL_GIDLp),
        DZK_Opis = left (DZK_Opis, 80),
        [Data] = DEL_DataWyst,
        DataDokumentu = DEL_DataOper,
-       Kwota = deb.DT_Kwota,
+       Kwota = coalesce(deb.DT_Kwota, cre.DT_Kwota),
        DokZr = DZK_DokumentZrodlowy,
-       KontoDebet = deb.DT_Konto,
+       KontoDebet = isnull(deb.DT_Konto, ''),
-       KontoCredit = cre.DT_Konto,
+       KontoCredit = isnull(cre.DT_Konto, ''),
        Identyfikator = left(DZK_Opis, 80),
        Opis = left(DEL_Opis, 80),
-       DataImportu = CDN.TsToDate(coalesce(deb.DT_DataCentrali, 0), 1)
+       DataImportu = CDN.TsToDate(coalesce(deb.DT_DataCentrali, cre.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
+		                left outer 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
+		                left outer join @CRE cre ON cre.DT_GIDNumer = DEL_GIDNumer and cre.DT_GIDLp = DEL_GIDLp
 where DZK_GIDNumer = @DZKNr
+  and (deb.DT_GIDNumer is not null or cre.DT_GIDNumer is not null)
 order by 1
 
 

ImportDokMag/ImportDM.vb

@@ -190,17 +190,22 @@ Partial Public Class MainFrm
       BsTbmy_ImpDM_Dekr.ResetBindings(False)
       BsTbmy_ImpDM_Dekr.MoveFirst()
       While i < BsTbmy_ImpDM_Dekr.Count
-        KontoWn = BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+        KontoWn = If(IsDBNull(BsTbmy_ImpDM_Dekr.Current("KontoDebet")), "", BsTbmy_ImpDM_Dekr.Current("KontoDebet"))
-        KontoMa = BsTbmy_ImpDM_Dekr.Current("KontoCredit")
+        KontoMa = If(IsDBNull(BsTbmy_ImpDM_Dekr.Current("KontoCredit")), "", BsTbmy_ImpDM_Dekr.Current("KontoCredit"))
         KKS_Wn = 0
         KKS_Ma = 0
         Rok = Year(DataDok)
-        sql = "select top(1) KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoWn & "'"
+        '  linia jednostronna - pusta strona zostaje z KKSNumer = 0
-        line = GetOneVal(sql, DstConn_str)
+        If KontoWn > "" Then
-        If line > "" Then KKS_Wn = CInt(line)
+          sql = "select top(1) KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoWn & "'"
-        sql = "select top(1) KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoMa & "'"
+          line = GetOneVal(sql, DstConn_str)
-        line = GetOneVal(sql, DstConn_str)
+          If line > "" Then KKS_Wn = CInt(line)
-        If line > "" Then KKS_Ma = CInt(line)
+        End If
+        If KontoMa > "" Then
+          sql = "select top(1) KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoMa & "'"
+          line = GetOneVal(sql, DstConn_str)
+          If line > "" Then KKS_Ma = CInt(line)
+        End If
         With NotaPozycjaInfo
           .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0)         'Kwota
           .NumerDokumentu = NrDok + Chr(0)      'Numer dokumentu

ImportDokMag/MainFrm.Designer.vb

@@ -633,7 +633,7 @@ Partial Class MainFrm
         Me.Name = "MainFrm"
         Me.Padding = New System.Windows.Forms.Padding(3)
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "Import dokumentów magazynowych 2.0.1 z 13.10.2026"
+        Me.Text = "Import dokumentów magazynowych 2.0.2 z 14.10.2026"
         Me.TlMainPanel.ResumeLayout(False)
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()