diff --git a/.svn/entries b/.svn/entries
new file mode 100644
index 0000000..48082f7
--- /dev/null
+++ b/.svn/entries
@@ -0,0 +1 @@
+12
diff --git a/.svn/format b/.svn/format
new file mode 100644
index 0000000..48082f7
--- /dev/null
+++ b/.svn/format
@@ -0,0 +1 @@
+12
diff --git a/.svn/pristine/00/0005c9de3f784f916e618c0d7e372dda1ab06317.svn-base b/.svn/pristine/00/0005c9de3f784f916e618c0d7e372dda1ab06317.svn-base
new file mode 100644
index 0000000..940a693
--- /dev/null
+++ b/.svn/pristine/00/0005c9de3f784f916e618c0d7e372dda1ab06317.svn-base
@@ -0,0 +1,258 @@
+'Public Module ImportDM
+Partial Public Class MainFrm
+ Public GIDTyp, GIDFirma, GIDNumer, GIDLp As Integer 'aktualny dekret
+ Public DecimalGroupSep As String
+ Public DecimalSep As String
+
+
+ Function szukaj_sep(ByVal line As String, ByVal start As Integer, ByVal separator As String) As Integer
+ Dim i As Integer
+ szukaj_sep = -1
+ i = InStr(start, line, separator, CompareMethod.Text)
+ If i > start Then szukaj_sep = i
+ End Function
+
+ Function ToDate(Data As String) As Date
+ Dim dd As Date
+ Dim pos As Integer
+
+ Data = Replace(Data, "/", ".")
+ Data = Replace(Data, "-", ".")
+ pos = szukaj_sep(Data, 1, ".")
+ Dim TestAr() As String = Split(Data, ".", , CompareMethod.Text)
+ If pos = 5 Then 'rrrr.mm.dd
+ dd = DateSerial(TestAr(0), TestAr(1), TestAr(2))
+ Else 'dd.mm.rrrr
+ dd = DateSerial(TestAr(2), TestAr(1), TestAr(0))
+ End If
+ ToDate = dd
+ End Function
+
+ Function XL_Date(Data As Date) As Integer
+ XL_Date = 36161 + CInt(Data.ToOADate())
+ End Function
+
+ Function Liczba(bf As String) As String
+ Dim w As String
+
+ w = Replace(bf, ",", DecimalSep)
+ w = Replace(bf, ".", DecimalSep)
+ Liczba = w
+ End Function
+
+
+ Public Function ZamknijDekret(ByVal CzyZapisac As Boolean) As Boolean
+ Dim ZamknijDekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20182
+ Dim ret As Boolean = False
+
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLZamknijDekretZb(ZamknijDekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ ret = True
+ End If
+ If Not CzyZapisac Then
+ Dim KasujDekretInfo As New cdn_api.XLDekretInfo_20182
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLKasujDekretzb(KasujDekretInfo)
+ End If
+ Return (ret)
+ End Function
+
+ Public Function UtworzDekretZbiorczy(ByVal IdentKsieg As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal Opis As String, ByVal SumaCT As Decimal, ByVal SumaDT As Decimal) As Boolean
+ Dim DekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20182
+
+ listuj(CStr(Now) + "-> Dokument: " + IdentKsieg)
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ .Data = XL_Date(Data) 'Data dekretu
+ .DataDokumentu = XL_Date(DokData) 'Data dokumentu
+ .KwotaDebet = Str(SumaDT) + Chr(0) 'Kwota sumaryczna winien
+ .KwotaCredit = Str(SumaCT) + Chr(0) 'Kwota sumaryczna ma
+ .NumerDokumentu = DokZrodlowy + Chr(0) 'Numer dokumentu źródłowego
+ .Dziennik = My.Settings.Seria + Chr(0) 'Dziennik księgowań
+ .Bufor = "BUFOR" + Chr(0) 'Bufor księgowań (pusty = KG)
+ .Identyfikator = IdentKsieg 'identyfikator księgowy - numer dokument z Jastrzębia
+ .Opis = Opis + Chr(0) 'Opis dekretu
+ End With
+ XLDodajDekretZb(DekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ GIDFirma = DekretZbiorczyInfo.GIDFirma
+ GIDTyp = DekretZbiorczyInfo.GIDTyp
+ GIDNumer = DekretZbiorczyInfo.GIDNumer
+ GIDLp = DekretZbiorczyInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajSkladowy(ByVal DZKNumer As Integer) As Boolean
+ Dim DekretSkladowyInfo As New cdn_api.XLDekretInfo_20182
+ Dim ret As Boolean = True
+ Dim i As Integer
+ Dim line As String
+
+ i = 0
+ Try
+ Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ BsTbmy_ImpDM_Dekr.ResetBindings(False)
+ BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < BsTbmy_ImpDM_Dekr.Count
+ With DekretSkladowyInfo
+ .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota pomnożona przez 100
+ .NumerDokumentu = BsTbmy_ImpDM_Dekr.Current("DokZr") + Chr(0) 'Numer dokumentu
+ .KontoDebet = BsTbmy_ImpDM_Dekr.Current("KontoDebet") + Chr(0) 'Numer konta winien (WN)
+ .KontoCredit = BsTbmy_ImpDM_Dekr.Current("KontoCredit") + Chr(0) 'Numer konta ma (MA)
+ .Identyfikator = BsTbmy_ImpDM_Dekr.Current("Identyfikator")
+ .Opis = BsTbmy_ImpDM_Dekr.Current("Opis") + Chr(0) 'Opis dekretu
+ End With
+ line = " Dekret-> " & BsTbmy_ImpDM_Dekr.Current("DokZr")
+ line = line & " - Wn: " & BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+ line = line & ", Ma: " & BsTbmy_ImpDM_Dekr.Current("KontoCredit")
+ line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota"))
+ listuj(line)
+ XLDodajDekretSkl(DekretSkladowyInfo)
+ If wynikXL <> 0 Then ret = False
+ BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+
+
+ Public Function UtworzNote(ByVal NrDokumentu As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal tresc As String) As Boolean
+ Dim NotaInfo As New cdn_api.XLNotaInfo_20182
+
+ listuj(CStr(Now) + "-> Dokument: " + NrDokumentu)
+ With NotaInfo
+ .GIDTyp = 4145 'nota uproszczona
+ .DataWprow = XL_Date(Data) 'Data dekretu
+ .DataDok = XL_Date(DokData) 'Data dokumentu
+ .DataOper = XL_Date(DokData) 'Data dokumentu
+ .Seria = My.Settings.Seria + Chr(0)
+ .NumerDokumentu = NrDokumentu + Chr(0) 'Numer dokumentu źródłowego
+ .Tresc = tresc + Chr(0) 'treść noty
+ End With
+ XLDodajNoteMem(NotaInfo)
+ If wynikXL = 0 Then
+ GIDFirma = NotaInfo.GIDFirma
+ GIDTyp = NotaInfo.GIDTyp
+ GIDNumer = NotaInfo.GIDNumer
+ GIDLp = NotaInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajPozycjeNoty(ByVal DZKNumer As Integer, ByVal Rok As Integer, ByVal DataDok As Date, ByVal DataOper As Date, ByVal opis As String) As Boolean
+ Dim NotaPozycjaInfo As New cdn_api.XLPozycjaNotyInfo_20182
+ Dim ret As Boolean = True
+ Dim i, KKS_Wn, KKS_Ma As Integer
+ Dim sql, line, KontoWn, KontoMa As String
+
+ i = 0
+ Try
+ Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ BsTbmy_ImpDM_Dekr.ResetBindings(False)
+ BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < BsTbmy_ImpDM_Dekr.Count
+ KontoWn = BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+ KontoMa = BsTbmy_ImpDM_Dekr.Current("KontoCredit")
+ KKS_Wn = 0
+ KKS_Ma = 0
+ sql = "select KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoWn & "'"
+ line = GetOneVal(sql, SrcConn_str)
+ If line > "" Then KKS_Wn = CInt(line)
+ sql = "select KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoMa & "'"
+ line = GetOneVal(sql, SrcConn_str)
+ If line > "" Then KKS_Ma = CInt(line)
+ With NotaPozycjaInfo
+ .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota
+ .NumerDokumentu = BsTbmy_ImpDM_Dekr.Current("DokZr") + Chr(0) 'Numer dokumentu
+ ' .Identyfikator = BsTbmy_ImpDM_Dekr.Current("Identyfikator")
+ ' .Opis = BsTbmy_ImpDM_Dekr.Current("Opis") + Chr(0) 'Opis dekretu
+ .KKSNumerDT = KKS_Wn
+ .KKSNumerCT = KKS_Ma
+ .DataDok = XL_Date(DataDok)
+ .DataOper = XL_Date(DataOper)
+ .Opis = IIf(opis = "", BsTbmy_ImpDM_Dekr.Current("Opis"), opis) + Chr(0)
+ End With
+ line = " Dekret-> " & BsTbmy_ImpDM_Dekr.Current("DokZr")
+ line = line & " - Wn: " & KontoWn
+ line = line & ", Ma: " & KontoMa
+ line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota"))
+ listuj(line)
+ XLDodajPozycjeNotyMem(NotaPozycjaInfo)
+ If wynikXL <> 0 Then ret = False
+ BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+
+ Public Function ZamknijNote(ByVal CzyZapisac As Boolean) As Boolean
+ Dim NotaInfo As New cdn_api.XLNotaInfo_20182
+ Dim ret As Boolean = False
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLZamknijNoteMem(NotaInfo)
+ If wynikXL = 0 Then
+ ret = True
+ End If
+ If Not CzyZapisac Then
+ Dim KasNotaInfo As New cdn_api.XLNotaInfo_20182
+ With KasNotaInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLKasujNoteMem(KasNotaInfo)
+ End If
+ Return (ret)
+ End Function
+
+End Class
diff --git a/.svn/pristine/00/004214eea8122cfb94c7afdd2b30bd02ec72b166.svn-base b/.svn/pristine/00/004214eea8122cfb94c7afdd2b30bd02ec72b166.svn-base
new file mode 100644
index 0000000..34162a8
--- /dev/null
+++ b/.svn/pristine/00/004214eea8122cfb94c7afdd2b30bd02ec72b166.svn-base
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/04/04ab65da1bddec62a9271ca38ab6d71f490cdf18.svn-base b/.svn/pristine/04/04ab65da1bddec62a9271ca38ab6d71f490cdf18.svn-base
new file mode 100644
index 0000000..683224a
--- /dev/null
+++ b/.svn/pristine/04/04ab65da1bddec62a9271ca38ab6d71f490cdf18.svn-base
@@ -0,0 +1,13 @@
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/05/05f36e117b0458a3ee319f28d36b391db04d558b.svn-base b/.svn/pristine/05/05f36e117b0458a3ee319f28d36b391db04d558b.svn-base
new file mode 100644
index 0000000..fae3568
--- /dev/null
+++ b/.svn/pristine/05/05f36e117b0458a3ee319f28d36b391db04d558b.svn-base
@@ -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
diff --git a/.svn/pristine/06/06d15439757aa25ed6e03e9ffb36a277917372ed.svn-base b/.svn/pristine/06/06d15439757aa25ed6e03e9ffb36a277917372ed.svn-base
new file mode 100644
index 0000000..bf11f67
--- /dev/null
+++ b/.svn/pristine/06/06d15439757aa25ed6e03e9ffb36a277917372ed.svn-base
@@ -0,0 +1,465 @@
+ _
+Partial Class dlgKonfig
+ Inherits System.Windows.Forms.Form
+
+ 'Formularz przesłania metodę dispose, aby wyczyścić listę składników.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wymagane przez Projektanta formularzy systemu Windows
+ Private components As System.ComponentModel.IContainer
+
+ 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows
+ 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows.
+ 'Nie należy modyfikować za pomocą edytora kodu.
+ _
+ Private Sub InitializeComponent()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+ Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.edSerwerSrc = New System.Windows.Forms.TextBox()
+ Me.edBazaSrc = New System.Windows.Forms.TextBox()
+ Me.edUserSrc = New System.Windows.Forms.TextBox()
+ Me.edPassSrc = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label6 = New System.Windows.Forms.Label()
+ Me.Label7 = New System.Windows.Forms.Label()
+ Me.Label8 = New System.Windows.Forms.Label()
+ Me.Label9 = New System.Windows.Forms.Label()
+ Me.Label10 = New System.Windows.Forms.Label()
+ Me.edServerDst = New System.Windows.Forms.TextBox()
+ Me.edBazaDst = New System.Windows.Forms.TextBox()
+ Me.edUserDst = New System.Windows.Forms.TextBox()
+ Me.edPassDst = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label11 = New System.Windows.Forms.Label()
+ Me.Label12 = New System.Windows.Forms.Label()
+ Me.edHASPServer = New System.Windows.Forms.TextBox()
+ Me.edWorkingDir = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.TableLayoutPanel2.SuspendLayout()
+ Me.TableLayoutPanel3.SuspendLayout()
+ Me.TableLayoutPanel4.SuspendLayout()
+ Me.TableLayoutPanel5.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(288, 336)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(144, 33)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Location = New System.Drawing.Point(3, 5)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(66, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(75, 5)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(66, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Anuluj"
+ '
+ 'TableLayoutPanel2
+ '
+ Me.TableLayoutPanel2.ColumnCount = 3
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 135.0!))
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel4, 0, 1)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel1, 2, 3)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel3, 0, 0)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel5, 0, 2)
+ Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0)
+ Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+ Me.TableLayoutPanel2.RowCount = 4
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 59.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 38.0!))
+ Me.TableLayoutPanel2.Size = New System.Drawing.Size(435, 372)
+ Me.TableLayoutPanel2.TabIndex = 1
+ '
+ 'TableLayoutPanel3
+ '
+ Me.TableLayoutPanel3.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
+ Me.TableLayoutPanel3.ColumnCount = 4
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel3, 3)
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel3.Controls.Add(Me.Label1, 0, 0)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label2, 1, 1)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label3, 1, 2)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label4, 1, 3)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label5, 1, 4)
+ Me.TableLayoutPanel3.Controls.Add(Me.edSerwerSrc, 2, 1)
+ Me.TableLayoutPanel3.Controls.Add(Me.edBazaSrc, 2, 2)
+ Me.TableLayoutPanel3.Controls.Add(Me.edUserSrc, 2, 3)
+ Me.TableLayoutPanel3.Controls.Add(Me.edPassSrc, 2, 4)
+ Me.TableLayoutPanel3.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel3.Location = New System.Drawing.Point(3, 3)
+ Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
+ Me.TableLayoutPanel3.RowCount = 5
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel3.Size = New System.Drawing.Size(429, 131)
+ Me.TableLayoutPanel3.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.TableLayoutPanel3.SetColumnSpan(Me.Label1, 4)
+ Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label1.Location = New System.Drawing.Point(5, 2)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(419, 23)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Połączenie do bazy źródłowej"
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label2
+ '
+ Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label2.Location = New System.Drawing.Point(27, 27)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(183, 23)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Serwer SQL"
+ Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label3.Location = New System.Drawing.Point(27, 52)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(183, 23)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "baza danych"
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label4
+ '
+ Me.Label4.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label4.Location = New System.Drawing.Point(27, 77)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(183, 23)
+ Me.Label4.TabIndex = 3
+ Me.Label4.Text = "użytkownik"
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label5
+ '
+ Me.Label5.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label5.Location = New System.Drawing.Point(27, 102)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(183, 27)
+ Me.Label5.TabIndex = 4
+ Me.Label5.Text = "hasło"
+ Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'edSerwerSrc
+ '
+ Me.edSerwerSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edSerwerSrc.Location = New System.Drawing.Point(218, 30)
+ Me.edSerwerSrc.Name = "edSerwerSrc"
+ Me.edSerwerSrc.Size = New System.Drawing.Size(183, 20)
+ Me.edSerwerSrc.TabIndex = 5
+ '
+ 'edBazaSrc
+ '
+ Me.edBazaSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edBazaSrc.Location = New System.Drawing.Point(218, 55)
+ Me.edBazaSrc.Name = "edBazaSrc"
+ Me.edBazaSrc.Size = New System.Drawing.Size(183, 20)
+ Me.edBazaSrc.TabIndex = 6
+ '
+ 'edUserSrc
+ '
+ Me.edUserSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edUserSrc.Location = New System.Drawing.Point(218, 80)
+ Me.edUserSrc.Name = "edUserSrc"
+ Me.edUserSrc.Size = New System.Drawing.Size(183, 20)
+ Me.edUserSrc.TabIndex = 7
+ Me.edUserSrc.UseSystemPasswordChar = True
+ '
+ 'edPassSrc
+ '
+ Me.edPassSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edPassSrc.Location = New System.Drawing.Point(218, 105)
+ Me.edPassSrc.Name = "edPassSrc"
+ Me.edPassSrc.Size = New System.Drawing.Size(183, 20)
+ Me.edPassSrc.TabIndex = 8
+ Me.edPassSrc.UseSystemPasswordChar = True
+ '
+ 'TableLayoutPanel4
+ '
+ Me.TableLayoutPanel4.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
+ Me.TableLayoutPanel4.ColumnCount = 4
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel4, 3)
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel4.Controls.Add(Me.Label6, 0, 0)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label7, 1, 1)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label8, 1, 2)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label9, 1, 3)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label10, 1, 4)
+ Me.TableLayoutPanel4.Controls.Add(Me.edServerDst, 2, 1)
+ Me.TableLayoutPanel4.Controls.Add(Me.edBazaDst, 2, 2)
+ Me.TableLayoutPanel4.Controls.Add(Me.edUserDst, 2, 3)
+ Me.TableLayoutPanel4.Controls.Add(Me.edPassDst, 2, 4)
+ Me.TableLayoutPanel4.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel4.Location = New System.Drawing.Point(3, 140)
+ Me.TableLayoutPanel4.Name = "TableLayoutPanel4"
+ Me.TableLayoutPanel4.RowCount = 5
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel4.Size = New System.Drawing.Size(429, 131)
+ Me.TableLayoutPanel4.TabIndex = 2
+ '
+ 'Label6
+ '
+ Me.Label6.AutoSize = True
+ Me.TableLayoutPanel4.SetColumnSpan(Me.Label6, 4)
+ Me.Label6.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label6.Location = New System.Drawing.Point(5, 2)
+ Me.Label6.Name = "Label6"
+ Me.Label6.Size = New System.Drawing.Size(419, 23)
+ Me.Label6.TabIndex = 0
+ Me.Label6.Text = "Połączenie do bazy docelowej"
+ Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label7
+ '
+ Me.Label7.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label7.Location = New System.Drawing.Point(27, 27)
+ Me.Label7.Name = "Label7"
+ Me.Label7.Size = New System.Drawing.Size(183, 23)
+ Me.Label7.TabIndex = 1
+ Me.Label7.Text = "Serwer SQL"
+ Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label8
+ '
+ Me.Label8.AutoSize = True
+ Me.Label8.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label8.Location = New System.Drawing.Point(27, 52)
+ Me.Label8.Name = "Label8"
+ Me.Label8.Size = New System.Drawing.Size(183, 23)
+ Me.Label8.TabIndex = 2
+ Me.Label8.Text = "baza danych"
+ Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label9
+ '
+ Me.Label9.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label9.Location = New System.Drawing.Point(27, 77)
+ Me.Label9.Name = "Label9"
+ Me.Label9.Size = New System.Drawing.Size(183, 23)
+ Me.Label9.TabIndex = 3
+ Me.Label9.Text = "użytkownik"
+ Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label10
+ '
+ Me.Label10.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label10.Location = New System.Drawing.Point(27, 102)
+ Me.Label10.Name = "Label10"
+ Me.Label10.Size = New System.Drawing.Size(183, 27)
+ Me.Label10.TabIndex = 4
+ Me.Label10.Text = "hasło"
+ Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'edServerDst
+ '
+ Me.edServerDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edServerDst.Location = New System.Drawing.Point(218, 30)
+ Me.edServerDst.Name = "edServerDst"
+ Me.edServerDst.Size = New System.Drawing.Size(183, 20)
+ Me.edServerDst.TabIndex = 5
+ '
+ 'edBazaDst
+ '
+ Me.edBazaDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edBazaDst.Location = New System.Drawing.Point(218, 55)
+ Me.edBazaDst.Name = "edBazaDst"
+ Me.edBazaDst.Size = New System.Drawing.Size(183, 20)
+ Me.edBazaDst.TabIndex = 6
+ '
+ 'edUserDst
+ '
+ Me.edUserDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edUserDst.Location = New System.Drawing.Point(218, 80)
+ Me.edUserDst.Name = "edUserDst"
+ Me.edUserDst.Size = New System.Drawing.Size(183, 20)
+ Me.edUserDst.TabIndex = 7
+ Me.edUserDst.UseSystemPasswordChar = True
+ '
+ 'edPassDst
+ '
+ Me.edPassDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edPassDst.Location = New System.Drawing.Point(218, 105)
+ Me.edPassDst.Name = "edPassDst"
+ Me.edPassDst.Size = New System.Drawing.Size(183, 20)
+ Me.edPassDst.TabIndex = 8
+ Me.edPassDst.UseSystemPasswordChar = True
+ '
+ 'TableLayoutPanel5
+ '
+ Me.TableLayoutPanel5.ColumnCount = 2
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel5, 2)
+ Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 32.61649!))
+ Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.38351!))
+ Me.TableLayoutPanel5.Controls.Add(Me.Label11, 0, 0)
+ Me.TableLayoutPanel5.Controls.Add(Me.Label12, 0, 1)
+ Me.TableLayoutPanel5.Controls.Add(Me.edHASPServer, 1, 0)
+ Me.TableLayoutPanel5.Controls.Add(Me.edWorkingDir, 1, 1)
+ Me.TableLayoutPanel5.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel5.Location = New System.Drawing.Point(3, 277)
+ Me.TableLayoutPanel5.Name = "TableLayoutPanel5"
+ Me.TableLayoutPanel5.RowCount = 2
+ Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel5.Size = New System.Drawing.Size(279, 53)
+ Me.TableLayoutPanel5.TabIndex = 3
+ '
+ 'Label11
+ '
+ Me.Label11.AutoSize = True
+ Me.Label11.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label11.Location = New System.Drawing.Point(3, 0)
+ Me.Label11.Name = "Label11"
+ Me.Label11.Size = New System.Drawing.Size(84, 26)
+ Me.Label11.TabIndex = 0
+ Me.Label11.Text = "Serwer klucza"
+ Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ '
+ 'Label12
+ '
+ Me.Label12.AutoSize = True
+ Me.Label12.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label12.Location = New System.Drawing.Point(3, 26)
+ Me.Label12.Name = "Label12"
+ Me.Label12.Size = New System.Drawing.Size(84, 27)
+ Me.Label12.TabIndex = 1
+ Me.Label12.Text = "Katalog roboczy"
+ Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ '
+ 'edHASPServer
+ '
+ Me.edHASPServer.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edHASPServer.Location = New System.Drawing.Point(93, 3)
+ Me.edHASPServer.Name = "edHASPServer"
+ Me.edHASPServer.Size = New System.Drawing.Size(183, 20)
+ Me.edHASPServer.TabIndex = 2
+ Me.edHASPServer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'edWorkingDir
+ '
+ Me.edWorkingDir.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edWorkingDir.Location = New System.Drawing.Point(93, 29)
+ Me.edWorkingDir.Name = "edWorkingDir"
+ Me.edWorkingDir.Size = New System.Drawing.Size(183, 20)
+ Me.edWorkingDir.TabIndex = 3
+ Me.edWorkingDir.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'dlgKonfig
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 372)
+ Me.Controls.Add(Me.TableLayoutPanel2)
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgKonfig"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Konfiguracja programu"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TableLayoutPanel2.ResumeLayout(False)
+ Me.TableLayoutPanel3.ResumeLayout(False)
+ Me.TableLayoutPanel3.PerformLayout()
+ Me.TableLayoutPanel4.ResumeLayout(False)
+ Me.TableLayoutPanel4.PerformLayout()
+ Me.TableLayoutPanel5.ResumeLayout(False)
+ Me.TableLayoutPanel5.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+ Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
+ Friend WithEvents Label1 As Label
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label3 As Label
+ Friend WithEvents Label4 As Label
+ Friend WithEvents Label5 As Label
+ Friend WithEvents edSerwerSrc As TextBox
+ Friend WithEvents edBazaSrc As TextBox
+ Friend WithEvents edUserSrc As TextBox
+ Friend WithEvents edPassSrc As TextBox
+ Friend WithEvents TableLayoutPanel4 As TableLayoutPanel
+ Friend WithEvents Label6 As Label
+ Friend WithEvents Label7 As Label
+ Friend WithEvents Label8 As Label
+ Friend WithEvents Label9 As Label
+ Friend WithEvents Label10 As Label
+ Friend WithEvents edServerDst As TextBox
+ Friend WithEvents edBazaDst As TextBox
+ Friend WithEvents edUserDst As TextBox
+ Friend WithEvents edPassDst As TextBox
+ Friend WithEvents TableLayoutPanel5 As TableLayoutPanel
+ Friend WithEvents Label11 As Label
+ Friend WithEvents Label12 As Label
+ Friend WithEvents edHASPServer As TextBox
+ Friend WithEvents edWorkingDir As TextBox
+End Class
diff --git a/.svn/pristine/07/0735ca6be9872bb92b28f306c36feee4da1dabfc.svn-base b/.svn/pristine/07/0735ca6be9872bb92b28f306c36feee4da1dabfc.svn-base
new file mode 100644
index 0000000..b74c095
--- /dev/null
+++ b/.svn/pristine/07/0735ca6be9872bb92b28f306c36feee4da1dabfc.svn-base
@@ -0,0 +1,262 @@
+'Public Module ImportDM
+Partial Public Class MainFrm
+ Public GIDTyp, GIDFirma, GIDNumer, GIDLp As Integer 'aktualny dekret
+ Public DecimalGroupSep As String
+ Public DecimalSep As String
+
+ Function szukaj_sep(ByVal line As String, ByVal start As Integer, ByVal separator As String) As Integer
+ Dim i As Integer
+ szukaj_sep = -1
+ i = InStr(start, line, separator, CompareMethod.Text)
+ If i > start Then szukaj_sep = i
+ End Function
+
+ Function ToDate(Data As String) As Date
+ Dim dd As Date
+ Dim pos As Integer
+
+ Data = Replace(Data, "/", ".")
+ Data = Replace(Data, "-", ".")
+ pos = szukaj_sep(Data, 1, ".")
+ Dim TestAr() As String = Split(Data, ".", , CompareMethod.Text)
+ If pos = 5 Then 'rrrr.mm.dd
+ dd = DateSerial(TestAr(0), TestAr(1), TestAr(2))
+ Else 'dd.mm.rrrr
+ dd = DateSerial(TestAr(2), TestAr(1), TestAr(0))
+ End If
+ ToDate = dd
+ End Function
+
+ Function XL_Date(Data As Date) As Integer
+ XL_Date = 36161 + CInt(Data.ToOADate())
+ End Function
+
+ Function Liczba(bf As String) As String
+ Dim w As String
+
+ w = Replace(bf, ",", DecimalSep)
+ w = Replace(bf, ".", DecimalSep)
+ Liczba = w
+ End Function
+
+ Public Function ZamknijDekret(ByVal CzyZapisac As Boolean) As Boolean
+ Dim ZamknijDekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20193
+ Dim ret As Boolean = False
+
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLZamknijDekretZb(ZamknijDekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ ret = True
+ End If
+ If Not CzyZapisac Then
+ Dim KasujDekretInfo As New cdn_api.XLDekretInfo_20193
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLKasujDekretzb(KasujDekretInfo)
+ End If
+ Return (ret)
+ End Function
+
+ Public Function UtworzDekretZbiorczy(ByVal IdentKsieg As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal Opis As String, ByVal SumaCT As Decimal, ByVal SumaDT As Decimal) As Boolean
+ Dim DekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20193
+
+ listuj(CStr(Now) + "-> Dokument: " + IdentKsieg)
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ .Data = XL_Date(Data) 'Data dekretu
+ .DataDokumentu = XL_Date(DokData) 'Data dokumentu
+ .KwotaDebet = Str(SumaDT) + Chr(0) 'Kwota sumaryczna winien
+ .KwotaCredit = Str(SumaCT) + Chr(0) 'Kwota sumaryczna ma
+ .NumerDokumentu = DokZrodlowy + Chr(0) 'Numer dokumentu źródłowego
+ .Dziennik = My.Settings.Seria + Chr(0) 'Dziennik księgowań
+ .Bufor = "BUFOR" + Chr(0) 'Bufor księgowań (pusty = KG)
+ .Identyfikator = IdentKsieg 'identyfikator księgowy - numer dokument z Jastrzębia
+ .Opis = Opis + Chr(0) 'Opis dekretu
+ End With
+ XLDodajDekretZb(DekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ GIDFirma = DekretZbiorczyInfo.GIDFirma
+ GIDTyp = DekretZbiorczyInfo.GIDTyp
+ GIDNumer = DekretZbiorczyInfo.GIDNumer
+ GIDLp = DekretZbiorczyInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajSkladowy(ByVal DZKNumer As Integer) As Boolean
+ Dim DekretSkladowyInfo As New cdn_api.XLDekretInfo_20193
+ Dim ret As Boolean = True
+ Dim i As Integer
+ Dim line As String
+
+ i = 0
+ Try
+ Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ BsTbmy_ImpDM_Dekr.ResetBindings(False)
+ BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < BsTbmy_ImpDM_Dekr.Count
+ With DekretSkladowyInfo
+ .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota pomnożona przez 100
+ .NumerDokumentu = BsTbmy_ImpDM_Dekr.Current("DokZr") + Chr(0) 'Numer dokumentu
+ .KontoDebet = BsTbmy_ImpDM_Dekr.Current("KontoDebet") + Chr(0) 'Numer konta winien (WN)
+ .KontoCredit = BsTbmy_ImpDM_Dekr.Current("KontoCredit") + Chr(0) 'Numer konta ma (MA)
+ .Identyfikator = BsTbmy_ImpDM_Dekr.Current("Identyfikator")
+ .Opis = BsTbmy_ImpDM_Dekr.Current("Opis") + Chr(0) 'Opis dekretu
+ End With
+ line = " Dekret-> " & BsTbmy_ImpDM_Dekr.Current("DokZr")
+ line = line & " - Wn: " & BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+ line = line & ", Ma: " & BsTbmy_ImpDM_Dekr.Current("KontoCredit")
+ line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota"))
+ listuj(line)
+ XLDodajDekretSkl(DekretSkladowyInfo)
+ If wynikXL <> 0 Then ret = False
+ BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+
+ Public Function UtworzNote(ByVal NrDokumentu As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal tresc As String) As Boolean
+ Dim NotaInfo As New cdn_api.XLNotaInfo_20193
+
+ listuj(CStr(Now) + "-> Nota do: " + NrDokumentu)
+ If tresc <= " " Then tresc = "brak opisu"
+ With NotaInfo
+ .GIDTyp = 4145 'nota uproszczona
+ .KNPTyp = 0
+ .KNPNumer = 0
+ .KNPLp = 0
+ .DataWprow = XL_Date(Data) 'Data dekretu
+ .DataDok = XL_Date(DokData) 'Data dokumentu
+ .DataOper = XL_Date(DokData) 'Data dokumentu
+ .Seria = My.Settings.Seria + Chr(0)
+ .NumerDokumentu = NrDokumentu + Chr(0) 'Numer dokumentu źródłowego
+ .Tresc = tresc + Chr(0) 'treść noty
+ End With
+ XLDodajNoteMem(NotaInfo)
+ If wynikXL = 0 Then
+ GIDFirma = NotaInfo.GIDFirma
+ GIDTyp = NotaInfo.GIDTyp
+ GIDNumer = NotaInfo.GIDNumer
+ GIDLp = NotaInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajPozycjeNoty(ByVal DZKNumer As Integer, ByVal DataDok As Date, ByVal DataOper As Date, ByVal opis As String, ByVal NrDok As String) As Boolean
+ Dim NotaPozycjaInfo As New cdn_api.XLPozycjaNotyInfo_20193
+ Dim ret As Boolean = True
+ Dim i, KKS_Wn, KKS_Ma As Integer
+ Dim Rok As Integer
+ Dim sql, line, KontoWn, KontoMa As String
+
+ i = 0
+ If opis <= " " Then opis = "brak opisu"
+ Try
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ Tamy_ImpDM_Dekr.ClearBeforeFill = True
+ Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ BsTbmy_ImpDM_Dekr.ResetBindings(False)
+ BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < BsTbmy_ImpDM_Dekr.Count
+ KontoWn = BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+ KontoMa = 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 & "'"
+ line = GetOneVal(sql, DstConn_str)
+ If line > "" Then KKS_Wn = CInt(line)
+ 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)
+ With NotaPozycjaInfo
+ .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota
+ .NumerDokumentu = NrDok + Chr(0) 'Numer dokumentu
+ .KKSNumerDT = KKS_Wn
+ .KKSNumerCT = KKS_Ma
+ .Opis = opis + Chr(0) 'Opis z pozycji dekretu
+ .DataDok = XL_Date(DataDok)
+ .DataOper = XL_Date(DataDok)
+ End With
+ line = " pozycja -> " & BsTbmy_ImpDM_Dekr.Current("DokZr")
+ line = line & " - Wn: " & KontoWn
+ line = line & ", Ma: " & KontoMa
+ line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota"))
+ listuj(line)
+ XLDodajPozycjeNotyMem(NotaPozycjaInfo)
+ If wynikXL <> 0 Then ret = False
+ BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show("Dodaj pozycje: " & ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+
+ Public Function ZamknijNote(ByVal CzyZapisac As Boolean) As Boolean
+ Dim NotaInfo As New cdn_api.XLNotaInfo_20193
+ Dim ret As Boolean = False
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLZamknijNoteMem(NotaInfo)
+ If wynikXL = 0 Then
+ ret = True
+ End If
+ If Not CzyZapisac Then
+ Dim KasNotaInfo As New cdn_api.XLNotaInfo_20193
+ With KasNotaInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLKasujNoteMem(KasNotaInfo)
+ End If
+ Return (ret)
+ End Function
+
+End Class
diff --git a/.svn/pristine/09/0980de221a7debdb95d56d2577e92b44f99afe92.svn-base b/.svn/pristine/09/0980de221a7debdb95d56d2577e92b44f99afe92.svn-base
new file mode 100644
index 0000000..3af2973
--- /dev/null
+++ b/.svn/pristine/09/0980de221a7debdb95d56d2577e92b44f99afe92.svn-base
@@ -0,0 +1,238 @@
+
+
+
+
+ Debug
+ AnyCPU
+ {ACEDBC4B-04AD-423D-B0D7-B930B9998493}
+ WinExe
+ ImportDokMag.My.MyApplication
+ ImportDokMag
+ ImportDokMag
+ 512
+ WindowsForms
+ v4.0
+ true
+ true
+ false
+
+ D:\Dokumenty\Praca\myCONSULT\Gotec\ImportDokMag\Publikuj\
+ true
+ Disk
+ false
+ Foreground
+ 7
+ Days
+ false
+ false
+ false
+ ImportDokMag
+ myCONSULT Sp. z o. o.
+ ImportDokMag
+ 0
+ 1.1.0.0
+ false
+ true
+ true
+ true
+
+
+ AnyCPU
+ true
+ full
+ true
+ true
+ bin\Debug\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+
+
+ AnyCPU
+ pdbonly
+ false
+ true
+ true
+ bin\Release\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+
+
+ On
+
+
+ Binary
+
+
+ Off
+
+
+ On
+
+
+ true
+ true
+ true
+ bin\x86\Debug\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ full
+ x86
+ MinimumRecommendedRules.ruleset
+ true
+
+
+ true
+ bin\x86\Release\
+ ImportDokMag.xml
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ pdbonly
+ x86
+ MinimumRecommendedRules.ruleset
+ true
+
+
+ 7632AB20CCBEDCF1AC243A2A06A675C12FFD4C4D
+
+
+ ImportDokMag_TemporaryKey.pfx
+
+
+ true
+
+
+ true
+
+
+ cab.ico
+
+
+ true
+
+
+ ImportDokMag_TemporaryKey.pfx
+
+
+
+ C:\xl\comarch xl\cdn_api20182.net.dll
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ dlgKonfig.vb
+
+
+ Form
+
+
+ True
+ True
+ DsMain.xsd
+
+
+ DsMain.xsd
+
+
+
+ Form
+
+
+ MainFrm.vb
+ Form
+
+
+ Form
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+
+
+ dlgKonfig.vb
+
+
+ MainFrm.vb
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+
+
+ DsMain.xsd
+
+
+ MSDataSetGenerator
+ DsMain.Designer.vb
+ Designer
+
+
+ DsMain.xsd
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+
+
+
+
+ False
+ Microsoft .NET Framework 4.5.2 %28x86 i x64%29
+ true
+
+
+ False
+ .NET Framework 3.5 SP1
+ false
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/09/09e6b5dab6e1ac6443b6645a13a98a04a372a824.svn-base b/.svn/pristine/09/09e6b5dab6e1ac6443b6645a13a98a04a372a824.svn-base
new file mode 100644
index 0000000..f8870d5
--- /dev/null
+++ b/.svn/pristine/09/09e6b5dab6e1ac6443b6645a13a98a04a372a824.svn-base
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Ogólne informacje o zestawie są kontrolowane poprzez następujący
+' zestaw atrybutów. Zmień wartości tych atrybutów, aby zmodyfikować informacje
+' powiązane z zestawem.
+
+' Sprawdź wartości atrybutów zestawu
+
+
+
+
+
+
+
+
+
+
+'Następujący identyfikator GUID jest identyfikatorem biblioteki typów w przypadku udostępnienia tego projektu w modelu COM
+
+
+' Informacje o wersji zestawu zawierają następujące cztery wartości:
+'
+' Wersja główna
+' Wersja pomocnicza
+' Numer kompilacji
+' Rewizja
+'
+' Możesz określić wszystkie wartości lub użyć domyślnych numerów kompilacji i poprawki
+' przy użyciu symbolu „*”, tak jak pokazano poniżej:
+'
+
+
+
diff --git a/.svn/pristine/0c/0cf038f638537acd048a544bdf3e6cc2d9fa1aac.svn-base b/.svn/pristine/0c/0cf038f638537acd048a544bdf3e6cc2d9fa1aac.svn-base
new file mode 100644
index 0000000..984dc4f
--- /dev/null
+++ b/.svn/pristine/0c/0cf038f638537acd048a544bdf3e6cc2d9fa1aac.svn-base
@@ -0,0 +1,238 @@
+
+
+
+
+ Debug
+ AnyCPU
+ {ACEDBC4B-04AD-423D-B0D7-B930B9998493}
+ WinExe
+ ImportDokMag.My.MyApplication
+ ImportDokMag
+ ImportDokMag
+ 512
+ WindowsForms
+ v4.0
+ true
+ true
+ false
+
+ C:\ImpDokMag\
+ true
+ Disk
+ false
+ Foreground
+ 7
+ Days
+ false
+ false
+ false
+ ImportDokMag
+ myCONSULT Sp. z o. o.
+ ImportDokMag
+ 0
+ 1.3.0.0
+ false
+ true
+ true
+ true
+
+
+ AnyCPU
+ true
+ full
+ true
+ true
+ bin\Debug\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+
+
+ AnyCPU
+ pdbonly
+ false
+ true
+ true
+ bin\Release\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+
+
+ On
+
+
+ Binary
+
+
+ Off
+
+
+ On
+
+
+ true
+ true
+ true
+ bin\x86\Debug\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ full
+ x86
+ MinimumRecommendedRules.ruleset
+ true
+
+
+ true
+ bin\x86\Release\
+ ImportDokMag.xml
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ pdbonly
+ x86
+ MinimumRecommendedRules.ruleset
+ true
+
+
+ 7632AB20CCBEDCF1AC243A2A06A675C12FFD4C4D
+
+
+ ImportDokMag_TemporaryKey.pfx
+
+
+ true
+
+
+ true
+
+
+ cab.ico
+
+
+ true
+
+
+ ImportDokMag_TemporaryKey.pfx
+
+
+
+ C:\xl\comarch xl\cdn_api20182.net.dll
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ dlgKonfig.vb
+
+
+ Form
+
+
+ True
+ True
+ DsMain.xsd
+
+
+ DsMain.xsd
+
+
+
+ Form
+
+
+ MainFrm.vb
+ Form
+
+
+ Form
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+
+
+ dlgKonfig.vb
+
+
+ MainFrm.vb
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+
+
+ DsMain.xsd
+
+
+ MSDataSetGenerator
+ DsMain.Designer.vb
+ Designer
+
+
+ DsMain.xsd
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+
+
+
+
+ False
+ Microsoft .NET Framework 4.5.2 %28x86 i x64%29
+ true
+
+
+ False
+ .NET Framework 3.5 SP1
+ false
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/0d/0dd5f3053e131df903da25afd44b48a38adebfbd.svn-base b/.svn/pristine/0d/0dd5f3053e131df903da25afd44b48a38adebfbd.svn-base
new file mode 100644
index 0000000..c9cab51
--- /dev/null
+++ b/.svn/pristine/0d/0dd5f3053e131df903da25afd44b48a38adebfbd.svn-base
@@ -0,0 +1,980 @@
+Public Module FunkcjeXL
+ Const API_VERSION = 20193
+
+ Public Zalogowany As Boolean
+ Public wynikXL As Integer
+ Public Wersja As Integer
+ Dim Ilosc_Bledow As Integer
+ Dim Sesja As Integer
+ Dim IDDokumentu As Integer
+ Public NotaID As Integer
+ Dim Flagi As Integer
+ Dim Komunikat As String
+
+
+ '-------------------------------------------------------
+ ' Funkcja XLLogin - W przypadku podania poprawnych parametrów poprzez strukturę XLLoginInfo _
+ ' logowanie następuję automatycznie. W przeciwnym przypadku otwiera się okno _
+ ' logowania do systemu CDN XL, w którym należy podać poprawne dane. _
+ ' Poprzez parametr sesja zwracany jest numer przydzielonej dla programu sesji. _
+ ' Numerem tym należy się posługiwać przy wywoływaniu następnych funkcji API.
+
+ Public Function Zaloguj(ByVal Baza As String, ByVal CDNop As String, ByVal Haslo As String, ByVal SerwerKlucza As String) As Boolean
+ Dim LoginInfo As New cdn_api.XLLoginInfo_20193
+ Dim sesja_temp As Int32
+
+ If Zalogowany And Sesja > 0 Then
+ wynikXL = 0
+ Ilosc_Bledow = 0
+ Zaloguj = Zalogowany
+ Exit Function
+ End If
+ Try
+ ' listuj(" Logowanie do ERP XL - proszę czekać...", 1)
+ Zalogowany = False
+ Ilosc_Bledow = 0
+ ' AttachThread()
+ Wersja = API_VERSION
+ LoginInfo.Wersja = Wersja ' numer wersji API
+ LoginInfo.UtworzWlasnaSesje = 0
+ LoginInfo.Winieta = -1
+ LoginInfo.TrybWsadowy = 1
+ LoginInfo.TrybNaprawy = 1
+ LoginInfo.ProgramID = "Import dok. magazynowych z Jastrzębia" ' nazwa programu korzystającego z XL-API (pojawia się na liście sesji)
+ LoginInfo.Baza = Baza & Chr(0) ' nazwa bazy danych do której ma nastąpić login pobierana
+ ' z klucza HKEY_CURRENT_USER oraz HKEY_LOCAL_MACHINE (nazwa rejestracji w managerze baz an tym komputerze, nie rzeczywista nazwa bazy !!)
+ ' LoginInfo.OpeIdent = CDNop & Chr(0) ' identyfikator CDNOpera logującego się
+ ' LoginInfo.OpeHaslo = Haslo & Chr(0) ' hasło CDNOpera logującego się
+ LoginInfo.PlikLog = ""
+ LoginInfo.SerwerKlucza = SerwerKlucza
+ Sesja = 0
+ sesja_temp = 0
+ wynikXL = 0
+ wynikXL = cdn_api.cdn_api.XLLogin(LoginInfo, sesja_temp)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLLogin"
+ End Try
+ If wynikXL = 0 Then
+ Sesja = sesja_temp
+ Ilosc_Bledow = 0
+ Zalogowany = True
+ Else
+ Komunikat = "Nieokreślony błąd logowania do XL = " & CStr(wynikXL)
+ Select Case wynikXL
+ Case -9
+ Komunikat = "XLLogin: operator nie jest podpięty do żadnego centrum"
+ Case -8
+ Komunikat = "XLLogin: Nie podano nazwy bazy danych"
+ Case -7
+ Komunikat = "XLLogin: Baza niezarejestrowana w systemie"
+ Case -6
+ Komunikat = "XLLogin: Nie podano hasła lub brak operatora"
+ Case -5
+ Komunikat = "XLLogin: nieprawidłowe hasło"
+ Case -4
+ Komunikat = "XLLogin: konto operatora zablokowane"
+ Case -3
+ Komunikat = "XLLogin: nie podano nazwy programu (pole ProgramID)"
+ Case -2
+ Komunikat = "XLLogin: błąd otwarcia pliku tekstowego, do którego mają być zapisywane komunikaty. Nie znaleziono ścieżki lub nazwa pliku jest nieprawidłowa."
+ Case -1
+ Komunikat = "XLLogin: podano niepoprawną wersję API"
+ Case 1
+ Komunikat = "XLLogin: inicjalizacja nie powiodła się"
+ Case 2
+ Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie (z tego samego komputera i na tego samego operatora)"
+ Case 3
+ Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie z innego komputera i na tego samego operatora, ale operatora nie posiada prawa do wielokrotnego logowania"
+ Case 5
+ Komunikat = "XLLogin: występuje przy pracy terminalowej w przypadku, gdy operatora nie ma prawa do wielokrotnego logowania i na pytanie czy usunąć istniejące sesje terminalowe wybrano odpowiedź ‘Nie’"
+ Case 61
+ Komunikat = "XLLogin: błąd zakładania nowej sesji"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Zalogowany = False
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ End If
+ System.Threading.Thread.Sleep(200)
+ If Zalogowany Then MainFrm.listuj("Zalogowano")
+ Zaloguj = Zalogowany
+ End Function
+
+
+ '--------------------------------------------------------------------------------------------------
+ 'Funkcja XLPolaczenie - podaje ConnectionStgring do bazy danych
+ ' Funkcja XLPolaczenie - Funkcja umozliwia identyfikację połączenia do bazy
+ ' zwraca nazwę serwera, bazy oraz connect string dla raportowania
+ '--------------------------------------------------------------------------------------------------
+ Public Function Polaczenie() As String
+ Dim PolaczenieInfo As New cdn_api.XLPolaczenieInfo_20193 With
+ {
+ .Wersja = Wersja, ' numer wersji API (20193) ustawiony w funkcji Zaloguj()
+ .NTMode = 0,
+ .Serwer = "" + Chr(0),
+ .Baza = "" + Chr(0),
+ .ConnectString = "" + Chr(0)
+ }
+ wynikXL = 0
+ wynikXL = cdn_api.cdn_api.XLPolaczenie(PolaczenieInfo)
+ If wynikXL >= 0 Then
+ Polaczenie = PolaczenieInfo.ConnectString
+ ' Serwer = PolaczenieInfo.Serwer
+ Else
+ Polaczenie = ""
+ Komunikat = "XLPolaczenie: nieaktywna sesja API lub nieprawidłowy numer wersji"
+ End If
+ End Function
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLLogout - Funkcja ta służy do zamykania sesji otwartej funkcją XLLogin. _
+ ' Parametr sesja określa numer sesji, którą chcemy zamknąć _
+ ' (numer przydzielany funkcją XLLogin).
+ '--------------------------------------------------------------------------------------------------
+ Public Sub Wyloguj()
+ Dim LogoutInfo As New cdn_api.XLLogoutInfo_20193
+ Dim wynik As Integer
+
+ If Zalogowany Or Sesja > 0 Then
+ LogoutInfo.Wersja = Wersja
+ LogoutInfo.TrybUsuwaniaDok = 0
+ If Sesja > 0 Then
+ Try
+ cdn_api.cdn_api.XLLogoutEx(LogoutInfo, Sesja)
+ Catch ex As Exception
+ wynik = -200
+ Komunikat = "Nie rozpoznany błąd API XLLogout"
+ End Try
+ End If
+ Zalogowany = False
+ Sesja = 0
+ End If
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLNowyDokument - Jest to funkcja, która zapoczątkowuje wystawianie dokumentu. _
+ ' Nadaje ona nowy numer nagłówka, pobiera kontrahenta, _
+ ' wypełnia rekord standardowymi ustawieniami i ustawia go w stan zajętości. _
+ ' Wymagane jest użycie w komplecie co najmniej funkcji XLZamknijDokument _
+ ' w celu zakończenia dokumentu i zwolnienia jego zajętości (bez wywołania _
+ ' tej funkcji wewnętrzna kontrola XL'a spowoduje wycofanie wszelkich zapisów _
+ ' do tego dokumentu).
+ '--------------------------------------------------------------------------------------------------
+ Public Sub UtworzNowyDok(DokNagInfo As cdn_api.XLDokumentNagInfo_20193)
+ Dim w, i As Integer
+
+ wynikXL = 0
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLNowyDokument(Sesja, IDDokumentu, DokNagInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLNowyDokument"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ Flagi = DokNagInfo.Flagi
+ w = OpisBledu(1, wynikXL, Flagi)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajPozycje - Funkcja ta jest odpowiedzialna za dodawanie do dokumentu elementów _
+ ' oraz związanych z nim subelementów.
+ '--------------------------------------------------------------------------------------------------
+ Public Sub DodajPozycjeDok(DokEleInfo As cdn_api.XLDokumentElemInfo_20193)
+ Dim w, i As Integer
+
+ wynikXL = 0
+ If IDDokumentu > 0 Then
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajPozycje(IDDokumentu, DokEleInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajPozycje"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ End If
+ Flagi = DokEleInfo.Flagi
+ If wynikXL <> 17 Then w = OpisBledu(2, wynikXL, Flagi) 'bez drukowania kmunikatu, że zabrakło towaru
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijDokument - Funkcja odpowiada za zakończenie pracy z dokumentem.
+ '--------------------------------------------------------------------------------------------------
+
+ Public Sub ZamknijDokument(ByVal Tryb As Integer, Magazynowe As Integer)
+ Dim ZamkniecieDokumentuInfo As New cdn_api.XLZamkniecieDokumentuInfo_20193
+ Dim w, i As Integer
+
+ Try
+ With ZamkniecieDokumentuInfo
+ .Wersja = Wersja
+ .Tryb = Tryb '-10, 0 - zatwierdz dokument, 1 - do bufora, -3 - zamknięcie otwartego dok., -1 - skasowanie dokumentu, -2 - anulowanie
+ .Magazynowe = Magazynowe 'generowanie dokumentów WM i MMP: 0-wg. konfig., 1-nie generuj, 2-gen. do bufora, 3-gen. zatwierdzone
+ 'dla MMW: 0x,1x,2x - WM (bez, bufor, zatw.); x1,x2,x3 - MMP (bez, bufor, zatw.)
+ End With
+ wynikXL = 0
+ If IDDokumentu > 0 Then
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijDokument(IDDokumentu, ZamkniecieDokumentuInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijDokument"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ End If
+ w = OpisBledu(7, wynikXL, 0)
+ Catch ex As Exception
+ wynikXL = -201
+ Komunikat = "Błąd w dostępie do danych w API XLZamknijDokument"
+ End Try
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLPodajKomunikat - Funkcja rozwiązuje podane numery bledów i ostrzeżeń na stringowy
+ ' komunikat, rodzaje trybów: 0-tryb cichy, 1-tylko bledy, 2-bledy i ostrzeżenia
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function OpisBledu(ByVal Funkcja As Integer, ByVal wynik_lokalny As Integer, ByVal Flagi As Integer) As Integer
+ Dim KomunikatInfo As New cdn_api.XLKomunikatInfo_20193
+ Dim Komunikat As String
+
+ OpisBledu = 0
+ If wynik_lokalny < -199 Then
+ MainFrm.listuj("Nie rozpoznany błąd API w funkcji " + CStr(Funkcja))
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja < 900 Then
+ KomunikatInfo.Wersja = Wersja
+ KomunikatInfo.Funkcja = Funkcja
+ KomunikatInfo.Blad = wynik_lokalny
+ KomunikatInfo.Ostrzezenie = Flagi
+ KomunikatInfo.Tryb = 0
+ Try
+ cdn_api.cdn_api.XLOpisBledu(KomunikatInfo)
+ Catch ex As Exception
+ wynik_lokalny = -200
+ Komunikat = "Nie rozpoznany błąd API XLOpisBledu"
+ End Try
+ Komunikat = "!------! UWAGA: " + KomunikatInfo.OpisBledu
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 999 Then
+ Komunikat = "XLOpisBledu: Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case 2
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór z listy, a brak ustawienia trybu selekcji"
+ Case 3
+ Komunikat = "XLOpisBledu: UWAGA: błąd otwarcia tabeli"
+ Case 4
+ Komunikat = "XLOpisBledu: UWAGA: nie znaleziono rekordu o podanym GIDzie"
+ Case 5
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór elementu z listy a brak procedury listy dla takiego typu dokumentu"
+ Case 6
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór grupy z listy, a brak procedury listy dla takiego typu dokumentu"
+ Case 7
+ Komunikat = "XLOpisBledu: UWAGA: ustalono podgląd elementów listy, a brak procedury listy dla takiego typu dokumentu"
+ Case 8
+ Komunikat = "XLOpisBledu: UWAGA: nieobsługiwany GIDTyp"
+ Case Else
+ Komunikat = "XLOpisBledu: UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 998 Then 'Generuj EAN
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 1
+ Komunikat = "UWAGA: Niepoprawny zakres"
+ Case 2
+ Komunikat = "UWAGA: Wystąpił niezidentyfikowany błąd, kod EAN nie został wygenerowany"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 997 Then 'DodajAtrybut do obiektu
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: brak sesji"
+ Case 2
+ Komunikat = "UWAGA: błąd przy zakładaniu logout"
+ Case 3
+ Komunikat = "UWAGA: nie znaleziono obiektu"
+ Case 4
+ Komunikat = "UWAGA: nie znalezniono klasy atrybutu"
+ Case 5
+ Komunikat = "UWAGA: klasa nieprzypisana do definicji obiektu"
+ Case 6
+ Komunikat = "UWAGA: atrybut juz istnieje w kolejce"
+ Case 7
+ Komunikat = "UWAGA: błąd ADO Connection"
+ Case 8
+ Komunikat = "UWAGA: błąd ADO"
+ Case 9
+ Komunikat = "UWAGA: brak zdefiniowanego obiektu"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 996 Then 'Dodaj Partię
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 2
+ Komunikat = "UWAGA: Wystąpił błąd przy próbie zablokowania tabel dla wykonania transakcji"
+ Case 11
+ Komunikat = "UWAGA: nie znaleziono towaru"
+ Case 12
+ Komunikat = "UWAGA: Nie podano towaru"
+ Case 106
+ Komunikat = "UWAGA: Wystąpił błąd DeadLock"
+ Case 160
+ Komunikat = "UWAGA: Nie znaleziono podanej dostawy"
+ Case 178
+ Komunikat = "UWAGA: Partia o takich parametrach nie istnieje"
+ Case 210
+ Komunikat = "UWAGA: Nie znaleziono podanego identyfikatora partii"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 995 Then 'Dokumenty związane
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 1
+ Komunikat = "UWAGA: taki dokument jest już na liście (błąd zwracany przy akcji dodawania)"
+ Case 30
+ Komunikat = "UWAGA: nie znaleziono dokumentu na liście"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 994 Then 'Dodaj Dekret zbiorczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 1031
+ Komunikat = "BŁĄD: Uruchomienie tej operacji nie jest możliwe ze względu na brak dostępu do modułu, problem z połączeniem lub niezgodność danych w kluczu ze stanem faktycznym."
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8005
+ Komunikat = "BŁĄD: Bieżący okres obrachunkowy jest zamknięty do x.
+ Próbujesz księgować lub kasować księgowanie z datą y."
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 993 Then 'Dodaj dekret składowy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8003
+ Komunikat = "BŁĄD: Konto posiada analitykę"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 992 Then 'Zamknij dekret zbiorczy, sumuj dekret zbiorczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 990 Then 'Dodaj dekret pojedynczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8003
+ Komunikat = "BŁĄD: Konto posiada analitykę"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 989 Then 'Dodaj uproszczoną notę memoriałową
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -3
+ Komunikat = "BŁĄD: brak GIDTypu noty"
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 1
+ Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka;"
+ Case 2
+ Komunikat = "BŁĄD: błędny numer noty (XLNotaInfo.Numer już istnieje w ramach serii/miesiąca);"
+ Case 3
+ Komunikat = "BŁĄD: brak definicji noty"
+ Case 4
+ Komunikat = "BŁĄD: brak podmiotu (kontrahenta lub pracownika);"
+ Case 5
+ Komunikat = "BŁĄD: Nie znaleziono podanej waluty"
+ Case 6
+ Komunikat = "BŁĄD: brak płatnika"
+ Case 7
+ Komunikat = "BŁĄD: nota nie posiada treści"
+ Case 8
+ Komunikat = "BŁĄD: brak praw do używania tego modułu"
+ Case 9
+ Komunikat = "BŁĄD: seria nie istnieje w systemie"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań lub konto nie znajduje się w bieżącym okresie"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto lub oba konta puste"
+ Case 8047
+ Komunikat = "BŁĄD: po obu stronach pozycji noty konta rozrachunkowe"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 988 Then 'Dodaj pozycję noty
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 3
+ Komunikat = "BŁĄD: brak definicji noty"
+ Case 5
+ Komunikat = "BŁĄD: brak noty o podanym ID"
+ Case 7
+ Komunikat = "BŁĄD: pozycja noty nie posiada opisu"
+ Case 8
+ Komunikat = "BŁĄD: brak symbolu kwoty"
+ Case 9
+ Komunikat = "BŁĄD: błąd dodawania pozycji noty"
+ Case 10
+ Komunikat = "BŁĄD: błąd synchronizacji konta walutowego"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań lub konto nie znajduje się w bieżącym okresie"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto lub oba konta puste"
+ Case 8047
+ Komunikat = "BŁĄD: z uwagi na płatności, wygenerowanie noty nie jest możliwe. W ramach zapisu wprowadzono dekrety dwustronne, zawierające po obydwu stronach konta rozrachunkowe"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 987 Then 'Zamknij notę
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 1
+ Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka"
+ Case 2
+ Komunikat = "BŁĄD: błędny numer noty (XLNotaInfo.Numer już istnieje w ramach serii/miesiąca);"
+ Case 3
+ Komunikat = "BŁĄD: brak definicji noty"
+ Case 5
+ Komunikat = "BŁĄD: brak noty o podanym ID"
+ Case 6
+ Komunikat = "BŁĄD: nota niezgodna z definicją (przychodowa/rozchodowa, podmiot);"
+ Case 7
+ Komunikat = "BŁĄD: nie udało się wygenerowanie płatności;"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 986 Then 'kasuj notę
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 1
+ Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka"
+ Case 5
+ Komunikat = "BŁĄD: brak noty o podanym ID"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ End If
+ End Function
+
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLPobierzNumerDokumentu rozwiązuje GID na sformatowany numer dokumentu
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function NumerDokumentu(ByVal GIDTyp As Integer, ByVal GIDFirma As Integer, ByVal GIDNumer As Integer, ByVal GIDLp As Integer) As String
+ Dim NumerDokumentuInfo As New cdn_api.XLNumerDokumentuInfo_20193
+ Dim nrd As String
+
+ NumerDokumentuInfo.Wersja = Wersja
+ NumerDokumentuInfo.GIDTyp = GIDTyp
+ NumerDokumentuInfo.GIDFirma = GIDFirma
+ NumerDokumentuInfo.GIDNumer = GIDNumer
+ NumerDokumentuInfo.GIDLp = GIDLp
+
+ Try
+ wynikXL = cdn_api.cdn_api.XLPobierzNumerDokumentu(NumerDokumentuInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLPobierzNumerDokumentu"
+ End Try
+ NumerDokumentu = ""
+ nrd = ""
+ If wynikXL = 0 Then
+ nrd = NumerDokumentuInfo.NumerDokumentu
+ Else
+ If wynikXL = -1 Then
+ Komunikat = "XLPobierzNumerDokumentu: nieaktywna sesja API lub nieprawidłowy numer wersji"
+ ElseIf wynikXL = 1 Then
+ Komunikat = "XLPobierzNumerDokumentu: nie znaleziono dokumentu"
+ ElseIf wynikXL = 2 Then
+ Komunikat = "XLPobierzNumerDokumentu: podano nieobsługiwany GIDTyp"
+ End If
+ MainFrm.listuj(Komunikat)
+ End If
+ NumerDokumentu = RTrim(nrd)
+ End Function
+
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function XLSprawdzLicencje() As Boolean
+ Dim LicencjaInfo As New cdn_api.XLLicencjaInfo_20193 With
+ {
+ .Wersja = Wersja,
+ .Licencja = 1,
+ .Odswiez = 1,
+ .Stan = 0
+ }
+
+ wynikXL = 0
+ XLSprawdzLicencje = False
+ Try
+ wynikXL = cdn_api.cdn_api.XLSprawdzLicencje(LicencjaInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLSprawdzLicencje"
+ End Try
+ If LicencjaInfo.Stan = 1 Then
+ XLSprawdzLicencje = True
+ Else
+ Komunikat = "Błąd API XLSprawdzLicencje = " & CStr(wynikXL)
+ If wynikXL = 0 Then
+ Select Case LicencjaInfo.Stan
+ Case 0
+ Komunikat = "XLSprawdzLicencje: nie pobrano licencji"
+ Case 2
+ Komunikat = "XLSprawdzLicencje: nie pobrano licencji - błąd pobrania licencji bądź ilość licencji wyczerpana"
+ Case 3
+ Komunikat = "XLSprawdzLicencje: licencja przeterminowana"
+ Case 4
+ Komunikat = "XLSprawdzLicencje: licencja promocyjna"
+ End Select
+ ElseIf wynikXL = -1 Then
+ Komunikat = "XLSprawdzLicencje: Sesja API nieaktywna lub nieprawidłowy numer"
+ ElseIf wynikXL = 1 Then
+ Komunikat = "XLSprawdzLicencje: błąd klucza sprzętowego"
+ End If
+ MainFrm.listuj(Komunikat)
+ End If
+ End Function
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretPojedynczy - Funkcja dodaje jeden dekret pojedynczy - bez nagłówka
+
+ Sub XLDodajDekretPoj()
+ Dim DekretInfo As New cdn_api.XLDekretInfo_20193
+ Dim w As Integer
+
+ With DekretInfo
+ .Wersja = Wersja
+ '.Tryb = Range("b6").Value 'Tryb wystawienia (interakcyjny/wsadowy)
+ '.GIDTyp = Range("b7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("b8").Value '
+ '.GIDNumer = Range("b9").Value '
+ '.GIDLp = Range("b10").Value '
+ '.Data = Range("b11").Value 'Data dekretu
+ '.DataDokumentu = Range("b12").Value 'Data dokumentu
+ '.Kwota = Str(Range("b13").Value) 'Kwota pomnożona przez 100
+ '.KwotaWalDT = Str(Range("b14").Value) 'Kwota winien w walucie pomnożona przez 100
+ '.KwotaWalCT = Str(Range("b15").Value) 'Kwota ma w walucie pomnożona przez 100
+ '.NumerDokumentu = Range("b16").Value + Chr(0) 'Numer dokumentu
+ '.Dziennik = Range("b17").Value + Chr(0) 'Dziennik księgowań
+ '.Bufor = Range("b18").Value + Chr(0) 'Bufor księgowań (pusty = KG)
+ '.KontoDebet = Range("b19").Value + Chr(0) 'Numer konta winien (WN)
+ '.KontoCredit = Range("b20").Value + Chr(0) 'Numer konta ma (MA)
+ '.KontoWalDT = Range("b21").Value + Chr(0)
+ '.KontoWalCT = Range("b22").Value + Chr(0)
+ '.Identyfikator = Range("b23").Value
+ '.Opis = Range("b24").Value + Chr(0) 'Opis dekretu
+ End With
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretPojedynczy(Sesja, DekretInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretPojedynczy"
+ End Try
+ w = OpisBledu(990, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretZbiorczy - Funkcja dodaje nagłówek dekretu zbiorczego
+
+ Sub XLDodajDekretZb(DekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20193)
+ Dim w As Integer
+
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretZbiorczy(Sesja, DekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretZbiorczy"
+ End Try
+ w = OpisBledu(994, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretSkladowy - Funkcja dodaje jeden dekret składowy w otwartym dekrecie zbiorczym
+
+ Sub XLDodajDekretSkl(DekretSkladowyInfo As cdn_api.XLDekretInfo_20193)
+ Dim w As Integer
+
+ With DekretSkladowyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretSkladowy(Sesja, DekretSkladowyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretSkładowy"
+ End Try
+ w = OpisBledu(993, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijDekretZbiorczy - Funkcja zamyka dekret zbiorczy
+
+ Sub XLZamknijDekretZb(ZamknijDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20193)
+ Dim w As Integer
+
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijDekretZbiorczy(Sesja, ZamknijDekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijDekretZbiorczy"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLSumujDekret - Funkcja podaje sumę dekretu zbiorczego
+
+ Sub XLSumujDekretZb(SumujDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20193)
+ Dim w As Integer
+
+ With SumujDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ '.GIDTyp = Range("n7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("n8").Value '
+ '.GIDNumer = Range("n9").Value '
+ '.GIDLp = Range("n10").Value '
+ '.Data = Range("n11").Value 'Data dekretu
+ '.DataDokumentu = Range("n12").Value 'Data dokumentu
+ '.KwotaDebet = Str(Range("n13").Value) + Chr(0) 'Kwota sumaryczna winien pomnożona przez 100
+ '.KwotaCredit = Str(Range("n14").Value) + Chr(0) 'Kwota sumaryczna ma pomnożona przez 100
+ '.NumerDokumentu = Range("n15").Value + Chr(0) 'Numer dokumentu
+ '.Dziennik = Range("n16").Value + Chr(0) 'Dziennik księgowań
+ '.Bufor = Range("n17").Value + Chr(0) 'Bufor księgowań (pusty = KG)
+ '.Identyfikator = Range("n18").Value
+ '.Opis = Range("n19").Value + Chr(0) 'Opis dekretu
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLSumujDekretZbiorczy(Sesja, SumujDekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLSumujDekretZbiorczy"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLKasujDekret - Funkcja kasuje dekret
+
+ Sub XLKasujDekretzb(KasujDekretInfo As cdn_api.XLDekretInfo_20193)
+ Dim w As Integer
+
+ With KasujDekretInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLKasujDekret(Sesja, KasujDekretInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLKasujDekret"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajNote
+
+ Sub XLDodajNoteMem(NotaInfo As cdn_api.XLNotaInfo_20193)
+ Dim w, IDNoty As Integer
+
+ NotaID = 0
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ .GIDTyp = 4145 'nota uproszczona
+ '.DataWprow = Range("b24").Value
+ '.DataDok = Range("b25").Value
+ '.DataOper = Range("b26").Value
+ '.Seria = Range("b32").Value + Chr(0)
+ '.NumerDokumentu = Range("b33").Value + Chr(0)
+ '.Tresc = Range("b34").Value + Chr(0)
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajNote(Sesja, IDNoty, NotaInfo)
+ NotaID = IDNoty
+ Catch ex As Exception
+ wynikXL = -200
+ NotaID = 0
+ Komunikat = "Nie rozpoznany błąd API XLDodajNote"
+ End Try
+ w = OpisBledu(989, wynikXL, 0)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajPozycjeNoty - Funkcja ta dodaje element do otwartej wcześniej noty
+
+ Sub XLDodajPozycjeNotyMem(PozycjaNotyInfo As cdn_api.XLPozycjaNotyInfo_20193)
+ Dim w As Integer
+
+ With PozycjaNotyInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ '.KKSNumerDT = Range("e15").Value
+ '.KKSNumerCT = Range("e16").Value
+ '.DataDok = Range("e21").Value
+ '.DataOper = Range("e22").Value
+ '.Kwota = Str(Range("e23").Value) + Chr(0)
+ '.Opis = Range("e24").Value + Chr(0)
+ '.NumerDokumentu = Range("e29").Value
+ End With
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajPozycjeNoty(Sesja, NotaID, PozycjaNotyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajPozycjeNoty"
+ End Try
+ w = OpisBledu(988, wynikXL, 0)
+ End Sub
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijNote - Funkcja ta zamyka otwartą notę memoriałową
+
+ Sub XLZamknijNoteMem(NotaInfo As cdn_api.XLNotaInfo_20193)
+ Dim w As Integer
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijNote(Sesja, NotaID, NotaInfo)
+ NotaID = 0
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijNote"
+ End Try
+ w = OpisBledu(987, wynikXL, 0)
+ End Sub
+
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLKasujNote - Funkcja ta kasuje notę memoriałową
+
+ Sub XLKasujNoteMem(NotaInfo As cdn_api.XLNotaInfo_20193)
+ Dim w As Integer
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ '.GIDTyp = Range("k7").Value
+ '.GIDFirma = Range("k8").Value
+ '.GIDNumer = Range("k9").Value
+ '.GIDLp = Range("k10").Value
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLKasujNote(Sesja, NotaID, NotaInfo)
+ NotaID = 0
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLKasujNote"
+ End Try
+ w = OpisBledu(986, wynikXL, 0)
+ End Sub
+
+End Module
diff --git a/.svn/pristine/0f/0f8a9e446cfe333bf257d063e18e71f5c7872650.svn-base b/.svn/pristine/0f/0f8a9e446cfe333bf257d063e18e71f5c7872650.svn-base
new file mode 100644
index 0000000..b0b10d2
--- /dev/null
+++ b/.svn/pristine/0f/0f8a9e446cfe333bf257d063e18e71f5c7872650.svn-base
@@ -0,0 +1,530 @@
+Imports System.Globalization
+Imports System.IO
+Imports System.Text
+
+Public Class MainFrm
+ Public Tylko_Listing As Boolean
+ Public f_out As StreamWriter ' Plik wyjściowy
+ Public SourceConnected As Boolean = False
+
+ Private Structure DokKolumny
+ Public cLp As Integer
+ Public cDokument As Integer
+ Public cDokZr As Integer
+ Public cDZKOpis As Integer
+ Public cDataWyst As Integer
+ Public cDataOper As Integer
+ Public cSumaCT As Integer
+ Public cSumaDT As Integer
+ Public cDZKDziennik As Integer
+ Public cDekret As Integer
+ Public cRokMiesiac As Integer
+ Public cDataImp As Integer
+ Public cMagazyn As Integer
+ Public cKontrahent As Integer
+ Public cOpisDok As Integer
+ Public cDokKor As Integer
+ End Structure
+
+ Private SpFlag, ZakFlag, WewFlag As Integer
+ Private RM, Rok, Mies As Integer
+ Private SrcConn_str, DstConn_str As String
+ Private KD As DokKolumny
+
+ '----------------------------------------------------------
+ Private Const INT_lens As Integer = 1
+ Private ReadOnly p As Int32() = {2, 4, 7, 9, 3, INT_lens}
+
+ Public Function Encrypt(ByVal inputstr As String) As String
+ Dim str As StringBuilder
+ Dim b As Int32 = 6
+ Dim i, j, k, c, cc, bb, lens As Int32
+
+ If inputstr > "" Then
+ str = New StringBuilder(inputstr)
+ lens = str.Length
+ While (lens < b) OrElse (lens Mod b)
+ str.Append(” “)
+ lens += INT_lens
+ End While
+ cc = (lens / b) - INT_lens
+ For i = 0 To cc
+ bb = b - INT_lens
+ For j = 0 To bb
+ k = p(j) + 50
+ c = (b * i + j)
+ str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) + k), c, INT_lens)
+ Next
+ Next
+ Return str.ToString
+ Else
+ Return ""
+ End If
+ str = Nothing
+ End Function
+
+ Public Function Decrypt(ByVal inputstr As String) As String
+ Dim str As StringBuilder
+ Dim b As Int32 = 6
+ Dim i, j, k, c, c1, cc, bb, lens As Int32
+
+ If inputstr > "" Then
+
+ str = New StringBuilder(inputstr)
+ lens = str.Length
+ While (lens < b) OrElse (lens Mod b)
+ str.Append(” “)
+ lens += INT_lens
+ End While
+
+ cc = (lens / b) - INT_lens
+ For i = 0 To cc
+ bb = b - INT_lens
+ For j = 0 To bb
+ k = p(j) + 50
+ c = (b * i + j)
+ c1 = Asc(str.Chars(c))
+ c1 -= k
+ str.Replace(str.Chars(c), Chr(c1), c, INT_lens)
+ Next j
+ Next i
+ Return str.ToString
+ Else
+ Return ""
+ End If
+ str = Nothing
+ End Function
+
+ Private Function zrob_polaczenie(srv As String, baza As String, user As String, pass As String)
+ Dim cnstr As String
+
+ cnstr = "Data Source=" & srv & ";Initial Catalog=" & baza
+ cnstr += ";Persist Security Info=false;User ID=" & Decrypt(user).Trim & ";Password=" & Decrypt(pass).Trim & ";TrustServerCertificate=True;Connection Timeout=30"
+ Return (cnstr)
+ End Function
+
+ Private Function PolaczBaze() As Boolean
+ Dim B1, conn, pp, K1 As String
+ Dim ret As Boolean = False
+
+ lbUwaga.Text = "Czekaj: Logowanie do ERPXL"
+ lbUwaga.Visible = True
+ lbUwaga.BringToFront()
+ lbUwaga.Refresh()
+
+ If Strings.Left(UCase(My.Settings.BazaDst), 6) = "CDNXL_" Or Strings.Left(UCase(My.Settings.BazaDst), 6) = "ERPXL_" Then
+ B1 = Mid(My.Settings.BazaDst, 7)
+ Else
+ B1 = My.Settings.BazaDst
+ End If
+ K1 = My.Settings.SerwerKlucza
+ If Not Zalogowany Then listuj(" Logowanie do ERP XL - proszę czekać...")
+ ret = Zaloguj(B1, "", "", K1)
+ If ret Then
+ listuj(" sprawdzanie dostępności licencji...")
+ ret = XLSprawdzLicencje()
+ If ret Then
+ listuj(" Zalogowano pomyslnie do ERP XL")
+ conn = FunkcjeXL.Polaczenie() 'string połączenia wyznaczony przez API
+ pp = InStr(conn.ToUpper, "SERVER=")
+ conn = Mid(conn, pp)
+ DstConn_str = conn
+ ret = True
+ Else
+ listuj("!! Nie udało się pobrać licencji stanowiskowej ERP XL.")
+ Wyloguj()
+ ret = False
+ End If
+ Else
+ listuj("!! Nie udało się zalogować. Proszę uruchomić aplikację ERP XL !!")
+ End If
+ If Not ret Then
+ TcZakladki.SelectedTab = TpList
+ TpList.Select()
+ End If
+ lbUwaga.Text = "Czekaj: pobieranie danych"
+ lbUwaga.Visible = False
+ lbUwaga.Invalidate()
+ Return ret
+ End Function
+
+ '----------------------------------------------------------
+
+ Public Sub UstawKolumny()
+ With KD
+ .cLp = DgvDokumenty.Columns.Item("colLp").Index
+ .cDokument = DgvDokumenty.Columns.Item("colDokument").Index
+ .cDokZr = DgvDokumenty.Columns.Item("colDokZr").Index
+ .cDZKOpis = DgvDokumenty.Columns.Item("colDZKOpis").Index
+ .cDataWyst = DgvDokumenty.Columns.Item("colDataWyst").Index
+ .cDataOper = DgvDokumenty.Columns.Item("colDataOper").Index
+ .cSumaCT = DgvDokumenty.Columns.Item("colSumaCT").Index
+ .cSumaDT = DgvDokumenty.Columns.Item("colSumaDT").Index
+ .cDZKDziennik = DgvDokumenty.Columns.Item("colDZKDziennik").Index
+ .cDekret = DgvDokumenty.Columns.Item("colDekret").Index
+ .cRokMiesiac = DgvDokumenty.Columns.Item("colRokMiesiac").Index
+ .cDataImp = DgvDokumenty.Columns.Item("colDataImportu").Index
+ .cMagazyn = DgvDokumenty.Columns.Item("colMagazyn").Index
+ .cKontrahent = DgvDokumenty.Columns.Item("colKontrahent").Index
+ .cOpisDok = DgvDokumenty.Columns.Item("colOpisDok").Index
+ .cDokKor = DgvDokumenty.Columns.Item("colDokKoryg").Index
+ End With
+ End Sub
+
+ Private Sub CbWewn_CheckedChanged(sender As Object, e As EventArgs) Handles CbWewn.CheckedChanged
+ If CbWewn.Checked Then
+ WewFlag = 1
+ Else
+ WewFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub BtOdswiez_Click(sender As Object, e As EventArgs) Handles BtOdswiez.Click
+ If SourceConnected Then OdswiezDane()
+ End Sub
+
+ Private Sub CbZakup_CheckedChanged(sender As Object, e As EventArgs) Handles CbZakup.CheckedChanged
+ If CbZakup.Checked Then
+ ZakFlag = 1
+ Else
+ ZakFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub edRok_ValueChanged(sender As Object, e As EventArgs) Handles edRok.ValueChanged
+ If SourceConnected And IsNumeric(edRok.Value) Then
+ Rok = edRok.Value
+ Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
+ BsTbmyImpDMKonta.ResetBindings(False)
+ OdswiezDane()
+ End If
+ End Sub
+
+ Private Sub CbMiesiac_TextChanged(sender As Object, e As EventArgs) Handles CbMiesiac.TextChanged
+ If SourceConnected Then
+ Mies = CbMiesiac.Items.IndexOf(CbMiesiac.Text) + 1
+ Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
+ BsTbmyImpDMKonta.ResetBindings(False)
+ OdswiezDane()
+ End If
+ End Sub
+
+ Private Sub DgvDokumenty_KeyPress(sender As Object, e As KeyPressEventArgs) 'Handles DgvDokumenty.KeyPress
+ Dim wiersz As DataGridViewRow
+ Dim check As Boolean
+ Dim colWybrany, colData, kk As Integer
+
+ Select Case e.KeyChar
+ Case " "
+ kk = 0
+ colWybrany = DgvDokumenty.Columns.Item("Wybrany").Index
+ colData = DgvDokumenty.Columns.Item("colDataImportu").Index
+ For Each wiersz In DgvDokumenty.SelectedRows
+ If wiersz.Cells(colData).Value <= "1990-01-01 00:00:00" Then
+ check = wiersz.Cells(colWybrany).Value
+ wiersz.Cells(colWybrany).Value = Not check
+ If (kk Mod 10) = 0 Then Application.DoEvents()
+ End If
+ kk += 1
+ Next
+ End Select
+ End Sub
+
+ Private Sub CbSprzedaz_CheckedChanged(sender As Object, e As EventArgs) Handles CbSprzedaz.CheckedChanged
+ If CbSprzedaz.Checked Then
+ SpFlag = 1
+ Else
+ SpFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub DgvDokumenty_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DgvDokumenty.RowPostPaint
+ If Not DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value Is DBNull.Value Then
+ If CStr(DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value) > "1990-01-01" Then DgvDokumenty.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
+ End If
+ End Sub
+
+ Private Sub BtImport_Click(sender As Object, e As EventArgs) Handles BtImport.Click
+ Dim DoImportu As New List(Of DataGridViewRow) 'kopia zaznaczonych do importu dokumentów
+ Dim Aktwiersz As DataGridViewRow
+ Dim AktualnyDokument As String = ""
+ Dim ret, Nr_ZapisuSrc As Integer
+ Dim sql, ss, tresc, nrdok, s1, s2 As String
+
+ If Not SourceConnected Then Return
+
+ If DgvDokumenty.Rows.Count > 0 Then
+ If System.Windows.Forms.MessageBox.Show("Czy zaimportować zaznaczone dokumenty ?", "", MessageBoxButtons.YesNo) = DialogResult.No Then
+ Return
+ End If
+
+ DoImportu.Clear()
+ UstawKolumny() 'powiązanie nazw kolumn z ich indeksem
+ For Each wiersz In DgvDokumenty.SelectedRows 'zrób kopię zaznaczonych na niebiesko dokumentów
+ Dim targetRow = CType(wiersz.Clone(), DataGridViewRow)
+ For Each cell As DataGridViewCell In wiersz.Cells
+ targetRow.Cells(cell.ColumnIndex).Value = cell.Value
+ Next
+ DoImportu.Add(targetRow)
+ Next
+ If DoImportu.Count > 0 Then
+ 'zaloguj do XL
+ listuj("Start importu: " + Now)
+ ret = PolaczBaze()
+ If ret Then
+ DgvDokumenty.CurrentCell = DgvDokumenty(0, 0)
+ Aktwiersz = DgvDokumenty.CurrentRow
+ For Each wiersz In DoImportu
+ Aktwiersz = wiersz
+ DgvDokumenty.CurrentCell = DgvDokumenty(0, wiersz.Cells.Item(0).Value - 1) 'pokaż aktualnie przetwarzany wiersz
+ If (wiersz.Cells.Item(KD.cDataImp).Value <= "1990-01-01 00:00:00") And (AktualnyDokument <> wiersz.Cells.Item(KD.cDokument).Value) Then 'dekret nie zaimportowany
+ AktualnyDokument = wiersz.Cells.Item(KD.cDokument).Value 'Nowa nota memoriałowa - numer dokumentu w Jastrzębiu
+ Nr_ZapisuSrc = wiersz.Cells.Item(KD.cDekret).Value 'Dekret (DZK_GIDNumer) źródłowy
+ tresc = " "
+ s1 = AktualnyDokument.Substring(0, 2)
+ If s1 = "PZ" Or s1 = "WZ" Or s1 = "KK" Or s1 = "PK" Or s1 = "WK" Then
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cKontrahent).Value), " ", wiersz.Cells.Item(KD.cKontrahent).Value)
+ If ss > " " Then tresc = ss
+ End If
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cOpisDok).Value), " ", wiersz.Cells.Item(KD.cOpisDok).Value)
+ If ss > " " Then
+ If tresc > " " Then tresc += "; " + ss Else tresc = ss
+ End If
+ If tresc < " " Then tresc = "brak opisu"
+ nrdok = ""
+ s1 = AktualnyDokument.Substring(0, 3)
+ If s1 = "PZK" Or s1 = "PKI" Or s1 = "WZK" Or s1 = "WKE" Or s1 = "RWK" Or s1 = "PWK" Then
+ nrdok = AktualnyDokument + ", " + IIf(IsNothing(wiersz.Cells.Item(KD.cDokKor).Value), "", wiersz.Cells.Item(KD.cDokKor).Value)
+ Else
+ nrdok = AktualnyDokument
+ End If
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ Try
+ If UtworzNote(nrdok, wiersz.Cells.Item(KD.cDataWyst).Value, '"Data Wystawienia"
+ wiersz.Cells.Item(KD.cDataWyst).Value, 'wszystkie daty takie same
+ wiersz.Cells.Item(KD.cDokZr).Value, '"Dokument źródłowy"
+ tresc) Then '"treśc noty"
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cDZKOpis).Value), " ", wiersz.Cells.Item(KD.cDZKOpis).Value)
+ s1 = AktualnyDokument.Substring(0, 2)
+ If s1 = "WZ" Or s1 = "WK" Or s1 = "RW" Or s1 = "PW" Then ss = tresc 'dla WZ/WZE/WZK/WKE, RW/RWK/PW/PWK opis pozycji taki sam jak treść noty
+ If DodajPozycjeNoty(Nr_ZapisuSrc, wiersz.Cells.Item(KD.cDataWyst).Value,
+ wiersz.Cells.Item(KD.cDataWyst).Value,
+ ss, nrdok) Then 'dodajpozycje noty
+ ZamknijNote(True) 'zamknij notę
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ 'oznacz dokument jako zaimportowany
+ sql = "update CDN.Dekrety Set DT_DataCentrali = datediff(s,'19900101', GetDate()) where DT_GIDNUmer = " & Str(Nr_ZapisuSrc)
+ SqlCmd(sql, SrcConn_str)
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ 'AktualnyDokument = ""
+ sql = "update CDN.MemNag set MEN_CechaOpis = '" + IIf(IsNothing(wiersz.Cells.Item(KD.cMagazyn).Value), "", wiersz.Cells.Item(KD.cMagazyn).Value) + "' "
+ sql += " where MEN_GIDNumer = " + CStr(GIDNumer)
+ SqlCmd(sql, DstConn_str)
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ Else
+ ZamknijNote(False) 'usuń utworzoną notę
+ AktualnyDokument = ""
+ End If
+ End If
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show("ImportClick: " & ex.Message)
+ End Try
+ Else
+ listuj(CStr(Now) & "-> Dokument: " & wiersz.Cells.Item(2).Value & " już jest zaimportowany !!")
+ End If
+ Next
+ End If
+ Tylko_Listing = False
+ OdswiezDane()
+ End If
+ TcZakladki.SelectedTab = TpList
+ TpList.Select()
+ End If
+ End Sub
+
+ Private Sub BtKonfig_Click(sender As Object, e As EventArgs) Handles BtKonfig.Click
+ dlgKonfig.ShowDialog()
+ End Sub
+
+ Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
+ Dim plik As String
+
+ Timer.Stop()
+ My.Settings.Reload()
+ Try
+ plik = My.Settings.FolderR_Roboczy + "\ImportDM-" + Replace(Replace(Replace(Now, ":", "."), "/", "."), " ", "_") + ".LOG"
+ f_out = System.IO.File.CreateText(plik)
+ Tylko_Listing = False
+ Catch
+ Tylko_Listing = True
+ End Try
+ Timer.Enabled = False
+ Application.DoEvents()
+ If My.Settings.SerwerSrc > "" Then
+ SrcConn_str = zrob_polaczenie(My.Settings.SerwerSrc, My.Settings.BazaSrc, My.Settings.MCsrc, My.Settings.Comsrc)
+ Tamy_ImpDM_Src.Connection.ConnectionString = SrcConn_str
+ Tamy_ImpDM_Dekr.Connection.ConnectionString = SrcConn_str
+ Tamy_ImpDM_Konta.Connection.ConnectionString = SrcConn_str
+ SourceConnected = True
+ Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
+ BsTbmyImpDMKonta.ResetBindings(False)
+ OdswiezDane()
+ End If
+ If My.Settings.SerwerKlucza > "" And My.Settings.BazaDst > "" Then PolaczBaze()
+ 'If Zalogowany Then OdswiezDane()
+ End Sub
+
+ Private Sub BtUsunFlage_Click(sender As Object, e As EventArgs) Handles BtUsunFlage.Click
+ If DgvDokumenty.Rows.Count > 0 Then
+ If System.Windows.Forms.MessageBox.Show("Czy usunąć flagę z zaznaczonych dokumentów ?", "", MessageBoxButtons.YesNo) = DialogResult.Yes Then
+ Dim sql As String
+ Dim col As Integer
+
+ col = DgvDokumenty.Columns("colDekret").Index
+ For Each wiersz In DgvDokumenty.SelectedRows
+ sql = "update CDN.Dekrety set DT_DataCentrali = 0 where DT_GIDNUmer = " & Str(wiersz.Cells(col).Value)
+ SqlCmd(sql, SrcConn_str)
+ Next
+ OdswiezDane()
+ End If
+ End If
+ End Sub
+
+ Private Sub BtKoniec_Click(sender As Object, e As EventArgs) Handles BtKoniec.Click
+ Wyloguj()
+ If Not IsNothing(f_out) Then
+ f_out.Flush()
+ f_out.Close()
+ End If
+ Close()
+ End Sub
+
+ Private Sub OdswiezDane()
+ Dim Konto As String
+ Dim ImpFl, pos As Integer
+
+ If Not SourceConnected Then Return
+
+ Konto = CbKonto.Text
+ ImpFl = 2
+ If RbBlack.Checked Then ImpFl = 0 Else If RbRed.Checked Then ImpFl = 1
+
+ RM = CInt(CStr(Rok) & IIf(Mies < 10, "0", "") & CStr(Mies))
+ If RM < 2001 Or Mies <= 0 Then Return
+ Try
+ lbUwaga.Visible = True
+ Application.DoEvents()
+ lbUwaga.BringToFront()
+ Application.DoEvents()
+ lbUwaga.Refresh()
+ Application.DoEvents()
+ pos = BsTbmy_ImpDM_Src.Position
+ Tamy_ImpDM_Src.Fill(Me.DsMain.Tbmy_ImpDM_Src, SpFlag, ZakFlag, WewFlag, RM, Rok, Mies, Konto, ImpFl)
+ If pos < BsTbmy_ImpDM_Src.Count Then BsTbmy_ImpDM_Src.Position = pos Else BsTbmy_ImpDM_Src.Position = BsTbmy_ImpDM_Src.Count - 1
+ lbUwaga.Visible = False
+ lbUwaga.Invalidate()
+ Catch ex As System.Exception
+ lbUwaga.Visible = False
+ Application.DoEvents()
+ lbUwaga.Refresh()
+ Application.DoEvents()
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+ End Sub
+
+ Private Sub MainFrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+ Dim spr As String
+
+ SpFlag = 0
+ ZakFlag = 0
+ WewFlag = 0
+ Rok = Year(Now)
+ Mies = Month(Now)
+ edRok.Value = Rok
+ CbMiesiac.SelectedIndex = Mies - 1
+ CbMiesiac.Text = CbMiesiac.Items(CbMiesiac.SelectedIndex)
+ RbAll.Checked = True
+ CbKonto.Text = ""
+ spr = Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper)
+ DecimalSep = NumberFormatInfo.CurrentInfo.NumberDecimalSeparator.ToString
+ DecimalGroupSep = NumberFormatInfo.CurrentInfo.NumberGroupSeparator.ToString
+ If spr <> My.Settings.check Then
+ MsgBox("Niezgodna konfiguracja. Ustaw od nowa")
+ My.Settings.SerwerSrc = ""
+ ' My.Settings.SerwerDst = ""
+ My.Settings.SerwerKlucza = ""
+ My.Settings.BazaSrc = ""
+ ' My.Settings.BazaDst = ""
+ My.Settings.FolderR_Roboczy = ""
+ My.Settings.MCsrc = ""
+ ' My.Settings.MCdst = ""
+ My.Settings.Comsrc = ""
+ ' My.Settings.Comdst = ""
+ My.Settings.check = spr
+ My.Settings.Save()
+ End If
+ Timer.Start()
+ End Sub
+
+ Public Sub listuj(ByVal linia As String)
+ If linia > "" Then
+ LstWynik.Items.Add(linia)
+
+ If Not Tylko_Listing Then
+ f_out.WriteLine(linia)
+ End If
+ If (LstWynik.Items.Count - 1) > 0 Then
+ LstWynik.TopIndex = Me.LstWynik.Items.Count - 1
+ Else
+ LstWynik.TopIndex = 0
+ End If
+ Application.DoEvents()
+ End If
+ End Sub
+
+ Public Function SqlCmd(ByVal sql As String, conn_str As String) As Boolean
+ Dim wynik As Boolean
+
+ wynik = False
+ Try
+ Using connection As New SqlClient.SqlConnection(conn_str)
+ Dim command As New SqlClient.SqlCommand(sql, connection)
+ connection.Open()
+ command.ExecuteNonQuery()
+ wynik = True
+ End Using
+ Catch ex As Exception
+ My.Forms.MainFrm.listuj(ex.Message)
+ End Try
+ Return (wynik)
+ End Function
+
+ Public Function GetOneVal(ByVal sql As String, conn_str As String) As String
+ Dim val As String
+
+ val = ""
+ Try
+ Using connection As New SqlClient.SqlConnection(conn_str)
+ Dim command As New SqlClient.SqlCommand(sql, connection)
+ connection.Open()
+ Dim reader As SqlClient.SqlDataReader = command.ExecuteReader()
+ While reader.Read()
+ If reader.IsDBNull(0) Then
+ val = ""
+ Else
+ val = CType(reader, IDataRecord)(0)
+ End If
+ End While
+ reader.Close()
+ End Using
+ Catch ex As Exception
+ My.Forms.MainFrm.listuj(ex.Message)
+ End Try
+ GetOneVal = val
+ End Function
+
+End Class
diff --git a/.svn/pristine/0f/0f8e54f4f14786f69442aa90cc7fda25d0c9203a.svn-base b/.svn/pristine/0f/0f8e54f4f14786f69442aa90cc7fda25d0c9203a.svn-base
new file mode 100644
index 0000000..30e47b5
--- /dev/null
+++ b/.svn/pristine/0f/0f8e54f4f14786f69442aa90cc7fda25d0c9203a.svn-base
@@ -0,0 +1,13 @@
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/11/11a43daee0d3f6bc66c82f06d7a52d99ae66e08a.svn-base b/.svn/pristine/11/11a43daee0d3f6bc66c82f06d7a52d99ae66e08a.svn-base
new file mode 100644
index 0000000..90984f3
--- /dev/null
+++ b/.svn/pristine/11/11a43daee0d3f6bc66c82f06d7a52d99ae66e08a.svn-base
@@ -0,0 +1,258 @@
+'Public Module ImportDM
+Partial Public Class MainFrm
+ Public GIDTyp, GIDFirma, GIDNumer, GIDLp As Integer 'aktualny dekret
+ Public DecimalGroupSep As String
+ Public DecimalSep As String
+
+
+ Function szukaj_sep(ByVal line As String, ByVal start As Integer, ByVal separator As String) As Integer
+ Dim i As Integer
+ szukaj_sep = -1
+ i = InStr(start, line, separator, CompareMethod.Text)
+ If i > start Then szukaj_sep = i
+ End Function
+
+ Function ToDate(Data As String) As Date
+ Dim dd As Date
+ Dim pos As Integer
+
+ Data = Replace(Data, "/", ".")
+ Data = Replace(Data, "-", ".")
+ pos = szukaj_sep(Data, 1, ".")
+ Dim TestAr() As String = Split(Data, ".", , CompareMethod.Text)
+ If pos = 5 Then 'rrrr.mm.dd
+ dd = DateSerial(TestAr(0), TestAr(1), TestAr(2))
+ Else 'dd.mm.rrrr
+ dd = DateSerial(TestAr(2), TestAr(1), TestAr(0))
+ End If
+ ToDate = dd
+ End Function
+
+ Function XL_Date(Data As Date) As Integer
+ XL_Date = 36161 + CInt(Data.ToOADate())
+ End Function
+
+ Function Liczba(bf As String) As String
+ Dim w As String
+
+ w = Replace(bf, ",", DecimalSep)
+ w = Replace(bf, ".", DecimalSep)
+ Liczba = w
+ End Function
+
+
+ Public Function ZamknijDekret(ByVal CzyZapisac As Boolean) As Boolean
+ Dim ZamknijDekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20182
+ Dim ret As Boolean = False
+
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLZamknijDekretZb(ZamknijDekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ ret = True
+ End If
+ If Not CzyZapisac Then
+ Dim KasujDekretInfo As New cdn_api.XLDekretInfo_20182
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLKasujDekretzb(KasujDekretInfo)
+ End If
+ Return (ret)
+ End Function
+
+ Public Function UtworzDekretZbiorczy(ByVal IdentKsieg As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal Opis As String, ByVal SumaCT As Decimal, ByVal SumaDT As Decimal) As Boolean
+ Dim DekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20182
+
+ listuj(CStr(Now) + "-> Dokument: " + IdentKsieg)
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ .Data = XL_Date(Data) 'Data dekretu
+ .DataDokumentu = XL_Date(DokData) 'Data dokumentu
+ .KwotaDebet = Str(SumaDT) + Chr(0) 'Kwota sumaryczna winien
+ .KwotaCredit = Str(SumaCT) + Chr(0) 'Kwota sumaryczna ma
+ .NumerDokumentu = DokZrodlowy + Chr(0) 'Numer dokumentu źródłowego
+ .Dziennik = My.Settings.Seria + Chr(0) 'Dziennik księgowań
+ .Bufor = "BUFOR" + Chr(0) 'Bufor księgowań (pusty = KG)
+ .Identyfikator = IdentKsieg 'identyfikator księgowy - numer dokument z Jastrzębia
+ .Opis = Opis + Chr(0) 'Opis dekretu
+ End With
+ XLDodajDekretZb(DekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ GIDFirma = DekretZbiorczyInfo.GIDFirma
+ GIDTyp = DekretZbiorczyInfo.GIDTyp
+ GIDNumer = DekretZbiorczyInfo.GIDNumer
+ GIDLp = DekretZbiorczyInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajSkladowy(ByVal DZKNumer As Integer) As Boolean
+ Dim DekretSkladowyInfo As New cdn_api.XLDekretInfo_20182
+ Dim ret As Boolean = True
+ Dim i As Integer
+ Dim line As String
+
+ i = 0
+ Try
+ Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ BsTbmy_ImpDM_Dekr.ResetBindings(False)
+ BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < BsTbmy_ImpDM_Dekr.Count
+ With DekretSkladowyInfo
+ .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota pomnożona przez 100
+ .NumerDokumentu = BsTbmy_ImpDM_Dekr.Current("DokZr") + Chr(0) 'Numer dokumentu
+ .KontoDebet = BsTbmy_ImpDM_Dekr.Current("KontoDebet") + Chr(0) 'Numer konta winien (WN)
+ .KontoCredit = BsTbmy_ImpDM_Dekr.Current("KontoCredit") + Chr(0) 'Numer konta ma (MA)
+ .Identyfikator = BsTbmy_ImpDM_Dekr.Current("Identyfikator")
+ .Opis = BsTbmy_ImpDM_Dekr.Current("Opis") + Chr(0) 'Opis dekretu
+ End With
+ line = " Dekret-> " & BsTbmy_ImpDM_Dekr.Current("DokZr")
+ line = line & " - Wn: " & BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+ line = line & ", Ma: " & BsTbmy_ImpDM_Dekr.Current("KontoCredit")
+ line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota"))
+ listuj(line)
+ XLDodajDekretSkl(DekretSkladowyInfo)
+ If wynikXL <> 0 Then ret = False
+ BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+
+
+ Public Function UtworzNote(ByVal NrDokumentu As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal tresc As String) As Boolean
+ Dim NotaInfo As New cdn_api.XLNotaInfo_20182
+
+ listuj(CStr(Now) + "-> Nota do: " + NrDokumentu)
+ With NotaInfo
+ .GIDTyp = 4145 'nota uproszczona
+ .DataWprow = XL_Date(Data) 'Data dekretu
+ .DataDok = XL_Date(DokData) 'Data dokumentu
+ .DataOper = XL_Date(DokData) 'Data dokumentu
+ .Seria = My.Settings.Seria + Chr(0)
+ .NumerDokumentu = NrDokumentu + Chr(0) 'Numer dokumentu źródłowego
+ .Tresc = tresc + Chr(0) 'treść noty
+ End With
+ XLDodajNoteMem(NotaInfo)
+ If wynikXL = 0 Then
+ GIDFirma = NotaInfo.GIDFirma
+ GIDTyp = NotaInfo.GIDTyp
+ GIDNumer = NotaInfo.GIDNumer
+ GIDLp = NotaInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajPozycjeNoty(ByVal DZKNumer As Integer, ByVal DataDok As Date, ByVal DataOper As Date, ByVal opis As String, ByVal NrDok As String) As Boolean
+ Dim NotaPozycjaInfo As New cdn_api.XLPozycjaNotyInfo_20182
+ Dim ret As Boolean = True
+ Dim i, KKS_Wn, KKS_Ma As Integer
+ Dim Rok As Integer
+ Dim sql, line, KontoWn, KontoMa As String
+
+ i = 0
+ Try
+ Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ BsTbmy_ImpDM_Dekr.ResetBindings(False)
+ BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < BsTbmy_ImpDM_Dekr.Count
+ KontoWn = BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+ KontoMa = BsTbmy_ImpDM_Dekr.Current("KontoCredit")
+ KKS_Wn = 0
+ KKS_Ma = 0
+ Rok = Year(DataDok)
+ sql = "select KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoWn & "'"
+ line = GetOneVal(sql, DstConn_str)
+ If line > "" Then KKS_Wn = CInt(line)
+ sql = "select 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)
+ With NotaPozycjaInfo
+ .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota
+ .NumerDokumentu = NrDok + Chr(0) 'Numer dokumentu
+ .KKSNumerDT = KKS_Wn
+ .KKSNumerCT = KKS_Ma
+ .Opis = opis + Chr(0) 'Opis z pozycji dekretu
+ .DataDok = XL_Date(DataDok)
+ .DataOper = XL_Date(DataDok)
+ End With
+ line = " pozycja -> " & BsTbmy_ImpDM_Dekr.Current("DokZr")
+ line = line & " - Wn: " & KontoWn
+ line = line & ", Ma: " & KontoMa
+ line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota"))
+ listuj(line)
+ XLDodajPozycjeNotyMem(NotaPozycjaInfo)
+ If wynikXL <> 0 Then ret = False
+ BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+
+ Public Function ZamknijNote(ByVal CzyZapisac As Boolean) As Boolean
+ Dim NotaInfo As New cdn_api.XLNotaInfo_20182
+ Dim ret As Boolean = False
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLZamknijNoteMem(NotaInfo)
+ If wynikXL = 0 Then
+ ret = True
+ End If
+ If Not CzyZapisac Then
+ Dim KasNotaInfo As New cdn_api.XLNotaInfo_20182
+ With KasNotaInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLKasujNoteMem(KasNotaInfo)
+ End If
+ Return (ret)
+ End Function
+
+End Class
diff --git a/.svn/pristine/12/122c4fd79804f63cbc122af40d487227df50d990.svn-base b/.svn/pristine/12/122c4fd79804f63cbc122af40d487227df50d990.svn-base
new file mode 100644
index 0000000..da34cf1
--- /dev/null
+++ b/.svn/pristine/12/122c4fd79804f63cbc122af40d487227df50d990.svn-base
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Ogólne informacje o zestawie są kontrolowane poprzez następujący
+' zestaw atrybutów. Zmień wartości tych atrybutów, aby zmodyfikować informacje
+' powiązane z zestawem.
+
+' Sprawdź wartości atrybutów zestawu
+
+
+
+
+
+
+
+
+
+
+'Następujący identyfikator GUID jest identyfikatorem biblioteki typów w przypadku udostępnienia tego projektu w modelu COM
+
+
+' Informacje o wersji zestawu zawierają następujące cztery wartości:
+'
+' Wersja główna
+' Wersja pomocnicza
+' Numer kompilacji
+' Rewizja
+'
+' Możesz określić wszystkie wartości lub użyć domyślnych numerów kompilacji i poprawki
+' przy użyciu symbolu „*”, tak jak pokazano poniżej:
+'
+
+
+
diff --git a/.svn/pristine/16/161aa74290113da2841cd4dfcb65876d376ea1ff.svn-base b/.svn/pristine/16/161aa74290113da2841cd4dfcb65876d376ea1ff.svn-base
new file mode 100644
index 0000000..b4ad4f9
--- /dev/null
+++ b/.svn/pristine/16/161aa74290113da2841cd4dfcb65876d376ea1ff.svn-base
@@ -0,0 +1,979 @@
+Public Module FunkcjeXL
+ Const API_VERSION = 20182
+
+ Public Zalogowany As Boolean
+ Public wynikXL As Integer
+ Public Wersja As Integer
+ Dim Ilosc_Bledow As Integer
+ Dim Sesja As Integer
+ Dim IDDokumentu As Integer
+ Public NotaID As Integer
+ Dim Flagi As Integer
+ Dim Komunikat As String
+
+
+ '-------------------------------------------------------
+ ' Funkcja XLLogin - W przypadku podania poprawnych parametrów poprzez strukturę XLLoginInfo _
+ ' logowanie następuję automatycznie. W przeciwnym przypadku otwiera się okno _
+ ' logowania do systemu CDN XL, w którym należy podać poprawne dane. _
+ ' Poprzez parametr sesja zwracany jest numer przydzielonej dla programu sesji. _
+ ' Numerem tym należy się posługiwać przy wywoływaniu następnych funkcji API.
+
+ Public Function Zaloguj(ByVal Baza As String, ByVal CDNop As String, ByVal Haslo As String, ByVal SerwerKlucza As String) As Boolean
+ Dim LoginInfo As New cdn_api.XLLoginInfo_20182
+ Dim sesja_temp As Int32
+
+ If Zalogowany And Sesja > 0 Then
+ wynikXL = 0
+ Ilosc_Bledow = 0
+ Zaloguj = Zalogowany
+ Exit Function
+ End If
+ Try
+ ' listuj(" Logowanie do ERP XL - proszę czekać...", 1)
+ Zalogowany = False
+ Ilosc_Bledow = 0
+ ' AttachThread()
+ Wersja = API_VERSION
+ LoginInfo.Wersja = Wersja ' numer wersji API
+ LoginInfo.UtworzWlasnaSesje = 0
+ LoginInfo.Winieta = -1
+ LoginInfo.TrybWsadowy = 1
+ LoginInfo.TrybNaprawy = 1
+ LoginInfo.ProgramID = "Import dok. magazynowych z Jastrzębia" ' nazwa programu korzystającego z XL-API (pojawia się na liście sesji)
+ LoginInfo.Baza = Baza & Chr(0) ' nazwa bazy danych do której ma nastąpić login pobierana
+ ' z klucza HKEY_CURRENT_USER oraz HKEY_LOCAL_MACHINE (nazwa rejestracji w managerze baz an tym komputerze, nie rzeczywista nazwa bazy !!)
+ ' LoginInfo.OpeIdent = CDNop & Chr(0) ' identyfikator CDNOpera logującego się
+ ' LoginInfo.OpeHaslo = Haslo & Chr(0) ' hasło CDNOpera logującego się
+ LoginInfo.PlikLog = ""
+ LoginInfo.SerwerKlucza = SerwerKlucza
+ Sesja = 0
+ sesja_temp = 0
+ wynikXL = 0
+ wynikXL = cdn_api.cdn_api.XLLogin(LoginInfo, sesja_temp)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLLogin"
+ End Try
+ If wynikXL = 0 Then
+ Sesja = sesja_temp
+ Ilosc_Bledow = 0
+ Zalogowany = True
+ Else
+ Komunikat = "Nieokreślony błąd logowania do XL = " & CStr(wynikXL)
+ Select Case wynikXL
+ Case -9
+ Komunikat = "XLLogin: operator nie jest podpięty do żadnego centrum"
+ Case -8
+ Komunikat = "XLLogin: Nie podano nazwy bazy danych"
+ Case -7
+ Komunikat = "XLLogin: Baza niezarejestrowana w systemie"
+ Case -6
+ Komunikat = "XLLogin: Nie podano hasła lub brak operatora"
+ Case -5
+ Komunikat = "XLLogin: nieprawidłowe hasło"
+ Case -4
+ Komunikat = "XLLogin: konto operatora zablokowane"
+ Case -3
+ Komunikat = "XLLogin: nie podano nazwy programu (pole ProgramID)"
+ Case -2
+ Komunikat = "XLLogin: błąd otwarcia pliku tekstowego, do którego mają być zapisywane komunikaty. Nie znaleziono ścieżki lub nazwa pliku jest nieprawidłowa."
+ Case -1
+ Komunikat = "XLLogin: podano niepoprawną wersję API"
+ Case 1
+ Komunikat = "XLLogin: inicjalizacja nie powiodła się"
+ Case 2
+ Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie (z tego samego komputera i na tego samego operatora)"
+ Case 3
+ Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie z innego komputera i na tego samego operatora, ale operatora nie posiada prawa do wielokrotnego logowania"
+ Case 5
+ Komunikat = "XLLogin: występuje przy pracy terminalowej w przypadku, gdy operatora nie ma prawa do wielokrotnego logowania i na pytanie czy usunąć istniejące sesje terminalowe wybrano odpowiedź ‘Nie’"
+ Case 61
+ Komunikat = "XLLogin: błąd zakładania nowej sesji"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Zalogowany = False
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ End If
+ If Zalogowany Then MainFrm.listuj("Zalogowano")
+ Zaloguj = Zalogowany
+ End Function
+
+
+ '--------------------------------------------------------------------------------------------------
+ 'Funkcja XLPolaczenie - podaje ConnectionStgring do bazy danych
+ ' Funkcja XLPolaczenie - Funkcja umozliwia identyfikację połączenia do bazy
+ ' zwraca nazwę serwera, bazy oraz connect string dla raportowania
+ '--------------------------------------------------------------------------------------------------
+ Public Function Polaczenie() As String
+ Dim PolaczenieInfo As New cdn_api.XLPolaczenieInfo_20182 With
+ {
+ .Wersja = Wersja, ' numer wersji API (20182) ustawiony w funkcji Zaloguj()
+ .NTMode = 0,
+ .Serwer = "" + Chr(0),
+ .Baza = "" + Chr(0),
+ .ConnectString = "" + Chr(0)
+ }
+ wynikXL = 0
+ wynikXL = cdn_api.cdn_api.XLPolaczenie(PolaczenieInfo)
+ If wynikXL >= 0 Then
+ Polaczenie = PolaczenieInfo.ConnectString
+ ' Serwer = PolaczenieInfo.Serwer
+ Else
+ Polaczenie = ""
+ Komunikat = "XLPolaczenie: nieaktywna sesja API lub nieprawidłowy numer wersji"
+ End If
+ End Function
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLLogout - Funkcja ta służy do zamykania sesji otwartej funkcją XLLogin. _
+ ' Parametr sesja określa numer sesji, którą chcemy zamknąć _
+ ' (numer przydzielany funkcją XLLogin).
+ '--------------------------------------------------------------------------------------------------
+ Public Sub Wyloguj()
+ Dim LogoutInfo As New cdn_api.XLLogoutInfo_20182
+ Dim wynik As Integer
+
+ If Zalogowany Or Sesja > 0 Then
+ LogoutInfo.Wersja = Wersja
+ LogoutInfo.TrybUsuwaniaDok = 0
+ If Sesja > 0 Then
+ Try
+ cdn_api.cdn_api.XLLogoutEx(LogoutInfo, Sesja)
+ Catch ex As Exception
+ wynik = -200
+ Komunikat = "Nie rozpoznany błąd API XLLogout"
+ End Try
+ End If
+ Zalogowany = False
+ Sesja = 0
+ End If
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLNowyDokument - Jest to funkcja, która zapoczątkowuje wystawianie dokumentu. _
+ ' Nadaje ona nowy numer nagłówka, pobiera kontrahenta, _
+ ' wypełnia rekord standardowymi ustawieniami i ustawia go w stan zajętości. _
+ ' Wymagane jest użycie w komplecie co najmniej funkcji XLZamknijDokument _
+ ' w celu zakończenia dokumentu i zwolnienia jego zajętości (bez wywołania _
+ ' tej funkcji wewnętrzna kontrola XL'a spowoduje wycofanie wszelkich zapisów _
+ ' do tego dokumentu).
+ '--------------------------------------------------------------------------------------------------
+ Public Sub UtworzNowyDok(DokNagInfo As cdn_api.XLDokumentNagInfo_20182)
+ Dim w, i As Integer
+
+ wynikXL = 0
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLNowyDokument(Sesja, IDDokumentu, DokNagInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLNowyDokument"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ Flagi = DokNagInfo.Flagi
+ w = OpisBledu(1, wynikXL, Flagi)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajPozycje - Funkcja ta jest odpowiedzialna za dodawanie do dokumentu elementów _
+ ' oraz związanych z nim subelementów.
+ '--------------------------------------------------------------------------------------------------
+ Public Sub DodajPozycjeDok(DokEleInfo As cdn_api.XLDokumentElemInfo_20182)
+ Dim w, i As Integer
+
+ wynikXL = 0
+ If IDDokumentu > 0 Then
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajPozycje(IDDokumentu, DokEleInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajPozycje"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ End If
+ Flagi = DokEleInfo.Flagi
+ If wynikXL <> 17 Then w = OpisBledu(2, wynikXL, Flagi) 'bez drukowania kmunikatu, że zabrakło towaru
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijDokument - Funkcja odpowiada za zakończenie pracy z dokumentem.
+ '--------------------------------------------------------------------------------------------------
+
+ Public Sub ZamknijDokument(ByVal Tryb As Integer, Magazynowe As Integer)
+ Dim ZamkniecieDokumentuInfo As New cdn_api.XLZamkniecieDokumentuInfo_20182
+ Dim w, i As Integer
+
+ Try
+ With ZamkniecieDokumentuInfo
+ .Wersja = Wersja
+ .Tryb = Tryb '-10, 0 - zatwierdz dokument, 1 - do bufora, -3 - zamknięcie otwartego dok., -1 - skasowanie dokumentu, -2 - anulowanie
+ .Magazynowe = Magazynowe 'generowanie dokumentów WM i MMP: 0-wg. konfig., 1-nie generuj, 2-gen. do bufora, 3-gen. zatwierdzone
+ 'dla MMW: 0x,1x,2x - WM (bez, bufor, zatw.); x1,x2,x3 - MMP (bez, bufor, zatw.)
+ End With
+ wynikXL = 0
+ If IDDokumentu > 0 Then
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijDokument(IDDokumentu, ZamkniecieDokumentuInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijDokument"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ End If
+ w = OpisBledu(7, wynikXL, 0)
+ Catch ex As Exception
+ wynikXL = -201
+ Komunikat = "Błąd w dostępie do danych w API XLZamknijDokument"
+ End Try
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLPodajKomunikat - Funkcja rozwiązuje podane numery bledów i ostrzeżeń na stringowy
+ ' komunikat, rodzaje trybów: 0-tryb cichy, 1-tylko bledy, 2-bledy i ostrzeżenia
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function OpisBledu(ByVal Funkcja As Integer, ByVal wynik_lokalny As Integer, ByVal Flagi As Integer) As Integer
+ Dim KomunikatInfo As New cdn_api.XLKomunikatInfo_20182
+ Dim Komunikat As String
+
+ OpisBledu = 0
+ If wynik_lokalny < -199 Then
+ MainFrm.listuj("Nie rozpoznany błąd API w funkcji " + CStr(Funkcja))
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja < 900 Then
+ KomunikatInfo.Wersja = Wersja
+ KomunikatInfo.Funkcja = Funkcja
+ KomunikatInfo.Blad = wynik_lokalny
+ KomunikatInfo.Ostrzezenie = Flagi
+ KomunikatInfo.Tryb = 0
+ Try
+ cdn_api.cdn_api.XLOpisBledu(KomunikatInfo)
+ Catch ex As Exception
+ wynik_lokalny = -200
+ Komunikat = "Nie rozpoznany błąd API XLOpisBledu"
+ End Try
+ Komunikat = "!------! UWAGA: " + KomunikatInfo.OpisBledu
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 999 Then
+ Komunikat = "XLOpisBledu: Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case 2
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór z listy, a brak ustawienia trybu selekcji"
+ Case 3
+ Komunikat = "XLOpisBledu: UWAGA: błąd otwarcia tabeli"
+ Case 4
+ Komunikat = "XLOpisBledu: UWAGA: nie znaleziono rekordu o podanym GIDzie"
+ Case 5
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór elementu z listy a brak procedury listy dla takiego typu dokumentu"
+ Case 6
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór grupy z listy, a brak procedury listy dla takiego typu dokumentu"
+ Case 7
+ Komunikat = "XLOpisBledu: UWAGA: ustalono podgląd elementów listy, a brak procedury listy dla takiego typu dokumentu"
+ Case 8
+ Komunikat = "XLOpisBledu: UWAGA: nieobsługiwany GIDTyp"
+ Case Else
+ Komunikat = "XLOpisBledu: UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 998 Then 'Generuj EAN
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 1
+ Komunikat = "UWAGA: Niepoprawny zakres"
+ Case 2
+ Komunikat = "UWAGA: Wystąpił niezidentyfikowany błąd, kod EAN nie został wygenerowany"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 997 Then 'DodajAtrybut do obiektu
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: brak sesji"
+ Case 2
+ Komunikat = "UWAGA: błąd przy zakładaniu logout"
+ Case 3
+ Komunikat = "UWAGA: nie znaleziono obiektu"
+ Case 4
+ Komunikat = "UWAGA: nie znalezniono klasy atrybutu"
+ Case 5
+ Komunikat = "UWAGA: klasa nieprzypisana do definicji obiektu"
+ Case 6
+ Komunikat = "UWAGA: atrybut juz istnieje w kolejce"
+ Case 7
+ Komunikat = "UWAGA: błąd ADO Connection"
+ Case 8
+ Komunikat = "UWAGA: błąd ADO"
+ Case 9
+ Komunikat = "UWAGA: brak zdefiniowanego obiektu"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 996 Then 'Dodaj Partię
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 2
+ Komunikat = "UWAGA: Wystąpił błąd przy próbie zablokowania tabel dla wykonania transakcji"
+ Case 11
+ Komunikat = "UWAGA: nie znaleziono towaru"
+ Case 12
+ Komunikat = "UWAGA: Nie podano towaru"
+ Case 106
+ Komunikat = "UWAGA: Wystąpił błąd DeadLock"
+ Case 160
+ Komunikat = "UWAGA: Nie znaleziono podanej dostawy"
+ Case 178
+ Komunikat = "UWAGA: Partia o takich parametrach nie istnieje"
+ Case 210
+ Komunikat = "UWAGA: Nie znaleziono podanego identyfikatora partii"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 995 Then 'Dokumenty związane
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 1
+ Komunikat = "UWAGA: taki dokument jest już na liście (błąd zwracany przy akcji dodawania)"
+ Case 30
+ Komunikat = "UWAGA: nie znaleziono dokumentu na liście"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 994 Then 'Dodaj Dekret zbiorczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 1031
+ Komunikat = "BŁĄD: Uruchomienie tej operacji nie jest możliwe ze względu na brak dostępu do modułu, problem z połączeniem lub niezgodność danych w kluczu ze stanem faktycznym."
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8005
+ Komunikat = "BŁĄD: Bieżący okres obrachunkowy jest zamknięty do x.
+ Próbujesz księgować lub kasować księgowanie z datą y."
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 993 Then 'Dodaj dekret składowy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8003
+ Komunikat = "BŁĄD: Konto posiada analitykę"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 992 Then 'Zamknij dekret zbiorczy, sumuj dekret zbiorczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 990 Then 'Dodaj dekret pojedynczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8003
+ Komunikat = "BŁĄD: Konto posiada analitykę"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 989 Then 'Dodaj uproszczoną notę memoriałową
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -3
+ Komunikat = "BŁĄD: brak GIDTypu noty"
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 1
+ Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka;"
+ Case 2
+ Komunikat = "BŁĄD: błędny numer noty (XLNotaInfo.Numer już istnieje w ramach serii/miesiąca);"
+ Case 3
+ Komunikat = "BŁĄD: brak definicji noty"
+ Case 4
+ Komunikat = "BŁĄD: brak podmiotu (kontrahenta lub pracownika);"
+ Case 5
+ Komunikat = "BŁĄD: Nie znaleziono podanej waluty"
+ Case 6
+ Komunikat = "BŁĄD: brak płatnika"
+ Case 7
+ Komunikat = "BŁĄD: nota nie posiada treści"
+ Case 8
+ Komunikat = "BŁĄD: brak praw do używania tego modułu"
+ Case 9
+ Komunikat = "BŁĄD: seria nie istnieje w systemie"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań lub konto nie znajduje się w bieżącym okresie"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto lub oba konta puste"
+ Case 8047
+ Komunikat = "BŁĄD: po obu stronach pozycji noty konta rozrachunkowe"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 988 Then 'Dodaj pozycję noty
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 3
+ Komunikat = "BŁĄD: brak definicji noty"
+ Case 5
+ Komunikat = "BŁĄD: brak noty o podanym ID"
+ Case 7
+ Komunikat = "BŁĄD: pozycja noty nie posiada opisu"
+ Case 8
+ Komunikat = "BŁĄD: brak symbolu kwoty"
+ Case 9
+ Komunikat = "BŁĄD: błąd dodawania pozycji noty"
+ Case 10
+ Komunikat = "BŁĄD: błąd synchronizacji konta walutowego"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań lub konto nie znajduje się w bieżącym okresie"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto lub oba konta puste"
+ Case 8047
+ Komunikat = "BŁĄD: z uwagi na płatności, wygenerowanie noty nie jest możliwe. W ramach zapisu wprowadzono dekrety dwustronne, zawierające po obydwu stronach konta rozrachunkowe"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 987 Then 'Zamknij notę
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 1
+ Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka"
+ Case 2
+ Komunikat = "BŁĄD: błędny numer noty (XLNotaInfo.Numer już istnieje w ramach serii/miesiąca);"
+ Case 3
+ Komunikat = "BŁĄD: brak definicji noty"
+ Case 5
+ Komunikat = "BŁĄD: brak noty o podanym ID"
+ Case 6
+ Komunikat = "BŁĄD: nota niezgodna z definicją (przychodowa/rozchodowa, podmiot);"
+ Case 7
+ Komunikat = "BŁĄD: nie udało się wygenerowanie płatności;"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 986 Then 'kasuj notę
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 1
+ Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka"
+ Case 5
+ Komunikat = "BŁĄD: brak noty o podanym ID"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ End If
+ End Function
+
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLPobierzNumerDokumentu rozwiązuje GID na sformatowany numer dokumentu
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function NumerDokumentu(ByVal GIDTyp As Integer, ByVal GIDFirma As Integer, ByVal GIDNumer As Integer, ByVal GIDLp As Integer) As String
+ Dim NumerDokumentuInfo As New cdn_api.XLNumerDokumentuInfo_20182
+ Dim nrd As String
+
+ NumerDokumentuInfo.Wersja = Wersja
+ NumerDokumentuInfo.GIDTyp = GIDTyp
+ NumerDokumentuInfo.GIDFirma = GIDFirma
+ NumerDokumentuInfo.GIDNumer = GIDNumer
+ NumerDokumentuInfo.GIDLp = GIDLp
+
+ Try
+ wynikXL = cdn_api.cdn_api.XLPobierzNumerDokumentu(NumerDokumentuInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLPobierzNumerDokumentu"
+ End Try
+ NumerDokumentu = ""
+ nrd = ""
+ If wynikXL = 0 Then
+ nrd = NumerDokumentuInfo.NumerDokumentu
+ Else
+ If wynikXL = -1 Then
+ Komunikat = "XLPobierzNumerDokumentu: nieaktywna sesja API lub nieprawidłowy numer wersji"
+ ElseIf wynikXL = 1 Then
+ Komunikat = "XLPobierzNumerDokumentu: nie znaleziono dokumentu"
+ ElseIf wynikXL = 2 Then
+ Komunikat = "XLPobierzNumerDokumentu: podano nieobsługiwany GIDTyp"
+ End If
+ MainFrm.listuj(Komunikat)
+ End If
+ NumerDokumentu = RTrim(nrd)
+ End Function
+
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function XLSprawdzLicencje() As Boolean
+ Dim LicencjaInfo As New cdn_api.XLLicencjaInfo_20182 With
+ {
+ .Wersja = Wersja,
+ .Licencja = 1,
+ .Odswiez = 1,
+ .Stan = 0
+ }
+
+ wynikXL = 0
+ XLSprawdzLicencje = False
+ Try
+ wynikXL = cdn_api.cdn_api.XLSprawdzLicencje(LicencjaInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLSprawdzLicencje"
+ End Try
+ If LicencjaInfo.Stan = 1 Then
+ XLSprawdzLicencje = True
+ Else
+ Komunikat = "Błąd API XLSprawdzLicencje = " & CStr(wynikXL)
+ If wynikXL = 0 Then
+ Select Case LicencjaInfo.Stan
+ Case 0
+ Komunikat = "XLSprawdzLicencje: nie pobrano licencji"
+ Case 2
+ Komunikat = "XLSprawdzLicencje: nie pobrano licencji - błąd pobrania licencji bądź ilość licencji wyczerpana"
+ Case 3
+ Komunikat = "XLSprawdzLicencje: licencja przeterminowana"
+ Case 4
+ Komunikat = "XLSprawdzLicencje: licencja promocyjna"
+ End Select
+ ElseIf wynikXL = -1 Then
+ Komunikat = "XLSprawdzLicencje: Sesja API nieaktywna lub nieprawidłowy numer"
+ ElseIf wynikXL = 1 Then
+ Komunikat = "XLSprawdzLicencje: błąd klucza sprzętowego"
+ End If
+ MainFrm.listuj(Komunikat)
+ End If
+ End Function
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretPojedynczy - Funkcja dodaje jeden dekret pojedynczy - bez nagłówka
+
+ Sub XLDodajDekretPoj()
+ Dim DekretInfo As New cdn_api.XLDekretInfo_20182
+ Dim w As Integer
+
+ With DekretInfo
+ .Wersja = Wersja
+ '.Tryb = Range("b6").Value 'Tryb wystawienia (interakcyjny/wsadowy)
+ '.GIDTyp = Range("b7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("b8").Value '
+ '.GIDNumer = Range("b9").Value '
+ '.GIDLp = Range("b10").Value '
+ '.Data = Range("b11").Value 'Data dekretu
+ '.DataDokumentu = Range("b12").Value 'Data dokumentu
+ '.Kwota = Str(Range("b13").Value) 'Kwota pomnożona przez 100
+ '.KwotaWalDT = Str(Range("b14").Value) 'Kwota winien w walucie pomnożona przez 100
+ '.KwotaWalCT = Str(Range("b15").Value) 'Kwota ma w walucie pomnożona przez 100
+ '.NumerDokumentu = Range("b16").Value + Chr(0) 'Numer dokumentu
+ '.Dziennik = Range("b17").Value + Chr(0) 'Dziennik księgowań
+ '.Bufor = Range("b18").Value + Chr(0) 'Bufor księgowań (pusty = KG)
+ '.KontoDebet = Range("b19").Value + Chr(0) 'Numer konta winien (WN)
+ '.KontoCredit = Range("b20").Value + Chr(0) 'Numer konta ma (MA)
+ '.KontoWalDT = Range("b21").Value + Chr(0)
+ '.KontoWalCT = Range("b22").Value + Chr(0)
+ '.Identyfikator = Range("b23").Value
+ '.Opis = Range("b24").Value + Chr(0) 'Opis dekretu
+ End With
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretPojedynczy(Sesja, DekretInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretPojedynczy"
+ End Try
+ w = OpisBledu(990, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretZbiorczy - Funkcja dodaje nagłówek dekretu zbiorczego
+
+ Sub XLDodajDekretZb(DekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20182)
+ Dim w As Integer
+
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretZbiorczy(Sesja, DekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretZbiorczy"
+ End Try
+ w = OpisBledu(994, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretSkladowy - Funkcja dodaje jeden dekret składowy w otwartym dekrecie zbiorczym
+
+ Sub XLDodajDekretSkl(DekretSkladowyInfo As cdn_api.XLDekretInfo_20182)
+ Dim w As Integer
+
+ With DekretSkladowyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretSkladowy(Sesja, DekretSkladowyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretSkładowy"
+ End Try
+ w = OpisBledu(993, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijDekretZbiorczy - Funkcja zamyka dekret zbiorczy
+
+ Sub XLZamknijDekretZb(ZamknijDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20182)
+ Dim w As Integer
+
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijDekretZbiorczy(Sesja, ZamknijDekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijDekretZbiorczy"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLSumujDekret - Funkcja podaje sumę dekretu zbiorczego
+
+ Sub XLSumujDekretZb(SumujDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20182)
+ Dim w As Integer
+
+ With SumujDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ '.GIDTyp = Range("n7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("n8").Value '
+ '.GIDNumer = Range("n9").Value '
+ '.GIDLp = Range("n10").Value '
+ '.Data = Range("n11").Value 'Data dekretu
+ '.DataDokumentu = Range("n12").Value 'Data dokumentu
+ '.KwotaDebet = Str(Range("n13").Value) + Chr(0) 'Kwota sumaryczna winien pomnożona przez 100
+ '.KwotaCredit = Str(Range("n14").Value) + Chr(0) 'Kwota sumaryczna ma pomnożona przez 100
+ '.NumerDokumentu = Range("n15").Value + Chr(0) 'Numer dokumentu
+ '.Dziennik = Range("n16").Value + Chr(0) 'Dziennik księgowań
+ '.Bufor = Range("n17").Value + Chr(0) 'Bufor księgowań (pusty = KG)
+ '.Identyfikator = Range("n18").Value
+ '.Opis = Range("n19").Value + Chr(0) 'Opis dekretu
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLSumujDekretZbiorczy(Sesja, SumujDekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLSumujDekretZbiorczy"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLKasujDekret - Funkcja kasuje dekret
+
+ Sub XLKasujDekretzb(KasujDekretInfo As cdn_api.XLDekretInfo_20182)
+ Dim w As Integer
+
+ With KasujDekretInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLKasujDekret(Sesja, KasujDekretInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLKasujDekret"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajNote
+
+ Sub XLDodajNoteMem(NotaInfo As cdn_api.XLNotaInfo_20182)
+ Dim w, IDNoty As Integer
+
+ NotaID = 0
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ .GIDTyp = 4145 'nota uproszczona
+ '.DataWprow = Range("b24").Value
+ '.DataDok = Range("b25").Value
+ '.DataOper = Range("b26").Value
+ '.Seria = Range("b32").Value + Chr(0)
+ '.NumerDokumentu = Range("b33").Value + Chr(0)
+ '.Tresc = Range("b34").Value + Chr(0)
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajNote(Sesja, IDNoty, NotaInfo)
+ NotaID = IDNoty
+ Catch ex As Exception
+ wynikXL = -200
+ NotaID = 0
+ Komunikat = "Nie rozpoznany błąd API XLDodajNote"
+ End Try
+ w = OpisBledu(989, wynikXL, 0)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajPozycjeNoty - Funkcja ta dodaje element do otwartej wcześniej noty
+
+ Sub XLDodajPozycjeNotyMem(PozycjaNotyInfo As cdn_api.XLPozycjaNotyInfo_20182)
+ Dim w As Integer
+
+ With PozycjaNotyInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ '.KKSNumerDT = Range("e15").Value
+ '.KKSNumerCT = Range("e16").Value
+ '.DataDok = Range("e21").Value
+ '.DataOper = Range("e22").Value
+ '.Kwota = Str(Range("e23").Value) + Chr(0)
+ '.Opis = Range("e24").Value + Chr(0)
+ '.NumerDokumentu = Range("e29").Value
+ End With
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajPozycjeNoty(Sesja, NotaID, PozycjaNotyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajPozycjeNoty"
+ End Try
+ w = OpisBledu(988, wynikXL, 0)
+ End Sub
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijNote - Funkcja ta zamyka otwartą notę memoriałową
+
+ Sub XLZamknijNoteMem(NotaInfo As cdn_api.XLNotaInfo_20182)
+ Dim w As Integer
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijNote(Sesja, NotaID, NotaInfo)
+ NotaID = 0
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijNote"
+ End Try
+ w = OpisBledu(987, wynikXL, 0)
+ End Sub
+
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLKasujNote - Funkcja ta kasuje notę memoriałową
+
+ Sub XLKasujNoteMem(NotaInfo As cdn_api.XLNotaInfo_20182)
+ Dim w As Integer
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ '.GIDTyp = Range("k7").Value
+ '.GIDFirma = Range("k8").Value
+ '.GIDNumer = Range("k9").Value
+ '.GIDLp = Range("k10").Value
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLKasujNote(Sesja, NotaID, NotaInfo)
+ NotaID = 0
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLKasujNote"
+ End Try
+ w = OpisBledu(986, wynikXL, 0)
+ End Sub
+
+End Module
diff --git a/.svn/pristine/16/16c8436c134bf8fc8e24570d494d448fbd8e184e.svn-base b/.svn/pristine/16/16c8436c134bf8fc8e24570d494d448fbd8e184e.svn-base
new file mode 100644
index 0000000..718c39a
--- /dev/null
+++ b/.svn/pristine/16/16c8436c134bf8fc8e24570d494d448fbd8e184e.svn-base
@@ -0,0 +1,530 @@
+Imports System.Globalization
+Imports System.IO
+Imports System.Text
+
+Public Class MainFrm
+ Public Tylko_Listing As Boolean
+ Public f_out As StreamWriter ' Plik wyjściowy
+ Public SourceConnected As Boolean = False
+
+ Private Structure DokKolumny
+ Public cLp As Integer
+ Public cDokument As Integer
+ Public cDokZr As Integer
+ Public cDZKOpis As Integer
+ Public cDataWyst As Integer
+ Public cDataOper As Integer
+ Public cSumaCT As Integer
+ Public cSumaDT As Integer
+ Public cDZKDziennik As Integer
+ Public cDekret As Integer
+ Public cRokMiesiac As Integer
+ Public cDataImp As Integer
+ Public cMagazyn As Integer
+ Public cKontrahent As Integer
+ Public cOpisDok As Integer
+ Public cDokKor As Integer
+ End Structure
+
+ Private SpFlag, ZakFlag, WewFlag As Integer
+ Private RM, Rok, Mies As Integer
+ Private SrcConn_str, DstConn_str As String
+ Private KD As DokKolumny
+
+ '----------------------------------------------------------
+ Private Const INT_lens As Integer = 1
+ Private ReadOnly p As Int32() = {2, 4, 7, 9, 3, INT_lens}
+
+ Public Function Encrypt(ByVal inputstr As String) As String
+ Dim str As StringBuilder
+ Dim b As Int32 = 6
+ Dim i, j, k, c, cc, bb, lens As Int32
+
+ If inputstr > "" Then
+ str = New StringBuilder(inputstr)
+ lens = str.Length
+ While (lens < b) OrElse (lens Mod b)
+ str.Append(” “)
+ lens += INT_lens
+ End While
+ cc = (lens / b) - INT_lens
+ For i = 0 To cc
+ bb = b - INT_lens
+ For j = 0 To bb
+ k = p(j) + 50
+ c = (b * i + j)
+ str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) + k), c, INT_lens)
+ Next
+ Next
+ Return str.ToString
+ Else
+ Return ""
+ End If
+ str = Nothing
+ End Function
+
+ Public Function Decrypt(ByVal inputstr As String) As String
+ Dim str As StringBuilder
+ Dim b As Int32 = 6
+ Dim i, j, k, c, c1, cc, bb, lens As Int32
+
+ If inputstr > "" Then
+
+ str = New StringBuilder(inputstr)
+ lens = str.Length
+ While (lens < b) OrElse (lens Mod b)
+ str.Append(” “)
+ lens += INT_lens
+ End While
+
+ cc = (lens / b) - INT_lens
+ For i = 0 To cc
+ bb = b - INT_lens
+ For j = 0 To bb
+ k = p(j) + 50
+ c = (b * i + j)
+ c1 = Asc(str.Chars(c))
+ c1 -= k
+ str.Replace(str.Chars(c), Chr(c1), c, INT_lens)
+ Next j
+ Next i
+ Return str.ToString
+ Else
+ Return ""
+ End If
+ str = Nothing
+ End Function
+
+ Private Function zrob_polaczenie(srv As String, baza As String, user As String, pass As String)
+ Dim cnstr As String
+
+ cnstr = "Data Source=" + srv + ";Initial Catalog=" + baza
+ cnstr += ";Persist Security Info=false;User ID=" + Decrypt(user).Trim + ";Password=" + Decrypt(pass).Trim
+ Return (cnstr)
+ End Function
+
+ Private Function PolaczBaze() As Boolean
+ Dim B1, conn, pp, K1 As String
+ Dim ret As Boolean = False
+
+ lbUwaga.Text = "Czekaj: Logowanie do ERPXL"
+ lbUwaga.Visible = True
+ lbUwaga.BringToFront()
+ lbUwaga.Refresh()
+
+ If Strings.Left(UCase(My.Settings.BazaDst), 6) = "CDNXL_" Or Strings.Left(UCase(My.Settings.BazaDst), 6) = "ERPXL_" Then
+ B1 = Mid(My.Settings.BazaDst, 7)
+ Else
+ B1 = My.Settings.BazaDst
+ End If
+ K1 = My.Settings.SerwerKlucza
+ If Not Zalogowany Then listuj(" Logowanie do ERP XL - proszę czekać...")
+ ret = Zaloguj(B1, "", "", K1)
+ If ret Then
+ listuj(" sprawdzanie dostępności licencji...")
+ ret = XLSprawdzLicencje()
+ If ret Then
+ listuj(" Zalogowano pomyslnie do ERP XL")
+ conn = FunkcjeXL.Polaczenie() 'string połączenia wyznaczony przez API
+ pp = InStr(conn.ToUpper, "SERVER=")
+ conn = Mid(conn, pp)
+ DstConn_str = conn
+ ret = True
+ Else
+ listuj("!! Nie udało się pobrać licencji stanowiskowej ERP XL.")
+ Wyloguj()
+ ret = False
+ End If
+ Else
+ listuj("!! Nie udało się zalogować. Proszę uruchomić aplikację ERP XL !!")
+ End If
+ If Not ret Then
+ TcZakladki.SelectedTab = TpList
+ TpList.Select()
+ End If
+ lbUwaga.Text = "Czekaj: pobieranie danych"
+ lbUwaga.Visible = False
+ lbUwaga.Invalidate()
+ Return ret
+ End Function
+
+ '----------------------------------------------------------
+
+ Public Sub UstawKolumny()
+ With KD
+ .cLp = DgvDokumenty.Columns.Item("colLp").Index
+ .cDokument = DgvDokumenty.Columns.Item("colDokument").Index
+ .cDokZr = DgvDokumenty.Columns.Item("colDokZr").Index
+ .cDZKOpis = DgvDokumenty.Columns.Item("colDZKOpis").Index
+ .cDataWyst = DgvDokumenty.Columns.Item("colDataWyst").Index
+ .cDataOper = DgvDokumenty.Columns.Item("colDataOper").Index
+ .cSumaCT = DgvDokumenty.Columns.Item("colSumaCT").Index
+ .cSumaDT = DgvDokumenty.Columns.Item("colSumaDT").Index
+ .cDZKDziennik = DgvDokumenty.Columns.Item("colDZKDziennik").Index
+ .cDekret = DgvDokumenty.Columns.Item("colDekret").Index
+ .cRokMiesiac = DgvDokumenty.Columns.Item("colRokMiesiac").Index
+ .cDataImp = DgvDokumenty.Columns.Item("colDataImportu").Index
+ .cMagazyn = DgvDokumenty.Columns.Item("colMagazyn").Index
+ .cKontrahent = DgvDokumenty.Columns.Item("colKontrahent").Index
+ .cOpisDok = DgvDokumenty.Columns.Item("colOpisDok").Index
+ .cDokKor = DgvDokumenty.Columns.Item("colDokKoryg").Index
+ End With
+ End Sub
+
+ Private Sub CbWewn_CheckedChanged(sender As Object, e As EventArgs) Handles CbWewn.CheckedChanged
+ If CbWewn.Checked Then
+ WewFlag = 1
+ Else
+ WewFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub BtOdswiez_Click(sender As Object, e As EventArgs) Handles BtOdswiez.Click
+ If SourceConnected Then OdswiezDane()
+ End Sub
+
+ Private Sub CbZakup_CheckedChanged(sender As Object, e As EventArgs) Handles CbZakup.CheckedChanged
+ If CbZakup.Checked Then
+ ZakFlag = 1
+ Else
+ ZakFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub edRok_ValueChanged(sender As Object, e As EventArgs) Handles edRok.ValueChanged
+ If SourceConnected And IsNumeric(edRok.Value) Then
+ Rok = edRok.Value
+ Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
+ BsTbmyImpDMKonta.ResetBindings(False)
+ OdswiezDane()
+ End If
+ End Sub
+
+ Private Sub CbMiesiac_TextChanged(sender As Object, e As EventArgs) Handles CbMiesiac.TextChanged
+ If SourceConnected Then
+ Mies = CbMiesiac.Items.IndexOf(CbMiesiac.Text) + 1
+ Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
+ BsTbmyImpDMKonta.ResetBindings(False)
+ OdswiezDane()
+ End If
+ End Sub
+
+ Private Sub DgvDokumenty_KeyPress(sender As Object, e As KeyPressEventArgs) 'Handles DgvDokumenty.KeyPress
+ Dim wiersz As DataGridViewRow
+ Dim check As Boolean
+ Dim colWybrany, colData, kk As Integer
+
+ Select Case e.KeyChar
+ Case " "
+ kk = 0
+ colWybrany = DgvDokumenty.Columns.Item("Wybrany").Index
+ colData = DgvDokumenty.Columns.Item("colDataImportu").Index
+ For Each wiersz In DgvDokumenty.SelectedRows
+ If wiersz.Cells(colData).Value <= "1990-01-01 00:00:00" Then
+ check = wiersz.Cells(colWybrany).Value
+ wiersz.Cells(colWybrany).Value = Not check
+ If (kk Mod 10) = 0 Then Application.DoEvents()
+ End If
+ kk += 1
+ Next
+ End Select
+ End Sub
+
+ Private Sub CbSprzedaz_CheckedChanged(sender As Object, e As EventArgs) Handles CbSprzedaz.CheckedChanged
+ If CbSprzedaz.Checked Then
+ SpFlag = 1
+ Else
+ SpFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub DgvDokumenty_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DgvDokumenty.RowPostPaint
+ If Not DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value Is DBNull.Value Then
+ If CStr(DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value) > "1990-01-01" Then DgvDokumenty.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
+ End If
+ End Sub
+
+ Private Sub BtImport_Click(sender As Object, e As EventArgs) Handles BtImport.Click
+ Dim DoImportu As New List(Of DataGridViewRow) 'kopia zaznaczonych do importu dokumentów
+ Dim Aktwiersz As DataGridViewRow
+ Dim AktualnyDokument As String = ""
+ Dim ret, Nr_ZapisuSrc As Integer
+ Dim sql, ss, tresc, nrdok, s1, s2 As String
+
+ If Not SourceConnected Then Return
+
+ If DgvDokumenty.Rows.Count > 0 Then
+ If System.Windows.Forms.MessageBox.Show("Czy zaimportować zaznaczone dokumenty ?", "", MessageBoxButtons.YesNo) = DialogResult.No Then
+ Return
+ End If
+
+ DoImportu.Clear()
+ UstawKolumny() 'powiązanie nazw kolumn z ich indeksem
+ For Each wiersz In DgvDokumenty.SelectedRows 'zrób kopię zaznaczonych na niebiesko dokumentów
+ Dim targetRow = CType(wiersz.Clone(), DataGridViewRow)
+ For Each cell As DataGridViewCell In wiersz.Cells
+ targetRow.Cells(cell.ColumnIndex).Value = cell.Value
+ Next
+ DoImportu.Add(targetRow)
+ Next
+ If DoImportu.Count > 0 Then
+ 'zaloguj do XL
+ listuj("Start importu: " + Now)
+ ret = PolaczBaze()
+ If ret Then
+ DgvDokumenty.CurrentCell = DgvDokumenty(0, 0)
+ Aktwiersz = DgvDokumenty.CurrentRow
+ For Each wiersz In DoImportu
+ Aktwiersz = wiersz
+ DgvDokumenty.CurrentCell = DgvDokumenty(0, wiersz.Cells.Item(0).Value - 1) 'pokaż aktualnie przetwarzany wiersz
+ If (wiersz.Cells.Item(KD.cDataImp).Value <= "1990-01-01 00:00:00") And (AktualnyDokument <> wiersz.Cells.Item(KD.cDokument).Value) Then 'dekret nie zaimportowany
+ AktualnyDokument = wiersz.Cells.Item(KD.cDokument).Value 'Nowa nota memoriałowa - numer dokumentu w Jastrzębiu
+ Nr_ZapisuSrc = wiersz.Cells.Item(KD.cDekret).Value 'Dekret (DZK_GIDNumer) źródłowy
+ tresc = " "
+ s1 = AktualnyDokument.Substring(0, 2)
+ If s1 = "PZ" Or s1 = "WZ" Or s1 = "KK" Or s1 = "PK" Or s1 = "WK" Then
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cKontrahent).Value), " ", wiersz.Cells.Item(KD.cKontrahent).Value)
+ If ss > " " Then tresc = ss
+ End If
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cOpisDok).Value), " ", wiersz.Cells.Item(KD.cOpisDok).Value)
+ If ss > " " Then
+ If tresc > " " Then tresc += "; " + ss Else tresc = ss
+ End If
+ If tresc < " " Then tresc = "brak opisu"
+ nrdok = ""
+ s1 = AktualnyDokument.Substring(0, 3)
+ If s1 = "PZK" Or s1 = "PKI" Or s1 = "WZK" Or s1 = "WKE" Or s1 = "RWK" Or s1 = "PWK" Then
+ nrdok = AktualnyDokument + ", " + IIf(IsNothing(wiersz.Cells.Item(KD.cDokKor).Value), "", wiersz.Cells.Item(KD.cDokKor).Value)
+ Else
+ nrdok = AktualnyDokument
+ End If
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ Try
+ If UtworzNote(nrdok, wiersz.Cells.Item(KD.cDataWyst).Value, '"Data Wystawienia"
+ wiersz.Cells.Item(KD.cDataWyst).Value, 'wszystkie daty takie same
+ wiersz.Cells.Item(KD.cDokZr).Value, '"Dokument źródłowy"
+ tresc) Then '"treśc noty"
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cDZKOpis).Value), " ", wiersz.Cells.Item(KD.cDZKOpis).Value)
+ s1 = AktualnyDokument.Substring(0, 2)
+ If s1 = "WZ" Or s1 = "WK" Or s1 = "RW" Or s1 = "PW" Then ss = tresc 'dla WZ/WZE/WZK/WKE, RW/RWK/PW/PWK opis pozycji taki sam jak treść noty
+ If DodajPozycjeNoty(Nr_ZapisuSrc, wiersz.Cells.Item(KD.cDataWyst).Value,
+ wiersz.Cells.Item(KD.cDataWyst).Value,
+ ss, nrdok) Then 'dodajpozycje noty
+ ZamknijNote(True) 'zamknij notę
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ 'oznacz dokument jako zaimportowany
+ sql = "update CDN.Dekrety Set DT_DataCentrali = datediff(s,'19900101', GetDate()) where DT_GIDNUmer = " & Str(Nr_ZapisuSrc)
+ SqlCmd(sql, SrcConn_str)
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ 'AktualnyDokument = ""
+ sql = "update CDN.MemNag set MEN_CechaOpis = '" + IIf(IsNothing(wiersz.Cells.Item(KD.cMagazyn).Value), "", wiersz.Cells.Item(KD.cMagazyn).Value) + "' "
+ sql += " where MEN_GIDNumer = " + CStr(GIDNumer)
+ SqlCmd(sql, DstConn_str)
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ Else
+ ZamknijNote(False) 'usuń utworzoną notę
+ AktualnyDokument = ""
+ End If
+ End If
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show("ImportClick: " & ex.Message)
+ End Try
+ Else
+ listuj(CStr(Now) & "-> Dokument: " & wiersz.Cells.Item(2).Value & " już jest zaimportowany !!")
+ End If
+ Next
+ End If
+ Tylko_Listing = False
+ OdswiezDane()
+ End If
+ TcZakladki.SelectedTab = TpList
+ TpList.Select()
+ End If
+ End Sub
+
+ Private Sub BtKonfig_Click(sender As Object, e As EventArgs) Handles BtKonfig.Click
+ dlgKonfig.ShowDialog()
+ End Sub
+
+ Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
+ Dim plik As String
+
+ Timer.Stop()
+ My.Settings.Reload()
+ Try
+ plik = My.Settings.FolderR_Roboczy + "\ImportDM-" + Replace(Replace(Replace(Now, ":", "."), "/", "."), " ", "_") + ".LOG"
+ f_out = System.IO.File.CreateText(plik)
+ Tylko_Listing = False
+ Catch
+ Tylko_Listing = True
+ End Try
+ Timer.Enabled = False
+ Application.DoEvents()
+ If My.Settings.SerwerSrc > "" Then
+ SrcConn_str = zrob_polaczenie(My.Settings.SerwerSrc, My.Settings.BazaSrc, My.Settings.MCsrc, My.Settings.Comsrc)
+ Tamy_ImpDM_Src.Connection.ConnectionString = SrcConn_str
+ Tamy_ImpDM_Dekr.Connection.ConnectionString = SrcConn_str
+ Tamy_ImpDM_Konta.Connection.ConnectionString = SrcConn_str
+ SourceConnected = True
+ Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
+ BsTbmyImpDMKonta.ResetBindings(False)
+ OdswiezDane()
+ End If
+ If My.Settings.SerwerKlucza > "" And My.Settings.BazaDst > "" Then PolaczBaze()
+ 'If Zalogowany Then OdswiezDane()
+ End Sub
+
+ Private Sub BtUsunFlage_Click(sender As Object, e As EventArgs) Handles BtUsunFlage.Click
+ If DgvDokumenty.Rows.Count > 0 Then
+ If System.Windows.Forms.MessageBox.Show("Czy usunąć flagę z zaznaczonych dokumentów ?", "", MessageBoxButtons.YesNo) = DialogResult.Yes Then
+ Dim sql As String
+ Dim col As Integer
+
+ col = DgvDokumenty.Columns("colDekret").Index
+ For Each wiersz In DgvDokumenty.SelectedRows
+ sql = "update CDN.Dekrety set DT_DataCentrali = 0 where DT_GIDNUmer = " & Str(wiersz.Cells(col).Value)
+ SqlCmd(sql, SrcConn_str)
+ Next
+ OdswiezDane()
+ End If
+ End If
+ End Sub
+
+ Private Sub BtKoniec_Click(sender As Object, e As EventArgs) Handles BtKoniec.Click
+ Wyloguj()
+ If Not IsNothing(f_out) Then
+ f_out.Flush()
+ f_out.Close()
+ End If
+ Close()
+ End Sub
+
+ Private Sub OdswiezDane()
+ Dim Konto As String
+ Dim ImpFl, pos As Integer
+
+ If Not SourceConnected Then Return
+
+ Konto = CbKonto.Text
+ ImpFl = 2
+ If RbBlack.Checked Then ImpFl = 0 Else If RbRed.Checked Then ImpFl = 1
+
+ RM = CInt(CStr(Rok) & IIf(Mies < 10, "0", "") & CStr(Mies))
+ If RM < 2001 Or Mies <= 0 Then Return
+ Try
+ lbUwaga.Visible = True
+ Application.DoEvents()
+ lbUwaga.BringToFront()
+ Application.DoEvents()
+ lbUwaga.Refresh()
+ Application.DoEvents()
+ pos = BsTbmy_ImpDM_Src.Position
+ Tamy_ImpDM_Src.Fill(Me.DsMain.Tbmy_ImpDM_Src, SpFlag, ZakFlag, WewFlag, RM, Rok, Mies, Konto, ImpFl)
+ If pos < BsTbmy_ImpDM_Src.Count Then BsTbmy_ImpDM_Src.Position = pos Else BsTbmy_ImpDM_Src.Position = BsTbmy_ImpDM_Src.Count - 1
+ lbUwaga.Visible = False
+ lbUwaga.Invalidate()
+ Catch ex As System.Exception
+ lbUwaga.Visible = False
+ Application.DoEvents()
+ lbUwaga.Refresh()
+ Application.DoEvents()
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+ End Sub
+
+ Private Sub MainFrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+ Dim spr As String
+
+ SpFlag = 0
+ ZakFlag = 0
+ WewFlag = 0
+ Rok = Year(Now)
+ Mies = Month(Now)
+ edRok.Value = Rok
+ CbMiesiac.SelectedIndex = Mies - 1
+ CbMiesiac.Text = CbMiesiac.Items(CbMiesiac.SelectedIndex)
+ RbAll.Checked = True
+ CbKonto.Text = ""
+ spr = Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper)
+ DecimalSep = NumberFormatInfo.CurrentInfo.NumberDecimalSeparator.ToString
+ DecimalGroupSep = NumberFormatInfo.CurrentInfo.NumberGroupSeparator.ToString
+ If spr <> My.Settings.check Then
+ MsgBox("Niezgodna konfiguracja. Ustaw od nowa")
+ My.Settings.SerwerSrc = ""
+ ' My.Settings.SerwerDst = ""
+ My.Settings.SerwerKlucza = ""
+ My.Settings.BazaSrc = ""
+ ' My.Settings.BazaDst = ""
+ My.Settings.FolderR_Roboczy = ""
+ My.Settings.MCsrc = ""
+ ' My.Settings.MCdst = ""
+ My.Settings.Comsrc = ""
+ ' My.Settings.Comdst = ""
+ My.Settings.check = spr
+ My.Settings.Save()
+ End If
+ Timer.Start()
+ End Sub
+
+ Public Sub listuj(ByVal linia As String)
+ If linia > "" Then
+ LstWynik.Items.Add(linia)
+
+ If Not Tylko_Listing Then
+ f_out.WriteLine(linia)
+ End If
+ If (LstWynik.Items.Count - 1) > 0 Then
+ LstWynik.TopIndex = Me.LstWynik.Items.Count - 1
+ Else
+ LstWynik.TopIndex = 0
+ End If
+ Application.DoEvents()
+ End If
+ End Sub
+
+ Public Function SqlCmd(ByVal sql As String, conn_str As String) As Boolean
+ Dim wynik As Boolean
+
+ wynik = False
+ Try
+ Using connection As New SqlClient.SqlConnection(conn_str)
+ Dim command As New SqlClient.SqlCommand(sql, connection)
+ connection.Open()
+ command.ExecuteNonQuery()
+ wynik = True
+ End Using
+ Catch ex As Exception
+ My.Forms.MainFrm.listuj(ex.Message)
+ End Try
+ Return (wynik)
+ End Function
+
+ Public Function GetOneVal(ByVal sql As String, conn_str As String) As String
+ Dim val As String
+
+ val = ""
+ Try
+ Using connection As New SqlClient.SqlConnection(conn_str)
+ Dim command As New SqlClient.SqlCommand(sql, connection)
+ connection.Open()
+ Dim reader As SqlClient.SqlDataReader = command.ExecuteReader()
+ While reader.Read()
+ If reader.IsDBNull(0) Then
+ val = ""
+ Else
+ val = CType(reader, IDataRecord)(0)
+ End If
+ End While
+ reader.Close()
+ End Using
+ Catch ex As Exception
+ My.Forms.MainFrm.listuj(ex.Message)
+ End Try
+ GetOneVal = val
+ End Function
+
+End Class
diff --git a/.svn/pristine/18/1860974398c02404017cb59aee28bf61d38bdd9b.svn-base b/.svn/pristine/18/1860974398c02404017cb59aee28bf61d38bdd9b.svn-base
new file mode 100644
index 0000000..66fdd80
--- /dev/null
+++ b/.svn/pristine/18/1860974398c02404017cb59aee28bf61d38bdd9b.svn-base
@@ -0,0 +1,58 @@
+
+
+
+
+
+ <?xml version="1.0" encoding="utf-16"?>
+<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <ConnectionString>Data Source=10.0.2.252\GOTECSQL2;Initial Catalog=CDNXL_GOTEC_J;Integrated Security=True</ConnectionString>
+ <ProviderName>System.Data.SqlClient</ProviderName>
+</SerializableConnectionString>
+ Data Source=10.0.2.252\GOTECSQL2;Initial Catalog=CDNXL_GOTEC_J;Integrated Security=True
+
+
+ <?xml version="1.0" encoding="utf-16"?>
+<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <ConnectionString>Data Source=192.168.17.100;Initial Catalog=CDNXL_GOTEC_80;Integrated Security=True</ConnectionString>
+ <ProviderName>System.Data.SqlClient</ProviderName>
+</SerializableConnectionString>
+ Data Source=192.168.17.100;Initial Catalog=CDNXL_GOTEC_80;Integrated Security=True
+
+
+ c:\temp
+
+
+ mserv\sql08r2
+
+
+ crispcas\sql17
+
+
+ MAG_JAST
+
+
+ 10.0.2.252\GOTECSQL2
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDNXL_GOTEC_J
+
+
+ CDNXL_GOTEC_80
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/1a/1a0868af20aa72e84b610a0050e8d3eb0f9d1a5e.svn-base b/.svn/pristine/1a/1a0868af20aa72e84b610a0050e8d3eb0f9d1a5e.svn-base
new file mode 100644
index 0000000..905042c
--- /dev/null
+++ b/.svn/pristine/1a/1a0868af20aa72e84b610a0050e8d3eb0f9d1a5e.svn-base
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Ogólne informacje o zestawie są kontrolowane poprzez następujący
+' zestaw atrybutów. Zmień wartości tych atrybutów, aby zmodyfikować informacje
+' powiązane z zestawem.
+
+' Sprawdź wartości atrybutów zestawu
+
+
+
+
+
+
+
+
+
+
+'Następujący identyfikator GUID jest identyfikatorem biblioteki typów w przypadku udostępnienia tego projektu w modelu COM
+
+
+' Informacje o wersji zestawu zawierają następujące cztery wartości:
+'
+' Wersja główna
+' Wersja pomocnicza
+' Numer kompilacji
+' Rewizja
+'
+' Możesz określić wszystkie wartości lub użyć domyślnych numerów kompilacji i poprawki
+' przy użyciu symbolu „*”, tak jak pokazano poniżej:
+'
+
+
+
diff --git a/.svn/pristine/1a/1a0adb500a773ed60fc475be79fe6ef7f81e3e20.svn-base b/.svn/pristine/1a/1a0adb500a773ed60fc475be79fe6ef7f81e3e20.svn-base
new file mode 100644
index 0000000..ebbcdb7
--- /dev/null
+++ b/.svn/pristine/1a/1a0adb500a773ed60fc475be79fe6ef7f81e3e20.svn-base
@@ -0,0 +1,976 @@
+Public Module FunkcjeXL
+ Const API_VERSION = 20182
+
+ Public Zalogowany As Boolean
+ Public wynikXL As Integer
+ Public Wersja As Integer
+ Dim Ilosc_Bledow As Integer
+ Dim Sesja As Integer
+ Dim IDDokumentu As Integer
+ Public NotaID As Integer
+ Dim Flagi As Integer
+ Dim Komunikat As String
+
+
+ '-------------------------------------------------------
+ ' Funkcja XLLogin - W przypadku podania poprawnych parametrów poprzez strukturę XLLoginInfo _
+ ' logowanie następuję automatycznie. W przeciwnym przypadku otwiera się okno _
+ ' logowania do systemu CDN XL, w którym należy podać poprawne dane. _
+ ' Poprzez parametr sesja zwracany jest numer przydzielonej dla programu sesji. _
+ ' Numerem tym należy się posługiwać przy wywoływaniu następnych funkcji API.
+
+ Public Function Zaloguj(ByVal Baza As String, ByVal CDNop As String, ByVal Haslo As String, ByVal SerwerKlucza As String) As Boolean
+ Dim LoginInfo As New cdn_api.XLLoginInfo_20182
+ Dim sesja_temp As Int32
+
+ If Zalogowany And Sesja > 0 Then
+ wynikXL = 0
+ Ilosc_Bledow = 0
+ Zaloguj = Zalogowany
+ Exit Function
+ End If
+ Try
+ ' listuj(" Logowanie do ERP XL - proszę czekać...", 1)
+ Zalogowany = False
+ Ilosc_Bledow = 0
+ ' AttachThread()
+ Wersja = API_VERSION
+ LoginInfo.Wersja = Wersja ' numer wersji API
+ LoginInfo.UtworzWlasnaSesje = 0
+ LoginInfo.Winieta = -1
+ LoginInfo.TrybWsadowy = 1
+ LoginInfo.TrybNaprawy = 1
+ LoginInfo.ProgramID = "Import dok. magazynowych z Jastrzębia" ' nazwa programu korzystającego z XL-API (pojawia się na liście sesji)
+ LoginInfo.Baza = Baza & Chr(0) ' nazwa bazy danych do której ma nastąpić login pobierana
+ ' z klucza HKEY_CURRENT_USER oraz HKEY_LOCAL_MACHINE (nazwa rejestracji w managerze baz an tym komputerze, nie rzeczywista nazwa bazy !!)
+ ' LoginInfo.OpeIdent = CDNop & Chr(0) ' identyfikator CDNOpera logującego się
+ ' LoginInfo.OpeHaslo = Haslo & Chr(0) ' hasło CDNOpera logującego się
+ LoginInfo.PlikLog = ""
+ LoginInfo.SerwerKlucza = SerwerKlucza
+ Sesja = 0
+ sesja_temp = 0
+ wynikXL = 0
+ wynikXL = cdn_api.cdn_api.XLLogin(LoginInfo, sesja_temp)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLLogin"
+ End Try
+ If wynikXL = 0 Then
+ Sesja = sesja_temp
+ Ilosc_Bledow = 0
+ Zalogowany = True
+ Else
+ Komunikat = "Nieokreślony błąd logowania do XL = " & CStr(wynikXL)
+ Select Case wynikXL
+ Case -9
+ Komunikat = "XLLogin: operator nie jest podpięty do żadnego centrum"
+ Case -8
+ Komunikat = "XLLogin: Nie podano nazwy bazy danych"
+ Case -7
+ Komunikat = "XLLogin: Baza niezarejestrowana w systemie"
+ Case -6
+ Komunikat = "XLLogin: Nie podano hasła lub brak operatora"
+ Case -5
+ Komunikat = "XLLogin: nieprawidłowe hasło"
+ Case -4
+ Komunikat = "XLLogin: konto operatora zablokowane"
+ Case -3
+ Komunikat = "XLLogin: nie podano nazwy programu (pole ProgramID)"
+ Case -2
+ Komunikat = "XLLogin: błąd otwarcia pliku tekstowego, do którego mają być zapisywane komunikaty. Nie znaleziono ścieżki lub nazwa pliku jest nieprawidłowa."
+ Case -1
+ Komunikat = "XLLogin: podano niepoprawną wersję API"
+ Case 1
+ Komunikat = "XLLogin: inicjalizacja nie powiodła się"
+ Case 2
+ Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie (z tego samego komputera i na tego samego operatora)"
+ Case 3
+ Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie z innego komputera i na tego samego operatora, ale operatora nie posiada prawa do wielokrotnego logowania"
+ Case 5
+ Komunikat = "XLLogin: występuje przy pracy terminalowej w przypadku, gdy operatora nie ma prawa do wielokrotnego logowania i na pytanie czy usunąć istniejące sesje terminalowe wybrano odpowiedź ‘Nie’"
+ Case 61
+ Komunikat = "XLLogin: błąd zakładania nowej sesji"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Zalogowany = False
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ End If
+ If Zalogowany Then MainFrm.listuj("Zalogowano")
+ Zaloguj = Zalogowany
+ End Function
+
+
+ '--------------------------------------------------------------------------------------------------
+ 'Funkcja XLPolaczenie - podaje ConnectionStgring do bazy danych
+ ' Funkcja XLPolaczenie - Funkcja umozliwia identyfikację połączenia do bazy
+ ' zwraca nazwę serwera, bazy oraz connect string dla raportowania
+ '--------------------------------------------------------------------------------------------------
+ Public Function Polaczenie(ByVal Baza As String, ByVal Serwer As String) As String
+ Dim PolaczenieInfo As New cdn_api.XLPolaczenieInfo_20182 With
+ {
+ .Wersja = Wersja, ' numer wersji API (20182) ustawiony w funkcji Zaloguj()
+ .NTMode = 0,
+ .Serwer = Serwer + Chr(0),
+ .Baza = Baza + Chr(0),
+ .ConnectString = "" + Chr(0)
+ }
+ wynikXL = 0
+ wynikXL = cdn_api.cdn_api.XLPolaczenie(PolaczenieInfo)
+ If wynikXL >= 0 Then
+ Polaczenie = PolaczenieInfo.ConnectString
+ Else
+ Polaczenie = ""
+ Komunikat = "XLPolaczenie: nieaktywna sesja API lub nieprawidłowy numer wersji"
+ End If
+ End Function
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLLogout - Funkcja ta służy do zamykania sesji otwartej funkcją XLLogin. _
+ ' Parametr sesja określa numer sesji, którą chcemy zamknąć _
+ ' (numer przydzielany funkcją XLLogin).
+ '--------------------------------------------------------------------------------------------------
+ Public Sub Wyloguj()
+ Dim LogoutInfo As New cdn_api.XLLogoutInfo_20182
+ Dim wynik As Integer
+
+ If Zalogowany Or Sesja > 0 Then
+ LogoutInfo.Wersja = Wersja
+ LogoutInfo.TrybUsuwaniaDok = 0
+ If Sesja > 0 Then
+ Try
+ cdn_api.cdn_api.XLLogoutEx(LogoutInfo, Sesja)
+ Catch ex As Exception
+ wynik = -200
+ Komunikat = "Nie rozpoznany błąd API XLLogout"
+ End Try
+ End If
+ Zalogowany = False
+ Sesja = 0
+ End If
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLNowyDokument - Jest to funkcja, która zapoczątkowuje wystawianie dokumentu. _
+ ' Nadaje ona nowy numer nagłówka, pobiera kontrahenta, _
+ ' wypełnia rekord standardowymi ustawieniami i ustawia go w stan zajętości. _
+ ' Wymagane jest użycie w komplecie co najmniej funkcji XLZamknijDokument _
+ ' w celu zakończenia dokumentu i zwolnienia jego zajętości (bez wywołania _
+ ' tej funkcji wewnętrzna kontrola XL'a spowoduje wycofanie wszelkich zapisów _
+ ' do tego dokumentu).
+ '--------------------------------------------------------------------------------------------------
+ Public Sub UtworzNowyDok(DokNagInfo As cdn_api.XLDokumentNagInfo_20182)
+ Dim w, i As Integer
+
+ wynikXL = 0
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLNowyDokument(Sesja, IDDokumentu, DokNagInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLNowyDokument"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ Flagi = DokNagInfo.Flagi
+ w = OpisBledu(1, wynikXL, Flagi)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajPozycje - Funkcja ta jest odpowiedzialna za dodawanie do dokumentu elementów _
+ ' oraz związanych z nim subelementów.
+ '--------------------------------------------------------------------------------------------------
+ Public Sub DodajPozycjeDok(DokEleInfo As cdn_api.XLDokumentElemInfo_20182)
+ Dim w, i As Integer
+
+ wynikXL = 0
+ If IDDokumentu > 0 Then
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajPozycje(IDDokumentu, DokEleInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajPozycje"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ End If
+ Flagi = DokEleInfo.Flagi
+ If wynikXL <> 17 Then w = OpisBledu(2, wynikXL, Flagi) 'bez drukowania kmunikatu, że zabrakło towaru
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijDokument - Funkcja odpowiada za zakończenie pracy z dokumentem.
+ '--------------------------------------------------------------------------------------------------
+
+ Public Sub ZamknijDokument(ByVal Tryb As Integer, Magazynowe As Integer)
+ Dim ZamkniecieDokumentuInfo As New cdn_api.XLZamkniecieDokumentuInfo_20182
+ Dim w, i As Integer
+
+ Try
+ With ZamkniecieDokumentuInfo
+ .Wersja = Wersja
+ .Tryb = Tryb '-10, 0 - zatwierdz dokument, 1 - do bufora, -3 - zamknięcie otwartego dok., -1 - skasowanie dokumentu, -2 - anulowanie
+ .Magazynowe = Magazynowe 'generowanie dokumentów WM i MMP: 0-wg. konfig., 1-nie generuj, 2-gen. do bufora, 3-gen. zatwierdzone
+ 'dla MMW: 0x,1x,2x - WM (bez, bufor, zatw.); x1,x2,x3 - MMP (bez, bufor, zatw.)
+ End With
+ wynikXL = 0
+ If IDDokumentu > 0 Then
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijDokument(IDDokumentu, ZamkniecieDokumentuInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijDokument"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ End If
+ w = OpisBledu(7, wynikXL, 0)
+ Catch ex As Exception
+ wynikXL = -201
+ Komunikat = "Błąd w dostępie do danych w API XLZamknijDokument"
+ End Try
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLPodajKomunikat - Funkcja rozwiązuje podane numery bledów i ostrzeżeń na stringowy
+ ' komunikat, rodzaje trybów: 0-tryb cichy, 1-tylko bledy, 2-bledy i ostrzeżenia
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function OpisBledu(ByVal Funkcja As Integer, ByVal wynik_lokalny As Integer, ByVal Flagi As Integer) As Integer
+ Dim KomunikatInfo As New cdn_api.XLKomunikatInfo_20182
+ Dim Komunikat As String
+
+ OpisBledu = 0
+ If wynik_lokalny < -199 Then
+ MainFrm.listuj("Nie rozpoznany błąd API w funkcji " + CStr(Funkcja))
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja < 900 Then
+ KomunikatInfo.Wersja = Wersja
+ KomunikatInfo.Funkcja = Funkcja
+ KomunikatInfo.Blad = wynik_lokalny
+ KomunikatInfo.Ostrzezenie = Flagi
+ KomunikatInfo.Tryb = 0
+ Try
+ cdn_api.cdn_api.XLOpisBledu(KomunikatInfo)
+ Catch ex As Exception
+ wynik_lokalny = -200
+ Komunikat = "Nie rozpoznany błąd API XLOpisBledu"
+ End Try
+ Komunikat = "!------! UWAGA: " + KomunikatInfo.OpisBledu
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 999 Then
+ Komunikat = "XLOpisBledu: Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case 2
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór z listy, a brak ustawienia trybu selekcji"
+ Case 3
+ Komunikat = "XLOpisBledu: UWAGA: błąd otwarcia tabeli"
+ Case 4
+ Komunikat = "XLOpisBledu: UWAGA: nie znaleziono rekordu o podanym GIDzie"
+ Case 5
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór elementu z listy a brak procedury listy dla takiego typu dokumentu"
+ Case 6
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór grupy z listy, a brak procedury listy dla takiego typu dokumentu"
+ Case 7
+ Komunikat = "XLOpisBledu: UWAGA: ustalono podgląd elementów listy, a brak procedury listy dla takiego typu dokumentu"
+ Case 8
+ Komunikat = "XLOpisBledu: UWAGA: nieobsługiwany GIDTyp"
+ Case Else
+ Komunikat = "XLOpisBledu: UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 998 Then 'Generuj EAN
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 1
+ Komunikat = "UWAGA: Niepoprawny zakres"
+ Case 2
+ Komunikat = "UWAGA: Wystąpił niezidentyfikowany błąd, kod EAN nie został wygenerowany"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 997 Then 'DodajAtrybut do obiektu
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: brak sesji"
+ Case 2
+ Komunikat = "UWAGA: błąd przy zakładaniu logout"
+ Case 3
+ Komunikat = "UWAGA: nie znaleziono obiektu"
+ Case 4
+ Komunikat = "UWAGA: nie znalezniono klasy atrybutu"
+ Case 5
+ Komunikat = "UWAGA: klasa nieprzypisana do definicji obiektu"
+ Case 6
+ Komunikat = "UWAGA: atrybut juz istnieje w kolejce"
+ Case 7
+ Komunikat = "UWAGA: błąd ADO Connection"
+ Case 8
+ Komunikat = "UWAGA: błąd ADO"
+ Case 9
+ Komunikat = "UWAGA: brak zdefiniowanego obiektu"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 996 Then 'Dodaj Partię
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 2
+ Komunikat = "UWAGA: Wystąpił błąd przy próbie zablokowania tabel dla wykonania transakcji"
+ Case 11
+ Komunikat = "UWAGA: nie znaleziono towaru"
+ Case 12
+ Komunikat = "UWAGA: Nie podano towaru"
+ Case 106
+ Komunikat = "UWAGA: Wystąpił błąd DeadLock"
+ Case 160
+ Komunikat = "UWAGA: Nie znaleziono podanej dostawy"
+ Case 178
+ Komunikat = "UWAGA: Partia o takich parametrach nie istnieje"
+ Case 210
+ Komunikat = "UWAGA: Nie znaleziono podanego identyfikatora partii"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 995 Then 'Dokumenty związane
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 1
+ Komunikat = "UWAGA: taki dokument jest już na liście (błąd zwracany przy akcji dodawania)"
+ Case 30
+ Komunikat = "UWAGA: nie znaleziono dokumentu na liście"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 994 Then 'Dodaj Dekret zbiorczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 1031
+ Komunikat = "BŁĄD: Uruchomienie tej operacji nie jest możliwe ze względu na brak dostępu do modułu, problem z połączeniem lub niezgodność danych w kluczu ze stanem faktycznym."
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8005
+ Komunikat = "BŁĄD: Bieżący okres obrachunkowy jest zamknięty do x.
+ Próbujesz księgować lub kasować księgowanie z datą y."
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 993 Then 'Dodaj dekret składowy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8003
+ Komunikat = "BŁĄD: Konto posiada analitykę"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 992 Then 'Zamknij dekret zbiorczy, sumuj dekret zbiorczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 990 Then 'Dodaj dekret pojedynczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8003
+ Komunikat = "BŁĄD: Konto posiada analitykę"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 989 Then 'Dodaj dekret pojedynczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -3
+ Komunikat = "BŁĄD: brak GIDTypu noty"
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 1
+ Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka;"
+ Case 2
+ Komunikat = "BŁĄD: błędny numer noty (XLNotaInfo.Numer już istnieje w ramach serii/miesiąca);"
+ Case 3
+ Komunikat = "BŁĄD: brak definicji noty"
+ Case 4
+ Komunikat = "BŁĄD: brak podmiotu (kontrahenta lub pracownika);"
+ Case 5
+ Komunikat = "BŁĄD: Nie znaleziono podanej waluty"
+ Case 6
+ Komunikat = "BŁĄD: brak płatnika"
+ Case 7
+ Komunikat = "BŁĄD: nota nie posiada treści"
+ Case 8
+ Komunikat = "BŁĄD: brak praw do używania tego modułu"
+ Case 9
+ Komunikat = "BŁĄD: seria nie istnieje w systemie"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań lub konto nie znajduje się w bieżącym okresie"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto lub oba konta puste"
+ Case 8047
+ Komunikat = "BŁĄD: po obu stronach pozycji noty konta rozrachunkowe"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 988 Then 'Dodaj dekret pojedynczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 3
+ Komunikat = "BŁĄD: brak definicji noty"
+ Case 5
+ Komunikat = "BŁĄD: brak noty o podanym ID"
+ Case 7
+ Komunikat = "BŁĄD: pozycja noty nie posiada opisu"
+ Case 8
+ Komunikat = "BŁĄD: brak symbolu kwoty"
+ Case 9
+ Komunikat = "BŁĄD: błąd dodawania pozycji noty"
+ Case 10
+ Komunikat = "BŁĄD: błąd synchronizacji konta walutowego"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań lub konto nie znajduje się w bieżącym okresie"
+ Case 8047
+ Komunikat = "BŁĄD: z uwagi na płatności, wygenerowanie noty nie jest możliwe. W ramach zapisu wprowadzono dekrety dwustronne, zawierające po obydwu stronach konta rozrachunkowe"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 987 Then 'Dodaj dekret pojedynczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 1
+ Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka"
+ Case 2
+ Komunikat = "BŁĄD: błędny numer noty (XLNotaInfo.Numer już istnieje w ramach serii/miesiąca);"
+ Case 3
+ Komunikat = "BŁĄD: brak definicji noty"
+ Case 5
+ Komunikat = "BŁĄD: brak noty o podanym ID"
+ Case 6
+ Komunikat = "BŁĄD: nota niezgodna z definicją (przychodowa/rozchodowa, podmiot);"
+ Case 7
+ Komunikat = "BŁĄD: nie udało się wygenerowanie płatności;"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 986 Then 'Dodaj dekret pojedynczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -2
+ Komunikat = "BŁĄD: błąd zakładania transakcji"
+ Case -1
+ Komunikat = "BŁĄD: niewłaściwy parametr SesjaID"
+ Case 1
+ Komunikat = "BŁĄD: błąd dodawania/aktualizacji/kasowania nagłówka"
+ Case 5
+ Komunikat = "BŁĄD: brak noty o podanym ID"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ End If
+ End Function
+
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLPobierzNumerDokumentu rozwiązuje GID na sformatowany numer dokumentu
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function NumerDokumentu(ByVal GIDTyp As Integer, ByVal GIDFirma As Integer, ByVal GIDNumer As Integer, ByVal GIDLp As Integer) As String
+ Dim NumerDokumentuInfo As New cdn_api.XLNumerDokumentuInfo_20182
+ Dim nrd As String
+
+ NumerDokumentuInfo.Wersja = Wersja
+ NumerDokumentuInfo.GIDTyp = GIDTyp
+ NumerDokumentuInfo.GIDFirma = GIDFirma
+ NumerDokumentuInfo.GIDNumer = GIDNumer
+ NumerDokumentuInfo.GIDLp = GIDLp
+
+ Try
+ wynikXL = cdn_api.cdn_api.XLPobierzNumerDokumentu(NumerDokumentuInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLPobierzNumerDokumentu"
+ End Try
+ NumerDokumentu = ""
+ nrd = ""
+ If wynikXL = 0 Then
+ nrd = NumerDokumentuInfo.NumerDokumentu
+ Else
+ If wynikXL = -1 Then
+ Komunikat = "XLPobierzNumerDokumentu: nieaktywna sesja API lub nieprawidłowy numer wersji"
+ ElseIf wynikXL = 1 Then
+ Komunikat = "XLPobierzNumerDokumentu: nie znaleziono dokumentu"
+ ElseIf wynikXL = 2 Then
+ Komunikat = "XLPobierzNumerDokumentu: podano nieobsługiwany GIDTyp"
+ End If
+ MainFrm.listuj(Komunikat)
+ End If
+ NumerDokumentu = RTrim(nrd)
+ End Function
+
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function XLSprawdzLicencje() As Boolean
+ Dim LicencjaInfo As New cdn_api.XLLicencjaInfo_20182 With
+ {
+ .Wersja = Wersja,
+ .Licencja = 1,
+ .Odswiez = 1,
+ .Stan = 0
+ }
+
+ wynikXL = 0
+ XLSprawdzLicencje = False
+ Try
+ wynikXL = cdn_api.cdn_api.XLSprawdzLicencje(LicencjaInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLSprawdzLicencje"
+ End Try
+ If LicencjaInfo.Stan = 1 Then
+ XLSprawdzLicencje = True
+ Else
+ Komunikat = "Błąd API XLSprawdzLicencje = " & CStr(wynikXL)
+ If wynikXL = 0 Then
+ Select Case LicencjaInfo.Stan
+ Case 0
+ Komunikat = "XLSprawdzLicencje: nie pobrano licencji"
+ Case 2
+ Komunikat = "XLSprawdzLicencje: nie pobrano licencji - błąd pobrania licencji bądź ilość licencji wyczerpana"
+ Case 3
+ Komunikat = "XLSprawdzLicencje: licencja przeterminowana"
+ Case 4
+ Komunikat = "XLSprawdzLicencje: licencja promocyjna"
+ End Select
+ ElseIf wynikXL = -1 Then
+ Komunikat = "XLSprawdzLicencje: Sesja API nieaktywna lub nieprawidłowy numer"
+ ElseIf wynikXL = 1 Then
+ Komunikat = "XLSprawdzLicencje: błąd klucza sprzętowego"
+ End If
+ MainFrm.listuj(Komunikat)
+ End If
+ End Function
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretPojedynczy - Funkcja dodaje jeden dekret pojedynczy - bez nagłówka
+
+ Sub XLDodajDekretPoj()
+ Dim DekretInfo As New cdn_api.XLDekretInfo_20182
+ Dim w As Integer
+
+ With DekretInfo
+ .Wersja = Wersja
+ '.Tryb = Range("b6").Value 'Tryb wystawienia (interakcyjny/wsadowy)
+ '.GIDTyp = Range("b7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("b8").Value '
+ '.GIDNumer = Range("b9").Value '
+ '.GIDLp = Range("b10").Value '
+ '.Data = Range("b11").Value 'Data dekretu
+ '.DataDokumentu = Range("b12").Value 'Data dokumentu
+ '.Kwota = Str(Range("b13").Value) 'Kwota pomnożona przez 100
+ '.KwotaWalDT = Str(Range("b14").Value) 'Kwota winien w walucie pomnożona przez 100
+ '.KwotaWalCT = Str(Range("b15").Value) 'Kwota ma w walucie pomnożona przez 100
+ '.NumerDokumentu = Range("b16").Value + Chr(0) 'Numer dokumentu
+ '.Dziennik = Range("b17").Value + Chr(0) 'Dziennik księgowań
+ '.Bufor = Range("b18").Value + Chr(0) 'Bufor księgowań (pusty = KG)
+ '.KontoDebet = Range("b19").Value + Chr(0) 'Numer konta winien (WN)
+ '.KontoCredit = Range("b20").Value + Chr(0) 'Numer konta ma (MA)
+ '.KontoWalDT = Range("b21").Value + Chr(0)
+ '.KontoWalCT = Range("b22").Value + Chr(0)
+ '.Identyfikator = Range("b23").Value
+ '.Opis = Range("b24").Value + Chr(0) 'Opis dekretu
+ End With
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretPojedynczy(Sesja, DekretInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretPojedynczy"
+ End Try
+ w = OpisBledu(990, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretZbiorczy - Funkcja dodaje nagłówek dekretu zbiorczego
+
+ Sub XLDodajDekretZb(DekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20182)
+ Dim w As Integer
+
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretZbiorczy(Sesja, DekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretZbiorczy"
+ End Try
+ w = OpisBledu(994, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretSkladowy - Funkcja dodaje jeden dekret składowy w otwartym dekrecie zbiorczym
+
+ Sub XLDodajDekretSkl(DekretSkladowyInfo As cdn_api.XLDekretInfo_20182)
+ Dim w As Integer
+
+ With DekretSkladowyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretSkladowy(Sesja, DekretSkladowyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretSkładowy"
+ End Try
+ w = OpisBledu(993, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijDekretZbiorczy - Funkcja zamyka dekret zbiorczy
+
+ Sub XLZamknijDekretZb(ZamknijDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20182)
+ Dim w As Integer
+
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijDekretZbiorczy(Sesja, ZamknijDekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijDekretZbiorczy"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLSumujDekret - Funkcja podaje sumę dekretu zbiorczego
+
+ Sub XLSumujDekretZb(SumujDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20182)
+ Dim w As Integer
+
+ With SumujDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ '.GIDTyp = Range("n7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("n8").Value '
+ '.GIDNumer = Range("n9").Value '
+ '.GIDLp = Range("n10").Value '
+ '.Data = Range("n11").Value 'Data dekretu
+ '.DataDokumentu = Range("n12").Value 'Data dokumentu
+ '.KwotaDebet = Str(Range("n13").Value) + Chr(0) 'Kwota sumaryczna winien pomnożona przez 100
+ '.KwotaCredit = Str(Range("n14").Value) + Chr(0) 'Kwota sumaryczna ma pomnożona przez 100
+ '.NumerDokumentu = Range("n15").Value + Chr(0) 'Numer dokumentu
+ '.Dziennik = Range("n16").Value + Chr(0) 'Dziennik księgowań
+ '.Bufor = Range("n17").Value + Chr(0) 'Bufor księgowań (pusty = KG)
+ '.Identyfikator = Range("n18").Value
+ '.Opis = Range("n19").Value + Chr(0) 'Opis dekretu
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLSumujDekretZbiorczy(Sesja, SumujDekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLSumujDekretZbiorczy"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLKasujDekret - Funkcja kasuje dekret
+
+ Sub XLKasujDekretzb(KasujDekretInfo As cdn_api.XLDekretInfo_20182)
+ Dim w As Integer
+
+ With KasujDekretInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLKasujDekret(Sesja, KasujDekretInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLKasujDekret"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajNote
+
+ Sub XLDodajNoteMem(NotaInfo As cdn_api.XLNotaInfo_20182)
+ Dim w, IDNoty As Integer
+
+ NotaID = 0
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ .GIDTyp = 4145 'nota uproszczona
+ '.DataWprow = Range("b24").Value
+ '.DataDok = Range("b25").Value
+ '.DataOper = Range("b26").Value
+ '.Seria = Range("b32").Value + Chr(0)
+ '.NumerDokumentu = Range("b33").Value + Chr(0)
+ '.Tresc = Range("b34").Value + Chr(0)
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajNote(Sesja, IDNoty, NotaInfo)
+ NotaID = IDNoty
+ Catch ex As Exception
+ wynikXL = -200
+ NotaID = 0
+ Komunikat = "Nie rozpoznany błąd API XLDodajNote"
+ End Try
+ w = OpisBledu(989, wynikXL, 0)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajPozycjeNoty - Funkcja ta dodaje element do otwartej wcześniej noty
+
+ Sub XLDodajPozycjeNotyMem(PozycjaNotyInfo As cdn_api.XLPozycjaNotyInfo_20182)
+ Dim w As Integer
+
+ With PozycjaNotyInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ '.KKSNumerDT = Range("e15").Value
+ '.KKSNumerCT = Range("e16").Value
+ '.DataDok = Range("e21").Value
+ '.DataOper = Range("e22").Value
+ '.Kwota = Str(Range("e23").Value) + Chr(0)
+ '.Opis = Range("e24").Value + Chr(0)
+ '.NumerDokumentu = Range("e29").Value
+ End With
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajPozycjeNoty(Sesja, NotaID, PozycjaNotyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajPozycjeNoty"
+ End Try
+ w = OpisBledu(988, wynikXL, 0)
+ End Sub
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijNote - Funkcja ta zamyka otwartą notę memoriałową
+
+ Sub XLZamknijNoteMem(NotaInfo As cdn_api.XLNotaInfo_20182)
+ Dim w As Integer
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijNote(Sesja, NotaID, NotaInfo)
+ NotaID = 0
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijNote"
+ End Try
+ w = OpisBledu(987, wynikXL, 0)
+ End Sub
+
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLKasujNote - Funkcja ta kasuje notę memoriałową
+
+ Sub XLKasujNoteMem(NotaInfo As cdn_api.XLNotaInfo_20182)
+ Dim w As Integer
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2
+ '.GIDTyp = Range("k7").Value
+ '.GIDFirma = Range("k8").Value
+ '.GIDNumer = Range("k9").Value
+ '.GIDLp = Range("k10").Value
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLKasujNote(Sesja, NotaID, NotaInfo)
+ NotaID = 0
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLKasujNote"
+ End Try
+ w = OpisBledu(986, wynikXL, 0)
+ End Sub
+
+End Module
diff --git a/.svn/pristine/1b/1b44d3fc12b22fd4356afc8f5d81a15d9a0e24a9.svn-base b/.svn/pristine/1b/1b44d3fc12b22fd4356afc8f5d81a15d9a0e24a9.svn-base
new file mode 100644
index 0000000..1a2019d
--- /dev/null
+++ b/.svn/pristine/1b/1b44d3fc12b22fd4356afc8f5d81a15d9a0e24a9.svn-base
@@ -0,0 +1,710 @@
+
+Partial Class MainFrm
+ Inherits System.Windows.Forms.Form
+
+ 'Formularz przesłania metodę dispose, aby wyczyścić listę składników.
+
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wymagane przez Projektanta formularzy systemu Windows
+ Private components As System.ComponentModel.IContainer
+
+ 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows
+ 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows.
+ 'Nie należy modyfikować za pomocą edytora kodu.
+
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainFrm))
+ Me.TlMainPanel = New System.Windows.Forms.TableLayoutPanel()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GbRadio = New System.Windows.Forms.GroupBox()
+ Me.RbAll = New System.Windows.Forms.RadioButton()
+ Me.RbBlack = New System.Windows.Forms.RadioButton()
+ Me.RbRed = New System.Windows.Forms.RadioButton()
+ Me.CbWewn = New System.Windows.Forms.CheckBox()
+ Me.CbZakup = New System.Windows.Forms.CheckBox()
+ Me.CbSprzedaz = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.CbKonto = New System.Windows.Forms.ComboBox()
+ Me.BsTbmyImpDMKonta = New System.Windows.Forms.BindingSource(Me.components)
+ Me.DsMain = New ImportDokMag.DsMain()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.edRok = New System.Windows.Forms.NumericUpDown()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.CbMiesiac = New System.Windows.Forms.ComboBox()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.BtImport = New System.Windows.Forms.Button()
+ Me.lbUwaga = New System.Windows.Forms.Button()
+ Me.BtKonfig = New System.Windows.Forms.Button()
+ Me.BtUsunFlage = New System.Windows.Forms.Button()
+ Me.BtKoniec = New System.Windows.Forms.Button()
+ Me.BtOdswiez = New System.Windows.Forms.Button()
+ Me.TcZakladki = New System.Windows.Forms.TabControl()
+ Me.TpDocs = New System.Windows.Forms.TabPage()
+ Me.DgvDokumenty = New System.Windows.Forms.DataGridView()
+ Me.colLp = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokument = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokZr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKOpis = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataWyst = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataOper = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaCT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaDT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKDziennik = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDekret = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colRokMiesiac = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataImportu = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colMagazyn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colKontrahent = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colOpisDok = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokKoryg = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.BsTbmy_ImpDM_Src = New System.Windows.Forms.BindingSource(Me.components)
+ Me.TpList = New System.Windows.Forms.TabPage()
+ Me.LstWynik = New System.Windows.Forms.ListBox()
+ Me.Timer = New System.Windows.Forms.Timer(Me.components)
+ Me.Tamy_ImpDM_Src = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Src()
+ Me.TableAdapterManager = New ImportDokMag.DsMainTableAdapters.TableAdapterManager()
+ Me.BsTbmy_ImpDM_Dekr = New System.Windows.Forms.BindingSource(Me.components)
+ Me.Tamy_ImpDM_Dekr = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Dekr()
+ Me.Tamy_ImpDM_Konta = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Konta()
+ Me.TlMainPanel.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.GbRadio.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ CType(Me.BsTbmyImpDMKonta, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.TcZakladki.SuspendLayout()
+ Me.TpDocs.SuspendLayout()
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TpList.SuspendLayout()
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'TlMainPanel
+ '
+ Me.TlMainPanel.ColumnCount = 2
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 150.0!))
+ Me.TlMainPanel.Controls.Add(Me.Panel1, 0, 0)
+ Me.TlMainPanel.Controls.Add(Me.Panel2, 0, 2)
+ Me.TlMainPanel.Controls.Add(Me.TableLayoutPanel1, 1, 1)
+ Me.TlMainPanel.Controls.Add(Me.BtKoniec, 1, 2)
+ Me.TlMainPanel.Controls.Add(Me.BtOdswiez, 1, 0)
+ Me.TlMainPanel.Controls.Add(Me.TcZakladki, 0, 1)
+ Me.TlMainPanel.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TlMainPanel.Location = New System.Drawing.Point(3, 3)
+ Me.TlMainPanel.Name = "TlMainPanel"
+ Me.TlMainPanel.RowCount = 3
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 7.102805!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 92.89719!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 65.0!))
+ Me.TlMainPanel.Size = New System.Drawing.Size(774, 651)
+ Me.TlMainPanel.TabIndex = 0
+ '
+ 'Panel1
+ '
+ Me.Panel1.Controls.Add(Me.GbRadio)
+ Me.Panel1.Controls.Add(Me.CbWewn)
+ Me.Panel1.Controls.Add(Me.CbZakup)
+ Me.Panel1.Controls.Add(Me.CbSprzedaz)
+ Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(618, 35)
+ Me.Panel1.TabIndex = 1
+ '
+ 'GbRadio
+ '
+ Me.GbRadio.Controls.Add(Me.RbAll)
+ Me.GbRadio.Controls.Add(Me.RbBlack)
+ Me.GbRadio.Controls.Add(Me.RbRed)
+ Me.GbRadio.Dock = System.Windows.Forms.DockStyle.Right
+ Me.GbRadio.Location = New System.Drawing.Point(241, 0)
+ Me.GbRadio.Name = "GbRadio"
+ Me.GbRadio.Size = New System.Drawing.Size(377, 35)
+ Me.GbRadio.TabIndex = 3
+ Me.GbRadio.TabStop = False
+ '
+ 'RbAll
+ '
+ Me.RbAll.AutoSize = True
+ Me.RbAll.Location = New System.Drawing.Point(297, 9)
+ Me.RbAll.Name = "RbAll"
+ Me.RbAll.Size = New System.Drawing.Size(73, 17)
+ Me.RbAll.TabIndex = 2
+ Me.RbAll.TabStop = True
+ Me.RbAll.Text = "Wszystkie"
+ Me.RbAll.UseVisualStyleBackColor = True
+ '
+ 'RbBlack
+ '
+ Me.RbBlack.AutoSize = True
+ Me.RbBlack.Location = New System.Drawing.Point(164, 9)
+ Me.RbBlack.Name = "RbBlack"
+ Me.RbBlack.Size = New System.Drawing.Size(101, 17)
+ Me.RbBlack.TabIndex = 1
+ Me.RbBlack.TabStop = True
+ Me.RbBlack.Text = "Nieimportowane"
+ Me.RbBlack.UseVisualStyleBackColor = True
+ '
+ 'RbRed
+ '
+ Me.RbRed.AutoSize = True
+ Me.RbRed.Location = New System.Drawing.Point(34, 9)
+ Me.RbRed.Name = "RbRed"
+ Me.RbRed.Size = New System.Drawing.Size(98, 17)
+ Me.RbRed.TabIndex = 0
+ Me.RbRed.TabStop = True
+ Me.RbRed.Text = "Zaimportowane"
+ Me.RbRed.UseVisualStyleBackColor = True
+ '
+ 'CbWewn
+ '
+ Me.CbWewn.AutoSize = True
+ Me.CbWewn.Location = New System.Drawing.Point(146, 9)
+ Me.CbWewn.Name = "CbWewn"
+ Me.CbWewn.Size = New System.Drawing.Size(86, 17)
+ Me.CbWewn.TabIndex = 2
+ Me.CbWewn.Text = "Wewnętrzne"
+ Me.CbWewn.UseVisualStyleBackColor = True
+ '
+ 'CbZakup
+ '
+ Me.CbZakup.AutoSize = True
+ Me.CbZakup.Location = New System.Drawing.Point(83, 9)
+ Me.CbZakup.Name = "CbZakup"
+ Me.CbZakup.Size = New System.Drawing.Size(57, 17)
+ Me.CbZakup.TabIndex = 1
+ Me.CbZakup.Text = "Zakup"
+ Me.CbZakup.UseVisualStyleBackColor = True
+ '
+ 'CbSprzedaz
+ '
+ Me.CbSprzedaz.AutoSize = True
+ Me.CbSprzedaz.Location = New System.Drawing.Point(7, 9)
+ Me.CbSprzedaz.Name = "CbSprzedaz"
+ Me.CbSprzedaz.Size = New System.Drawing.Size(70, 17)
+ Me.CbSprzedaz.TabIndex = 0
+ Me.CbSprzedaz.Text = "Sprzedaż"
+ Me.CbSprzedaz.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Controls.Add(Me.CbKonto)
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.edRok)
+ Me.Panel2.Controls.Add(Me.Label2)
+ Me.Panel2.Controls.Add(Me.Label1)
+ Me.Panel2.Controls.Add(Me.CbMiesiac)
+ Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel2.Location = New System.Drawing.Point(3, 588)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(618, 60)
+ Me.Panel2.TabIndex = 2
+ '
+ 'CbKonto
+ '
+ Me.CbKonto.DataSource = Me.BsTbmyImpDMKonta
+ Me.CbKonto.DisplayMember = "Konto"
+ Me.CbKonto.FormattingEnabled = True
+ Me.CbKonto.Location = New System.Drawing.Point(415, 20)
+ Me.CbKonto.Name = "CbKonto"
+ Me.CbKonto.Size = New System.Drawing.Size(121, 21)
+ Me.CbKonto.TabIndex = 5
+ Me.CbKonto.ValueMember = "Konto"
+ '
+ 'BsTbmyImpDMKonta
+ '
+ Me.BsTbmyImpDMKonta.DataMember = "Tbmy_ImpDM_Konta"
+ Me.BsTbmyImpDMKonta.DataSource = Me.DsMain
+ '
+ 'DsMain
+ '
+ Me.DsMain.DataSetName = "DsMain"
+ Me.DsMain.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(366, 24)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(35, 13)
+ Me.Label3.TabIndex = 4
+ Me.Label3.Text = "Konto"
+ '
+ 'edRok
+ '
+ Me.edRok.Location = New System.Drawing.Point(37, 22)
+ Me.edRok.Maximum = New Decimal(New Integer() {3000, 0, 0, 0})
+ Me.edRok.Minimum = New Decimal(New Integer() {2000, 0, 0, 0})
+ Me.edRok.Name = "edRok"
+ Me.edRok.Size = New System.Drawing.Size(120, 20)
+ Me.edRok.TabIndex = 0
+ Me.edRok.Value = New Decimal(New Integer() {2019, 0, 0, 0})
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Location = New System.Drawing.Point(169, 24)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(43, 13)
+ Me.Label2.TabIndex = 3
+ Me.Label2.Text = "Miesiąc"
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Location = New System.Drawing.Point(4, 24)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(27, 13)
+ Me.Label1.TabIndex = 2
+ Me.Label1.Text = "Rok"
+ '
+ 'CbMiesiac
+ '
+ Me.CbMiesiac.FormattingEnabled = True
+ Me.CbMiesiac.Items.AddRange(New Object() {"styczeń", "luty", "marzec", "kwiecień", "maj", "czerwiec", "lipiec", "sierpień", "wrzesień", "październik", "listopad", "grudzień"})
+ Me.CbMiesiac.Location = New System.Drawing.Point(218, 21)
+ Me.CbMiesiac.Name = "CbMiesiac"
+ Me.CbMiesiac.Size = New System.Drawing.Size(121, 21)
+ Me.CbMiesiac.TabIndex = 1
+ Me.CbMiesiac.Text = "styczeń"
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.AutoScroll = True
+ Me.TableLayoutPanel1.ColumnCount = 3
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.BtImport, 1, 1)
+ Me.TableLayoutPanel1.Controls.Add(Me.lbUwaga, 1, 4)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtKonfig, 1, 6)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtUsunFlage, 1, 3)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(627, 44)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 8
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 22.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 42.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 60.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 57.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(144, 538)
+ Me.TableLayoutPanel1.TabIndex = 3
+ '
+ 'BtImport
+ '
+ Me.BtImport.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtImport.Location = New System.Drawing.Point(25, 23)
+ Me.BtImport.Name = "BtImport"
+ Me.BtImport.Size = New System.Drawing.Size(94, 26)
+ Me.BtImport.TabIndex = 4
+ Me.BtImport.Text = "Importuj"
+ Me.BtImport.UseVisualStyleBackColor = True
+ '
+ 'lbUwaga
+ '
+ Me.lbUwaga.BackColor = System.Drawing.Color.PaleGreen
+ Me.lbUwaga.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.lbUwaga.Enabled = False
+ Me.lbUwaga.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lbUwaga.ForeColor = System.Drawing.Color.Red
+ Me.lbUwaga.Location = New System.Drawing.Point(25, 119)
+ Me.lbUwaga.Name = "lbUwaga"
+ Me.lbUwaga.Size = New System.Drawing.Size(94, 54)
+ Me.lbUwaga.TabIndex = 5
+ Me.lbUwaga.Text = "Czekaj: pobieranie danych"
+ Me.lbUwaga.UseVisualStyleBackColor = False
+ '
+ 'BtKonfig
+ '
+ Me.BtKonfig.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtKonfig.Location = New System.Drawing.Point(25, 456)
+ Me.BtKonfig.Name = "BtKonfig"
+ Me.BtKonfig.Size = New System.Drawing.Size(94, 22)
+ Me.BtKonfig.TabIndex = 6
+ Me.BtKonfig.Text = "Konfiguracja"
+ Me.BtKonfig.UseVisualStyleBackColor = True
+ '
+ 'BtUsunFlage
+ '
+ Me.BtUsunFlage.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtUsunFlage.Location = New System.Drawing.Point(25, 77)
+ Me.BtUsunFlage.Name = "BtUsunFlage"
+ Me.BtUsunFlage.Size = New System.Drawing.Size(94, 36)
+ Me.BtUsunFlage.TabIndex = 7
+ Me.BtUsunFlage.Text = "Skasuj flagę importu"
+ Me.BtUsunFlage.UseVisualStyleBackColor = True
+ '
+ 'BtKoniec
+ '
+ Me.BtKoniec.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.BtKoniec.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.BtKoniec.Location = New System.Drawing.Point(627, 588)
+ Me.BtKoniec.Name = "BtKoniec"
+ Me.BtKoniec.Size = New System.Drawing.Size(144, 60)
+ Me.BtKoniec.TabIndex = 4
+ Me.BtKoniec.Text = "Koniec"
+ Me.BtKoniec.UseVisualStyleBackColor = True
+ '
+ 'BtOdswiez
+ '
+ Me.BtOdswiez.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtOdswiez.Location = New System.Drawing.Point(627, 3)
+ Me.BtOdswiez.Name = "BtOdswiez"
+ Me.BtOdswiez.Size = New System.Drawing.Size(144, 35)
+ Me.BtOdswiez.TabIndex = 5
+ Me.BtOdswiez.Text = "Odśwież dane"
+ Me.BtOdswiez.UseVisualStyleBackColor = True
+ '
+ 'TcZakladki
+ '
+ Me.TcZakladki.Controls.Add(Me.TpDocs)
+ Me.TcZakladki.Controls.Add(Me.TpList)
+ Me.TcZakladki.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TcZakladki.Location = New System.Drawing.Point(3, 44)
+ Me.TcZakladki.Name = "TcZakladki"
+ Me.TcZakladki.SelectedIndex = 0
+ Me.TcZakladki.Size = New System.Drawing.Size(618, 538)
+ Me.TcZakladki.TabIndex = 6
+ '
+ 'TpDocs
+ '
+ Me.TpDocs.Controls.Add(Me.DgvDokumenty)
+ Me.TpDocs.Location = New System.Drawing.Point(4, 22)
+ Me.TpDocs.Name = "TpDocs"
+ Me.TpDocs.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpDocs.Size = New System.Drawing.Size(610, 512)
+ Me.TpDocs.TabIndex = 0
+ Me.TpDocs.Text = "Dokumenty"
+ Me.TpDocs.UseVisualStyleBackColor = True
+ '
+ 'DgvDokumenty
+ '
+ Me.DgvDokumenty.AllowUserToAddRows = False
+ Me.DgvDokumenty.AllowUserToDeleteRows = False
+ Me.DgvDokumenty.AllowUserToOrderColumns = True
+ Me.DgvDokumenty.AllowUserToResizeRows = False
+ DataGridViewCellStyle1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.DgvDokumenty.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+ Me.DgvDokumenty.AutoGenerateColumns = False
+ Me.DgvDokumenty.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.DisplayedCells
+ Me.DgvDokumenty.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
+ Me.DgvDokumenty.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.DgvDokumenty.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colLp, Me.colDokument, Me.colDokZr, Me.colDZKOpis, Me.colDataWyst, Me.colDataOper, Me.colSumaCT, Me.colSumaDT, Me.colDZKDziennik, Me.colDekret, Me.colRokMiesiac, Me.colDataImportu, Me.colMagazyn, Me.colKontrahent, Me.colOpisDok, Me.colDokKoryg})
+ Me.DgvDokumenty.DataSource = Me.BsTbmy_ImpDM_Src
+ Me.DgvDokumenty.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.DgvDokumenty.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically
+ Me.DgvDokumenty.Location = New System.Drawing.Point(3, 3)
+ Me.DgvDokumenty.Name = "DgvDokumenty"
+ Me.DgvDokumenty.ReadOnly = True
+ Me.DgvDokumenty.RowHeadersVisible = False
+ Me.DgvDokumenty.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+ Me.DgvDokumenty.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.DgvDokumenty.ShowEditingIcon = False
+ Me.DgvDokumenty.Size = New System.Drawing.Size(604, 506)
+ Me.DgvDokumenty.TabIndex = 0
+ '
+ 'colLp
+ '
+ Me.colLp.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colLp.DataPropertyName = "Lp"
+ Me.colLp.HeaderText = "Lp"
+ Me.colLp.Name = "colLp"
+ Me.colLp.ReadOnly = True
+ Me.colLp.Width = 44
+ '
+ 'colDokument
+ '
+ Me.colDokument.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokument.DataPropertyName = "Dokument"
+ Me.colDokument.HeaderText = "Dokument"
+ Me.colDokument.Name = "colDokument"
+ Me.colDokument.ReadOnly = True
+ Me.colDokument.Width = 81
+ '
+ 'colDokZr
+ '
+ Me.colDokZr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokZr.DataPropertyName = "DokZr"
+ Me.colDokZr.HeaderText = "Dok. żródłowy"
+ Me.colDokZr.Name = "colDokZr"
+ Me.colDokZr.ReadOnly = True
+ Me.colDokZr.Width = 101
+ '
+ 'colDZKOpis
+ '
+ Me.colDZKOpis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDZKOpis.DataPropertyName = "DZK_Opis"
+ Me.colDZKOpis.HeaderText = "Opis dziennika"
+ Me.colDZKOpis.Name = "colDZKOpis"
+ Me.colDZKOpis.ReadOnly = True
+ Me.colDZKOpis.Width = 53
+ '
+ 'colDataWyst
+ '
+ Me.colDataWyst.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataWyst.DataPropertyName = "DataWyst"
+ Me.colDataWyst.HeaderText = "Data"
+ Me.colDataWyst.Name = "colDataWyst"
+ Me.colDataWyst.ReadOnly = True
+ Me.colDataWyst.Width = 55
+ '
+ 'colDataOper
+ '
+ Me.colDataOper.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataOper.DataPropertyName = "DataOper"
+ Me.colDataOper.HeaderText = "Data dokumentu"
+ Me.colDataOper.Name = "colDataOper"
+ Me.colDataOper.ReadOnly = True
+ Me.colDataOper.Width = 102
+ '
+ 'colSumaCT
+ '
+ Me.colSumaCT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colSumaCT.DataPropertyName = "SumaCT"
+ Me.colSumaCT.HeaderText = "Suma Ma"
+ Me.colSumaCT.Name = "colSumaCT"
+ Me.colSumaCT.ReadOnly = True
+ Me.colSumaCT.Width = 71
+ '
+ 'colSumaDT
+ '
+ Me.colSumaDT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colSumaDT.DataPropertyName = "SumaDT"
+ Me.colSumaDT.HeaderText = "Suma Winien"
+ Me.colSumaDT.Name = "colSumaDT"
+ Me.colSumaDT.ReadOnly = True
+ Me.colSumaDT.Width = 87
+ '
+ 'colDZKDziennik
+ '
+ Me.colDZKDziennik.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDZKDziennik.DataPropertyName = "DZK_Dziennik"
+ Me.colDZKDziennik.HeaderText = "Dziennik"
+ Me.colDZKDziennik.Name = "colDZKDziennik"
+ Me.colDZKDziennik.ReadOnly = True
+ Me.colDZKDziennik.Visible = False
+ Me.colDZKDziennik.Width = 73
+ '
+ 'colDekret
+ '
+ Me.colDekret.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDekret.DataPropertyName = "Dekret"
+ Me.colDekret.HeaderText = "Dekret"
+ Me.colDekret.Name = "colDekret"
+ Me.colDekret.ReadOnly = True
+ Me.colDekret.Visible = False
+ Me.colDekret.Width = 64
+ '
+ 'colRokMiesiac
+ '
+ Me.colRokMiesiac.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colRokMiesiac.DataPropertyName = "RokMiesiac"
+ Me.colRokMiesiac.HeaderText = "RokMiesiac"
+ Me.colRokMiesiac.Name = "colRokMiesiac"
+ Me.colRokMiesiac.ReadOnly = True
+ Me.colRokMiesiac.Visible = False
+ Me.colRokMiesiac.Width = 88
+ '
+ 'colDataImportu
+ '
+ Me.colDataImportu.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataImportu.DataPropertyName = "DataImportu"
+ Me.colDataImportu.HeaderText = "Data importu"
+ Me.colDataImportu.Name = "colDataImportu"
+ Me.colDataImportu.ReadOnly = True
+ Me.colDataImportu.Width = 85
+ '
+ 'colMagazyn
+ '
+ Me.colMagazyn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colMagazyn.DataPropertyName = "Magazyn"
+ Me.colMagazyn.HeaderText = "Magazyn"
+ Me.colMagazyn.Name = "colMagazyn"
+ Me.colMagazyn.ReadOnly = True
+ '
+ 'colKontrahent
+ '
+ Me.colKontrahent.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colKontrahent.DataPropertyName = "Kontrahent"
+ Me.colKontrahent.HeaderText = "Kontrahent"
+ Me.colKontrahent.Name = "colKontrahent"
+ Me.colKontrahent.ReadOnly = True
+ '
+ 'colOpisDok
+ '
+ Me.colOpisDok.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colOpisDok.DataPropertyName = "Opis"
+ Me.colOpisDok.HeaderText = "Opis dokumentu"
+ Me.colOpisDok.Name = "colOpisDok"
+ Me.colOpisDok.ReadOnly = True
+ '
+ 'colDokKoryg
+ '
+ Me.colDokKoryg.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokKoryg.DataPropertyName = "DokKoryg"
+ Me.colDokKoryg.HeaderText = "DokKoryg"
+ Me.colDokKoryg.Name = "colDokKoryg"
+ Me.colDokKoryg.ReadOnly = True
+ '
+ 'BsTbmy_ImpDM_Src
+ '
+ Me.BsTbmy_ImpDM_Src.DataMember = "Tbmy_ImpDM_Src"
+ Me.BsTbmy_ImpDM_Src.DataSource = Me.DsMain
+ '
+ 'TpList
+ '
+ Me.TpList.Controls.Add(Me.LstWynik)
+ Me.TpList.Location = New System.Drawing.Point(4, 22)
+ Me.TpList.Name = "TpList"
+ Me.TpList.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpList.Size = New System.Drawing.Size(610, 512)
+ Me.TpList.TabIndex = 1
+ Me.TpList.Text = "Przebieg pracy"
+ Me.TpList.UseVisualStyleBackColor = True
+ '
+ 'LstWynik
+ '
+ Me.LstWynik.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.LstWynik.FormattingEnabled = True
+ Me.LstWynik.Location = New System.Drawing.Point(3, 3)
+ Me.LstWynik.Name = "LstWynik"
+ Me.LstWynik.Size = New System.Drawing.Size(604, 506)
+ Me.LstWynik.TabIndex = 0
+ '
+ 'Timer
+ '
+ Me.Timer.Interval = 200
+ '
+ 'Tamy_ImpDM_Src
+ '
+ Me.Tamy_ImpDM_Src.ClearBeforeFill = True
+ '
+ 'TableAdapterManager
+ '
+ Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+ Me.TableAdapterManager.Connection = Nothing
+ Me.TableAdapterManager.UpdateOrder = ImportDokMag.DsMainTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+ '
+ 'BsTbmy_ImpDM_Dekr
+ '
+ Me.BsTbmy_ImpDM_Dekr.DataMember = "Tbmy_ImpDM_Dekr"
+ Me.BsTbmy_ImpDM_Dekr.DataSource = Me.DsMain
+ '
+ 'Tamy_ImpDM_Dekr
+ '
+ Me.Tamy_ImpDM_Dekr.ClearBeforeFill = True
+ '
+ 'Tamy_ImpDM_Konta
+ '
+ Me.Tamy_ImpDM_Konta.ClearBeforeFill = True
+ '
+ 'MainFrm
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.BtKoniec
+ Me.ClientSize = New System.Drawing.Size(780, 657)
+ Me.Controls.Add(Me.TlMainPanel)
+ Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+ Me.MinimumSize = New System.Drawing.Size(796, 696)
+ Me.Name = "MainFrm"
+ Me.Padding = New System.Windows.Forms.Padding(3)
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "Import dokumentów magazynowych 1.3.2 z 16.05.2019"
+ Me.TlMainPanel.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.GbRadio.ResumeLayout(False)
+ Me.GbRadio.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ CType(Me.BsTbmyImpDMKonta, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TcZakladki.ResumeLayout(False)
+ Me.TpDocs.ResumeLayout(False)
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TpList.ResumeLayout(False)
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+
+ Friend WithEvents TlMainPanel As TableLayoutPanel
+ Friend WithEvents DgvDokumenty As DataGridView
+ Friend WithEvents Panel1 As Panel
+ Friend WithEvents CbWewn As CheckBox
+ Friend WithEvents CbZakup As CheckBox
+ Friend WithEvents CbSprzedaz As CheckBox
+ Friend WithEvents Panel2 As Panel
+ Friend WithEvents edRok As NumericUpDown
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label1 As Label
+ Friend WithEvents CbMiesiac As ComboBox
+ Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+ Friend WithEvents BtImport As Button
+ Friend WithEvents BtKoniec As Button
+ Friend WithEvents BtOdswiez As Button
+ Friend WithEvents DsMain As DsMain
+ Friend WithEvents BsTbmy_ImpDM_Src As BindingSource
+ Friend WithEvents Tamy_ImpDM_Src As DsMainTableAdapters.Tamy_ImpDM_Src
+ Friend WithEvents TableAdapterManager As DsMainTableAdapters.TableAdapterManager
+ Friend WithEvents lbUwaga As Button
+ Friend WithEvents TcZakladki As TabControl
+ Friend WithEvents TpDocs As TabPage
+ Friend WithEvents TpList As TabPage
+ Friend WithEvents LstWynik As ListBox
+ Friend WithEvents BtKonfig As Button
+ Friend WithEvents Timer As Timer
+ Friend WithEvents BsTbmy_ImpDM_Dekr As BindingSource
+ Friend WithEvents Tamy_ImpDM_Dekr As DsMainTableAdapters.Tamy_ImpDM_Dekr
+ Friend WithEvents BtUsunFlage As Button
+ Friend WithEvents colLp As DataGridViewTextBoxColumn
+ Friend WithEvents colDokument As DataGridViewTextBoxColumn
+ Friend WithEvents colDokZr As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKOpis As DataGridViewTextBoxColumn
+ Friend WithEvents colDataWyst As DataGridViewTextBoxColumn
+ Friend WithEvents colDataOper As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaCT As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaDT As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKDziennik As DataGridViewTextBoxColumn
+ Friend WithEvents colDekret As DataGridViewTextBoxColumn
+ Friend WithEvents colRokMiesiac As DataGridViewTextBoxColumn
+ Friend WithEvents colDataImportu As DataGridViewTextBoxColumn
+ Friend WithEvents colMagazyn As DataGridViewTextBoxColumn
+ Friend WithEvents colKontrahent As DataGridViewTextBoxColumn
+ Friend WithEvents colOpisDok As DataGridViewTextBoxColumn
+ Friend WithEvents colDokKoryg As DataGridViewTextBoxColumn
+ Friend WithEvents GbRadio As GroupBox
+ Friend WithEvents RbAll As RadioButton
+ Friend WithEvents RbBlack As RadioButton
+ Friend WithEvents RbRed As RadioButton
+ Friend WithEvents CbKonto As ComboBox
+ Friend WithEvents Label3 As Label
+ Friend WithEvents BsTbmyImpDMKonta As BindingSource
+ Friend WithEvents Tamy_ImpDM_Konta As DsMainTableAdapters.Tamy_ImpDM_Konta
+End Class
diff --git a/.svn/pristine/1c/1c262c0b9832473c175fa256516d0ea83c9f99f2.svn-base b/.svn/pristine/1c/1c262c0b9832473c175fa256516d0ea83c9f99f2.svn-base
new file mode 100644
index 0000000..c20a1ce
--- /dev/null
+++ b/.svn/pristine/1c/1c262c0b9832473c175fa256516d0ea83c9f99f2.svn-base
@@ -0,0 +1,491 @@
+ _
+Partial Class dlgKonfig
+ Inherits System.Windows.Forms.Form
+
+ 'Formularz przesłania metodę dispose, aby wyczyścić listę składników.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wymagane przez Projektanta formularzy systemu Windows
+ Private components As System.ComponentModel.IContainer
+
+ 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows
+ 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows.
+ 'Nie należy modyfikować za pomocą edytora kodu.
+ _
+ Private Sub InitializeComponent()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+ Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label6 = New System.Windows.Forms.Label()
+ Me.Label7 = New System.Windows.Forms.Label()
+ Me.Label8 = New System.Windows.Forms.Label()
+ Me.Label9 = New System.Windows.Forms.Label()
+ Me.Label10 = New System.Windows.Forms.Label()
+ Me.edServerDst = New System.Windows.Forms.TextBox()
+ Me.edBazaDst = New System.Windows.Forms.TextBox()
+ Me.edUserDst = New System.Windows.Forms.TextBox()
+ Me.edPassDst = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.edSerwerSrc = New System.Windows.Forms.TextBox()
+ Me.edBazaSrc = New System.Windows.Forms.TextBox()
+ Me.edUserSrc = New System.Windows.Forms.TextBox()
+ Me.edPassSrc = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label11 = New System.Windows.Forms.Label()
+ Me.Label12 = New System.Windows.Forms.Label()
+ Me.edHASPServer = New System.Windows.Forms.TextBox()
+ Me.edWorkingDir = New System.Windows.Forms.TextBox()
+ Me.Label13 = New System.Windows.Forms.Label()
+ Me.EdDziennik = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.TableLayoutPanel2.SuspendLayout()
+ Me.TableLayoutPanel4.SuspendLayout()
+ Me.TableLayoutPanel3.SuspendLayout()
+ Me.TableLayoutPanel5.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(288, 387)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(144, 33)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Location = New System.Drawing.Point(3, 5)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(66, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(75, 5)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(66, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Anuluj"
+ '
+ 'TableLayoutPanel2
+ '
+ Me.TableLayoutPanel2.ColumnCount = 3
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 135.0!))
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel4, 0, 1)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel1, 2, 3)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel3, 0, 0)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel5, 0, 2)
+ Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0)
+ Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+ Me.TableLayoutPanel2.RowCount = 4
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 46.46154!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 53.53846!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 59.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 38.0!))
+ Me.TableLayoutPanel2.Size = New System.Drawing.Size(435, 423)
+ Me.TableLayoutPanel2.TabIndex = 1
+ '
+ 'TableLayoutPanel4
+ '
+ Me.TableLayoutPanel4.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
+ Me.TableLayoutPanel4.ColumnCount = 4
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel4, 3)
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 23.0!))
+ Me.TableLayoutPanel4.Controls.Add(Me.Label6, 0, 0)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label7, 1, 1)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label8, 1, 2)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label9, 1, 3)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label10, 1, 4)
+ Me.TableLayoutPanel4.Controls.Add(Me.edServerDst, 2, 1)
+ Me.TableLayoutPanel4.Controls.Add(Me.edBazaDst, 2, 2)
+ Me.TableLayoutPanel4.Controls.Add(Me.edUserDst, 2, 3)
+ Me.TableLayoutPanel4.Controls.Add(Me.edPassDst, 2, 4)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label13, 1, 5)
+ Me.TableLayoutPanel4.Controls.Add(Me.EdDziennik, 2, 5)
+ Me.TableLayoutPanel4.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel4.Location = New System.Drawing.Point(3, 154)
+ Me.TableLayoutPanel4.Name = "TableLayoutPanel4"
+ Me.TableLayoutPanel4.RowCount = 6
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66667!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66667!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66667!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66667!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66667!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66667!))
+ Me.TableLayoutPanel4.Size = New System.Drawing.Size(429, 168)
+ Me.TableLayoutPanel4.TabIndex = 2
+ '
+ 'Label6
+ '
+ Me.Label6.AutoSize = True
+ Me.TableLayoutPanel4.SetColumnSpan(Me.Label6, 4)
+ Me.Label6.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label6.Location = New System.Drawing.Point(5, 2)
+ Me.Label6.Name = "Label6"
+ Me.Label6.Size = New System.Drawing.Size(419, 25)
+ Me.Label6.TabIndex = 0
+ Me.Label6.Text = "Połączenie do bazy docelowej"
+ Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label7
+ '
+ Me.Label7.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label7.Location = New System.Drawing.Point(27, 29)
+ Me.Label7.Name = "Label7"
+ Me.Label7.Size = New System.Drawing.Size(182, 25)
+ Me.Label7.TabIndex = 1
+ Me.Label7.Text = "Serwer SQL"
+ Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label8
+ '
+ Me.Label8.AutoSize = True
+ Me.Label8.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label8.Location = New System.Drawing.Point(27, 56)
+ Me.Label8.Name = "Label8"
+ Me.Label8.Size = New System.Drawing.Size(182, 25)
+ Me.Label8.TabIndex = 2
+ Me.Label8.Text = "baza danych"
+ Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label9
+ '
+ Me.Label9.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label9.Location = New System.Drawing.Point(27, 83)
+ Me.Label9.Name = "Label9"
+ Me.Label9.Size = New System.Drawing.Size(182, 25)
+ Me.Label9.TabIndex = 3
+ Me.Label9.Text = "użytkownik"
+ Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label10
+ '
+ Me.Label10.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label10.Location = New System.Drawing.Point(27, 110)
+ Me.Label10.Name = "Label10"
+ Me.Label10.Size = New System.Drawing.Size(182, 25)
+ Me.Label10.TabIndex = 4
+ Me.Label10.Text = "hasło"
+ Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'edServerDst
+ '
+ Me.edServerDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edServerDst.Location = New System.Drawing.Point(217, 32)
+ Me.edServerDst.Name = "edServerDst"
+ Me.edServerDst.Size = New System.Drawing.Size(182, 20)
+ Me.edServerDst.TabIndex = 5
+ '
+ 'edBazaDst
+ '
+ Me.edBazaDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edBazaDst.Location = New System.Drawing.Point(217, 59)
+ Me.edBazaDst.Name = "edBazaDst"
+ Me.edBazaDst.Size = New System.Drawing.Size(182, 20)
+ Me.edBazaDst.TabIndex = 6
+ '
+ 'edUserDst
+ '
+ Me.edUserDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edUserDst.Location = New System.Drawing.Point(217, 86)
+ Me.edUserDst.Name = "edUserDst"
+ Me.edUserDst.Size = New System.Drawing.Size(182, 20)
+ Me.edUserDst.TabIndex = 7
+ Me.edUserDst.UseSystemPasswordChar = True
+ '
+ 'edPassDst
+ '
+ Me.edPassDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edPassDst.Location = New System.Drawing.Point(217, 113)
+ Me.edPassDst.Name = "edPassDst"
+ Me.edPassDst.Size = New System.Drawing.Size(182, 20)
+ Me.edPassDst.TabIndex = 8
+ Me.edPassDst.UseSystemPasswordChar = True
+ '
+ 'TableLayoutPanel3
+ '
+ Me.TableLayoutPanel3.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
+ Me.TableLayoutPanel3.ColumnCount = 4
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel3, 3)
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 23.0!))
+ Me.TableLayoutPanel3.Controls.Add(Me.Label1, 0, 0)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label2, 1, 1)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label3, 1, 2)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label4, 1, 3)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label5, 1, 4)
+ Me.TableLayoutPanel3.Controls.Add(Me.edSerwerSrc, 2, 1)
+ Me.TableLayoutPanel3.Controls.Add(Me.edBazaSrc, 2, 2)
+ Me.TableLayoutPanel3.Controls.Add(Me.edUserSrc, 2, 3)
+ Me.TableLayoutPanel3.Controls.Add(Me.edPassSrc, 2, 4)
+ Me.TableLayoutPanel3.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel3.Location = New System.Drawing.Point(3, 3)
+ Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
+ Me.TableLayoutPanel3.RowCount = 5
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel3.Size = New System.Drawing.Size(429, 145)
+ Me.TableLayoutPanel3.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.TableLayoutPanel3.SetColumnSpan(Me.Label1, 4)
+ Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label1.Location = New System.Drawing.Point(5, 2)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(419, 26)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Połączenie do bazy źródłowej"
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label2
+ '
+ Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label2.Location = New System.Drawing.Point(27, 30)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(182, 26)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Serwer SQL"
+ Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label3.Location = New System.Drawing.Point(27, 58)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(182, 26)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "baza danych"
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label4
+ '
+ Me.Label4.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label4.Location = New System.Drawing.Point(27, 86)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(182, 26)
+ Me.Label4.TabIndex = 3
+ Me.Label4.Text = "użytkownik"
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label5
+ '
+ Me.Label5.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label5.Location = New System.Drawing.Point(27, 114)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(182, 29)
+ Me.Label5.TabIndex = 4
+ Me.Label5.Text = "hasło"
+ Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'edSerwerSrc
+ '
+ Me.edSerwerSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edSerwerSrc.Location = New System.Drawing.Point(217, 33)
+ Me.edSerwerSrc.Name = "edSerwerSrc"
+ Me.edSerwerSrc.Size = New System.Drawing.Size(182, 20)
+ Me.edSerwerSrc.TabIndex = 5
+ '
+ 'edBazaSrc
+ '
+ Me.edBazaSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edBazaSrc.Location = New System.Drawing.Point(217, 61)
+ Me.edBazaSrc.Name = "edBazaSrc"
+ Me.edBazaSrc.Size = New System.Drawing.Size(182, 20)
+ Me.edBazaSrc.TabIndex = 6
+ '
+ 'edUserSrc
+ '
+ Me.edUserSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edUserSrc.Location = New System.Drawing.Point(217, 89)
+ Me.edUserSrc.Name = "edUserSrc"
+ Me.edUserSrc.Size = New System.Drawing.Size(182, 20)
+ Me.edUserSrc.TabIndex = 7
+ Me.edUserSrc.UseSystemPasswordChar = True
+ '
+ 'edPassSrc
+ '
+ Me.edPassSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edPassSrc.Location = New System.Drawing.Point(217, 117)
+ Me.edPassSrc.Name = "edPassSrc"
+ Me.edPassSrc.Size = New System.Drawing.Size(182, 20)
+ Me.edPassSrc.TabIndex = 8
+ Me.edPassSrc.UseSystemPasswordChar = True
+ '
+ 'TableLayoutPanel5
+ '
+ Me.TableLayoutPanel5.ColumnCount = 2
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel5, 2)
+ Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 32.61649!))
+ Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.38351!))
+ Me.TableLayoutPanel5.Controls.Add(Me.Label11, 0, 0)
+ Me.TableLayoutPanel5.Controls.Add(Me.Label12, 0, 1)
+ Me.TableLayoutPanel5.Controls.Add(Me.edHASPServer, 1, 0)
+ Me.TableLayoutPanel5.Controls.Add(Me.edWorkingDir, 1, 1)
+ Me.TableLayoutPanel5.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel5.Location = New System.Drawing.Point(3, 328)
+ Me.TableLayoutPanel5.Name = "TableLayoutPanel5"
+ Me.TableLayoutPanel5.RowCount = 2
+ Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel5.Size = New System.Drawing.Size(279, 53)
+ Me.TableLayoutPanel5.TabIndex = 3
+ '
+ 'Label11
+ '
+ Me.Label11.AutoSize = True
+ Me.Label11.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label11.Location = New System.Drawing.Point(3, 0)
+ Me.Label11.Name = "Label11"
+ Me.Label11.Size = New System.Drawing.Size(85, 26)
+ Me.Label11.TabIndex = 0
+ Me.Label11.Text = "Serwer klucza"
+ Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ '
+ 'Label12
+ '
+ Me.Label12.AutoSize = True
+ Me.Label12.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label12.Location = New System.Drawing.Point(3, 26)
+ Me.Label12.Name = "Label12"
+ Me.Label12.Size = New System.Drawing.Size(85, 27)
+ Me.Label12.TabIndex = 1
+ Me.Label12.Text = "Katalog roboczy"
+ Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ '
+ 'edHASPServer
+ '
+ Me.edHASPServer.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edHASPServer.Location = New System.Drawing.Point(94, 3)
+ Me.edHASPServer.Name = "edHASPServer"
+ Me.edHASPServer.Size = New System.Drawing.Size(182, 20)
+ Me.edHASPServer.TabIndex = 2
+ Me.edHASPServer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'edWorkingDir
+ '
+ Me.edWorkingDir.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edWorkingDir.Location = New System.Drawing.Point(94, 29)
+ Me.edWorkingDir.Name = "edWorkingDir"
+ Me.edWorkingDir.Size = New System.Drawing.Size(182, 20)
+ Me.edWorkingDir.TabIndex = 3
+ Me.edWorkingDir.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'Label13
+ '
+ Me.Label13.AutoSize = True
+ Me.Label13.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label13.Location = New System.Drawing.Point(27, 137)
+ Me.Label13.Name = "Label13"
+ Me.Label13.Size = New System.Drawing.Size(182, 29)
+ Me.Label13.TabIndex = 9
+ Me.Label13.Text = "Dziennik"
+ Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'EdDziennik
+ '
+ Me.EdDziennik.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.EdDziennik.Location = New System.Drawing.Point(217, 140)
+ Me.EdDziennik.Name = "EdDziennik"
+ Me.EdDziennik.Size = New System.Drawing.Size(182, 20)
+ Me.EdDziennik.TabIndex = 10
+ '
+ 'dlgKonfig
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 423)
+ Me.Controls.Add(Me.TableLayoutPanel2)
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgKonfig"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Konfiguracja programu"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TableLayoutPanel2.ResumeLayout(False)
+ Me.TableLayoutPanel4.ResumeLayout(False)
+ Me.TableLayoutPanel4.PerformLayout()
+ Me.TableLayoutPanel3.ResumeLayout(False)
+ Me.TableLayoutPanel3.PerformLayout()
+ Me.TableLayoutPanel5.ResumeLayout(False)
+ Me.TableLayoutPanel5.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+ Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
+ Friend WithEvents Label1 As Label
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label3 As Label
+ Friend WithEvents Label4 As Label
+ Friend WithEvents Label5 As Label
+ Friend WithEvents edSerwerSrc As TextBox
+ Friend WithEvents edBazaSrc As TextBox
+ Friend WithEvents edUserSrc As TextBox
+ Friend WithEvents edPassSrc As TextBox
+ Friend WithEvents TableLayoutPanel4 As TableLayoutPanel
+ Friend WithEvents Label6 As Label
+ Friend WithEvents Label7 As Label
+ Friend WithEvents Label8 As Label
+ Friend WithEvents Label9 As Label
+ Friend WithEvents Label10 As Label
+ Friend WithEvents edServerDst As TextBox
+ Friend WithEvents edBazaDst As TextBox
+ Friend WithEvents edUserDst As TextBox
+ Friend WithEvents edPassDst As TextBox
+ Friend WithEvents TableLayoutPanel5 As TableLayoutPanel
+ Friend WithEvents Label11 As Label
+ Friend WithEvents Label12 As Label
+ Friend WithEvents edHASPServer As TextBox
+ Friend WithEvents edWorkingDir As TextBox
+ Friend WithEvents Label13 As Label
+ Friend WithEvents EdDziennik As TextBox
+End Class
diff --git a/.svn/pristine/1d/1d10d0352390a88dc60995de3d3b191617b47d8e.svn-base b/.svn/pristine/1d/1d10d0352390a88dc60995de3d3b191617b47d8e.svn-base
new file mode 100644
index 0000000..aa36ad6
--- /dev/null
+++ b/.svn/pristine/1d/1d10d0352390a88dc60995de3d3b191617b47d8e.svn-base
@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+'
+' This code was generated by a tool.
+' Runtime Version:4.0.30319.42000
+'
+' Changes to this file may cause incorrect behavior and will be lost if
+' the code is regenerated.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+
+ 'This class was auto-generated by the StronglyTypedResourceBuilder
+ 'class via a tool like ResGen or Visual Studio.
+ 'To add or remove a member, edit your .ResX file then rerun ResGen
+ 'with the /str option, or rebuild your VS project.
+ '''
+ ''' A strongly-typed resource class, for looking up localized strings, etc.
+ '''
+ _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''
+ ''' Returns the cached ResourceManager instance used by this class.
+ '''
+ _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ImportDokMag.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''
+ ''' Overrides the current thread's CurrentUICulture property for all
+ ''' resource lookups using this strongly typed resource class.
+ '''
+ _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set(ByVal value As Global.System.Globalization.CultureInfo)
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/.svn/pristine/1e/1ec6b25be6fadb5c9f5ab70f1d42bcf6752949e5.svn-base b/.svn/pristine/1e/1ec6b25be6fadb5c9f5ab70f1d42bcf6752949e5.svn-base
new file mode 100644
index 0000000..1227592
--- /dev/null
+++ b/.svn/pristine/1e/1ec6b25be6fadb5c9f5ab70f1d42bcf6752949e5.svn-base
@@ -0,0 +1,208 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDN.my_ImpDM_Src
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDN.my_ImpDM_Dekr
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/23/23a3a4c823aed9a79872006110716736cd81731d.svn-base b/.svn/pristine/23/23a3a4c823aed9a79872006110716736cd81731d.svn-base
new file mode 100644
index 0000000..93a1ec2
--- /dev/null
+++ b/.svn/pristine/23/23a3a4c823aed9a79872006110716736cd81731d.svn-base
@@ -0,0 +1,779 @@
+Public Module FunkcjeXL
+ Const API_VERSION = 20182
+
+ Public Zalogowany As Boolean
+ Public wynikXL As Integer
+ Public Wersja As Integer
+ Dim Ilosc_Bledow As Integer
+ Dim Sesja As Integer
+ Dim IDDokumentu As Integer
+ Dim Flagi As Integer
+ Dim Komunikat As String
+
+
+ '-------------------------------------------------------
+ ' Funkcja XLLogin - W przypadku podania poprawnych parametrów poprzez strukturę XLLoginInfo _
+ ' logowanie następuję automatycznie. W przeciwnym przypadku otwiera się okno _
+ ' logowania do systemu CDN XL, w którym należy podać poprawne dane. _
+ ' Poprzez parametr sesja zwracany jest numer przydzielonej dla programu sesji. _
+ ' Numerem tym należy się posługiwać przy wywoływaniu następnych funkcji API.
+
+ Public Function Zaloguj(ByVal Baza As String, ByVal CDNop As String, ByVal Haslo As String, ByVal SerwerKlucza As String) As Boolean
+ Dim LoginInfo As New cdn_api.XLLoginInfo_20182
+ Dim sesja_temp As Int32
+
+ If Zalogowany And Sesja > 0 Then
+ wynikXL = 0
+ Ilosc_Bledow = 0
+ Zaloguj = Zalogowany
+ Exit Function
+ End If
+ Try
+ ' listuj(" Logowanie do ERP XL - proszę czekać...", 1)
+ Zalogowany = False
+ Ilosc_Bledow = 0
+ ' AttachThread()
+ Wersja = API_VERSION
+ LoginInfo.Wersja = Wersja ' numer wersji API
+ LoginInfo.UtworzWlasnaSesje = 0
+ LoginInfo.Winieta = -1
+ LoginInfo.TrybWsadowy = 1
+ LoginInfo.TrybNaprawy = 1
+ LoginInfo.ProgramID = "Import dok. magazynowych z Jastrzębia" ' nazwa programu korzystającego z XL-API (pojawia się na liście sesji)
+ LoginInfo.Baza = Baza & Chr(0) ' nazwa bazy danych do której ma nastąpić login pobierana
+ ' z klucza HKEY_CURRENT_USER oraz HKEY_LOCAL_MACHINE (nazwa rejestracji w managerze baz an tym komputerze, nie rzeczywista nazwa bazy !!)
+ ' LoginInfo.OpeIdent = CDNop & Chr(0) ' identyfikator CDNOpera logującego się
+ ' LoginInfo.OpeHaslo = Haslo & Chr(0) ' hasło CDNOpera logującego się
+ LoginInfo.PlikLog = ""
+ LoginInfo.SerwerKlucza = SerwerKlucza
+ Sesja = 0
+ sesja_temp = 0
+ wynikXL = 0
+ wynikXL = cdn_api.cdn_api.XLLogin(LoginInfo, sesja_temp)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLLogin"
+ End Try
+ If wynikXL = 0 Then
+ Sesja = sesja_temp
+ Ilosc_Bledow = 0
+ Zalogowany = True
+ Else
+ Komunikat = "Nieokreślony błąd logowania do XL = " & CStr(wynikXL)
+ Select Case wynikXL
+ Case -9
+ Komunikat = "XLLogin: operator nie jest podpięty do żadnego centrum"
+ Case -8
+ Komunikat = "XLLogin: Nie podano nazwy bazy danych"
+ Case -7
+ Komunikat = "XLLogin: Baza niezarejestrowana w systemie"
+ Case -6
+ Komunikat = "XLLogin: Nie podano hasła lub brak operatora"
+ Case -5
+ Komunikat = "XLLogin: nieprawidłowe hasło"
+ Case -4
+ Komunikat = "XLLogin: konto operatora zablokowane"
+ Case -3
+ Komunikat = "XLLogin: nie podano nazwy programu (pole ProgramID)"
+ Case -2
+ Komunikat = "XLLogin: błąd otwarcia pliku tekstowego, do którego mają być zapisywane komunikaty. Nie znaleziono ścieżki lub nazwa pliku jest nieprawidłowa."
+ Case -1
+ Komunikat = "XLLogin: podano niepoprawną wersję API"
+ Case 1
+ Komunikat = "XLLogin: inicjalizacja nie powiodła się"
+ Case 2
+ Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie (z tego samego komputera i na tego samego operatora)"
+ Case 3
+ Komunikat = "XLLogin: istnieje już jedna instancja programu i nastąpiło ponowne logowanie z innego komputera i na tego samego operatora, ale operatora nie posiada prawa do wielokrotnego logowania"
+ Case 5
+ Komunikat = "XLLogin: występuje przy pracy terminalowej w przypadku, gdy operatora nie ma prawa do wielokrotnego logowania i na pytanie czy usunąć istniejące sesje terminalowe wybrano odpowiedź ‘Nie’"
+ Case 61
+ Komunikat = "XLLogin: błąd zakładania nowej sesji"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Zalogowany = False
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ End If
+ If Zalogowany Then MainFrm.listuj("Zalogowano")
+ Zaloguj = Zalogowany
+ End Function
+
+
+ '--------------------------------------------------------------------------------------------------
+ 'Funkcja XLPolaczenie - podaje ConnectionStgring do bazy danych
+ ' Funkcja XLPolaczenie - Funkcja umozliwia identyfikację połączenia do bazy
+ ' zwraca nazwę serwera, bazy oraz connect string dla raportowania
+ '--------------------------------------------------------------------------------------------------
+ Public Function Polaczenie(ByVal Baza As String, ByVal Serwer As String) As String
+ Dim PolaczenieInfo As New cdn_api.XLPolaczenieInfo_20182 With
+ {
+ .Wersja = Wersja, ' numer wersji API (20182) ustawiony w funkcji Zaloguj()
+ .NTMode = 0,
+ .Serwer = Serwer + Chr(0),
+ .Baza = Baza + Chr(0),
+ .ConnectString = "" + Chr(0)
+ }
+ wynikXL = 0
+ wynikXL = cdn_api.cdn_api.XLPolaczenie(PolaczenieInfo)
+ If wynikXL >= 0 Then
+ Polaczenie = PolaczenieInfo.ConnectString
+ Else
+ Polaczenie = ""
+ Komunikat = "XLPolaczenie: nieaktywna sesja API lub nieprawidłowy numer wersji"
+ End If
+ End Function
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLLogout - Funkcja ta służy do zamykania sesji otwartej funkcją XLLogin. _
+ ' Parametr sesja określa numer sesji, którą chcemy zamknąć _
+ ' (numer przydzielany funkcją XLLogin).
+ '--------------------------------------------------------------------------------------------------
+ Public Sub Wyloguj()
+ Dim LogoutInfo As New cdn_api.XLLogoutInfo_20182
+ Dim wynik As Integer
+
+ If Zalogowany Or Sesja > 0 Then
+ LogoutInfo.Wersja = Wersja
+ LogoutInfo.TrybUsuwaniaDok = 0
+ If Sesja > 0 Then
+ Try
+ cdn_api.cdn_api.XLLogoutEx(LogoutInfo, Sesja)
+ Catch ex As Exception
+ wynik = -200
+ Komunikat = "Nie rozpoznany błąd API XLLogout"
+ End Try
+ End If
+ Zalogowany = False
+ Sesja = 0
+ End If
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLNowyDokument - Jest to funkcja, która zapoczątkowuje wystawianie dokumentu. _
+ ' Nadaje ona nowy numer nagłówka, pobiera kontrahenta, _
+ ' wypełnia rekord standardowymi ustawieniami i ustawia go w stan zajętości. _
+ ' Wymagane jest użycie w komplecie co najmniej funkcji XLZamknijDokument _
+ ' w celu zakończenia dokumentu i zwolnienia jego zajętości (bez wywołania _
+ ' tej funkcji wewnętrzna kontrola XL'a spowoduje wycofanie wszelkich zapisów _
+ ' do tego dokumentu).
+ '--------------------------------------------------------------------------------------------------
+ Public Sub UtworzNowyDok(DokNagInfo As cdn_api.XLDokumentNagInfo_20182)
+ Dim w, i As Integer
+
+ wynikXL = 0
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLNowyDokument(Sesja, IDDokumentu, DokNagInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLNowyDokument"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ Flagi = DokNagInfo.Flagi
+ w = OpisBledu(1, wynikXL, Flagi)
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLDodajPozycje - Funkcja ta jest odpowiedzialna za dodawanie do dokumentu elementów _
+ ' oraz związanych z nim subelementów.
+ '--------------------------------------------------------------------------------------------------
+ Public Sub DodajPozycjeDok(DokEleInfo As cdn_api.XLDokumentElemInfo_20182)
+ Dim w, i As Integer
+
+ wynikXL = 0
+ If IDDokumentu > 0 Then
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajPozycje(IDDokumentu, DokEleInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajPozycje"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ End If
+ Flagi = DokEleInfo.Flagi
+ If wynikXL <> 17 Then w = OpisBledu(2, wynikXL, Flagi) 'bez drukowania kmunikatu, że zabrakło towaru
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijDokument - Funkcja odpowiada za zakończenie pracy z dokumentem.
+ '--------------------------------------------------------------------------------------------------
+
+ Public Sub ZamknijDokument(ByVal Tryb As Integer, Magazynowe As Integer)
+ Dim ZamkniecieDokumentuInfo As New cdn_api.XLZamkniecieDokumentuInfo_20182
+ Dim w, i As Integer
+
+ Try
+ With ZamkniecieDokumentuInfo
+ .Wersja = Wersja
+ .Tryb = Tryb '-10, 0 - zatwierdz dokument, 1 - do bufora, -3 - zamknięcie otwartego dok., -1 - skasowanie dokumentu, -2 - anulowanie
+ .Magazynowe = Magazynowe 'generowanie dokumentów WM i MMP: 0-wg. konfig., 1-nie generuj, 2-gen. do bufora, 3-gen. zatwierdzone
+ 'dla MMW: 0x,1x,2x - WM (bez, bufor, zatw.); x1,x2,x3 - MMP (bez, bufor, zatw.)
+ End With
+ wynikXL = 0
+ If IDDokumentu > 0 Then
+ For i = 1 To 200
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijDokument(IDDokumentu, ZamkniecieDokumentuInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijDokument"
+ Exit For
+ End Try
+ If wynikXL <> 106 Then Exit For
+ System.Threading.Thread.Sleep(40)
+ Next
+ End If
+ w = OpisBledu(7, wynikXL, 0)
+ Catch ex As Exception
+ wynikXL = -201
+ Komunikat = "Błąd w dostępie do danych w API XLZamknijDokument"
+ End Try
+ End Sub
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLPodajKomunikat - Funkcja rozwiązuje podane numery bledów i ostrzeżeń na stringowy
+ ' komunikat, rodzaje trybów: 0-tryb cichy, 1-tylko bledy, 2-bledy i ostrzeżenia
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function OpisBledu(ByVal Funkcja As Integer, ByVal wynik_lokalny As Integer, ByVal Flagi As Integer) As Integer
+ Dim KomunikatInfo As New cdn_api.XLKomunikatInfo_20182
+ Dim Komunikat As String
+
+ OpisBledu = 0
+ If wynik_lokalny < -199 Then
+ MainFrm.listuj("Nie rozpoznany błąd API w funkcji " + CStr(Funkcja))
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja < 900 Then
+ KomunikatInfo.Wersja = Wersja
+ KomunikatInfo.Funkcja = Funkcja
+ KomunikatInfo.Blad = wynik_lokalny
+ KomunikatInfo.Ostrzezenie = Flagi
+ KomunikatInfo.Tryb = 0
+ Try
+ cdn_api.cdn_api.XLOpisBledu(KomunikatInfo)
+ Catch ex As Exception
+ wynik_lokalny = -200
+ Komunikat = "Nie rozpoznany błąd API XLOpisBledu"
+ End Try
+ Komunikat = "!------! UWAGA: " + KomunikatInfo.OpisBledu
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 999 Then
+ Komunikat = "XLOpisBledu: Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case 2
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór z listy, a brak ustawienia trybu selekcji"
+ Case 3
+ Komunikat = "XLOpisBledu: UWAGA: błąd otwarcia tabeli"
+ Case 4
+ Komunikat = "XLOpisBledu: UWAGA: nie znaleziono rekordu o podanym GIDzie"
+ Case 5
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór elementu z listy a brak procedury listy dla takiego typu dokumentu"
+ Case 6
+ Komunikat = "XLOpisBledu: UWAGA: ustalono wybór grupy z listy, a brak procedury listy dla takiego typu dokumentu"
+ Case 7
+ Komunikat = "XLOpisBledu: UWAGA: ustalono podgląd elementów listy, a brak procedury listy dla takiego typu dokumentu"
+ Case 8
+ Komunikat = "XLOpisBledu: UWAGA: nieobsługiwany GIDTyp"
+ Case Else
+ Komunikat = "XLOpisBledu: UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 998 Then 'Generuj EAN
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 1
+ Komunikat = "UWAGA: Niepoprawny zakres"
+ Case 2
+ Komunikat = "UWAGA: Wystąpił niezidentyfikowany błąd, kod EAN nie został wygenerowany"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 997 Then 'DodajAtrybut do obiektu
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: brak sesji"
+ Case 2
+ Komunikat = "UWAGA: błąd przy zakładaniu logout"
+ Case 3
+ Komunikat = "UWAGA: nie znaleziono obiektu"
+ Case 4
+ Komunikat = "UWAGA: nie znalezniono klasy atrybutu"
+ Case 5
+ Komunikat = "UWAGA: klasa nieprzypisana do definicji obiektu"
+ Case 6
+ Komunikat = "UWAGA: atrybut juz istnieje w kolejce"
+ Case 7
+ Komunikat = "UWAGA: błąd ADO Connection"
+ Case 8
+ Komunikat = "UWAGA: błąd ADO"
+ Case 9
+ Komunikat = "UWAGA: brak zdefiniowanego obiektu"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat)
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 996 Then 'Dodaj Partię
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 2
+ Komunikat = "UWAGA: Wystąpił błąd przy próbie zablokowania tabel dla wykonania transakcji"
+ Case 11
+ Komunikat = "UWAGA: nie znaleziono towaru"
+ Case 12
+ Komunikat = "UWAGA: Nie podano towaru"
+ Case 106
+ Komunikat = "UWAGA: Wystąpił błąd DeadLock"
+ Case 160
+ Komunikat = "UWAGA: Nie znaleziono podanej dostawy"
+ Case 178
+ Komunikat = "UWAGA: Partia o takich parametrach nie istnieje"
+ Case 210
+ Komunikat = "UWAGA: Nie znaleziono podanego identyfikatora partii"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat) ' nie pisz komunikatu, że zabrakło ilości dla WM
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 995 Then 'Dokumenty związane
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "UWAGA: API nie zostało aktywowane bądź błąd wersji"
+ Case 1
+ Komunikat = "UWAGA: taki dokument jest już na liście (błąd zwracany przy akcji dodawania)"
+ Case 30
+ Komunikat = "UWAGA: nie znaleziono dokumentu na liście"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat) ' nie pisz komunikatu, że zabrakło ilości dla WM
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 994 Then 'Dodaj Dekret zbiorczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 1031
+ Komunikat = "BŁĄD: Uruchomienie tej operacji nie jest możliwe ze względu na brak dostępu do modułu, problem z połączeniem lub niezgodność danych w kluczu ze stanem faktycznym."
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8005
+ Komunikat = "BŁĄD: Bieżący okres obrachunkowy jest zamknięty do x.
+ Próbujesz księgować lub kasować księgowanie z datą y."
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat) ' nie pisz komunikatu, że zabrakło ilości dla WM
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 993 Then 'Dodaj dekret składowy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8003
+ Komunikat = "BŁĄD: Konto posiada analitykę"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat) ' nie pisz komunikatu, że zabrakło ilości dla WM
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 992 Then 'Zamknij dekret zbiorczy, sumuj dekret zbiorczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "UWAGA: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat) ' nie pisz komunikatu, że zabrakło ilości dla WM
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+ ElseIf wynik_lokalny <> 0 And Funkcja = 990 Then 'Dodaj dekret pojedynczy
+ Komunikat = "Nieokreślony błąd API XL"
+ Select Case wynik_lokalny
+ Case -1
+ Komunikat = "BŁĄD: API nie zostało aktywowane bądź błąd wersji"
+ Case 101
+ Komunikat = "BŁĄD: Niepoprawny dziennik księgowań"
+ Case 102
+ Komunikat = "BŁĄD: Niepoprawny bufor księgowań"
+ Case 103
+ Komunikat = "BŁĄD: Kwota = 0"
+ Case 104
+ Komunikat = "BŁĄD: Brak opisu"
+ Case 105
+ Komunikat = "BŁĄD: Dodawanie dekretu składowego bez otwarcia dekretu zbiorczego"
+ Case 1002
+ Komunikat = "BŁĄD: Otwarty poprzedni dekret lub zamknięty modyfikowany dekret"
+ Case 8001
+ Komunikat = "BŁĄD: Niepoprawne konto księgowań"
+ Case 8003
+ Komunikat = "BŁĄD: Konto posiada analitykę"
+ Case 8006
+ Komunikat = "BŁĄD: Data nie mieści się w żadnym z zadeklarowanych okresów obrachunkowych. Załóż okres i powtórz operację"
+ Case 8008
+ Komunikat = "BŁĄD: Zła data . Załóż nowy dekret księgowy. Błąd ten wyświetla się zawsze kiedy data nie mieści się w okresie obrachunkowym"
+ Case 8046
+ Komunikat = "BŁĄD: Nie można księgować na to samo konto"
+ Case 8190
+ Komunikat = "BŁĄD: Dokonywanie zapisu księgowego bez podania żadnego z kont"
+ Case Else
+ Komunikat = "BŁĄD: Nieznany błąd"
+ End Select
+ MainFrm.listuj(Komunikat) ' nie pisz komunikatu, że zabrakło ilości dla WM
+ Ilosc_Bledow = Ilosc_Bledow + 1
+ OpisBledu = Ilosc_Bledow
+
+ End If
+ End Function
+
+
+ '--------------------------------------------------------------------------------------------------
+ ' Funkcja XLPobierzNumerDokumentu rozwiązuje GID na sformatowany numer dokumentu
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function NumerDokumentu(ByVal GIDTyp As Integer, ByVal GIDFirma As Integer, ByVal GIDNumer As Integer, ByVal GIDLp As Integer) As String
+ Dim NumerDokumentuInfo As New cdn_api.XLNumerDokumentuInfo_20182
+ Dim nrd As String
+
+ NumerDokumentuInfo.Wersja = Wersja
+ NumerDokumentuInfo.GIDTyp = GIDTyp
+ NumerDokumentuInfo.GIDFirma = GIDFirma
+ NumerDokumentuInfo.GIDNumer = GIDNumer
+ NumerDokumentuInfo.GIDLp = GIDLp
+
+ Try
+ wynikXL = cdn_api.cdn_api.XLPobierzNumerDokumentu(NumerDokumentuInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLPobierzNumerDokumentu"
+ End Try
+ NumerDokumentu = ""
+ nrd = ""
+ If wynikXL = 0 Then
+ nrd = NumerDokumentuInfo.NumerDokumentu
+ Else
+ If wynikXL = -1 Then
+ Komunikat = "XLPobierzNumerDokumentu: nieaktywna sesja API lub nieprawidłowy numer wersji"
+ ElseIf wynikXL = 1 Then
+ Komunikat = "XLPobierzNumerDokumentu: nie znaleziono dokumentu"
+ ElseIf wynikXL = 2 Then
+ Komunikat = "XLPobierzNumerDokumentu: podano nieobsługiwany GIDTyp"
+ End If
+ MainFrm.listuj(Komunikat)
+ End If
+ NumerDokumentu = RTrim(nrd)
+ End Function
+
+ '--------------------------------------------------------------------------------------------------
+
+ Public Function XLSprawdzLicencje() As Boolean
+ Dim LicencjaInfo As New cdn_api.XLLicencjaInfo_20182 With
+ {
+ .Wersja = Wersja,
+ .Licencja = 1,
+ .Odswiez = 1,
+ .Stan = 0
+ }
+
+ wynikXL = 0
+ XLSprawdzLicencje = False
+ Try
+ wynikXL = cdn_api.cdn_api.XLSprawdzLicencje(LicencjaInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLSprawdzLicencje"
+ End Try
+ If LicencjaInfo.Stan = 1 Then
+ XLSprawdzLicencje = True
+ Else
+ Komunikat = "Błąd API XLSprawdzLicencje = " & CStr(wynikXL)
+ If wynikXL = 0 Then
+ Select Case LicencjaInfo.Stan
+ Case 0
+ Komunikat = "XLSprawdzLicencje: nie pobrano licencji"
+ Case 2
+ Komunikat = "XLSprawdzLicencje: nie pobrano licencji - błąd pobrania licencji bądź ilość licencji wyczerpana"
+ Case 3
+ Komunikat = "XLSprawdzLicencje: licencja przeterminowana"
+ Case 4
+ Komunikat = "XLSprawdzLicencje: licencja promocyjna"
+ End Select
+ ElseIf wynikXL = -1 Then
+ Komunikat = "XLSprawdzLicencje: Sesja API nieaktywna lub nieprawidłowy numer"
+ ElseIf wynikXL = 1 Then
+ Komunikat = "XLSprawdzLicencje: błąd klucza sprzętowego"
+ End If
+ MainFrm.listuj(Komunikat)
+ End If
+ End Function
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretPojedynczy - Funkcja dodaje jeden dekret pojedynczy - bez nagłówka
+
+ Sub XLDodajDekretPoj()
+ Dim DekretInfo As New cdn_api.XLDekretInfo_20182
+ Dim w As Integer
+
+ With DekretInfo
+ .Wersja = Wersja
+ '.Tryb = Range("b6").Value 'Tryb wystawienia (interakcyjny/wsadowy)
+ '.GIDTyp = Range("b7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("b8").Value '
+ '.GIDNumer = Range("b9").Value '
+ '.GIDLp = Range("b10").Value '
+ '.Data = Range("b11").Value 'Data dekretu
+ '.DataDokumentu = Range("b12").Value 'Data dokumentu
+ '.Kwota = Str(Range("b13").Value) 'Kwota pomnożona przez 100
+ '.KwotaWalDT = Str(Range("b14").Value) 'Kwota winien w walucie pomnożona przez 100
+ '.KwotaWalCT = Str(Range("b15").Value) 'Kwota ma w walucie pomnożona przez 100
+ '.NumerDokumentu = Range("b16").Value + Chr(0) 'Numer dokumentu
+ '.Dziennik = Range("b17").Value + Chr(0) 'Dziennik księgowań
+ '.Bufor = Range("b18").Value + Chr(0) 'Bufor księgowań (pusty = KG)
+ '.KontoDebet = Range("b19").Value + Chr(0) 'Numer konta winien (WN)
+ '.KontoCredit = Range("b20").Value + Chr(0) 'Numer konta ma (MA)
+ '.KontoWalDT = Range("b21").Value + Chr(0)
+ '.KontoWalCT = Range("b22").Value + Chr(0)
+ '.Identyfikator = Range("b23").Value
+ '.Opis = Range("b24").Value + Chr(0) 'Opis dekretu
+ End With
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretPojedynczy(Sesja, DekretInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretPojedynczy"
+ End Try
+ w = OpisBledu(990, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretZbiorczy - Funkcja dodaje nagłówek dekretu zbiorczego
+
+ Sub XLDodajDekretZb(DekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20182)
+ Dim w As Integer
+
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretZbiorczy(Sesja, DekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretZbiorczy"
+ End Try
+ w = OpisBledu(994, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLDodajDekretSkladowy - Funkcja dodaje jeden dekret składowy w otwartym dekrecie zbiorczym
+
+ Sub XLDodajDekretSkl(DekretSkladowyInfo As cdn_api.XLDekretInfo_20182)
+ Dim w As Integer
+
+ With DekretSkladowyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLDodajDekretSkladowy(Sesja, DekretSkladowyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLDodajDekretSkładowy"
+ End Try
+ w = OpisBledu(993, wynikXL, 0)
+ End Sub
+
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLZamknijDekretZbiorczy - Funkcja zamyka dekret zbiorczy
+
+ Sub XLZamknijDekretZb(ZamknijDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20182)
+ Dim w As Integer
+
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLZamknijDekretZbiorczy(Sesja, ZamknijDekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLZamknijDekretZbiorczy"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLSumujDekret - Funkcja podaje sumę dekretu zbiorczego
+
+ Sub XLSumujDekretZb(SumujDekretZbiorczyInfo As cdn_api.XLDekretZbiorczyInfo_20182)
+ Dim w As Integer
+
+ With SumujDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ '.GIDTyp = Range("n7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("n8").Value '
+ '.GIDNumer = Range("n9").Value '
+ '.GIDLp = Range("n10").Value '
+ '.Data = Range("n11").Value 'Data dekretu
+ '.DataDokumentu = Range("n12").Value 'Data dokumentu
+ '.KwotaDebet = Str(Range("n13").Value) + Chr(0) 'Kwota sumaryczna winien pomnożona przez 100
+ '.KwotaCredit = Str(Range("n14").Value) + Chr(0) 'Kwota sumaryczna ma pomnożona przez 100
+ '.NumerDokumentu = Range("n15").Value + Chr(0) 'Numer dokumentu
+ '.Dziennik = Range("n16").Value + Chr(0) 'Dziennik księgowań
+ '.Bufor = Range("n17").Value + Chr(0) 'Bufor księgowań (pusty = KG)
+ '.Identyfikator = Range("n18").Value
+ '.Opis = Range("n19").Value + Chr(0) 'Opis dekretu
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLSumujDekretZbiorczy(Sesja, SumujDekretZbiorczyInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLSumujDekretZbiorczy"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+ '-------------------------------------------------------------------------------------
+ ' Funkcja XLKasujDekret - Funkcja kasuje dekret
+
+ Sub XLKasujDekretzb(KasujDekretInfo As cdn_api.XLDekretInfo_20182)
+ Dim w As Integer
+
+ With KasujDekretInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ '.GIDTyp = Range("q7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("q8").Value '
+ '.GIDNumer = Range("q9").Value '
+ '.GIDLp = Range("q10").Value '
+ '.Data = Range("q11").Value 'Data dekretu
+ '.DataDokumentu = Range("q12").Value 'Data dokumentu
+ '.Kwota = Str(Range("q13").Value) + Chr(0) 'Kwota pomnożona przez 100
+ '.KwotaWalDT = Str(Range("q14").Value) + Chr(0) 'Kwota winien w walucie pomnożona przez 100
+ '.KwotaWalCT = Str(Range("q15").Value) + Chr(0) 'Kwota ma w walucie pomnożona przez 100
+ '.NumerDokumentu = Range("q16").Value + Chr(0) 'Numer dokumentu
+ '.Dziennik = Range("q17").Value + Chr(0) 'Dziennik księgowań
+ '.Bufor = Range("q18").Value + Chr(0) 'Bufor księgowań (pusty = KG)
+ '.KontoDebet = Range("q19").Value + Chr(0) 'Numer konta winien (WN)
+ '.KontoCredit = Range("q20").Value + Chr(0) 'Numer konta ma (MA)
+ '.KontoWalDT = Range("q21").Value + Chr(0)
+ '.KontoWalCT = Range("q22").Value + Chr(0)
+ '.Identyfikator = Range("q23").Value
+ '.Opis = Range("q24").Value + Chr(0) 'Opis dekretu
+ End With
+
+ wynikXL = 0
+ Try
+ wynikXL = cdn_api.cdn_api.XLKasujDekret(Sesja, KasujDekretInfo)
+ Catch ex As Exception
+ wynikXL = -200
+ Komunikat = "Nie rozpoznany błąd API XLKasujDekret"
+ End Try
+ w = OpisBledu(992, wynikXL, 0)
+ End Sub
+
+
+End Module
diff --git a/.svn/pristine/25/254da9b5be324eb5ca18fff64ed2f5dbdd5f4cfd.svn-base b/.svn/pristine/25/254da9b5be324eb5ca18fff64ed2f5dbdd5f4cfd.svn-base
new file mode 100644
index 0000000..8e7bff0
--- /dev/null
+++ b/.svn/pristine/25/254da9b5be324eb5ca18fff64ed2f5dbdd5f4cfd.svn-base
@@ -0,0 +1,46 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ c:\temp
+
+
+ crispcas\sql17
+
+
+ MAGJ
+
+
+ 10.0.2.252\GOTECSQL2
+
+
+
+
+
+
+
+
+ CDNXL_GOTEC_J
+
+
+
+
+
+ CDNXL_GOTEC_80
+
+
+
+
diff --git a/.svn/pristine/27/27e91e33d0c2292a0c8abafe15aa493b48ce93e4.svn-base b/.svn/pristine/27/27e91e33d0c2292a0c8abafe15aa493b48ce93e4.svn-base
new file mode 100644
index 0000000..0e25c85
--- /dev/null
+++ b/.svn/pristine/27/27e91e33d0c2292a0c8abafe15aa493b48ce93e4.svn-base
@@ -0,0 +1,64 @@
+
+
+
+
+
+ <?xml version="1.0" encoding="utf-16"?>
+<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <ConnectionString>Data Source=mserv\sql08r2;Initial Catalog=CDNXL_GOTEC_J;Persist Security Info=True;User ID=sa;Password=cdn</ConnectionString>
+ <ProviderName>System.Data.SqlClient</ProviderName>
+</SerializableConnectionString>
+ Data Source=mserv\sql08r2;Initial Catalog=CDNXL_GOTEC_J;Persist Security Info=True;User ID=sa;Password=cdn
+
+
+ <?xml version="1.0" encoding="utf-16"?>
+<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <ConnectionString>Data Source=mserv\sql08r2;Initial Catalog=CDNXL_GOTEC_80;Persist Security Info=True;User ID=sa;Password=cdn</ConnectionString>
+ <ProviderName>System.Data.SqlClient</ProviderName>
+</SerializableConnectionString>
+ Data Source=mserv\sql08r2;Initial Catalog=CDNXL_GOTEC_80;Persist Security Info=True;User ID=sa;Password=cdn
+
+
+ c:\temp
+
+
+ mserv\sql08r2
+
+
+ crispcas\sql17
+
+
+ MAG_JAST
+
+
+ mserv\sql08r2
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/29/29617db7b9c7761b9cc17b5d13ae87dc23bdb659.svn-base b/.svn/pristine/29/29617db7b9c7761b9cc17b5d13ae87dc23bdb659.svn-base
new file mode 100644
index 0000000..29de461
--- /dev/null
+++ b/.svn/pristine/29/29617db7b9c7761b9cc17b5d13ae87dc23bdb659.svn-base
@@ -0,0 +1,711 @@
+
+Partial Class MainFrm
+ Inherits System.Windows.Forms.Form
+
+ 'Formularz przesłania metodę dispose, aby wyczyścić listę składników.
+
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wymagane przez Projektanta formularzy systemu Windows
+ Private components As System.ComponentModel.IContainer
+
+ 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows
+ 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows.
+ 'Nie należy modyfikować za pomocą edytora kodu.
+
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainFrm))
+ Me.TlMainPanel = New System.Windows.Forms.TableLayoutPanel()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GbRadio = New System.Windows.Forms.GroupBox()
+ Me.RbAll = New System.Windows.Forms.RadioButton()
+ Me.RbBlack = New System.Windows.Forms.RadioButton()
+ Me.RbRed = New System.Windows.Forms.RadioButton()
+ Me.CbWewn = New System.Windows.Forms.CheckBox()
+ Me.CbZakup = New System.Windows.Forms.CheckBox()
+ Me.CbSprzedaz = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.CbKonto = New System.Windows.Forms.ComboBox()
+ Me.BsTbmyImpDMKonta = New System.Windows.Forms.BindingSource(Me.components)
+ Me.DsMain = New ImportDokMag.DsMain()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.edRok = New System.Windows.Forms.NumericUpDown()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.CbMiesiac = New System.Windows.Forms.ComboBox()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.BtImport = New System.Windows.Forms.Button()
+ Me.lbUwaga = New System.Windows.Forms.Button()
+ Me.BtKonfig = New System.Windows.Forms.Button()
+ Me.BtUsunFlage = New System.Windows.Forms.Button()
+ Me.BtKoniec = New System.Windows.Forms.Button()
+ Me.BtOdswiez = New System.Windows.Forms.Button()
+ Me.TcZakladki = New System.Windows.Forms.TabControl()
+ Me.TpDocs = New System.Windows.Forms.TabPage()
+ Me.DgvDokumenty = New System.Windows.Forms.DataGridView()
+ Me.colLp = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokument = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokZr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKOpis = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataWyst = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataOper = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaCT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaDT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKDziennik = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDekret = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colRokMiesiac = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataImportu = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colMagazyn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colKontrahent = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colOpisDok = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokKoryg = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.BsTbmy_ImpDM_Src = New System.Windows.Forms.BindingSource(Me.components)
+ Me.TpList = New System.Windows.Forms.TabPage()
+ Me.LstWynik = New System.Windows.Forms.ListBox()
+ Me.Timer = New System.Windows.Forms.Timer(Me.components)
+ Me.Tamy_ImpDM_Src = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Src()
+ Me.TableAdapterManager = New ImportDokMag.DsMainTableAdapters.TableAdapterManager()
+ Me.BsTbmy_ImpDM_Dekr = New System.Windows.Forms.BindingSource(Me.components)
+ Me.Tamy_ImpDM_Dekr = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Dekr()
+ Me.Tamy_ImpDM_Konta = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Konta()
+ Me.TlMainPanel.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.GbRadio.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ CType(Me.BsTbmyImpDMKonta, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.TcZakladki.SuspendLayout()
+ Me.TpDocs.SuspendLayout()
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TpList.SuspendLayout()
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'TlMainPanel
+ '
+ Me.TlMainPanel.ColumnCount = 2
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 150.0!))
+ Me.TlMainPanel.Controls.Add(Me.Panel1, 0, 0)
+ Me.TlMainPanel.Controls.Add(Me.Panel2, 0, 2)
+ Me.TlMainPanel.Controls.Add(Me.TableLayoutPanel1, 1, 1)
+ Me.TlMainPanel.Controls.Add(Me.BtKoniec, 1, 2)
+ Me.TlMainPanel.Controls.Add(Me.BtOdswiez, 1, 0)
+ Me.TlMainPanel.Controls.Add(Me.TcZakladki, 0, 1)
+ Me.TlMainPanel.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TlMainPanel.Location = New System.Drawing.Point(3, 3)
+ Me.TlMainPanel.Name = "TlMainPanel"
+ Me.TlMainPanel.RowCount = 3
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 7.102805!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 92.89719!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 65.0!))
+ Me.TlMainPanel.Size = New System.Drawing.Size(774, 651)
+ Me.TlMainPanel.TabIndex = 0
+ '
+ 'Panel1
+ '
+ Me.Panel1.Controls.Add(Me.GbRadio)
+ Me.Panel1.Controls.Add(Me.CbWewn)
+ Me.Panel1.Controls.Add(Me.CbZakup)
+ Me.Panel1.Controls.Add(Me.CbSprzedaz)
+ Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(618, 35)
+ Me.Panel1.TabIndex = 1
+ '
+ 'GbRadio
+ '
+ Me.GbRadio.Controls.Add(Me.RbAll)
+ Me.GbRadio.Controls.Add(Me.RbBlack)
+ Me.GbRadio.Controls.Add(Me.RbRed)
+ Me.GbRadio.Dock = System.Windows.Forms.DockStyle.Right
+ Me.GbRadio.Location = New System.Drawing.Point(241, 0)
+ Me.GbRadio.Name = "GbRadio"
+ Me.GbRadio.Size = New System.Drawing.Size(377, 35)
+ Me.GbRadio.TabIndex = 3
+ Me.GbRadio.TabStop = False
+ '
+ 'RbAll
+ '
+ Me.RbAll.AutoSize = True
+ Me.RbAll.Location = New System.Drawing.Point(297, 9)
+ Me.RbAll.Name = "RbAll"
+ Me.RbAll.Size = New System.Drawing.Size(73, 17)
+ Me.RbAll.TabIndex = 2
+ Me.RbAll.TabStop = True
+ Me.RbAll.Text = "Wszystkie"
+ Me.RbAll.UseVisualStyleBackColor = True
+ '
+ 'RbBlack
+ '
+ Me.RbBlack.AutoSize = True
+ Me.RbBlack.Location = New System.Drawing.Point(164, 9)
+ Me.RbBlack.Name = "RbBlack"
+ Me.RbBlack.Size = New System.Drawing.Size(101, 17)
+ Me.RbBlack.TabIndex = 1
+ Me.RbBlack.TabStop = True
+ Me.RbBlack.Text = "Nieimportowane"
+ Me.RbBlack.UseVisualStyleBackColor = True
+ '
+ 'RbRed
+ '
+ Me.RbRed.AutoSize = True
+ Me.RbRed.Location = New System.Drawing.Point(34, 9)
+ Me.RbRed.Name = "RbRed"
+ Me.RbRed.Size = New System.Drawing.Size(98, 17)
+ Me.RbRed.TabIndex = 0
+ Me.RbRed.TabStop = True
+ Me.RbRed.Text = "Zaimportowane"
+ Me.RbRed.UseVisualStyleBackColor = True
+ '
+ 'CbWewn
+ '
+ Me.CbWewn.AutoSize = True
+ Me.CbWewn.Location = New System.Drawing.Point(146, 9)
+ Me.CbWewn.Name = "CbWewn"
+ Me.CbWewn.Size = New System.Drawing.Size(86, 17)
+ Me.CbWewn.TabIndex = 2
+ Me.CbWewn.Text = "Wewnętrzne"
+ Me.CbWewn.UseVisualStyleBackColor = True
+ '
+ 'CbZakup
+ '
+ Me.CbZakup.AutoSize = True
+ Me.CbZakup.Location = New System.Drawing.Point(83, 9)
+ Me.CbZakup.Name = "CbZakup"
+ Me.CbZakup.Size = New System.Drawing.Size(57, 17)
+ Me.CbZakup.TabIndex = 1
+ Me.CbZakup.Text = "Zakup"
+ Me.CbZakup.UseVisualStyleBackColor = True
+ '
+ 'CbSprzedaz
+ '
+ Me.CbSprzedaz.AutoSize = True
+ Me.CbSprzedaz.Location = New System.Drawing.Point(7, 9)
+ Me.CbSprzedaz.Name = "CbSprzedaz"
+ Me.CbSprzedaz.Size = New System.Drawing.Size(70, 17)
+ Me.CbSprzedaz.TabIndex = 0
+ Me.CbSprzedaz.Text = "Sprzedaż"
+ Me.CbSprzedaz.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Controls.Add(Me.CbKonto)
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.edRok)
+ Me.Panel2.Controls.Add(Me.Label2)
+ Me.Panel2.Controls.Add(Me.Label1)
+ Me.Panel2.Controls.Add(Me.CbMiesiac)
+ Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel2.Location = New System.Drawing.Point(3, 588)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(618, 60)
+ Me.Panel2.TabIndex = 2
+ '
+ 'CbKonto
+ '
+ Me.CbKonto.DataSource = Me.BsTbmyImpDMKonta
+ Me.CbKonto.DisplayMember = "Konto"
+ Me.CbKonto.FormattingEnabled = True
+ Me.CbKonto.Location = New System.Drawing.Point(415, 20)
+ Me.CbKonto.Name = "CbKonto"
+ Me.CbKonto.Size = New System.Drawing.Size(121, 21)
+ Me.CbKonto.TabIndex = 5
+ Me.CbKonto.ValueMember = "Konto"
+ '
+ 'BsTbmyImpDMKonta
+ '
+ Me.BsTbmyImpDMKonta.DataMember = "Tbmy_ImpDM_Konta"
+ Me.BsTbmyImpDMKonta.DataSource = Me.DsMain
+ '
+ 'DsMain
+ '
+ Me.DsMain.DataSetName = "DsMain"
+ Me.DsMain.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(366, 24)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(35, 13)
+ Me.Label3.TabIndex = 4
+ Me.Label3.Text = "Konto"
+ '
+ 'edRok
+ '
+ Me.edRok.Location = New System.Drawing.Point(37, 22)
+ Me.edRok.Maximum = New Decimal(New Integer() {3000, 0, 0, 0})
+ Me.edRok.Minimum = New Decimal(New Integer() {2000, 0, 0, 0})
+ Me.edRok.Name = "edRok"
+ Me.edRok.Size = New System.Drawing.Size(120, 20)
+ Me.edRok.TabIndex = 0
+ Me.edRok.Value = New Decimal(New Integer() {2019, 0, 0, 0})
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Location = New System.Drawing.Point(169, 24)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(43, 13)
+ Me.Label2.TabIndex = 3
+ Me.Label2.Text = "Miesiąc"
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Location = New System.Drawing.Point(4, 24)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(27, 13)
+ Me.Label1.TabIndex = 2
+ Me.Label1.Text = "Rok"
+ '
+ 'CbMiesiac
+ '
+ Me.CbMiesiac.FormattingEnabled = True
+ Me.CbMiesiac.Items.AddRange(New Object() {"styczeń", "luty", "marzec", "kwiecień", "maj", "czerwiec", "lipiec", "sierpień", "wrzesień", "październik", "listopad", "grudzień"})
+ Me.CbMiesiac.Location = New System.Drawing.Point(218, 21)
+ Me.CbMiesiac.Name = "CbMiesiac"
+ Me.CbMiesiac.Size = New System.Drawing.Size(121, 21)
+ Me.CbMiesiac.TabIndex = 1
+ Me.CbMiesiac.Text = "styczeń"
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.AutoScroll = True
+ Me.TableLayoutPanel1.ColumnCount = 3
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.BtImport, 1, 1)
+ Me.TableLayoutPanel1.Controls.Add(Me.lbUwaga, 1, 4)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtKonfig, 1, 6)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtUsunFlage, 1, 3)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(627, 44)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 8
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 22.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 42.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 60.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 57.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(144, 538)
+ Me.TableLayoutPanel1.TabIndex = 3
+ '
+ 'BtImport
+ '
+ Me.BtImport.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtImport.Location = New System.Drawing.Point(25, 23)
+ Me.BtImport.Name = "BtImport"
+ Me.BtImport.Size = New System.Drawing.Size(94, 26)
+ Me.BtImport.TabIndex = 4
+ Me.BtImport.Text = "Importuj"
+ Me.BtImport.UseVisualStyleBackColor = True
+ '
+ 'lbUwaga
+ '
+ Me.lbUwaga.BackColor = System.Drawing.Color.PaleGreen
+ Me.lbUwaga.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.lbUwaga.Enabled = False
+ Me.lbUwaga.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lbUwaga.ForeColor = System.Drawing.Color.Red
+ Me.lbUwaga.Location = New System.Drawing.Point(25, 119)
+ Me.lbUwaga.Name = "lbUwaga"
+ Me.lbUwaga.Size = New System.Drawing.Size(94, 54)
+ Me.lbUwaga.TabIndex = 5
+ Me.lbUwaga.Text = "Czekaj: pobieranie danych"
+ Me.lbUwaga.UseVisualStyleBackColor = False
+ Me.lbUwaga.Visible = False
+ '
+ 'BtKonfig
+ '
+ Me.BtKonfig.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtKonfig.Location = New System.Drawing.Point(25, 456)
+ Me.BtKonfig.Name = "BtKonfig"
+ Me.BtKonfig.Size = New System.Drawing.Size(94, 22)
+ Me.BtKonfig.TabIndex = 6
+ Me.BtKonfig.Text = "Konfiguracja"
+ Me.BtKonfig.UseVisualStyleBackColor = True
+ '
+ 'BtUsunFlage
+ '
+ Me.BtUsunFlage.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtUsunFlage.Location = New System.Drawing.Point(25, 77)
+ Me.BtUsunFlage.Name = "BtUsunFlage"
+ Me.BtUsunFlage.Size = New System.Drawing.Size(94, 36)
+ Me.BtUsunFlage.TabIndex = 7
+ Me.BtUsunFlage.Text = "Skasuj flagę importu"
+ Me.BtUsunFlage.UseVisualStyleBackColor = True
+ '
+ 'BtKoniec
+ '
+ Me.BtKoniec.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.BtKoniec.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.BtKoniec.Location = New System.Drawing.Point(627, 588)
+ Me.BtKoniec.Name = "BtKoniec"
+ Me.BtKoniec.Size = New System.Drawing.Size(144, 60)
+ Me.BtKoniec.TabIndex = 4
+ Me.BtKoniec.Text = "Koniec"
+ Me.BtKoniec.UseVisualStyleBackColor = True
+ '
+ 'BtOdswiez
+ '
+ Me.BtOdswiez.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtOdswiez.Location = New System.Drawing.Point(627, 3)
+ Me.BtOdswiez.Name = "BtOdswiez"
+ Me.BtOdswiez.Size = New System.Drawing.Size(144, 35)
+ Me.BtOdswiez.TabIndex = 5
+ Me.BtOdswiez.Text = "Odśwież dane"
+ Me.BtOdswiez.UseVisualStyleBackColor = True
+ '
+ 'TcZakladki
+ '
+ Me.TcZakladki.Controls.Add(Me.TpDocs)
+ Me.TcZakladki.Controls.Add(Me.TpList)
+ Me.TcZakladki.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TcZakladki.Location = New System.Drawing.Point(3, 44)
+ Me.TcZakladki.Name = "TcZakladki"
+ Me.TcZakladki.SelectedIndex = 0
+ Me.TcZakladki.Size = New System.Drawing.Size(618, 538)
+ Me.TcZakladki.TabIndex = 6
+ '
+ 'TpDocs
+ '
+ Me.TpDocs.Controls.Add(Me.DgvDokumenty)
+ Me.TpDocs.Location = New System.Drawing.Point(4, 22)
+ Me.TpDocs.Name = "TpDocs"
+ Me.TpDocs.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpDocs.Size = New System.Drawing.Size(610, 512)
+ Me.TpDocs.TabIndex = 0
+ Me.TpDocs.Text = "Dokumenty"
+ Me.TpDocs.UseVisualStyleBackColor = True
+ '
+ 'DgvDokumenty
+ '
+ Me.DgvDokumenty.AllowUserToAddRows = False
+ Me.DgvDokumenty.AllowUserToDeleteRows = False
+ Me.DgvDokumenty.AllowUserToOrderColumns = True
+ Me.DgvDokumenty.AllowUserToResizeRows = False
+ DataGridViewCellStyle1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.DgvDokumenty.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+ Me.DgvDokumenty.AutoGenerateColumns = False
+ Me.DgvDokumenty.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.DisplayedCells
+ Me.DgvDokumenty.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
+ Me.DgvDokumenty.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.DgvDokumenty.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colLp, Me.colDokument, Me.colDokZr, Me.colDZKOpis, Me.colDataWyst, Me.colDataOper, Me.colSumaCT, Me.colSumaDT, Me.colDZKDziennik, Me.colDekret, Me.colRokMiesiac, Me.colDataImportu, Me.colMagazyn, Me.colKontrahent, Me.colOpisDok, Me.colDokKoryg})
+ Me.DgvDokumenty.DataSource = Me.BsTbmy_ImpDM_Src
+ Me.DgvDokumenty.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.DgvDokumenty.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically
+ Me.DgvDokumenty.Location = New System.Drawing.Point(3, 3)
+ Me.DgvDokumenty.Name = "DgvDokumenty"
+ Me.DgvDokumenty.ReadOnly = True
+ Me.DgvDokumenty.RowHeadersVisible = False
+ Me.DgvDokumenty.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+ Me.DgvDokumenty.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.DgvDokumenty.ShowEditingIcon = False
+ Me.DgvDokumenty.Size = New System.Drawing.Size(604, 506)
+ Me.DgvDokumenty.TabIndex = 0
+ '
+ 'colLp
+ '
+ Me.colLp.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colLp.DataPropertyName = "Lp"
+ Me.colLp.HeaderText = "Lp"
+ Me.colLp.Name = "colLp"
+ Me.colLp.ReadOnly = True
+ Me.colLp.Width = 44
+ '
+ 'colDokument
+ '
+ Me.colDokument.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokument.DataPropertyName = "Dokument"
+ Me.colDokument.HeaderText = "Dokument"
+ Me.colDokument.Name = "colDokument"
+ Me.colDokument.ReadOnly = True
+ Me.colDokument.Width = 81
+ '
+ 'colDokZr
+ '
+ Me.colDokZr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokZr.DataPropertyName = "DokZr"
+ Me.colDokZr.HeaderText = "Dok. żródłowy"
+ Me.colDokZr.Name = "colDokZr"
+ Me.colDokZr.ReadOnly = True
+ Me.colDokZr.Width = 101
+ '
+ 'colDZKOpis
+ '
+ Me.colDZKOpis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDZKOpis.DataPropertyName = "DZK_Opis"
+ Me.colDZKOpis.HeaderText = "Opis dziennika"
+ Me.colDZKOpis.Name = "colDZKOpis"
+ Me.colDZKOpis.ReadOnly = True
+ Me.colDZKOpis.Width = 53
+ '
+ 'colDataWyst
+ '
+ Me.colDataWyst.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataWyst.DataPropertyName = "DataWyst"
+ Me.colDataWyst.HeaderText = "Data"
+ Me.colDataWyst.Name = "colDataWyst"
+ Me.colDataWyst.ReadOnly = True
+ Me.colDataWyst.Width = 55
+ '
+ 'colDataOper
+ '
+ Me.colDataOper.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataOper.DataPropertyName = "DataOper"
+ Me.colDataOper.HeaderText = "Data dokumentu"
+ Me.colDataOper.Name = "colDataOper"
+ Me.colDataOper.ReadOnly = True
+ Me.colDataOper.Width = 102
+ '
+ 'colSumaCT
+ '
+ Me.colSumaCT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colSumaCT.DataPropertyName = "SumaCT"
+ Me.colSumaCT.HeaderText = "Suma Ma"
+ Me.colSumaCT.Name = "colSumaCT"
+ Me.colSumaCT.ReadOnly = True
+ Me.colSumaCT.Width = 71
+ '
+ 'colSumaDT
+ '
+ Me.colSumaDT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colSumaDT.DataPropertyName = "SumaDT"
+ Me.colSumaDT.HeaderText = "Suma Winien"
+ Me.colSumaDT.Name = "colSumaDT"
+ Me.colSumaDT.ReadOnly = True
+ Me.colSumaDT.Width = 87
+ '
+ 'colDZKDziennik
+ '
+ Me.colDZKDziennik.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDZKDziennik.DataPropertyName = "DZK_Dziennik"
+ Me.colDZKDziennik.HeaderText = "Dziennik"
+ Me.colDZKDziennik.Name = "colDZKDziennik"
+ Me.colDZKDziennik.ReadOnly = True
+ Me.colDZKDziennik.Visible = False
+ Me.colDZKDziennik.Width = 73
+ '
+ 'colDekret
+ '
+ Me.colDekret.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDekret.DataPropertyName = "Dekret"
+ Me.colDekret.HeaderText = "Dekret"
+ Me.colDekret.Name = "colDekret"
+ Me.colDekret.ReadOnly = True
+ Me.colDekret.Visible = False
+ Me.colDekret.Width = 64
+ '
+ 'colRokMiesiac
+ '
+ Me.colRokMiesiac.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colRokMiesiac.DataPropertyName = "RokMiesiac"
+ Me.colRokMiesiac.HeaderText = "RokMiesiac"
+ Me.colRokMiesiac.Name = "colRokMiesiac"
+ Me.colRokMiesiac.ReadOnly = True
+ Me.colRokMiesiac.Visible = False
+ Me.colRokMiesiac.Width = 88
+ '
+ 'colDataImportu
+ '
+ Me.colDataImportu.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataImportu.DataPropertyName = "DataImportu"
+ Me.colDataImportu.HeaderText = "Data importu"
+ Me.colDataImportu.Name = "colDataImportu"
+ Me.colDataImportu.ReadOnly = True
+ Me.colDataImportu.Width = 85
+ '
+ 'colMagazyn
+ '
+ Me.colMagazyn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colMagazyn.DataPropertyName = "Magazyn"
+ Me.colMagazyn.HeaderText = "Magazyn"
+ Me.colMagazyn.Name = "colMagazyn"
+ Me.colMagazyn.ReadOnly = True
+ '
+ 'colKontrahent
+ '
+ Me.colKontrahent.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colKontrahent.DataPropertyName = "Kontrahent"
+ Me.colKontrahent.HeaderText = "Kontrahent"
+ Me.colKontrahent.Name = "colKontrahent"
+ Me.colKontrahent.ReadOnly = True
+ '
+ 'colOpisDok
+ '
+ Me.colOpisDok.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colOpisDok.DataPropertyName = "Opis"
+ Me.colOpisDok.HeaderText = "Opis dokumentu"
+ Me.colOpisDok.Name = "colOpisDok"
+ Me.colOpisDok.ReadOnly = True
+ '
+ 'colDokKoryg
+ '
+ Me.colDokKoryg.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokKoryg.DataPropertyName = "DokKoryg"
+ Me.colDokKoryg.HeaderText = "DokKoryg"
+ Me.colDokKoryg.Name = "colDokKoryg"
+ Me.colDokKoryg.ReadOnly = True
+ '
+ 'BsTbmy_ImpDM_Src
+ '
+ Me.BsTbmy_ImpDM_Src.DataMember = "Tbmy_ImpDM_Src"
+ Me.BsTbmy_ImpDM_Src.DataSource = Me.DsMain
+ '
+ 'TpList
+ '
+ Me.TpList.Controls.Add(Me.LstWynik)
+ Me.TpList.Location = New System.Drawing.Point(4, 22)
+ Me.TpList.Name = "TpList"
+ Me.TpList.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpList.Size = New System.Drawing.Size(610, 512)
+ Me.TpList.TabIndex = 1
+ Me.TpList.Text = "Przebieg pracy"
+ Me.TpList.UseVisualStyleBackColor = True
+ '
+ 'LstWynik
+ '
+ Me.LstWynik.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.LstWynik.FormattingEnabled = True
+ Me.LstWynik.Location = New System.Drawing.Point(3, 3)
+ Me.LstWynik.Name = "LstWynik"
+ Me.LstWynik.Size = New System.Drawing.Size(604, 506)
+ Me.LstWynik.TabIndex = 0
+ '
+ 'Timer
+ '
+ Me.Timer.Interval = 200
+ '
+ 'Tamy_ImpDM_Src
+ '
+ Me.Tamy_ImpDM_Src.ClearBeforeFill = True
+ '
+ 'TableAdapterManager
+ '
+ Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+ Me.TableAdapterManager.Connection = Nothing
+ Me.TableAdapterManager.UpdateOrder = ImportDokMag.DsMainTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+ '
+ 'BsTbmy_ImpDM_Dekr
+ '
+ Me.BsTbmy_ImpDM_Dekr.DataMember = "Tbmy_ImpDM_Dekr"
+ Me.BsTbmy_ImpDM_Dekr.DataSource = Me.DsMain
+ '
+ 'Tamy_ImpDM_Dekr
+ '
+ Me.Tamy_ImpDM_Dekr.ClearBeforeFill = True
+ '
+ 'Tamy_ImpDM_Konta
+ '
+ Me.Tamy_ImpDM_Konta.ClearBeforeFill = True
+ '
+ 'MainFrm
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.BtKoniec
+ Me.ClientSize = New System.Drawing.Size(780, 657)
+ Me.Controls.Add(Me.TlMainPanel)
+ Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+ Me.MinimumSize = New System.Drawing.Size(796, 696)
+ 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.0 z 21.10.2024"
+ Me.TlMainPanel.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.GbRadio.ResumeLayout(False)
+ Me.GbRadio.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ CType(Me.BsTbmyImpDMKonta, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TcZakladki.ResumeLayout(False)
+ Me.TpDocs.ResumeLayout(False)
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TpList.ResumeLayout(False)
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+
+ Friend WithEvents TlMainPanel As TableLayoutPanel
+ Friend WithEvents DgvDokumenty As DataGridView
+ Friend WithEvents Panel1 As Panel
+ Friend WithEvents CbWewn As CheckBox
+ Friend WithEvents CbZakup As CheckBox
+ Friend WithEvents CbSprzedaz As CheckBox
+ Friend WithEvents Panel2 As Panel
+ Friend WithEvents edRok As NumericUpDown
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label1 As Label
+ Friend WithEvents CbMiesiac As ComboBox
+ Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+ Friend WithEvents BtImport As Button
+ Friend WithEvents BtKoniec As Button
+ Friend WithEvents BtOdswiez As Button
+ Friend WithEvents DsMain As DsMain
+ Friend WithEvents BsTbmy_ImpDM_Src As BindingSource
+ Friend WithEvents Tamy_ImpDM_Src As DsMainTableAdapters.Tamy_ImpDM_Src
+ Friend WithEvents TableAdapterManager As DsMainTableAdapters.TableAdapterManager
+ Friend WithEvents lbUwaga As Button
+ Friend WithEvents TcZakladki As TabControl
+ Friend WithEvents TpDocs As TabPage
+ Friend WithEvents TpList As TabPage
+ Friend WithEvents LstWynik As ListBox
+ Friend WithEvents BtKonfig As Button
+ Friend WithEvents Timer As Timer
+ Friend WithEvents BsTbmy_ImpDM_Dekr As BindingSource
+ Friend WithEvents Tamy_ImpDM_Dekr As DsMainTableAdapters.Tamy_ImpDM_Dekr
+ Friend WithEvents BtUsunFlage As Button
+ Friend WithEvents colLp As DataGridViewTextBoxColumn
+ Friend WithEvents colDokument As DataGridViewTextBoxColumn
+ Friend WithEvents colDokZr As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKOpis As DataGridViewTextBoxColumn
+ Friend WithEvents colDataWyst As DataGridViewTextBoxColumn
+ Friend WithEvents colDataOper As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaCT As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaDT As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKDziennik As DataGridViewTextBoxColumn
+ Friend WithEvents colDekret As DataGridViewTextBoxColumn
+ Friend WithEvents colRokMiesiac As DataGridViewTextBoxColumn
+ Friend WithEvents colDataImportu As DataGridViewTextBoxColumn
+ Friend WithEvents colMagazyn As DataGridViewTextBoxColumn
+ Friend WithEvents colKontrahent As DataGridViewTextBoxColumn
+ Friend WithEvents colOpisDok As DataGridViewTextBoxColumn
+ Friend WithEvents colDokKoryg As DataGridViewTextBoxColumn
+ Friend WithEvents GbRadio As GroupBox
+ Friend WithEvents RbAll As RadioButton
+ Friend WithEvents RbBlack As RadioButton
+ Friend WithEvents RbRed As RadioButton
+ Friend WithEvents CbKonto As ComboBox
+ Friend WithEvents Label3 As Label
+ Friend WithEvents BsTbmyImpDMKonta As BindingSource
+ Friend WithEvents Tamy_ImpDM_Konta As DsMainTableAdapters.Tamy_ImpDM_Konta
+End Class
diff --git a/.svn/pristine/2d/2d65d55544a77e7ddab24c0b65f63d0ac88b8223.svn-base b/.svn/pristine/2d/2d65d55544a77e7ddab24c0b65f63d0ac88b8223.svn-base
new file mode 100644
index 0000000..18bd803
--- /dev/null
+++ b/.svn/pristine/2d/2d65d55544a77e7ddab24c0b65f63d0ac88b8223.svn-base
@@ -0,0 +1,120 @@
+Public Module ImportDM
+ Public GIDTyp, GIDFirma, GIDNumer, GIDLp As Integer 'aktualny dekret
+ Public DecimalGroupSep As String
+ Public DecimalSep As String
+
+
+ Function szukaj_sep(ByVal line As String, ByVal start As Integer, ByVal separator As String) As Integer
+ Dim i As Integer
+ szukaj_sep = -1
+ i = InStr(start, line, separator, CompareMethod.Text)
+ If i > start Then szukaj_sep = i
+ End Function
+
+ Function ToDate(Data As String) As Date
+ Dim dd As Date
+ Dim pos As Integer
+
+ Data = Replace(Data, "/", ".")
+ Data = Replace(Data, "-", ".")
+ pos = szukaj_sep(Data, 1, ".")
+ Dim TestAr() As String = Split(Data, ".", , CompareMethod.Text)
+ If pos = 5 Then 'rrrr.mm.dd
+ dd = DateSerial(TestAr(0), TestAr(1), TestAr(2))
+ Else 'dd.mm.rrrr
+ dd = DateSerial(TestAr(2), TestAr(1), TestAr(0))
+ End If
+ ToDate = dd
+ End Function
+
+ Function XL_Date(Data As Date) As Integer
+ XL_Date = 36161 + CInt(Data.ToOADate())
+ End Function
+
+ Function Liczba(bf As String) As String
+ Dim w As String
+
+ w = Replace(bf, ",", DecimalSep)
+ w = Replace(bf, ".", DecimalSep)
+ Liczba = w
+ End Function
+
+
+ Public Function ZamknijDekret(ByVal CzyZapisac As Boolean) As Boolean
+
+ If wynikXL = 0 Then Return (True) Else Return (False)
+ End Function
+
+ Public Function UtworzDekretZbiorczy(ByVal IdentKsieg As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal Opis As String, ByVal SumaCT As Decimal, ByVal SumaDT As Decimal) As Boolean
+ Dim DekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20182
+
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ '.GIDTyp = Range("e7").Value 'GID dekretu (zwracanego po dodaniu)
+ '.GIDFirma = Range("e8").Value '
+ '.GIDNumer = Range("e9").Value '
+ '.GIDLp = Range("e10").Value '
+ .Data = XL_Date(Data) 'Data dekretu
+ .DataDokumentu = XL_Date(DokData) 'Data dokumentu
+ .KwotaDebet = Str(SumaDT * 100) + Chr(0) 'Kwota sumaryczna winien pomnożona przez 100
+ .KwotaCredit = Str(SumaCT * 100) + Chr(0) 'Kwota sumaryczna ma pomnożona przez 100
+ .NumerDokumentu = DokZrodlowy + Chr(0) 'Numer dokumentu źródłowego
+ .Dziennik = My.Settings.Dziennik_Docelowy + Chr(0) 'Dziennik księgowań
+ .Bufor = "BUFOR" + Chr(0) 'Bufor księgowań (pusty = KG)
+ .Identyfikator = IdentKsieg 'identyfikator księgowy - numer dokument z Jastrzębia
+ .Opis = Opis + Chr(0) 'Opis dekretu
+ End With
+
+ If wynikXL = 0 Then
+ GIDFirma = DekretZbiorczyInfo.GIDFirma
+ GIDTyp = DekretZbiorczyInfo.GIDTyp
+ GIDNumer = DekretZbiorczyInfo.GIDNumer
+ GIDLp = DekretZbiorczyInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajSkladowy(ByVal DZKNumer As Integer) As Boolean
+ Dim DekretSkladowyInfo As New cdn_api.XLDekretInfo_20182
+ Dim ret As Boolean = False
+ Dim w, i As Integer
+
+ i = 0
+ Try
+ MainFrm.Tamy_ImpDM_Dekr.Fill(MainFrm.DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ MainFrm.BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < MainFrm.BsTbmy_ImpDM_Dekr.Count
+ With DekretSkladowyInfo
+ .Data = MainFrm.BsTbmy_ImpDM_Dekr.Current("Data") 'Data dekretu
+ .DataDokumentu = MainFrm.BsTbmy_ImpDM_Dekr.Current("DataDokumentu") 'Data dokumentu
+ .Kwota = Str(MainFrm.BsTbmy_ImpDM_Dekr.Current("Kwota") * 100) + Chr(0) 'Kwota pomnożona przez 100
+ '.KwotaWalDT = Str(MainFrm.BsTbmy_ImpDM_Dekr.Current("")) + Chr(0) 'Kwota winien w walucie pomnożona przez 100
+ '.KwotaWalCT = Str(MainFrm.BsTbmy_ImpDM_Dekr.Current("")) + Chr(0) 'Kwota ma w walucie pomnożona przez 100
+ .NumerDokumentu = MainFrm.BsTbmy_ImpDM_Dekr.Current("DokZr") + Chr(0) 'Numer dokumentu
+ .Dziennik = My.Settings.Dziennik_Docelowy + Chr(0) 'Dziennik księgowań
+ .Bufor = "BUFOR" + Chr(0) 'Bufor księgowań (pusty = KG)
+ .KontoDebet = MainFrm.BsTbmy_ImpDM_Dekr.Current("KontoDebet") + Chr(0) 'Numer konta winien (WN)
+ .KontoCredit = MainFrm.BsTbmy_ImpDM_Dekr.Current("KontoCredit") + Chr(0) 'Numer konta ma (MA)
+ '.KontoWalDT = MainFrm.BsTbmy_ImpDM_Dekr.Current("") + Chr(0)
+ '.KontoWalCT = MainFrm.BsTbmy_ImpDM_Dekr.Current("") + Chr(0)
+ .Identyfikator = MainFrm.BsTbmy_ImpDM_Dekr.Current("Identyfikator")
+ .Opis = MainFrm.BsTbmy_ImpDM_Dekr.Current("Opis") + Chr(0) 'Opis dekretu
+ End With
+ MainFrm.BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ If wynikXL = 0 Then ret = True
+ Catch ex As System.Exception
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+End Module
diff --git a/.svn/pristine/2f/2fbe84a4e6994dab527b74bf851905d3f86f35ac.svn-base b/.svn/pristine/2f/2fbe84a4e6994dab527b74bf851905d3f86f35ac.svn-base
new file mode 100644
index 0000000..ea35033
--- /dev/null
+++ b/.svn/pristine/2f/2fbe84a4e6994dab527b74bf851905d3f86f35ac.svn-base
@@ -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(50), DT_Kwota decimal(21,2), DT_DataCentrali int)
+ declare @CRE table(DT_GIDNumer int, DT_GIDLp int, DT_DC int, DT_Konto varchar(50), 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),
+ DZK_Opis,
+ [Data] = DEL_DataWyst,
+ DataDokumentu = DEL_DataOper,
+ Kwota = deb.DT_Kwota,
+ DokZr = DZK_DokumentZrodlowy,
+ KontoDebet = deb.DT_Konto,
+ KontoCredit = cre.DT_Konto,
+ Identyfikator = DZK_Opis,
+ Opis = DEL_Opis,
+ 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
diff --git a/.svn/pristine/2f/2ff230cb79007073926cb529538bbbed328aa6e4.svn-base b/.svn/pristine/2f/2ff230cb79007073926cb529538bbbed328aa6e4.svn-base
new file mode 100644
index 0000000..a66b9bb
--- /dev/null
+++ b/.svn/pristine/2f/2ff230cb79007073926cb529538bbbed328aa6e4.svn-base
@@ -0,0 +1,521 @@
+Imports System.Globalization
+Imports System.IO
+Imports System.Text
+
+Public Class MainFrm
+ Public Tylko_Listing As Boolean
+ Public f_out As StreamWriter ' Plik wyjściowy
+ Private Structure DokKolumny
+ Public cLp As Integer
+ Public cDokument As Integer
+ Public cDokZr As Integer
+ Public cDZKOpis As Integer
+ Public cDataWyst As Integer
+ Public cDataOper As Integer
+ Public cSumaCT As Integer
+ Public cSumaDT As Integer
+ Public cDZKDziennik As Integer
+ Public cDekret As Integer
+ Public cRokMiesiac As Integer
+ Public cDataImp As Integer
+ Public cMagazyn As Integer
+ Public cKontrahent As Integer
+ Public cOpisDok As Integer
+ Public cDokKor As Integer
+ End Structure
+
+ Private SpFlag, ZakFlag, WewFlag As Integer
+ Private RM, Rok, Mies As Integer
+ Private SrcConn_str, DstConn_str As String
+ Private KD As DokKolumny
+
+ '----------------------------------------------------------
+ Private Const INT_lens As Integer = 1
+ Private p() As Integer = {2, 4, 7, 9, 3, INT_lens}
+
+ Public Function Encrypt(ByVal inputstr As String) As String
+ Dim str As StringBuilder
+ Dim b As Integer = 6
+ Dim i, j, k, c, cc, bb, lens As Integer
+
+ If inputstr > "" Then
+ str = New StringBuilder(inputstr)
+ lens = str.Length
+ While (lens < b) OrElse (lens Mod b)
+ str.Append(” “)
+ lens += INT_lens
+ End While
+ cc = (lens / b) - INT_lens
+ For i = 0 To cc
+ bb = b - INT_lens
+ For j = 0 To bb
+ k = p(j) + 100
+ c = (6 * i + j)
+ str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) + k), c, INT_lens)
+ Next
+ Next
+ Return str.ToString
+ Else
+ Return ""
+ End If
+ str = Nothing
+ End Function
+
+ Public Function Decrypt(ByVal inputstr As String) As String
+ Dim str As StringBuilder
+ Dim b As Integer = 6
+ Dim i, j, k, c, c1, cc, bb, lens As Integer
+
+ If inputstr > "" Then
+
+ str = New StringBuilder(inputstr)
+ lens = str.Length
+ While (lens < b) OrElse (lens Mod b)
+ str.Append(” “)
+ lens += INT_lens
+ End While
+
+ cc = (lens / b) - INT_lens
+ For i = 0 To cc
+ bb = b - INT_lens
+ For j = 0 To bb
+ k = p(j) + 100
+ c = (6 * i + j)
+ c1 = Asc(str.Chars(c))
+ c1 -= k
+ str.Replace(str.Chars(c), Chr(c1), c, INT_lens)
+ Next j
+ Next i
+ Return str.ToString
+ Else
+ Return ""
+ End If
+ str = Nothing
+ End Function
+
+ Private Function zrob_polaczenie(srv As String, baza As String, user As String, pass As String)
+ Dim cnstr As String
+
+ cnstr = "Data Source=" + srv + ";Initial Catalog=" + baza
+ cnstr += ";Persist Security Info=false;User ID=" + Decrypt(user).Trim + ";Password=" + Decrypt(pass).Trim
+ Return (cnstr)
+ End Function
+
+ Private Function PolaczBaze() As Boolean
+ Dim B1, conn, pp, K1 As String
+ Dim ret As Boolean = False
+
+ lbUwaga.Text = "Czekaj: Logowanie do ERPXL"
+ lbUwaga.Visible = True
+ lbUwaga.BringToFront()
+ lbUwaga.Refresh()
+
+ If Strings.Left(UCase(My.Settings.BazaDst), 6) = "CDNXL_" Or Strings.Left(UCase(My.Settings.BazaDst), 6) = "ERPXL_" Then
+ B1 = Mid(My.Settings.BazaDst, 7)
+ Else
+ B1 = My.Settings.BazaDst
+ End If
+ K1 = My.Settings.SerwerKlucza
+ If Not Zalogowany Then listuj(" Logowanie do ERP XL - proszę czekać...")
+ ret = Zaloguj(B1, "", "", K1)
+ If ret Then
+ listuj(" sprawdzanie dostępności licencji...")
+ ret = XLSprawdzLicencje()
+ If ret Then
+ listuj(" Zalogowano pomyslnie do ERP XL")
+ conn = FunkcjeXL.Polaczenie() 'string połączenia wyznaczony przez API
+ pp = InStr(conn.ToUpper, "SERVER=")
+ conn = Mid(conn, pp)
+ DstConn_str = conn
+ ret = True
+ Else
+ listuj("!! Nie udało się pobrać licencji stanowiskowej ERP XL.")
+ Wyloguj()
+ ret = False
+ End If
+ Else
+ listuj("!! Nie udało się zalogować. Proszę uruchomić aplikację ERP XL !!")
+ End If
+ If Not ret Then
+ TcZakladki.SelectedTab = TpList
+ TpList.Select()
+ End If
+ lbUwaga.Text = "Czekaj: pobieranie danych"
+ lbUwaga.Visible = False
+ lbUwaga.Invalidate()
+ Return ret
+ End Function
+
+ '----------------------------------------------------------
+
+ Public Sub UstawKolumny()
+ With KD
+ .cLp = DgvDokumenty.Columns.Item("colLp").Index
+ .cDokument = DgvDokumenty.Columns.Item("colDokument").Index
+ .cDokZr = DgvDokumenty.Columns.Item("colDokZr").Index
+ .cDZKOpis = DgvDokumenty.Columns.Item("colDZKOpis").Index
+ .cDataWyst = DgvDokumenty.Columns.Item("colDataWyst").Index
+ .cDataOper = DgvDokumenty.Columns.Item("colDataOper").Index
+ .cSumaCT = DgvDokumenty.Columns.Item("colSumaCT").Index
+ .cSumaDT = DgvDokumenty.Columns.Item("colSumaDT").Index
+ .cDZKDziennik = DgvDokumenty.Columns.Item("colDZKDziennik").Index
+ .cDekret = DgvDokumenty.Columns.Item("colDekret").Index
+ .cRokMiesiac = DgvDokumenty.Columns.Item("colRokMiesiac").Index
+ .cDataImp = DgvDokumenty.Columns.Item("colDataImportu").Index
+ .cMagazyn = DgvDokumenty.Columns.Item("colMagazyn").Index
+ .cKontrahent = DgvDokumenty.Columns.Item("colKontrahent").Index
+ .cOpisDok = DgvDokumenty.Columns.Item("colOpisDok").Index
+ .cDokKor = DgvDokumenty.Columns.Item("colDokKoryg").Index
+ End With
+ End Sub
+
+ Private Sub CbWewn_CheckedChanged(sender As Object, e As EventArgs) Handles CbWewn.CheckedChanged
+ If CbWewn.Checked Then
+ WewFlag = 1
+ Else
+ WewFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub BtOdswiez_Click(sender As Object, e As EventArgs) Handles BtOdswiez.Click
+ OdswiezDane()
+ End Sub
+
+ Private Sub CbZakup_CheckedChanged(sender As Object, e As EventArgs) Handles CbZakup.CheckedChanged
+ If CbZakup.Checked Then
+ ZakFlag = 1
+ Else
+ ZakFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub edRok_ValueChanged(sender As Object, e As EventArgs) Handles edRok.ValueChanged
+ If IsNumeric(edRok.Value) Then
+ Rok = edRok.Value
+ Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
+ BsTbmyImpDMKonta.ResetBindings(False)
+ OdswiezDane()
+ End If
+ End Sub
+
+ Private Sub CbMiesiac_TextChanged(sender As Object, e As EventArgs) Handles CbMiesiac.TextChanged
+ Mies = CbMiesiac.Items.IndexOf(CbMiesiac.Text) + 1
+ Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
+ BsTbmyImpDMKonta.ResetBindings(False)
+ OdswiezDane()
+ End Sub
+
+ Private Sub DgvDokumenty_KeyPress(sender As Object, e As KeyPressEventArgs) 'Handles DgvDokumenty.KeyPress
+ Dim wiersz As DataGridViewRow
+ Dim check As Boolean
+ Dim colWybrany, colData, kk As Integer
+
+ Select Case e.KeyChar
+ Case " "
+ kk = 0
+ colWybrany = DgvDokumenty.Columns.Item("Wybrany").Index
+ colData = DgvDokumenty.Columns.Item("colDataImportu").Index
+ For Each wiersz In DgvDokumenty.SelectedRows
+ If wiersz.Cells(colData).Value <= "1990-01-01 00:00:00" Then
+ check = wiersz.Cells(colWybrany).Value
+ wiersz.Cells(colWybrany).Value = Not check
+ If (kk Mod 10) = 0 Then Application.DoEvents()
+ End If
+ kk += 1
+ Next
+ End Select
+ End Sub
+
+ Private Sub CbSprzedaz_CheckedChanged(sender As Object, e As EventArgs) Handles CbSprzedaz.CheckedChanged
+ If CbSprzedaz.Checked Then
+ SpFlag = 1
+ Else
+ SpFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub DgvDokumenty_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DgvDokumenty.RowPostPaint
+ If Not DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value Is DBNull.Value Then
+ If CStr(DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value) > "1990-01-01" Then DgvDokumenty.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
+ End If
+ End Sub
+
+ Private Sub BtImport_Click(sender As Object, e As EventArgs) Handles BtImport.Click
+ Dim DoImportu As New List(Of DataGridViewRow) 'kopia zaznaczonych do importu dokumentów
+ Dim Aktwiersz As DataGridViewRow
+ Dim AktualnyDokument As String = ""
+ Dim ret, Nr_ZapisuSrc As Integer
+ Dim sql, ss, tresc, nrdok, s1, s2 As String
+
+ If DgvDokumenty.Rows.Count > 0 Then
+ If System.Windows.Forms.MessageBox.Show("Czy zaimportować zaznaczone dokumenty ?", "", MessageBoxButtons.YesNo) = DialogResult.No Then
+ Return
+ End If
+
+ DoImportu.Clear()
+ UstawKolumny() 'powiązanie nazw kolumn z ich indeksem
+ For Each wiersz In DgvDokumenty.SelectedRows 'zrób kopię zaznaczonych na niebiesko dokumentów
+ Dim targetRow = CType(wiersz.Clone(), DataGridViewRow)
+ For Each cell As DataGridViewCell In wiersz.Cells
+ targetRow.Cells(cell.ColumnIndex).Value = cell.Value
+ Next
+ DoImportu.Add(targetRow)
+ Next
+ If DoImportu.Count > 0 Then
+ 'zaloguj do XL
+ listuj("Start importu: " + Now)
+ ret = PolaczBaze()
+ If ret Then
+ DgvDokumenty.CurrentCell = DgvDokumenty(0, 0)
+ Aktwiersz = DgvDokumenty.CurrentRow
+ For Each wiersz In DoImportu
+ Aktwiersz = wiersz
+ DgvDokumenty.CurrentCell = DgvDokumenty(0, wiersz.Cells.Item(0).Value - 1) 'pokaż aktualnie przetwarzany wiersz
+ If (wiersz.Cells.Item(KD.cDataImp).Value <= "1990-01-01 00:00:00") And (AktualnyDokument <> wiersz.Cells.Item(KD.cDokument).Value) Then 'dekret nie zaimportowany
+ AktualnyDokument = wiersz.Cells.Item(KD.cDokument).Value 'Nowa nota memoriałowa - numer dokumentu w Jastrzębiu
+ Nr_ZapisuSrc = wiersz.Cells.Item(KD.cDekret).Value 'Dekret (DZK_GIDNumer) źródłowy
+ tresc = " "
+ s1 = AktualnyDokument.Substring(0, 2)
+ If s1 = "PZ" Or s1 = "WZ" Or s1 = "KK" Or s1 = "PK" Or s1 = "WK" Then
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cKontrahent).Value), " ", wiersz.Cells.Item(KD.cKontrahent).Value)
+ If ss > " " Then tresc = ss
+ End If
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cOpisDok).Value), " ", wiersz.Cells.Item(KD.cOpisDok).Value)
+ If ss > " " Then
+ If tresc > " " Then tresc += "; " + ss Else tresc = ss
+ End If
+ If tresc < " " Then tresc = "brak opisu"
+ nrdok = ""
+ s1 = AktualnyDokument.Substring(0, 3)
+ If s1 = "PZK" Or s1 = "PKI" Or s1 = "WZK" Or s1 = "WKE" Or s1 = "RWK" Or s1 = "PWK" Then
+ nrdok = AktualnyDokument + ", " + IIf(IsNothing(wiersz.Cells.Item(KD.cDokKor).Value), "", wiersz.Cells.Item(KD.cDokKor).Value)
+ Else
+ nrdok = AktualnyDokument
+ End If
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ Try
+ If UtworzNote(nrdok, wiersz.Cells.Item(KD.cDataWyst).Value, '"Data Wystawienia"
+ wiersz.Cells.Item(KD.cDataWyst).Value, 'wszystkie daty takie same
+ wiersz.Cells.Item(KD.cDokZr).Value, '"Dokument źródłowy"
+ tresc) Then '"treśc noty"
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cDZKOpis).Value), " ", wiersz.Cells.Item(KD.cDZKOpis).Value)
+ s1 = AktualnyDokument.Substring(0, 2)
+ If s1 = "WZ" Or s1 = "WK" Or s1 = "RW" Or s1 = "PW" Then ss = tresc 'dla WZ/WZE/WZK/WKE, RW/RWK/PW/PWK opis pozycji taki sam jak treść noty
+ If DodajPozycjeNoty(Nr_ZapisuSrc, wiersz.Cells.Item(KD.cDataWyst).Value,
+ wiersz.Cells.Item(KD.cDataWyst).Value,
+ ss, nrdok) Then 'dodajpozycje noty
+ ZamknijNote(True) 'zamknij notę
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ 'oznacz dokument jako zaimportowany
+ sql = "update CDN.Dekrety Set DT_DataCentrali = datediff(s,'19900101', GetDate()) where DT_GIDNUmer = " & Str(Nr_ZapisuSrc)
+ SqlCmd(sql, SrcConn_str)
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ 'AktualnyDokument = ""
+ sql = "update CDN.MemNag set MEN_CechaOpis = '" + IIf(IsNothing(wiersz.Cells.Item(KD.cMagazyn).Value), "", wiersz.Cells.Item(KD.cMagazyn).Value) + "' "
+ sql += " where MEN_GIDNumer = " + CStr(GIDNumer)
+ SqlCmd(sql, DstConn_str)
+ System.Threading.Thread.Sleep(200) 'chwilkę poczekaj na SQL
+ Else
+ ZamknijNote(False) 'usuń utworzoną notę
+ AktualnyDokument = ""
+ End If
+ End If
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show("ImportClick: " & ex.Message)
+ End Try
+ Else
+ listuj(CStr(Now) & "-> Dokument: " & wiersz.Cells.Item(2).Value & " już jest zaimportowany !!")
+ End If
+ Next
+ End If
+ Tylko_Listing = False
+ OdswiezDane()
+ End If
+ TcZakladki.SelectedTab = TpList
+ TpList.Select()
+ End If
+ End Sub
+
+ Private Sub BtKonfig_Click(sender As Object, e As EventArgs) Handles BtKonfig.Click
+ dlgKonfig.ShowDialog()
+ End Sub
+
+ Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
+ Dim plik As String
+
+ Timer.Stop()
+ My.Settings.Reload()
+ Try
+ plik = My.Settings.FolderR_Roboczy + "\ImportDM-" + Replace(Replace(Replace(Now, ":", "."), "/", "."), " ", "_") + ".LOG"
+ f_out = System.IO.File.CreateText(plik)
+ Tylko_Listing = False
+ Catch
+ Tylko_Listing = True
+ End Try
+ Timer.Enabled = False
+ Application.DoEvents()
+ If My.Settings.SerwerSrc > "" Then
+ SrcConn_str = zrob_polaczenie(My.Settings.SerwerSrc, My.Settings.BazaSrc, My.Settings.MCsrc, My.Settings.Comsrc)
+ Tamy_ImpDM_Src.Connection.ConnectionString = SrcConn_str
+ Tamy_ImpDM_Dekr.Connection.ConnectionString = SrcConn_str
+ Tamy_ImpDM_Konta.Connection.ConnectionString = SrcConn_str
+ Tamy_ImpDM_Konta.Fill(Me.DsMain.Tbmy_ImpDM_Konta, Rok, Mies)
+ BsTbmyImpDMKonta.ResetBindings(False)
+ OdswiezDane()
+ End If
+ If My.Settings.SerwerKlucza > "" And My.Settings.BazaDst > "" Then PolaczBaze()
+ 'If Zalogowany Then OdswiezDane()
+ End Sub
+
+ Private Sub BtUsunFlage_Click(sender As Object, e As EventArgs) Handles BtUsunFlage.Click
+ If DgvDokumenty.Rows.Count > 0 Then
+ If System.Windows.Forms.MessageBox.Show("Czy usunąć flagę z zaznaczonych dokumentów ?", "", MessageBoxButtons.YesNo) = DialogResult.Yes Then
+ Dim sql As String
+ Dim col As Integer
+
+ col = DgvDokumenty.Columns("colDekret").Index
+ For Each wiersz In DgvDokumenty.SelectedRows
+ sql = "update CDN.Dekrety set DT_DataCentrali = 0 where DT_GIDNUmer = " & Str(wiersz.Cells(col).Value)
+ SqlCmd(sql, SrcConn_str)
+ Next
+ OdswiezDane()
+ End If
+ End If
+ End Sub
+
+ Private Sub BtKoniec_Click(sender As Object, e As EventArgs) Handles BtKoniec.Click
+ Wyloguj()
+ If Not IsNothing(f_out) Then
+ f_out.Flush()
+ f_out.Close()
+ End If
+ Close()
+ End Sub
+
+ Private Sub OdswiezDane()
+ Dim Konto As String
+ Dim ImpFl, pos As Integer
+
+ Konto = CbKonto.Text
+ ImpFl = 2
+ If RbBlack.Checked Then ImpFl = 0 Else If RbRed.Checked Then ImpFl = 1
+
+ RM = CInt(CStr(Rok) & IIf(Mies < 10, "0", "") & CStr(Mies))
+ If RM < 2001 Or Mies <= 0 Then Return
+ Try
+ lbUwaga.Visible = True
+ Application.DoEvents()
+ lbUwaga.BringToFront()
+ Application.DoEvents()
+ lbUwaga.Refresh()
+ Application.DoEvents()
+ pos = BsTbmy_ImpDM_Src.Position
+ Tamy_ImpDM_Src.Fill(Me.DsMain.Tbmy_ImpDM_Src, SpFlag, ZakFlag, WewFlag, RM, Rok, Mies, Konto, ImpFl)
+ If pos < BsTbmy_ImpDM_Src.Count Then BsTbmy_ImpDM_Src.Position = pos Else BsTbmy_ImpDM_Src.Position = BsTbmy_ImpDM_Src.Count - 1
+ lbUwaga.Visible = False
+ lbUwaga.Invalidate()
+ Catch ex As System.Exception
+ lbUwaga.Visible = False
+ Application.DoEvents()
+ lbUwaga.Refresh()
+ Application.DoEvents()
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+ End Sub
+
+ Private Sub MainFrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+ Dim spr As String
+
+ SpFlag = 0
+ ZakFlag = 0
+ WewFlag = 0
+ Rok = Year(Now)
+ Mies = Month(Now)
+ edRok.Value = Rok
+ CbMiesiac.SelectedIndex = Mies - 1
+ CbMiesiac.Text = CbMiesiac.Items(CbMiesiac.SelectedIndex)
+ RbAll.Checked = True
+ CbKonto.Text = ""
+ spr = Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper)
+ DecimalSep = NumberFormatInfo.CurrentInfo.NumberDecimalSeparator.ToString
+ DecimalGroupSep = NumberFormatInfo.CurrentInfo.NumberGroupSeparator.ToString
+ If spr <> My.Settings.check Then
+ MsgBox("Niezgodna konfiguracja. Ustaw od nowa")
+ My.Settings.SerwerSrc = ""
+ ' My.Settings.SerwerDst = ""
+ My.Settings.SerwerKlucza = ""
+ My.Settings.BazaSrc = ""
+ ' My.Settings.BazaDst = ""
+ My.Settings.FolderR_Roboczy = ""
+ My.Settings.MCsrc = ""
+ ' My.Settings.MCdst = ""
+ My.Settings.Comsrc = ""
+ ' My.Settings.Comdst = ""
+ My.Settings.check = spr
+ My.Settings.Save()
+ End If
+ Timer.Start()
+ End Sub
+
+ Public Sub listuj(ByVal linia As String)
+ If linia > "" Then
+ LstWynik.Items.Add(linia)
+
+ If Not Tylko_Listing Then
+ f_out.WriteLine(linia)
+ End If
+ If (LstWynik.Items.Count - 1) > 0 Then
+ LstWynik.TopIndex = Me.LstWynik.Items.Count - 1
+ Else
+ LstWynik.TopIndex = 0
+ End If
+ Application.DoEvents()
+ End If
+ End Sub
+
+ Public Function SqlCmd(ByVal sql As String, conn_str As String) As Boolean
+ Dim wynik As Boolean
+
+ wynik = False
+ Try
+ Using connection As New SqlClient.SqlConnection(conn_str)
+ Dim command As New SqlClient.SqlCommand(sql, connection)
+ connection.Open()
+ command.ExecuteNonQuery()
+ wynik = True
+ End Using
+ Catch ex As Exception
+ My.Forms.MainFrm.listuj(ex.Message)
+ End Try
+ Return (wynik)
+ End Function
+
+ Public Function GetOneVal(ByVal sql As String, conn_str As String) As String
+ Dim val As String
+
+ val = ""
+ Try
+ Using connection As New SqlClient.SqlConnection(conn_str)
+ Dim command As New SqlClient.SqlCommand(sql, connection)
+ connection.Open()
+ Dim reader As SqlClient.SqlDataReader = command.ExecuteReader()
+ While reader.Read()
+ If reader.IsDBNull(0) Then
+ val = ""
+ Else
+ val = CType(reader, IDataRecord)(0)
+ End If
+ End While
+ reader.Close()
+ End Using
+ Catch ex As Exception
+ My.Forms.MainFrm.listuj(ex.Message)
+ End Try
+ GetOneVal = val
+ End Function
+
+End Class
diff --git a/.svn/pristine/30/30daf93893027143ce98adaa5678142aa750e20c.svn-base b/.svn/pristine/30/30daf93893027143ce98adaa5678142aa750e20c.svn-base
new file mode 100644
index 0000000..a3c1507
--- /dev/null
+++ b/.svn/pristine/30/30daf93893027143ce98adaa5678142aa750e20c.svn-base
@@ -0,0 +1,54 @@
+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 - uwzgldnia WZ, WZE i ich korekty
+ @ZAK int, -- 1 - uwzgldnia PZ, PZI i ich korekty
+ @WEW int, -- 1 - uwzgldnia RW, PW i ich korekty
+ @RM int, -- TrN_RokMiesiac
+ @Rok int, -- Rok
+ @Miesiac int -- Miesic
+)
+AS
+ SET NOCOUNT ON;
+
+ declare @TN table(Dokument varchar(255), RokMiesiac int, TrN_GIDTyp int, TrN_GIDNumer int, TrN_Zaksiegowano int, DataDok int)
+ 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
+ from (select TrN_GIDTyp, TrN_GIDNumer, TrN_RokMiesiac, TrN_Zaksiegowano, TrN_Data3 from CDN.TraNag
+ 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 2009 then 1 when 2015 then 1 when 2013 then 1 else 0 end else 0 end > 0)) TTT
+ declare @DZV table(DZK_Opis varchar(80), DZK_Rok int, DZK_Miesiac int, DZK_Dzien int, DZK_DokumentZrodlowy varchar(40), 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 where DT_GIDNumer = DZK_GIDNumer)
+ from CDN.DziennikView
+ 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)
+ 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
diff --git a/.svn/pristine/31/31fb76e5d9babe97a11fea041081f96ce426107a.svn-base b/.svn/pristine/31/31fb76e5d9babe97a11fea041081f96ce426107a.svn-base
new file mode 100644
index 0000000..1af7de1
--- /dev/null
+++ b/.svn/pristine/31/31fb76e5d9babe97a11fea041081f96ce426107a.svn-base
@@ -0,0 +1,120 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/.svn/pristine/32/324a6aebb32509384cbf11113e72483dc0b48a6e.svn-base b/.svn/pristine/32/324a6aebb32509384cbf11113e72483dc0b48a6e.svn-base
new file mode 100644
index 0000000..c602573
--- /dev/null
+++ b/.svn/pristine/32/324a6aebb32509384cbf11113e72483dc0b48a6e.svn-base
@@ -0,0 +1,833 @@
+"DeployProject"
+{
+"VSVersion" = "3:800"
+"ProjectType" = "8:{978C614F-708E-4E1A-B201-565925725DBA}"
+"IsWebType" = "8:FALSE"
+"ProjectName" = "8:Instalator"
+"LanguageId" = "3:1045"
+"CodePage" = "3:1250"
+"UILanguageId" = "3:1045"
+"SccProjectName" = "8:"
+"SccLocalPath" = "8:"
+"SccAuxPath" = "8:"
+"SccProvider" = "8:"
+"BackwardsCompatibleGUIDGeneration" = "8:TRUE"
+ "Hierarchy"
+ {
+ "Entry"
+ {
+ "MsmKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "OwnerKey" = "8:_UNDEFINED"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_49788B1BF43C40538D55DF85500AFDB9"
+ "OwnerKey" = "8:_UNDEFINED"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_CAF79A75A6114DC47750AB672F844D8C"
+ "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_CAF79A75A6114DC47750AB672F844D8C"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ }
+ "Configurations"
+ {
+ "Debug"
+ {
+ "DisplayName" = "8:Debug"
+ "IsDebugOnly" = "11:TRUE"
+ "IsReleaseOnly" = "11:FALSE"
+ "OutputFilename" = "8:Debug\\Instalator.msi"
+ "PackageFilesAs" = "3:2"
+ "PackageFileSize" = "3:-2147483648"
+ "CabType" = "3:1"
+ "Compression" = "3:2"
+ "SignOutput" = "11:FALSE"
+ "CertificateFile" = "8:"
+ "PrivateKeyFile" = "8:"
+ "TimeStampServer" = "8:"
+ "InstallerBootstrapper" = "3:2"
+ "BootstrapperCfg:{63ACBE69-63AA-4F98-B2B6-99F9E24495F2}"
+ {
+ "Enabled" = "11:TRUE"
+ "PromptEnabled" = "11:TRUE"
+ "PrerequisitesLocation" = "2:1"
+ "Url" = "8:"
+ "ComponentsUrl" = "8:"
+ "Items"
+ {
+ "{EDC2488A-8267-493A-A98E-7D9C3B36CDF3}:Microsoft.Net.Framework.3.5.SP1"
+ {
+ "Name" = "8:.NET Framework 3.5 SP1"
+ "ProductCode" = "8:Microsoft.Net.Framework.3.5.SP1"
+ }
+ }
+ }
+ }
+ "Release"
+ {
+ "DisplayName" = "8:Release"
+ "IsDebugOnly" = "11:FALSE"
+ "IsReleaseOnly" = "11:TRUE"
+ "OutputFilename" = "8:Release\\Instalator.msi"
+ "PackageFilesAs" = "3:2"
+ "PackageFileSize" = "3:-2147483648"
+ "CabType" = "3:1"
+ "Compression" = "3:2"
+ "SignOutput" = "11:FALSE"
+ "CertificateFile" = "8:"
+ "PrivateKeyFile" = "8:"
+ "TimeStampServer" = "8:"
+ "InstallerBootstrapper" = "3:2"
+ "BootstrapperCfg:{63ACBE69-63AA-4F98-B2B6-99F9E24495F2}"
+ {
+ "Enabled" = "11:TRUE"
+ "PromptEnabled" = "11:TRUE"
+ "PrerequisitesLocation" = "2:1"
+ "Url" = "8:"
+ "ComponentsUrl" = "8:"
+ }
+ }
+ }
+ "Deployable"
+ {
+ "CustomAction"
+ {
+ }
+ "DefaultFeature"
+ {
+ "Name" = "8:DefaultFeature"
+ "Title" = "8:"
+ "Description" = "8:"
+ }
+ "ExternalPersistence"
+ {
+ "LaunchCondition"
+ {
+ "{A06ECF26-33A3-4562-8140-9B0E340D4F24}:_68E9A4974B7347D6B68EBF2B3A14C7BA"
+ {
+ "Name" = "8:.NET Framework"
+ "Message" = "8:[VSDNETMSG]"
+ "FrameworkVersion" = "8:.NETFramework,Version=v4.0"
+ "AllowLaterVersions" = "11:FALSE"
+ "InstallUrl" = "8:http://go.microsoft.com/fwlink/?LinkId=671728"
+ }
+ }
+ }
+ "File"
+ {
+ "{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_49788B1BF43C40538D55DF85500AFDB9"
+ {
+ "SourcePath" = "8:..\\ImportDokMag\\cab.ico"
+ "TargetName" = "8:cab.ico"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ }
+ "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_CAF79A75A6114DC47750AB672F844D8C"
+ {
+ "AssemblyRegister" = "3:1"
+ "AssemblyIsInGAC" = "11:FALSE"
+ "AssemblyAsmDisplayName" = "8:cdn_api20193.net, Version=2018.2.0.0, Culture=neutral, PublicKeyToken=5179454a0b814fab, processorArchitecture=x86"
+ "ScatterAssemblies"
+ {
+ "_CAF79A75A6114DC47750AB672F844D8C"
+ {
+ "Name" = "8:cdn_api20193.net.dll"
+ "Attributes" = "3:512"
+ }
+ }
+ "SourcePath" = "8:cdn_api20193.net.dll"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:TRUE"
+ "IsolateTo" = "8:"
+ }
+ }
+ "FileType"
+ {
+ }
+ "Folder"
+ {
+ "{1525181F-901A-416C-8A58-119130FE478E}:_0E2A769A3BDC48F2B395EBE23FF897DE"
+ {
+ "Name" = "8:#1919"
+ "AlwaysCreate" = "11:FALSE"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Property" = "8:ProgramMenuFolder"
+ "Folders"
+ {
+ }
+ }
+ "{1525181F-901A-416C-8A58-119130FE478E}:_35C2D5FD2F5942BD81B83EB09E3DA2E6"
+ {
+ "Name" = "8:#1916"
+ "AlwaysCreate" = "11:FALSE"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Property" = "8:DesktopFolder"
+ "Folders"
+ {
+ }
+ }
+ "{3C67513D-01DD-4637-8A68-80971EB9504F}:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ {
+ "DefaultLocation" = "8:[ProgramFilesFolder][Manufacturer]\\[ProductName]"
+ "Name" = "8:#1925"
+ "AlwaysCreate" = "11:FALSE"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Property" = "8:TARGETDIR"
+ "Folders"
+ {
+ }
+ }
+ }
+ "LaunchCondition"
+ {
+ }
+ "Locator"
+ {
+ }
+ "MsiBootstrapper"
+ {
+ "LangId" = "3:1045"
+ "RequiresElevation" = "11:FALSE"
+ }
+ "Product"
+ {
+ "Name" = "8:Microsoft Visual Studio"
+ "ProductName" = "8:ImportDokMag"
+ "ProductCode" = "8:{C1C7C7F2-F7E5-4A19-B4DD-F40A170381A2}"
+ "PackageCode" = "8:{FE72409C-5862-47E1-A72C-2EBC3A11D20F}"
+ "UpgradeCode" = "8:{E007770B-8123-40D0-A07D-1E6CFEBE903D}"
+ "AspNetVersion" = "8:2.0.50727.0"
+ "RestartWWWService" = "11:FALSE"
+ "RemovePreviousVersions" = "11:TRUE"
+ "DetectNewerInstalledVersion" = "11:TRUE"
+ "InstallAllUsers" = "11:TRUE"
+ "ProductVersion" = "8:1.0.0"
+ "Manufacturer" = "8:myCONSULT SP. z o. o."
+ "ARPHELPTELEPHONE" = "8:"
+ "ARPHELPLINK" = "8:"
+ "Title" = "8:Instalator programu ImportDokMag"
+ "Subject" = "8:"
+ "ARPCONTACT" = "8:Krzysztof Czapliński"
+ "Keywords" = "8:"
+ "ARPCOMMENTS" = "8:Program do importu dekretów dokumnetów magazynowych"
+ "ARPURLINFOABOUT" = "8:www.myconsult.com.pl"
+ "ARPPRODUCTICON" = "8:_49788B1BF43C40538D55DF85500AFDB9"
+ "ARPIconIndex" = "3:0"
+ "SearchPath" = "8:"
+ "UseSystemSearchPath" = "11:TRUE"
+ "TargetPlatform" = "3:0"
+ "PreBuildEvent" = "8:"
+ "PostBuildEvent" = "8:"
+ "RunPostBuildEvent" = "3:0"
+ }
+ "Registry"
+ {
+ "HKLM"
+ {
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_14A5D4D1DAF74AB1B116EF6D64D465B8"
+ {
+ "Name" = "8:Software"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_3D3B378B7D6443379A137B227B2CF8E3"
+ {
+ "Name" = "8:[Manufacturer]"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ }
+ "HKCU"
+ {
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_183C92BC953A43BBAC0FC1D320E8407E"
+ {
+ "Name" = "8:Software"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_4E43A27CB157418DB3CEA9E3FC6705B4"
+ {
+ "Name" = "8:[Manufacturer]"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ }
+ "HKCR"
+ {
+ "Keys"
+ {
+ }
+ }
+ "HKU"
+ {
+ "Keys"
+ {
+ }
+ }
+ "HKPU"
+ {
+ "Keys"
+ {
+ }
+ }
+ }
+ "Sequences"
+ {
+ }
+ "Shortcut"
+ {
+ "{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_7AC3C26AE5054D769B2CD49356336C7C"
+ {
+ "Name" = "8:ImportDokMag"
+ "Arguments" = "8:"
+ "Description" = "8:"
+ "ShowCmd" = "3:1"
+ "IconIndex" = "3:0"
+ "Transitive" = "11:FALSE"
+ "Target" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "Folder" = "8:_0E2A769A3BDC48F2B395EBE23FF897DE"
+ "WorkingFolder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Icon" = "8:"
+ "Feature" = "8:"
+ }
+ }
+ "UserInterface"
+ {
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_2C138F37321C45B8BC863887B265E74D"
+ {
+ "Name" = "8:#1902"
+ "Sequence" = "3:2"
+ "Attributes" = "3:3"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_051D8F80CA62431B88D19FCF6F8DDCCA"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zakończono"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminFinishedDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_3857FBBA21254D9196B7BB3782E5F1CC"
+ {
+ "Name" = "8:#1900"
+ "Sequence" = "3:1"
+ "Attributes" = "3:1"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_233F85456C1F46408B1FF52CE2A3333C"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zapraszamy"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdWelcomeDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "CopyrightWarning"
+ {
+ "Name" = "8:CopyrightWarning"
+ "DisplayName" = "8:#1002"
+ "Description" = "8:#1102"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1202"
+ "DefaultValue" = "8:#1202"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "Welcome"
+ {
+ "Name" = "8:Welcome"
+ "DisplayName" = "8:#1003"
+ "Description" = "8:#1103"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1203"
+ "DefaultValue" = "8:#1203"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_366756F4B2114C36AD1714833DF81439"
+ {
+ "Sequence" = "3:200"
+ "DisplayName" = "8:Folder instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdFolderDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "InstallAllUsersVisible"
+ {
+ "Name" = "8:InstallAllUsersVisible"
+ "DisplayName" = "8:#1059"
+ "Description" = "8:#1159"
+ "Type" = "3:5"
+ "ContextData" = "8:1;True=1;False=0"
+ "Attributes" = "3:0"
+ "Setting" = "3:0"
+ "Value" = "3:1"
+ "DefaultValue" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_E8553CE9C9F444AC85EDBE110A18A0C0"
+ {
+ "Sequence" = "3:300"
+ "DisplayName" = "8:Potwierdzanie instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdConfirmDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_49D1ABE51EB349C2BB84363C2AC4E50C"
+ {
+ "UseDynamicProperties" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdUserInterface.wim"
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_5CF09CEF61F84E599FFA1A0D5AEDFC2E"
+ {
+ "Name" = "8:#1901"
+ "Sequence" = "3:1"
+ "Attributes" = "3:2"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_C52AA13216134FAF9E4C64657856B7A7"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Postęp"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdProgressDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "ShowProgress"
+ {
+ "Name" = "8:ShowProgress"
+ "DisplayName" = "8:#1009"
+ "Description" = "8:#1109"
+ "Type" = "3:5"
+ "ContextData" = "8:1;True=1;False=0"
+ "Attributes" = "3:0"
+ "Setting" = "3:0"
+ "Value" = "3:1"
+ "DefaultValue" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_7D365393285F4299AEA6C715E85E5BD9"
+ {
+ "Name" = "8:#1902"
+ "Sequence" = "3:1"
+ "Attributes" = "3:3"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_5875D34493A9488185B0387EB232B28D"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zakończono"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdFinishedDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "UpdateText"
+ {
+ "Name" = "8:UpdateText"
+ "DisplayName" = "8:#1058"
+ "Description" = "8:#1158"
+ "Type" = "3:15"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1258"
+ "DefaultValue" = "8:#1258"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_A73298DE647C48F2907A88BC23802AF2"
+ {
+ "Name" = "8:#1901"
+ "Sequence" = "3:2"
+ "Attributes" = "3:2"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_371A5E2D3B5341F88171D2A6E48C489F"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Postęp"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminProgressDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "ShowProgress"
+ {
+ "Name" = "8:ShowProgress"
+ "DisplayName" = "8:#1009"
+ "Description" = "8:#1109"
+ "Type" = "3:5"
+ "ContextData" = "8:1;True=1;False=0"
+ "Attributes" = "3:0"
+ "Setting" = "3:0"
+ "Value" = "3:1"
+ "DefaultValue" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_E874B98968404660B16B15E8077B602A"
+ {
+ "Name" = "8:#1900"
+ "Sequence" = "3:2"
+ "Attributes" = "3:1"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_68269945CB70415F9DFD6F37F3D7F324"
+ {
+ "Sequence" = "3:200"
+ "DisplayName" = "8:Folder instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminFolderDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_92540D7DEBF24D2A812120C019FA72BD"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zapraszamy"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminWelcomeDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "CopyrightWarning"
+ {
+ "Name" = "8:CopyrightWarning"
+ "DisplayName" = "8:#1002"
+ "Description" = "8:#1102"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1202"
+ "DefaultValue" = "8:#1202"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "Welcome"
+ {
+ "Name" = "8:Welcome"
+ "DisplayName" = "8:#1003"
+ "Description" = "8:#1103"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1203"
+ "DefaultValue" = "8:#1203"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_A4C42942C8AC4E639F27164F9206430F"
+ {
+ "Sequence" = "3:300"
+ "DisplayName" = "8:Potwierdzanie instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminConfirmDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_F0DF71F431A741539E005077697AEE17"
+ {
+ "UseDynamicProperties" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdBasicDialogs.wim"
+ }
+ }
+ "MergeModule"
+ {
+ }
+ "ProjectOutput"
+ {
+ "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_06B783810FB84C86A4F04496ABE6D3FB"
+ {
+ "SourcePath" = "8:"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ "ProjectOutputGroupRegister" = "3:1"
+ "OutputConfiguration" = "8:"
+ "OutputGroupCanonicalName" = "8:ReferenceCopyLocalPaths"
+ "OutputProjectGuid" = "8:{ACEDBC4B-04AD-423D-B0D7-B930B9998493}"
+ "ShowKeyOutput" = "11:TRUE"
+ "ExcludeFilters"
+ {
+ }
+ }
+ "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_370DEE148AAB42D7A584CF9661EBF4CF"
+ {
+ "SourcePath" = "8:..\\ImportDokMag\\obj\\x86\\Debug\\ImportDokMag.exe"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ "ProjectOutputGroupRegister" = "3:1"
+ "OutputConfiguration" = "8:"
+ "OutputGroupCanonicalName" = "8:Built"
+ "OutputProjectGuid" = "8:{ACEDBC4B-04AD-423D-B0D7-B930B9998493}"
+ "ShowKeyOutput" = "11:TRUE"
+ "ExcludeFilters"
+ {
+ }
+ }
+ }
+ }
+}
diff --git a/.svn/pristine/33/33c6bc67e3c32595e0f9264f03fb0855bda757a3.svn-base b/.svn/pristine/33/33c6bc67e3c32595e0f9264f03fb0855bda757a3.svn-base
new file mode 100644
index 0000000..ec4da13
--- /dev/null
+++ b/.svn/pristine/33/33c6bc67e3c32595e0f9264f03fb0855bda757a3.svn-base
@@ -0,0 +1,41 @@
+Imports System.Windows.Forms
+
+Public Class dlgKonfig
+ Public Check As String
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ My.Settings.SerwerSrc = edSerwerSrc.Text
+ My.Settings.SerwerDst = edServerDst.Text
+ My.Settings.SerwerKlucza = edHASPServer.Text
+ My.Settings.BazaSrc = edBazaSrc.Text
+ My.Settings.BazaDst = edBazaDst.Text
+ My.Settings.FolderR_Roboczy = edWorkingDir.Text
+ My.Settings.MCsrc = MainFrm.Encrypt(edUserSrc.Text)
+ My.Settings.MCdst = MainFrm.Encrypt(edUserDst.Text)
+ My.Settings.Comsrc = MainFrm.Encrypt(edPassSrc.Text)
+ My.Settings.Comdst = MainFrm.Encrypt(edPassDst.Text)
+ My.Settings.check = MainFrm.Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper)
+ My.Settings.Save()
+ MsgBox("Zakończ program i uruchom ponownie.")
+ Me.Close()
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+ Private Sub dlgKonfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+ edSerwerSrc.Text = My.Settings.SerwerSrc
+ edServerDst.Text = My.Settings.SerwerDst
+ edHASPServer.Text = My.Settings.SerwerKlucza
+ edBazaSrc.Text = My.Settings.BazaSrc
+ edBazaDst.Text = My.Settings.BazaDst
+ edWorkingDir.Text = My.Settings.FolderR_Roboczy
+ edUserSrc.Text = MainFrm.Decrypt(My.Settings.MCsrc)
+ edUserDst.Text = MainFrm.Decrypt(My.Settings.MCdst)
+ edPassSrc.Text = MainFrm.Decrypt(My.Settings.Comsrc)
+ edPassDst.Text = MainFrm.Decrypt(My.Settings.Comdst)
+ End Sub
+End Class
diff --git a/.svn/pristine/35/35a6706cbc7ba0a96c554e89135b62a44fb31a59.svn-base b/.svn/pristine/35/35a6706cbc7ba0a96c554e89135b62a44fb31a59.svn-base
new file mode 100644
index 0000000..42c9ea4
--- /dev/null
+++ b/.svn/pristine/35/35a6706cbc7ba0a96c554e89135b62a44fb31a59.svn-base
@@ -0,0 +1,41 @@
+
+
+
+
+
+ <?xml version="1.0" encoding="utf-16"?>
+<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <ConnectionString>Data Source=10.0.2.252\GOTECSQL2;Initial Catalog=CDNXL_GOTEC_J;User ID=sa;Password=Cdn01</ConnectionString>
+ <ProviderName>System.Data.SqlClient</ProviderName>
+</SerializableConnectionString>
+ Data Source=10.0.2.252\GOTECSQL2;Initial Catalog=CDNXL_GOTEC_J;User ID=sa;Password=Cdn01
+
+
+ c:\temp
+
+
+ crispcas\sql17
+
+
+ MAGJ
+
+
+ 10.0.2.252\GOTECSQL2
+
+
+
+
+
+
+
+
+ CDNXL_GOTEC_J
+
+
+
+
+
+ CDNXL_GOTEC_80
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/36/36d8b3444db286252ad4c1d9b07eed2de36e003b.svn-base b/.svn/pristine/36/36d8b3444db286252ad4c1d9b07eed2de36e003b.svn-base
new file mode 100644
index 0000000..257f108
--- /dev/null
+++ b/.svn/pristine/36/36d8b3444db286252ad4c1d9b07eed2de36e003b.svn-base
@@ -0,0 +1,2 @@
+Partial Class DsMain
+End Class
diff --git a/.svn/pristine/37/37332c5246d08e4ecffc3e6969ae58871899d085.svn-base b/.svn/pristine/37/37332c5246d08e4ecffc3e6969ae58871899d085.svn-base
new file mode 100644
index 0000000..e4ab1b0
--- /dev/null
+++ b/.svn/pristine/37/37332c5246d08e4ecffc3e6969ae58871899d085.svn-base
@@ -0,0 +1,246 @@
+
+
+
+
+ Debug
+ AnyCPU
+ {ACEDBC4B-04AD-423D-B0D7-B930B9998493}
+ WinExe
+ ImportDokMag.My.MyApplication
+ ImportDokMag
+ ImportDokMag
+ 512
+ WindowsForms
+ v4.8
+ true
+ true
+ false
+
+ D:\Publikacje\ImportDokMag\
+ true
+ Disk
+ false
+ Foreground
+ 7
+ Days
+ false
+ false
+ false
+ ImportDokMag
+ myCONSULT Sp. z o. o.
+ ImportDokMag
+ 0
+ 2.0.0.0
+ false
+ true
+ true
+ true
+
+
+ AnyCPU
+ true
+ full
+ true
+ true
+ bin\Debug\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ false
+
+
+ AnyCPU
+ pdbonly
+ false
+ true
+ true
+ bin\Release\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ false
+
+
+ On
+
+
+ Binary
+
+
+ Off
+
+
+ On
+
+
+ true
+ true
+ true
+ bin\x86\Debug\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ full
+ x86
+ MinimumRecommendedRules.ruleset
+ true
+
+
+ true
+ bin\x86\Release\
+ ImportDokMag.xml
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ pdbonly
+ x86
+ MinimumRecommendedRules.ruleset
+ true
+
+
+ 7632AB20CCBEDCF1AC243A2A06A675C12FFD4C4D
+
+
+ ImportDokMag_TemporaryKey.pfx
+
+
+ true
+
+
+ false
+
+
+ cab.ico
+
+
+ false
+
+
+ ImportDokMag_TemporaryKey.pfx
+
+
+
+ C:\xl\comarch xl\cdn_api20241.net.dll
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ dlgKonfig.vb
+
+
+ Form
+
+
+ True
+ True
+ DsMain.xsd
+
+
+ DsMain.xsd
+
+
+
+ Form
+
+
+ MainFrm.vb
+ Form
+
+
+ Form
+
+
+
+ True
+ Application.myapp
+ True
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+
+
+ dlgKonfig.vb
+
+
+ MainFrm.vb
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+
+
+ DsMain.xsd
+
+
+ MSDataSetGenerator
+ DsMain.Designer.vb
+ Designer
+
+
+ DsMain.xsd
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+
+
+
+
+ False
+ Microsoft .NET Framework 4.5.2 %28x86 i x64%29
+ true
+
+
+ False
+ .NET Framework 3.5 SP1
+ false
+
+
+
+
+ 5.2.2
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/37/378fbefbb7cedfee35c7a1fa8601979397be6f05.svn-base b/.svn/pristine/37/378fbefbb7cedfee35c7a1fa8601979397be6f05.svn-base
new file mode 100644
index 0000000..9a4bfc9
--- /dev/null
+++ b/.svn/pristine/37/378fbefbb7cedfee35c7a1fa8601979397be6f05.svn-base
@@ -0,0 +1,220 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDN.my_ImpDM_Src
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDN.my_ImpDM_Dekr
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/38/3814ad2b83e5596c31d00142bc1b936e84494e8d.svn-base b/.svn/pristine/38/3814ad2b83e5596c31d00142bc1b936e84494e8d.svn-base
new file mode 100644
index 0000000..eed7553
--- /dev/null
+++ b/.svn/pristine/38/3814ad2b83e5596c31d00142bc1b936e84494e8d.svn-base
@@ -0,0 +1,566 @@
+
+Partial Class MainFrm
+ Inherits System.Windows.Forms.Form
+
+ 'Formularz przesłania metodę dispose, aby wyczyścić listę składników.
+
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wymagane przez Projektanta formularzy systemu Windows
+ Private components As System.ComponentModel.IContainer
+
+ 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows
+ 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows.
+ 'Nie należy modyfikować za pomocą edytora kodu.
+
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainFrm))
+ Me.TlMainPanel = New System.Windows.Forms.TableLayoutPanel()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.CbWewn = New System.Windows.Forms.CheckBox()
+ Me.CbZakup = New System.Windows.Forms.CheckBox()
+ Me.CbSprzedaz = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.edRok = New System.Windows.Forms.NumericUpDown()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.CbMiesiac = New System.Windows.Forms.ComboBox()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.BtImport = New System.Windows.Forms.Button()
+ Me.lbUwaga = New System.Windows.Forms.Button()
+ Me.BtKonfig = New System.Windows.Forms.Button()
+ Me.BtKoniec = New System.Windows.Forms.Button()
+ Me.BtOdswiez = New System.Windows.Forms.Button()
+ Me.TcZakladki = New System.Windows.Forms.TabControl()
+ Me.TpDocs = New System.Windows.Forms.TabPage()
+ Me.DgvDokumenty = New System.Windows.Forms.DataGridView()
+ Me.TpList = New System.Windows.Forms.TabPage()
+ Me.LstWynik = New System.Windows.Forms.ListBox()
+ Me.Timer = New System.Windows.Forms.Timer(Me.components)
+ Me.BtUsunFlage = New System.Windows.Forms.Button()
+ Me.BsTbmy_ImpDM_Src = New System.Windows.Forms.BindingSource(Me.components)
+ Me.DsMain = New ImportDokMag.DsMain()
+ Me.Tamy_ImpDM_Src = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Src()
+ Me.TableAdapterManager = New ImportDokMag.DsMainTableAdapters.TableAdapterManager()
+ Me.BsTbmy_ImpDM_Dekr = New System.Windows.Forms.BindingSource(Me.components)
+ Me.Tamy_ImpDM_Dekr = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Dekr()
+ Me.colLp = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokument = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokZr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKOpis = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataWyst = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataOper = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaCT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaDT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKDziennik = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDekret = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colRokMiesiac = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataImportu = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.TlMainPanel.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.TcZakladki.SuspendLayout()
+ Me.TpDocs.SuspendLayout()
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TpList.SuspendLayout()
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'TlMainPanel
+ '
+ Me.TlMainPanel.ColumnCount = 2
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 78.0!))
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 22.0!))
+ Me.TlMainPanel.Controls.Add(Me.Panel1, 0, 0)
+ Me.TlMainPanel.Controls.Add(Me.Panel2, 0, 2)
+ Me.TlMainPanel.Controls.Add(Me.TableLayoutPanel1, 1, 1)
+ Me.TlMainPanel.Controls.Add(Me.BtKoniec, 1, 2)
+ Me.TlMainPanel.Controls.Add(Me.BtOdswiez, 1, 0)
+ Me.TlMainPanel.Controls.Add(Me.TcZakladki, 0, 1)
+ Me.TlMainPanel.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TlMainPanel.Location = New System.Drawing.Point(0, 0)
+ Me.TlMainPanel.Name = "TlMainPanel"
+ Me.TlMainPanel.RowCount = 3
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 7.102804!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 92.89719!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 65.0!))
+ Me.TlMainPanel.Size = New System.Drawing.Size(805, 601)
+ Me.TlMainPanel.TabIndex = 0
+ '
+ 'Panel1
+ '
+ Me.Panel1.Controls.Add(Me.CbWewn)
+ Me.Panel1.Controls.Add(Me.CbZakup)
+ Me.Panel1.Controls.Add(Me.CbSprzedaz)
+ Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(621, 32)
+ Me.Panel1.TabIndex = 1
+ '
+ 'CbWewn
+ '
+ Me.CbWewn.AutoSize = True
+ Me.CbWewn.Location = New System.Drawing.Point(407, 9)
+ Me.CbWewn.Name = "CbWewn"
+ Me.CbWewn.Size = New System.Drawing.Size(107, 17)
+ Me.CbWewn.TabIndex = 2
+ Me.CbWewn.Text = "dok. wewnętrzne"
+ Me.CbWewn.UseVisualStyleBackColor = True
+ '
+ 'CbZakup
+ '
+ Me.CbZakup.AutoSize = True
+ Me.CbZakup.Location = New System.Drawing.Point(249, 9)
+ Me.CbZakup.Name = "CbZakup"
+ Me.CbZakup.Size = New System.Drawing.Size(85, 17)
+ Me.CbZakup.TabIndex = 1
+ Me.CbZakup.Text = "dok. zakupu"
+ Me.CbZakup.UseVisualStyleBackColor = True
+ '
+ 'CbSprzedaz
+ '
+ Me.CbSprzedaz.AutoSize = True
+ Me.CbSprzedaz.Location = New System.Drawing.Point(79, 9)
+ Me.CbSprzedaz.Name = "CbSprzedaz"
+ Me.CbSprzedaz.Size = New System.Drawing.Size(97, 17)
+ Me.CbSprzedaz.TabIndex = 0
+ Me.CbSprzedaz.Text = "dok. sprzedaży"
+ Me.CbSprzedaz.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Controls.Add(Me.edRok)
+ Me.Panel2.Controls.Add(Me.Label2)
+ Me.Panel2.Controls.Add(Me.Label1)
+ Me.Panel2.Controls.Add(Me.CbMiesiac)
+ Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel2.Location = New System.Drawing.Point(3, 538)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(621, 60)
+ Me.Panel2.TabIndex = 2
+ '
+ 'edRok
+ '
+ Me.edRok.Location = New System.Drawing.Point(148, 22)
+ Me.edRok.Maximum = New Decimal(New Integer() {3000, 0, 0, 0})
+ Me.edRok.Minimum = New Decimal(New Integer() {2000, 0, 0, 0})
+ Me.edRok.Name = "edRok"
+ Me.edRok.Size = New System.Drawing.Size(120, 20)
+ Me.edRok.TabIndex = 0
+ Me.edRok.Value = New Decimal(New Integer() {2019, 0, 0, 0})
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Location = New System.Drawing.Point(358, 24)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(43, 13)
+ Me.Label2.TabIndex = 3
+ Me.Label2.Text = "Miesiąc"
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Location = New System.Drawing.Point(115, 24)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(27, 13)
+ Me.Label1.TabIndex = 2
+ Me.Label1.Text = "Rok"
+ '
+ 'CbMiesiac
+ '
+ Me.CbMiesiac.FormattingEnabled = True
+ Me.CbMiesiac.Items.AddRange(New Object() {"styczeń", "luty", "marzec", "kwiecień", "maj", "czerwiec", "lipiec", "sierpień", "wrzesień", "październik", "listopad", "grudzień"})
+ Me.CbMiesiac.Location = New System.Drawing.Point(407, 21)
+ Me.CbMiesiac.Name = "CbMiesiac"
+ Me.CbMiesiac.Size = New System.Drawing.Size(121, 21)
+ Me.CbMiesiac.TabIndex = 1
+ Me.CbMiesiac.Text = "styczeń"
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.AutoScroll = True
+ Me.TableLayoutPanel1.ColumnCount = 3
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.BtImport, 1, 1)
+ Me.TableLayoutPanel1.Controls.Add(Me.lbUwaga, 1, 4)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtKonfig, 1, 6)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtUsunFlage, 1, 3)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(630, 41)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 8
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 22.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 42.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 60.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 57.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(172, 491)
+ Me.TableLayoutPanel1.TabIndex = 3
+ '
+ 'BtImport
+ '
+ Me.BtImport.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtImport.Location = New System.Drawing.Point(39, 23)
+ Me.BtImport.Name = "BtImport"
+ Me.BtImport.Size = New System.Drawing.Size(94, 26)
+ Me.BtImport.TabIndex = 4
+ Me.BtImport.Text = "Importuj"
+ Me.BtImport.UseVisualStyleBackColor = True
+ '
+ 'lbUwaga
+ '
+ Me.lbUwaga.BackColor = System.Drawing.Color.PaleGreen
+ Me.lbUwaga.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.lbUwaga.Enabled = False
+ Me.lbUwaga.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lbUwaga.ForeColor = System.Drawing.Color.Red
+ Me.lbUwaga.Location = New System.Drawing.Point(39, 119)
+ Me.lbUwaga.Name = "lbUwaga"
+ Me.lbUwaga.Size = New System.Drawing.Size(94, 54)
+ Me.lbUwaga.TabIndex = 5
+ Me.lbUwaga.Text = "Czekaj: pobieranie danych"
+ Me.lbUwaga.UseVisualStyleBackColor = False
+ '
+ 'BtKonfig
+ '
+ Me.BtKonfig.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtKonfig.Location = New System.Drawing.Point(39, 409)
+ Me.BtKonfig.Name = "BtKonfig"
+ Me.BtKonfig.Size = New System.Drawing.Size(94, 22)
+ Me.BtKonfig.TabIndex = 6
+ Me.BtKonfig.Text = "Konfiguracja"
+ Me.BtKonfig.UseVisualStyleBackColor = True
+ '
+ 'BtKoniec
+ '
+ Me.BtKoniec.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.BtKoniec.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.BtKoniec.Location = New System.Drawing.Point(630, 538)
+ Me.BtKoniec.Name = "BtKoniec"
+ Me.BtKoniec.Size = New System.Drawing.Size(172, 60)
+ Me.BtKoniec.TabIndex = 4
+ Me.BtKoniec.Text = "Koniec"
+ Me.BtKoniec.UseVisualStyleBackColor = True
+ '
+ 'BtOdswiez
+ '
+ Me.BtOdswiez.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtOdswiez.Location = New System.Drawing.Point(630, 3)
+ Me.BtOdswiez.Name = "BtOdswiez"
+ Me.BtOdswiez.Size = New System.Drawing.Size(172, 32)
+ Me.BtOdswiez.TabIndex = 5
+ Me.BtOdswiez.Text = "Odśwież dane"
+ Me.BtOdswiez.UseVisualStyleBackColor = True
+ '
+ 'TcZakladki
+ '
+ Me.TcZakladki.Controls.Add(Me.TpDocs)
+ Me.TcZakladki.Controls.Add(Me.TpList)
+ Me.TcZakladki.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TcZakladki.Location = New System.Drawing.Point(3, 41)
+ Me.TcZakladki.Name = "TcZakladki"
+ Me.TcZakladki.SelectedIndex = 0
+ Me.TcZakladki.Size = New System.Drawing.Size(621, 491)
+ Me.TcZakladki.TabIndex = 6
+ '
+ 'TpDocs
+ '
+ Me.TpDocs.Controls.Add(Me.DgvDokumenty)
+ Me.TpDocs.Location = New System.Drawing.Point(4, 22)
+ Me.TpDocs.Name = "TpDocs"
+ Me.TpDocs.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpDocs.Size = New System.Drawing.Size(613, 465)
+ Me.TpDocs.TabIndex = 0
+ Me.TpDocs.Text = "Dokumenty"
+ Me.TpDocs.UseVisualStyleBackColor = True
+ '
+ 'DgvDokumenty
+ '
+ Me.DgvDokumenty.AllowUserToAddRows = False
+ Me.DgvDokumenty.AllowUserToDeleteRows = False
+ Me.DgvDokumenty.AllowUserToOrderColumns = True
+ Me.DgvDokumenty.AllowUserToResizeRows = False
+ DataGridViewCellStyle1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.DgvDokumenty.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+ Me.DgvDokumenty.AutoGenerateColumns = False
+ Me.DgvDokumenty.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.DisplayedCells
+ Me.DgvDokumenty.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
+ Me.DgvDokumenty.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.DgvDokumenty.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colLp, Me.colDokument, Me.colDokZr, Me.colDZKOpis, Me.colDataWyst, Me.colDataOper, Me.colSumaCT, Me.colSumaDT, Me.colDZKDziennik, Me.colDekret, Me.colRokMiesiac, Me.colDataImportu})
+ Me.DgvDokumenty.DataSource = Me.BsTbmy_ImpDM_Src
+ Me.DgvDokumenty.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.DgvDokumenty.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically
+ Me.DgvDokumenty.Location = New System.Drawing.Point(3, 3)
+ Me.DgvDokumenty.Name = "DgvDokumenty"
+ Me.DgvDokumenty.ReadOnly = True
+ Me.DgvDokumenty.RowHeadersVisible = False
+ Me.DgvDokumenty.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+ Me.DgvDokumenty.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.DgvDokumenty.ShowEditingIcon = False
+ Me.DgvDokumenty.Size = New System.Drawing.Size(607, 459)
+ Me.DgvDokumenty.TabIndex = 0
+ '
+ 'TpList
+ '
+ Me.TpList.Controls.Add(Me.LstWynik)
+ Me.TpList.Location = New System.Drawing.Point(4, 22)
+ Me.TpList.Name = "TpList"
+ Me.TpList.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpList.Size = New System.Drawing.Size(613, 465)
+ Me.TpList.TabIndex = 1
+ Me.TpList.Text = "Przebieg pracy"
+ Me.TpList.UseVisualStyleBackColor = True
+ '
+ 'LstWynik
+ '
+ Me.LstWynik.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.LstWynik.FormattingEnabled = True
+ Me.LstWynik.Location = New System.Drawing.Point(3, 3)
+ Me.LstWynik.Name = "LstWynik"
+ Me.LstWynik.Size = New System.Drawing.Size(607, 459)
+ Me.LstWynik.TabIndex = 0
+ '
+ 'Timer
+ '
+ Me.Timer.Interval = 200
+ '
+ 'BtUsunFlage
+ '
+ Me.BtUsunFlage.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtUsunFlage.Location = New System.Drawing.Point(39, 77)
+ Me.BtUsunFlage.Name = "BtUsunFlage"
+ Me.BtUsunFlage.Size = New System.Drawing.Size(94, 36)
+ Me.BtUsunFlage.TabIndex = 7
+ Me.BtUsunFlage.Text = "Skasuj flagę importu"
+ Me.BtUsunFlage.UseVisualStyleBackColor = True
+ '
+ 'BsTbmy_ImpDM_Src
+ '
+ Me.BsTbmy_ImpDM_Src.DataMember = "Tbmy_ImpDM_Src"
+ Me.BsTbmy_ImpDM_Src.DataSource = Me.DsMain
+ '
+ 'DsMain
+ '
+ Me.DsMain.DataSetName = "DsMain"
+ Me.DsMain.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+ '
+ 'Tamy_ImpDM_Src
+ '
+ Me.Tamy_ImpDM_Src.ClearBeforeFill = True
+ '
+ 'TableAdapterManager
+ '
+ Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+ Me.TableAdapterManager.Connection = Nothing
+ Me.TableAdapterManager.UpdateOrder = ImportDokMag.DsMainTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+ '
+ 'BsTbmy_ImpDM_Dekr
+ '
+ Me.BsTbmy_ImpDM_Dekr.DataMember = "Tbmy_ImpDM_Dekr"
+ Me.BsTbmy_ImpDM_Dekr.DataSource = Me.DsMain
+ '
+ 'Tamy_ImpDM_Dekr
+ '
+ Me.Tamy_ImpDM_Dekr.ClearBeforeFill = True
+ '
+ 'colLp
+ '
+ Me.colLp.DataPropertyName = "Lp"
+ Me.colLp.HeaderText = "Lp"
+ Me.colLp.Name = "colLp"
+ Me.colLp.ReadOnly = True
+ Me.colLp.Width = 44
+ '
+ 'colDokument
+ '
+ Me.colDokument.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
+ Me.colDokument.DataPropertyName = "Dokument"
+ Me.colDokument.HeaderText = "Dokument"
+ Me.colDokument.Name = "colDokument"
+ Me.colDokument.ReadOnly = True
+ Me.colDokument.Width = 81
+ '
+ 'colDokZr
+ '
+ Me.colDokZr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
+ Me.colDokZr.DataPropertyName = "DokZr"
+ Me.colDokZr.HeaderText = "Dok. żródłowy"
+ Me.colDokZr.Name = "colDokZr"
+ Me.colDokZr.ReadOnly = True
+ Me.colDokZr.Width = 101
+ '
+ 'colDZKOpis
+ '
+ Me.colDZKOpis.DataPropertyName = "DZK_Opis"
+ Me.colDZKOpis.HeaderText = "Opis"
+ Me.colDZKOpis.Name = "colDZKOpis"
+ Me.colDZKOpis.ReadOnly = True
+ Me.colDZKOpis.Width = 53
+ '
+ 'colDataWyst
+ '
+ Me.colDataWyst.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
+ Me.colDataWyst.DataPropertyName = "DataWyst"
+ Me.colDataWyst.HeaderText = "Data"
+ Me.colDataWyst.Name = "colDataWyst"
+ Me.colDataWyst.ReadOnly = True
+ Me.colDataWyst.Width = 55
+ '
+ 'colDataOper
+ '
+ Me.colDataOper.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
+ Me.colDataOper.DataPropertyName = "DataOper"
+ Me.colDataOper.HeaderText = "Data dokumentu"
+ Me.colDataOper.Name = "colDataOper"
+ Me.colDataOper.ReadOnly = True
+ Me.colDataOper.Width = 102
+ '
+ 'colSumaCT
+ '
+ Me.colSumaCT.DataPropertyName = "SumaCT"
+ Me.colSumaCT.HeaderText = "Suma Ma"
+ Me.colSumaCT.Name = "colSumaCT"
+ Me.colSumaCT.ReadOnly = True
+ Me.colSumaCT.Width = 71
+ '
+ 'colSumaDT
+ '
+ Me.colSumaDT.DataPropertyName = "SumaDT"
+ Me.colSumaDT.HeaderText = "Suma Winien"
+ Me.colSumaDT.Name = "colSumaDT"
+ Me.colSumaDT.ReadOnly = True
+ Me.colSumaDT.Width = 87
+ '
+ 'colDZKDziennik
+ '
+ Me.colDZKDziennik.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
+ Me.colDZKDziennik.DataPropertyName = "DZK_Dziennik"
+ Me.colDZKDziennik.HeaderText = "Dziennik"
+ Me.colDZKDziennik.Name = "colDZKDziennik"
+ Me.colDZKDziennik.ReadOnly = True
+ Me.colDZKDziennik.Visible = False
+ Me.colDZKDziennik.Width = 73
+ '
+ 'colDekret
+ '
+ Me.colDekret.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
+ Me.colDekret.DataPropertyName = "Dekret"
+ Me.colDekret.HeaderText = "Dekret"
+ Me.colDekret.Name = "colDekret"
+ Me.colDekret.ReadOnly = True
+ Me.colDekret.Visible = False
+ Me.colDekret.Width = 64
+ '
+ 'colRokMiesiac
+ '
+ Me.colRokMiesiac.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
+ Me.colRokMiesiac.DataPropertyName = "RokMiesiac"
+ Me.colRokMiesiac.HeaderText = "RokMiesiac"
+ Me.colRokMiesiac.Name = "colRokMiesiac"
+ Me.colRokMiesiac.ReadOnly = True
+ Me.colRokMiesiac.Visible = False
+ Me.colRokMiesiac.Width = 88
+ '
+ 'colDataImportu
+ '
+ Me.colDataImportu.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
+ Me.colDataImportu.DataPropertyName = "DataImportu"
+ Me.colDataImportu.HeaderText = "Data importu"
+ Me.colDataImportu.Name = "colDataImportu"
+ Me.colDataImportu.ReadOnly = True
+ Me.colDataImportu.Width = 85
+ '
+ 'MainFrm
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.CancelButton = Me.BtKoniec
+ Me.ClientSize = New System.Drawing.Size(805, 601)
+ Me.Controls.Add(Me.TlMainPanel)
+ Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+ Me.Name = "MainFrm"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "Import dokumentów magazynowych 1.0 z 31.01.2019"
+ Me.TlMainPanel.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TcZakladki.ResumeLayout(False)
+ Me.TpDocs.ResumeLayout(False)
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TpList.ResumeLayout(False)
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+
+ Friend WithEvents TlMainPanel As TableLayoutPanel
+ Friend WithEvents DgvDokumenty As DataGridView
+ Friend WithEvents Panel1 As Panel
+ Friend WithEvents CbWewn As CheckBox
+ Friend WithEvents CbZakup As CheckBox
+ Friend WithEvents CbSprzedaz As CheckBox
+ Friend WithEvents Panel2 As Panel
+ Friend WithEvents edRok As NumericUpDown
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label1 As Label
+ Friend WithEvents CbMiesiac As ComboBox
+ Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+ Friend WithEvents BtImport As Button
+ Friend WithEvents BtKoniec As Button
+ Friend WithEvents BtOdswiez As Button
+ Friend WithEvents DsMain As DsMain
+ Friend WithEvents BsTbmy_ImpDM_Src As BindingSource
+ Friend WithEvents Tamy_ImpDM_Src As DsMainTableAdapters.Tamy_ImpDM_Src
+ Friend WithEvents TableAdapterManager As DsMainTableAdapters.TableAdapterManager
+ Friend WithEvents lbUwaga As Button
+ Friend WithEvents TcZakladki As TabControl
+ Friend WithEvents TpDocs As TabPage
+ Friend WithEvents TpList As TabPage
+ Friend WithEvents LstWynik As ListBox
+ Friend WithEvents BtKonfig As Button
+ Friend WithEvents Timer As Timer
+ Friend WithEvents BsTbmy_ImpDM_Dekr As BindingSource
+ Friend WithEvents Tamy_ImpDM_Dekr As DsMainTableAdapters.Tamy_ImpDM_Dekr
+ Friend WithEvents BtUsunFlage As Button
+ Friend WithEvents colLp As DataGridViewTextBoxColumn
+ Friend WithEvents colDokument As DataGridViewTextBoxColumn
+ Friend WithEvents colDokZr As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKOpis As DataGridViewTextBoxColumn
+ Friend WithEvents colDataWyst As DataGridViewTextBoxColumn
+ Friend WithEvents colDataOper As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaCT As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaDT As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKDziennik As DataGridViewTextBoxColumn
+ Friend WithEvents colDekret As DataGridViewTextBoxColumn
+ Friend WithEvents colRokMiesiac As DataGridViewTextBoxColumn
+ Friend WithEvents colDataImportu As DataGridViewTextBoxColumn
+End Class
diff --git a/.svn/pristine/38/38209bda456709a4fa1665f33231987c6eb44ede.svn-base b/.svn/pristine/38/38209bda456709a4fa1665f33231987c6eb44ede.svn-base
new file mode 100644
index 0000000..0e2c20d
--- /dev/null
+++ b/.svn/pristine/38/38209bda456709a4fa1665f33231987c6eb44ede.svn-base
@@ -0,0 +1,184 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDN.my_ImpDM_Src
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDN.my_ImpDM_Dekr
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/3a/3aa5f0c3a60c577c16c6a830bee3250879f65335.svn-base b/.svn/pristine/3a/3aa5f0c3a60c577c16c6a830bee3250879f65335.svn-base
new file mode 100644
index 0000000..7ef141b
--- /dev/null
+++ b/.svn/pristine/3a/3aa5f0c3a60c577c16c6a830bee3250879f65335.svn-base
@@ -0,0 +1,192 @@
+'------------------------------------------------------------------------------
+'
+' Ten kod został wygenerowany przez narzędzie.
+' Wersja wykonawcza:4.0.30319.42000
+'
+' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli
+' kod zostanie ponownie wygenerowany.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "Funkcje automatycznego zapisywania My.Settings"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ _
+ Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property CS_Src() As String
+ Get
+ Return CType(Me("CS_Src"),String)
+ End Get
+ End Property
+
+ _
+ Public Property FolderR_Roboczy() As String
+ Get
+ Return CType(Me("FolderR_Roboczy"),String)
+ End Get
+ Set
+ Me("FolderR_Roboczy") = value
+ End Set
+ End Property
+
+ _
+ Public Property SerwerKlucza() As String
+ Get
+ Return CType(Me("SerwerKlucza"),String)
+ End Get
+ Set
+ Me("SerwerKlucza") = value
+ End Set
+ End Property
+
+ _
+ Public Property Seria() As String
+ Get
+ Return CType(Me("Seria"),String)
+ End Get
+ Set
+ Me("Seria") = value
+ End Set
+ End Property
+
+ _
+ Public Property SerwerSrc() As String
+ Get
+ Return CType(Me("SerwerSrc"),String)
+ End Get
+ Set
+ Me("SerwerSrc") = value
+ End Set
+ End Property
+
+ _
+ Public Property MCsrc() As String
+ Get
+ Return CType(Me("MCsrc"),String)
+ End Get
+ Set
+ Me("MCsrc") = value
+ End Set
+ End Property
+
+ _
+ Public Property Comsrc() As String
+ Get
+ Return CType(Me("Comsrc"),String)
+ End Get
+ Set
+ Me("Comsrc") = value
+ End Set
+ End Property
+
+ _
+ Public Property BazaSrc() As String
+ Get
+ Return CType(Me("BazaSrc"),String)
+ End Get
+ Set
+ Me("BazaSrc") = value
+ End Set
+ End Property
+
+ _
+ Public Property check() As String
+ Get
+ Return CType(Me("check"),String)
+ End Get
+ Set
+ Me("check") = value
+ End Set
+ End Property
+
+ _
+ Public Property BazaDst() As String
+ Get
+ Return CType(Me("BazaDst"),String)
+ End Get
+ Set
+ Me("BazaDst") = value
+ End Set
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ _
+ Friend Module MySettingsProperty
+
+ _
+ Friend ReadOnly Property Settings() As Global.ImportDokMag.My.MySettings
+ Get
+ Return Global.ImportDokMag.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/.svn/pristine/3a/3ae029d23e599d2d4cc6123fd27ab000c83d2fcb.svn-base b/.svn/pristine/3a/3ae029d23e599d2d4cc6123fd27ab000c83d2fcb.svn-base
new file mode 100644
index 0000000..2bfcc05
--- /dev/null
+++ b/.svn/pristine/3a/3ae029d23e599d2d4cc6123fd27ab000c83d2fcb.svn-base
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Ogólne informacje o zestawie są kontrolowane poprzez następujący
+' zestaw atrybutów. Zmień wartości tych atrybutów, aby zmodyfikować informacje
+' powiązane z zestawem.
+
+' Sprawdź wartości atrybutów zestawu
+
+
+
+
+
+
+
+
+
+
+'Następujący identyfikator GUID jest identyfikatorem biblioteki typów w przypadku udostępnienia tego projektu w modelu COM
+
+
+' Informacje o wersji zestawu zawierają następujące cztery wartości:
+'
+' Wersja główna
+' Wersja pomocnicza
+' Numer kompilacji
+' Rewizja
+'
+' Możesz określić wszystkie wartości lub użyć domyślnych numerów kompilacji i poprawki
+' przy użyciu symbolu „*”, tak jak pokazano poniżej:
+'
+
+
+
diff --git a/.svn/pristine/3b/3b51c937f4ec7af0e180d328a49abf7552de127b.svn-base b/.svn/pristine/3b/3b51c937f4ec7af0e180d328a49abf7552de127b.svn-base
new file mode 100644
index 0000000..18127c3
--- /dev/null
+++ b/.svn/pristine/3b/3b51c937f4ec7af0e180d328a49abf7552de127b.svn-base
@@ -0,0 +1,255 @@
+'Public Module ImportDM
+Partial Public Class MainFrm
+ Public GIDTyp, GIDFirma, GIDNumer, GIDLp As Integer 'aktualny dekret
+ Public DecimalGroupSep As String
+ Public DecimalSep As String
+
+ Function szukaj_sep(ByVal line As String, ByVal start As Integer, ByVal separator As String) As Integer
+ Dim i As Integer
+ szukaj_sep = -1
+ i = InStr(start, line, separator, CompareMethod.Text)
+ If i > start Then szukaj_sep = i
+ End Function
+
+ Function ToDate(Data As String) As Date
+ Dim dd As Date
+ Dim pos As Integer
+
+ Data = Replace(Data, "/", ".")
+ Data = Replace(Data, "-", ".")
+ pos = szukaj_sep(Data, 1, ".")
+ Dim TestAr() As String = Split(Data, ".", , CompareMethod.Text)
+ If pos = 5 Then 'rrrr.mm.dd
+ dd = DateSerial(TestAr(0), TestAr(1), TestAr(2))
+ Else 'dd.mm.rrrr
+ dd = DateSerial(TestAr(2), TestAr(1), TestAr(0))
+ End If
+ ToDate = dd
+ End Function
+
+ Function XL_Date(Data As Date) As Integer
+ XL_Date = 36161 + CInt(Data.ToOADate())
+ End Function
+
+ Function Liczba(bf As String) As String
+ Dim w As String
+
+ w = Replace(bf, ",", DecimalSep)
+ w = Replace(bf, ".", DecimalSep)
+ Liczba = w
+ End Function
+
+ Public Function ZamknijDekret(ByVal CzyZapisac As Boolean) As Boolean
+ Dim ZamknijDekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20182
+ Dim ret As Boolean = False
+
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLZamknijDekretZb(ZamknijDekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ ret = True
+ End If
+ If Not CzyZapisac Then
+ Dim KasujDekretInfo As New cdn_api.XLDekretInfo_20182
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLKasujDekretzb(KasujDekretInfo)
+ End If
+ Return (ret)
+ End Function
+
+ Public Function UtworzDekretZbiorczy(ByVal IdentKsieg As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal Opis As String, ByVal SumaCT As Decimal, ByVal SumaDT As Decimal) As Boolean
+ Dim DekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20182
+
+ listuj(CStr(Now) + "-> Dokument: " + IdentKsieg)
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ .Data = XL_Date(Data) 'Data dekretu
+ .DataDokumentu = XL_Date(DokData) 'Data dokumentu
+ .KwotaDebet = Str(SumaDT) + Chr(0) 'Kwota sumaryczna winien
+ .KwotaCredit = Str(SumaCT) + Chr(0) 'Kwota sumaryczna ma
+ .NumerDokumentu = DokZrodlowy + Chr(0) 'Numer dokumentu źródłowego
+ .Dziennik = My.Settings.Seria + Chr(0) 'Dziennik księgowań
+ .Bufor = "BUFOR" + Chr(0) 'Bufor księgowań (pusty = KG)
+ .Identyfikator = IdentKsieg 'identyfikator księgowy - numer dokument z Jastrzębia
+ .Opis = Opis + Chr(0) 'Opis dekretu
+ End With
+ XLDodajDekretZb(DekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ GIDFirma = DekretZbiorczyInfo.GIDFirma
+ GIDTyp = DekretZbiorczyInfo.GIDTyp
+ GIDNumer = DekretZbiorczyInfo.GIDNumer
+ GIDLp = DekretZbiorczyInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajSkladowy(ByVal DZKNumer As Integer) As Boolean
+ Dim DekretSkladowyInfo As New cdn_api.XLDekretInfo_20182
+ Dim ret As Boolean = True
+ Dim i As Integer
+ Dim line As String
+
+ i = 0
+ Try
+ Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ BsTbmy_ImpDM_Dekr.ResetBindings(False)
+ BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < BsTbmy_ImpDM_Dekr.Count
+ With DekretSkladowyInfo
+ .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota pomnożona przez 100
+ .NumerDokumentu = BsTbmy_ImpDM_Dekr.Current("DokZr") + Chr(0) 'Numer dokumentu
+ .KontoDebet = BsTbmy_ImpDM_Dekr.Current("KontoDebet") + Chr(0) 'Numer konta winien (WN)
+ .KontoCredit = BsTbmy_ImpDM_Dekr.Current("KontoCredit") + Chr(0) 'Numer konta ma (MA)
+ .Identyfikator = BsTbmy_ImpDM_Dekr.Current("Identyfikator")
+ .Opis = BsTbmy_ImpDM_Dekr.Current("Opis") + Chr(0) 'Opis dekretu
+ End With
+ line = " Dekret-> " & BsTbmy_ImpDM_Dekr.Current("DokZr")
+ line = line & " - Wn: " & BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+ line = line & ", Ma: " & BsTbmy_ImpDM_Dekr.Current("KontoCredit")
+ line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota"))
+ listuj(line)
+ XLDodajDekretSkl(DekretSkladowyInfo)
+ If wynikXL <> 0 Then ret = False
+ BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+
+ Public Function UtworzNote(ByVal NrDokumentu As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal tresc As String) As Boolean
+ Dim NotaInfo As New cdn_api.XLNotaInfo_20182
+
+ listuj(CStr(Now) + "-> Nota do: " + NrDokumentu)
+ With NotaInfo
+ .GIDTyp = 4145 'nota uproszczona
+ .DataWprow = XL_Date(Data) 'Data dekretu
+ .DataDok = XL_Date(DokData) 'Data dokumentu
+ .DataOper = XL_Date(DokData) 'Data dokumentu
+ .Seria = My.Settings.Seria + Chr(0)
+ .NumerDokumentu = NrDokumentu + Chr(0) 'Numer dokumentu źródłowego
+ .Tresc = tresc + Chr(0) 'treść noty
+ End With
+ XLDodajNoteMem(NotaInfo)
+ If wynikXL = 0 Then
+ GIDFirma = NotaInfo.GIDFirma
+ GIDTyp = NotaInfo.GIDTyp
+ GIDNumer = NotaInfo.GIDNumer
+ GIDLp = NotaInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajPozycjeNoty(ByVal DZKNumer As Integer, ByVal DataDok As Date, ByVal DataOper As Date, ByVal opis As String, ByVal NrDok As String) As Boolean
+ Dim NotaPozycjaInfo As New cdn_api.XLPozycjaNotyInfo_20182
+ Dim ret As Boolean = True
+ Dim i, KKS_Wn, KKS_Ma As Integer
+ Dim Rok As Integer
+ Dim sql, line, KontoWn, KontoMa As String
+
+ i = 0
+ Try
+ Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ BsTbmy_ImpDM_Dekr.ResetBindings(False)
+ BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < BsTbmy_ImpDM_Dekr.Count
+ KontoWn = BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+ KontoMa = BsTbmy_ImpDM_Dekr.Current("KontoCredit")
+ KKS_Wn = 0
+ KKS_Ma = 0
+ Rok = Year(DataDok)
+ sql = "select KKS_GIDNumer from CDN.Konta where KKS_Rok = " & CStr(Rok) & " and KKS_Konto = '" & KontoWn & "'"
+ line = GetOneVal(sql, DstConn_str)
+ If line > "" Then KKS_Wn = CInt(line)
+ sql = "select 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)
+ With NotaPozycjaInfo
+ .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota
+ .NumerDokumentu = NrDok + Chr(0) 'Numer dokumentu
+ .KKSNumerDT = KKS_Wn
+ .KKSNumerCT = KKS_Ma
+ .Opis = opis + Chr(0) 'Opis z pozycji dekretu
+ .DataDok = XL_Date(DataDok)
+ .DataOper = XL_Date(DataDok)
+ End With
+ line = " pozycja -> " & BsTbmy_ImpDM_Dekr.Current("DokZr")
+ line = line & " - Wn: " & KontoWn
+ line = line & ", Ma: " & KontoMa
+ line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota"))
+ listuj(line)
+ XLDodajPozycjeNotyMem(NotaPozycjaInfo)
+ If wynikXL <> 0 Then ret = False
+ BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+
+ Public Function ZamknijNote(ByVal CzyZapisac As Boolean) As Boolean
+ Dim NotaInfo As New cdn_api.XLNotaInfo_20182
+ Dim ret As Boolean = False
+
+ With NotaInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLZamknijNoteMem(NotaInfo)
+ If wynikXL = 0 Then
+ ret = True
+ End If
+ If Not CzyZapisac Then
+ Dim KasNotaInfo As New cdn_api.XLNotaInfo_20182
+ With KasNotaInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLKasujNoteMem(KasNotaInfo)
+ End If
+ Return (ret)
+ End Function
+
+End Class
diff --git a/.svn/pristine/3d/3d9bfd9ffee06a9a1d8f0a400dbfd80730b8e63b.svn-base b/.svn/pristine/3d/3d9bfd9ffee06a9a1d8f0a400dbfd80730b8e63b.svn-base
new file mode 100644
index 0000000..a53d701
--- /dev/null
+++ b/.svn/pristine/3d/3d9bfd9ffee06a9a1d8f0a400dbfd80730b8e63b.svn-base
@@ -0,0 +1,145 @@
+'Public Module ImportDM
+Partial Public Class MainFrm
+ Public GIDTyp, GIDFirma, GIDNumer, GIDLp As Integer 'aktualny dekret
+ Public DecimalGroupSep As String
+ Public DecimalSep As String
+
+
+ Function szukaj_sep(ByVal line As String, ByVal start As Integer, ByVal separator As String) As Integer
+ Dim i As Integer
+ szukaj_sep = -1
+ i = InStr(start, line, separator, CompareMethod.Text)
+ If i > start Then szukaj_sep = i
+ End Function
+
+ Function ToDate(Data As String) As Date
+ Dim dd As Date
+ Dim pos As Integer
+
+ Data = Replace(Data, "/", ".")
+ Data = Replace(Data, "-", ".")
+ pos = szukaj_sep(Data, 1, ".")
+ Dim TestAr() As String = Split(Data, ".", , CompareMethod.Text)
+ If pos = 5 Then 'rrrr.mm.dd
+ dd = DateSerial(TestAr(0), TestAr(1), TestAr(2))
+ Else 'dd.mm.rrrr
+ dd = DateSerial(TestAr(2), TestAr(1), TestAr(0))
+ End If
+ ToDate = dd
+ End Function
+
+ Function XL_Date(Data As Date) As Integer
+ XL_Date = 36161 + CInt(Data.ToOADate())
+ End Function
+
+ Function Liczba(bf As String) As String
+ Dim w As String
+
+ w = Replace(bf, ",", DecimalSep)
+ w = Replace(bf, ".", DecimalSep)
+ Liczba = w
+ End Function
+
+
+ Public Function ZamknijDekret(ByVal CzyZapisac As Boolean) As Boolean
+ Dim ZamknijDekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20182
+ Dim ret As Boolean = False
+
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLZamknijDekretZb(ZamknijDekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ ret = True
+ End If
+ If Not CzyZapisac Then
+ Dim KasujDekretInfo As New cdn_api.XLDekretInfo_20182
+ With ZamknijDekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia (interakcyjny/wsadowy)
+ .GIDTyp = GIDTyp 'GID dekretu (zwracanego po dodaniu)
+ .GIDFirma = GIDFirma '
+ .GIDNumer = GIDNumer '
+ .GIDLp = 0 '
+ End With
+ XLKasujDekretzb(KasujDekretInfo)
+ End If
+ Return (ret)
+ End Function
+
+ Public Function UtworzDekretZbiorczy(ByVal IdentKsieg As String, ByVal Data As Date, ByVal DokData As Date, ByVal DokZrodlowy As String, ByVal Opis As String, ByVal SumaCT As Decimal, ByVal SumaDT As Decimal) As Boolean
+ Dim DekretZbiorczyInfo As New cdn_api.XLDekretZbiorczyInfo_20182
+
+ listuj(CStr(Now) + "-> Dokument: " + IdentKsieg)
+ With DekretZbiorczyInfo
+ .Wersja = Wersja
+ .Tryb = 2 'Tryb wystawienia wsadowy
+ .Data = XL_Date(Data) 'Data dekretu
+ .DataDokumentu = XL_Date(DokData) 'Data dokumentu
+ .KwotaDebet = Str(SumaDT) + Chr(0) 'Kwota sumaryczna winien
+ .KwotaCredit = Str(SumaCT) + Chr(0) 'Kwota sumaryczna ma
+ .NumerDokumentu = DokZrodlowy + Chr(0) 'Numer dokumentu źródłowego
+ .Dziennik = My.Settings.Dziennik_Docelowy + Chr(0) 'Dziennik księgowań
+ .Bufor = "BUFOR" + Chr(0) 'Bufor księgowań (pusty = KG)
+ .Identyfikator = IdentKsieg 'identyfikator księgowy - numer dokument z Jastrzębia
+ .Opis = Opis + Chr(0) 'Opis dekretu
+ End With
+ XLDodajDekretZb(DekretZbiorczyInfo)
+ If wynikXL = 0 Then
+ GIDFirma = DekretZbiorczyInfo.GIDFirma
+ GIDTyp = DekretZbiorczyInfo.GIDTyp
+ GIDNumer = DekretZbiorczyInfo.GIDNumer
+ GIDLp = DekretZbiorczyInfo.GIDLp
+ Return (True)
+ Else
+ GIDFirma = 0
+ GIDTyp = 0
+ GIDNumer = 0
+ GIDLp = 0
+ Return (False)
+ End If
+ End Function
+
+ Public Function DodajSkladowy(ByVal DZKNumer As Integer) As Boolean
+ Dim DekretSkladowyInfo As New cdn_api.XLDekretInfo_20182
+ Dim ret As Boolean = True
+ Dim i As Integer
+ Dim line As String
+
+ i = 0
+ Try
+ Tamy_ImpDM_Dekr.Fill(DsMain.Tbmy_ImpDM_Dekr, DZKNumer)
+ BsTbmy_ImpDM_Dekr.ResetBindings(False)
+ BsTbmy_ImpDM_Dekr.MoveFirst()
+ While i < BsTbmy_ImpDM_Dekr.Count
+ With DekretSkladowyInfo
+ .Kwota = Str(BsTbmy_ImpDM_Dekr.Current("Kwota")) + Chr(0) 'Kwota pomnożona przez 100
+ .NumerDokumentu = BsTbmy_ImpDM_Dekr.Current("DokZr") + Chr(0) 'Numer dokumentu
+ .KontoDebet = BsTbmy_ImpDM_Dekr.Current("KontoDebet") + Chr(0) 'Numer konta winien (WN)
+ .KontoCredit = BsTbmy_ImpDM_Dekr.Current("KontoCredit") + Chr(0) 'Numer konta ma (MA)
+ .Identyfikator = BsTbmy_ImpDM_Dekr.Current("Identyfikator")
+ .Opis = BsTbmy_ImpDM_Dekr.Current("Opis") + Chr(0) 'Opis dekretu
+ End With
+ line = " Dekret-> " & BsTbmy_ImpDM_Dekr.Current("DokZr")
+ line = line & " - Wn: " & BsTbmy_ImpDM_Dekr.Current("KontoDebet")
+ line = line & ", Ma: " & BsTbmy_ImpDM_Dekr.Current("KontoCredit")
+ line = line & ", kwota: " & Str(BsTbmy_ImpDM_Dekr.Current("Kwota"))
+ listuj(line)
+ XLDodajDekretSkl(DekretSkladowyInfo)
+ If wynikXL <> 0 Then ret = False
+ BsTbmy_ImpDM_Dekr.MoveNext()
+ i += 1
+ End While
+ Catch ex As System.Exception
+ ret = False
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+
+ Return (ret)
+ End Function
+End Class
diff --git a/.svn/pristine/3e/3e18abe89b62b2e64bcd99a4ed637d15f2e40d43.svn-base b/.svn/pristine/3e/3e18abe89b62b2e64bcd99a4ed637d15f2e40d43.svn-base
new file mode 100644
index 0000000..21706ad
--- /dev/null
+++ b/.svn/pristine/3e/3e18abe89b62b2e64bcd99a4ed637d15f2e40d43.svn-base
@@ -0,0 +1,17 @@
+IF EXISTS (SELECT * FROM sysobjects WHERE name = 'my_ImpDM_Konta' AND user_name(uid) = 'CDN')
+ DROP PROCEDURE [CDN].my_ImpDM_Konta
+GO
+
+CREATE PROCEDURE [CDN].my_ImpDM_Konta
+(
+ @Rok smallint,
+ @Miesiac smallint
+)
+AS
+ SET NOCOUNT ON;
+ select distinct DT_Konto as Konto
+ from CDN.Dziennik inner join CDN.DziennikElem on DZK_GIDNumer = DEL_GIDNumer
+ inner join CDN.Dekrety on DT_GIDNumer = DEL_GIDNumer
+ where DZK_Rok = @Rok and DZK_Miesiac = @Miesiac
+ order by 1
+GO
diff --git a/.svn/pristine/3f/3fa909a73ddd5c5324ac98cd4031749f04d4be79.svn-base b/.svn/pristine/3f/3fa909a73ddd5c5324ac98cd4031749f04d4be79.svn-base
new file mode 100644
index 0000000..25216a9
--- /dev/null
+++ b/.svn/pristine/3f/3fa909a73ddd5c5324ac98cd4031749f04d4be79.svn-base
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Ogólne informacje o zestawie są kontrolowane poprzez następujący
+' zestaw atrybutów. Zmień wartości tych atrybutów, aby zmodyfikować informacje
+' powiązane z zestawem.
+
+' Sprawdź wartości atrybutów zestawu
+
+
+
+
+
+
+
+
+
+
+'Następujący identyfikator GUID jest identyfikatorem biblioteki typów w przypadku udostępnienia tego projektu w modelu COM
+
+
+' Informacje o wersji zestawu zawierają następujące cztery wartości:
+'
+' Wersja główna
+' Wersja pomocnicza
+' Numer kompilacji
+' Rewizja
+'
+' Możesz określić wszystkie wartości lub użyć domyślnych numerów kompilacji i poprawki
+' przy użyciu symbolu „*”, tak jak pokazano poniżej:
+'
+
+
+
diff --git a/.svn/pristine/41/4114c12559c0bc5350e0936049dea69aa02a9a48.svn-base b/.svn/pristine/41/4114c12559c0bc5350e0936049dea69aa02a9a48.svn-base
new file mode 100644
index 0000000..41704f1
--- /dev/null
+++ b/.svn/pristine/41/4114c12559c0bc5350e0936049dea69aa02a9a48.svn-base
@@ -0,0 +1,147 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ True
+
+
+ 110, 17
+
+
+ 17, 17
+
+
+ 17, 17
+
+
+ 661, 17
+
+
+ 339, 17
+
+
+ 488, 17
+
+
+ 743, 17
+
+
+ 981, 17
+
+
\ No newline at end of file
diff --git a/.svn/pristine/41/41929522bdeb03e410c1e46a773764743970ddb9.svn-base b/.svn/pristine/41/41929522bdeb03e410c1e46a773764743970ddb9.svn-base
new file mode 100644
index 0000000..b1ef4ae
--- /dev/null
+++ b/.svn/pristine/41/41929522bdeb03e410c1e46a773764743970ddb9.svn-base
@@ -0,0 +1,239 @@
+
+
+
+
+ Debug
+ AnyCPU
+ {ACEDBC4B-04AD-423D-B0D7-B930B9998493}
+ WinExe
+ ImportDokMag.My.MyApplication
+ ImportDokMag
+ ImportDokMag
+ 512
+ WindowsForms
+ v4.0
+ true
+ true
+ false
+
+ D:\Dokumenty\Praca\myCONSULT\Gotec\ImportDokMag\Publikuj\
+ true
+ Disk
+ false
+ Foreground
+ 7
+ Days
+ false
+ false
+ false
+ ImportDokMag
+ myCONSULT Sp. z o. o.
+ ImportDokMag
+ 0
+ 1.1.0.0
+ false
+ true
+ true
+ true
+
+
+ AnyCPU
+ true
+ full
+ true
+ true
+ bin\Debug\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+
+
+ AnyCPU
+ pdbonly
+ false
+ true
+ true
+ bin\Release\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+
+
+ On
+
+
+ Binary
+
+
+ Off
+
+
+ On
+
+
+ true
+ true
+ true
+ bin\x86\Debug\
+ ImportDokMag.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ full
+ x86
+ MinimumRecommendedRules.ruleset
+ true
+
+
+ true
+ bin\x86\Release\
+ ImportDokMag.xml
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ pdbonly
+ x86
+ MinimumRecommendedRules.ruleset
+ true
+
+
+ 7632AB20CCBEDCF1AC243A2A06A675C12FFD4C4D
+
+
+ ImportDokMag_TemporaryKey.pfx
+
+
+ true
+
+
+ true
+
+
+ cab.ico
+
+
+ true
+
+
+ ImportDokMag_TemporaryKey.pfx
+
+
+
+ C:\xl\comarch xl\cdn_api20182.net.dll
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ dlgKonfig.vb
+
+
+ Form
+
+
+ True
+ True
+ DsMain.xsd
+
+
+ DsMain.xsd
+
+
+
+ Form
+
+
+ MainFrm.vb
+ Form
+
+
+ Form
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+
+
+ dlgKonfig.vb
+
+
+ MainFrm.vb
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+
+
+ DsMain.xsd
+
+
+ MSDataSetGenerator
+ DsMain.Designer.vb
+ Designer
+
+
+ DsMain.xsd
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+
+
+
+
+ False
+ Microsoft .NET Framework 4.5.2 %28x86 i x64%29
+ true
+
+
+ False
+ .NET Framework 3.5 SP1
+ false
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/42/428144a2c1543064605b072c69511f6f7688ad37.svn-base b/.svn/pristine/42/428144a2c1543064605b072c69511f6f7688ad37.svn-base
new file mode 100644
index 0000000..9ad33d7
--- /dev/null
+++ b/.svn/pristine/42/428144a2c1543064605b072c69511f6f7688ad37.svn-base
@@ -0,0 +1,479 @@
+Imports System.Globalization
+Imports System.IO
+Imports System.Text
+
+Public Class MainFrm
+ Public Tylko_Listing As Boolean
+ Public f_out As StreamWriter ' Plik wyjściowy
+ Private Structure DokKolumny
+ Public cLp As Integer
+ Public cDokument As Integer
+ Public cDokZr As Integer
+ Public cDZKOpis As Integer
+ Public cDataWyst As Integer
+ Public cDataOper As Integer
+ Public cSumaCT As Integer
+ Public cSumaDT As Integer
+ Public cDZKDziennik As Integer
+ Public cDekret As Integer
+ Public cRokMiesiac As Integer
+ Public cDataImp As Integer
+ Public cMagazyn As Integer
+ Public cKontrahent As Integer
+ Public cOpisDok As Integer
+ Public cDokKor As Integer
+ End Structure
+
+ Private SpFlag, ZakFlag, WewFlag As Integer
+ Private RM, Rok, Mies As Integer
+ Private SrcConn_str, DstConn_str As String
+ Private KD As DokKolumny
+
+ '----------------------------------------------------------
+ Private Const INT_lens As Integer = 1
+ Private p() As Integer = {2, 4, 7, 9, 3, INT_lens}
+
+ Public Function Encrypt(ByVal inputstr As String) As String
+ Dim str As StringBuilder
+ Dim b As Integer = 6
+ Dim i, j, k, c, cc, bb, lens As Integer
+
+ If inputstr > "" Then
+ str = New StringBuilder(inputstr)
+ lens = str.Length
+ While (lens < b) OrElse (lens Mod b)
+ str.Append(” “)
+ lens += INT_lens
+ End While
+ cc = (lens / b) - INT_lens
+ For i = 0 To cc
+ bb = b - INT_lens
+ For j = 0 To bb
+ k = p(j) + 100
+ c = (6 * i + j)
+ str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) + k), c, INT_lens)
+ Next
+ Next
+ Return str.ToString
+ Else
+ Return ""
+ End If
+ str = Nothing
+ End Function
+
+ Public Function Decrypt(ByVal inputstr As String) As String
+ Dim str As StringBuilder
+ Dim b As Integer = 6
+ Dim i, j, k, c, c1, cc, bb, lens As Integer
+
+ If inputstr > "" Then
+
+ str = New StringBuilder(inputstr)
+ lens = str.Length
+ While (lens < b) OrElse (lens Mod b)
+ str.Append(” “)
+ lens += INT_lens
+ End While
+
+ cc = (lens / b) - INT_lens
+ For i = 0 To cc
+ bb = b - INT_lens
+ For j = 0 To bb
+ k = p(j) + 100
+ c = (6 * i + j)
+ c1 = Asc(str.Chars(c))
+ c1 -= k
+ str.Replace(str.Chars(c), Chr(c1), c, INT_lens)
+ Next j
+ Next i
+ Return str.ToString
+ Else
+ Return ""
+ End If
+ str = Nothing
+ End Function
+
+ Private Function zrob_polaczenie(srv As String, baza As String, user As String, pass As String)
+ Dim cnstr As String
+
+ cnstr = "Data Source=" + srv + ";Initial Catalog=" + baza
+ cnstr += ";Persist Security Info=false;User ID=" + Decrypt(user).Trim + ";Password=" + Decrypt(pass).Trim
+ Return (cnstr)
+ End Function
+
+ Private Function PolaczBaze() As Boolean
+ Dim B1, conn, pp, K1 As String
+ Dim ret As Boolean = False
+
+ lbUwaga.Text = "Czekaj: Logowanie do ERPXL"
+ lbUwaga.Visible = True
+ lbUwaga.BringToFront()
+ lbUwaga.Refresh()
+
+ If Strings.Left(UCase(My.Settings.BazaDst), 6) = "CDNXL_" Or Strings.Left(UCase(My.Settings.BazaDst), 6) = "ERPXL_" Then
+ B1 = Mid(My.Settings.BazaDst, 7)
+ Else
+ B1 = My.Settings.BazaDst
+ End If
+ K1 = My.Settings.SerwerKlucza
+ If Not Zalogowany Then listuj(" Logowanie do ERP XL - proszę czekać...")
+ ret = Zaloguj(B1, "", "", K1)
+ If ret Then
+ listuj(" sprawdzanie dostępności licencji...")
+ ret = XLSprawdzLicencje()
+ If ret Then
+ listuj(" Zalogowano pomyslnie do ERP XL")
+ conn = FunkcjeXL.Polaczenie() 'string połączenia wyznaczony przez API
+ pp = InStr(conn, "SERVER=")
+ conn = Mid(conn, pp)
+ DstConn_str = conn
+ ret = True
+ Else
+ listuj("!! Nie udało się pobrać licencji stanowiskowej ERP XL.")
+ Wyloguj()
+ End If
+ Else
+ listuj("!! Nie udało się zalogować. Proszę uruchomić aplikację ERP XL !!")
+ End If
+ If Not ret Then
+ TcZakladki.SelectedTab = TpList
+ TpList.Select()
+ End If
+ lbUwaga.Text = "Czekaj: pobieranie danych"
+ lbUwaga.Visible = False
+ lbUwaga.Invalidate()
+ Return ret
+ End Function
+
+ '----------------------------------------------------------
+
+ Public Sub UstawKolumny()
+ With KD
+ .cLp = DgvDokumenty.CurrentRow.Cells("colLp").ColumnIndex
+ .cDokument = DgvDokumenty.CurrentRow.Cells("colDokument").ColumnIndex
+ .cDokZr = DgvDokumenty.CurrentRow.Cells("colDokZr").ColumnIndex
+ .cDZKOpis = DgvDokumenty.CurrentRow.Cells("colDZKOpis").ColumnIndex
+ .cDataWyst = DgvDokumenty.CurrentRow.Cells("colDataWyst").ColumnIndex
+ .cDataOper = DgvDokumenty.CurrentRow.Cells("colDataOper").ColumnIndex
+ .cSumaCT = DgvDokumenty.CurrentRow.Cells("colSumaCT").ColumnIndex
+ .cSumaDT = DgvDokumenty.CurrentRow.Cells("colSumaDT").ColumnIndex
+ .cDZKDziennik = DgvDokumenty.CurrentRow.Cells("colDZKDziennik").ColumnIndex
+ .cDekret = DgvDokumenty.CurrentRow.Cells("colDekret").ColumnIndex
+ .cRokMiesiac = DgvDokumenty.CurrentRow.Cells("colRokMiesiac").ColumnIndex
+ .cDataImp = DgvDokumenty.CurrentRow.Cells("colDataImportu").ColumnIndex
+ .cMagazyn = DgvDokumenty.CurrentRow.Cells("colMagazyn").ColumnIndex
+ .cKontrahent = DgvDokumenty.CurrentRow.Cells("colKontrahent").ColumnIndex
+ .cOpisDok = DgvDokumenty.CurrentRow.Cells("colOpisDok").ColumnIndex
+ .cDokKor = DgvDokumenty.CurrentRow.Cells("colDokKoryg").ColumnIndex
+ End With
+ End Sub
+
+ Private Sub CbWewn_CheckedChanged(sender As Object, e As EventArgs) Handles CbWewn.CheckedChanged
+ If CbWewn.Checked Then
+ WewFlag = 1
+ Else
+ WewFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub BtOdswiez_Click(sender As Object, e As EventArgs) Handles BtOdswiez.Click
+ OdswiezDane()
+ End Sub
+
+ Private Sub CbZakup_CheckedChanged(sender As Object, e As EventArgs) Handles CbZakup.CheckedChanged
+ If CbZakup.Checked Then
+ ZakFlag = 1
+ Else
+ ZakFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub edRok_ValueChanged(sender As Object, e As EventArgs) Handles edRok.ValueChanged
+ If IsNumeric(edRok.Value) Then
+ Rok = edRok.Value
+ OdswiezDane()
+ End If
+ End Sub
+
+ Private Sub CbMiesiac_TextChanged(sender As Object, e As EventArgs) Handles CbMiesiac.TextChanged
+ Mies = CbMiesiac.Items.IndexOf(CbMiesiac.Text) + 1
+ OdswiezDane()
+ End Sub
+
+ Private Sub DgvDokumenty_KeyPress(sender As Object, e As KeyPressEventArgs) 'Handles DgvDokumenty.KeyPress
+ Dim wiersz As DataGridViewRow
+ Dim check As Boolean
+ Dim colWybrany, colData, kk As Integer
+
+ Select Case e.KeyChar
+ Case " "
+ kk = 0
+ colWybrany = DgvDokumenty.CurrentRow.Cells("Wybrany").ColumnIndex
+ colData = DgvDokumenty.CurrentRow.Cells("colDataImportu").ColumnIndex
+ For Each wiersz In DgvDokumenty.SelectedRows
+ If wiersz.Cells(colData).Value <= "1990-01-01 00:00:00" Then
+ check = wiersz.Cells(colWybrany).Value
+ wiersz.Cells(colWybrany).Value = Not check
+ If (kk Mod 10) = 0 Then Application.DoEvents()
+ End If
+ kk += 1
+ Next
+ End Select
+ End Sub
+
+ Private Sub CbSprzedaz_CheckedChanged(sender As Object, e As EventArgs) Handles CbSprzedaz.CheckedChanged
+ If CbSprzedaz.Checked Then
+ SpFlag = 1
+ Else
+ SpFlag = 0
+ End If
+ OdswiezDane()
+ End Sub
+
+ Private Sub DgvDokumenty_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DgvDokumenty.RowPostPaint
+ If Not DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value Is DBNull.Value Then
+ If CStr(DgvDokumenty.Rows(e.RowIndex).Cells("colDataImportu").Value) > "1990-01-01" Then DgvDokumenty.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
+ End If
+ End Sub
+
+ Private Sub BtImport_Click(sender As Object, e As EventArgs) Handles BtImport.Click
+ Dim DoImportu As New List(Of DataGridViewRow) 'kopia zaznaczonych do importu dokumentów
+ Dim Aktwiersz As DataGridViewRow
+ Dim AktualnyDokument As String = ""
+ Dim ret, Nr_ZapisuSrc As Integer
+ Dim sql, ss, tresc, nrdok, s1, s2 As String
+
+ If DgvDokumenty.Rows.Count > 0 Then
+ If System.Windows.Forms.MessageBox.Show("Czy zaimportować zaznaczone dokumenty ?", "", MessageBoxButtons.YesNo) = DialogResult.No Then
+ Return
+ End If
+
+ DoImportu.Clear()
+ UstawKolumny() 'powiązanie nazw kolumn z ich indeksem
+ For Each wiersz In DgvDokumenty.SelectedRows 'zrób kopię zaznaczonych na niebiesko dokumentów
+ Dim targetRow = CType(wiersz.Clone(), DataGridViewRow)
+ For Each cell As DataGridViewCell In wiersz.Cells
+ targetRow.Cells(cell.ColumnIndex).Value = cell.Value
+ Next
+ DoImportu.Add(targetRow)
+ Next
+ 'zaloguj do XL
+ listuj("Start importu: " + Now)
+ ret = PolaczBaze()
+ If ret Then
+ DgvDokumenty.CurrentCell = DgvDokumenty(0, 0)
+ Aktwiersz = DgvDokumenty.CurrentRow
+ For Each wiersz In DoImportu
+ Aktwiersz = wiersz
+ DgvDokumenty.CurrentCell = DgvDokumenty(0, wiersz.Cells.Item(0).Value - 1) 'pokaż aktualnie przetwarzany wiersz
+ If wiersz.Cells.Item(KD.cDataImp).Value <= "1990-01-01 00:00:00" Then 'dekret nie zaimportowany
+ AktualnyDokument = wiersz.Cells.Item(KD.cDokument).Value 'Nowa nota memoriałowa - numer dokumentu w Jastrzębiu
+ Nr_ZapisuSrc = wiersz.Cells.Item(KD.cDekret).Value 'Dekret (DZK_GIDNumer) źródłowy
+ tresc = ""
+ s1 = AktualnyDokument.Substring(0, 2)
+ If s1 = "PZ" Or s1 = "WZ" Or s1 = "KK" Or s1 = "PK" Or s1 = "WK" Then
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cKontrahent).Value), "", wiersz.Cells.Item(KD.cKontrahent).Value)
+ If ss > "" Then tresc = tresc + "Kontr.:" + ss
+ End If
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cOpisDok).Value), "", wiersz.Cells.Item(KD.cOpisDok).Value)
+ If ss > "" Then
+ If tresc > "" Then tresc += "; " + ss Else tresc = ss
+ End If
+ nrdok = ""
+ s1 = AktualnyDokument.Substring(0, 3)
+ If s1 = "PZK" Or s1 = "PKI" Or s1 = "WZK" Or s1 = "WKE" Or s1 = "RWK" Or s1 = "PWK" Then
+ nrdok = AktualnyDokument + ", " + IIf(IsNothing(wiersz.Cells.Item(KD.cDokKor).Value), "", wiersz.Cells.Item(KD.cDokKor).Value)
+ Else
+ nrdok = AktualnyDokument
+ End If
+ If UtworzNote(nrdok, wiersz.Cells.Item(KD.cDataWyst).Value, '"Data Wystawienia"
+ wiersz.Cells.Item(KD.cDataWyst).Value, 'wszytskie daty takie same
+ wiersz.Cells.Item(KD.cDokZr).Value, '"Dokument źródłowy"
+ tresc) Then '"treśc noty"
+ ss = IIf(IsNothing(wiersz.Cells.Item(KD.cDZKOpis).Value), "", wiersz.Cells.Item(KD.cDZKOpis).Value)
+ If DodajPozycjeNoty(Nr_ZapisuSrc, wiersz.Cells.Item(KD.cDataWyst).Value,
+ wiersz.Cells.Item(KD.cDataWyst).Value,
+ ss, nrdok) Then 'dodajpozycje noty
+ ZamknijNote(True) 'zamknij notę
+ 'oznacz dokument jako zaimportowany
+ sql = "update CDN.Dekrety Set DT_DataCentrali = datediff(s,'19900101', GetDate()) where DT_GIDNUmer = " & Str(Nr_ZapisuSrc)
+ SqlCmd(sql, SrcConn_str)
+ AktualnyDokument = ""
+ sql = "update CDN.MemNag set MEN_CechaOpis = '" + IIf(IsNothing(wiersz.Cells.Item(KD.cMagazyn).Value), "", wiersz.Cells.Item(KD.cMagazyn).Value) + "' "
+ sql += " where MEN_GIDNumer = " + CStr(GIDNumer)
+ SqlCmd(sql, DstConn_str)
+ Else
+ ZamknijNote(False) 'usuń utworzoną notę
+ AktualnyDokument = ""
+ End If
+ End If
+ Else
+ listuj(CStr(Now) & "-> Dokument: " & wiersz.Cells.Item(2).Value & " już jest zaimportowany !!")
+ End If
+ Next
+ End If
+ Tylko_Listing = False
+ OdswiezDane()
+ TcZakladki.SelectedTab = TpList
+ TpList.Select()
+ End If
+ End Sub
+
+ Private Sub BtKonfig_Click(sender As Object, e As EventArgs) Handles BtKonfig.Click
+ dlgKonfig.ShowDialog()
+ End Sub
+
+ Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
+ Dim plik As String
+
+ Timer.Stop()
+ Try
+ plik = My.Settings.FolderR_Roboczy + "\ImportDM-" + Replace(Replace(Replace(Now, ":", "."), "/", "."), " ", "_") + ".LOG"
+ f_out = System.IO.File.CreateText(plik)
+ Tylko_Listing = False
+ Catch
+ Tylko_Listing = True
+ End Try
+ Timer.Enabled = False
+ Application.DoEvents()
+ If My.Settings.SerwerKlucza > "" And My.Settings.BazaDst > "" Then PolaczBaze()
+ If Zalogowany Then OdswiezDane()
+ End Sub
+
+ Private Sub BtUsunFlage_Click(sender As Object, e As EventArgs) Handles BtUsunFlage.Click
+ If DgvDokumenty.Rows.Count > 0 Then
+ If System.Windows.Forms.MessageBox.Show("Czy usunąć flagę z zaznaczonych dokumentów ?", "", MessageBoxButtons.YesNo) = DialogResult.Yes Then
+ Dim sql As String
+ Dim col As Integer
+
+ col = DgvDokumenty.Columns("colDekret").Index
+ For Each wiersz In DgvDokumenty.SelectedRows
+ sql = "update CDN.Dekrety set DT_DataCentrali = 0 where DT_GIDNUmer = " & Str(wiersz.Cells(col).Value)
+ SqlCmd(sql, SrcConn_str)
+ Next
+ OdswiezDane()
+ End If
+ End If
+ End Sub
+
+ Private Sub BtKoniec_Click(sender As Object, e As EventArgs) Handles BtKoniec.Click
+ Wyloguj()
+ If Not IsNothing(f_out) Then
+ f_out.Flush()
+ f_out.Close()
+ End If
+ Close()
+ End Sub
+
+ Private Sub OdswiezDane()
+ RM = CInt(CStr(Rok) & IIf(Mies < 10, "0", "") & CStr(Mies))
+ SrcConn_str = zrob_polaczenie(My.Settings.SerwerSrc, My.Settings.BazaSrc, My.Settings.MCsrc, My.Settings.Comsrc)
+ Tamy_ImpDM_Src.Connection.ConnectionString = SrcConn_str
+ Tamy_ImpDM_Dekr.Connection.ConnectionString = SrcConn_str
+ If RM < 200001 Or Mies <= 0 Then Return
+ Try
+ lbUwaga.Visible = True
+ lbUwaga.BringToFront()
+ lbUwaga.Refresh()
+ Tamy_ImpDM_Src.Fill(Me.DsMain.Tbmy_ImpDM_Src, SpFlag, ZakFlag, WewFlag, RM, Rok, Mies)
+ lbUwaga.Visible = False
+ lbUwaga.Invalidate()
+ Catch ex As System.Exception
+ lbUwaga.Visible = False
+ lbUwaga.Refresh()
+ System.Windows.Forms.MessageBox.Show(ex.Message)
+ End Try
+ End Sub
+
+ Private Sub MainFrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+ Dim spr As String
+
+ SpFlag = 0
+ ZakFlag = 0
+ WewFlag = 0
+ Rok = Year(Now)
+ Mies = Month(Now)
+ edRok.Value = Rok
+ CbMiesiac.SelectedIndex = Mies - 1
+ CbMiesiac.Text = CbMiesiac.Items(CbMiesiac.SelectedIndex)
+ spr = Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper)
+ DecimalSep = NumberFormatInfo.CurrentInfo.NumberDecimalSeparator.ToString
+ DecimalGroupSep = NumberFormatInfo.CurrentInfo.NumberGroupSeparator.ToString
+ If spr <> My.Settings.check Then
+ MsgBox("Niezgodna konfiguracja. Ustaw od nowa")
+ My.Settings.SerwerSrc = ""
+ ' My.Settings.SerwerDst = ""
+ My.Settings.SerwerKlucza = ""
+ My.Settings.BazaSrc = ""
+ ' My.Settings.BazaDst = ""
+ My.Settings.FolderR_Roboczy = ""
+ My.Settings.MCsrc = ""
+ ' My.Settings.MCdst = ""
+ My.Settings.Comsrc = ""
+ ' My.Settings.Comdst = ""
+ My.Settings.check = spr
+ My.Settings.Save()
+ End If
+ Timer.Start()
+ End Sub
+
+ Public Sub listuj(ByVal linia As String)
+ If linia > "" Then
+ LstWynik.Items.Add(linia)
+
+ If Not Tylko_Listing Then
+ f_out.WriteLine(linia)
+ End If
+ If (LstWynik.Items.Count - 1) > 0 Then
+ LstWynik.TopIndex = Me.LstWynik.Items.Count - 1
+ Else
+ LstWynik.TopIndex = 0
+ End If
+ Application.DoEvents()
+ End If
+ End Sub
+
+ Public Function SqlCmd(ByVal sql As String, conn_str As String) As Boolean
+ Dim wynik As Boolean
+
+ wynik = False
+ Try
+ Using connection As New SqlClient.SqlConnection(conn_str)
+ Dim command As New SqlClient.SqlCommand(sql, connection)
+ connection.Open()
+ command.ExecuteNonQuery()
+ wynik = True
+ End Using
+ Catch ex As Exception
+ My.Forms.MainFrm.listuj(ex.Message)
+ End Try
+ Return (wynik)
+ End Function
+
+ Public Function GetOneVal(ByVal sql As String, conn_str As String) As String
+ Dim val As String
+
+ val = ""
+ Try
+ Using connection As New SqlClient.SqlConnection(conn_str)
+ Dim command As New SqlClient.SqlCommand(sql, connection)
+ connection.Open()
+ Dim reader As SqlClient.SqlDataReader = command.ExecuteReader()
+ While reader.Read()
+ If reader.IsDBNull(0) Then
+ val = ""
+ Else
+ val = CType(reader, IDataRecord)(0)
+ End If
+ End While
+ reader.Close()
+ End Using
+ Catch ex As Exception
+ My.Forms.MainFrm.listuj(ex.Message)
+ End Try
+ GetOneVal = val
+ End Function
+
+End Class
diff --git a/.svn/pristine/46/468b30f71189e5498d98dcc79ba9aeb17251f2ea.svn-base b/.svn/pristine/46/468b30f71189e5498d98dcc79ba9aeb17251f2ea.svn-base
new file mode 100644
index 0000000..24fc67a
--- /dev/null
+++ b/.svn/pristine/46/468b30f71189e5498d98dcc79ba9aeb17251f2ea.svn-base
@@ -0,0 +1,710 @@
+
+Partial Class MainFrm
+ Inherits System.Windows.Forms.Form
+
+ 'Formularz przesłania metodę dispose, aby wyczyścić listę składników.
+
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wymagane przez Projektanta formularzy systemu Windows
+ Private components As System.ComponentModel.IContainer
+
+ 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows
+ 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows.
+ 'Nie należy modyfikować za pomocą edytora kodu.
+
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainFrm))
+ Me.TlMainPanel = New System.Windows.Forms.TableLayoutPanel()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.GbRadio = New System.Windows.Forms.GroupBox()
+ Me.RbAll = New System.Windows.Forms.RadioButton()
+ Me.RbBlack = New System.Windows.Forms.RadioButton()
+ Me.RbRed = New System.Windows.Forms.RadioButton()
+ Me.CbWewn = New System.Windows.Forms.CheckBox()
+ Me.CbZakup = New System.Windows.Forms.CheckBox()
+ Me.CbSprzedaz = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.CbKonto = New System.Windows.Forms.ComboBox()
+ Me.BsTbmyImpDMKonta = New System.Windows.Forms.BindingSource(Me.components)
+ Me.DsMain = New ImportDokMag.DsMain()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.edRok = New System.Windows.Forms.NumericUpDown()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.CbMiesiac = New System.Windows.Forms.ComboBox()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.BtImport = New System.Windows.Forms.Button()
+ Me.lbUwaga = New System.Windows.Forms.Button()
+ Me.BtKonfig = New System.Windows.Forms.Button()
+ Me.BtUsunFlage = New System.Windows.Forms.Button()
+ Me.BtKoniec = New System.Windows.Forms.Button()
+ Me.BtOdswiez = New System.Windows.Forms.Button()
+ Me.TcZakladki = New System.Windows.Forms.TabControl()
+ Me.TpDocs = New System.Windows.Forms.TabPage()
+ Me.DgvDokumenty = New System.Windows.Forms.DataGridView()
+ Me.colLp = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokument = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokZr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKOpis = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataWyst = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataOper = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaCT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaDT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKDziennik = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDekret = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colRokMiesiac = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataImportu = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colMagazyn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colKontrahent = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colOpisDok = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokKoryg = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.BsTbmy_ImpDM_Src = New System.Windows.Forms.BindingSource(Me.components)
+ Me.TpList = New System.Windows.Forms.TabPage()
+ Me.LstWynik = New System.Windows.Forms.ListBox()
+ Me.Timer = New System.Windows.Forms.Timer(Me.components)
+ Me.Tamy_ImpDM_Src = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Src()
+ Me.TableAdapterManager = New ImportDokMag.DsMainTableAdapters.TableAdapterManager()
+ Me.BsTbmy_ImpDM_Dekr = New System.Windows.Forms.BindingSource(Me.components)
+ Me.Tamy_ImpDM_Dekr = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Dekr()
+ Me.Tamy_ImpDM_Konta = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Konta()
+ Me.TlMainPanel.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.GbRadio.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ CType(Me.BsTbmyImpDMKonta, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.TcZakladki.SuspendLayout()
+ Me.TpDocs.SuspendLayout()
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TpList.SuspendLayout()
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'TlMainPanel
+ '
+ Me.TlMainPanel.ColumnCount = 2
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 150.0!))
+ Me.TlMainPanel.Controls.Add(Me.Panel1, 0, 0)
+ Me.TlMainPanel.Controls.Add(Me.Panel2, 0, 2)
+ Me.TlMainPanel.Controls.Add(Me.TableLayoutPanel1, 1, 1)
+ Me.TlMainPanel.Controls.Add(Me.BtKoniec, 1, 2)
+ Me.TlMainPanel.Controls.Add(Me.BtOdswiez, 1, 0)
+ Me.TlMainPanel.Controls.Add(Me.TcZakladki, 0, 1)
+ Me.TlMainPanel.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TlMainPanel.Location = New System.Drawing.Point(3, 3)
+ Me.TlMainPanel.Name = "TlMainPanel"
+ Me.TlMainPanel.RowCount = 3
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 7.102805!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 92.89719!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 65.0!))
+ Me.TlMainPanel.Size = New System.Drawing.Size(774, 651)
+ Me.TlMainPanel.TabIndex = 0
+ '
+ 'Panel1
+ '
+ Me.Panel1.Controls.Add(Me.GbRadio)
+ Me.Panel1.Controls.Add(Me.CbWewn)
+ Me.Panel1.Controls.Add(Me.CbZakup)
+ Me.Panel1.Controls.Add(Me.CbSprzedaz)
+ Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(618, 35)
+ Me.Panel1.TabIndex = 1
+ '
+ 'GbRadio
+ '
+ Me.GbRadio.Controls.Add(Me.RbAll)
+ Me.GbRadio.Controls.Add(Me.RbBlack)
+ Me.GbRadio.Controls.Add(Me.RbRed)
+ Me.GbRadio.Dock = System.Windows.Forms.DockStyle.Right
+ Me.GbRadio.Location = New System.Drawing.Point(241, 0)
+ Me.GbRadio.Name = "GbRadio"
+ Me.GbRadio.Size = New System.Drawing.Size(377, 35)
+ Me.GbRadio.TabIndex = 3
+ Me.GbRadio.TabStop = False
+ '
+ 'RbAll
+ '
+ Me.RbAll.AutoSize = True
+ Me.RbAll.Location = New System.Drawing.Point(297, 9)
+ Me.RbAll.Name = "RbAll"
+ Me.RbAll.Size = New System.Drawing.Size(73, 17)
+ Me.RbAll.TabIndex = 2
+ Me.RbAll.TabStop = True
+ Me.RbAll.Text = "Wszystkie"
+ Me.RbAll.UseVisualStyleBackColor = True
+ '
+ 'RbBlack
+ '
+ Me.RbBlack.AutoSize = True
+ Me.RbBlack.Location = New System.Drawing.Point(164, 9)
+ Me.RbBlack.Name = "RbBlack"
+ Me.RbBlack.Size = New System.Drawing.Size(101, 17)
+ Me.RbBlack.TabIndex = 1
+ Me.RbBlack.TabStop = True
+ Me.RbBlack.Text = "Nieimportowane"
+ Me.RbBlack.UseVisualStyleBackColor = True
+ '
+ 'RbRed
+ '
+ Me.RbRed.AutoSize = True
+ Me.RbRed.Location = New System.Drawing.Point(34, 9)
+ Me.RbRed.Name = "RbRed"
+ Me.RbRed.Size = New System.Drawing.Size(98, 17)
+ Me.RbRed.TabIndex = 0
+ Me.RbRed.TabStop = True
+ Me.RbRed.Text = "Zaimportowane"
+ Me.RbRed.UseVisualStyleBackColor = True
+ '
+ 'CbWewn
+ '
+ Me.CbWewn.AutoSize = True
+ Me.CbWewn.Location = New System.Drawing.Point(146, 9)
+ Me.CbWewn.Name = "CbWewn"
+ Me.CbWewn.Size = New System.Drawing.Size(86, 17)
+ Me.CbWewn.TabIndex = 2
+ Me.CbWewn.Text = "Wewnętrzne"
+ Me.CbWewn.UseVisualStyleBackColor = True
+ '
+ 'CbZakup
+ '
+ Me.CbZakup.AutoSize = True
+ Me.CbZakup.Location = New System.Drawing.Point(83, 9)
+ Me.CbZakup.Name = "CbZakup"
+ Me.CbZakup.Size = New System.Drawing.Size(57, 17)
+ Me.CbZakup.TabIndex = 1
+ Me.CbZakup.Text = "Zakup"
+ Me.CbZakup.UseVisualStyleBackColor = True
+ '
+ 'CbSprzedaz
+ '
+ Me.CbSprzedaz.AutoSize = True
+ Me.CbSprzedaz.Location = New System.Drawing.Point(7, 9)
+ Me.CbSprzedaz.Name = "CbSprzedaz"
+ Me.CbSprzedaz.Size = New System.Drawing.Size(70, 17)
+ Me.CbSprzedaz.TabIndex = 0
+ Me.CbSprzedaz.Text = "Sprzedaż"
+ Me.CbSprzedaz.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Controls.Add(Me.CbKonto)
+ Me.Panel2.Controls.Add(Me.Label3)
+ Me.Panel2.Controls.Add(Me.edRok)
+ Me.Panel2.Controls.Add(Me.Label2)
+ Me.Panel2.Controls.Add(Me.Label1)
+ Me.Panel2.Controls.Add(Me.CbMiesiac)
+ Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel2.Location = New System.Drawing.Point(3, 588)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(618, 60)
+ Me.Panel2.TabIndex = 2
+ '
+ 'CbKonto
+ '
+ Me.CbKonto.DataSource = Me.BsTbmyImpDMKonta
+ Me.CbKonto.DisplayMember = "Konto"
+ Me.CbKonto.FormattingEnabled = True
+ Me.CbKonto.Location = New System.Drawing.Point(415, 20)
+ Me.CbKonto.Name = "CbKonto"
+ Me.CbKonto.Size = New System.Drawing.Size(121, 21)
+ Me.CbKonto.TabIndex = 5
+ Me.CbKonto.ValueMember = "Konto"
+ '
+ 'BsTbmyImpDMKonta
+ '
+ Me.BsTbmyImpDMKonta.DataMember = "Tbmy_ImpDM_Konta"
+ Me.BsTbmyImpDMKonta.DataSource = Me.DsMain
+ '
+ 'DsMain
+ '
+ Me.DsMain.DataSetName = "DsMain"
+ Me.DsMain.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(366, 24)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(35, 13)
+ Me.Label3.TabIndex = 4
+ Me.Label3.Text = "Konto"
+ '
+ 'edRok
+ '
+ Me.edRok.Location = New System.Drawing.Point(37, 22)
+ Me.edRok.Maximum = New Decimal(New Integer() {3000, 0, 0, 0})
+ Me.edRok.Minimum = New Decimal(New Integer() {2000, 0, 0, 0})
+ Me.edRok.Name = "edRok"
+ Me.edRok.Size = New System.Drawing.Size(120, 20)
+ Me.edRok.TabIndex = 0
+ Me.edRok.Value = New Decimal(New Integer() {2019, 0, 0, 0})
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Location = New System.Drawing.Point(169, 24)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(43, 13)
+ Me.Label2.TabIndex = 3
+ Me.Label2.Text = "Miesiąc"
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Location = New System.Drawing.Point(4, 24)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(27, 13)
+ Me.Label1.TabIndex = 2
+ Me.Label1.Text = "Rok"
+ '
+ 'CbMiesiac
+ '
+ Me.CbMiesiac.FormattingEnabled = True
+ Me.CbMiesiac.Items.AddRange(New Object() {"styczeń", "luty", "marzec", "kwiecień", "maj", "czerwiec", "lipiec", "sierpień", "wrzesień", "październik", "listopad", "grudzień"})
+ Me.CbMiesiac.Location = New System.Drawing.Point(218, 21)
+ Me.CbMiesiac.Name = "CbMiesiac"
+ Me.CbMiesiac.Size = New System.Drawing.Size(121, 21)
+ Me.CbMiesiac.TabIndex = 1
+ Me.CbMiesiac.Text = "styczeń"
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.AutoScroll = True
+ Me.TableLayoutPanel1.ColumnCount = 3
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.BtImport, 1, 1)
+ Me.TableLayoutPanel1.Controls.Add(Me.lbUwaga, 1, 4)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtKonfig, 1, 6)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtUsunFlage, 1, 3)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(627, 44)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 8
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 22.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 42.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 60.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 57.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(144, 538)
+ Me.TableLayoutPanel1.TabIndex = 3
+ '
+ 'BtImport
+ '
+ Me.BtImport.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtImport.Location = New System.Drawing.Point(25, 23)
+ Me.BtImport.Name = "BtImport"
+ Me.BtImport.Size = New System.Drawing.Size(94, 26)
+ Me.BtImport.TabIndex = 4
+ Me.BtImport.Text = "Importuj"
+ Me.BtImport.UseVisualStyleBackColor = True
+ '
+ 'lbUwaga
+ '
+ Me.lbUwaga.BackColor = System.Drawing.Color.PaleGreen
+ Me.lbUwaga.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.lbUwaga.Enabled = False
+ Me.lbUwaga.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lbUwaga.ForeColor = System.Drawing.Color.Red
+ Me.lbUwaga.Location = New System.Drawing.Point(25, 119)
+ Me.lbUwaga.Name = "lbUwaga"
+ Me.lbUwaga.Size = New System.Drawing.Size(94, 54)
+ Me.lbUwaga.TabIndex = 5
+ Me.lbUwaga.Text = "Czekaj: pobieranie danych"
+ Me.lbUwaga.UseVisualStyleBackColor = False
+ '
+ 'BtKonfig
+ '
+ Me.BtKonfig.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtKonfig.Location = New System.Drawing.Point(25, 456)
+ Me.BtKonfig.Name = "BtKonfig"
+ Me.BtKonfig.Size = New System.Drawing.Size(94, 22)
+ Me.BtKonfig.TabIndex = 6
+ Me.BtKonfig.Text = "Konfiguracja"
+ Me.BtKonfig.UseVisualStyleBackColor = True
+ '
+ 'BtUsunFlage
+ '
+ Me.BtUsunFlage.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtUsunFlage.Location = New System.Drawing.Point(25, 77)
+ Me.BtUsunFlage.Name = "BtUsunFlage"
+ Me.BtUsunFlage.Size = New System.Drawing.Size(94, 36)
+ Me.BtUsunFlage.TabIndex = 7
+ Me.BtUsunFlage.Text = "Skasuj flagę importu"
+ Me.BtUsunFlage.UseVisualStyleBackColor = True
+ '
+ 'BtKoniec
+ '
+ Me.BtKoniec.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.BtKoniec.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.BtKoniec.Location = New System.Drawing.Point(627, 588)
+ Me.BtKoniec.Name = "BtKoniec"
+ Me.BtKoniec.Size = New System.Drawing.Size(144, 60)
+ Me.BtKoniec.TabIndex = 4
+ Me.BtKoniec.Text = "Koniec"
+ Me.BtKoniec.UseVisualStyleBackColor = True
+ '
+ 'BtOdswiez
+ '
+ Me.BtOdswiez.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtOdswiez.Location = New System.Drawing.Point(627, 3)
+ Me.BtOdswiez.Name = "BtOdswiez"
+ Me.BtOdswiez.Size = New System.Drawing.Size(144, 35)
+ Me.BtOdswiez.TabIndex = 5
+ Me.BtOdswiez.Text = "Odśwież dane"
+ Me.BtOdswiez.UseVisualStyleBackColor = True
+ '
+ 'TcZakladki
+ '
+ Me.TcZakladki.Controls.Add(Me.TpDocs)
+ Me.TcZakladki.Controls.Add(Me.TpList)
+ Me.TcZakladki.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TcZakladki.Location = New System.Drawing.Point(3, 44)
+ Me.TcZakladki.Name = "TcZakladki"
+ Me.TcZakladki.SelectedIndex = 0
+ Me.TcZakladki.Size = New System.Drawing.Size(618, 538)
+ Me.TcZakladki.TabIndex = 6
+ '
+ 'TpDocs
+ '
+ Me.TpDocs.Controls.Add(Me.DgvDokumenty)
+ Me.TpDocs.Location = New System.Drawing.Point(4, 22)
+ Me.TpDocs.Name = "TpDocs"
+ Me.TpDocs.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpDocs.Size = New System.Drawing.Size(610, 512)
+ Me.TpDocs.TabIndex = 0
+ Me.TpDocs.Text = "Dokumenty"
+ Me.TpDocs.UseVisualStyleBackColor = True
+ '
+ 'DgvDokumenty
+ '
+ Me.DgvDokumenty.AllowUserToAddRows = False
+ Me.DgvDokumenty.AllowUserToDeleteRows = False
+ Me.DgvDokumenty.AllowUserToOrderColumns = True
+ Me.DgvDokumenty.AllowUserToResizeRows = False
+ DataGridViewCellStyle1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.DgvDokumenty.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+ Me.DgvDokumenty.AutoGenerateColumns = False
+ Me.DgvDokumenty.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.DisplayedCells
+ Me.DgvDokumenty.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
+ Me.DgvDokumenty.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.DgvDokumenty.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colLp, Me.colDokument, Me.colDokZr, Me.colDZKOpis, Me.colDataWyst, Me.colDataOper, Me.colSumaCT, Me.colSumaDT, Me.colDZKDziennik, Me.colDekret, Me.colRokMiesiac, Me.colDataImportu, Me.colMagazyn, Me.colKontrahent, Me.colOpisDok, Me.colDokKoryg})
+ Me.DgvDokumenty.DataSource = Me.BsTbmy_ImpDM_Src
+ Me.DgvDokumenty.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.DgvDokumenty.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically
+ Me.DgvDokumenty.Location = New System.Drawing.Point(3, 3)
+ Me.DgvDokumenty.Name = "DgvDokumenty"
+ Me.DgvDokumenty.ReadOnly = True
+ Me.DgvDokumenty.RowHeadersVisible = False
+ Me.DgvDokumenty.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+ Me.DgvDokumenty.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.DgvDokumenty.ShowEditingIcon = False
+ Me.DgvDokumenty.Size = New System.Drawing.Size(604, 506)
+ Me.DgvDokumenty.TabIndex = 0
+ '
+ 'colLp
+ '
+ Me.colLp.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colLp.DataPropertyName = "Lp"
+ Me.colLp.HeaderText = "Lp"
+ Me.colLp.Name = "colLp"
+ Me.colLp.ReadOnly = True
+ Me.colLp.Width = 44
+ '
+ 'colDokument
+ '
+ Me.colDokument.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokument.DataPropertyName = "Dokument"
+ Me.colDokument.HeaderText = "Dokument"
+ Me.colDokument.Name = "colDokument"
+ Me.colDokument.ReadOnly = True
+ Me.colDokument.Width = 81
+ '
+ 'colDokZr
+ '
+ Me.colDokZr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokZr.DataPropertyName = "DokZr"
+ Me.colDokZr.HeaderText = "Dok. żródłowy"
+ Me.colDokZr.Name = "colDokZr"
+ Me.colDokZr.ReadOnly = True
+ Me.colDokZr.Width = 101
+ '
+ 'colDZKOpis
+ '
+ Me.colDZKOpis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDZKOpis.DataPropertyName = "DZK_Opis"
+ Me.colDZKOpis.HeaderText = "Opis dziennika"
+ Me.colDZKOpis.Name = "colDZKOpis"
+ Me.colDZKOpis.ReadOnly = True
+ Me.colDZKOpis.Width = 53
+ '
+ 'colDataWyst
+ '
+ Me.colDataWyst.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataWyst.DataPropertyName = "DataWyst"
+ Me.colDataWyst.HeaderText = "Data"
+ Me.colDataWyst.Name = "colDataWyst"
+ Me.colDataWyst.ReadOnly = True
+ Me.colDataWyst.Width = 55
+ '
+ 'colDataOper
+ '
+ Me.colDataOper.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataOper.DataPropertyName = "DataOper"
+ Me.colDataOper.HeaderText = "Data dokumentu"
+ Me.colDataOper.Name = "colDataOper"
+ Me.colDataOper.ReadOnly = True
+ Me.colDataOper.Width = 102
+ '
+ 'colSumaCT
+ '
+ Me.colSumaCT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colSumaCT.DataPropertyName = "SumaCT"
+ Me.colSumaCT.HeaderText = "Suma Ma"
+ Me.colSumaCT.Name = "colSumaCT"
+ Me.colSumaCT.ReadOnly = True
+ Me.colSumaCT.Width = 71
+ '
+ 'colSumaDT
+ '
+ Me.colSumaDT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colSumaDT.DataPropertyName = "SumaDT"
+ Me.colSumaDT.HeaderText = "Suma Winien"
+ Me.colSumaDT.Name = "colSumaDT"
+ Me.colSumaDT.ReadOnly = True
+ Me.colSumaDT.Width = 87
+ '
+ 'colDZKDziennik
+ '
+ Me.colDZKDziennik.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDZKDziennik.DataPropertyName = "DZK_Dziennik"
+ Me.colDZKDziennik.HeaderText = "Dziennik"
+ Me.colDZKDziennik.Name = "colDZKDziennik"
+ Me.colDZKDziennik.ReadOnly = True
+ Me.colDZKDziennik.Visible = False
+ Me.colDZKDziennik.Width = 73
+ '
+ 'colDekret
+ '
+ Me.colDekret.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDekret.DataPropertyName = "Dekret"
+ Me.colDekret.HeaderText = "Dekret"
+ Me.colDekret.Name = "colDekret"
+ Me.colDekret.ReadOnly = True
+ Me.colDekret.Visible = False
+ Me.colDekret.Width = 64
+ '
+ 'colRokMiesiac
+ '
+ Me.colRokMiesiac.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colRokMiesiac.DataPropertyName = "RokMiesiac"
+ Me.colRokMiesiac.HeaderText = "RokMiesiac"
+ Me.colRokMiesiac.Name = "colRokMiesiac"
+ Me.colRokMiesiac.ReadOnly = True
+ Me.colRokMiesiac.Visible = False
+ Me.colRokMiesiac.Width = 88
+ '
+ 'colDataImportu
+ '
+ Me.colDataImportu.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataImportu.DataPropertyName = "DataImportu"
+ Me.colDataImportu.HeaderText = "Data importu"
+ Me.colDataImportu.Name = "colDataImportu"
+ Me.colDataImportu.ReadOnly = True
+ Me.colDataImportu.Width = 85
+ '
+ 'colMagazyn
+ '
+ Me.colMagazyn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colMagazyn.DataPropertyName = "Magazyn"
+ Me.colMagazyn.HeaderText = "Magazyn"
+ Me.colMagazyn.Name = "colMagazyn"
+ Me.colMagazyn.ReadOnly = True
+ '
+ 'colKontrahent
+ '
+ Me.colKontrahent.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colKontrahent.DataPropertyName = "Kontrahent"
+ Me.colKontrahent.HeaderText = "Kontrahent"
+ Me.colKontrahent.Name = "colKontrahent"
+ Me.colKontrahent.ReadOnly = True
+ '
+ 'colOpisDok
+ '
+ Me.colOpisDok.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colOpisDok.DataPropertyName = "Opis"
+ Me.colOpisDok.HeaderText = "Opis dokumentu"
+ Me.colOpisDok.Name = "colOpisDok"
+ Me.colOpisDok.ReadOnly = True
+ '
+ 'colDokKoryg
+ '
+ Me.colDokKoryg.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokKoryg.DataPropertyName = "DokKoryg"
+ Me.colDokKoryg.HeaderText = "DokKoryg"
+ Me.colDokKoryg.Name = "colDokKoryg"
+ Me.colDokKoryg.ReadOnly = True
+ '
+ 'BsTbmy_ImpDM_Src
+ '
+ Me.BsTbmy_ImpDM_Src.DataMember = "Tbmy_ImpDM_Src"
+ Me.BsTbmy_ImpDM_Src.DataSource = Me.DsMain
+ '
+ 'TpList
+ '
+ Me.TpList.Controls.Add(Me.LstWynik)
+ Me.TpList.Location = New System.Drawing.Point(4, 22)
+ Me.TpList.Name = "TpList"
+ Me.TpList.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpList.Size = New System.Drawing.Size(610, 512)
+ Me.TpList.TabIndex = 1
+ Me.TpList.Text = "Przebieg pracy"
+ Me.TpList.UseVisualStyleBackColor = True
+ '
+ 'LstWynik
+ '
+ Me.LstWynik.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.LstWynik.FormattingEnabled = True
+ Me.LstWynik.Location = New System.Drawing.Point(3, 3)
+ Me.LstWynik.Name = "LstWynik"
+ Me.LstWynik.Size = New System.Drawing.Size(604, 506)
+ Me.LstWynik.TabIndex = 0
+ '
+ 'Timer
+ '
+ Me.Timer.Interval = 200
+ '
+ 'Tamy_ImpDM_Src
+ '
+ Me.Tamy_ImpDM_Src.ClearBeforeFill = True
+ '
+ 'TableAdapterManager
+ '
+ Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+ Me.TableAdapterManager.Connection = Nothing
+ Me.TableAdapterManager.UpdateOrder = ImportDokMag.DsMainTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+ '
+ 'BsTbmy_ImpDM_Dekr
+ '
+ Me.BsTbmy_ImpDM_Dekr.DataMember = "Tbmy_ImpDM_Dekr"
+ Me.BsTbmy_ImpDM_Dekr.DataSource = Me.DsMain
+ '
+ 'Tamy_ImpDM_Dekr
+ '
+ Me.Tamy_ImpDM_Dekr.ClearBeforeFill = True
+ '
+ 'Tamy_ImpDM_Konta
+ '
+ Me.Tamy_ImpDM_Konta.ClearBeforeFill = True
+ '
+ 'MainFrm
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
+ Me.CancelButton = Me.BtKoniec
+ Me.ClientSize = New System.Drawing.Size(780, 657)
+ Me.Controls.Add(Me.TlMainPanel)
+ Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+ Me.MinimumSize = New System.Drawing.Size(796, 696)
+ Me.Name = "MainFrm"
+ Me.Padding = New System.Windows.Forms.Padding(3)
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "Import dokumentów magazynowych 1.4.1 z 15.01.2020"
+ Me.TlMainPanel.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.GbRadio.ResumeLayout(False)
+ Me.GbRadio.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ CType(Me.BsTbmyImpDMKonta, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TcZakladki.ResumeLayout(False)
+ Me.TpDocs.ResumeLayout(False)
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TpList.ResumeLayout(False)
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+
+ Friend WithEvents TlMainPanel As TableLayoutPanel
+ Friend WithEvents DgvDokumenty As DataGridView
+ Friend WithEvents Panel1 As Panel
+ Friend WithEvents CbWewn As CheckBox
+ Friend WithEvents CbZakup As CheckBox
+ Friend WithEvents CbSprzedaz As CheckBox
+ Friend WithEvents Panel2 As Panel
+ Friend WithEvents edRok As NumericUpDown
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label1 As Label
+ Friend WithEvents CbMiesiac As ComboBox
+ Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+ Friend WithEvents BtImport As Button
+ Friend WithEvents BtKoniec As Button
+ Friend WithEvents BtOdswiez As Button
+ Friend WithEvents DsMain As DsMain
+ Friend WithEvents BsTbmy_ImpDM_Src As BindingSource
+ Friend WithEvents Tamy_ImpDM_Src As DsMainTableAdapters.Tamy_ImpDM_Src
+ Friend WithEvents TableAdapterManager As DsMainTableAdapters.TableAdapterManager
+ Friend WithEvents lbUwaga As Button
+ Friend WithEvents TcZakladki As TabControl
+ Friend WithEvents TpDocs As TabPage
+ Friend WithEvents TpList As TabPage
+ Friend WithEvents LstWynik As ListBox
+ Friend WithEvents BtKonfig As Button
+ Friend WithEvents Timer As Timer
+ Friend WithEvents BsTbmy_ImpDM_Dekr As BindingSource
+ Friend WithEvents Tamy_ImpDM_Dekr As DsMainTableAdapters.Tamy_ImpDM_Dekr
+ Friend WithEvents BtUsunFlage As Button
+ Friend WithEvents colLp As DataGridViewTextBoxColumn
+ Friend WithEvents colDokument As DataGridViewTextBoxColumn
+ Friend WithEvents colDokZr As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKOpis As DataGridViewTextBoxColumn
+ Friend WithEvents colDataWyst As DataGridViewTextBoxColumn
+ Friend WithEvents colDataOper As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaCT As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaDT As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKDziennik As DataGridViewTextBoxColumn
+ Friend WithEvents colDekret As DataGridViewTextBoxColumn
+ Friend WithEvents colRokMiesiac As DataGridViewTextBoxColumn
+ Friend WithEvents colDataImportu As DataGridViewTextBoxColumn
+ Friend WithEvents colMagazyn As DataGridViewTextBoxColumn
+ Friend WithEvents colKontrahent As DataGridViewTextBoxColumn
+ Friend WithEvents colOpisDok As DataGridViewTextBoxColumn
+ Friend WithEvents colDokKoryg As DataGridViewTextBoxColumn
+ Friend WithEvents GbRadio As GroupBox
+ Friend WithEvents RbAll As RadioButton
+ Friend WithEvents RbBlack As RadioButton
+ Friend WithEvents RbRed As RadioButton
+ Friend WithEvents CbKonto As ComboBox
+ Friend WithEvents Label3 As Label
+ Friend WithEvents BsTbmyImpDMKonta As BindingSource
+ Friend WithEvents Tamy_ImpDM_Konta As DsMainTableAdapters.Tamy_ImpDM_Konta
+End Class
diff --git a/.svn/pristine/47/47b15748ecc8e952c5935170090db7c269ce4b4f.svn-base b/.svn/pristine/47/47b15748ecc8e952c5935170090db7c269ce4b4f.svn-base
new file mode 100644
index 0000000..af7dbeb
--- /dev/null
+++ b/.svn/pristine/47/47b15748ecc8e952c5935170090db7c269ce4b4f.svn-base
@@ -0,0 +1,117 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/.svn/pristine/4a/4ade9e8bc9b1fbc280e36634ff21406b9dc51406.svn-base b/.svn/pristine/4a/4ade9e8bc9b1fbc280e36634ff21406b9dc51406.svn-base
new file mode 100644
index 0000000..b2e54e6
--- /dev/null
+++ b/.svn/pristine/4a/4ade9e8bc9b1fbc280e36634ff21406b9dc51406.svn-base
@@ -0,0 +1,251 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDN.my_ImpDM_Src
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDN.my_ImpDM_Dekr
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CDN.my_ImpDM_Konta
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/4b/4b5e9a7fe046bcc54692fae903c5d0a9fde63582.svn-base b/.svn/pristine/4b/4b5e9a7fe046bcc54692fae903c5d0a9fde63582.svn-base
new file mode 100644
index 0000000..0e395fc
--- /dev/null
+++ b/.svn/pristine/4b/4b5e9a7fe046bcc54692fae903c5d0a9fde63582.svn-base
@@ -0,0 +1,610 @@
+
+Partial Class MainFrm
+ Inherits System.Windows.Forms.Form
+
+ 'Formularz przesłania metodę dispose, aby wyczyścić listę składników.
+
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wymagane przez Projektanta formularzy systemu Windows
+ Private components As System.ComponentModel.IContainer
+
+ 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows
+ 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows.
+ 'Nie należy modyfikować za pomocą edytora kodu.
+
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainFrm))
+ Me.TlMainPanel = New System.Windows.Forms.TableLayoutPanel()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.CbWewn = New System.Windows.Forms.CheckBox()
+ Me.CbZakup = New System.Windows.Forms.CheckBox()
+ Me.CbSprzedaz = New System.Windows.Forms.CheckBox()
+ Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.edRok = New System.Windows.Forms.NumericUpDown()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.CbMiesiac = New System.Windows.Forms.ComboBox()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.BtImport = New System.Windows.Forms.Button()
+ Me.lbUwaga = New System.Windows.Forms.Button()
+ Me.BtKonfig = New System.Windows.Forms.Button()
+ Me.BtUsunFlage = New System.Windows.Forms.Button()
+ Me.BtKoniec = New System.Windows.Forms.Button()
+ Me.BtOdswiez = New System.Windows.Forms.Button()
+ Me.TcZakladki = New System.Windows.Forms.TabControl()
+ Me.TpDocs = New System.Windows.Forms.TabPage()
+ Me.DgvDokumenty = New System.Windows.Forms.DataGridView()
+ Me.colLp = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokument = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokZr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKOpis = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataWyst = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataOper = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaCT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colSumaDT = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDZKDziennik = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDekret = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colRokMiesiac = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDataImportu = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colMagazyn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colKontrahent = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colOpisDok = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.colDokKoryg = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.BsTbmy_ImpDM_Src = New System.Windows.Forms.BindingSource(Me.components)
+ Me.DsMain = New ImportDokMag.DsMain()
+ Me.TpList = New System.Windows.Forms.TabPage()
+ Me.LstWynik = New System.Windows.Forms.ListBox()
+ Me.Timer = New System.Windows.Forms.Timer(Me.components)
+ Me.Tamy_ImpDM_Src = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Src()
+ Me.TableAdapterManager = New ImportDokMag.DsMainTableAdapters.TableAdapterManager()
+ Me.BsTbmy_ImpDM_Dekr = New System.Windows.Forms.BindingSource(Me.components)
+ Me.Tamy_ImpDM_Dekr = New ImportDokMag.DsMainTableAdapters.Tamy_ImpDM_Dekr()
+ Me.TlMainPanel.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ Me.Panel2.SuspendLayout()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.TcZakladki.SuspendLayout()
+ Me.TpDocs.SuspendLayout()
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.TpList.SuspendLayout()
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'TlMainPanel
+ '
+ Me.TlMainPanel.ColumnCount = 2
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 78.0!))
+ Me.TlMainPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 22.0!))
+ Me.TlMainPanel.Controls.Add(Me.Panel1, 0, 0)
+ Me.TlMainPanel.Controls.Add(Me.Panel2, 0, 2)
+ Me.TlMainPanel.Controls.Add(Me.TableLayoutPanel1, 1, 1)
+ Me.TlMainPanel.Controls.Add(Me.BtKoniec, 1, 2)
+ Me.TlMainPanel.Controls.Add(Me.BtOdswiez, 1, 0)
+ Me.TlMainPanel.Controls.Add(Me.TcZakladki, 0, 1)
+ Me.TlMainPanel.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TlMainPanel.Location = New System.Drawing.Point(0, 0)
+ Me.TlMainPanel.Name = "TlMainPanel"
+ Me.TlMainPanel.RowCount = 3
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 7.102804!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 92.89719!))
+ Me.TlMainPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 65.0!))
+ Me.TlMainPanel.Size = New System.Drawing.Size(805, 601)
+ Me.TlMainPanel.TabIndex = 0
+ '
+ 'Panel1
+ '
+ Me.Panel1.Controls.Add(Me.CbWewn)
+ Me.Panel1.Controls.Add(Me.CbZakup)
+ Me.Panel1.Controls.Add(Me.CbSprzedaz)
+ Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel1.Location = New System.Drawing.Point(3, 3)
+ Me.Panel1.Name = "Panel1"
+ Me.Panel1.Size = New System.Drawing.Size(621, 32)
+ Me.Panel1.TabIndex = 1
+ '
+ 'CbWewn
+ '
+ Me.CbWewn.AutoSize = True
+ Me.CbWewn.Location = New System.Drawing.Point(407, 9)
+ Me.CbWewn.Name = "CbWewn"
+ Me.CbWewn.Size = New System.Drawing.Size(107, 17)
+ Me.CbWewn.TabIndex = 2
+ Me.CbWewn.Text = "dok. wewnętrzne"
+ Me.CbWewn.UseVisualStyleBackColor = True
+ '
+ 'CbZakup
+ '
+ Me.CbZakup.AutoSize = True
+ Me.CbZakup.Location = New System.Drawing.Point(249, 9)
+ Me.CbZakup.Name = "CbZakup"
+ Me.CbZakup.Size = New System.Drawing.Size(85, 17)
+ Me.CbZakup.TabIndex = 1
+ Me.CbZakup.Text = "dok. zakupu"
+ Me.CbZakup.UseVisualStyleBackColor = True
+ '
+ 'CbSprzedaz
+ '
+ Me.CbSprzedaz.AutoSize = True
+ Me.CbSprzedaz.Location = New System.Drawing.Point(79, 9)
+ Me.CbSprzedaz.Name = "CbSprzedaz"
+ Me.CbSprzedaz.Size = New System.Drawing.Size(97, 17)
+ Me.CbSprzedaz.TabIndex = 0
+ Me.CbSprzedaz.Text = "dok. sprzedaży"
+ Me.CbSprzedaz.UseVisualStyleBackColor = True
+ '
+ 'Panel2
+ '
+ Me.Panel2.Controls.Add(Me.edRok)
+ Me.Panel2.Controls.Add(Me.Label2)
+ Me.Panel2.Controls.Add(Me.Label1)
+ Me.Panel2.Controls.Add(Me.CbMiesiac)
+ Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Panel2.Location = New System.Drawing.Point(3, 538)
+ Me.Panel2.Name = "Panel2"
+ Me.Panel2.Size = New System.Drawing.Size(621, 60)
+ Me.Panel2.TabIndex = 2
+ '
+ 'edRok
+ '
+ Me.edRok.Location = New System.Drawing.Point(148, 22)
+ Me.edRok.Maximum = New Decimal(New Integer() {3000, 0, 0, 0})
+ Me.edRok.Minimum = New Decimal(New Integer() {2000, 0, 0, 0})
+ Me.edRok.Name = "edRok"
+ Me.edRok.Size = New System.Drawing.Size(120, 20)
+ Me.edRok.TabIndex = 0
+ Me.edRok.Value = New Decimal(New Integer() {2019, 0, 0, 0})
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Location = New System.Drawing.Point(358, 24)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(43, 13)
+ Me.Label2.TabIndex = 3
+ Me.Label2.Text = "Miesiąc"
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Location = New System.Drawing.Point(115, 24)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(27, 13)
+ Me.Label1.TabIndex = 2
+ Me.Label1.Text = "Rok"
+ '
+ 'CbMiesiac
+ '
+ Me.CbMiesiac.FormattingEnabled = True
+ Me.CbMiesiac.Items.AddRange(New Object() {"styczeń", "luty", "marzec", "kwiecień", "maj", "czerwiec", "lipiec", "sierpień", "wrzesień", "październik", "listopad", "grudzień"})
+ Me.CbMiesiac.Location = New System.Drawing.Point(407, 21)
+ Me.CbMiesiac.Name = "CbMiesiac"
+ Me.CbMiesiac.Size = New System.Drawing.Size(121, 21)
+ Me.CbMiesiac.TabIndex = 1
+ Me.CbMiesiac.Text = "styczeń"
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.AutoScroll = True
+ Me.TableLayoutPanel1.ColumnCount = 3
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.BtImport, 1, 1)
+ Me.TableLayoutPanel1.Controls.Add(Me.lbUwaga, 1, 4)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtKonfig, 1, 6)
+ Me.TableLayoutPanel1.Controls.Add(Me.BtUsunFlage, 1, 3)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(630, 41)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 8
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 22.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 42.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 60.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 57.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(172, 491)
+ Me.TableLayoutPanel1.TabIndex = 3
+ '
+ 'BtImport
+ '
+ Me.BtImport.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtImport.Location = New System.Drawing.Point(39, 23)
+ Me.BtImport.Name = "BtImport"
+ Me.BtImport.Size = New System.Drawing.Size(94, 26)
+ Me.BtImport.TabIndex = 4
+ Me.BtImport.Text = "Importuj"
+ Me.BtImport.UseVisualStyleBackColor = True
+ '
+ 'lbUwaga
+ '
+ Me.lbUwaga.BackColor = System.Drawing.Color.PaleGreen
+ Me.lbUwaga.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.lbUwaga.Enabled = False
+ Me.lbUwaga.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+ Me.lbUwaga.ForeColor = System.Drawing.Color.Red
+ Me.lbUwaga.Location = New System.Drawing.Point(39, 119)
+ Me.lbUwaga.Name = "lbUwaga"
+ Me.lbUwaga.Size = New System.Drawing.Size(94, 54)
+ Me.lbUwaga.TabIndex = 5
+ Me.lbUwaga.Text = "Czekaj: pobieranie danych"
+ Me.lbUwaga.UseVisualStyleBackColor = False
+ '
+ 'BtKonfig
+ '
+ Me.BtKonfig.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtKonfig.Location = New System.Drawing.Point(39, 409)
+ Me.BtKonfig.Name = "BtKonfig"
+ Me.BtKonfig.Size = New System.Drawing.Size(94, 22)
+ Me.BtKonfig.TabIndex = 6
+ Me.BtKonfig.Text = "Konfiguracja"
+ Me.BtKonfig.UseVisualStyleBackColor = True
+ '
+ 'BtUsunFlage
+ '
+ Me.BtUsunFlage.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtUsunFlage.Location = New System.Drawing.Point(39, 77)
+ Me.BtUsunFlage.Name = "BtUsunFlage"
+ Me.BtUsunFlage.Size = New System.Drawing.Size(94, 36)
+ Me.BtUsunFlage.TabIndex = 7
+ Me.BtUsunFlage.Text = "Skasuj flagę importu"
+ Me.BtUsunFlage.UseVisualStyleBackColor = True
+ '
+ 'BtKoniec
+ '
+ Me.BtKoniec.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.BtKoniec.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.BtKoniec.Location = New System.Drawing.Point(630, 538)
+ Me.BtKoniec.Name = "BtKoniec"
+ Me.BtKoniec.Size = New System.Drawing.Size(172, 60)
+ Me.BtKoniec.TabIndex = 4
+ Me.BtKoniec.Text = "Koniec"
+ Me.BtKoniec.UseVisualStyleBackColor = True
+ '
+ 'BtOdswiez
+ '
+ Me.BtOdswiez.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.BtOdswiez.Location = New System.Drawing.Point(630, 3)
+ Me.BtOdswiez.Name = "BtOdswiez"
+ Me.BtOdswiez.Size = New System.Drawing.Size(172, 32)
+ Me.BtOdswiez.TabIndex = 5
+ Me.BtOdswiez.Text = "Odśwież dane"
+ Me.BtOdswiez.UseVisualStyleBackColor = True
+ '
+ 'TcZakladki
+ '
+ Me.TcZakladki.Controls.Add(Me.TpDocs)
+ Me.TcZakladki.Controls.Add(Me.TpList)
+ Me.TcZakladki.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TcZakladki.Location = New System.Drawing.Point(3, 41)
+ Me.TcZakladki.Name = "TcZakladki"
+ Me.TcZakladki.SelectedIndex = 0
+ Me.TcZakladki.Size = New System.Drawing.Size(621, 491)
+ Me.TcZakladki.TabIndex = 6
+ '
+ 'TpDocs
+ '
+ Me.TpDocs.Controls.Add(Me.DgvDokumenty)
+ Me.TpDocs.Location = New System.Drawing.Point(4, 22)
+ Me.TpDocs.Name = "TpDocs"
+ Me.TpDocs.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpDocs.Size = New System.Drawing.Size(613, 465)
+ Me.TpDocs.TabIndex = 0
+ Me.TpDocs.Text = "Dokumenty"
+ Me.TpDocs.UseVisualStyleBackColor = True
+ '
+ 'DgvDokumenty
+ '
+ Me.DgvDokumenty.AllowUserToAddRows = False
+ Me.DgvDokumenty.AllowUserToDeleteRows = False
+ Me.DgvDokumenty.AllowUserToOrderColumns = True
+ Me.DgvDokumenty.AllowUserToResizeRows = False
+ DataGridViewCellStyle1.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.DgvDokumenty.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+ Me.DgvDokumenty.AutoGenerateColumns = False
+ Me.DgvDokumenty.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.DisplayedCells
+ Me.DgvDokumenty.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
+ Me.DgvDokumenty.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.DgvDokumenty.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colLp, Me.colDokument, Me.colDokZr, Me.colDZKOpis, Me.colDataWyst, Me.colDataOper, Me.colSumaCT, Me.colSumaDT, Me.colDZKDziennik, Me.colDekret, Me.colRokMiesiac, Me.colDataImportu, Me.colMagazyn, Me.colKontrahent, Me.colOpisDok, Me.colDokKoryg})
+ Me.DgvDokumenty.DataSource = Me.BsTbmy_ImpDM_Src
+ Me.DgvDokumenty.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.DgvDokumenty.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically
+ Me.DgvDokumenty.Location = New System.Drawing.Point(3, 3)
+ Me.DgvDokumenty.Name = "DgvDokumenty"
+ Me.DgvDokumenty.ReadOnly = True
+ Me.DgvDokumenty.RowHeadersVisible = False
+ Me.DgvDokumenty.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+ Me.DgvDokumenty.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.DgvDokumenty.ShowEditingIcon = False
+ Me.DgvDokumenty.Size = New System.Drawing.Size(607, 459)
+ Me.DgvDokumenty.TabIndex = 0
+ '
+ 'colLp
+ '
+ Me.colLp.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colLp.DataPropertyName = "Lp"
+ Me.colLp.HeaderText = "Lp"
+ Me.colLp.Name = "colLp"
+ Me.colLp.ReadOnly = True
+ Me.colLp.Width = 44
+ '
+ 'colDokument
+ '
+ Me.colDokument.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokument.DataPropertyName = "Dokument"
+ Me.colDokument.HeaderText = "Dokument"
+ Me.colDokument.Name = "colDokument"
+ Me.colDokument.ReadOnly = True
+ Me.colDokument.Width = 81
+ '
+ 'colDokZr
+ '
+ Me.colDokZr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokZr.DataPropertyName = "DokZr"
+ Me.colDokZr.HeaderText = "Dok. żródłowy"
+ Me.colDokZr.Name = "colDokZr"
+ Me.colDokZr.ReadOnly = True
+ Me.colDokZr.Width = 101
+ '
+ 'colDZKOpis
+ '
+ Me.colDZKOpis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDZKOpis.DataPropertyName = "DZK_Opis"
+ Me.colDZKOpis.HeaderText = "Opis dziennika"
+ Me.colDZKOpis.Name = "colDZKOpis"
+ Me.colDZKOpis.ReadOnly = True
+ Me.colDZKOpis.Width = 53
+ '
+ 'colDataWyst
+ '
+ Me.colDataWyst.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataWyst.DataPropertyName = "DataWyst"
+ Me.colDataWyst.HeaderText = "Data"
+ Me.colDataWyst.Name = "colDataWyst"
+ Me.colDataWyst.ReadOnly = True
+ Me.colDataWyst.Width = 55
+ '
+ 'colDataOper
+ '
+ Me.colDataOper.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataOper.DataPropertyName = "DataOper"
+ Me.colDataOper.HeaderText = "Data dokumentu"
+ Me.colDataOper.Name = "colDataOper"
+ Me.colDataOper.ReadOnly = True
+ Me.colDataOper.Width = 102
+ '
+ 'colSumaCT
+ '
+ Me.colSumaCT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colSumaCT.DataPropertyName = "SumaCT"
+ Me.colSumaCT.HeaderText = "Suma Ma"
+ Me.colSumaCT.Name = "colSumaCT"
+ Me.colSumaCT.ReadOnly = True
+ Me.colSumaCT.Width = 71
+ '
+ 'colSumaDT
+ '
+ Me.colSumaDT.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colSumaDT.DataPropertyName = "SumaDT"
+ Me.colSumaDT.HeaderText = "Suma Winien"
+ Me.colSumaDT.Name = "colSumaDT"
+ Me.colSumaDT.ReadOnly = True
+ Me.colSumaDT.Width = 87
+ '
+ 'colDZKDziennik
+ '
+ Me.colDZKDziennik.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDZKDziennik.DataPropertyName = "DZK_Dziennik"
+ Me.colDZKDziennik.HeaderText = "Dziennik"
+ Me.colDZKDziennik.Name = "colDZKDziennik"
+ Me.colDZKDziennik.ReadOnly = True
+ Me.colDZKDziennik.Visible = False
+ Me.colDZKDziennik.Width = 73
+ '
+ 'colDekret
+ '
+ Me.colDekret.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDekret.DataPropertyName = "Dekret"
+ Me.colDekret.HeaderText = "Dekret"
+ Me.colDekret.Name = "colDekret"
+ Me.colDekret.ReadOnly = True
+ Me.colDekret.Visible = False
+ Me.colDekret.Width = 64
+ '
+ 'colRokMiesiac
+ '
+ Me.colRokMiesiac.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colRokMiesiac.DataPropertyName = "RokMiesiac"
+ Me.colRokMiesiac.HeaderText = "RokMiesiac"
+ Me.colRokMiesiac.Name = "colRokMiesiac"
+ Me.colRokMiesiac.ReadOnly = True
+ Me.colRokMiesiac.Visible = False
+ Me.colRokMiesiac.Width = 88
+ '
+ 'colDataImportu
+ '
+ Me.colDataImportu.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDataImportu.DataPropertyName = "DataImportu"
+ Me.colDataImportu.HeaderText = "Data importu"
+ Me.colDataImportu.Name = "colDataImportu"
+ Me.colDataImportu.ReadOnly = True
+ Me.colDataImportu.Width = 85
+ '
+ 'colMagazyn
+ '
+ Me.colMagazyn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colMagazyn.DataPropertyName = "Magazyn"
+ Me.colMagazyn.HeaderText = "Magazyn"
+ Me.colMagazyn.Name = "colMagazyn"
+ Me.colMagazyn.ReadOnly = True
+ '
+ 'colKontrahent
+ '
+ Me.colKontrahent.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colKontrahent.DataPropertyName = "Kontrahent"
+ Me.colKontrahent.HeaderText = "Kontrahent"
+ Me.colKontrahent.Name = "colKontrahent"
+ Me.colKontrahent.ReadOnly = True
+ '
+ 'colOpisDok
+ '
+ Me.colOpisDok.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colOpisDok.DataPropertyName = "Opis"
+ Me.colOpisDok.HeaderText = "Opis dokumentu"
+ Me.colOpisDok.Name = "colOpisDok"
+ Me.colOpisDok.ReadOnly = True
+ '
+ 'colDokKoryg
+ '
+ Me.colDokKoryg.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.colDokKoryg.DataPropertyName = "DokKoryg"
+ Me.colDokKoryg.HeaderText = "DokKoryg"
+ Me.colDokKoryg.Name = "colDokKoryg"
+ Me.colDokKoryg.ReadOnly = True
+ '
+ 'BsTbmy_ImpDM_Src
+ '
+ Me.BsTbmy_ImpDM_Src.DataMember = "Tbmy_ImpDM_Src"
+ Me.BsTbmy_ImpDM_Src.DataSource = Me.DsMain
+ '
+ 'DsMain
+ '
+ Me.DsMain.DataSetName = "DsMain"
+ Me.DsMain.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+ '
+ 'TpList
+ '
+ Me.TpList.Controls.Add(Me.LstWynik)
+ Me.TpList.Location = New System.Drawing.Point(4, 22)
+ Me.TpList.Name = "TpList"
+ Me.TpList.Padding = New System.Windows.Forms.Padding(3)
+ Me.TpList.Size = New System.Drawing.Size(613, 465)
+ Me.TpList.TabIndex = 1
+ Me.TpList.Text = "Przebieg pracy"
+ Me.TpList.UseVisualStyleBackColor = True
+ '
+ 'LstWynik
+ '
+ Me.LstWynik.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.LstWynik.FormattingEnabled = True
+ Me.LstWynik.Location = New System.Drawing.Point(3, 3)
+ Me.LstWynik.Name = "LstWynik"
+ Me.LstWynik.Size = New System.Drawing.Size(607, 459)
+ Me.LstWynik.TabIndex = 0
+ '
+ 'Timer
+ '
+ Me.Timer.Interval = 200
+ '
+ 'Tamy_ImpDM_Src
+ '
+ Me.Tamy_ImpDM_Src.ClearBeforeFill = True
+ '
+ 'TableAdapterManager
+ '
+ Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+ Me.TableAdapterManager.Connection = Nothing
+ Me.TableAdapterManager.UpdateOrder = ImportDokMag.DsMainTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+ '
+ 'BsTbmy_ImpDM_Dekr
+ '
+ Me.BsTbmy_ImpDM_Dekr.DataMember = "Tbmy_ImpDM_Dekr"
+ Me.BsTbmy_ImpDM_Dekr.DataSource = Me.DsMain
+ '
+ 'Tamy_ImpDM_Dekr
+ '
+ Me.Tamy_ImpDM_Dekr.ClearBeforeFill = True
+ '
+ 'MainFrm
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.CancelButton = Me.BtKoniec
+ Me.ClientSize = New System.Drawing.Size(805, 601)
+ Me.Controls.Add(Me.TlMainPanel)
+ Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+ Me.Name = "MainFrm"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "Import dokumentów magazynowych 1.1 z 08.02.2019"
+ Me.TlMainPanel.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ Me.Panel2.ResumeLayout(False)
+ Me.Panel2.PerformLayout()
+ CType(Me.edRok, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TcZakladki.ResumeLayout(False)
+ Me.TpDocs.ResumeLayout(False)
+ CType(Me.DgvDokumenty, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.BsTbmy_ImpDM_Src, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.DsMain, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TpList.ResumeLayout(False)
+ CType(Me.BsTbmy_ImpDM_Dekr, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+
+ Friend WithEvents TlMainPanel As TableLayoutPanel
+ Friend WithEvents DgvDokumenty As DataGridView
+ Friend WithEvents Panel1 As Panel
+ Friend WithEvents CbWewn As CheckBox
+ Friend WithEvents CbZakup As CheckBox
+ Friend WithEvents CbSprzedaz As CheckBox
+ Friend WithEvents Panel2 As Panel
+ Friend WithEvents edRok As NumericUpDown
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label1 As Label
+ Friend WithEvents CbMiesiac As ComboBox
+ Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+ Friend WithEvents BtImport As Button
+ Friend WithEvents BtKoniec As Button
+ Friend WithEvents BtOdswiez As Button
+ Friend WithEvents DsMain As DsMain
+ Friend WithEvents BsTbmy_ImpDM_Src As BindingSource
+ Friend WithEvents Tamy_ImpDM_Src As DsMainTableAdapters.Tamy_ImpDM_Src
+ Friend WithEvents TableAdapterManager As DsMainTableAdapters.TableAdapterManager
+ Friend WithEvents lbUwaga As Button
+ Friend WithEvents TcZakladki As TabControl
+ Friend WithEvents TpDocs As TabPage
+ Friend WithEvents TpList As TabPage
+ Friend WithEvents LstWynik As ListBox
+ Friend WithEvents BtKonfig As Button
+ Friend WithEvents Timer As Timer
+ Friend WithEvents BsTbmy_ImpDM_Dekr As BindingSource
+ Friend WithEvents Tamy_ImpDM_Dekr As DsMainTableAdapters.Tamy_ImpDM_Dekr
+ Friend WithEvents BtUsunFlage As Button
+ Friend WithEvents colLp As DataGridViewTextBoxColumn
+ Friend WithEvents colDokument As DataGridViewTextBoxColumn
+ Friend WithEvents colDokZr As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKOpis As DataGridViewTextBoxColumn
+ Friend WithEvents colDataWyst As DataGridViewTextBoxColumn
+ Friend WithEvents colDataOper As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaCT As DataGridViewTextBoxColumn
+ Friend WithEvents colSumaDT As DataGridViewTextBoxColumn
+ Friend WithEvents colDZKDziennik As DataGridViewTextBoxColumn
+ Friend WithEvents colDekret As DataGridViewTextBoxColumn
+ Friend WithEvents colRokMiesiac As DataGridViewTextBoxColumn
+ Friend WithEvents colDataImportu As DataGridViewTextBoxColumn
+ Friend WithEvents colMagazyn As DataGridViewTextBoxColumn
+ Friend WithEvents colKontrahent As DataGridViewTextBoxColumn
+ Friend WithEvents colOpisDok As DataGridViewTextBoxColumn
+ Friend WithEvents colDokKoryg As DataGridViewTextBoxColumn
+End Class
diff --git a/.svn/pristine/4d/4dcfe7c2b0acefb8794995e9c1f6756fd4b730c0.svn-base b/.svn/pristine/4d/4dcfe7c2b0acefb8794995e9c1f6756fd4b730c0.svn-base
new file mode 100644
index 0000000..41abc52
--- /dev/null
+++ b/.svn/pristine/4d/4dcfe7c2b0acefb8794995e9c1f6756fd4b730c0.svn-base
@@ -0,0 +1,54 @@
+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 - uwzgldnia WZ, WZE i ich korekty
+ @ZAK int, -- 1 - uwzgldnia PZ, PZI i ich korekty
+ @WEW int, -- 1 - uwzgldnia RW, PW i ich korekty
+ @RM int, -- TrN_RokMiesiac
+ @Rok int, -- Rok
+ @Miesiac int -- Miesic
+)
+AS
+ SET NOCOUNT ON;
+
+ declare @TN table(Dokument varchar(255), RokMiesiac int, TrN_GIDTyp int, TrN_GIDNumer int, TrN_Zaksiegowano int, DataDok int)
+ 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
+ from (select TrN_GIDTyp, TrN_GIDNumer, TrN_RokMiesiac, TrN_Zaksiegowano, TrN_Data3 from CDN.TraNag with (nolock)
+ 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 2009 then 1 when 2015 then 1 when 2013 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)
+ 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
diff --git a/.svn/pristine/50/5033c2a24c3f44605da83bf1a06ec822cb21f4b7.svn-base b/.svn/pristine/50/5033c2a24c3f44605da83bf1a06ec822cb21f4b7.svn-base
new file mode 100644
index 0000000..a962437
--- /dev/null
+++ b/.svn/pristine/50/5033c2a24c3f44605da83bf1a06ec822cb21f4b7.svn-base
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/53/533e0f87de0091620134d1ac9bd53c17426799d0.svn-base b/.svn/pristine/53/533e0f87de0091620134d1ac9bd53c17426799d0.svn-base
new file mode 100644
index 0000000..ef48f9c
--- /dev/null
+++ b/.svn/pristine/53/533e0f87de0091620134d1ac9bd53c17426799d0.svn-base
@@ -0,0 +1,45 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ c:\temp
+
+
+ crispcas\sql17
+
+
+ MAG_JAST
+
+
+ 10.0.2.252\GOTECSQL2
+
+
+
+
+
+
+
+
+ CDNXL_GOTEC_J
+
+
+
+
+
+ CDNXL_GOTEC_80
+
+
+
+
diff --git a/.svn/pristine/53/536a9b4c90a6f399a09f7c45891e35cb24574e85.svn-base b/.svn/pristine/53/536a9b4c90a6f399a09f7c45891e35cb24574e85.svn-base
new file mode 100644
index 0000000..9113333
--- /dev/null
+++ b/.svn/pristine/53/536a9b4c90a6f399a09f7c45891e35cb24574e85.svn-base
@@ -0,0 +1,833 @@
+"DeployProject"
+{
+"VSVersion" = "3:800"
+"ProjectType" = "8:{978C614F-708E-4E1A-B201-565925725DBA}"
+"IsWebType" = "8:FALSE"
+"ProjectName" = "8:Instalator"
+"LanguageId" = "3:1045"
+"CodePage" = "3:1250"
+"UILanguageId" = "3:1045"
+"SccProjectName" = "8:"
+"SccLocalPath" = "8:"
+"SccAuxPath" = "8:"
+"SccProvider" = "8:"
+"BackwardsCompatibleGUIDGeneration" = "8:TRUE"
+ "Hierarchy"
+ {
+ "Entry"
+ {
+ "MsmKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "OwnerKey" = "8:_UNDEFINED"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_49788B1BF43C40538D55DF85500AFDB9"
+ "OwnerKey" = "8:_UNDEFINED"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_CAF79A75A6114DC47750AB672F844D8C"
+ "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_CAF79A75A6114DC47750AB672F844D8C"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ }
+ "Configurations"
+ {
+ "Debug"
+ {
+ "DisplayName" = "8:Debug"
+ "IsDebugOnly" = "11:TRUE"
+ "IsReleaseOnly" = "11:FALSE"
+ "OutputFilename" = "8:Debug\\Instalator.msi"
+ "PackageFilesAs" = "3:2"
+ "PackageFileSize" = "3:-2147483648"
+ "CabType" = "3:1"
+ "Compression" = "3:2"
+ "SignOutput" = "11:FALSE"
+ "CertificateFile" = "8:"
+ "PrivateKeyFile" = "8:"
+ "TimeStampServer" = "8:"
+ "InstallerBootstrapper" = "3:2"
+ "BootstrapperCfg:{63ACBE69-63AA-4F98-B2B6-99F9E24495F2}"
+ {
+ "Enabled" = "11:TRUE"
+ "PromptEnabled" = "11:TRUE"
+ "PrerequisitesLocation" = "2:1"
+ "Url" = "8:"
+ "ComponentsUrl" = "8:"
+ "Items"
+ {
+ "{EDC2488A-8267-493A-A98E-7D9C3B36CDF3}:Microsoft.Net.Framework.3.5.SP1"
+ {
+ "Name" = "8:.NET Framework 3.5 SP1"
+ "ProductCode" = "8:Microsoft.Net.Framework.3.5.SP1"
+ }
+ }
+ }
+ }
+ "Release"
+ {
+ "DisplayName" = "8:Release"
+ "IsDebugOnly" = "11:FALSE"
+ "IsReleaseOnly" = "11:TRUE"
+ "OutputFilename" = "8:Release\\Instalator.msi"
+ "PackageFilesAs" = "3:2"
+ "PackageFileSize" = "3:-2147483648"
+ "CabType" = "3:1"
+ "Compression" = "3:2"
+ "SignOutput" = "11:FALSE"
+ "CertificateFile" = "8:"
+ "PrivateKeyFile" = "8:"
+ "TimeStampServer" = "8:"
+ "InstallerBootstrapper" = "3:2"
+ "BootstrapperCfg:{63ACBE69-63AA-4F98-B2B6-99F9E24495F2}"
+ {
+ "Enabled" = "11:TRUE"
+ "PromptEnabled" = "11:TRUE"
+ "PrerequisitesLocation" = "2:1"
+ "Url" = "8:"
+ "ComponentsUrl" = "8:"
+ }
+ }
+ }
+ "Deployable"
+ {
+ "CustomAction"
+ {
+ }
+ "DefaultFeature"
+ {
+ "Name" = "8:DefaultFeature"
+ "Title" = "8:"
+ "Description" = "8:"
+ }
+ "ExternalPersistence"
+ {
+ "LaunchCondition"
+ {
+ "{A06ECF26-33A3-4562-8140-9B0E340D4F24}:_68E9A4974B7347D6B68EBF2B3A14C7BA"
+ {
+ "Name" = "8:.NET Framework"
+ "Message" = "8:[VSDNETMSG]"
+ "FrameworkVersion" = "8:.NETFramework,Version=v4.0"
+ "AllowLaterVersions" = "11:FALSE"
+ "InstallUrl" = "8:http://go.microsoft.com/fwlink/?LinkId=671728"
+ }
+ }
+ }
+ "File"
+ {
+ "{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_49788B1BF43C40538D55DF85500AFDB9"
+ {
+ "SourcePath" = "8:..\\ImportDokMag\\cab.ico"
+ "TargetName" = "8:cab.ico"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ }
+ "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_CAF79A75A6114DC47750AB672F844D8C"
+ {
+ "AssemblyRegister" = "3:1"
+ "AssemblyIsInGAC" = "11:FALSE"
+ "AssemblyAsmDisplayName" = "8:cdn_api20182.net, Version=2018.2.0.0, Culture=neutral, PublicKeyToken=5179454a0b814fab, processorArchitecture=x86"
+ "ScatterAssemblies"
+ {
+ "_CAF79A75A6114DC47750AB672F844D8C"
+ {
+ "Name" = "8:cdn_api20182.net.dll"
+ "Attributes" = "3:512"
+ }
+ }
+ "SourcePath" = "8:cdn_api20182.net.dll"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:TRUE"
+ "IsolateTo" = "8:"
+ }
+ }
+ "FileType"
+ {
+ }
+ "Folder"
+ {
+ "{1525181F-901A-416C-8A58-119130FE478E}:_0E2A769A3BDC48F2B395EBE23FF897DE"
+ {
+ "Name" = "8:#1919"
+ "AlwaysCreate" = "11:FALSE"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Property" = "8:ProgramMenuFolder"
+ "Folders"
+ {
+ }
+ }
+ "{1525181F-901A-416C-8A58-119130FE478E}:_35C2D5FD2F5942BD81B83EB09E3DA2E6"
+ {
+ "Name" = "8:#1916"
+ "AlwaysCreate" = "11:FALSE"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Property" = "8:DesktopFolder"
+ "Folders"
+ {
+ }
+ }
+ "{3C67513D-01DD-4637-8A68-80971EB9504F}:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ {
+ "DefaultLocation" = "8:[ProgramFilesFolder][Manufacturer]\\[ProductName]"
+ "Name" = "8:#1925"
+ "AlwaysCreate" = "11:FALSE"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Property" = "8:TARGETDIR"
+ "Folders"
+ {
+ }
+ }
+ }
+ "LaunchCondition"
+ {
+ }
+ "Locator"
+ {
+ }
+ "MsiBootstrapper"
+ {
+ "LangId" = "3:1045"
+ "RequiresElevation" = "11:FALSE"
+ }
+ "Product"
+ {
+ "Name" = "8:Microsoft Visual Studio"
+ "ProductName" = "8:ImportDokMag"
+ "ProductCode" = "8:{C1C7C7F2-F7E5-4A19-B4DD-F40A170381A2}"
+ "PackageCode" = "8:{FE72409C-5862-47E1-A72C-2EBC3A11D20F}"
+ "UpgradeCode" = "8:{E007770B-8123-40D0-A07D-1E6CFEBE903D}"
+ "AspNetVersion" = "8:2.0.50727.0"
+ "RestartWWWService" = "11:FALSE"
+ "RemovePreviousVersions" = "11:TRUE"
+ "DetectNewerInstalledVersion" = "11:TRUE"
+ "InstallAllUsers" = "11:TRUE"
+ "ProductVersion" = "8:1.0.0"
+ "Manufacturer" = "8:myCONSULT SP. z o. o."
+ "ARPHELPTELEPHONE" = "8:"
+ "ARPHELPLINK" = "8:"
+ "Title" = "8:Instalator programu ImportDokMag"
+ "Subject" = "8:"
+ "ARPCONTACT" = "8:Krzysztof Czapliński"
+ "Keywords" = "8:"
+ "ARPCOMMENTS" = "8:Program do importu dekretów dokumnetów magazynowych"
+ "ARPURLINFOABOUT" = "8:www.myconsult.com.pl"
+ "ARPPRODUCTICON" = "8:_49788B1BF43C40538D55DF85500AFDB9"
+ "ARPIconIndex" = "3:0"
+ "SearchPath" = "8:"
+ "UseSystemSearchPath" = "11:TRUE"
+ "TargetPlatform" = "3:0"
+ "PreBuildEvent" = "8:"
+ "PostBuildEvent" = "8:"
+ "RunPostBuildEvent" = "3:0"
+ }
+ "Registry"
+ {
+ "HKLM"
+ {
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_14A5D4D1DAF74AB1B116EF6D64D465B8"
+ {
+ "Name" = "8:Software"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_3D3B378B7D6443379A137B227B2CF8E3"
+ {
+ "Name" = "8:[Manufacturer]"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ }
+ "HKCU"
+ {
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_183C92BC953A43BBAC0FC1D320E8407E"
+ {
+ "Name" = "8:Software"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_4E43A27CB157418DB3CEA9E3FC6705B4"
+ {
+ "Name" = "8:[Manufacturer]"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ }
+ "HKCR"
+ {
+ "Keys"
+ {
+ }
+ }
+ "HKU"
+ {
+ "Keys"
+ {
+ }
+ }
+ "HKPU"
+ {
+ "Keys"
+ {
+ }
+ }
+ }
+ "Sequences"
+ {
+ }
+ "Shortcut"
+ {
+ "{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_7AC3C26AE5054D769B2CD49356336C7C"
+ {
+ "Name" = "8:ImportDokMag"
+ "Arguments" = "8:"
+ "Description" = "8:"
+ "ShowCmd" = "3:1"
+ "IconIndex" = "3:0"
+ "Transitive" = "11:FALSE"
+ "Target" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "Folder" = "8:_0E2A769A3BDC48F2B395EBE23FF897DE"
+ "WorkingFolder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Icon" = "8:"
+ "Feature" = "8:"
+ }
+ }
+ "UserInterface"
+ {
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_2C138F37321C45B8BC863887B265E74D"
+ {
+ "Name" = "8:#1902"
+ "Sequence" = "3:2"
+ "Attributes" = "3:3"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_051D8F80CA62431B88D19FCF6F8DDCCA"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zakończono"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminFinishedDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_3857FBBA21254D9196B7BB3782E5F1CC"
+ {
+ "Name" = "8:#1900"
+ "Sequence" = "3:1"
+ "Attributes" = "3:1"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_233F85456C1F46408B1FF52CE2A3333C"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zapraszamy"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdWelcomeDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "CopyrightWarning"
+ {
+ "Name" = "8:CopyrightWarning"
+ "DisplayName" = "8:#1002"
+ "Description" = "8:#1102"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1202"
+ "DefaultValue" = "8:#1202"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "Welcome"
+ {
+ "Name" = "8:Welcome"
+ "DisplayName" = "8:#1003"
+ "Description" = "8:#1103"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1203"
+ "DefaultValue" = "8:#1203"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_366756F4B2114C36AD1714833DF81439"
+ {
+ "Sequence" = "3:200"
+ "DisplayName" = "8:Folder instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdFolderDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "InstallAllUsersVisible"
+ {
+ "Name" = "8:InstallAllUsersVisible"
+ "DisplayName" = "8:#1059"
+ "Description" = "8:#1159"
+ "Type" = "3:5"
+ "ContextData" = "8:1;True=1;False=0"
+ "Attributes" = "3:0"
+ "Setting" = "3:0"
+ "Value" = "3:1"
+ "DefaultValue" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_E8553CE9C9F444AC85EDBE110A18A0C0"
+ {
+ "Sequence" = "3:300"
+ "DisplayName" = "8:Potwierdzanie instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdConfirmDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_49D1ABE51EB349C2BB84363C2AC4E50C"
+ {
+ "UseDynamicProperties" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdUserInterface.wim"
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_5CF09CEF61F84E599FFA1A0D5AEDFC2E"
+ {
+ "Name" = "8:#1901"
+ "Sequence" = "3:1"
+ "Attributes" = "3:2"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_C52AA13216134FAF9E4C64657856B7A7"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Postęp"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdProgressDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "ShowProgress"
+ {
+ "Name" = "8:ShowProgress"
+ "DisplayName" = "8:#1009"
+ "Description" = "8:#1109"
+ "Type" = "3:5"
+ "ContextData" = "8:1;True=1;False=0"
+ "Attributes" = "3:0"
+ "Setting" = "3:0"
+ "Value" = "3:1"
+ "DefaultValue" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_7D365393285F4299AEA6C715E85E5BD9"
+ {
+ "Name" = "8:#1902"
+ "Sequence" = "3:1"
+ "Attributes" = "3:3"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_5875D34493A9488185B0387EB232B28D"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zakończono"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdFinishedDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "UpdateText"
+ {
+ "Name" = "8:UpdateText"
+ "DisplayName" = "8:#1058"
+ "Description" = "8:#1158"
+ "Type" = "3:15"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1258"
+ "DefaultValue" = "8:#1258"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_A73298DE647C48F2907A88BC23802AF2"
+ {
+ "Name" = "8:#1901"
+ "Sequence" = "3:2"
+ "Attributes" = "3:2"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_371A5E2D3B5341F88171D2A6E48C489F"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Postęp"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminProgressDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "ShowProgress"
+ {
+ "Name" = "8:ShowProgress"
+ "DisplayName" = "8:#1009"
+ "Description" = "8:#1109"
+ "Type" = "3:5"
+ "ContextData" = "8:1;True=1;False=0"
+ "Attributes" = "3:0"
+ "Setting" = "3:0"
+ "Value" = "3:1"
+ "DefaultValue" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_E874B98968404660B16B15E8077B602A"
+ {
+ "Name" = "8:#1900"
+ "Sequence" = "3:2"
+ "Attributes" = "3:1"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_68269945CB70415F9DFD6F37F3D7F324"
+ {
+ "Sequence" = "3:200"
+ "DisplayName" = "8:Folder instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminFolderDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_92540D7DEBF24D2A812120C019FA72BD"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zapraszamy"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminWelcomeDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "CopyrightWarning"
+ {
+ "Name" = "8:CopyrightWarning"
+ "DisplayName" = "8:#1002"
+ "Description" = "8:#1102"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1202"
+ "DefaultValue" = "8:#1202"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "Welcome"
+ {
+ "Name" = "8:Welcome"
+ "DisplayName" = "8:#1003"
+ "Description" = "8:#1103"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1203"
+ "DefaultValue" = "8:#1203"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_A4C42942C8AC4E639F27164F9206430F"
+ {
+ "Sequence" = "3:300"
+ "DisplayName" = "8:Potwierdzanie instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminConfirmDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_F0DF71F431A741539E005077697AEE17"
+ {
+ "UseDynamicProperties" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdBasicDialogs.wim"
+ }
+ }
+ "MergeModule"
+ {
+ }
+ "ProjectOutput"
+ {
+ "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_06B783810FB84C86A4F04496ABE6D3FB"
+ {
+ "SourcePath" = "8:"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ "ProjectOutputGroupRegister" = "3:1"
+ "OutputConfiguration" = "8:"
+ "OutputGroupCanonicalName" = "8:ReferenceCopyLocalPaths"
+ "OutputProjectGuid" = "8:{ACEDBC4B-04AD-423D-B0D7-B930B9998493}"
+ "ShowKeyOutput" = "11:TRUE"
+ "ExcludeFilters"
+ {
+ }
+ }
+ "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_370DEE148AAB42D7A584CF9661EBF4CF"
+ {
+ "SourcePath" = "8:..\\ImportDokMag\\obj\\x86\\Debug\\ImportDokMag.exe"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ "ProjectOutputGroupRegister" = "3:1"
+ "OutputConfiguration" = "8:"
+ "OutputGroupCanonicalName" = "8:Built"
+ "OutputProjectGuid" = "8:{ACEDBC4B-04AD-423D-B0D7-B930B9998493}"
+ "ShowKeyOutput" = "11:TRUE"
+ "ExcludeFilters"
+ {
+ }
+ }
+ }
+ }
+}
diff --git a/.svn/pristine/55/55772a519a97ccb6ab7602fd08f1f1d63a9d6c1c.svn-base b/.svn/pristine/55/55772a519a97ccb6ab7602fd08f1f1d63a9d6c1c.svn-base
new file mode 100644
index 0000000..8763f03
--- /dev/null
+++ b/.svn/pristine/55/55772a519a97ccb6ab7602fd08f1f1d63a9d6c1c.svn-base
@@ -0,0 +1,239 @@
+'------------------------------------------------------------------------------
+'
+' Ten kod został wygenerowany przez narzędzie.
+' Wersja wykonawcza:4.0.30319.42000
+'
+' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli
+' kod zostanie ponownie wygenerowany.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ _
+ Partial Friend NotInheritable Class MySettings
+ Inherits Global.System.Configuration.ApplicationSettingsBase
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "Funkcje automatycznego zapisywania My.Settings"
+#If _MyType = "WindowsForms" Then
+ Private Shared addedHandler As Boolean
+
+ Private Shared addedHandlerLockObject As New Object
+
+ _
+ Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
+#End If
+#End Region
+
+ Public Shared ReadOnly Property [Default]() As MySettings
+ Get
+
+#If _MyType = "WindowsForms" Then
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
+#End If
+ Return defaultInstance
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property CS_Src() As String
+ Get
+ Return CType(Me("CS_Src"),String)
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property CS_Dst() As String
+ Get
+ Return CType(Me("CS_Dst"),String)
+ End Get
+ End Property
+
+ _
+ Public Property FolderR_Roboczy() As String
+ Get
+ Return CType(Me("FolderR_Roboczy"),String)
+ End Get
+ Set
+ Me("FolderR_Roboczy") = value
+ End Set
+ End Property
+
+ _
+ Public Property SerwerDst() As String
+ Get
+ Return CType(Me("SerwerDst"),String)
+ End Get
+ Set
+ Me("SerwerDst") = value
+ End Set
+ End Property
+
+ _
+ Public Property SerwerKlucza() As String
+ Get
+ Return CType(Me("SerwerKlucza"),String)
+ End Get
+ Set
+ Me("SerwerKlucza") = value
+ End Set
+ End Property
+
+ _
+ Public Property Dziennik_Docelowy() As String
+ Get
+ Return CType(Me("Dziennik_Docelowy"),String)
+ End Get
+ Set
+ Me("Dziennik_Docelowy") = value
+ End Set
+ End Property
+
+ _
+ Public Property SerwerSrc() As String
+ Get
+ Return CType(Me("SerwerSrc"),String)
+ End Get
+ Set
+ Me("SerwerSrc") = value
+ End Set
+ End Property
+
+ _
+ Public Property MCsrc() As String
+ Get
+ Return CType(Me("MCsrc"),String)
+ End Get
+ Set
+ Me("MCsrc") = value
+ End Set
+ End Property
+
+ _
+ Public Property Comsrc() As String
+ Get
+ Return CType(Me("Comsrc"),String)
+ End Get
+ Set
+ Me("Comsrc") = value
+ End Set
+ End Property
+
+ _
+ Public Property MCdst() As String
+ Get
+ Return CType(Me("MCdst"),String)
+ End Get
+ Set
+ Me("MCdst") = value
+ End Set
+ End Property
+
+ _
+ Public Property Comdst() As String
+ Get
+ Return CType(Me("Comdst"),String)
+ End Get
+ Set
+ Me("Comdst") = value
+ End Set
+ End Property
+
+ _
+ Public Property BazaSrc() As String
+ Get
+ Return CType(Me("BazaSrc"),String)
+ End Get
+ Set
+ Me("BazaSrc") = value
+ End Set
+ End Property
+
+ _
+ Public Property BazaDst() As String
+ Get
+ Return CType(Me("BazaDst"),String)
+ End Get
+ Set
+ Me("BazaDst") = value
+ End Set
+ End Property
+
+ _
+ Public Property check() As String
+ Get
+ Return CType(Me("check"),String)
+ End Get
+ Set
+ Me("check") = value
+ End Set
+ End Property
+ End Class
+End Namespace
+
+Namespace My
+
+ _
+ Friend Module MySettingsProperty
+
+ _
+ Friend ReadOnly Property Settings() As Global.ImportDokMag.My.MySettings
+ Get
+ Return Global.ImportDokMag.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/.svn/pristine/56/5613e1f322f43febf503d5710286735ff89fd71c.svn-base b/.svn/pristine/56/5613e1f322f43febf503d5710286735ff89fd71c.svn-base
new file mode 100644
index 0000000..4b7bdb9
--- /dev/null
+++ b/.svn/pristine/56/5613e1f322f43febf503d5710286735ff89fd71c.svn-base
@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+'
+' Ten kod został wygenerowany przez narzędzie.
+' Wersja wykonawcza:4.0.30319.42000
+'
+' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli
+' kod zostanie ponownie wygenerowany.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+
+ 'Ta klasa została automatycznie wygenerowana za pomocą klasy StronglyTypedResourceBuilder
+ 'przez narzędzie, takie jak ResGen lub Visual Studio.
+ 'Aby dodać lub usunąć składową, edytuj plik ResX, a następnie ponownie uruchom narzędzie ResGen
+ 'z opcją /str lub ponownie utwórz projekt VS.
+ '''
+ ''' Klasa zasobu wymagająca zdefiniowania typu do wyszukiwania zlokalizowanych ciągów itd.
+ '''
+ _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''
+ '''Zwraca buforowane wystąpienie ResourceManager używane przez tę klasę.
+ '''
+ _
+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+ Get
+ If Object.ReferenceEquals(resourceMan, Nothing) Then
+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ImportDokMag.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''
+ ''' Przesłania właściwość CurrentUICulture bieżącego wątku dla wszystkich
+ ''' przypadków przeszukiwania zasobów za pomocą tej klasy zasobów wymagającej zdefiniowania typu.
+ '''
+ _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+ End Module
+End Namespace
diff --git a/.svn/pristine/57/57be133004c6d4895d88660f8e0dc3cac0bd5489.svn-base b/.svn/pristine/57/57be133004c6d4895d88660f8e0dc3cac0bd5489.svn-base
new file mode 100644
index 0000000..ea86064
--- /dev/null
+++ b/.svn/pristine/57/57be133004c6d4895d88660f8e0dc3cac0bd5489.svn-base
@@ -0,0 +1,416 @@
+ _
+Partial Class dlgKonfig
+ Inherits System.Windows.Forms.Form
+
+ 'Formularz przesłania metodę dispose, aby wyczyścić listę składników.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wymagane przez Projektanta formularzy systemu Windows
+ Private components As System.ComponentModel.IContainer
+
+ 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows
+ 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows.
+ 'Nie należy modyfikować za pomocą edytora kodu.
+ _
+ Private Sub InitializeComponent()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+ Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label6 = New System.Windows.Forms.Label()
+ Me.Label13 = New System.Windows.Forms.Label()
+ Me.EdDziennik = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.edSerwerSrc = New System.Windows.Forms.TextBox()
+ Me.edBazaSrc = New System.Windows.Forms.TextBox()
+ Me.edUserSrc = New System.Windows.Forms.TextBox()
+ Me.edPassSrc = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label11 = New System.Windows.Forms.Label()
+ Me.Label12 = New System.Windows.Forms.Label()
+ Me.edHASPServer = New System.Windows.Forms.TextBox()
+ Me.edWorkingDir = New System.Windows.Forms.TextBox()
+ Me.Label7 = New System.Windows.Forms.Label()
+ Me.edBazaDst = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.TableLayoutPanel2.SuspendLayout()
+ Me.TableLayoutPanel4.SuspendLayout()
+ Me.TableLayoutPanel3.SuspendLayout()
+ Me.TableLayoutPanel5.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(288, 305)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(144, 32)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Location = New System.Drawing.Point(3, 4)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(66, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(75, 4)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(66, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Anuluj"
+ '
+ 'TableLayoutPanel2
+ '
+ Me.TableLayoutPanel2.ColumnCount = 3
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 135.0!))
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel4, 0, 1)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel1, 2, 3)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel3, 0, 0)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel5, 0, 2)
+ Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0)
+ Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+ Me.TableLayoutPanel2.RowCount = 4
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 93.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 59.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 38.0!))
+ Me.TableLayoutPanel2.Size = New System.Drawing.Size(435, 340)
+ Me.TableLayoutPanel2.TabIndex = 1
+ '
+ 'TableLayoutPanel4
+ '
+ Me.TableLayoutPanel4.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
+ Me.TableLayoutPanel4.ColumnCount = 4
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel4, 3)
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 27.0!))
+ Me.TableLayoutPanel4.Controls.Add(Me.Label6, 0, 0)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label13, 1, 2)
+ Me.TableLayoutPanel4.Controls.Add(Me.EdDziennik, 2, 2)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label7, 1, 1)
+ Me.TableLayoutPanel4.Controls.Add(Me.edBazaDst, 2, 1)
+ Me.TableLayoutPanel4.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel4.Location = New System.Drawing.Point(3, 153)
+ Me.TableLayoutPanel4.Name = "TableLayoutPanel4"
+ Me.TableLayoutPanel4.RowCount = 3
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
+ Me.TableLayoutPanel4.Size = New System.Drawing.Size(429, 87)
+ Me.TableLayoutPanel4.TabIndex = 2
+ '
+ 'Label6
+ '
+ Me.Label6.AutoSize = True
+ Me.TableLayoutPanel4.SetColumnSpan(Me.Label6, 4)
+ Me.Label6.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label6.Location = New System.Drawing.Point(5, 2)
+ Me.Label6.Name = "Label6"
+ Me.Label6.Size = New System.Drawing.Size(419, 26)
+ Me.Label6.TabIndex = 0
+ Me.Label6.Text = "Baza docelowa"
+ Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label13
+ '
+ Me.Label13.AutoSize = True
+ Me.Label13.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label13.Location = New System.Drawing.Point(27, 58)
+ Me.Label13.Name = "Label13"
+ Me.Label13.Size = New System.Drawing.Size(180, 27)
+ Me.Label13.TabIndex = 9
+ Me.Label13.Text = "Dziennik"
+ Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'EdDziennik
+ '
+ Me.EdDziennik.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.EdDziennik.Location = New System.Drawing.Point(215, 61)
+ Me.EdDziennik.Name = "EdDziennik"
+ Me.EdDziennik.Size = New System.Drawing.Size(180, 20)
+ Me.EdDziennik.TabIndex = 10
+ '
+ 'TableLayoutPanel3
+ '
+ Me.TableLayoutPanel3.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
+ Me.TableLayoutPanel3.ColumnCount = 4
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel3, 3)
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 27.0!))
+ Me.TableLayoutPanel3.Controls.Add(Me.Label1, 0, 0)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label2, 1, 1)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label3, 1, 2)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label4, 1, 3)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label5, 1, 4)
+ Me.TableLayoutPanel3.Controls.Add(Me.edSerwerSrc, 2, 1)
+ Me.TableLayoutPanel3.Controls.Add(Me.edBazaSrc, 2, 2)
+ Me.TableLayoutPanel3.Controls.Add(Me.edUserSrc, 2, 3)
+ Me.TableLayoutPanel3.Controls.Add(Me.edPassSrc, 2, 4)
+ Me.TableLayoutPanel3.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel3.Location = New System.Drawing.Point(3, 3)
+ Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
+ Me.TableLayoutPanel3.RowCount = 5
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel3.Size = New System.Drawing.Size(429, 144)
+ Me.TableLayoutPanel3.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.TableLayoutPanel3.SetColumnSpan(Me.Label1, 4)
+ Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label1.Location = New System.Drawing.Point(5, 2)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(419, 26)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Połączenie do bazy źródłowej"
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label2
+ '
+ Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label2.Location = New System.Drawing.Point(27, 30)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(180, 26)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Serwer SQL"
+ Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label3.Location = New System.Drawing.Point(27, 58)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(180, 26)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "baza danych"
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label4
+ '
+ Me.Label4.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label4.Location = New System.Drawing.Point(27, 86)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(180, 26)
+ Me.Label4.TabIndex = 3
+ Me.Label4.Text = "użytkownik"
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label5
+ '
+ Me.Label5.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label5.Location = New System.Drawing.Point(27, 114)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(180, 28)
+ Me.Label5.TabIndex = 4
+ Me.Label5.Text = "hasło"
+ Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'edSerwerSrc
+ '
+ Me.edSerwerSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edSerwerSrc.Location = New System.Drawing.Point(215, 33)
+ Me.edSerwerSrc.Name = "edSerwerSrc"
+ Me.edSerwerSrc.Size = New System.Drawing.Size(180, 20)
+ Me.edSerwerSrc.TabIndex = 5
+ '
+ 'edBazaSrc
+ '
+ Me.edBazaSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edBazaSrc.Location = New System.Drawing.Point(215, 61)
+ Me.edBazaSrc.Name = "edBazaSrc"
+ Me.edBazaSrc.Size = New System.Drawing.Size(180, 20)
+ Me.edBazaSrc.TabIndex = 6
+ '
+ 'edUserSrc
+ '
+ Me.edUserSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edUserSrc.Location = New System.Drawing.Point(215, 89)
+ Me.edUserSrc.Name = "edUserSrc"
+ Me.edUserSrc.Size = New System.Drawing.Size(180, 20)
+ Me.edUserSrc.TabIndex = 7
+ Me.edUserSrc.UseSystemPasswordChar = True
+ '
+ 'edPassSrc
+ '
+ Me.edPassSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edPassSrc.Location = New System.Drawing.Point(215, 117)
+ Me.edPassSrc.Name = "edPassSrc"
+ Me.edPassSrc.Size = New System.Drawing.Size(180, 20)
+ Me.edPassSrc.TabIndex = 8
+ Me.edPassSrc.UseSystemPasswordChar = True
+ '
+ 'TableLayoutPanel5
+ '
+ Me.TableLayoutPanel5.ColumnCount = 2
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel5, 2)
+ Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 32.61649!))
+ Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.38351!))
+ Me.TableLayoutPanel5.Controls.Add(Me.Label11, 0, 0)
+ Me.TableLayoutPanel5.Controls.Add(Me.Label12, 0, 1)
+ Me.TableLayoutPanel5.Controls.Add(Me.edHASPServer, 1, 0)
+ Me.TableLayoutPanel5.Controls.Add(Me.edWorkingDir, 1, 1)
+ Me.TableLayoutPanel5.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel5.Location = New System.Drawing.Point(3, 246)
+ Me.TableLayoutPanel5.Name = "TableLayoutPanel5"
+ Me.TableLayoutPanel5.RowCount = 2
+ Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel5.Size = New System.Drawing.Size(279, 53)
+ Me.TableLayoutPanel5.TabIndex = 3
+ '
+ 'Label11
+ '
+ Me.Label11.AutoSize = True
+ Me.Label11.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label11.Location = New System.Drawing.Point(3, 0)
+ Me.Label11.Name = "Label11"
+ Me.Label11.Size = New System.Drawing.Size(85, 26)
+ Me.Label11.TabIndex = 0
+ Me.Label11.Text = "Serwer klucza"
+ Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ '
+ 'Label12
+ '
+ Me.Label12.AutoSize = True
+ Me.Label12.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label12.Location = New System.Drawing.Point(3, 26)
+ Me.Label12.Name = "Label12"
+ Me.Label12.Size = New System.Drawing.Size(85, 27)
+ Me.Label12.TabIndex = 1
+ Me.Label12.Text = "Katalog roboczy"
+ Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ '
+ 'edHASPServer
+ '
+ Me.edHASPServer.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edHASPServer.Location = New System.Drawing.Point(94, 3)
+ Me.edHASPServer.Name = "edHASPServer"
+ Me.edHASPServer.Size = New System.Drawing.Size(182, 20)
+ Me.edHASPServer.TabIndex = 2
+ Me.edHASPServer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'edWorkingDir
+ '
+ Me.edWorkingDir.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edWorkingDir.Location = New System.Drawing.Point(94, 29)
+ Me.edWorkingDir.Name = "edWorkingDir"
+ Me.edWorkingDir.Size = New System.Drawing.Size(182, 20)
+ Me.edWorkingDir.TabIndex = 3
+ Me.edWorkingDir.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'Label7
+ '
+ Me.Label7.AutoSize = True
+ Me.Label7.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label7.Location = New System.Drawing.Point(27, 30)
+ Me.Label7.Name = "Label7"
+ Me.Label7.Size = New System.Drawing.Size(180, 26)
+ Me.Label7.TabIndex = 11
+ Me.Label7.Text = "Nazwa bazy"
+ Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'edBazaDst
+ '
+ Me.edBazaDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edBazaDst.Location = New System.Drawing.Point(215, 33)
+ Me.edBazaDst.Name = "edBazaDst"
+ Me.edBazaDst.Size = New System.Drawing.Size(180, 20)
+ Me.edBazaDst.TabIndex = 12
+ '
+ 'dlgKonfig
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 340)
+ Me.Controls.Add(Me.TableLayoutPanel2)
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgKonfig"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Konfiguracja programu"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TableLayoutPanel2.ResumeLayout(False)
+ Me.TableLayoutPanel4.ResumeLayout(False)
+ Me.TableLayoutPanel4.PerformLayout()
+ Me.TableLayoutPanel3.ResumeLayout(False)
+ Me.TableLayoutPanel3.PerformLayout()
+ Me.TableLayoutPanel5.ResumeLayout(False)
+ Me.TableLayoutPanel5.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+ Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
+ Friend WithEvents Label1 As Label
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label3 As Label
+ Friend WithEvents Label4 As Label
+ Friend WithEvents Label5 As Label
+ Friend WithEvents edSerwerSrc As TextBox
+ Friend WithEvents edBazaSrc As TextBox
+ Friend WithEvents edUserSrc As TextBox
+ Friend WithEvents edPassSrc As TextBox
+ Friend WithEvents TableLayoutPanel4 As TableLayoutPanel
+ Friend WithEvents Label6 As Label
+ Friend WithEvents TableLayoutPanel5 As TableLayoutPanel
+ Friend WithEvents Label11 As Label
+ Friend WithEvents Label12 As Label
+ Friend WithEvents edHASPServer As TextBox
+ Friend WithEvents edWorkingDir As TextBox
+ Friend WithEvents Label13 As Label
+ Friend WithEvents EdDziennik As TextBox
+ Friend WithEvents Label7 As Label
+ Friend WithEvents edBazaDst As TextBox
+End Class
diff --git a/.svn/pristine/58/58ff200a6bcefadf46ab37d20cf36c5060571ac9.svn-base b/.svn/pristine/58/58ff200a6bcefadf46ab37d20cf36c5060571ac9.svn-base
new file mode 100644
index 0000000..dece86e
--- /dev/null
+++ b/.svn/pristine/58/58ff200a6bcefadf46ab37d20cf36c5060571ac9.svn-base
@@ -0,0 +1,841 @@
+"DeployProject"
+{
+"VSVersion" = "3:800"
+"ProjectType" = "8:{978C614F-708E-4E1A-B201-565925725DBA}"
+"IsWebType" = "8:FALSE"
+"ProjectName" = "8:Instalator"
+"LanguageId" = "3:1045"
+"CodePage" = "3:1250"
+"UILanguageId" = "3:1045"
+"SccProjectName" = "8:"
+"SccLocalPath" = "8:"
+"SccAuxPath" = "8:"
+"SccProvider" = "8:"
+"BackwardsCompatibleGUIDGeneration" = "8:TRUE"
+ "Hierarchy"
+ {
+ "Entry"
+ {
+ "MsmKey" = "8:_1261A000F60614DCC4F562C3317AE5CA"
+ "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "OwnerKey" = "8:_UNDEFINED"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_49788B1BF43C40538D55DF85500AFDB9"
+ "OwnerKey" = "8:_UNDEFINED"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ "Entry"
+ {
+ "MsmKey" = "8:_UNDEFINED"
+ "OwnerKey" = "8:_1261A000F60614DCC4F562C3317AE5CA"
+ "MsmSig" = "8:_UNDEFINED"
+ }
+ }
+ "Configurations"
+ {
+ "Debug"
+ {
+ "DisplayName" = "8:Debug"
+ "IsDebugOnly" = "11:TRUE"
+ "IsReleaseOnly" = "11:FALSE"
+ "OutputFilename" = "8:Debug\\Instalator.msi"
+ "PackageFilesAs" = "3:2"
+ "PackageFileSize" = "3:-2147483648"
+ "CabType" = "3:1"
+ "Compression" = "3:2"
+ "SignOutput" = "11:FALSE"
+ "CertificateFile" = "8:"
+ "PrivateKeyFile" = "8:"
+ "TimeStampServer" = "8:"
+ "InstallerBootstrapper" = "3:2"
+ "BootstrapperCfg:{63ACBE69-63AA-4F98-B2B6-99F9E24495F2}"
+ {
+ "Enabled" = "11:TRUE"
+ "PromptEnabled" = "11:TRUE"
+ "PrerequisitesLocation" = "2:1"
+ "Url" = "8:"
+ "ComponentsUrl" = "8:"
+ "Items"
+ {
+ "{EDC2488A-8267-493A-A98E-7D9C3B36CDF3}:Microsoft.Net.Framework.3.5.SP1"
+ {
+ "Name" = "8:.NET Framework 3.5 SP1"
+ "ProductCode" = "8:Microsoft.Net.Framework.3.5.SP1"
+ }
+ }
+ }
+ }
+ "Release"
+ {
+ "DisplayName" = "8:Release"
+ "IsDebugOnly" = "11:FALSE"
+ "IsReleaseOnly" = "11:TRUE"
+ "OutputFilename" = "8:Release\\Instalator.msi"
+ "PackageFilesAs" = "3:2"
+ "PackageFileSize" = "3:-2147483648"
+ "CabType" = "3:1"
+ "Compression" = "3:2"
+ "SignOutput" = "11:FALSE"
+ "CertificateFile" = "8:"
+ "PrivateKeyFile" = "8:"
+ "TimeStampServer" = "8:"
+ "InstallerBootstrapper" = "3:2"
+ "BootstrapperCfg:{63ACBE69-63AA-4F98-B2B6-99F9E24495F2}"
+ {
+ "Enabled" = "11:TRUE"
+ "PromptEnabled" = "11:TRUE"
+ "PrerequisitesLocation" = "2:1"
+ "Url" = "8:"
+ "ComponentsUrl" = "8:"
+ "Items"
+ {
+ "{EDC2488A-8267-493A-A98E-7D9C3B36CDF3}:.NETFramework,Version=v4.6.1"
+ {
+ "Name" = "8:Microsoft .NET Framework 4.6.1 (x86 and x64)"
+ "ProductCode" = "8:.NETFramework,Version=v4.6.1"
+ }
+ }
+ }
+ }
+ }
+ "Deployable"
+ {
+ "CustomAction"
+ {
+ }
+ "DefaultFeature"
+ {
+ "Name" = "8:DefaultFeature"
+ "Title" = "8:"
+ "Description" = "8:"
+ }
+ "ExternalPersistence"
+ {
+ "LaunchCondition"
+ {
+ "{A06ECF26-33A3-4562-8140-9B0E340D4F24}:_68E9A4974B7347D6B68EBF2B3A14C7BA"
+ {
+ "Name" = "8:.NET Framework"
+ "Message" = "8:[VSDNETMSG]"
+ "FrameworkVersion" = "8:.NETFramework,Version=v4.0"
+ "AllowLaterVersions" = "11:FALSE"
+ "InstallUrl" = "8:http://go.microsoft.com/fwlink/?LinkId=671728"
+ }
+ }
+ }
+ "File"
+ {
+ "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_1261A000F60614DCC4F562C3317AE5CA"
+ {
+ "AssemblyRegister" = "3:1"
+ "AssemblyIsInGAC" = "11:FALSE"
+ "AssemblyAsmDisplayName" = "8:cdn_api20193.net, Version=2019.3.0.0, Culture=neutral, PublicKeyToken=5179454a0b814fab, processorArchitecture=x86"
+ "ScatterAssemblies"
+ {
+ "_1261A000F60614DCC4F562C3317AE5CA"
+ {
+ "Name" = "8:cdn_api20193.net.dll"
+ "Attributes" = "3:512"
+ }
+ }
+ "SourcePath" = "8:cdn_api20193.net.dll"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:TRUE"
+ "IsolateTo" = "8:"
+ }
+ "{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_49788B1BF43C40538D55DF85500AFDB9"
+ {
+ "SourcePath" = "8:..\\ImportDokMag\\cab.ico"
+ "TargetName" = "8:cab.ico"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ }
+ }
+ "FileType"
+ {
+ }
+ "Folder"
+ {
+ "{1525181F-901A-416C-8A58-119130FE478E}:_0E2A769A3BDC48F2B395EBE23FF897DE"
+ {
+ "Name" = "8:#1919"
+ "AlwaysCreate" = "11:FALSE"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Property" = "8:ProgramMenuFolder"
+ "Folders"
+ {
+ }
+ }
+ "{1525181F-901A-416C-8A58-119130FE478E}:_35C2D5FD2F5942BD81B83EB09E3DA2E6"
+ {
+ "Name" = "8:#1916"
+ "AlwaysCreate" = "11:FALSE"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Property" = "8:DesktopFolder"
+ "Folders"
+ {
+ }
+ }
+ "{3C67513D-01DD-4637-8A68-80971EB9504F}:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ {
+ "DefaultLocation" = "8:[ProgramFilesFolder][Manufacturer]\\[ProductName]"
+ "Name" = "8:#1925"
+ "AlwaysCreate" = "11:FALSE"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Property" = "8:TARGETDIR"
+ "Folders"
+ {
+ }
+ }
+ }
+ "LaunchCondition"
+ {
+ }
+ "Locator"
+ {
+ }
+ "MsiBootstrapper"
+ {
+ "LangId" = "3:1045"
+ "RequiresElevation" = "11:FALSE"
+ }
+ "Product"
+ {
+ "Name" = "8:Microsoft Visual Studio"
+ "ProductName" = "8:ImportDokMag"
+ "ProductCode" = "8:{C1C7C7F2-F7E5-4A19-B4DD-F40A170381A2}"
+ "PackageCode" = "8:{FE72409C-5862-47E1-A72C-2EBC3A11D20F}"
+ "UpgradeCode" = "8:{E007770B-8123-40D0-A07D-1E6CFEBE903D}"
+ "AspNetVersion" = "8:2.0.50727.0"
+ "RestartWWWService" = "11:FALSE"
+ "RemovePreviousVersions" = "11:TRUE"
+ "DetectNewerInstalledVersion" = "11:TRUE"
+ "InstallAllUsers" = "11:TRUE"
+ "ProductVersion" = "8:1.4.0"
+ "Manufacturer" = "8:myCONSULT SP. z o. o."
+ "ARPHELPTELEPHONE" = "8:"
+ "ARPHELPLINK" = "8:"
+ "Title" = "8:Instalator programu ImportDokMag"
+ "Subject" = "8:"
+ "ARPCONTACT" = "8:Krzysztof Czapliński"
+ "Keywords" = "8:"
+ "ARPCOMMENTS" = "8:Program do importu dekretów dokumnetów magazynowych"
+ "ARPURLINFOABOUT" = "8:www.myconsult.com.pl"
+ "ARPPRODUCTICON" = "8:_49788B1BF43C40538D55DF85500AFDB9"
+ "ARPIconIndex" = "3:0"
+ "SearchPath" = "8:"
+ "UseSystemSearchPath" = "11:TRUE"
+ "TargetPlatform" = "3:0"
+ "PreBuildEvent" = "8:"
+ "PostBuildEvent" = "8:"
+ "RunPostBuildEvent" = "3:0"
+ }
+ "Registry"
+ {
+ "HKLM"
+ {
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_14A5D4D1DAF74AB1B116EF6D64D465B8"
+ {
+ "Name" = "8:Software"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_3D3B378B7D6443379A137B227B2CF8E3"
+ {
+ "Name" = "8:[Manufacturer]"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ }
+ "HKCU"
+ {
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_183C92BC953A43BBAC0FC1D320E8407E"
+ {
+ "Name" = "8:Software"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ "{60EA8692-D2D5-43EB-80DC-7906BF13D6EF}:_4E43A27CB157418DB3CEA9E3FC6705B4"
+ {
+ "Name" = "8:[Manufacturer]"
+ "Condition" = "8:"
+ "AlwaysCreate" = "11:FALSE"
+ "DeleteAtUninstall" = "11:FALSE"
+ "Transitive" = "11:FALSE"
+ "Keys"
+ {
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ "Values"
+ {
+ }
+ }
+ }
+ }
+ "HKCR"
+ {
+ "Keys"
+ {
+ }
+ }
+ "HKU"
+ {
+ "Keys"
+ {
+ }
+ }
+ "HKPU"
+ {
+ "Keys"
+ {
+ }
+ }
+ }
+ "Sequences"
+ {
+ }
+ "Shortcut"
+ {
+ "{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_7AC3C26AE5054D769B2CD49356336C7C"
+ {
+ "Name" = "8:ImportDokMag"
+ "Arguments" = "8:"
+ "Description" = "8:"
+ "ShowCmd" = "3:1"
+ "IconIndex" = "3:0"
+ "Transitive" = "11:FALSE"
+ "Target" = "8:_370DEE148AAB42D7A584CF9661EBF4CF"
+ "Folder" = "8:_0E2A769A3BDC48F2B395EBE23FF897DE"
+ "WorkingFolder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Icon" = "8:"
+ "Feature" = "8:"
+ }
+ }
+ "UserInterface"
+ {
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_2C138F37321C45B8BC863887B265E74D"
+ {
+ "Name" = "8:#1902"
+ "Sequence" = "3:2"
+ "Attributes" = "3:3"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_051D8F80CA62431B88D19FCF6F8DDCCA"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zakończono"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminFinishedDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_3857FBBA21254D9196B7BB3782E5F1CC"
+ {
+ "Name" = "8:#1900"
+ "Sequence" = "3:1"
+ "Attributes" = "3:1"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_233F85456C1F46408B1FF52CE2A3333C"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zapraszamy"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdWelcomeDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "CopyrightWarning"
+ {
+ "Name" = "8:CopyrightWarning"
+ "DisplayName" = "8:#1002"
+ "Description" = "8:#1102"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1202"
+ "DefaultValue" = "8:#1202"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "Welcome"
+ {
+ "Name" = "8:Welcome"
+ "DisplayName" = "8:#1003"
+ "Description" = "8:#1103"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1203"
+ "DefaultValue" = "8:#1203"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_366756F4B2114C36AD1714833DF81439"
+ {
+ "Sequence" = "3:200"
+ "DisplayName" = "8:Folder instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdFolderDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "InstallAllUsersVisible"
+ {
+ "Name" = "8:InstallAllUsersVisible"
+ "DisplayName" = "8:#1059"
+ "Description" = "8:#1159"
+ "Type" = "3:5"
+ "ContextData" = "8:1;True=1;False=0"
+ "Attributes" = "3:0"
+ "Setting" = "3:0"
+ "Value" = "3:1"
+ "DefaultValue" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_E8553CE9C9F444AC85EDBE110A18A0C0"
+ {
+ "Sequence" = "3:300"
+ "DisplayName" = "8:Potwierdzanie instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdConfirmDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_49D1ABE51EB349C2BB84363C2AC4E50C"
+ {
+ "UseDynamicProperties" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdUserInterface.wim"
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_5CF09CEF61F84E599FFA1A0D5AEDFC2E"
+ {
+ "Name" = "8:#1901"
+ "Sequence" = "3:1"
+ "Attributes" = "3:2"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_C52AA13216134FAF9E4C64657856B7A7"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Postęp"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdProgressDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "ShowProgress"
+ {
+ "Name" = "8:ShowProgress"
+ "DisplayName" = "8:#1009"
+ "Description" = "8:#1109"
+ "Type" = "3:5"
+ "ContextData" = "8:1;True=1;False=0"
+ "Attributes" = "3:0"
+ "Setting" = "3:0"
+ "Value" = "3:1"
+ "DefaultValue" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_7D365393285F4299AEA6C715E85E5BD9"
+ {
+ "Name" = "8:#1902"
+ "Sequence" = "3:1"
+ "Attributes" = "3:3"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_5875D34493A9488185B0387EB232B28D"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zakończono"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdFinishedDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "UpdateText"
+ {
+ "Name" = "8:UpdateText"
+ "DisplayName" = "8:#1058"
+ "Description" = "8:#1158"
+ "Type" = "3:15"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1258"
+ "DefaultValue" = "8:#1258"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_A73298DE647C48F2907A88BC23802AF2"
+ {
+ "Name" = "8:#1901"
+ "Sequence" = "3:2"
+ "Attributes" = "3:2"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_371A5E2D3B5341F88171D2A6E48C489F"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Postęp"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminProgressDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "ShowProgress"
+ {
+ "Name" = "8:ShowProgress"
+ "DisplayName" = "8:#1009"
+ "Description" = "8:#1109"
+ "Type" = "3:5"
+ "ContextData" = "8:1;True=1;False=0"
+ "Attributes" = "3:0"
+ "Setting" = "3:0"
+ "Value" = "3:1"
+ "DefaultValue" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{DF760B10-853B-4699-99F2-AFF7185B4A62}:_E874B98968404660B16B15E8077B602A"
+ {
+ "Name" = "8:#1900"
+ "Sequence" = "3:2"
+ "Attributes" = "3:1"
+ "Dialogs"
+ {
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_68269945CB70415F9DFD6F37F3D7F324"
+ {
+ "Sequence" = "3:200"
+ "DisplayName" = "8:Folder instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminFolderDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_92540D7DEBF24D2A812120C019FA72BD"
+ {
+ "Sequence" = "3:100"
+ "DisplayName" = "8:Zapraszamy"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminWelcomeDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "CopyrightWarning"
+ {
+ "Name" = "8:CopyrightWarning"
+ "DisplayName" = "8:#1002"
+ "Description" = "8:#1102"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1202"
+ "DefaultValue" = "8:#1202"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ "Welcome"
+ {
+ "Name" = "8:Welcome"
+ "DisplayName" = "8:#1003"
+ "Description" = "8:#1103"
+ "Type" = "3:3"
+ "ContextData" = "8:"
+ "Attributes" = "3:0"
+ "Setting" = "3:1"
+ "Value" = "8:#1203"
+ "DefaultValue" = "8:#1203"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ "{688940B3-5CA9-4162-8DEE-2993FA9D8CBC}:_A4C42942C8AC4E639F27164F9206430F"
+ {
+ "Sequence" = "3:300"
+ "DisplayName" = "8:Potwierdzanie instalacji"
+ "UseDynamicProperties" = "11:TRUE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdAdminConfirmDlg.wid"
+ "Properties"
+ {
+ "BannerBitmap"
+ {
+ "Name" = "8:BannerBitmap"
+ "DisplayName" = "8:#1001"
+ "Description" = "8:#1101"
+ "Type" = "3:8"
+ "ContextData" = "8:Bitmap"
+ "Attributes" = "3:4"
+ "Setting" = "3:1"
+ "UsePlugInResources" = "11:TRUE"
+ }
+ }
+ }
+ }
+ }
+ "{2479F3F5-0309-486D-8047-8187E2CE5BA0}:_F0DF71F431A741539E005077697AEE17"
+ {
+ "UseDynamicProperties" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "SourcePath" = "8:\\VsdBasicDialogs.wim"
+ }
+ }
+ "MergeModule"
+ {
+ }
+ "ProjectOutput"
+ {
+ "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_06B783810FB84C86A4F04496ABE6D3FB"
+ {
+ "SourcePath" = "8:"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ "ProjectOutputGroupRegister" = "3:1"
+ "OutputConfiguration" = "8:"
+ "OutputGroupCanonicalName" = "8:ReferenceCopyLocalPaths"
+ "OutputProjectGuid" = "8:{ACEDBC4B-04AD-423D-B0D7-B930B9998493}"
+ "ShowKeyOutput" = "11:TRUE"
+ "ExcludeFilters"
+ {
+ }
+ }
+ "{5259A561-127C-4D43-A0A1-72F10C7B3BF8}:_370DEE148AAB42D7A584CF9661EBF4CF"
+ {
+ "SourcePath" = "8:..\\ImportDokMag\\obj\\x86\\Debug\\ImportDokMag.exe"
+ "TargetName" = "8:"
+ "Tag" = "8:"
+ "Folder" = "8:_50871440B64A4B20B1CD74CFDF9CA7F9"
+ "Condition" = "8:"
+ "Transitive" = "11:FALSE"
+ "Vital" = "11:TRUE"
+ "ReadOnly" = "11:FALSE"
+ "Hidden" = "11:FALSE"
+ "System" = "11:FALSE"
+ "Permanent" = "11:FALSE"
+ "SharedLegacy" = "11:FALSE"
+ "PackageAs" = "3:1"
+ "Register" = "3:1"
+ "Exclude" = "11:FALSE"
+ "IsDependency" = "11:FALSE"
+ "IsolateTo" = "8:"
+ "ProjectOutputGroupRegister" = "3:1"
+ "OutputConfiguration" = "8:"
+ "OutputGroupCanonicalName" = "8:Built"
+ "OutputProjectGuid" = "8:{ACEDBC4B-04AD-423D-B0D7-B930B9998493}"
+ "ShowKeyOutput" = "11:TRUE"
+ "ExcludeFilters"
+ {
+ }
+ }
+ }
+ }
+}
diff --git a/.svn/pristine/5a/5a550362b9a70d7608641c44bf71736bdf7964ca.svn-base b/.svn/pristine/5a/5a550362b9a70d7608641c44bf71736bdf7964ca.svn-base
new file mode 100644
index 0000000..e402ab0
--- /dev/null
+++ b/.svn/pristine/5a/5a550362b9a70d7608641c44bf71736bdf7964ca.svn-base
@@ -0,0 +1,41 @@
+
+
+
+
+
+ c:\temp
+
+
+ crisrog\sql17
+
+
+ MAGJ
+
+
+ 10.0.2.252\GOTECSQL2
+
+
+
+
+
+
+
+
+ CDNXL_GOTEC_J_BI
+
+
+
+
+
+ CDNXL_GOTEC_80
+
+
+ <?xml version="1.0" encoding="utf-16"?>
+<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+ <ConnectionString>Data Source=10.0.2.252\GOTECSQL2;Initial Catalog=CDNXL_GOTEC_J_BI;Persist Security Info=True;User ID=sa;Password=Cdn01;TrustServerCertificate=True</ConnectionString>
+ <ProviderName>Microsoft.Data.SqlClient</ProviderName>
+</SerializableConnectionString>
+ Data Source=10.0.2.252\GOTECSQL2;Initial Catalog=CDNXL_GOTEC_J_BI;Persist Security Info=True;User ID=sa;Password=Cdn01;TrustServerCertificate=True
+
+
+
\ No newline at end of file
diff --git a/.svn/pristine/5a/5a5bc8a4bf077692ba3ee6b58781fd3566d26cba.svn-base b/.svn/pristine/5a/5a5bc8a4bf077692ba3ee6b58781fd3566d26cba.svn-base
new file mode 100644
index 0000000..979f2b7
--- /dev/null
+++ b/.svn/pristine/5a/5a5bc8a4bf077692ba3ee6b58781fd3566d26cba.svn-base
@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+'
+' Ten kod został wygenerowany przez narzędzie.
+' Wersja wykonawcza:4.0.30319.42000
+'
+' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli
+' kod zostanie ponownie wygenerowany.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ 'UWAGA: Ten plik został wygenerowany automatycznie; nie należy go bezpośrednio modyfikować. Aby wprowadzić zmiany
+ ' lub jeśli napotkasz w tym pliku błędy kompilacji, przejdź do Projektanta projektu
+ ' (przejdź do obszaru Właściwości projektu lub kliknij dwukrotnie węzeł Mój Projekt w
+ ' Eksploratorze rozwiązań) i wprowadź zmiany na karcie Aplikacja.
+ '
+ Partial Friend Class MyApplication
+
+ _
+ Public Sub New()
+ MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+ Me.IsSingleInstance = false
+ Me.EnableVisualStyles = true
+ Me.SaveMySettingsOnExit = true
+ Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+ End Sub
+
+ _
+ Protected Overrides Sub OnCreateMainForm()
+ Me.MainForm = Global.ImportDokMag.MainFrm
+ End Sub
+ End Class
+End Namespace
diff --git a/.svn/pristine/5d/5d16a0f6862795b4d2955dcbb2e29c8256af85d9.svn-base b/.svn/pristine/5d/5d16a0f6862795b4d2955dcbb2e29c8256af85d9.svn-base
new file mode 100644
index 0000000..3c7bbf9
--- /dev/null
+++ b/.svn/pristine/5d/5d16a0f6862795b4d2955dcbb2e29c8256af85d9.svn-base
@@ -0,0 +1,64 @@
+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 - uwzgldnia WZ, WZE i ich korekty
+ @ZAK int, -- 1 - uwzgldnia PZ, PZI i ich korekty
+ @WEW int, -- 1 - uwzgldnia RW, PW i ich korekty
+ @RM int, -- TrN_RokMiesiac
+ @Rok int, -- Rok
+ @Miesiac int -- Miesic
+)
+AS
+ SET NOCOUNT ON;
+
+ declare @TN table(Dokument varchar(255), RokMiesiac int, TrN_GIDTyp int, TrN_GIDNumer int, TrN_Zaksiegowano int, DataDok int)
+ declare @DEB table(DT_GIDNumer int, DT_GIDLp int, DT_DC int, DT_Konto varchar(50), DT_Kwota decimal(21,2), DT_DataCentrali int)
+ declare @CRE table(DT_GIDNumer int, DT_GIDLp int, DT_DC int, DT_Konto varchar(50), DT_Kwota decimal(21,2), DT_DataCentrali int)
+ 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
+ from (select TrN_GIDTyp, TrN_GIDNumer, TrN_RokMiesiac, TrN_Zaksiegowano, TrN_Data3 from CDN.TraNag
+ 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 2009 then 1 when 2015 then 1 when 2013 then 1 else 0 end else 0 end > 0)) TTT
+ 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_Rok = @Rok and DT_Miesiac = @Miesiac
+ 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_Rok = @Rok and DT_Miesiac = @Miesiac
+
+ select Lp = ROW_NUMBER() OVER(ORDER BY Dokument, deb.DT_Konto, cre.DT_Konto),
+ Dokument,
+ DEL_Opis,
+ RokMiesiac,
+ DataWyst = CDN.TsToDate(CDN.Data(DZK_Rok, DZK_Miesiac, DZK_Dzien), 0),
+ DataOper = CDN.TsToDate(DataDok, 0),
+ DokZr = DZK_DokumentZrodlowy,
+ TrN_GIDNumer,
+ Dekret = DZK_GIDNumer,
+ DZK_Dziennik,
+ Konto_Wn = deb.DT_Konto,
+ Kwota_Wn = deb.DT_Kwota,
+ Konto_Ma = cre.DT_Konto,
+ Kwota_Ma = cre.DT_Kwota,
+ DataImportu = CDN.TsToDate(deb.DT_DataCentrali, 1),
+ DZK_SumaCT,
+ DZK_SumaDT
+ from @TN inner join CDN.Dziennik on substring(DZK_Opis, 1, len(Dokument)) = Dokument and DZK_Rok = @Rok and DZK_Miesiac = @Miesiac
+ 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
+ order by 1
+
+
+ GO
+
+GRANT execute ON CDN.my_ImpDM_Src TO CDNRaport
+GO
diff --git a/.svn/pristine/5e/5e12654c8f6ae67f9415eaf83fd109cdd22176e8.svn-base b/.svn/pristine/5e/5e12654c8f6ae67f9415eaf83fd109cdd22176e8.svn-base
new file mode 100644
index 0000000..5f13224
--- /dev/null
+++ b/.svn/pristine/5e/5e12654c8f6ae67f9415eaf83fd109cdd22176e8.svn-base
@@ -0,0 +1,416 @@
+ _
+Partial Class dlgKonfig
+ Inherits System.Windows.Forms.Form
+
+ 'Formularz przesłania metodę dispose, aby wyczyścić listę składników.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wymagane przez Projektanta formularzy systemu Windows
+ Private components As System.ComponentModel.IContainer
+
+ 'UWAGA: następująca procedura jest wymagana przez Projektanta formularzy systemu Windows
+ 'Możesz to modyfikować, używając Projektanta formularzy systemu Windows.
+ 'Nie należy modyfikować za pomocą edytora kodu.
+ _
+ Private Sub InitializeComponent()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+ Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label6 = New System.Windows.Forms.Label()
+ Me.Label13 = New System.Windows.Forms.Label()
+ Me.EdSeria = New System.Windows.Forms.TextBox()
+ Me.Label7 = New System.Windows.Forms.Label()
+ Me.edBazaDst = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.edSerwerSrc = New System.Windows.Forms.TextBox()
+ Me.edBazaSrc = New System.Windows.Forms.TextBox()
+ Me.edUserSrc = New System.Windows.Forms.TextBox()
+ Me.edPassSrc = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel()
+ Me.Label11 = New System.Windows.Forms.Label()
+ Me.Label12 = New System.Windows.Forms.Label()
+ Me.edHASPServer = New System.Windows.Forms.TextBox()
+ Me.edWorkingDir = New System.Windows.Forms.TextBox()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.TableLayoutPanel2.SuspendLayout()
+ Me.TableLayoutPanel4.SuspendLayout()
+ Me.TableLayoutPanel3.SuspendLayout()
+ Me.TableLayoutPanel5.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(288, 305)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(144, 32)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.Location = New System.Drawing.Point(3, 4)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(66, 23)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Cancel_Button.Location = New System.Drawing.Point(75, 4)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(66, 23)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Anuluj"
+ '
+ 'TableLayoutPanel2
+ '
+ Me.TableLayoutPanel2.ColumnCount = 3
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 135.0!))
+ Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel4, 0, 1)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel1, 2, 3)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel3, 0, 0)
+ Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel5, 0, 2)
+ Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0)
+ Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+ Me.TableLayoutPanel2.RowCount = 4
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 93.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 59.0!))
+ Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 38.0!))
+ Me.TableLayoutPanel2.Size = New System.Drawing.Size(435, 340)
+ Me.TableLayoutPanel2.TabIndex = 1
+ '
+ 'TableLayoutPanel4
+ '
+ Me.TableLayoutPanel4.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
+ Me.TableLayoutPanel4.ColumnCount = 4
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel4, 3)
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 31.0!))
+ Me.TableLayoutPanel4.Controls.Add(Me.Label6, 0, 0)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label13, 1, 2)
+ Me.TableLayoutPanel4.Controls.Add(Me.EdSeria, 2, 2)
+ Me.TableLayoutPanel4.Controls.Add(Me.Label7, 1, 1)
+ Me.TableLayoutPanel4.Controls.Add(Me.edBazaDst, 2, 1)
+ Me.TableLayoutPanel4.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel4.Location = New System.Drawing.Point(3, 153)
+ Me.TableLayoutPanel4.Name = "TableLayoutPanel4"
+ Me.TableLayoutPanel4.RowCount = 3
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
+ Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
+ Me.TableLayoutPanel4.Size = New System.Drawing.Size(429, 87)
+ Me.TableLayoutPanel4.TabIndex = 2
+ '
+ 'Label6
+ '
+ Me.Label6.AutoSize = True
+ Me.TableLayoutPanel4.SetColumnSpan(Me.Label6, 4)
+ Me.Label6.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label6.Location = New System.Drawing.Point(5, 2)
+ Me.Label6.Name = "Label6"
+ Me.Label6.Size = New System.Drawing.Size(419, 26)
+ Me.Label6.TabIndex = 0
+ Me.Label6.Text = "Baza docelowa"
+ Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label13
+ '
+ Me.Label13.AutoSize = True
+ Me.Label13.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label13.Location = New System.Drawing.Point(27, 58)
+ Me.Label13.Name = "Label13"
+ Me.Label13.Size = New System.Drawing.Size(178, 27)
+ Me.Label13.TabIndex = 9
+ Me.Label13.Text = "Seria noty"
+ Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'EdSeria
+ '
+ Me.EdSeria.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.EdSeria.Location = New System.Drawing.Point(213, 61)
+ Me.EdSeria.Name = "EdSeria"
+ Me.EdSeria.Size = New System.Drawing.Size(178, 20)
+ Me.EdSeria.TabIndex = 10
+ '
+ 'Label7
+ '
+ Me.Label7.AutoSize = True
+ Me.Label7.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label7.Location = New System.Drawing.Point(27, 30)
+ Me.Label7.Name = "Label7"
+ Me.Label7.Size = New System.Drawing.Size(178, 26)
+ Me.Label7.TabIndex = 11
+ Me.Label7.Text = "Nazwa bazy"
+ Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'edBazaDst
+ '
+ Me.edBazaDst.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edBazaDst.Location = New System.Drawing.Point(213, 33)
+ Me.edBazaDst.Name = "edBazaDst"
+ Me.edBazaDst.Size = New System.Drawing.Size(178, 20)
+ Me.edBazaDst.TabIndex = 12
+ '
+ 'TableLayoutPanel3
+ '
+ Me.TableLayoutPanel3.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
+ Me.TableLayoutPanel3.ColumnCount = 4
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel3, 3)
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 31.0!))
+ Me.TableLayoutPanel3.Controls.Add(Me.Label1, 0, 0)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label2, 1, 1)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label3, 1, 2)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label4, 1, 3)
+ Me.TableLayoutPanel3.Controls.Add(Me.Label5, 1, 4)
+ Me.TableLayoutPanel3.Controls.Add(Me.edSerwerSrc, 2, 1)
+ Me.TableLayoutPanel3.Controls.Add(Me.edBazaSrc, 2, 2)
+ Me.TableLayoutPanel3.Controls.Add(Me.edUserSrc, 2, 3)
+ Me.TableLayoutPanel3.Controls.Add(Me.edPassSrc, 2, 4)
+ Me.TableLayoutPanel3.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel3.Location = New System.Drawing.Point(3, 3)
+ Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
+ Me.TableLayoutPanel3.RowCount = 5
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+ Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+ Me.TableLayoutPanel3.Size = New System.Drawing.Size(429, 144)
+ Me.TableLayoutPanel3.TabIndex = 1
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.TableLayoutPanel3.SetColumnSpan(Me.Label1, 4)
+ Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label1.Location = New System.Drawing.Point(5, 2)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(419, 26)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Połączenie do bazy źródłowej"
+ Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label2
+ '
+ Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label2.Location = New System.Drawing.Point(27, 30)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(178, 26)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Serwer SQL"
+ Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label3.Location = New System.Drawing.Point(27, 58)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(178, 26)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "baza danych"
+ Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label4
+ '
+ Me.Label4.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label4.Location = New System.Drawing.Point(27, 86)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(178, 26)
+ Me.Label4.TabIndex = 3
+ Me.Label4.Text = "użytkownik"
+ Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'Label5
+ '
+ Me.Label5.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label5.Location = New System.Drawing.Point(27, 114)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(178, 28)
+ Me.Label5.TabIndex = 4
+ Me.Label5.Text = "hasło"
+ Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+ '
+ 'edSerwerSrc
+ '
+ Me.edSerwerSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edSerwerSrc.Location = New System.Drawing.Point(213, 33)
+ Me.edSerwerSrc.Name = "edSerwerSrc"
+ Me.edSerwerSrc.Size = New System.Drawing.Size(178, 20)
+ Me.edSerwerSrc.TabIndex = 5
+ '
+ 'edBazaSrc
+ '
+ Me.edBazaSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edBazaSrc.Location = New System.Drawing.Point(213, 61)
+ Me.edBazaSrc.Name = "edBazaSrc"
+ Me.edBazaSrc.Size = New System.Drawing.Size(178, 20)
+ Me.edBazaSrc.TabIndex = 6
+ '
+ 'edUserSrc
+ '
+ Me.edUserSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edUserSrc.Location = New System.Drawing.Point(213, 89)
+ Me.edUserSrc.Name = "edUserSrc"
+ Me.edUserSrc.Size = New System.Drawing.Size(178, 20)
+ Me.edUserSrc.TabIndex = 7
+ Me.edUserSrc.UseSystemPasswordChar = True
+ '
+ 'edPassSrc
+ '
+ Me.edPassSrc.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edPassSrc.Location = New System.Drawing.Point(213, 117)
+ Me.edPassSrc.Name = "edPassSrc"
+ Me.edPassSrc.Size = New System.Drawing.Size(178, 20)
+ Me.edPassSrc.TabIndex = 8
+ Me.edPassSrc.UseSystemPasswordChar = True
+ '
+ 'TableLayoutPanel5
+ '
+ Me.TableLayoutPanel5.ColumnCount = 2
+ Me.TableLayoutPanel2.SetColumnSpan(Me.TableLayoutPanel5, 2)
+ Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 32.61649!))
+ Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.38351!))
+ Me.TableLayoutPanel5.Controls.Add(Me.Label11, 0, 0)
+ Me.TableLayoutPanel5.Controls.Add(Me.Label12, 0, 1)
+ Me.TableLayoutPanel5.Controls.Add(Me.edHASPServer, 1, 0)
+ Me.TableLayoutPanel5.Controls.Add(Me.edWorkingDir, 1, 1)
+ Me.TableLayoutPanel5.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.TableLayoutPanel5.Location = New System.Drawing.Point(3, 246)
+ Me.TableLayoutPanel5.Name = "TableLayoutPanel5"
+ Me.TableLayoutPanel5.RowCount = 2
+ Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel5.Size = New System.Drawing.Size(279, 53)
+ Me.TableLayoutPanel5.TabIndex = 3
+ '
+ 'Label11
+ '
+ Me.Label11.AutoSize = True
+ Me.Label11.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label11.Location = New System.Drawing.Point(3, 0)
+ Me.Label11.Name = "Label11"
+ Me.Label11.Size = New System.Drawing.Size(85, 26)
+ Me.Label11.TabIndex = 0
+ Me.Label11.Text = "Serwer klucza"
+ Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ '
+ 'Label12
+ '
+ Me.Label12.AutoSize = True
+ Me.Label12.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Label12.Location = New System.Drawing.Point(3, 26)
+ Me.Label12.Name = "Label12"
+ Me.Label12.Size = New System.Drawing.Size(85, 27)
+ Me.Label12.TabIndex = 1
+ Me.Label12.Text = "Katalog roboczy"
+ Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ '
+ 'edHASPServer
+ '
+ Me.edHASPServer.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edHASPServer.Location = New System.Drawing.Point(94, 3)
+ Me.edHASPServer.Name = "edHASPServer"
+ Me.edHASPServer.Size = New System.Drawing.Size(182, 20)
+ Me.edHASPServer.TabIndex = 2
+ Me.edHASPServer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'edWorkingDir
+ '
+ Me.edWorkingDir.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.edWorkingDir.Location = New System.Drawing.Point(94, 29)
+ Me.edWorkingDir.Name = "edWorkingDir"
+ Me.edWorkingDir.Size = New System.Drawing.Size(182, 20)
+ Me.edWorkingDir.TabIndex = 3
+ Me.edWorkingDir.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'dlgKonfig
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 340)
+ Me.Controls.Add(Me.TableLayoutPanel2)
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "dlgKonfig"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Konfiguracja programu"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.TableLayoutPanel2.ResumeLayout(False)
+ Me.TableLayoutPanel4.ResumeLayout(False)
+ Me.TableLayoutPanel4.PerformLayout()
+ Me.TableLayoutPanel3.ResumeLayout(False)
+ Me.TableLayoutPanel3.PerformLayout()
+ Me.TableLayoutPanel5.ResumeLayout(False)
+ Me.TableLayoutPanel5.PerformLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+ Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
+ Friend WithEvents Label1 As Label
+ Friend WithEvents Label2 As Label
+ Friend WithEvents Label3 As Label
+ Friend WithEvents Label4 As Label
+ Friend WithEvents Label5 As Label
+ Friend WithEvents edSerwerSrc As TextBox
+ Friend WithEvents edBazaSrc As TextBox
+ Friend WithEvents edUserSrc As TextBox
+ Friend WithEvents edPassSrc As TextBox
+ Friend WithEvents TableLayoutPanel4 As TableLayoutPanel
+ Friend WithEvents Label6 As Label
+ Friend WithEvents TableLayoutPanel5 As TableLayoutPanel
+ Friend WithEvents Label11 As Label
+ Friend WithEvents Label12 As Label
+ Friend WithEvents edHASPServer As TextBox
+ Friend WithEvents edWorkingDir As TextBox
+ Friend WithEvents Label13 As Label
+ Friend WithEvents EdSeria As TextBox
+ Friend WithEvents Label7 As Label
+ Friend WithEvents edBazaDst As TextBox
+End Class
diff --git a/.svn/pristine/60/607e7c2cd04aa515f9473ad955d3435088aefdfc.svn-base b/.svn/pristine/60/607e7c2cd04aa515f9473ad955d3435088aefdfc.svn-base
new file mode 100644
index 0000000..d5a3c88
--- /dev/null
+++ b/.svn/pristine/60/607e7c2cd04aa515f9473ad955d3435088aefdfc.svn-base
@@ -0,0 +1,2816 @@
+'------------------------------------------------------------------------------
+'
+' Ten kod został wygenerowany przez narzędzie.
+' Wersja wykonawcza:4.0.30319.42000
+'
+' Zmiany w tym pliku mogą spowodować nieprawidłowe zachowanie i zostaną utracone, jeśli
+' kod zostanie ponownie wygenerowany.
+'
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+
+
+'''
+'''Represents a strongly typed in-memory cache of data.
+'''
+ _
+Partial Public Class DsMain
+ Inherits Global.System.Data.DataSet
+
+ Private tableTbmy_ImpDM_Src As Tbmy_ImpDM_SrcDataTable
+
+ Private tableTbmy_ImpDM_Dekr As Tbmy_ImpDM_DekrDataTable
+
+ Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.BeginInit
+ Me.InitClass
+ Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+ AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
+ AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
+ Me.EndInit
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context, false)
+ If (Me.IsBinarySerialized(info, context) = true) Then
+ Me.InitVars(false)
+ Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+ AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
+ AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
+ Return
+ End If
+ Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
+ If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
+ Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
+ ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
+ If (Not (ds.Tables("Tbmy_ImpDM_Src")) Is Nothing) Then
+ MyBase.Tables.Add(New Tbmy_ImpDM_SrcDataTable(ds.Tables("Tbmy_ImpDM_Src")))
+ End If
+ If (Not (ds.Tables("Tbmy_ImpDM_Dekr")) Is Nothing) Then
+ MyBase.Tables.Add(New Tbmy_ImpDM_DekrDataTable(ds.Tables("Tbmy_ImpDM_Dekr")))
+ End If
+ Me.DataSetName = ds.DataSetName
+ Me.Prefix = ds.Prefix
+ Me.Namespace = ds.Namespace
+ Me.Locale = ds.Locale
+ Me.CaseSensitive = ds.CaseSensitive
+ Me.EnforceConstraints = ds.EnforceConstraints
+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
+ Me.InitVars
+ Else
+ Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
+ End If
+ Me.GetSerializationData(info, context)
+ Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+ AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
+ AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
+ End Sub
+
+ _
+ Public ReadOnly Property Tbmy_ImpDM_Src() As Tbmy_ImpDM_SrcDataTable
+ Get
+ Return Me.tableTbmy_ImpDM_Src
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Tbmy_ImpDM_Dekr() As Tbmy_ImpDM_DekrDataTable
+ Get
+ Return Me.tableTbmy_ImpDM_Dekr
+ End Get
+ End Property
+
+ _
+ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
+ Get
+ Return Me._schemaSerializationMode
+ End Get
+ Set
+ Me._schemaSerializationMode = value
+ End Set
+ End Property
+
+ _
+ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
+ Get
+ Return MyBase.Tables
+ End Get
+ End Property
+
+ _
+ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
+ Get
+ Return MyBase.Relations
+ End Get
+ End Property
+
+ _
+ Protected Overrides Sub InitializeDerivedDataSet()
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataSet
+ Dim cln As DsMain = CType(MyBase.Clone,DsMain)
+ cln.InitVars
+ cln.SchemaSerializationMode = Me.SchemaSerializationMode
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function ShouldSerializeTables() As Boolean
+ Return false
+ End Function
+
+ _
+ Protected Overrides Function ShouldSerializeRelations() As Boolean
+ Return false
+ End Function
+
+ _
+ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
+ If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
+ Me.Reset
+ Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
+ ds.ReadXml(reader)
+ If (Not (ds.Tables("Tbmy_ImpDM_Src")) Is Nothing) Then
+ MyBase.Tables.Add(New Tbmy_ImpDM_SrcDataTable(ds.Tables("Tbmy_ImpDM_Src")))
+ End If
+ If (Not (ds.Tables("Tbmy_ImpDM_Dekr")) Is Nothing) Then
+ MyBase.Tables.Add(New Tbmy_ImpDM_DekrDataTable(ds.Tables("Tbmy_ImpDM_Dekr")))
+ End If
+ Me.DataSetName = ds.DataSetName
+ Me.Prefix = ds.Prefix
+ Me.Namespace = ds.Namespace
+ Me.Locale = ds.Locale
+ Me.CaseSensitive = ds.CaseSensitive
+ Me.EnforceConstraints = ds.EnforceConstraints
+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
+ Me.InitVars
+ Else
+ Me.ReadXml(reader)
+ Me.InitVars
+ End If
+ End Sub
+
+ _
+ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
+ Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
+ stream.Position = 0
+ Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
+ End Function
+
+ _
+ Friend Overloads Sub InitVars()
+ Me.InitVars(true)
+ End Sub
+
+ _
+ Friend Overloads Sub InitVars(ByVal initTable As Boolean)
+ Me.tableTbmy_ImpDM_Src = CType(MyBase.Tables("Tbmy_ImpDM_Src"),Tbmy_ImpDM_SrcDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTbmy_ImpDM_Src) Is Nothing) Then
+ Me.tableTbmy_ImpDM_Src.InitVars
+ End If
+ End If
+ Me.tableTbmy_ImpDM_Dekr = CType(MyBase.Tables("Tbmy_ImpDM_Dekr"),Tbmy_ImpDM_DekrDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTbmy_ImpDM_Dekr) Is Nothing) Then
+ Me.tableTbmy_ImpDM_Dekr.InitVars
+ End If
+ End If
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.DataSetName = "DsMain"
+ Me.Prefix = ""
+ Me.Namespace = "http://tempuri.org/DsMain.xsd"
+ Me.EnforceConstraints = true
+ Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
+ Me.tableTbmy_ImpDM_Src = New Tbmy_ImpDM_SrcDataTable()
+ MyBase.Tables.Add(Me.tableTbmy_ImpDM_Src)
+ Me.tableTbmy_ImpDM_Dekr = New Tbmy_ImpDM_DekrDataTable()
+ MyBase.Tables.Add(Me.tableTbmy_ImpDM_Dekr)
+ End Sub
+
+ _
+ Private Function ShouldSerializeTbmy_ImpDM_Src() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTbmy_ImpDM_Dekr() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
+ If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
+ Me.InitVars
+ End If
+ End Sub
+
+ _
+ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim ds As DsMain = New DsMain()
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any.Namespace = ds.Namespace
+ sequence.Items.Add(any)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+
+ _
+ Public Delegate Sub Tbmy_ImpDM_SrcRowChangeEventHandler(ByVal sender As Object, ByVal e As Tbmy_ImpDM_SrcRowChangeEvent)
+
+ _
+ Public Delegate Sub Tbmy_ImpDM_DekrRowChangeEventHandler(ByVal sender As Object, ByVal e As Tbmy_ImpDM_DekrRowChangeEvent)
+
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class Tbmy_ImpDM_SrcDataTable
+ Inherits Global.System.Data.TypedTableBase(Of Tbmy_ImpDM_SrcRow)
+
+ Private columnLp As Global.System.Data.DataColumn
+
+ Private columnDokument As Global.System.Data.DataColumn
+
+ Private columnRokMiesiac As Global.System.Data.DataColumn
+
+ Private columnDataWyst As Global.System.Data.DataColumn
+
+ Private columnDataOper As Global.System.Data.DataColumn
+
+ Private columnDokZr As Global.System.Data.DataColumn
+
+ Private columnDekret As Global.System.Data.DataColumn
+
+ Private columnDZK_Dziennik As Global.System.Data.DataColumn
+
+ Private columnDataImportu As Global.System.Data.DataColumn
+
+ Private columnDZK_Opis As Global.System.Data.DataColumn
+
+ Private columnSumaCT As Global.System.Data.DataColumn
+
+ Private columnSumaDT As Global.System.Data.DataColumn
+
+ Private columnMagazyn As Global.System.Data.DataColumn
+
+ Private columnKontrahent As Global.System.Data.DataColumn
+
+ Private columnOpis As Global.System.Data.DataColumn
+
+ Private columnDokKoryg As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "Tbmy_ImpDM_Src"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
+ MyBase.New
+ Me.TableName = table.TableName
+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+ Me.CaseSensitive = table.CaseSensitive
+ End If
+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+ Me.Locale = table.Locale
+ End If
+ If (table.Namespace <> table.DataSet.Namespace) Then
+ Me.Namespace = table.Namespace
+ End If
+ Me.Prefix = table.Prefix
+ Me.MinimumCapacity = table.MinimumCapacity
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context)
+ Me.InitVars
+ End Sub
+
+ _
+ Public ReadOnly Property LpColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnLp
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DokumentColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDokument
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property RokMiesiacColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnRokMiesiac
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DataWystColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDataWyst
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DataOperColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDataOper
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DokZrColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDokZr
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DekretColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDekret
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DZK_DziennikColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDZK_Dziennik
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DataImportuColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDataImportu
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DZK_OpisColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDZK_Opis
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property SumaCTColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSumaCT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property SumaDTColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSumaDT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property MagazynColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnMagazyn
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property KontrahentColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnKontrahent
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property OpisColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnOpis
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DokKorygColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDokKoryg
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As Tbmy_ImpDM_SrcRow
+ Get
+ Return CType(Me.Rows(index),Tbmy_ImpDM_SrcRow)
+ End Get
+ End Property
+
+ _
+ Public Event Tbmy_ImpDM_SrcRowChanging As Tbmy_ImpDM_SrcRowChangeEventHandler
+
+ _
+ Public Event Tbmy_ImpDM_SrcRowChanged As Tbmy_ImpDM_SrcRowChangeEventHandler
+
+ _
+ Public Event Tbmy_ImpDM_SrcRowDeleting As Tbmy_ImpDM_SrcRowChangeEventHandler
+
+ _
+ Public Event Tbmy_ImpDM_SrcRowDeleted As Tbmy_ImpDM_SrcRowChangeEventHandler
+
+ _
+ Public Overloads Sub AddTbmy_ImpDM_SrcRow(ByVal row As Tbmy_ImpDM_SrcRow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddTbmy_ImpDM_SrcRow(ByVal Lp As Long, ByVal Dokument As String, ByVal RokMiesiac As Integer, ByVal DataWyst As Date, ByVal DataOper As Date, ByVal DokZr As String, ByVal DZK_Dziennik As String, ByVal DataImportu As Date, ByVal DZK_Opis As String, ByVal SumaCT As Decimal, ByVal SumaDT As Decimal, ByVal Magazyn As String, ByVal Kontrahent As String, ByVal Opis As String, ByVal DokKoryg As String) As Tbmy_ImpDM_SrcRow
+ Dim rowTbmy_ImpDM_SrcRow As Tbmy_ImpDM_SrcRow = CType(Me.NewRow,Tbmy_ImpDM_SrcRow)
+ Dim columnValuesArray() As Object = New Object() {Lp, Dokument, RokMiesiac, DataWyst, DataOper, DokZr, Nothing, DZK_Dziennik, DataImportu, DZK_Opis, SumaCT, SumaDT, Magazyn, Kontrahent, Opis, DokKoryg}
+ rowTbmy_ImpDM_SrcRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowTbmy_ImpDM_SrcRow)
+ Return rowTbmy_ImpDM_SrcRow
+ End Function
+
+ _
+ Public Function FindByLp(ByVal Lp As Long) As Tbmy_ImpDM_SrcRow
+ Return CType(Me.Rows.Find(New Object() {Lp}),Tbmy_ImpDM_SrcRow)
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As Tbmy_ImpDM_SrcDataTable = CType(MyBase.Clone,Tbmy_ImpDM_SrcDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New Tbmy_ImpDM_SrcDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnLp = MyBase.Columns("Lp")
+ Me.columnDokument = MyBase.Columns("Dokument")
+ Me.columnRokMiesiac = MyBase.Columns("RokMiesiac")
+ Me.columnDataWyst = MyBase.Columns("DataWyst")
+ Me.columnDataOper = MyBase.Columns("DataOper")
+ Me.columnDokZr = MyBase.Columns("DokZr")
+ Me.columnDekret = MyBase.Columns("Dekret")
+ Me.columnDZK_Dziennik = MyBase.Columns("DZK_Dziennik")
+ Me.columnDataImportu = MyBase.Columns("DataImportu")
+ Me.columnDZK_Opis = MyBase.Columns("DZK_Opis")
+ Me.columnSumaCT = MyBase.Columns("SumaCT")
+ Me.columnSumaDT = MyBase.Columns("SumaDT")
+ Me.columnMagazyn = MyBase.Columns("Magazyn")
+ Me.columnKontrahent = MyBase.Columns("Kontrahent")
+ Me.columnOpis = MyBase.Columns("Opis")
+ Me.columnDokKoryg = MyBase.Columns("DokKoryg")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnLp = New Global.System.Data.DataColumn("Lp", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnLp)
+ Me.columnDokument = New Global.System.Data.DataColumn("Dokument", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDokument)
+ Me.columnRokMiesiac = New Global.System.Data.DataColumn("RokMiesiac", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnRokMiesiac)
+ Me.columnDataWyst = New Global.System.Data.DataColumn("DataWyst", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDataWyst)
+ Me.columnDataOper = New Global.System.Data.DataColumn("DataOper", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDataOper)
+ Me.columnDokZr = New Global.System.Data.DataColumn("DokZr", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDokZr)
+ Me.columnDekret = New Global.System.Data.DataColumn("Dekret", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDekret)
+ Me.columnDZK_Dziennik = New Global.System.Data.DataColumn("DZK_Dziennik", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDZK_Dziennik)
+ Me.columnDataImportu = New Global.System.Data.DataColumn("DataImportu", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDataImportu)
+ Me.columnDZK_Opis = New Global.System.Data.DataColumn("DZK_Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDZK_Opis)
+ Me.columnSumaCT = New Global.System.Data.DataColumn("SumaCT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnSumaCT)
+ Me.columnSumaDT = New Global.System.Data.DataColumn("SumaDT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnSumaDT)
+ Me.columnMagazyn = New Global.System.Data.DataColumn("Magazyn", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnMagazyn)
+ Me.columnKontrahent = New Global.System.Data.DataColumn("Kontrahent", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnKontrahent)
+ Me.columnOpis = New Global.System.Data.DataColumn("Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnOpis)
+ Me.columnDokKoryg = New Global.System.Data.DataColumn("DokKoryg", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDokKoryg)
+ Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLp}, true))
+ Me.columnLp.AllowDBNull = false
+ Me.columnLp.ReadOnly = true
+ Me.columnLp.Unique = true
+ Me.columnDokument.MaxLength = 255
+ Me.columnDataWyst.ReadOnly = true
+ Me.columnDataOper.ReadOnly = true
+ Me.columnDokZr.MaxLength = 40
+ Me.columnDekret.AutoIncrement = true
+ Me.columnDekret.AutoIncrementSeed = -1
+ Me.columnDekret.AutoIncrementStep = -1
+ Me.columnDekret.ReadOnly = true
+ Me.columnDZK_Dziennik.MaxLength = 5
+ Me.columnDataImportu.ReadOnly = true
+ Me.columnDZK_Opis.MaxLength = 80
+ Me.columnSumaCT.ReadOnly = true
+ Me.columnSumaDT.ReadOnly = true
+ Me.columnMagazyn.MaxLength = 30
+ Me.columnKontrahent.MaxLength = 255
+ Me.columnOpis.MaxLength = 255
+ Me.columnDokKoryg.MaxLength = 40
+ End Sub
+
+ _
+ Public Function NewTbmy_ImpDM_SrcRow() As Tbmy_ImpDM_SrcRow
+ Return CType(Me.NewRow,Tbmy_ImpDM_SrcRow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New Tbmy_ImpDM_SrcRow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(Tbmy_ImpDM_SrcRow)
+ End Function
+
+ _
+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanged(e)
+ If (Not (Me.Tbmy_ImpDM_SrcRowChangedEvent) Is Nothing) Then
+ RaiseEvent Tbmy_ImpDM_SrcRowChanged(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanging(e)
+ If (Not (Me.Tbmy_ImpDM_SrcRowChangingEvent) Is Nothing) Then
+ RaiseEvent Tbmy_ImpDM_SrcRowChanging(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleted(e)
+ If (Not (Me.Tbmy_ImpDM_SrcRowDeletedEvent) Is Nothing) Then
+ RaiseEvent Tbmy_ImpDM_SrcRowDeleted(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleting(e)
+ If (Not (Me.Tbmy_ImpDM_SrcRowDeletingEvent) Is Nothing) Then
+ RaiseEvent Tbmy_ImpDM_SrcRowDeleting(Me, New Tbmy_ImpDM_SrcRowChangeEvent(CType(e.Row,Tbmy_ImpDM_SrcRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Public Sub RemoveTbmy_ImpDM_SrcRow(ByVal row As Tbmy_ImpDM_SrcRow)
+ Me.Rows.Remove(row)
+ End Sub
+
+ _
+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim ds As DsMain = New DsMain()
+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+ any1.MinOccurs = New Decimal(0)
+ any1.MaxOccurs = Decimal.MaxValue
+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any1)
+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+ any2.MinOccurs = New Decimal(1)
+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any2)
+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute1.Name = "namespace"
+ attribute1.FixedValue = ds.Namespace
+ type.Attributes.Add(attribute1)
+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute2.Name = "tableTypeName"
+ attribute2.FixedValue = "Tbmy_ImpDM_SrcDataTable"
+ type.Attributes.Add(attribute2)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+ End Class
+
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class Tbmy_ImpDM_DekrDataTable
+ Inherits Global.System.Data.TypedTableBase(Of Tbmy_ImpDM_DekrRow)
+
+ Private columnLp As Global.System.Data.DataColumn
+
+ Private columnDZK_Opis As Global.System.Data.DataColumn
+
+ Private columnData As Global.System.Data.DataColumn
+
+ Private columnDataDokumentu As Global.System.Data.DataColumn
+
+ Private columnKwota As Global.System.Data.DataColumn
+
+ Private columnDokZr As Global.System.Data.DataColumn
+
+ Private columnKontoDebet As Global.System.Data.DataColumn
+
+ Private columnKontoCredit As Global.System.Data.DataColumn
+
+ Private columnIdentyfikator As Global.System.Data.DataColumn
+
+ Private columnOpis As Global.System.Data.DataColumn
+
+ Private columnDataImportu As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "Tbmy_ImpDM_Dekr"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
+ MyBase.New
+ Me.TableName = table.TableName
+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+ Me.CaseSensitive = table.CaseSensitive
+ End If
+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+ Me.Locale = table.Locale
+ End If
+ If (table.Namespace <> table.DataSet.Namespace) Then
+ Me.Namespace = table.Namespace
+ End If
+ Me.Prefix = table.Prefix
+ Me.MinimumCapacity = table.MinimumCapacity
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context)
+ Me.InitVars
+ End Sub
+
+ _
+ Public ReadOnly Property LpColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnLp
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DZK_OpisColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDZK_Opis
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DataColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnData
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DataDokumentuColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDataDokumentu
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property KwotaColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnKwota
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DokZrColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDokZr
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property KontoDebetColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnKontoDebet
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property KontoCreditColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnKontoCredit
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property IdentyfikatorColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnIdentyfikator
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property OpisColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnOpis
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DataImportuColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDataImportu
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As Tbmy_ImpDM_DekrRow
+ Get
+ Return CType(Me.Rows(index),Tbmy_ImpDM_DekrRow)
+ End Get
+ End Property
+
+ _
+ Public Event Tbmy_ImpDM_DekrRowChanging As Tbmy_ImpDM_DekrRowChangeEventHandler
+
+ _
+ Public Event Tbmy_ImpDM_DekrRowChanged As Tbmy_ImpDM_DekrRowChangeEventHandler
+
+ _
+ Public Event Tbmy_ImpDM_DekrRowDeleting As Tbmy_ImpDM_DekrRowChangeEventHandler
+
+ _
+ Public Event Tbmy_ImpDM_DekrRowDeleted As Tbmy_ImpDM_DekrRowChangeEventHandler
+
+ _
+ Public Overloads Sub AddTbmy_ImpDM_DekrRow(ByVal row As Tbmy_ImpDM_DekrRow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddTbmy_ImpDM_DekrRow(ByVal Lp As Long, ByVal DZK_Opis As String, ByVal Data As Integer, ByVal DataDokumentu As Integer, ByVal Kwota As Decimal, ByVal DokZr As String, ByVal KontoDebet As String, ByVal KontoCredit As String, ByVal Identyfikator As String, ByVal Opis As String, ByVal DataImportu As Date) As Tbmy_ImpDM_DekrRow
+ Dim rowTbmy_ImpDM_DekrRow As Tbmy_ImpDM_DekrRow = CType(Me.NewRow,Tbmy_ImpDM_DekrRow)
+ Dim columnValuesArray() As Object = New Object() {Lp, DZK_Opis, Data, DataDokumentu, Kwota, DokZr, KontoDebet, KontoCredit, Identyfikator, Opis, DataImportu}
+ rowTbmy_ImpDM_DekrRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowTbmy_ImpDM_DekrRow)
+ Return rowTbmy_ImpDM_DekrRow
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As Tbmy_ImpDM_DekrDataTable = CType(MyBase.Clone,Tbmy_ImpDM_DekrDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New Tbmy_ImpDM_DekrDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnLp = MyBase.Columns("Lp")
+ Me.columnDZK_Opis = MyBase.Columns("DZK_Opis")
+ Me.columnData = MyBase.Columns("Data")
+ Me.columnDataDokumentu = MyBase.Columns("DataDokumentu")
+ Me.columnKwota = MyBase.Columns("Kwota")
+ Me.columnDokZr = MyBase.Columns("DokZr")
+ Me.columnKontoDebet = MyBase.Columns("KontoDebet")
+ Me.columnKontoCredit = MyBase.Columns("KontoCredit")
+ Me.columnIdentyfikator = MyBase.Columns("Identyfikator")
+ Me.columnOpis = MyBase.Columns("Opis")
+ Me.columnDataImportu = MyBase.Columns("DataImportu")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnLp = New Global.System.Data.DataColumn("Lp", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnLp)
+ Me.columnDZK_Opis = New Global.System.Data.DataColumn("DZK_Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDZK_Opis)
+ Me.columnData = New Global.System.Data.DataColumn("Data", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnData)
+ Me.columnDataDokumentu = New Global.System.Data.DataColumn("DataDokumentu", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDataDokumentu)
+ Me.columnKwota = New Global.System.Data.DataColumn("Kwota", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnKwota)
+ Me.columnDokZr = New Global.System.Data.DataColumn("DokZr", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDokZr)
+ Me.columnKontoDebet = New Global.System.Data.DataColumn("KontoDebet", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnKontoDebet)
+ Me.columnKontoCredit = New Global.System.Data.DataColumn("KontoCredit", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnKontoCredit)
+ Me.columnIdentyfikator = New Global.System.Data.DataColumn("Identyfikator", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnIdentyfikator)
+ Me.columnOpis = New Global.System.Data.DataColumn("Opis", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnOpis)
+ Me.columnDataImportu = New Global.System.Data.DataColumn("DataImportu", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDataImportu)
+ Me.columnLp.ReadOnly = true
+ Me.columnDZK_Opis.MaxLength = 80
+ Me.columnKwota.ReadOnly = true
+ Me.columnDokZr.MaxLength = 40
+ Me.columnKontoDebet.MaxLength = 50
+ Me.columnKontoCredit.MaxLength = 50
+ Me.columnIdentyfikator.MaxLength = 80
+ Me.columnOpis.MaxLength = 80
+ Me.columnDataImportu.ReadOnly = true
+ End Sub
+
+ _
+ Public Function NewTbmy_ImpDM_DekrRow() As Tbmy_ImpDM_DekrRow
+ Return CType(Me.NewRow,Tbmy_ImpDM_DekrRow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New Tbmy_ImpDM_DekrRow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(Tbmy_ImpDM_DekrRow)
+ End Function
+
+