You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
90 lines
5.0 KiB
90 lines
5.0 KiB
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 |