Dodaj pliki projektów.

.svn/pristine/d5/d545f98d5f132869d1f170d9383e39250487e005.svn-base

@@ -0,0 +1,128 @@
+'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
+
+    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 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
+
+    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 = False
+    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)
+        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 Class