Initial commit

2021-04-20 07:59:36 +02:00
commit fb0247c874
21969 changed files with 11640044 additions and 0 deletions
--- a/Kopie/EDKB14WS/Klassen/clsImportdata.vb
+++ b/Kopie/EDKB14WS/Klassen/clsImportdata.vb
@@ -0,0 +1,105 @@
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports System.IO
+
+Public Class clsImportdata
+#Region "Deklarationen"
+    Dim Importdata As New DataSet
+
+#End Region
+
+    Dim m_partnernr As Integer
+    Dim m_dokumenttypnr As Integer
+    Dim m_dsrfilename As String
+    Dim m_indexfilename As String
+    Dim m_dokumentid As String
+    Dim m_blkunde As Integer
+
+    Public Function Importdaten_erstellen(ByVal partnernr As Integer, ByVal dokumenttypnr As Integer, ByVal DSRFilename As String, ByVal indexfilename As String, ByVal edkb08dir As String, ByVal dokumentid As String, ByVal blkunde As Boolean) As Boolean
+        LogEntry.Writelog(Log.Logtype.Debug, "Importdaten:")
+        LogEntry.Writelog(Log.Logtype.Debug, "Partner:" + partnernr.ToString)
+        LogEntry.Writelog(Log.Logtype.Debug, "Doktype:" + dokumenttypnr.ToString)
+        LogEntry.Writelog(Log.Logtype.Debug, "DSRFile:" + DSRFilename)
+        LogEntry.Writelog(Log.Logtype.Debug, "Indexfile:" + indexfilename)
+        LogEntry.Writelog(Log.Logtype.Debug, "EDKB08Dir" + edkb08dir)
+        LogEntry.Writelog(Log.Logtype.Debug, "Dokumentid:" + dokumentid)
+        LogEntry.Writelog(Log.Logtype.Debug, "BLKunde:" + blkunde.ToString)
+        Try
+            Importdata.Tables.Clear()
+            Importdata.ReadXml(Globals.ApplicationPath + "edkb08struktur.xml")
+            Importdata.Tables(0).Columns.Add("dokumentid")
+            Importdata.Tables(0).Columns.Add("blkunde")
+
+            m_partnernr = partnernr
+            m_dokumenttypnr = dokumenttypnr
+            m_dsrfilename = DSRFilename
+            m_indexfilename = indexfilename
+            m_dokumentid = dokumentid
+            If blkunde = True Then m_blkunde = 1 Else m_blkunde = 0
+            If generate_indexdata() Then
+                Dim filePath As String = DSRFilename
+                Dim slashPosition As Integer = filePath.LastIndexOf("\")
+                Dim filenameOnly As String = filePath.Substring(slashPosition + 1)
+                IO.File.Move(DSRFilename, edkb08dir + filenameOnly)
+
+                filePath = indexfilename
+                slashPosition = filePath.LastIndexOf("\")
+                filenameOnly = filePath.Substring(slashPosition + 1)
+                IO.File.Move(indexfilename, edkb08dir + filenameOnly)
+                Return True
+            End If
+            Return False
+        Catch ex As Exception
+            LogEntry.Writelog(Log.Logtype.Debug, "Importdaten generieren Fehler: " + ex.Message)
+            Return False
+        End Try
+
+    End Function
+
+    Public Function generate_indexdata()
+        Try
+            Dim dr As DataRow
+            Dim i As Integer = 0
+
+            dr = Importdata.Tables(0).NewRow
+
+            Try
+                While i < 40
+                    dr.Item(i) = ""
+                    i = i + 1
+                End While
+            Catch
+
+            End Try
+            dr.Item("Funktion") = "ADD"
+            dr.Item("PARTNERNR") = Me.m_partnernr.ToString
+            dr.Item("Dokumenttypnr") = Me.m_dokumenttypnr.ToString
+
+            Dim filePath As String = Me.m_dsrfilename
+            Dim slashPosition = filePath.LastIndexOf("\")
+            Dim filenameOnly = filePath.Substring(slashPosition + 1)
+
+            dr.Item("dateiname") = filenameOnly
+            dr.Item("Dateiformat") = "PDF"
+            dr.Item("Archivdatum") = Now.ToString
+            dr.Item("Ersteller") = "EDKB14"
+            dr.Item("HERKUNFTSAPPLIKATION") = "EDKB14"
+            dr.Item("Dokumentid") = Me.m_dokumentid
+            'dr.Item("Dokumentidbdr") = ""
+            If m_blkunde = 1 Then
+                dr.Item("BLKunde") = "1"
+            Else
+                dr.Item("BLKunde") = "0"
+            End If
+            'dr.Item("Bezeichnung") = ""
+            Importdata.Tables(0).Rows.Add(dr)
+            Importdata.Tables(0).Rows(0).Delete()
+            Importdata.Tables(0).AcceptChanges()
+            Importdata.WriteXml(Me.m_indexfilename)
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+End Class