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