Initial

2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
--- a/EDOKA/Utils/DokumentPruefung.vb
+++ b/EDOKA/Utils/DokumentPruefung.vb
@@ -0,0 +1,90 @@
+Public Class DokumentPruefung
+    Private Sub DokumentPruefung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Public Function Check_Olib()
+        Dim Filepath As String = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente")
+
+        Dim Files() As String = System.IO.Directory.GetFiles(Filepath, "*.olib")
+        For Each file As String In Files
+            Get_Olib_Data(file)
+
+        Next
+    End Function
+
+    Public Function Get_Olib_Data(ByVal Filename As String)
+        Dim ds As New DataSet
+        ds.ReadXml(Filename)
+        restart_dokumentbearbeitung(ds, Filename)
+    End Function
+
+    Public Sub Get_Olib_Table(ByRef olibdata As DataSet, ByRef Table As DataTable, ByRef Tablename As String)
+        Try
+            Table = olibdata.Tables(Tablename)
+            If Table Is Nothing Then
+                Dim d As New DataTable
+                Table = d.Copy
+            End If
+        Catch ex As Exception
+            Dim d As New DataTable
+            Table = d.Copy
+        End Try
+    End Sub
+    Public Sub restart_dokumentbearbeitung(ByVal olibdata As DataSet, ByVal filename As String)
+        If System.IO.File.Exists(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "\" + olibdata.Tables("Save_Dokument").Rows(0).Item("dokumentname")) Then
+        Else
+            MsgBox("Das Office-Dokument ist nicht vorhanden")
+            Exit Sub
+        End If
+        Dim wlib As New WordLib
+        wlib.save_historystatus = olibdata.Tables("Allgemein").Rows(0).Item("save_historystatus")
+        wlib.save_historystatusbr = olibdata.Tables("Allgemein").Rows(0).Item("save_historystatusbr")
+        wlib.DokumentID = olibdata.Tables("Allgemein").Rows(0).Item("dokumentid")
+        wlib.CreateDoc = olibdata.Tables("Allgemein").Rows(0).Item("CreateDoc")
+        wlib.Dokumentidbr = olibdata.Tables("Allgemein").Rows(0).Item("Dokumentidbr")
+        wlib.Dokumentcoldindex_Changed = olibdata.Tables("Allgemein").Rows(0).Item("Dokumentcoldindex_Changed")
+        wlib.dokumentid_changed = olibdata.Tables("Allgemein").Rows(0).Item("dokumentid_changed")
+        wlib.dokumentid_changed = olibdata.Tables("Allgemein").Rows(0).Item("dokumentid_changed")
+        wlib.Dokumentcoldindex_changedbr = olibdata.Tables("Allgemein").Rows(0).Item("Dokumentcoldindex_Changedbr")
+        wlib.dokumentid_changedbr = olibdata.Tables("Allgemein").Rows(0).Item("dokumentid_changedbr")
+
+
+        Get_Olib_Table(olibdata, wlib.Save_Dokument, "Save_Dokument")
+        Get_Olib_Table(olibdata, wlib.Save_Notizen, "Save_Notizen")
+        Get_Olib_Table(olibdata, wlib.Save_ColdIndex, "Save_Coldindex")
+        Get_Olib_Table(olibdata, wlib.Save_Dokumentwerte, "Save_Dokumentwerte")
+        Get_Olib_Table(olibdata, wlib.Save_Dokumentzuordnungen, "Save_Dokumentzuordnungen")
+        Get_Olib_Table(olibdata, wlib.Save_Dokumentinfomeldungen, "Save_Dokumentinfomeldung")
+        Get_Olib_Table(olibdata, wlib.Save_DokumentFunktionen, "Save_Dokumentfunktionen")
+        Get_Olib_Table(olibdata, wlib.save_dokumentersetzen, "Save_Dokumentersetzen")
+        Get_Olib_Table(olibdata, wlib.save_dokumentcoldindex, "Save_Dokumentcoldindex")
+
+        Get_Olib_Table(olibdata, wlib.Save_Dokumentbr, "Save_Dokumentbr")
+        Get_Olib_Table(olibdata, wlib.Save_Notizenbr, "Save_Notizenbr")
+        Get_Olib_Table(olibdata, wlib.Save_ColdIndexbr, "Save_Coldindexbr")
+        Get_Olib_Table(olibdata, wlib.Save_Dokumentwertebr, "Save_Dokumentwertebr")
+        Get_Olib_Table(olibdata, wlib.Save_Dokumentzuordnungenbr, "Save_Dokumentzuordnungenvr")
+        Get_Olib_Table(olibdata, wlib.Save_Dokumentinfomeldungenbr, "Save_Dokumentinfomeldungenbr")
+        Get_Olib_Table(olibdata, wlib.Save_DokumentFunktionenbr, "Save_Dokumentfunktionenbr")
+        Get_Olib_Table(olibdata, wlib.save_dokumentersetzenbr, "Save_Dokumentersetzenbr")
+        Get_Olib_Table(olibdata, wlib.save_dokumentcoldindexbr, "Save_Dokumentcoldindexbr")
+
+        Select Case olibdata.Tables("Allgemein").Rows(0).Item("Applicationtype")
+            Case 1
+                wlib.Dokumentfilename = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "\" + olibdata.Tables("Save_Dokument").Rows(0).Item("dokumentname")
+                wlib.StartWord()
+                wlib.LoadWord(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "\" + olibdata.Tables("Save_Dokument").Rows(0).Item("dokumentname"))
+                System.IO.File.Delete(filename)
+            Case 2
+                wlib.Dokumentfilename = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "\" + olibdata.Tables("Save_Dokument").Rows(0).Item("dokumentname")
+                wlib.StartExcel()
+                wlib.LoadExcel(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "\" + olibdata.Tables("Save_Dokument").Rows(0).Item("dokumentname"))
+            Case Else
+        End Select
+
+
+
+    End Sub
+
+End Class