AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-02-05 18:49:13 +01:00
parent acc94a29e4
commit 3a25947af0
90 changed files with 265900 additions and 11791 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/ToolCollection/DesignTimeBuild/.dtbcache Normal file
View File

Binary file not shown.

5
ToolCollection/ClassActiveDirectory.vb
View File

@ -1,8 +1,9 @@
Imports System.DirectoryServices
Imports DigitalData.Modules.Logging
Public Class ClassActiveDirectory
Public Shared licenseManager As ClassLicenseManager = Nothing
Public Shared ErgebnisAD As String()
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared Function Test_Connect(SEARCH_Filter As String, Property2Load As String, Domain As String, User As String, PW As String)
Try
Dim objDirectoryEntry As DirectoryEntry = New DirectoryEntry(Domain)
@ -83,7 +84,7 @@ Public Class ClassActiveDirectory
If test = True Then
MsgBox("Die Length-Variablen für den Substring konnten nicht definiert werden", MsgBoxStyle.Exclamation)
Else
ClassLoggerNI.Add("AD GetAD_Attribut: Die Length-Variablen für den Substring konnten nicht definiert werden", True)
_Logger.Warn("AD GetAD_Attribut: Die Length-Variablen für den Substring konnten nicht definiert werden")
Exit Function
End If
End If

6
ToolCollection/ClassDI.vb
View File

@ -1,18 +1,18 @@
Imports System.Windows.Forms
Imports System.Runtime.CompilerServices
Imports DigitalData.Modules.Logging
Public Class ClassDI
Protected _windream As ClassWindream_allgemein
' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
Sub New()
Sub New(LogConfig As LogConfig)
Try
' 3a. Windream instanziieren
Me._windream = New ClassWindream_allgemein()
Me._windream = New ClassWindream_allgemein(LogConfig)
' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
Me._windream.Init()

49
ToolCollection/ClassDIProfil.vb
View File

@ -1,5 +1,10 @@
Imports System.IO
Imports DigitalData.Modules.Logging
Public Class ClassDIProfil
Public Shared _windream As New ClassWindream_allgemein
Private _MyLogger As LogConfig
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared _windream As ClassWindream_allgemein
#Region "***** Variablen *****"
Private _originalProfilname As String
Private _originalaktiv As Boolean
@ -62,10 +67,12 @@ Public Class ClassDIProfil
''' <param name="verzeichnis_loeschen"></param>
''' <param name="dokumenttyp_string"></param>
''' <remarks></remarks>
Sub New(ByVal profilname As String, ByVal aktiv As Boolean, ByVal verzoegerung As Integer, ByVal dokumenttyp As WINDREAMLib.WMObject, ByVal quellordner As String, ByVal subdirectories As Boolean, ByVal zielordner As String, _
ByVal backup As Boolean, ByVal backupordner As String, ByVal overwrite As Boolean, ByVal datei_loeschen As Boolean, ByVal Date_UV As String, _
Sub New(ByVal profilname As String, ByVal aktiv As Boolean, ByVal verzoegerung As Integer, ByVal dokumenttyp As WINDREAMLib.WMObject, ByVal quellordner As String, ByVal subdirectories As Boolean, ByVal zielordner As String,
ByVal backup As Boolean, ByVal backupordner As String, ByVal overwrite As Boolean, ByVal datei_loeschen As Boolean, ByVal Date_UV As String,
ByVal verzeichnis_loeschen As Boolean, ByVal intervall As Integer, ByVal lastRun As String, ByVal link2Navision As Boolean, ByVal link2Navision_Dokart As String, ByVal link2Navision_Index As String, ByVal UVloeschen As Boolean, Optional ByVal dokumenttyp_string As String = "")
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
_windream = New ClassWindream_allgemein(_MyLogger)
Me._dokumenttypString = dokumenttyp_string
Me.Dokumenttyp = dokumenttyp
Me._dokumenttyp = dokumenttyp
@ -814,23 +821,23 @@ Public Class ClassDIProfil
Public ReadOnly Property HasChanges() As Boolean
Get
If Me.Profilname = Me.OriginalProfilname And _
Me.Aktiv = Me.OriginalAktiv And _
Me.Verzoegerung = Me.OriginalVerzoegerung And _
Me.Quellordner = Me.OriginalQuellordner And _
Me.Zielordner = Me.OriginalZielordner And _
Me.Subdirectories = Me.OriginalSubdirectories And _
Me.Backup = Me.OriginalBackup And _
Me.Backupordner = Me.OriginalBackupordner And _
Me.Overwrite = Me.OriginalOverwrite And _
Me.VerzeichnisLöschen = Me.OriginalVerzeichnisLöschen And _
Me.DateiLöschen = Me.OriginalDateiLöschen And _
Me.Date_UV = Me.OriginalDate_UV And _
Me.Intervall = Me.OriginalIntervall And _
Me.LastRun = Me.OriginallastRun And _
Me.Link2Navision = Me.OriginalLink2Navision And _
Me.Link2Navision_dokart = Me.OriginalLink2Navision_dokart And _
Me.Link2Navision_Index = Me.OriginalLink2Navision_Index And _
If Me.Profilname = Me.OriginalProfilname And
Me.Aktiv = Me.OriginalAktiv And
Me.Verzoegerung = Me.OriginalVerzoegerung And
Me.Quellordner = Me.OriginalQuellordner And
Me.Zielordner = Me.OriginalZielordner And
Me.Subdirectories = Me.OriginalSubdirectories And
Me.Backup = Me.OriginalBackup And
Me.Backupordner = Me.OriginalBackupordner And
Me.Overwrite = Me.OriginalOverwrite And
Me.VerzeichnisLöschen = Me.OriginalVerzeichnisLöschen And
Me.DateiLöschen = Me.OriginalDateiLöschen And
Me.Date_UV = Me.OriginalDate_UV And
Me.Intervall = Me.OriginalIntervall And
Me.LastRun = Me.OriginallastRun And
Me.Link2Navision = Me.OriginalLink2Navision And
Me.Link2Navision_dokart = Me.OriginalLink2Navision_dokart And
Me.Link2Navision_Index = Me.OriginalLink2Navision_Index And
Me.UVVerzeichnisLoeschen = Me.Original_UVVerzeichnisLoeschen Then
Return False
Else

68
ToolCollection/ClassDIProfile.vb
View File

@ -5,7 +5,7 @@ Public Class ClassDIProfile
Public Shared xmlConfigFile As String
Public Shared aktivesProfil As ClassDIProfil
Public Shared aktivesProfilAusProfileigenschaften As Boolean = False
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Public Shared Sub Init()
xmlConfigFile = My.Application.Info.DirectoryPath & "\" & My.Settings.vDIConfigDatei
@ -49,25 +49,25 @@ Public Class ClassDIProfile
' das Profilobjekt erzeugen
ClassDIProfile._profiles(i) = New ClassDIProfil(xmlProfil.Attributes("profilname").Value, _
xmlProfil.Attributes("aktiv").Value, _
xmlProfil.Attributes("verzoegerung").Value, _
_windream.GetObjecttypeByName(xmlProfil.Attributes("dokumenttyp").Value), _
xmlProfil.Attributes("quellordner").Value, _
xmlProfil.Attributes("subdirectories").Value, _
xmlProfil.Attributes("zielordner").Value, _
xmlProfil.Attributes("backup").Value, _
xmlProfil.Attributes("backupordner").Value, _
xmlProfil.Attributes("overwrite").Value, _
xmlProfil.Attributes("datei_loeschen").Value, _
xmlProfil.Attributes("Date_UV").Value, _
xmlProfil.Attributes("verzeichnis_loeschen").Value, _
xmlProfil.Attributes("intervall").Value, _
xmlProfil.Attributes("lastrun").Value, _
xmlProfil.Attributes("link2navision").Value, _
xmlProfil.Attributes("link2navision_dokart").Value, _
xmlProfil.Attributes("link2navision_index").Value, _
xmlProfil.Attributes("subdirectoriesloeschen").Value, _
ClassDIProfile._profiles(i) = New ClassDIProfil(xmlProfil.Attributes("profilname").Value,
xmlProfil.Attributes("aktiv").Value,
xmlProfil.Attributes("verzoegerung").Value,
_windream.GetObjecttypeByName(xmlProfil.Attributes("dokumenttyp").Value, False),
xmlProfil.Attributes("quellordner").Value,
xmlProfil.Attributes("subdirectories").Value,
xmlProfil.Attributes("zielordner").Value,
xmlProfil.Attributes("backup").Value,
xmlProfil.Attributes("backupordner").Value,
xmlProfil.Attributes("overwrite").Value,
xmlProfil.Attributes("datei_loeschen").Value,
xmlProfil.Attributes("Date_UV").Value,
xmlProfil.Attributes("verzeichnis_loeschen").Value,
xmlProfil.Attributes("intervall").Value,
xmlProfil.Attributes("lastrun").Value,
xmlProfil.Attributes("link2navision").Value,
xmlProfil.Attributes("link2navision_dokart").Value,
xmlProfil.Attributes("link2navision_index").Value,
xmlProfil.Attributes("subdirectoriesloeschen").Value,
xmlProfil.Attributes("dokumenttyp").Value)
' Zähler für Profile erhöhen
i += 1
@ -202,20 +202,20 @@ Public Class ClassDIProfile
ReDim Preserve ClassDIProfile._profiles(ClassDIProfile.Count)
' und das neue Profil dem Profilarray anhängen und die Eigenschaften zuweisen
ClassDIProfile._profiles(ClassDIProfile.Count - 1) = New ClassDIProfil(profilname, _
True, _
0, _
_windream.GetObjecttypeByName(dokumenttyp), _
quellordner, _
subdirectories, _
zielordner, _
backup, _
backupordner, _
overwrite, _
datei_loeschen, _
Date_UV, _
verzeichnis_loeschen, _
intervall, _
ClassDIProfile._profiles(ClassDIProfile.Count - 1) = New ClassDIProfil(profilname,
True,
0,
_windream.GetObjecttypeByName(dokumenttyp, False),
quellordner,
subdirectories,
zielordner,
backup,
backupordner,
overwrite,
datei_loeschen,
Date_UV,
verzeichnis_loeschen,
intervall,
"01.01.1900", link2Navision, link2Navision_dokart, link2Navision_Index, UVloeschen)
End If

2
ToolCollection/ClassDI_Email.vb
View File

@ -58,7 +58,7 @@ Public Class ClassDI_Email
If Test = True Then
MsgBox("Fehler im Mailversand:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler im Mailversand DI:")
Else
ClassLoggerNI.Add(">> Achtung: Fehler in Mailversand: " & ex.Message, False)
ClassLoggerDI.Add(">> Achtung: Fehler in Mailversand: " & ex.Message, False)
End If

15
ToolCollection/ClassLicenses.vb
View File

@ -27,11 +27,24 @@
Dim i As Integer
For i = 1 To licenseStringArray.GetLength(0) - 2 ' minus 2, weil GetLength nicht null-basiert ist und das erste Element Firma ist
Dim _date As Date
Dim anzprof As String = licenseStringArray(i, 3)
If anzprof.ToLower = "unlimited" Then
anzprof = 99
End If
Me.Add(licenseStringArray(i, 0), licenseStringArray(i, 1), licenseStringArray(i, 2), anzprof)
Try
_date = CDate(licenseStringArray(i, 1))
Catch ex As Exception
If licenseStringArray(i, 1).ToString.EndsWith("2099") Then
_date = "2099-12-31"
Else
MsgBox(ex.Message & vbNewLine & Environment.OSVersion.ToString, MsgBoxStyle.Critical)
End If
End Try
Me.Add(licenseStringArray(i, 0), _date, licenseStringArray(i, 2), anzprof)
Next
End If
Catch ex As Exception

1
ToolCollection/ClassLoggerDI.vb
View File

@ -18,6 +18,7 @@ Public Class ClassLoggerDI
ClassLoggerDI.SetPrefix(prefix)
End If
Dim str As String = ClassLoggerDI.DateiSpeicherort & "\" & ClassLoggerDI.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
str = str.Replace("W:", "\\windream\objects")
Dim anz As Integer = 1
Do While File.Exists(str)
Dim info As New FileInfo(str)

302
ToolCollection/ClassLoggerNI.vb
View File

@ -1,302 +0,0 @@
Imports System.IO
Public Class ClassLoggerNI
Public Shared DateiSpeicherort As String = Nothing
Private Shared DateiPrefix As String = ""
Private Shared Datei As IO.File = Nothing
Public Shared LogDateiname As String = ""
Private Shared StreamWriter As IO.StreamWriter = Nothing
Private Shared HasInformedAboutError As Boolean = False
' eine Art Konstruktor
Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True)
' initialisiert den Speicherort
ClassLoggerNI.SetSpeicherort(speicherort)
' wenn ein Prfix gesetzt wurde
If Not prefix = "" Then
' initialisiert das Prefix
ClassLoggerNI.SetPrefix(prefix)
End If
Dim str As String = ClassLoggerNI.DateiSpeicherort & "\" & ClassLoggerNI.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
Dim anz As Integer = 1
Do While File.Exists(str)
Dim info As New FileInfo(str)
Dim length As Long = info.Length
If length > 5000000 Then
str = IO.Path.GetDirectoryName(str)
str = str & "\" & ClassLoggerNI.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
anz = anz + 1
Else
Exit Do
End If
Loop
'ClassLoggerNI.Dateiname = ClassLoggerNI.DateiSpeicherort & "\" & ClassLoggerNI.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
ClassLoggerNI.LogDateiname = str
If Not appendFile Then
' der Versuch die Datei zu löschen
'Try
' My.Computer.FileSystem.DeleteFile(ClassNILogger.Dateiname, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
'Catch ex As Exception
' ' bei Fehler besteht kein Schreibrecht auf die Datei oder Datei existiert nicht
' ' ALSO: alles Okay soweit
'End Try
My.Computer.FileSystem.WriteAllText(ClassLoggerNI.LogDateiname, String.Empty, False)
End If
' testen ob sich die Datei öffnen und beschreiben lässt
'ClassNILogger.CheckIsLogWritable()
End Sub
Public Shared Sub LogEntry(ByVal _error As String, Optional _mitPraefix As Boolean = False, Optional _inJedemFallLoggen As Boolean = False)
If My.Settings.vLogErrorsonly = False Or _inJedemFallLoggen = True Then
Select Case _mitPraefix
Case False
ClassLoggerNI.Add(_error, False)
Case True
ClassLoggerNI.Add(_error, True)
End Select
End If
End Sub
' legt den Speicherort fest
Public Shared Sub SetSpeicherort(ByVal speicherort As String)
Dim log_folder As String = My.Application.Info.DirectoryPath & "\Log"
Dim folder As New IO.DirectoryInfo(log_folder)
If folder.Exists = False Then
IO.Directory.CreateDirectory(log_folder)
End If
If speicherort = "" Then
ClassLoggerNI.DateiSpeicherort = log_folder
Else
ClassLoggerNI.DateiSpeicherort = speicherort
End If
End Sub
' legt das Prefix für den Dateinamen fest
Public Shared Sub SetPrefix(ByVal prefix As String)
ClassLoggerNI.DateiPrefix = prefix
End Sub
Public Shared Sub Add(ByVal information As String, Optional ByVal mit_prefix As Boolean = True)
If ClassLoggerNI.OpenFile Then
Try
If mit_prefix Then
ClassLoggerNI.StreamWriter.WriteLine(System.DateTime.Now & " >> " & information)
Else
ClassLoggerNI.StreamWriter.WriteLine(Now.ToString & " " & information)
End If
ClassLoggerNI.CloseFile()
Catch e As Exception
ClassLoggerNI.ShowErrorMessage()
End Try
Else
ClassLoggerNI.ShowErrorMessage()
End If
End Sub
Public Shared Sub Add(ByVal ClassFunction As String, ByVal information As String)
If ClassLoggerNI.OpenFile Then
Try
ClassLoggerNI.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ClassFunction & " => " & information)
ClassLoggerNI.CloseFile()
Catch e As Exception
ClassLoggerNI.ShowErrorMessage()
End Try
Else
ClassLoggerNI.ShowErrorMessage()
End If
End Sub
Public Shared Sub Add(ByVal ex As Exception)
If ClassLoggerNI.OpenFile Then
Try
ClassLoggerNI.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "]")
ClassLoggerNI.CloseFile()
Catch e As Exception
ClassLoggerNI.ShowErrorMessage()
End Try
Else
ClassLoggerNI.ShowErrorMessage()
End If
End Sub
Public Shared Sub Add(ByVal ex As System.Data.OleDb.OleDbException) 'Oracle.DataAccess.Client.OracleException)
If ClassLoggerNI.OpenFile Then
Try
ClassLoggerNI.StreamWriter.WriteLine("OracleException (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "][" & ex.ErrorCode & "]")
ClassLoggerNI.CloseFile()
Catch e As Exception
ClassLoggerNI.ShowErrorMessage()
End Try
Else
ClassLoggerNI.ShowErrorMessage()
End If
End Sub
Public Shared Sub Add(ByVal ClassFunction As String, ByVal ex As Exception)
If ClassLoggerNI.OpenFile Then
Try
ClassLoggerNI.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "] => " & ClassFunction)
ClassLoggerNI.CloseFile()
Catch e As Exception
ClassLoggerNI.ShowErrorMessage()
End Try
Else
ClassLoggerNI.ShowErrorMessage()
End If
End Sub
Public Shared Sub Add(ByVal ClassFunction As String, ByVal ex As System.Data.OleDb.OleDbException) 'Oracle.DataAccess.Client.OracleException)
If ClassLoggerNI.OpenFile Then
Try
ClassLoggerNI.StreamWriter.WriteLine("OracleException (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "][" & ex.ErrorCode & "] => " & ClassFunction)
ClassLoggerNI.CloseFile()
Catch e As Exception
ClassLoggerNI.ShowErrorMessage()
End Try
Else
ClassLoggerNI.ShowErrorMessage()
End If
End Sub
Public Shared Sub Add(ByVal ClassFunction As String, ByVal information As String, ByVal ex As Exception)
If ClassLoggerNI.OpenFile Then
Try
ClassLoggerNI.StreamWriter.WriteLine("Exception (" & System.DateTime.Now & "): " & ex.Message & " [" & ex.Source & "] => " & ClassFunction & " => " & information)
ClassLoggerNI.CloseFile()
Catch e As Exception
ClassLoggerNI.ShowErrorMessage()
End Try
Else
ClassLoggerNI.ShowErrorMessage()
End If
End Sub
' öffnet eine Datei zum Schreiben
Private Shared Function OpenFile()
Try
' wenn ein Speicherort festgelegt wurde
If Not ClassLoggerNI.DateiSpeicherort = Nothing Then
' den Dateienamen definieren
Dim dateiname As String = ClassLoggerNI.LogDateiname
' Datei anlegen wenn noch nicht vorhanden
My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
' die Datei zum Schreiben öffnen
ClassLoggerNI.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
End If
' wenn die Datei erfolgreich geöffnet wurde
If ClassLoggerNI.StreamWriter IsNot Nothing Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
' öffnet eine Datei zum Schreiben
Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String)
Try
' wenn ein Speicherort festgelegt wurde
If Not DateiSpeicherort = Nothing And ClassLoggerNI.CheckIsLogWritable() Then
' den Dateienamen definieren
Dim dateiname As String = ClassLoggerNI.LogDateiname
' Datei anlegen wenn noch nicht vorhanden
My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
' die Datei zum Schreiben öffnen
ClassLoggerNI.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
End If
' wenn die Datei erfolgreich geöffnet wurde
If ClassLoggerNI.StreamWriter IsNot Nothing Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
' schliesst die geöffnete Datei
Private Shared Sub CloseFile()
' wenn eine Datei geöffnet ist
If ClassLoggerNI.StreamWriter IsNot Nothing Then
' die Datei schliessen
ClassLoggerNI.StreamWriter.Close()
ClassLoggerNI.StreamWriter = Nothing
End If
End Sub
Public Shared Function CheckIsLogWritable()
If ClassLoggerNI.OpenFile Then
Try
ClassLoggerNI.CloseFile()
Catch e As Exception
ClassLoggerNI.ShowErrorMessage()
Return False
End Try
Else
ClassLoggerNI.ShowErrorMessage()
Return False
End If
Return True
End Function
Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String)
If ClassLoggerNI.OpenFile(vDateiSpeicherort, vDateiPrefix) Then
Try
ClassLoggerNI.CloseFile()
Catch e As Exception
ClassLoggerNI.ShowErrorMessage()
Return False
End Try
Else
ClassLoggerNI.ShowErrorMessage()
Return False
End If
Return True
End Function
Private Shared Sub ShowErrorMessage()
If Not ClassLoggerNI.HasInformedAboutError Then
My.Settings.errortext = "Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & vbNewLine &
"Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & "Im Folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf der Nachindexierung nicht zu stören."
My.Settings.Save()
clsHelper.Add_Application_log(My.Settings.errortext)
'MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & vbNewLine & vbNewLine & _
' "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf der Nachindexierung nicht zu stören.", _
' MsgBoxStyle.Information, "NI: Fehler beim Öffnen der Logdatei")
ClassLoggerNI.HasInformedAboutError = True
End If
End Sub
End Class

28
ToolCollection/ClassMI_Profile.vb
View File

@ -3,7 +3,7 @@
Public Shared xmlConfigFile As String
Public Shared aktivesProfil As ClassMI_Profil
Public Shared aktivesProfilAusProfileigenschaften As Boolean = False
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
'Public Shared xmlConfigFile As String = My.Settings.vConfigDatei
'Private Shared config As ClassMerkatorIntegrationKonfiguration = New ClassMerkatorIntegrationKonfiguration()
@ -89,13 +89,13 @@
' das Profilobjekt erzeugen
ClassMI_Profile._profiles(i) = New ClassMI_Profil( _
xmlProfil.Attributes("profilname").Value, _
_windream.GetObjecttypeByName(xmlProfil.Attributes("dokumenttyp").Value), _
xmlProfil.Attributes("servername").Value, _
xmlProfil.Attributes("zeige_suchmaske").Value, _
xmlProfil.Attributes("wdf_suche").Value, _
xmlProfil.Attributes("dokumenttyp").Value _
ClassMI_Profile._profiles(i) = New ClassMI_Profil(
xmlProfil.Attributes("profilname").Value,
_windream.GetObjecttypeByName(xmlProfil.Attributes("dokumenttyp").Value, False),
xmlProfil.Attributes("servername").Value,
xmlProfil.Attributes("zeige_suchmaske").Value,
xmlProfil.Attributes("wdf_suche").Value,
xmlProfil.Attributes("dokumenttyp").Value
)
Dim profil As ClassMI_Profil = ClassMI_Profile._profiles(i)
@ -241,12 +241,12 @@
ReDim Preserve ClassMI_Profile._profiles(ClassMI_Profile.Count)
' und das neue Profil dem Profilarray anhängen und die Eigenschaften zuweisen
ClassMI_Profile._profiles(ClassMI_Profile.Count - 1) = New ClassMI_Profil( _
profilname, _
_windream.GetObjecttypeByName(dokumenttyp), _
servername, _
zeige_suchmaske, _
wdf_suche, _
ClassMI_Profile._profiles(ClassMI_Profile.Count - 1) = New ClassMI_Profil(
profilname,
_windream.GetObjecttypeByName(dokumenttyp, False),
servername,
zeige_suchmaske,
wdf_suche,
dokumenttyp)
'Me.Items(Me.Count - 1).DokumentTyp = dokumenttyp
'Me.Items(Me.Count - 1).WindreamSuche = windreamsuche

110
ToolCollection/ClassMO_RE.vb
View File

@ -1,11 +1,17 @@
Imports System.Data.SqlClient
Imports System.IO
Imports WINDREAMLib
Imports DigitalData.Modules.Logging
Public Class ClassMO_RE
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _windreamNI As ClassNIWindream
Sub New(LogConfig As LogConfig)
_Logger = LogConfig.GetLogger
_windreamNI = New ClassNIWindream(LogConfig)
End Sub
Public Shared Function Return_Datatable(Select_anweisung As String)
Try
Dim sw As New ClassStopwatch("Return_Datatable")
Dim SQLconnection As New SqlClient.SqlConnection(My.Settings.DD_DMSConnectionString)
Dim SQLcommand As New SqlCommand(Select_anweisung, SQLconnection)
SQLconnection.Open()
@ -15,23 +21,31 @@ Public Class ClassMO_RE
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnection.Close()
Dim msg = sw.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return dt
Catch ex As Exception
ClassLoggerNI.Add("FEHLER IN MO_RE Return_Datatable: " & ex.Message & " SQL: " & Select_anweisung)
_Logger.Error(ex)
Return Nothing
End Try
End Function
Public Shared Function Execute_Command(ExecuteCMD As String)
Try
Dim sw As New ClassStopwatch("Execute_MSSQL_Command")
Dim SQLconnection As New SqlClient.SqlConnection(My.Settings.DD_DMSConnectionString)
Dim SQLcommand As New SqlCommand(ExecuteCMD, SQLconnection)
SQLconnection.Open()
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnection.Close()
Dim msg = sw.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return True
Catch ex As Exception
ClassLoggerNI.Add("###FEHLER IN MO_RE Execute_Command: " & ex.Message & " SQL: " & ExecuteCMD)
_Logger.Error(ex)
'ClassLoggerNI.Add("###FEHLER IN MO_RE Execute_Command: " & ex.Message & " SQL: " & ExecuteCMD)
Return False
End Try
End Function
@ -41,37 +55,43 @@ Public Class ClassMO_RE
Dim _MRDeskrIndex
Dim _path, _praefix, _kunde, _ziel As String
If My.Settings.vLogErrorsonly = False Then
ClassLoggerNI.Add(">> Ausgelesener Kundenidentifikator: " & _MRKUNDE, False)
ClassLoggerNI.Add(">> Ausgelesene Dokumentart: " & _MRDOKART, False)
End If
_Logger.Debug(">> Ausgelesener Kundenidentifikator: " & _MRKUNDE)
_Logger.Debug(">> Ausgelesene Dokumentart: " & _MRDOKART)
Dim oSelect As String
If _MRKUNDE Is Nothing Or _MRKUNDE = "" Then
'Auslesen der MORE-Konfiguration für Kunde und Standard
DT = Return_Datatable("SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = 'STANDARD')")
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Select: " & "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = 'STANDARD')", False)
oSelect = "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = 'STANDARD')"
DT = Return_Datatable(oSelect)
_Logger.Debug(oSelect)
Else
If _MRKUNDE = "Standard-VZ" Then _MRKUNDE = "Standard"
oSelect = "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = UPPER('" & _MRKUNDE.ToString & "'))"
'Auslesen der MORE-Konfiguration für Kunde und Dokart
DT = Return_Datatable("SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = UPPER('" & _MRKUNDE.ToString & "'))")
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Select2: " & "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = UPPER('" & _MRKUNDE.ToString & "'))", False)
DT = Return_Datatable(oSelect)
_Logger.Debug("Select2: " & oSelect)
End If
If DT.Rows.Count = 0 Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Für Kunden keine Daten - also Standard lesen", False)
_Logger.Debug("Für Kunden keine Daten - also Standard lesen")
oSelect = "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = 'STANDARD')"
'Für diesen Kunden wurde keine Konfiguration gefunden also den Standard laden
DT = Return_Datatable("SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = 'STANDARD')")
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Select3: " & "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = 'STANDARD')", False)
DT = Return_Datatable(oSelect)
_Logger.Debug("Select3: " & oSelect)
End If
If DT.Rows.Count = 1 Then
'Es liegt sowohl Kunde als auch Dokumentart vor
Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Versuch für den Index " & DT.Rows(0).Item("INDEXNAME").ToString & " den Indexwert auszulesen", False)
_Logger.Debug("Versuch für den Index " & DT.Rows(0).Item("INDEXNAME").ToString & " den Indexwert auszulesen")
Dim sw As New ClassStopwatch($"GetVariableValue _MRDeskrIndex({DT.Rows(0).Item("INDEXNAME").ToString})")
_MRDeskrIndex = dokument.GetVariableValue(DT.Rows(0).Item("INDEXNAME").ToString)
Dim msg = sw.Done
If msg <> String.Empty Then _Logger.Info(msg)
Catch ex As Exception
ClassLoggerNI.Add(" Achtung: ein eindeutiger/deskriptiver Indexwert existiert noch nicht! Dokument kann nicht verschoben und umbenannt werden!", False)
_Logger.Warn("Achtung: ein eindeutiger/deskriptiver Indexwert existiert noch nicht! Dokument kann nicht verschoben und umbenannt werden!")
Return False
End Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Ausgelesener Deskriptiver Index: " & _MRDeskrIndex, False)
_Logger.Debug("Ausgelesener Deskriptiver Index: " & _MRDeskrIndex)
'Datei-Paramter auslesen
Dim extension As String = Path.GetExtension(vDatei)
@ -87,31 +107,40 @@ Public Class ClassMO_RE
Dim _UOindex As String = DT.Rows(0).Item("UO_IDX1")
Dim _UOindex_Value As String = ""
If _UOindex <> "" Then
Dim sw As New ClassStopwatch($"GetVariableValue _UOindex({_UOindex})")
_UOindex_Value = dokument.GetVariableValue(_UOindex)
Dim msg = sw.Done
If msg <> String.Empty Then _Logger.Info(msg)
If Not _UOindex_Value Is Nothing Then
_path &= "\" & _UOindex_Value
If _path.Contains(" 00:00:00") Then _path = _path.Replace(" 00:00:00", "")
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Unterordner 1 soll erzeugt werden - Path '" & _path & "'", False)
_Logger.Debug("Unterordner 1 soll erzeugt werden - Path '" & _path & "'")
End If
End If
'Unterordner Index 2
_UOindex = DT.Rows(0).Item("UO_IDX2")
If _UOindex <> "" Then
Dim sw As New ClassStopwatch($"GetVariableValue _UOindex({_UOindex})")
_UOindex_Value = dokument.GetVariableValue(_UOindex)
Dim msg = sw.Done
If msg <> String.Empty Then _Logger.Info(msg)
If Not _UOindex_Value Is Nothing Then
_path &= "\" & _UOindex_Value
If _path.Contains(" 00:00:00") Then _path = _path.Replace(" 00:00:00", "")
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Unterordner 2 soll erzeugt werden - Path '" & _path & "'", False)
_Logger.Debug("Unterordner 2 soll erzeugt werden - Path '" & _path & "'")
End If
End If
_UOindex = DT.Rows(0).Item("UO_IDX3")
If _UOindex <> "" Then
Dim sw As New ClassStopwatch($"GetVariableValue _UOindex({_UOindex})")
_UOindex_Value = dokument.GetVariableValue(_UOindex)
Dim msg = sw.Done
If msg <> String.Empty Then _Logger.Info(msg)
If Not _UOindex_Value Is Nothing Then
_path &= "\" & _UOindex_Value
If _path.Contains(" 00:00:00") Then _path = _path.Replace(" 00:00:00", "")
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Unterordner 3 soll erzeugt werden - Path '" & _path & "'", False)
_Logger.Debug("Unterordner 3 soll erzeugt werden - Path '" & _path & "'")
End If
End If
@ -122,10 +151,10 @@ Public Class ClassMO_RE
'Dem Neuen Dateinamen schon mal das Präfix mitgeben
_newfilename = _praefix
_newfilename = _newfilename & _MRDeskrIndex & extension
If My.Settings.vLogErrorsonly = False Then
ClassLoggerNI.Add(">> Ausgelesener Pfad: " & _path, False)
ClassLoggerNI.Add(">> Neuer Dateiname: " & _newfilename, False)
End If
_Logger.Debug("Ausgelesener Pfad: " & _path)
_Logger.Debug("Neuer Dateiname: " & _newfilename)
'### VERSIONIERUNG ###
Dim version As Integer = 2
Dim Stammname As String = _newfilename.Substring(0, _newfilename.LastIndexOf("."))
@ -139,42 +168,47 @@ Public Class ClassMO_RE
_ziel = _path & "\" & _newfilename
If My.Settings.vLogErrorsonly = False Then
If neuername.Contains("~") Then ClassLoggerNI.Add(">> Neuer Dateiname: " & _newfilename, False)
If neuername.Contains("~") Then _Logger.Info("Neuer Dateiname: " & _newfilename)
ClassLoggerNI.Add(">> Neuer Dateiname: " & _newfilename, False)
ClassLoggerNI.Add(">> Quelle: " & vDatei, False)
ClassLoggerNI.Add(">> Ziel: " & _ziel, False)
_Logger.Debug("Neuer Dateiname: " & _newfilename)
_Logger.Debug("Quelle: " & vDatei)
_Logger.Debug("Ziel: " & _ziel)
End If
If myFolderPath <> _path Then
My.Computer.FileSystem.MoveFile(vDatei, _ziel)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Erfolgsmeldung - Datei wurde erfolgreich verschoben", False)
'ClassLoggerNI.Add(" ######### Erfolgsmeldung - Datei wurde erfolgreich umbenannt und verschoben ###########", False)
_windreamNI.NEW_MOVE_FILE(_ziel, vDatei, "MO_RE")
'ClassLoggerNI.Add(" ######### Erfolgsmeldung - Datei wurde erfolgreich umbenannt und verschoben ###########")
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Verschieben nicht notwendig: Ordnerpfad identisch!", False)
_Logger.Info("Verschieben nicht notwendig: Ordnerpfad identisch!")
Dim sw As New ClassStopwatch("RenameFile")
My.Computer.FileSystem.RenameFile(vDatei, _newfilename)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Erfolgsmeldung - Datei wurde erfolgreich umbenannt", False)
_Logger.Debug("Erfolgsmeldung - Datei wurde erfolgreich umbenannt")
Dim msg = sw.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
End If
Execute_Command("INSERT INTO TBMO_RE_HISTORY (FILE_ORIGINAL, FILE_NEW, KUNDE, INDEX1, INDEX2, ERSTELLTWER) VALUES " & _
Execute_Command("INSERT INTO TBMO_RE_HISTORY (FILE_ORIGINAL, FILE_NEW, KUNDE, INDEX1, INDEX2, ERSTELLTWER) VALUES " &
"('" & vDatei & "','" & _ziel & "','" & _kunde & "','" & _MRDeskrIndex & "','" & _MRDOKART & "','ToolCollection MORE')")
Return _ziel
Else
_Logger.Info("MO_RE Result was not 1 row: check select..." & oSelect)
Return False
End If
Catch ex As Exception
ClassLoggerNI.Add(" Fehler in ClassMO_RE - RUN_MO_RE", False)
ClassLoggerNI.Add(" ## Fehlermeldung ##", False)
ClassLoggerNI.Add(" " & ex.Message, False)
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Private Shared Function file_exists(ByVal _file As String, ByVal suche As Boolean)
Try
_file = _file.Replace("W:", "\\windream\objects")
If System.IO.File.Exists(_file) Then
Return True
Else
Return False
End If
Catch ex As Exception
ClassLoggerNI.Add("Fehler in Funktion bei: file_exists - _file: " & _file & " - Fehler: ", ex)
_Logger.Error(ex)
Return False
End Try
End Function

4
ToolCollection/ClassMoReDokumentart.vb
View File

@ -18,7 +18,7 @@
Private _namenskonvention As String
Private _zielort As String
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Private _saved As Boolean
'Private _config As ClassNachindexierungKonfiguration = New ClassNachindexierungKonfiguration
@ -38,7 +38,7 @@
Me._dokumentart = vdokumentart
Me._dokumentartindex = vdokumentartindex
Me._idxadressnrString = vidxadressnrString
Me._idxadressnr = _windream.GetObjecttypeByName(vidxadressnrString)
Me._idxadressnr = _windream.GetObjecttypeByName(vidxadressnrString, False)
Me._namenskonvention = vnamenskonvention
Me._zielort = vZielort

2
ToolCollection/ClassMoReDokumentarten.vb
View File

@ -1,7 +1,7 @@
Public Class ClassMoReDokumentarten
Private Shared _profiles() As ClassMoReDokumentart
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Public Shared xmlConfigFile As String
Public Shared Sub Init()

230
ToolCollection/ClassNIDatenbankzugriff.vb
View File

@ -4,12 +4,28 @@ Imports System.Data.OleDb
Imports Oracle.ManagedDataAccess.Client
Imports System.Timers
Imports System.Threading
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
Imports System.IO
Public Class ClassNIDatenbankzugriff
Private Shared _LastStep As String
Private _MyLogger As LogConfig
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _LastStep, _SQL As String
Private Shared aTimerCount As Integer = 0
Private Shared aTimer As System.Timers.Timer
Private Shared Oracle_Conn As New OracleConnection
Private _firebird As Firebird
Sub New(LogConf As DigitalData.Modules.Logging.LogConfig)
MyBase.New()
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
If My.Settings.FB_DATASOURCE <> String.Empty Then
_firebird = New Firebird(_MyLogger, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
End If
End Sub
''' <summary>
''' Start the timer.
''' </summary>
@ -31,28 +47,30 @@ Public Class ClassNIDatenbankzugriff
Private Shared Sub OnTimedEvent(source As Object, e As ElapsedEventArgs)
aTimerCount = aTimerCount + 1
If aTimerCount > 60 Then
ClassLoggerNI.Add("ClassNIDatenbankzugriff.OnTimedEvent", "Die Maximaldauer (90sec) wurde überschritten!")
ClassLoggerNI.Add(" >> OracleConnection.StatementCacheSize: " & Oracle_Conn.StatementCacheSize, False)
ClassLoggerNI.Add(" >> Last Step: " & _LastStep, False)
ClassLoggerNI.Add(" >> OracleConnection.Connection State: " & Oracle_Conn.State.ToString, False)
_Logger.Warn("ClassNIDatenbankzugriff.OnTimedEvent-Die Maximaldauer (60sec) wurde überschritten!")
_Logger.Warn("OracleConnection.StatementCacheSize: " & Oracle_Conn.StatementCacheSize)
_Logger.Warn("Last Step: " & _LastStep)
_Logger.Warn("OracleConnection.Connection State: " & Oracle_Conn.State.ToString)
_Logger.Warn("OracleSQLCommand: " & _SQL)
Oracle_Conn.Close()
frmNIHauptseite.Abbruch_NI("Abbruch aufgrund Timeout Oracle", False, False)
ClassLoggerNI.Add(" >> INDEXIERUNG WIRD NEUGESTARTET")
_Logger.Info("INDEXIERUNG WIRD NEUGESTARTET")
'und Neustart
frmNIHauptseite.Profile_Durchlaufen()
aTimer.Enabled = False
'Else
' If My.Settings.vLogErrorsonly = False Then
' ClassLoggerNI.Add("OracleConnection.StatementCacheSize: " & Oracle_Conn.StatementCacheSize, False)
' _Logger.Debug("OracleConnection.StatementCacheSize: " & Oracle_Conn.StatementCacheSize)
' End If
End If
End Sub
Private email As New ClassNIEmail
' führt eine SQL-Anweisung auf der DB aus
Public Function GetValueFromOracleDb(Profilname As String, ByVal selectAnweisung As String, ByVal host As String, ByVal servicename As String, ByVal User As String, ByVal pw As String, ByVal myDS As DataSet, Optional ByVal Indexname As String = "", Optional ByVal QuellVektor As Boolean = False)
Timer_Start()
Dim swGvfO As New ClassStopwatch("GetValueFromOracleDb")
_SQL = selectAnweisung
'MsgBox(selectAnweisung)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> ORACLE: " & selectAnweisung, False)
_Logger.Debug("GetValueFromOracleDb: " & selectAnweisung)
Try
'die nötigen Variablen definieren
Dim result As Object = Nothing
@ -61,7 +79,7 @@ Public Class ClassNIDatenbankzugriff
Dim conn As New OracleConnectionStringBuilder
Dim connstr As String
If host <> "" And servicename <> "" Then
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
servicename & ")));User Id=" & User & ";Password=" & pw & ";"
Else
conn.DataSource = host
@ -91,10 +109,8 @@ Public Class ClassNIDatenbankzugriff
_LastStep = "OracleCon wird geöffnet"
Oracle_Conn.Open()
_LastStep = "OracleCon.State: " & Oracle_Conn.State.ToString
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> ORACLE-Connection wurde aufgebaut", False)
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOracleDb", "Verbindung zur Datenbank aufbauen", ex)
ClassLoggerNI.Add("connstr: " & connstr, "Verbindung zur Datenbank aufbauen", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
@ -109,9 +125,8 @@ Public Class ClassNIDatenbankzugriff
Oracle_Command = New OracleCommand(selectAnweisung, Oracle_Conn) 'OracleCommand(selectAnweisung, Connection)
Oracle_Command.AddToStatementCache = True
_LastStep = "ORACLE Command definiert"
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> ORACLE Command definiert", False)
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOracleDb", "SQL-Abfrage definieren", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - SQL-Abfrage definieren: " & ex.Message)
End If
@ -136,19 +151,17 @@ Public Class ClassNIDatenbankzugriff
'Do While DataAdapter.Fill(DataSet)
' count += 1
' If count > 2000 Then
' ClassLoggerNI.Add(" >> ORACLE DataAdapter > 2000", False)
' ClassLoggerNI.Add(" >> DataAdapter.Requery = " & DataAdapter.Requery.ToString, False)
' Timer_Stop()
' _Logger.Debug(">> ORACLE DataAdapter > 2000")
' _Logger.Debug(">> DataAdapter.Requery = " & DataAdapter.Requery.ToString)
' _Logger.Info(sw.Done())
' Return Nothing
' End If
'Loop
'DataAdapter.Fill(DataSet)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> ORACLE DataAdapter gefüllt", False)
Oracle_Conn.Close()
' DB-Connection schliessen
_LastStep = "DataSet wird durchlaufen"
If DataSet.Tables(0).Rows.Count > 1 Or QuellVektor = True Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Datatable in Dataset wird gefüllt", False)
'Beginne mit 0
Dim Index As Integer = 0
For Each Row As DataRow In DataSet.Tables(0).Rows
@ -162,56 +175,62 @@ Public Class ClassNIDatenbankzugriff
Index = Index + 1
Next
_LastStep = "DataSet wurde durchlaufen"
Timer_Stop()
Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return Index
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Dataadapter Rows count > 1", False)
If DataSet.Tables(0).Rows.Count = 1 Then
_LastStep = "Rows.Count = 1"
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Nur ein Ergebnis", False)
' einen einzigen relevanten Wert zurückgeben (sollten keine mehrfachen Einträge auftauchen)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> PLSQL-Ergebnis: '" & DataSet.Tables(0).Rows(0).Item(0) & "'", False)
_Logger.Debug("PLSQL-Ergebnis: '" & DataSet.Tables(0).Rows(0).Item(0) & "'")
' MsgBox("TestM: Wert: " & DataSet.Tables(0).Rows(0).Item(0).ToString)
Timer_Stop()
Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return DataSet.Tables(0).Rows(0).Item(0)
Else
_LastStep = "Rows.Count = 0"
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Dataadapter Rows count = 0", False)
Timer_Stop()
'If My.Settings.vLogErrorsonly = False Then _Logger.Info("Dataadapter Rows count = 0")
Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return Nothing
End If
End If
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOracleDb", "Daten auslesen => SQL-Anweisungen prüfen: " & selectAnweisung, ex)
_Logger.Error(ex)
_Logger.Warn($"Unexpected error in GetValueFromOracleDB - Oracle-Command: {selectAnweisung}")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Daten auslesen => SQL-Anweisungen prüfen: <br>" & selectAnweisung & " <br>Fehler: <br>" & ex.Message)
End If
' DB-Connection schliessen
Oracle_Conn.Close()
Timer_Stop()
Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return Nothing
End Try
Else
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOracleDb", "SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
_Logger.Warn("ClassNIDatenbankzugriff.GetValueFromOracleDb", "SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. ")
End If
Timer_Stop()
Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return Nothing
End If
Catch ex As Exception
_Logger.Error(ex)
_Logger.Warn($"Unexpected error in GetValueFromOracleDB: [{ex.Message}] -Oracle-Command: " & selectAnweisung)
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOracleDb", "Ein unbekannter Fehler in GetValuesFromDb.", ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Ein unbekannter Fehler: " & ex.Message)
End If
Timer_Stop()
Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return Nothing
End Try
@ -224,7 +243,7 @@ Public Class ClassNIDatenbankzugriff
Dim conn As New OracleConnectionStringBuilder
Dim connstr As String
If host <> "" And servicename <> "" Then
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
servicename & ")));User Id=" & User & ";Password=" & pw & ";"
Else
conn.DataSource = host
@ -246,7 +265,7 @@ Public Class ClassNIDatenbankzugriff
Try
Oracle_Conn.Open()
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleDb", "Verbindung zur Datenbank aufbauen", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
@ -260,9 +279,9 @@ Public Class ClassNIDatenbankzugriff
Try
Oracle_Command = New OracleCommand(plsqlcommand, Oracle_Conn)
Oracle_Command.AddToStatementCache = True
ClassLoggerNI.Add(">> Oracle-Command: " & plsqlcommand)
_Logger.Debug(">> Oracle-Command: " & plsqlcommand)
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleDb", "plsqlcommand definieren", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - plsqlcommand definieren: " & ex.Message)
End If
@ -283,7 +302,7 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleDb", "Execute Command => (" & plsqlcommand & ")", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Execute Command => (" & plsqlcommand & "): " & ex.Message)
End If
@ -295,7 +314,7 @@ Public Class ClassNIDatenbankzugriff
Else
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleDb", "SQL-Command ist ungültig bzw konnte nicht erstellt werden (SQL: " & plsqlcommand & ")")
_Logger.Warn("ClassNIDatenbankzugriff.ExecuteonOracleDb", "SQL-Command ist ungültig bzw konnte nicht erstellt werden (SQL: " & plsqlcommand & ")")
Timer_Stop()
Return 0
End If
@ -303,7 +322,7 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleDb", "Ein unbekannter Fehler in ExecuteonOracleDb.", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Ein unbekannter Fehler in ExecuteonOracleDb: " & ex.Message)
End If
@ -320,7 +339,7 @@ Public Class ClassNIDatenbankzugriff
Dim conn As New OracleConnectionStringBuilder
Dim connstr As String
If host <> "" And servicename <> "" Then
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
servicename & ")));User Id=" & User & ";Password=" & pw & ";"
Else
conn.DataSource = host
@ -339,7 +358,7 @@ Public Class ClassNIDatenbankzugriff
Try
Oracle_Conn.Open()
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleClient", "Verbindung zur Datenbank aufbauen", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
@ -354,9 +373,9 @@ Public Class ClassNIDatenbankzugriff
Try
Oracle_Command = New OracleCommand(plsqlcommand, Oracle_Conn)
Oracle_Command.AddToStatementCache = True
ClassLoggerNI.Add(">> Oracle-Command: " & plsqlcommand)
_Logger.Debug(">> Oracle-Command: " & plsqlcommand)
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleClient", "plsqlcommand definieren", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - plsqlcommand definieren: " & ex.Message)
End If
@ -376,7 +395,7 @@ Public Class ClassNIDatenbankzugriff
'Do While Oracle_Command.ExecuteNonQuery()
' count += 1
' If count > 2000 Then
' ClassLoggerNI.Add(">> Oracle_Command.ExecuteNonQuery > 2000", False)
' _Logger.Debug(">> Oracle_Command.ExecuteNonQuery > 2000")
' Oracle_Conn.Close()
' Timer_Stop()
' Return 0
@ -390,7 +409,7 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleClient", "Execute Command => (" & plsqlcommand & ")", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - Execute Command => (" & plsqlcommand & "): " & ex.Message)
End If
@ -403,7 +422,7 @@ Public Class ClassNIDatenbankzugriff
Else
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleClient", "SQL-Command ist ungültig bzw konnte nicht erstellt werden (SQL: " & plsqlcommand & ")")
_Logger.Warn("ClassNIDatenbankzugriff.ExecuteonOracleClient", "SQL-Command ist ungültig bzw konnte nicht erstellt werden (SQL: " & plsqlcommand & ")")
Timer_Stop()
Return 0
End If
@ -411,7 +430,7 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonOracleClient", "Ein unbekannter Fehler in ExecuteonOracleDb.", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - Ein unbekannter Fehler in ExecuteonOracleClient: " & ex.Message)
End If
@ -427,7 +446,7 @@ Public Class ClassNIDatenbankzugriff
Dim conn As New OracleConnectionStringBuilder
Dim connstr As String
If host <> "" And servicename <> "" Then
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
servicename & ")));User Id=" & User & ";Password=" & pw & ";"
Else
@ -443,7 +462,7 @@ Public Class ClassNIDatenbankzugriff
Try
Oracle_Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("Fehler bei Verbindung zur Datenbank aufbauen - String: " & connstr, "Message", ex)
_Logger.Error(ex)
' DB-Connection schliessen
Return 99
Oracle_Connection.Close()
@ -458,8 +477,7 @@ Public Class ClassNIDatenbankzugriff
Return CLng(ergebnis)
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.CheckIndex_oracle", "Unbekannter Fehler", ex)
ClassLoggerNI.Add("PL/SQL-Statement: " & _scalar_select, False)
_Logger.Error(ex)
Return 0
End Try
@ -484,7 +502,7 @@ Public Class ClassNIDatenbankzugriff
Connection = New SqlConnection(con)
Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.CheckIndex_mssql", "Verbindung zur Datenbank aufbauen", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.CheckIndex_mssql - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
@ -500,7 +518,7 @@ Public Class ClassNIDatenbankzugriff
Return CLng(ergebnis)
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.CheckIndex_mssql", "Unbekannter Fehler", ex)
_Logger.Error(ex)
Return 0
End Try
End Function
@ -529,7 +547,7 @@ Public Class ClassNIDatenbankzugriff
' führt eine SQL-Anweisung auf der DB aus
Public Function GetValueFromMssqlDb(Profilname As String, ByVal selectAnweisung As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, ByVal myDS As DataSet, ByVal init_Cata As String, Optional ByVal Indexname As String = "", Optional ByVal QuellVektor As Boolean = False) '
Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> MS-SQL: " & selectAnweisung, False)
_Logger.Debug("MS-SQL: " & selectAnweisung)
' die nötigen Variablen definieren
'####
Dim con As String
@ -546,7 +564,7 @@ Public Class ClassNIDatenbankzugriff
Try
SQLconnect.Open()
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromMssqlDb", "Verbindung zur Datenbank aufbauen", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
@ -558,7 +576,7 @@ Public Class ClassNIDatenbankzugriff
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = selectAnweisung
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromMssqlDb", "SQL-Abfrage definieren", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - SQL-Abfrage definieren: " & ex.Message)
End If
@ -576,8 +594,8 @@ Public Class ClassNIDatenbankzugriff
Try
Select Case dt.Rows.Count
Case 0
ClassLoggerNI.Add(">> SQL-ERGEBNIS liefert keine Zeile zurück!", False)
ClassLoggerNI.Add(">> SQL-Befehl: " & selectAnweisung, False)
_Logger.Warn(">> SQL-ERGEBNIS liefert keine Zeile zurück!")
_Logger.Warn(">> SQL-Befehl: " & selectAnweisung)
If QuellVektor = True Then
SQLconnect.Close()
Return "Empty Row"
@ -589,7 +607,7 @@ Public Class ClassNIDatenbankzugriff
' einen einzigen relevanten Wert zurückgeben
Dim sqlresult = dt.Rows(0).Item(0)
If IsDBNull(sqlresult) Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Genau 1 Zeile allerdings System.DBNull", False)
_Logger.Warn("Genau 1 Zeile allerdings System.DBNull")
If QuellVektor = True Then
SQLconnect.Close()
Return "NULL Row"
@ -598,14 +616,14 @@ Public Class ClassNIDatenbankzugriff
Return Nothing
End If
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Genau 1 Zeile - SQL-Ergebnis: '" & sqlresult.ToString & "'", False)
_Logger.Debug("Genau 1 Zeile - SQL-Ergebnis: '" & sqlresult.ToString & "'")
Dim newRow As DataRow
If QuellVektor = True Then
newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow()
'filling the row with values. Item property is used to set the field value.
newRow.Item("Indexname") = Indexname
newRow.Item("Wert") = CStr(sqlresult)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Value: " & CStr(sqlresult), False)
_Logger.Debug("Value: " & CStr(sqlresult))
myDS.Tables("TBVEKTOR_ARRAY").Rows.Add(newRow)
Else
newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow()
@ -624,7 +642,7 @@ Public Class ClassNIDatenbankzugriff
End If
Case Else
'SQL liefert mehrere Werte zurück
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Mehrere Zeilen durch SQL - Anzahl: " & dt.Rows.Count, False)
_Logger.Debug("Mehrere Zeilen durch SQL - Anzahl: " & dt.Rows.Count)
'Beginne mit 0
Dim counter As Integer = 0
For Each Row As DataRow In dt.Rows
@ -633,7 +651,7 @@ Public Class ClassNIDatenbankzugriff
'filling the row with values. Item property is used to set the field value.
newRow.Item("Indexname") = Indexname
newRow.Item("Wert") = CStr(Row.Item(0))
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Value: " & CStr(Row.Item(0)), False)
_Logger.Debug("Value: " & CStr(Row.Item(0)))
myDS.Tables("TBVEKTOR_ARRAY").Rows.Add(newRow)
' ds.Tables("TBVEKTOR_ARRAYDataTable").Rows.Add(Temptable.Rows(0))
counter += 1
@ -643,7 +661,8 @@ Public Class ClassNIDatenbankzugriff
End Select
SQLconnect.Close()
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromMssqlDb", "DT-durchlaufen", ex)
_Logger.Warn("ClassNIDatenbankzugriff.GetValueFromMssqlDb" & ex.Message)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Datatable durchlaufen: " & ex.Message)
End If
@ -653,7 +672,7 @@ Public Class ClassNIDatenbankzugriff
End Try
Else
'Eintrag in Logdatei machen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromMssqlDb", "Die Datatable ist unerwartet nothing. (SQL: " & selectAnweisung & ")")
_Logger.Warn("Die Datatable ist unerwartet nothing. (SQL: " & selectAnweisung & ")")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Die Datatable ist unerwartet nothing. (SQL: " & selectAnweisung & ")")
End If
@ -663,7 +682,7 @@ Public Class ClassNIDatenbankzugriff
Else
'kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
'Eintrag in Logdatei machen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromMssqlDb", "SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
_Logger.Warn("SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
End If
@ -674,7 +693,7 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromMssqlDb", "Build Datenadapter => SQL-Anweisungen prüfen: " & selectAnweisung, ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Build Datenadapter => SQL-Anweisungen prüfen (" & selectAnweisung & "): " & ex.Message)
End If
@ -688,17 +707,39 @@ Public Class ClassNIDatenbankzugriff
'#####
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromMssqlDb", "Ein unbekannter Fehler in GetValuesFromDb.", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Ein unbekannter Fehler: " & ex.Message)
End If
Return Nothing
End Try
End Function
Public Function GetValueFromFirebird(Profilname As String, ByVal selectAnweisung As String, ByVal Indexname As String, myDS As DataSet) '
Try
_Logger.Debug("Firebird: " & selectAnweisung)
Dim result = _firebird.GetScalarValue(selectAnweisung)
Dim newRow As DataRow
newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow()
'filling the row with values. Item property is used to set the field value.
newRow.Item("Indexname") = Indexname
newRow.Item("Wert") = CStr(result)
_Logger.Debug("Value: " & CStr(result))
myDS.Tables("TBVEKTOR_ARRAY").Rows.Add(newRow)
Return result
'#####
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
_Logger.Error(ex)
_Logger.Warn("selectAnweisung: " & selectAnweisung)
Return Nothing
End Try
End Function
' führt eine SQL-Anweisung auf der DB aus
Public Function ExecuteonMSSQL(Profilname As String, ByVal sqlcommand As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, ByVal init_Cata As String)
Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> MSSQL-Command: " & sqlcommand, False)
_Logger.Debug("MSSQL-Command: " & sqlcommand)
' die nötigen Variablen definieren
Dim Connection As SqlConnection = Nothing
' Dim ConnectionString As SqlConnectionStringBuilder = Nothing
@ -725,7 +766,8 @@ Public Class ClassNIDatenbankzugriff
Connection = New SqlConnection(con)
Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonMSSQL", "Verbindung zur Datenbank aufbauen", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
@ -739,7 +781,7 @@ Public Class ClassNIDatenbankzugriff
Try
Command = New SqlCommand(sqlcommand, Connection)
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonMSSQL", "sqlcommand definieren", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - sqlcommand definieren: " & ex.Message)
End If
@ -758,7 +800,7 @@ Public Class ClassNIDatenbankzugriff
Return 1
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonMSSQL", "Execute Command => SQL-Anweisungen prüfen (" & sqlcommand & ")", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - Execute Command => SQL-Anweisungen prüfen (" & sqlcommand & "): " & ex.Message)
End If
@ -769,7 +811,7 @@ Public Class ClassNIDatenbankzugriff
Else
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonMSSQL", "SQL-Command ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & sqlcommand & ")")
_Logger.Warn("Unexpected error in Execute on MSSQL Row 774")
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - SQL-Command ist ungültig. Command-Objekt konnte nicht erstellt werden.")
End If
@ -778,7 +820,7 @@ Public Class ClassNIDatenbankzugriff
End If
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.ExecuteonMSSQL", "Ein unbekannter Fehler in ExecuteonMSSQL.", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - Ein unbekannter Fehler in ExecuteonMSSQL: " & ex.Message)
End If
@ -788,7 +830,7 @@ Public Class ClassNIDatenbankzugriff
End Function
Public Function CheckIndex_MSSSQL(Profilname As String, ByVal scalar_select As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, ByVal init_Cata As String)
Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> MSSQL-Command: " & scalar_select, False)
_Logger.Debug("MSSQL-Command: " & scalar_select)
' die nötigen Variablen definieren
Dim Connection As SqlConnection = Nothing
Dim Command As SqlCommand = Nothing
@ -806,8 +848,7 @@ Public Class ClassNIDatenbankzugriff
Connection = New SqlConnection(con)
Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("CheckIndex_MSSSQL - Message: " & ex.Message, "Verbindung zur Datenbank aufbauen", ex)
ClassLoggerNI.Add("## ConString: " & con, False)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>CheckIndex_MSSSQL - Verbindung zur Datenbank aufbauen: " & ex.Message)
End If
@ -820,8 +861,7 @@ Public Class ClassNIDatenbankzugriff
Try
Command = New SqlCommand(scalar_select, Connection)
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.CheckIndex_MSSSQL - Message: " & ex.Message, "sqlcommand definieren", ex)
ClassLoggerNI.Add("## scalar_select: " & scalar_select, False)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Profilname: " & Profilname & "<br>CheckIndex_MSSSQL - sqlcommand definieren: " & ex.Message)
End If
@ -834,8 +874,7 @@ Public Class ClassNIDatenbankzugriff
Return CLng(ergebnis)
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("Unvorhergesehener Fehler in CheckIndex_MSSSQL - Message: " & ex.Message, "Unbekannter Fehler", ex)
ClassLoggerNI.Add("SELECT-BEFEHL: " & scalar_select, False)
_Logger.Error(ex)
Return 0
End Try
End Function
@ -853,7 +892,7 @@ Public Class ClassNIDatenbankzugriff
' führt eine SQL-Anweisung auf der DB aus
Public Function GetValueFromOdbcDb(Profilname As String, ByVal selectAnweisung As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, Optional ByVal Indexname As String = "") '
Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> ODBC: " & selectAnweisung, False)
_Logger.Debug("ODBC: " & selectAnweisung)
' die nötigen Variablen definieren
Dim result As Object = Nothing
@ -874,7 +913,7 @@ Public Class ClassNIDatenbankzugriff
Connection = New OdbcConnection(ConnectionString.ConnectionString)
Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOdbcDb", "Verbindung zur Datenbank aufbauen", ex)
_Logger.Error(ex)
' DB-Connection schliessen
Me.CloseOdbcDb(Connection)
Return Nothing
@ -885,7 +924,7 @@ Public Class ClassNIDatenbankzugriff
Try
Command = New OdbcCommand(selectAnweisung, Connection)
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOdbcDb", "SQL-Abfrage definieren", ex)
_Logger.Error(ex)
' DB-Connection schliessen
Me.CloseOdbcDb(Connection)
Return Nothing
@ -926,7 +965,7 @@ Public Class ClassNIDatenbankzugriff
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOdbcDb", "Daten auslesen => SQL-Anweisungen prüfen (" & selectAnweisung & ")", ex)
_Logger.Error(ex)
' DB-Connection schliessen
Me.CloseOdbcDb(Connection)
Return Nothing
@ -935,14 +974,14 @@ Public Class ClassNIDatenbankzugriff
Else
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOdbcDb", "SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
_Logger.Warn("Unexpected Error in GetValueFromODBC Row 3937")
Return Nothing
End If
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOdbcDb", "Ein unbekannter Fehler in GetValuesFromDb.", ex)
_Logger.Error(ex)
Return Nothing
End Try
@ -960,7 +999,7 @@ Public Class ClassNIDatenbankzugriff
' führt eine SQL-Anweisung auf der DB aus
Public Function GetValueFromOleDb(Profilname As String, ByVal selectAnweisung As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, Optional ByVal Indexname As String = "") '
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> OLEDB: " & selectAnweisung, False)
_Logger.Debug("OLEDB: " & selectAnweisung)
'MsgBox(selectAnweisung)
Try
@ -993,7 +1032,7 @@ Public Class ClassNIDatenbankzugriff
Connection = New OleDbConnection(ConnectionString.ConnectionString)
Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOleDb", "Verbindung zur Datenbank aufbauen", ex)
_Logger.Error(ex)
' DB-Connection schliessen
Me.CloseOleDb(Connection)
Return Nothing
@ -1004,7 +1043,7 @@ Public Class ClassNIDatenbankzugriff
Try
Command = New OleDbCommand(selectAnweisung, Connection)
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOleDb", "SQL-Abfrage definieren", ex)
_Logger.Error(ex)
' DB-Connection schliessen
Me.CloseOleDb(Connection)
Return Nothing
@ -1046,7 +1085,7 @@ Public Class ClassNIDatenbankzugriff
Return DataSet.Tables(0).Rows(0).Item(0)
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei erzeugen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOleDb", "Daten auslesen => SQL-Anweisungen prüfen (" & selectAnweisung & ")", ex)
_Logger.Error(ex)
' DB-Connection schliessen
Me.CloseOleDb(Connection)
Return Nothing
@ -1055,14 +1094,13 @@ Public Class ClassNIDatenbankzugriff
Else
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOleDb", "SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
_Logger.Warn("Unexpected Error in GetValueFromODBC Row 1057")
Return Nothing
End If
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.GetValueFromOleDb", "Ein unbekannter Fehler in GetValuesFromDb.", ex)
_Logger.Error(ex)
Return Nothing
End Try

18
ToolCollection/ClassNIEmail.vb
View File

@ -1,8 +1,8 @@
Imports System.Net.Mail
Imports System.IO
Imports DigitalData.Modules.Logging
Public Class ClassNIEmail
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared err_message As String
Public Shared Sub Add(ByVal errmsg As String)
err_message &= vbNewLine & errmsg
@ -52,8 +52,8 @@ Public Class ClassNIEmail
'*Send the message */
emailClient.Send(message)
ClassLoggerNI.Add("==> Fehler Email erfolgreich an " & _mailempfaenger & " versendet!", False)
ClassLoggerNI.Add("==> Text: " & vBody, False)
_Logger.Info("==> Fehler Email erfolgreich an " & _mailempfaenger & " versendet!")
_Logger.Info("==> Text: " & vBody)
If Test = True Then
MsgBox("Email an " & _mailempfaenger & " erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
End If
@ -65,7 +65,7 @@ Public Class ClassNIEmail
If Test = True Then
MsgBox("Fehler im Mailversand:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler im Mailversand NI:")
Else
ClassLoggerNI.Add(">> Achtung: Fehler in Mailversand: " & ex.Message, False)
_Logger.Warn(">> Achtung: Fehler in Mailversand: " & ex.Message)
End If
End Try
@ -80,7 +80,7 @@ Public Class ClassNIEmail
Dim name = Path.GetFileNameWithoutExtension(tempFilename)
tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".log")
File.Copy(ClassLoggerNI.LogDateiname, tempFilename)
' File.Copy(Logger.LogDateiname, tempFilename)
' create and add the attachment(s) */
@ -90,7 +90,7 @@ Public Class ClassNIEmail
Catch ex As Exception
MsgBox("Fehler im Mailversand Urgent - Add LogFile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLoggerNI.Add(">> Achtung: Fehler in Mailversand Urgent - Add LogFile: " & ex.Message, False)
_Logger.Warn(">> Achtung: Fehler in Mailversand Urgent - Add LogFile: " & ex.Message)
End Try
'#########
Dim empfaenger As String()
@ -133,7 +133,7 @@ Public Class ClassNIEmail
If My.Computer.FileSystem.FileExists(tempFilename) Then
'My.Computer.FileSystem.DeleteFile(tempFilename)
End If
ClassLoggerNI.Add(">> Urgent Email erfolgreich an " & _mailempfaenger & " versendet!", False)
_Logger.Info(">> Urgent Email erfolgreich an " & _mailempfaenger & " versendet!")
If Test = True Then
MsgBox("Email an " & _mailempfaenger & " erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
End If
@ -145,7 +145,7 @@ Public Class ClassNIEmail
If Test = True Then
MsgBox("Fehler im Mailversand Urgent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(">> Achtung: Fehler in Mailversand Urgent: " & ex.Message, False)
_Logger.Warn(">> Achtung: Fehler in Mailversand Urgent: " & ex.Message)
End If
End Try

4
ToolCollection/ClassNIProfil.vb
View File

@ -65,7 +65,7 @@
Private _CrFolder_Created_Folder As String
Private _CrFolder_move As Boolean
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Private _saved As Boolean
'Private _config As ClassNachindexierungKonfiguration = New ClassNachindexierungKonfiguration
@ -89,7 +89,7 @@
ByVal CreaFolderIndex As String, ByVal CreaFolder_Folder As String, ByVal CreaFolder_move As Boolean)
Me._dokumenttypString = dokumenttyp_string
Me._dokumenttyp = _windream.GetObjecttypeByName(dokumenttyp_string)
Me._dokumenttyp = _windream.GetObjecttypeByName(dokumenttyp_string, False)
Me._originalProfilname = profilname
Me._originalWindreamSuche = windreamSuche

45
ToolCollection/ClassNIProfile.vb
View File

@ -1,9 +1,9 @@
Public Class ClassNIProfile
Imports DigitalData.Modules.Logging
Public Class ClassNIProfile
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _profiles() As ClassNIProfil
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Public Shared xmlConfigFile As String
Public Shared Sub Init()
xmlConfigFile = My.Application.Info.DirectoryPath & "\" & My.Settings.vNIConfigDatei
ClassNIProfile.LoadFromXmlFile()
@ -20,7 +20,8 @@
Return True
Catch ex As Exception
Try
ClassLoggerNI.Add("System kann nicht auf Konfig-Datei zugreifen: " & ex.Message, True)
_Logger.Error(ex)
Dim fw As System.IO.StreamWriter = New System.IO.StreamWriter(xmlConfigFile)
fw.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1"" standalone=""yes""?>")
fw.WriteLine("<Settings>")
@ -138,8 +139,8 @@
End Sub
' erstellt ein neues Profil
Public Shared Sub Add(ByVal profilname As String, ByVal dokumenttyp As String, ByVal windreamSuche As String, _
ByVal NiArt As String, ByVal xmlEnd As String, ByVal dbArt As String, ByVal dataSource As String, ByVal userId As String, _
Public Shared Sub Add(ByVal profilname As String, ByVal dokumenttyp As String, ByVal windreamSuche As String,
ByVal NiArt As String, ByVal xmlEnd As String, ByVal dbArt As String, ByVal dataSource As String, ByVal userId As String,
ByVal password As String, ByVal initialCatalog As String, ByVal indexValidation As String, ByVal delete As String, ByVal intervall As Integer, ByVal GetFolderIdx As Boolean, ByVal Ordnertyp As String, Optional DESKIndex As String = "")
Try
@ -228,21 +229,21 @@
' das Profilobjekt erstellen
ClassNIProfile._profiles(ClassNIProfile.Count - 1) = New ClassNIProfil( _
profilname, _
dokumenttyp, _
windreamSuche, _
NiArt, _
xmlEnd, _
delete, _
"", _
dbArt, _
dataSource, _
userId, _
password, _
initialCatalog, _
"", "", "", indexValidation, "", "", "True", "", "", "", _
intervall, _
ClassNIProfile._profiles(ClassNIProfile.Count - 1) = New ClassNIProfil(
profilname,
dokumenttyp,
windreamSuche,
NiArt,
xmlEnd,
delete,
"",
dbArt,
dataSource,
userId,
password,
initialCatalog,
"", "", "", indexValidation, "", "", "True", "", "", "",
intervall,
"01.01.1900", False, GetFolderIdx, Ordnertyp, "Parent", "", "", False)
MsgBox("Das Profil '" & profilname & "' wurde erfolgreich angelegt!", MsgBoxStyle.Information, "Erfolgsmeldung:")

296
ToolCollection/ClassNIWindream.vb
View File

@ -1,8 +1,10 @@
Imports WINDREAMLib
Imports WMOSRCHLib
Imports DigitalData.Modules.Logging
Public Class ClassNIWindream
Inherits ClassWindream_allgemein
Private email As New ClassNIEmail
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _MyLogger As LogConfig
Private _selectedProfil As ClassNIProfil
#Region "+++++ Konstanten +++++"
'Protected Const WMObjectEditModeObject = &H1F
@ -38,8 +40,10 @@ Public Class ClassNIWindream
#End Region
#Region "+++++ Allgemeine Methoden und Funktionen +++++"
Sub New()
MyBase.New()
Sub New(LogConfig As LogConfig)
MyBase.New(LogConfig)
_MyLogger = LogConfig
_Logger = _MyLogger.GetLogger
End Sub
Private Function IsNotEmpty(ByVal aValue As Object)
@ -65,7 +69,7 @@ Public Class ClassNIWindream
End Function
Public Shared Function GetIndex_Type(idxName) As String
Try
Dim oAttribute = ClassNIWindream.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, idxName)
Dim oAttribute = ClassNIWindream.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, idxName)
'den Variablentyp (String, Integer, ...) auslesen
Dim vType = oAttribute.getVariableValue("dwAttrType")
Dim Type As String
@ -127,39 +131,39 @@ Public Class ClassNIWindream
oDocument.lock()
If aValues.Length = 1 And aValues(0) = "" Then
ClassLoggerNI.Add(" >> RunIndexing_Vektor: Indexwert ist leer/Nothing - Keine Nachindexierung", False)
_Logger.Warn(" >> RunIndexing_Vektor: Indexwert ist leer/Nothing - Keine Nachindexierung")
Else
'Jetzt jeden Indexwert durchlaufen
Dim indexname As String
indexname = Indizes(0)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> RunIndexing_Vektor: Indexname: " & indexname, False)
If My.Settings.vLogErrorsonly = False Then _Logger.Warn(" >> RunIndexing_Vektor: Indexname: " & indexname)
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> RunIndexing_Vektor: VEKTORFELD-Indexierung: Vorbereiten des Arrays", False)
If My.Settings.vLogErrorsonly = False Then _Logger.Warn(" >> RunIndexing_Vektor: VEKTORFELD-Indexierung: Vorbereiten des Arrays")
' das entsprechende Attribut aus windream auslesen
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
Dim oAttribute = Me.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
' den Variablentyp (String, Integer, ...) auslesen
Dim vType = oAttribute.getVariableValue("dwAttrType")
Select Case (vType)
Case 4097
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
_Logger.Debug("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
Case 4098
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4098 Vektor Numerisch", False)
_Logger.Debug("Typ des windream-Indexes: 4098 Vektor Numerisch")
Case 4099
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
_Logger.Debug("Typ des windream-Indexes: 4099 Vektor Kommazahl")
Case 4101
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4101 Vektor Date", False)
_Logger.Debug("Typ des windream-Indexes: 4101 Vektor Date")
Case 4103
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4103 Vektor DateTime", False)
_Logger.Debug("Typ des windream-Indexes: 4103 Vektor DateTime")
Case 4107
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4107 Vektor Integer(64bit)", False)
_Logger.Debug("Typ des windream-Indexes: 4107 Vektor Integer(64bit)")
Case 36865
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
_Logger.Debug("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
End Select
Dim Anzahl As Integer = aValues.Length - 1
'Vektorfeld wird mit EINEM Wert gefüllt
If Anzahl = 0 Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> RunIndexing_Vektor: Vektorfeld wird mit EINEM Wert gefüllt ", False)
_Logger.Debug("RunIndexing_Vektor: Vektorfeld wird mit EINEM Wert gefüllt ")
ReDim myArray(0)
Select Case (vType)
Case 4097
@ -180,9 +184,9 @@ Public Class ClassNIWindream
Case 36865
myArray(0) = CStr(aValues(0))
End Select
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString, False)
_Logger.Debug("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString)
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten gefüllt ", False)
_Logger.Debug("RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten gefüllt ")
Dim _value As String
Try
'Die Größe des Arrays festlegen
@ -204,11 +208,11 @@ Public Class ClassNIWindream
Try
convertValue = CInt(wert)
Catch ex As Exception
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Wert muss in Int64 konvertiert werden", False)
_Logger.Debug("Wert muss in Int64 konvertiert werden")
convertValue = Convert.ToInt64(wert) 'ToInt64
End Try
Else
' ClassLoggerNI.Add(" - Indexierungswert '" & wert.ToString & "' kann nicht in Integer konvertiert werden", False)
' ClassLoggerNI.Add(" - Indexierungswert '" & wert.ToString & "' kann nicht in Integer konvertiert werden")
Return False
End If
@ -227,30 +231,31 @@ Public Class ClassNIWindream
i1 += 1
Next
Catch ex As Exception
ClassLoggerNI.Add("## Error in converting array with more values - error: " & ex.Message)
_Logger.Error(ex)
'ClassLoggerNI.Add(String.Format("## Error in converting array with more values: value ('{0}') - error: " & ex.Message, _value))
End Try
End If
'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(indexname, myArray)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> RunIndexing_Vektor: 'SetVariableValue' für VEKTOR erfolgreich", False)
_Logger.Debug("RunIndexing_Vektor: 'SetVariableValue' für VEKTOR erfolgreich")
oDocument.Save()
oDocument.unlock()
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> RunIndexing_Vektor: Indexierung erfolgreich beendet (Save und Unlock durchgeführt)", False)
_Logger.Info("RunIndexing_Vektor: Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
Return True
End If
Else
ClassLoggerNI.Add(" >> RunIndexing_Vektor: Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False)
_Logger.Info("RunIndexing_Vektor: Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
Return False
End If
End If
Catch ex As Exception
ClassLoggerNI.Add("## Unexpected Error in RunIndexing_Vektor - error: " & ex.Message)
_Logger.Error(ex)
If Not IsNothing(myArray) Then
Dim i1 As Integer = 0
For Each aValue As String In myArray
ClassLoggerNI.Add(String.Format(">> myArray Value({0}): " & aValue.ToString, i1), False)
_Logger.Debug(String.Format("myArray Value({0}): " & aValue.ToString, i1))
i1 += 1
Next
End If
@ -273,7 +278,8 @@ Public Class ClassNIWindream
Try
oDocument.LockFor(CLng(WMObjectEditModeChangeArchivedIndex))
Catch ex1 As Exception
ClassLoggerNI.Add("ACHTUNG: Fehler bei Locken der Archivierten Datei (ClassNiWindream.RunIndexing): " & ex1.Message, True)
_Logger.Error(ex1)
Return True
End Try
Else
@ -282,16 +288,17 @@ Public Class ClassNIWindream
Catch ex As Exception
If ex.Message.Contains("Object not editable in mode") Then
Try
'ClassLoggerNI.Add(" >> Ergebnis CStr(dwflag): " & CStr(dwflag) & " - Versuch die Datei mit erweitertem Modus zu locken!", False)
'_Logger.Debug("Ergebnis CStr(dwflag): " & CStr(dwflag) & " - Versuch die Datei mit erweitertem Modus zu locken!")
oDocument.LockFor(CLng(WMObjectEditModeChangeArchivedIndex))
Catch exlock2 As Exception
ClassLoggerNI.Add("ACHTUNG: Fehler bei Locken der Datei mit erweitertem Modus WMobjectEMCArchived: " & exlock2.Message, True)
ClassLoggerNI.Add(" >>Ergebnis CStr(dwflag): " & CStr(dwflag), False)
_Logger.Error(ex)
_Logger.Warn("ACHTUNG: Fehler bei Locken der Datei mit erweitertem Modus WMobjectEMCArchived: " & exlock2.Message)
_Logger.Warn("Ergebnis CStr(dwflag): " & CStr(dwflag))
Return True
End Try
Else
ClassLoggerNI.Add("ACHTUNG: Fehler bei Locken der Datei (ClassNiWindream.RunIndexing): " & ex.Message, True)
ClassLoggerNI.Add("Ergebnis CStr(dwflag): " & CStr(dwflag), False)
_Logger.Warn("ACHTUNG: Fehler bei Locken der Datei (ClassNiWindream.RunIndexing): " & ex.Message)
_Logger.Warn("Ergebnis CStr(dwflag): " & CStr(dwflag))
Return True
End If
@ -302,16 +309,14 @@ Public Class ClassNIWindream
Dim i As Integer = 0
Dim indexname As String
If aValues.Length = 1 And aValues(0) = "" Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Indexwert ist leer/Nothing - Keine Nachindexierung", False)
_Logger.Info("Indexwert ist leer/Nothing - Keine Nachindexierung 311")
End If
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If oDocument.aObjectType.aName <> Objekttyp Then
' ihr den entsprechenden Dokumenttyp zuweisen
oDocument.aObjectType = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Objekttyp)
oDocument.aObjectType = Me.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Objekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & Objekttyp & "' geändert.", False)
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Objekttyp war bereits gesetzt", False)
_Logger.Debug("Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & Objekttyp & "' geändert.")
End If
Try
@ -325,12 +330,8 @@ Public Class ClassNIWindream
'Jetzt jeden Indexwert durchlaufen
For Each aName As String In Indizes
indexname = aName
If My.Settings.vLogErrorsonly = False Then
ClassLoggerNI.Add(" ", False)
ClassLoggerNI.Add(" >> Indexierung von Index '" & indexname & "'", False)
End If
' das entsprechende Attribut aus windream auslesen
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
Dim oAttribute = Me.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
' den Variablentyp (String, Integer, ...) auslesen
Dim vType = oAttribute.getVariableValue("dwAttrType")
' wenn in aValues an Position i ein Wert steht
@ -353,13 +354,13 @@ Public Class ClassNIWindream
Select Case (vType)
'Case WMObjectVariableValueTypeUndefined
Case WMObjectVariableValueTypeString
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeString", False)
'_Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeString")
convertValue = CStr(value)
Case WMObjectVariableValueTypeInteger
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False)
'_Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
value = value.ToString.Replace(" ", "")
If IsNumeric(value) = False Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!", False)
_Logger.Info("Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!")
frmNIHauptseite._MRKONVERT_FEHLER = 1
Else
frmNIHauptseite._MRKONVERT_FEHLER = 0
@ -368,33 +369,33 @@ Public Class ClassNIWindream
convertValue = CInt(value)
_int = True
Case WMObjectVariableValueTypeFloat
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
' _Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
value = value.ToString.Replace(" ", "")
convertValue = CDbl(value)
Case WMObjectVariableValueTypeFixedPoint
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False)
'_Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint")
value = value.ToString.Replace(" ", "")
convertValue = CDbl(value)
_dbl = True
Case WMObjectVariableValueTypeBoolean
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False)
'_Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeBoolean")
convertValue = CBool(value)
_bool = True
Case WMObjectVariableValueTypeDate
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeDate", False)
'_Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeDate")
_date = True
'Dim _date As Date = value
convertValue = value
Case WMObjectVariableValueTypeTimeStamp
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False)
'_Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp")
convertValue = CDbl(value)
Case WMObjectVariableValueTypeCurrency
ClassLoggerNI.Add(">> Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False)
' _Logger.Debug(">> Typ des windream-Indexes: WMObjectVariableValueTypeCurrency")
'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
convertValue = aValueWrapper
Case WMObjectVariableValueTypeTime
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTime", False)
'_Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeTime")
'If ((value)) Then
' convertValue = CDate(value)
'Else
@ -403,58 +404,58 @@ Public Class ClassNIWindream
'Dim _date As Date = value
convertValue = convertValue '*_date.ToShortTimeString
Case WMObjectVariableValueTypeFloat
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
'_Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
convertValue = CStr(value)
Case WMObjectVariableValueTypeVariant
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False)
'_Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeVariant")
convertValue = CStr(value)
Case WMObjectVariableValueTypeFulltext
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False)
' _Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFulltext")
convertValue = CStr(value)
Case 4097
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
' _Logger.Debug("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
'Vektor alphanumerisch
vektor = True
Case 4098
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4098 Vektor Numerisch", False)
' _Logger.Debug("Typ des windream-Indexes: 4098 Vektor Numerisch")
'Vektor Numerisch
vektor = True
Case 4099
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
'_Logger.Debug("Typ des windream-Indexes: 4099 Vektor Kommazahl")
'Vektor Kommazahl
vektor = True
Case 4101
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4101 Vektor Date", False)
' _Logger.Debug("Typ des windream-Indexes: 4101 Vektor Date")
'Vektor Kommazahl
vektor = True
Case 4103
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4103 Vektor DateTime", False)
'_Logger.Debug("Typ des windream-Indexes: 4103 Vektor DateTime")
'Vektor DateTime
vektor = True
Case 4107
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 4107 Integer 64bit", False)
' _Logger.Debug("Typ des windream-Indexes: 4107 Integer 64bit")
vektor = True
Case 36865
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
' _Logger.Debug("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
'Vektor Kommazahl
vektor = True
Case Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes konnte nicht bestimmt werden!", False)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Versuch des Auslesens (vType): " & vType)
_Logger.Warn("Typ des windream-Indexes konnte nicht bestimmt werden!")
_Logger.Debug("Versuch des Auslesens (vType): " & vType)
'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
convertValue = ""
End Select
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Konvertierter Wert: '" & convertValue.ToString & "'", False)
End If
End If
'If vektor = False Then
' If convertValue.ToString Is Nothing = False Then
' _Logger.Debug("Konvertierter Wert: '" & convertValue.ToString & "'")
' End If
'End If
'############################################################################################
'####################### Der eigentliche Indexierungsvorgang ################################
'####################### Der eigentliche Indexierungsvorgang #########konn#######################
'############################################################################################
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")", False)
_Logger.Debug("oDocument.SetVariableValue(" & aName & ", " & convertValue & ")")
Try
If _int = True Then
convertValue = convertValue.ToString.Replace(" ", "")
@ -473,11 +474,11 @@ Public Class ClassNIWindream
oDocument.Save()
Catch ex As Exception
If ex.Message.Contains("External edit not allowed:") Then
ClassLoggerNI.Add("Achtung das Ändern des Indexes: '" & aName & "' ist nicht mehr erlaubt! Bitte überprüfen Sie Ihre Nachindexierungslogik und den Objekttyp.", False)
_Logger.Info("Achtung das Ändern des Indexes: '" & aName & "' ist nicht mehr erlaubt! Bitte überprüfen Sie Ihre Nachindexierungslogik und den Objekttyp.")
oDocument.Save()
Else
ClassLoggerNI.Add("Unvorhergesehener Fehler bei NonVektor-SetVariableValue:", True)
ClassLoggerNI.Add("Fehlermeldung:" & ex.Message, True)
_Logger.Warn("Unvorhergesehener Fehler bei NonVektor-SetVariableValue:")
_Logger.Warn("Fehlermeldung:" & ex.Message)
oDocument.Save()
oDocument.unlock()
Return True
@ -485,13 +486,13 @@ Public Class ClassNIWindream
End Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Index '" & aName & "' wurde geschrieben", False)
'_Logger.Debug("Index '" & aName & "' wurde geschrieben")
Else
ClassLoggerNI.Add(" >> Kein Indexwert vorhanden", False)
_Logger.Info("Kein Indexwert vorhanden")
End If
Else
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> VEKTORFELD: Vorbereiten des Arrays", False)
_Logger.Debug("VEKTORFELD: Vorbereiten des Arrays")
Dim DS As DataSet
@ -510,16 +511,16 @@ Public Class ClassNIWindream
'MsgBox(aName & vbNewLine & row.Item("Indexname") & vbNewLine & CStr(row.Item("Wert")))
'Next
Dim Anzahl As Integer = BS.Count
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Anzahl Vektorwerte: " & Anzahl.ToString, False)
_Logger.Debug("Anzahl Vektorwerte: " & Anzahl.ToString)
'Vektorfeld wird mit EINEM Wert gefüllt
Dim temp_arr As New ArrayList
If Anzahl = 1 Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Vektorfeld wird mit EINEM Wert gefüllt ", False)
_Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ")
ReDim myArray(0)
myArray(0) = Convert_VectorType(vType, value)
'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Konvertierter Wert: " & myArray(0).ToString, False)
_Logger.Debug("Konvertierter Wert: " & myArray(0).ToString)
' das ausgewählte Profil in _selectedProfile laden
_selectedProfil = ClassNIProfile.getProfilByName(Profil)
@ -530,14 +531,14 @@ Public Class ClassNIWindream
Select Case Me._selectedProfil._links.selectedLink.vktins_state
Case 1
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> vektInsState = '1'", False)
_Logger.Debug("vektInsState = '1'")
ReDim Preserve VektorArray(0)
VektorArray(0) = myArray(0)
Case 2 'Anfügen
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> vektInsState = '2'", False)
_Logger.Debug("vektInsState = '2'")
VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType)
Case 3 'Anfügen mit DuplikatCheck
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> vektInsState = '3'", False)
_Logger.Debug("vektInsState = '3'")
VektorArray = Return_VektorArray(oDocument, aName, myArray, True, vType)
End Select
If VektorArray Is Nothing = False Then
@ -556,7 +557,7 @@ Public Class ClassNIWindream
ElseIf vType = 4098 Then
temp_arr.Add(CInt(myArray(0)))
If temp_arr.Count > 0 Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add("- Einträge in temp_arr also Speichern des Arrays in convertValue", False)
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add("- Einträge in temp_arr also Speichern des Arrays in convertValue")
convertValue = Nothing
convertValue = temp_arr.ToArray
Else
@ -572,20 +573,20 @@ Public Class ClassNIWindream
oDocument.SetVariableValue(aName, myArray)
End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> 'SetVariableValue' für VEKTOR mit einem Wert erfolgreich", False)
_Logger.Debug("'SetVariableValue' für VEKTOR mit einem Wert erfolgreich")
'Die Änderungen festsschreiben/speichern
oDocument.Save()
End If
Else
ClassLoggerNI.Add(">> Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING", False)
_Logger.Warn(">> Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING")
End If
Else
ClassLoggerNI.Add(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING", False)
_Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING")
End If
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> (RI) Vektorfeld wird mit MEHREREN Werten gefüllt ", False)
_Logger.Debug("(RI) Vektorfeld wird mit MEHREREN Werten gefüllt ")
' das ausgewählte Profil in _selectedProfile laden
_selectedProfil = ClassNIProfile.getProfilByName(Profil)
@ -603,11 +604,11 @@ Public Class ClassNIWindream
Else
myArray(i1) = CStr(DR.Item("Wert"))
End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Value (" & i1 & "): '" & DR.Item("Wert").ToString & "'", False)
_Logger.Debug("Value (" & i1 & "): '" & DR.Item("Wert").ToString & "'")
i1 = i1 + 1
End If
Next
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Array wurde erfolgreich erzeugt", False)
_Logger.Debug("Array wurde erfolgreich erzeugt")
If _selectedProfil Is Nothing = False Then
Me._selectedProfil._links.selectedLink = Me._selectedProfil._links.getLinkByIndex(aName)
@ -615,7 +616,7 @@ Public Class ClassNIWindream
Dim VektorArray
Select Case Me._selectedProfil._links.selectedLink.vktins_state
Case 1
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> vektInsState = '1'", False)
_Logger.Debug("vektInsState = '1'")
Dim z As Integer = 0
ReDim VektorArray(myArray.Length)
For Each str As Object In myArray
@ -632,10 +633,10 @@ Public Class ClassNIWindream
End If
Next
Case 2 'Anfügen
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> vektInsState = '2'", False)
_Logger.Debug("vektInsState = '2'")
VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType)
Case 3 'Anfügen mit DuplikatCheck
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> vektInsState = '3'", False)
_Logger.Debug("vektInsState = '3'")
VektorArray = Return_VektorArray(oDocument, aName, myArray, True, vType)
End Select
If VektorArray Is Nothing = False Then
@ -645,26 +646,26 @@ Public Class ClassNIWindream
'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(aName, myArray)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> 'SetVariableValue' für VEKTOR erfolgreich", False)
_Logger.Debug("'SetVariableValue' für VEKTOR erfolgreich")
' oDocument.LockRights()
'Die Änderungen festsschreiben/speichern
oDocument.Save()
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Indexierung erfolgreich beendet (Save ...", False)
_Logger.Debug("Indexierung erfolgreich beendet (Save ...")
Else
ClassLoggerNI.Add(">> Achtung: VektorArray Is NOTHING", False)
If My.Settings.vLogErrorsonly = False Then _Logger.Info("Achtung: VektorArray Is NOTHING")
oDocument.Save()
Return True
End If
Else
ClassLoggerNI.Add(">> Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING", False)
_Logger.Warn(">> Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING")
oDocument.Save()
Return True
End If
Else
ClassLoggerNI.Add(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING", False)
_Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING")
oDocument.Save()
Return True
End If
@ -673,34 +674,33 @@ Public Class ClassNIWindream
End If
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Array der Indexwerte ist leer/Nothing - Keine Nachindexierung", False)
_Logger.Debug("Array der Indexwerte ist leer/Nothing - Keine Nachindexierung")
End If
i += 1
Next
oDocument.unlock()
If My.Settings.vLogErrorsonly = False Then
ClassLoggerNI.Add(" >> Unlock durchgeführt)", False)
ClassLoggerNI.Add("", False)
_Logger.Debug(">> Unlock durchgeführt)")
End If
Return False
Else
ClassLoggerNI.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False)
_Logger.Info(">> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
'oDocument.unlock()
Return True
End If
End If
Catch ex As Exception
ClassLoggerNI.Add("ACHTUNG: Unvohergesehener Fehler in ClassNiWindream.RunIndexing: " & ex.Message, True)
_Logger.Error(ex)
If Not IsNothing(myArray) Then
Dim i1 As Integer = 0
For Each aValue As String In myArray
ClassLoggerNI.Add(String.Format(">> myArray Value({0}): " & aValue.ToString, i1), False)
_Logger.Debug(String.Format(">> myArray Value({0}): " & aValue.ToString, i1))
i1 += 1
Next
End If
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Fehler bei RunIndexing - Datei: " & oDocument.aName.ToString & "<br>Profilname: " & Profil & "<br>Fehler: " & ex.Message)
'email.Send_EMail("Fehler bei RunIndexing - Datei: " & oDocument.aName.ToString & "<br>Profilname: " & Profil & "<br>Fehler: " & ex.Message)
End If
oDocument.Save()
oDocument.unlock()
@ -738,7 +738,7 @@ Public Class ClassNIWindream
End If
Next
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Duplikatprüfung soll durchgeführt werden.", False)
_Logger.Debug("Duplikatprüfung soll durchgeführt werden.")
'Duplikat Prüfung an, also nur anhängen wenn Wert <>
For Each WDValue As Object In wertWD
If WDValue Is Nothing = False Then
@ -759,14 +759,14 @@ Public Class ClassNIWindream
ValueArray(Anzahl) = Convert_VectorType(vType, NewValue)
Anzahl += 1
Else
ClassLoggerNI.Add(" >> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten", False)
_Logger.Debug(">> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
End If
End If
Next
End If
End If
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Vektorfeld ist noch leer....", False)
_Logger.Debug("Vektorfeld ist noch leer....")
'Den/die Neuen Wert(e) anfügen
For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then
@ -779,7 +779,7 @@ Public Class ClassNIWindream
ValueArray(Anzahl) = Convert_VectorType(vType, NewValue)
Anzahl += 1
Else
ClassLoggerNI.Add(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten", False)
_Logger.Debug(">> Value '" & NewValue.ToString & "' bereits in Array enthalten")
End If
Else 'Dererste Wert, also hinzufügen
'Das Array anpassen
@ -803,7 +803,7 @@ Public Class ClassNIWindream
Return ValueArray
Catch ex As Exception
ClassLoggerNI.Add("ClassNiWindream.Return_VektorArray", ex)
_Logger.Error(ex)
End Try
@ -853,7 +853,7 @@ Public Class ClassNIWindream
Dim i As Integer = 0
' das entsprechende Attribut aus windream auslesen
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indexname)
Dim oAttribute = Me.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indexname)
' den Variablentyp (String, Integer, ...) auslesen
Dim vType = oAttribute.getVariableValue("dwAttrType")
'MsgBox("Typ: " & vType.ToString, MsgBoxStyle.Critical, "_state: " & _state.ToString)
@ -863,32 +863,32 @@ Public Class ClassNIWindream
Dim value = _state
Dim convertValue
'Den Typ des Index-Feldes auslesen
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Typ des windream-Indexes: " & vType.ToString)
_Logger.Debug("Typ des windream-Indexes: " & vType.ToString)
Select Case (vType)
Case WMObjectVariableValueTypeBoolean
convertValue = CBool(value)
Case Else
ClassLoggerNI.Add(" >> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:")
_Logger.Warn(" >> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:")
End Select
'############################################################################################
'####################### Der eigentliche Indexierungsvorgang ################################
oDocument.SetVariableValue(Indexname, convertValue)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Finaler Index '" & Indexname & "' wurde gesetzt")
_Logger.Debug("Finaler Index '" & Indexname & "' wurde gesetzt")
oDocument.Save()
oDocument.unlock()
ClassLoggerNI.Add(" >> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet")
_Logger.Warn(" >> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet")
End If
Else
ClassLoggerNI.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
_Logger.Warn(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
End If
End If
Catch ex As Exception
ClassLoggerNI.Add("ClassSearchResult.SetfinalIndex", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("Fehler bei SetfinalIndex - Datei: " & oDocument.aName.ToString & " - Fehler: " & ex.Message)
'email.Send_EMail("Fehler bei SetfinalIndex - Datei: " & oDocument.aName.ToString & " - Fehler: " & ex.Message)
End If
oDocument.Save()
oDocument.unlock()
@ -900,6 +900,8 @@ Public Class ClassNIWindream
#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
Public Function GetSearchDocuments(ByVal wdfLocation As String)
wdfLocation = wdfLocation.Replace("W:", "\\windream\objects")
If System.IO.File.Exists(wdfLocation) Then
Try
@ -921,9 +923,9 @@ Public Class ClassNIWindream
'' Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments()
Select Case suchTyp.ToString.ToUpper
Case "WMOSRCH.WMQUICKSEARCH"
srchQuick.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
'srchQuick.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
Me.oConnect.LoginSession(srchQuick.WMSession)
'Me.oConnect.LoginSession(oWMSession) 'srchQuick.WMSession)
srchQuick.ClearSearch()
srchQuick.SearchProfilePath = ProfilePath
@ -932,9 +934,9 @@ Public Class ClassNIWindream
oSearch = srchQuick.GetSearch()
Case "WMOSRCH.WMINDEXSEARCH"
srchIndex.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
srchIndex.WMSession = oWMSession 'CreateObject("Windream.WMSession", Me.GetCurrentServer)
Me.oConnect.LoginSession(srchIndex.WMSession)
'Me.oConnect.LoginSession(srchIndex.WMSession)
srchIndex.ClearSearch()
srchIndex.SearchProfilePath = ProfilePath
@ -943,9 +945,9 @@ Public Class ClassNIWindream
oSearch = srchIndex.GetSearch()
Case "WMOSRCH.WMOBJECTTYPESEARCH"
srchObjectType.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
srchObjectType.WMSession = oWMSession 'CreateObject("Windream.WMSession", Me.GetCurrentServer)
Me.oConnect.LoginSession(srchObjectType.WMSession)
'Me.oConnect.LoginSession(oWMSession) 'srchObjectType.WMSession)
srchObjectType.ClearSearch()
srchObjectType.SearchProfilePath = ProfilePath
@ -954,17 +956,17 @@ Public Class ClassNIWindream
oSearch = srchObjectType.GetSearch()
Case Else
ClassLoggerNI.Add("KEIN GÜLTIGER WINDREAM-SUCHTYP")
_Logger.Debug("KEIN GÜLTIGER WINDREAM-SUCHTYP")
Return Nothing
End Select
Dim WMObjects As Object
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Start der Suche: " & Now, False)
_Logger.Debug("Start der Suche: " & Now)
' System.Threading.Thread.Sleep(200000)
WMObjects = oSearch.Execute
Return oSearch.execute
Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei machen
ClassLoggerNI.Add("Fehler in GetSearchDocuments()", ex)
_Logger.Error(ex)
Return Nothing
End Try
@ -981,7 +983,7 @@ Public Class ClassNIWindream
Dim IndexwertAusWindream As Object = Nothing
Dim _dok As WINDREAMLib.WMObject
_dok = Nothing
_dok = oSession.GetWMObjectByPath(WMEntityDocument, _fullfilepath) 'WINDREAMLib.WMEntity.WMEntityDocument
_dok = oWMSession.GetWMObjectByPath(WMEntityDocument, _fullfilepath) 'WINDREAMLib.WMEntity.WMEntityDocument
IndexwertAusWindream = _dok.GetVariableValue(_indexname)
Return IndexwertAusWindream.ToString
Catch ex As Exception
@ -989,5 +991,43 @@ Public Class ClassNIWindream
Return Nothing
End Try
End Function
Public Function NEW_MOVE_FILE(targetpath As String, sourcepath As String, oMethod As String) As Boolean
Try
If My.Settings.vLogErrorsonly = False Then
_Logger.Info($"targetpath ({targetpath})")
_Logger.Info($"sourcepath ({sourcepath})")
End If
Dim sw As New ClassStopwatch("NEW_MOVE_FILE")
targetpath = targetpath.Replace("\\windream\objects", "")
targetpath = targetpath.Replace("W:\", "\")
Dim oTargetpath = System.IO.Path.GetDirectoryName(targetpath)
oTargetpath = oTargetpath.Replace("\\windream\objects", "")
oTargetpath = oTargetpath.Replace("W:\", "\")
sourcepath = sourcepath.Replace("\\windream\objects", "")
sourcepath = sourcepath.Replace("W:\", "\")
Const WMEntityDocument = 1
Dim IndexwertAusWindream As Object = Nothing
Dim oWMFile As WINDREAMLib.WMObject
oWMFile = oWMSession.GetWMObjectByPath(WMEntityDocument, sourcepath)
If oWMFile.lock Then
oWMFile.aPath = targetpath
oWMFile.Save()
oWMFile.unlock()
_Logger.Info($"NEW_MOVE_FILE ({oMethod}): file has been moved - target: '" & targetpath & "'")
Dim msg = sw.Done
If msg <> String.Empty Then _Logger.Info(msg)
Return True
Else
Dim msg = sw.Done
If msg <> String.Empty Then _Logger.Info(msg)
Return False
End If
Catch ex As Exception
_Logger.Error(ex)
Return False
End Try
End Function
#End Region
End Class

11
ToolCollection/ClassSQLITE.vb
View File

@ -1,8 +1,11 @@
Imports System.Data.SQLite
Imports DigitalData.Modules.Logging
Public Class ClassSQLITE
Private Shared db_location As String
Public Shared logerrorsonly As Boolean
Public Shared Passwort_admin As String
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared Function Init(_form As Boolean)
Try
db_location = "data source=" & My.Settings.SQLLITE_CONNECTION & ";Version=3;UseUTF16Encoding=True;"
@ -12,7 +15,7 @@ Public Class ClassSQLITE
Return True
Catch ex As Exception
If _form = False Then
ClassLoggerNI.Add("Fehler in: Init SQLiteDatabase: " & ex.Message)
_Logger.Error(ex)
Else
MsgBox("Fehler in: Init SQLiteDatabase: " & ex.Message, MsgBoxStyle.Critical)
End If
@ -36,7 +39,7 @@ Public Class ClassSQLITE
Return dt
Catch ex As Exception
If _form = False Then
ClassLoggerNI.Add("FEHLER IN Return_Datatable: " & ex.Message)
_Logger.Error(ex)
Else
MsgBox("FEHLER IN Return_Datatable: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
@ -58,7 +61,7 @@ Public Class ClassSQLITE
Return True
Catch ex As Exception
If _form = False Then
ClassLoggerNI.Add("Fehler in: SQLite Execute_Command: " & ex.Message)
_Logger.Error(ex)
Else
MsgBox("Fehler in: 'Execute_Command': " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "SQL-Command: " & _sql, MsgBoxStyle.Critical)
End If
@ -80,7 +83,7 @@ Public Class ClassSQLITE
Return result
Catch ex As Exception
If _form = False Then
ClassLoggerNI.Add("Fehler in: SQLite Execute_scalar: " & ex.Message)
_Logger.Error(ex)
Else
MsgBox("Fehler in: 'Execute_scalar': " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "SQL-Command: " & _sql, MsgBoxStyle.Critical)
End If

39
ToolCollection/ClassStopwatch.vb Normal file
View File

@ -0,0 +1,39 @@
Public Class ClassStopwatch
Public label As String
Public stopwatch As Stopwatch
Public Sub New(label As String)
Me.label = label
stopwatch = New Stopwatch()
stopwatch.Start()
End Sub
Public Function Done() As String
Try
stopwatch.Stop()
Dim ts As TimeSpan = stopwatch.Elapsed
If ts.Minutes = 0 And ts.Seconds = 0 Then
Return ""
End If
Dim timespan_ = String.Format("{0:00}:{1:00}.{2:00} minutes", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
If ts.Minutes > 0 Then
timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
ElseIf ts.Seconds > 0 And (ts.Minutes > 0) = False Then
timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10)
ElseIf (ts.Seconds > 0) = False And ts.Milliseconds > 0 Then
timespan_ = String.Format("{0:00}.{1:00} seconds/milliseconds", ts.Seconds, ts.Milliseconds / 10)
End If
If timespan_ <> "00:00.00" And timespan_ <> "00.00" And timespan_ <> "00.01" Then
Dim message = String.Format("{0} || {1}", label, timespan_)
Return message
Else
Return ""
End If
Catch ex As Exception
Return "ERROR: " & ex.Message
End Try
End Function
End Class

84
ToolCollection/ClassWD_Rechte.vb
View File

@ -5,6 +5,7 @@ Imports WINDREAMLib.WMObjectEditMode
Imports WINDREAMLib.WMSearchOperator
Imports WINDREAMLib.WMSearchRelation
Imports WMOBRWSLib
Imports DigitalData.Modules.Logging
Public Class ClassWD_Rechte
#Region "+++++ Konstanten +++++"
Const REL_Document_AccessRight = "AccessRight"
@ -38,6 +39,7 @@ Public Class ClassWD_Rechte
Public oBrowser As New WMOBRWSLib.ServerBrowser
Public oDokumentTypen As WINDREAMLib.WMObjects
Public aktivesProfil As ClassNIProfil
Private Shared _Logger As DigitalData.Modules.Logging.Logger
#End Region
''' <summary>
@ -149,7 +151,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
SessionAsUser = Nothing
@ -162,7 +164,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
SessionAsUser = Nothing
Return SessionAsUser
@ -181,7 +183,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
SessionAsUser = Nothing
Return SessionAsUser
@ -208,7 +210,7 @@ Public Class ClassWD_Rechte
''' <returns>Boolean True wenn erfolgreich</returns>
''' <remarks></remarks>
Public Function FileFolder_DeleteAndOrSetRight(docpath As String, profilID As Integer, regelid As Integer, folgeRegel As Boolean, createdFolder As String, _form As Boolean) As Boolean
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(String.Format("Working on regelid {0}.", regelid.ToString))
_Logger.Info(String.Format("Working on regelid {0}.", regelid.ToString))
On Error Resume Next
Dim deleteRights As Boolean = False
Dim domain, Server, Username, PW As String
@ -241,7 +243,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
Return False
End If
@ -260,7 +262,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -274,7 +276,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
_Erfolgreich = False
@ -299,7 +301,7 @@ Public Class ClassWD_Rechte
Else
_WCCase = 3
End If
frmNIHauptseite.Logger("* AD _WCCase = " & _WCCase, False)
_Logger.Info("* AD _WCCase = " & _WCCase)
Indexname = Indexname.Replace("%", "")
Indexwert = oWMObject.GetVariableValue(Indexname)
Dim mask
@ -315,7 +317,7 @@ Public Class ClassWD_Rechte
Case 3
mask = Indexwert
End Select
frmNIHauptseite.Logger("* AD mask = '" & mask & "'", False, True)
_Logger.Info("* AD mask = '" & mask & "'")
Dim _WDRecht = GetWDRightNames_byMask(mask, _UserOrGroup, _form)
If _WDRecht IsNot Nothing And _WDRecht.length > 0 Then
@ -334,7 +336,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg, False)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -344,7 +346,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg, False)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -363,7 +365,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg, False)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -373,7 +375,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg, False)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -395,7 +397,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
Return False
End If
@ -404,7 +406,7 @@ Public Class ClassWD_Rechte
'If _form = True Then
' MsgBox(msg, MsgBoxStyle.Critical)
'Else
' ClassLoggerNI.Add(msg)
' _Logger.Warn(msg)
'End If
'_Erfolgreich = False
@ -415,7 +417,7 @@ Public Class ClassWD_Rechte
' If _form = True Then
' MsgBox(msg, MsgBoxStyle.Critical)
' Else
' ClassLoggerNI.Add(msg)
' _Logger.Warn(msg)
' End If
' _Erfolgreich = False
@ -438,7 +440,7 @@ Public Class ClassWD_Rechte
WMParent = oWMObject.aParentWMObject
Else
ClassLoggerNI.Add(">> CREATED Folder for rightsmanager: " & createdFolder.Substring(2))
_Logger.Info(">> CREATED Folder for rightsmanager: " & createdFolder.Substring(2))
WMParent = oSession.GetWMObjectByPath(WMEntityFolder, createdFolder.Substring(2))
End If
@ -455,7 +457,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -480,7 +482,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -502,7 +504,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -516,7 +518,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -524,7 +526,7 @@ Public Class ClassWD_Rechte
End If
Next
If _form = False Then
frmNIHauptseite.Logger("* Die Rechte wurden erfolgreich entfernt.", False, True)
_Logger.Info("* Die Rechte wurden erfolgreich entfernt.")
End If
@ -541,13 +543,13 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
End If
AccessRightsObject2Change.Insert2(oGroup, _lRight) 'WMAccessRightAllRights)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(String.Format("GroupRight {0} was set with parameter {1}", _GruppenUserRecht, _lRight))
_Logger.Info(String.Format("GroupRight {0} was set with parameter {1}", _GruppenUserRecht, _lRight))
ElseIf _UserOrGroup = "user" Then
' User holen
oUSer = oSession.GetWMObjectByName(WMEntityUser, _GruppenUserRecht)
@ -556,13 +558,13 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
End If
AccessRightsObject2Change.Insert2(oUSer, _lRight) 'WMAccessRightAllRights)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(String.Format("UserRight {0} was set with parameter {1}", _GruppenUserRecht, _lRight))
_Logger.Info(String.Format("UserRight {0} was set with parameter {1}", _GruppenUserRecht, _lRight))
ElseIf _UserOrGroup = "allfolderrights".ToLower Then
' und nun jeden Rechteträger verarbeiten
For Each aRightRelation In AccessRightsParent
@ -584,7 +586,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Info(msg)
End If
Exit_onEror(Object2Change, _form)
_Erfolgreich = False
@ -606,7 +608,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg & vbNewLine & _msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg & vbNewLine & _msg)
_Logger.Info(msg & " // " & _msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -618,7 +620,7 @@ Public Class ClassWD_Rechte
AccessRightsObject2Change.Insert2(UserOrGroup, dwAccessRight)
End If
End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(String.Format("AllFolderRights {0} was set.", _msg))
_Logger.Info(String.Format("AllFolderRights {0} was set.", _msg))
Next
End If
Err.Clear()
@ -627,7 +629,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Info(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -640,7 +642,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Info(msg)
End If
If Object2Change.aLocked = True Then
Object2Change.unlock()
@ -657,14 +659,14 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Info(msg)
End If
_Erfolgreich = False
End If
End If
If _form = False Then
ClassLoggerNI.Add(">> Das Recht '" & _GruppenUserRecht & "' wurde erfolgreich gesetzt", False)
_Logger.Info(">> Das Recht '" & _GruppenUserRecht & "' wurde erfolgreich gesetzt")
End If
'jetzt True zurückgeben
@ -674,7 +676,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
_Erfolgreich = False
Return _Erfolgreich
@ -710,8 +712,8 @@ Public Class ClassWD_Rechte
Console.WriteLine(msg & " NOT existing!")
Return False
Catch ex As Exception
Dim msg = "Fehler bei CHECK_Right_Exists:" & vbCrLf & Err.Description
ClassLoggerNI.Add(msg)
_Logger.Error(ex)
Return False
End Try
End Function
@ -724,7 +726,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
End If
@ -737,7 +739,7 @@ Public Class ClassWD_Rechte
If _form = True Then
MsgBox(msg, MsgBoxStyle.Critical)
Else
ClassLoggerNI.Add(msg)
_Logger.Warn(msg)
End If
End If
End If
@ -818,7 +820,8 @@ Public Class ClassWD_Rechte
Return aRechteNamen
Catch ex As Exception
ClassLoggerNI.Add("## Fehler in ClassWD_Rechte - GetRightsNames - Fehler: " & ex.Message)
_Logger.Error(ex)
Return Nothing
End Try
@ -862,7 +865,8 @@ Public Class ClassWD_Rechte
End If
Return aRechteNamen
Catch ex As Exception
ClassLoggerNI.Add("## Fehler in ClassWD_Rechte - GetWDRightNames_byMask - Fehler: " & ex.Message)
_Logger.Error(ex)
If _form = True Then
MsgBox("Fehler in ClassWD_Rechte - GetWDRightNames_byMask - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If

69
ToolCollection/ClassWindream_allgemein.vb
View File

@ -5,7 +5,7 @@ Imports WINDREAMLib.WMObjectEditMode
Imports WINDREAMLib.WMSearchOperator
Imports WINDREAMLib.WMSearchRelation
Imports WMOBRWSLib
Imports DigitalData.Modules.Logging
Public Class ClassWindream_allgemein
#Region "+++++ Konstanten +++++"
@ -16,18 +16,20 @@ Public Class ClassWindream_allgemein
Const WMAttributeFlagUndefined = 0
Const WMAttributeFlagSystem = 1 ' windream database system columns
Const WMAttributeFlagTypeSpecific = 2 ' windream database objecttype specific column
Const WMCOMEventWMSessionNeedIndex = 1
#End Region
#Region "+++++ Variablen +++++"
Public oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
Public Shared oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
Public Shared oWMSession As Object 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
Public oBrowser As New WMOBRWSLib.ServerBrowser
Public oObjekttypen As WINDREAMLib.WMObjects
Public oOrdnerTypen As WINDREAMLib.WMObjects
Public oUSERRights As WINDREAMLib.WMObjects
Public oGROUPRights As WINDREAMLib.WMObjects
Public oSystemIndizes As WINDREAMLib.WMObjects
Private Shared _Logger As DigitalData.Modules.Logging.Logger
#End Region
@ -37,7 +39,8 @@ Public Class ClassWindream_allgemein
''' Konstruktor für die windream-Klasse
''' </summary>
''' <remarks></remarks>
Sub New()
Sub New(LogConf As DigitalData.Modules.Logging.LogConfig)
_Logger = LogConf.GetLogger
' wenn ein Fehler bei der Initialisierung auftrat
If Not Me.Init() Then
' Nachricht ausgeben
@ -54,14 +57,20 @@ Public Class ClassWindream_allgemein
''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
''' <remarks></remarks>
Public Function Init() As Boolean
Dim oHourDifference As Integer
oHourDifference = CInt(DateDiff(DateInterval.Hour, CURRENToWMSession_Created, Now))
If IsNothing(CURRENToWMSession) Or oHourDifference >= 2 Then
Try
Try
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
Me.oSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
Me.oWMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
' Connection-Objekt instanziieren
Me.oConnect = CreateObject("Windream.WMConnect")
CURRENToWMConnect = oConnect
'MsgBox("windrem init 'ed")
Catch ex As Exception
clsHelper.Add_Application_log("Unexpected error in Windream.Init(CreateObjects): " & ex.Message)
@ -86,9 +95,9 @@ Public Class ClassWindream_allgemein
'oConnect.Password = "schreiber"
' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
Me.oConnect.LoginSession(Me.oSession)
Me.oConnect.LoginSession(Me.oWMSession)
If Me.oSession.aLoggedin = False Then
If Me.oWMSession.aLoggedin = False Then
clsHelper.Add_Application_log("Unexpected error in Windream.Init(oSession.aloggedIn): Could not check session-state")
Return False
@ -110,12 +119,12 @@ Public Class ClassWindream_allgemein
'MsgBox(WMCtrl.WMServerName)
Try
Me.oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
Me.oWMSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine
' Ordnertypen ausgelesen werden
Me.oObjekttypen = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
Me.oObjekttypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
' Ordnertypen auslesen
Me.oOrdnerTypen = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
Me.oOrdnerTypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
' den Objekttyp laden
' Me.oSystemIndizes = Me.oSession.GetWMObjectByName(WMObjectRelationTypeObjectByName)
Catch ex As Exception
@ -123,7 +132,9 @@ Public Class ClassWindream_allgemein
End Try
End If
_Logger.Info("WMSession has been created! (clsWindreamAllgemein)")
CURRENToWMSession = oWMSession
CURRENToWMSession_Created = Now
Return True
Catch ex As Exception
@ -141,14 +152,18 @@ Public Class ClassWindream_allgemein
Return False
End Try
End Function
Else
If My.Settings.vLogErrorsonly = False Then _Logger.Info("WMSession already created!")
oWMSession = CURRENToWMSession
Return True
End If
End Function
#End Region
#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++"
''' <summary>
''' Liefert alle Objekttypen des aktuellen Servers als windream-Objekte.
''' </summary>
@ -249,7 +264,7 @@ Public Class ClassWindream_allgemein
Try
Dim Indices As WMObject
' den Objekttyp laden
Indices = Me.oSession.GetWMObjectVariableNames(WMAttributeFlagSystem)
Indices = Me.oWMSession.GetWMObjectVariableNames(WMAttributeFlagSystem)
Dim msg As String
Dim oSystemIndexes = Indices.GetVariableNames(1, False)
@ -265,7 +280,7 @@ Public Class ClassWindream_allgemein
Public Function GetIndices_for_Objecttype(ByVal name As String)
Dim oObjectType As WMObject
' den Objekttyp laden
oObjectType = Me.oSession.GetWMObjectByName(WMEntityObjectType, name)
oObjectType = Me.oWMSession.GetWMObjectByName(WMEntityObjectType, name)
Dim msg As String
@ -294,7 +309,7 @@ Public Class ClassWindream_allgemein
Dim oRelProperties As WMObjectRelationClass
' den Objekttyp laden
oObjectType = Me.oSession.GetWMObjectByName(WMEntityObjectType, name)
oObjectType = Me.oWMSession.GetWMObjectByName(WMEntityObjectType, name)
' Beziehung zu Indizes des Objekttyp auslesen
oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
@ -327,7 +342,7 @@ Public Class ClassWindream_allgemein
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe")
Else
If modul = "NI" Then
ClassLoggerNI.Add(">> Fehler beim Auslesen der windream-Indexe: " & ex.Message, False)
_Logger.Warn("Fehler beim Auslesen der windream-Indexe: " & ex.Message)
Else
ClassLoggerDI.Add(">> Fehler beim Auslesen der windream-Indexe: " & ex.Message, False)
End If
@ -398,10 +413,10 @@ Public Class ClassWindream_allgemein
''' <param name="objekttypName">Name des Objekttyps</param>
''' <returns>Objekttyp als WMObject</returns>
''' <remarks></remarks>
Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
Public Function GetObjecttypeByName(ByVal objekttypName As String, form As Boolean) As WMObject
Try
' alle Objekttypen auslesen
Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
Dim oObjectTypes As WMObjects = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
For Each oObjectType As WMObject In oObjectTypes
@ -413,7 +428,11 @@ Public Class ClassWindream_allgemein
Return Nothing
Catch ex As Exception
_Logger.Warn("Objekttyp '" & objekttypName & "' konnte nicht ausgelesen werden! - Fehlernachricht:" & vbNewLine & ex.Message)
If form = True Then
MsgBox("Objekttyp '" & objekttypName & "' konnte nicht ausgelesen werden!" & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
Return Nothing
End Try
End Function
@ -456,7 +475,7 @@ Public Class ClassWindream_allgemein
''' <remarks></remarks>
Public Function IsLoggedIn() As Boolean
Try
Return Me.oSession.aLoggedin
Return Me.oWMSession.aLoggedin
Catch ex As Exception
clsHelper.Add_Application_log("Unexpected error in Windream.IsLoggedIn: " & ex.Message)
'MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldet ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung")
@ -472,7 +491,8 @@ Public Class ClassWindream_allgemein
''' <remarks></remarks>
Public Function GetCurrentServer() As String
Try
Return Me.oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
Dim server = Me.oBrowser.GetCurrentServer
Return server 'ClassWindream.oBrowser.GetCurrentServer
Catch ex As Exception
clsHelper.Add_Application_log("Unexpected error in Windream.GetCurrentServer: " & ex.Message)
'MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
@ -524,7 +544,7 @@ Public Class ClassWindream_allgemein
''' <remarks></remarks>
Public Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
Try
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
Dim oAttribute = Me.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
Dim vType = oAttribute.getVariableValue("dwAttrType")
Return vType
Catch ex As Exception
@ -536,7 +556,7 @@ Public Class ClassWindream_allgemein
'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
'Dim vType = oAttribute.getVariableValue("vItems")
'Return vType
Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, indexname)
Dim oChoiceList = oWMSession.GetWMObjectByName(WMEntityChoiceList, indexname)
If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
Dim Values = oChoiceList
Values = oChoiceList.GetVariableValue("vItems")
@ -568,4 +588,5 @@ Public Class ClassWindream_allgemein
End Try
End Function
#End Region
End Class

28
ToolCollection/ClassxmlZugriff.vb
View File

@ -1,14 +1,16 @@
Imports System.Xml
Imports DigitalData.Modules.Logging
Public Class ClassxmlZugriff
Private email As New ClassNIEmail
Private Shared _Logger As DigitalData.Modules.Logging.Logger
'führt eine SQL-Anweisung auf der DB aus
Public Function GetValueFromLuratechxml(ByVal vfilename As String, ByVal vfullfilepath As String, ByVal KnotenString As String, ByVal Profil As String) '
Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Index-Filename: " & vfilename, False)
_Logger.Info("Index-Filename: " & vfilename)
' die nötigen Variablen definieren
Dim _xmlDoc As New XmlDocument
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Auslesen des Indexwertes aus Indexfile: " & vfilename, False)
_Logger.Info("Auslesen des Indexwertes aus Indexfile: " & vfilename)
_xmlDoc.Load(vfullfilepath)
Dim _node As XmlNode
@ -16,13 +18,13 @@ Public Class ClassxmlZugriff
KnotenString = KnotenString.Replace("|", "/")
_node = _xmlDoc.SelectSingleNode(KnotenString)
If _node Is Nothing Then
ClassLoggerNI.Add(" >> ACHTUNG bei File: " & vfilename, False)
ClassLoggerNI.Add(" >> ACHTUNG der Knoten " & KnotenString & " existiert nicht!", False)
_Logger.Warn("ACHTUNG bei File: " & vfilename)
_Logger.Warn("ACHTUNG der Knoten " & KnotenString & " existiert nicht!")
Return Nothing
Else
' MsgBox(_node.InnerText, MsgBoxStyle.Information, file.Name)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Auslesen aus Knoten: " & KnotenString, False)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Gelesener Wert: " & _node.InnerText, False)
_Logger.Info("Auslesen aus Knoten: " & KnotenString)
_Logger.Info("Gelesener Wert: " & _node.InnerText)
Return _node.InnerText
End If
Else
@ -53,12 +55,12 @@ Public Class ClassxmlZugriff
Dim nodeErgebnis = child.SelectSingleNode(REC_NODE)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Auslesen aus Knoten: '" & child.Name & "'", False)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Gelesener Wert: '" & nodeErgebnis.InnerText & "'", False)
_Logger.Info("Auslesen aus Knoten: '" & child.Name & "'")
_Logger.Info("Gelesener Wert: '" & nodeErgebnis.InnerText & "'")
Return nodeErgebnis.InnerText
Else
ClassLoggerNI.Add(" >> ACHTUNG bei File: " & vfilename, False)
ClassLoggerNI.Add(" >> KEINEN CHILD-NODE für child_nodes gefunden", False)
_Logger.Warn("ACHTUNG bei File: " & vfilename)
_Logger.Warn("KEINEN CHILD-NODE für child_nodes gefunden")
Return Nothing
End If
End If
@ -66,7 +68,7 @@ Public Class ClassxmlZugriff
End If
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzClassxmlZugriff", "Ein unbekannter Fehler in GetValueFromLuratechxml.", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("ClassxmlZugriff.GetValueFromLuratechxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message)
End If
@ -76,7 +78,7 @@ Public Class ClassxmlZugriff
Public Function GetValueFromZugFerdxml(ByVal vfilename As String, ByVal vfullfilepath As String, ByVal KnotenString As String, ByVal Profil As String)
Dim returnvalue
Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Auslesen des Indexwertes aus Indexfile: " & vfilename, False)
_Logger.Info("Auslesen des Indexwertes aus Indexfile: " & vfilename)
Dim _xmlDoc As New XmlDocument
_xmlDoc.Load(vfullfilepath)
@ -111,7 +113,7 @@ Public Class ClassxmlZugriff
Return returnvalue
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzClassxmlZugriff", "Ein unbekannter Fehler in GetValueFromZugFerdxml.", ex)
_Logger.Error(ex)
If My.Settings.vNIMailsenden = True Then
email.Send_EMail("ClassxmlZugriff.GetValueFromZugFerdxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message)
End If

348
ToolCollection/DSCursor.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

146
ToolCollection/DSNachbearbeitung.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34011
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@ -30,7 +30,7 @@ Partial Public Class DSNachbearbeitung
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
MyBase.New
Me.BeginInit
@ -42,7 +42,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
@ -77,7 +77,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBNI_NACHBEARBEITUNG_AD() As TBNI_NACHBEARBEITUNG_ADDataTable
@ -87,7 +87,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(true), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@ -100,7 +100,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
@ -109,7 +109,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
@ -118,7 +118,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
@ -126,7 +126,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As DSNachbearbeitung = CType(MyBase.Clone,DSNachbearbeitung)
cln.InitVars
@ -135,19 +135,19 @@ Partial Public Class DSNachbearbeitung
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
@ -171,7 +171,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@ -180,13 +180,13 @@ Partial Public Class DSNachbearbeitung
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableTBNI_NACHBEARBEITUNG_AD = CType(MyBase.Tables("TBNI_NACHBEARBEITUNG_AD"),TBNI_NACHBEARBEITUNG_ADDataTable)
If (initTable = true) Then
@ -197,7 +197,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitClass()
Me.DataSetName = "DSNachbearbeitung"
Me.Prefix = ""
@ -209,13 +209,13 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Function ShouldSerializeTBNI_NACHBEARBEITUNG_AD() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
@ -223,7 +223,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As DSNachbearbeitung = New DSNachbearbeitung()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@ -272,7 +272,7 @@ Partial Public Class DSNachbearbeitung
Return type
End Function
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler(ByVal sender As Object, ByVal e As TBNI_NACHBEARBEITUNG_ADRowChangeEvent)
'''<summary>
@ -300,7 +300,7 @@ Partial Public Class DSNachbearbeitung
Private columnID As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBNI_NACHBEARBEITUNG_AD"
@ -310,7 +310,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
@ -328,14 +328,14 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property PROFILNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROFILNAME
@ -343,7 +343,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property MethodeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMethode
@ -351,7 +351,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property RechtenameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnRechtename
@ -359,7 +359,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property GroupUserColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGroupUser
@ -367,7 +367,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property AccessRightColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAccessRight
@ -375,7 +375,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property ErstelltwannColumn() As Global.System.Data.DataColumn
Get
Return Me.columnErstelltwann
@ -383,7 +383,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property ErstelltwerColumn() As Global.System.Data.DataColumn
Get
Return Me.columnErstelltwer
@ -391,7 +391,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
@ -399,7 +399,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
@ -408,33 +408,33 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBNI_NACHBEARBEITUNG_ADRow
Get
Return CType(Me.Rows(index),TBNI_NACHBEARBEITUNG_ADRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBNI_NACHBEARBEITUNG_ADRowChanging As TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBNI_NACHBEARBEITUNG_ADRowChanged As TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBNI_NACHBEARBEITUNG_ADRowDeleting As TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBNI_NACHBEARBEITUNG_ADRowDeleted As TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Sub AddTBNI_NACHBEARBEITUNG_ADRow(ByVal row As TBNI_NACHBEARBEITUNG_ADRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBNI_NACHBEARBEITUNG_ADRow(ByVal PROFILNAME As String, ByVal Methode As String, ByVal Rechtename As String, ByVal GroupUser As String, ByVal AccessRight As String, ByVal Erstelltwann As Date, ByVal Erstelltwer As String) As TBNI_NACHBEARBEITUNG_ADRow
Dim rowTBNI_NACHBEARBEITUNG_ADRow As TBNI_NACHBEARBEITUNG_ADRow = CType(Me.NewRow,TBNI_NACHBEARBEITUNG_ADRow)
Dim columnValuesArray() As Object = New Object() {PROFILNAME, Methode, Rechtename, GroupUser, AccessRight, Erstelltwann, Erstelltwer, Nothing}
@ -444,7 +444,7 @@ Partial Public Class DSNachbearbeitung
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBNI_NACHBEARBEITUNG_ADDataTable = CType(MyBase.Clone,TBNI_NACHBEARBEITUNG_ADDataTable)
cln.InitVars
@ -452,13 +452,13 @@ Partial Public Class DSNachbearbeitung
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBNI_NACHBEARBEITUNG_ADDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub InitVars()
Me.columnPROFILNAME = MyBase.Columns("Profilname")
Me.columnMethode = MyBase.Columns("Methode")
@ -471,7 +471,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitClass()
Me.columnPROFILNAME = New Global.System.Data.DataColumn("Profilname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
Me.columnPROFILNAME.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "PROFILNAME")
@ -501,25 +501,25 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function NewTBNI_NACHBEARBEITUNG_ADRow() As TBNI_NACHBEARBEITUNG_ADRow
Return CType(Me.NewRow,TBNI_NACHBEARBEITUNG_ADRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBNI_NACHBEARBEITUNG_ADRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBNI_NACHBEARBEITUNG_ADRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowChangedEvent) Is Nothing) Then
@ -528,7 +528,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowChangingEvent) Is Nothing) Then
@ -537,7 +537,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowDeletedEvent) Is Nothing) Then
@ -546,7 +546,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowDeletingEvent) Is Nothing) Then
@ -555,13 +555,13 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub RemoveTBNI_NACHBEARBEITUNG_ADRow(ByVal row As TBNI_NACHBEARBEITUNG_ADRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
@ -636,14 +636,14 @@ Partial Public Class DSNachbearbeitung
Private tableTBNI_NACHBEARBEITUNG_AD As TBNI_NACHBEARBEITUNG_ADDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBNI_NACHBEARBEITUNG_AD = CType(Me.Table,TBNI_NACHBEARBEITUNG_ADDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property PROFILNAME() As String
Get
Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.PROFILNAMEColumn),String)
@ -654,7 +654,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property Methode() As String
Get
Try
@ -669,7 +669,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property Rechtename() As String
Get
Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.RechtenameColumn),String)
@ -680,7 +680,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property GroupUser() As String
Get
Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.GroupUserColumn),String)
@ -691,7 +691,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property AccessRight() As String
Get
Try
@ -706,7 +706,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property Erstelltwann() As Date
Get
Try
@ -721,7 +721,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property Erstelltwer() As String
Get
Try
@ -736,7 +736,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property ID() As Integer
Get
Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.IDColumn),Integer)
@ -747,49 +747,49 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsMethodeNull() As Boolean
Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.MethodeColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetMethodeNull()
Me(Me.tableTBNI_NACHBEARBEITUNG_AD.MethodeColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsAccessRightNull() As Boolean
Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.AccessRightColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetAccessRightNull()
Me(Me.tableTBNI_NACHBEARBEITUNG_AD.AccessRightColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsErstelltwannNull() As Boolean
Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwannColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetErstelltwannNull()
Me(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwannColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsErstelltwerNull() As Boolean
Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwerColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetErstelltwerNull()
Me(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwerColumn) = Global.System.Convert.DBNull
End Sub
@ -798,7 +798,7 @@ Partial Public Class DSNachbearbeitung
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Class TBNI_NACHBEARBEITUNG_ADRowChangeEvent
Inherits Global.System.EventArgs
@ -807,7 +807,7 @@ Partial Public Class DSNachbearbeitung
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New(ByVal row As TBNI_NACHBEARBEITUNG_ADRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
@ -815,7 +815,7 @@ Partial Public Class DSNachbearbeitung
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Row() As TBNI_NACHBEARBEITUNG_ADRow
Get
Return Me.eventRow
@ -823,7 +823,7 @@ Partial Public Class DSNachbearbeitung
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction

3144
ToolCollection/DS_More.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

30
ToolCollection/DS_More.xsd
View File

@ -233,6 +233,16 @@ FROM VWMO_RE_DOKUMENTARTZUORDNUNG</CommandText>
<Mapping SourceColumn="UO_IDX5" DataSetColumn="UO_IDX5" />
</Mappings>
<Sources>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdDeleteEntry" Modifier="Public" Name="cmdDeleteEntry" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdDeleteEntry">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROm TBMO_RE_DOKART_KUNDE WHERE GUID = @GUID</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_DMS.dbo.TBMO_RE_DOKART_KUNDE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
</DbSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.VWMO_RE_DOKUMENTARTZUORDNUNG" DbObjectType="View" FillMethodModifier="Public" FillMethodName="FillByDokartKD" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByDAKD" GeneratorSourceName="FillByDokartKD" GetMethodModifier="Public" GetMethodName="GetDataByDAKD" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByDAKD" UserSourceName="FillByDokartKD">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
@ -415,7 +425,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E
<xs:element name="DS_More" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DS_More" msprop:Generator_UserDSName="DS_More">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBMO_RE_KUNDEN" msprop:Generator_TableClassName="TBMO_RE_KUNDENDataTable" msprop:Generator_TableVarName="tableTBMO_RE_KUNDEN" msprop:Generator_RowChangedName="TBMO_RE_KUNDENRowChanged" msprop:Generator_TablePropName="TBMO_RE_KUNDEN" msprop:Generator_RowDeletingName="TBMO_RE_KUNDENRowDeleting" msprop:Generator_RowChangingName="TBMO_RE_KUNDENRowChanging" msprop:Generator_RowEvHandlerName="TBMO_RE_KUNDENRowChangeEventHandler" msprop:Generator_RowDeletedName="TBMO_RE_KUNDENRowDeleted" msprop:Generator_RowClassName="TBMO_RE_KUNDENRow" msprop:Generator_UserTableName="TBMO_RE_KUNDEN" msprop:Generator_RowEvArgName="TBMO_RE_KUNDENRowChangeEvent">
<xs:element name="TBMO_RE_KUNDEN" msprop:Generator_TableClassName="TBMO_RE_KUNDENDataTable" msprop:Generator_TableVarName="tableTBMO_RE_KUNDEN" msprop:Generator_TablePropName="TBMO_RE_KUNDEN" msprop:Generator_RowDeletingName="TBMO_RE_KUNDENRowDeleting" msprop:Generator_RowChangingName="TBMO_RE_KUNDENRowChanging" msprop:Generator_RowEvHandlerName="TBMO_RE_KUNDENRowChangeEventHandler" msprop:Generator_RowDeletedName="TBMO_RE_KUNDENRowDeleted" msprop:Generator_UserTableName="TBMO_RE_KUNDEN" msprop:Generator_RowChangedName="TBMO_RE_KUNDENRowChanged" msprop:Generator_RowEvArgName="TBMO_RE_KUNDENRowChangeEvent" msprop:Generator_RowClassName="TBMO_RE_KUNDENRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -453,7 +463,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBMO_RE_DOKART_KUNDE" msprop:Generator_TableClassName="TBMO_RE_DOKART_KUNDEDataTable" msprop:Generator_TableVarName="tableTBMO_RE_DOKART_KUNDE" msprop:Generator_RowChangedName="TBMO_RE_DOKART_KUNDERowChanged" msprop:Generator_TablePropName="TBMO_RE_DOKART_KUNDE" msprop:Generator_RowDeletingName="TBMO_RE_DOKART_KUNDERowDeleting" msprop:Generator_RowChangingName="TBMO_RE_DOKART_KUNDERowChanging" msprop:Generator_RowEvHandlerName="TBMO_RE_DOKART_KUNDERowChangeEventHandler" msprop:Generator_RowDeletedName="TBMO_RE_DOKART_KUNDERowDeleted" msprop:Generator_RowClassName="TBMO_RE_DOKART_KUNDERow" msprop:Generator_UserTableName="TBMO_RE_DOKART_KUNDE" msprop:Generator_RowEvArgName="TBMO_RE_DOKART_KUNDERowChangeEvent">
<xs:element name="TBMO_RE_DOKART_KUNDE" msprop:Generator_TableClassName="TBMO_RE_DOKART_KUNDEDataTable" msprop:Generator_TableVarName="tableTBMO_RE_DOKART_KUNDE" msprop:Generator_TablePropName="TBMO_RE_DOKART_KUNDE" msprop:Generator_RowDeletingName="TBMO_RE_DOKART_KUNDERowDeleting" msprop:Generator_RowChangingName="TBMO_RE_DOKART_KUNDERowChanging" msprop:Generator_RowEvHandlerName="TBMO_RE_DOKART_KUNDERowChangeEventHandler" msprop:Generator_RowDeletedName="TBMO_RE_DOKART_KUNDERowDeleted" msprop:Generator_UserTableName="TBMO_RE_DOKART_KUNDE" msprop:Generator_RowChangedName="TBMO_RE_DOKART_KUNDERowChanged" msprop:Generator_RowEvArgName="TBMO_RE_DOKART_KUNDERowChangeEvent" msprop:Generator_RowClassName="TBMO_RE_DOKART_KUNDERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -485,7 +495,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="WHMO_RE_DOKART" msprop:Generator_TableClassName="WHMO_RE_DOKARTDataTable" msprop:Generator_TableVarName="tableWHMO_RE_DOKART" msprop:Generator_TablePropName="WHMO_RE_DOKART" msprop:Generator_RowDeletingName="WHMO_RE_DOKARTRowDeleting" msprop:Generator_RowChangingName="WHMO_RE_DOKARTRowChanging" msprop:Generator_RowEvHandlerName="WHMO_RE_DOKARTRowChangeEventHandler" msprop:Generator_RowDeletedName="WHMO_RE_DOKARTRowDeleted" msprop:Generator_UserTableName="WHMO_RE_DOKART" msprop:Generator_RowChangedName="WHMO_RE_DOKARTRowChanged" msprop:Generator_RowEvArgName="WHMO_RE_DOKARTRowChangeEvent" msprop:Generator_RowClassName="WHMO_RE_DOKARTRow">
<xs:element name="WHMO_RE_DOKART" msprop:Generator_TableClassName="WHMO_RE_DOKARTDataTable" msprop:Generator_TableVarName="tableWHMO_RE_DOKART" msprop:Generator_RowChangedName="WHMO_RE_DOKARTRowChanged" msprop:Generator_TablePropName="WHMO_RE_DOKART" msprop:Generator_RowDeletingName="WHMO_RE_DOKARTRowDeleting" msprop:Generator_RowChangingName="WHMO_RE_DOKARTRowChanging" msprop:Generator_RowEvHandlerName="WHMO_RE_DOKARTRowChangeEventHandler" msprop:Generator_RowDeletedName="WHMO_RE_DOKARTRowDeleted" msprop:Generator_RowClassName="WHMO_RE_DOKARTRow" msprop:Generator_UserTableName="WHMO_RE_DOKART" msprop:Generator_RowEvArgName="WHMO_RE_DOKARTRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -499,7 +509,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="WHMO_RE_KUNDEN" msprop:Generator_TableClassName="WHMO_RE_KUNDENDataTable" msprop:Generator_TableVarName="tableWHMO_RE_KUNDEN" msprop:Generator_TablePropName="WHMO_RE_KUNDEN" msprop:Generator_RowDeletingName="WHMO_RE_KUNDENRowDeleting" msprop:Generator_RowChangingName="WHMO_RE_KUNDENRowChanging" msprop:Generator_RowEvHandlerName="WHMO_RE_KUNDENRowChangeEventHandler" msprop:Generator_RowDeletedName="WHMO_RE_KUNDENRowDeleted" msprop:Generator_UserTableName="WHMO_RE_KUNDEN" msprop:Generator_RowChangedName="WHMO_RE_KUNDENRowChanged" msprop:Generator_RowEvArgName="WHMO_RE_KUNDENRowChangeEvent" msprop:Generator_RowClassName="WHMO_RE_KUNDENRow">
<xs:element name="WHMO_RE_KUNDEN" msprop:Generator_TableClassName="WHMO_RE_KUNDENDataTable" msprop:Generator_TableVarName="tableWHMO_RE_KUNDEN" msprop:Generator_RowChangedName="WHMO_RE_KUNDENRowChanged" msprop:Generator_TablePropName="WHMO_RE_KUNDEN" msprop:Generator_RowDeletingName="WHMO_RE_KUNDENRowDeleting" msprop:Generator_RowChangingName="WHMO_RE_KUNDENRowChanging" msprop:Generator_RowEvHandlerName="WHMO_RE_KUNDENRowChangeEventHandler" msprop:Generator_RowDeletedName="WHMO_RE_KUNDENRowDeleted" msprop:Generator_RowClassName="WHMO_RE_KUNDENRow" msprop:Generator_UserTableName="WHMO_RE_KUNDEN" msprop:Generator_RowEvArgName="WHMO_RE_KUNDENRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -520,7 +530,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWMO_RE_DOKUMENTARTZUORDNUNG" msprop:Generator_TableClassName="VWMO_RE_DOKUMENTARTZUORDNUNGDataTable" msprop:Generator_TableVarName="tableVWMO_RE_DOKUMENTARTZUORDNUNG" msprop:Generator_TablePropName="VWMO_RE_DOKUMENTARTZUORDNUNG" msprop:Generator_RowDeletingName="VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleting" msprop:Generator_RowChangingName="VWMO_RE_DOKUMENTARTZUORDNUNGRowChanging" msprop:Generator_RowEvHandlerName="VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler" msprop:Generator_RowDeletedName="VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleted" msprop:Generator_UserTableName="VWMO_RE_DOKUMENTARTZUORDNUNG" msprop:Generator_RowChangedName="VWMO_RE_DOKUMENTARTZUORDNUNGRowChanged" msprop:Generator_RowEvArgName="VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent" msprop:Generator_RowClassName="VWMO_RE_DOKUMENTARTZUORDNUNGRow">
<xs:element name="VWMO_RE_DOKUMENTARTZUORDNUNG" msprop:Generator_TableClassName="VWMO_RE_DOKUMENTARTZUORDNUNGDataTable" msprop:Generator_TableVarName="tableVWMO_RE_DOKUMENTARTZUORDNUNG" msprop:Generator_RowChangedName="VWMO_RE_DOKUMENTARTZUORDNUNGRowChanged" msprop:Generator_TablePropName="VWMO_RE_DOKUMENTARTZUORDNUNG" msprop:Generator_RowDeletingName="VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleting" msprop:Generator_RowChangingName="VWMO_RE_DOKUMENTARTZUORDNUNGRowChanging" msprop:Generator_RowEvHandlerName="VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEventHandler" msprop:Generator_RowDeletedName="VWMO_RE_DOKUMENTARTZUORDNUNGRowDeleted" msprop:Generator_RowClassName="VWMO_RE_DOKUMENTARTZUORDNUNGRow" msprop:Generator_UserTableName="VWMO_RE_DOKUMENTARTZUORDNUNG" msprop:Generator_RowEvArgName="VWMO_RE_DOKUMENTARTZUORDNUNGRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -599,7 +609,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBMO_RE_DOKART" msprop:Generator_TableClassName="TBMO_RE_DOKARTDataTable" msprop:Generator_TableVarName="tableTBMO_RE_DOKART" msprop:Generator_TablePropName="TBMO_RE_DOKART" msprop:Generator_RowDeletingName="TBMO_RE_DOKARTRowDeleting" msprop:Generator_RowChangingName="TBMO_RE_DOKARTRowChanging" msprop:Generator_RowEvHandlerName="TBMO_RE_DOKARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBMO_RE_DOKARTRowDeleted" msprop:Generator_UserTableName="TBMO_RE_DOKART" msprop:Generator_RowChangedName="TBMO_RE_DOKARTRowChanged" msprop:Generator_RowEvArgName="TBMO_RE_DOKARTRowChangeEvent" msprop:Generator_RowClassName="TBMO_RE_DOKARTRow">
<xs:element name="TBMO_RE_DOKART" msprop:Generator_TableClassName="TBMO_RE_DOKARTDataTable" msprop:Generator_TableVarName="tableTBMO_RE_DOKART" msprop:Generator_RowChangedName="TBMO_RE_DOKARTRowChanged" msprop:Generator_TablePropName="TBMO_RE_DOKART" msprop:Generator_RowDeletingName="TBMO_RE_DOKARTRowDeleting" msprop:Generator_RowChangingName="TBMO_RE_DOKARTRowChanging" msprop:Generator_RowEvHandlerName="TBMO_RE_DOKARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBMO_RE_DOKARTRowDeleted" msprop:Generator_RowClassName="TBMO_RE_DOKARTRow" msprop:Generator_UserTableName="TBMO_RE_DOKART" msprop:Generator_RowEvArgName="TBMO_RE_DOKARTRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -644,7 +654,7 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBMO_RE_HISTORY" msprop:Generator_TableClassName="TBMO_RE_HISTORYDataTable" msprop:Generator_TableVarName="tableTBMO_RE_HISTORY" msprop:Generator_TablePropName="TBMO_RE_HISTORY" msprop:Generator_RowDeletingName="TBMO_RE_HISTORYRowDeleting" msprop:Generator_RowChangingName="TBMO_RE_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="TBMO_RE_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBMO_RE_HISTORYRowDeleted" msprop:Generator_UserTableName="TBMO_RE_HISTORY" msprop:Generator_RowChangedName="TBMO_RE_HISTORYRowChanged" msprop:Generator_RowEvArgName="TBMO_RE_HISTORYRowChangeEvent" msprop:Generator_RowClassName="TBMO_RE_HISTORYRow">
<xs:element name="TBMO_RE_HISTORY" msprop:Generator_TableClassName="TBMO_RE_HISTORYDataTable" msprop:Generator_TableVarName="tableTBMO_RE_HISTORY" msprop:Generator_RowChangedName="TBMO_RE_HISTORYRowChanged" msprop:Generator_TablePropName="TBMO_RE_HISTORY" msprop:Generator_RowDeletingName="TBMO_RE_HISTORYRowDeleting" msprop:Generator_RowChangingName="TBMO_RE_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="TBMO_RE_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBMO_RE_HISTORYRowDeleted" msprop:Generator_RowClassName="TBMO_RE_HISTORYRow" msprop:Generator_UserTableName="TBMO_RE_HISTORY" msprop:Generator_RowEvArgName="TBMO_RE_HISTORYRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -724,9 +734,9 @@ SELECT GUID, FILE_ORIGINAL, FILE_NEW, KUNDE_KURZ, INDEX1, INDEX2, ERSTELLTWER, E
</xs:element>
<xs:annotation>
<xs:appinfo>
<msdata:Relationship name="FK_TBMO_RE_DOKART_KUNDE_KDID" msdata:parent="TBMO_RE_KUNDEN" msdata:child="TBMO_RE_DOKART_KUNDE" msdata:parentkey="GUID" msdata:childkey="KUNDEN_ID" msprop:Generator_UserChildTable="TBMO_RE_DOKART_KUNDE" msprop:Generator_ChildPropName="GetTBMO_RE_DOKART_KUNDERows" msprop:Generator_UserRelationName="FK_TBMO_RE_DOKART_KUNDE_KDID" msprop:Generator_RelationVarName="relationFK_TBMO_RE_DOKART_KUNDE_KDID" msprop:Generator_UserParentTable="TBMO_RE_KUNDEN" msprop:Generator_ParentPropName="TBMO_RE_KUNDENRow" />
<msdata:Relationship name="FK_TBMO_RE_DOKART_KUNDE_KDID1" msdata:parent="WHMO_RE_KUNDEN" msdata:child="TBMO_RE_DOKART_KUNDE" msdata:parentkey="GUID" msdata:childkey="KUNDEN_ID" msprop:Generator_UserChildTable="TBMO_RE_DOKART_KUNDE" msprop:Generator_ChildPropName="GetTBMO_RE_DOKART_KUNDERows" msprop:Generator_UserRelationName="FK_TBMO_RE_DOKART_KUNDE_KDID1" msprop:Generator_RelationVarName="relationFK_TBMO_RE_DOKART_KUNDE_KDID1" msprop:Generator_UserParentTable="WHMO_RE_KUNDEN" msprop:Generator_ParentPropName="WHMO_RE_KUNDENRow" />
<msdata:Relationship name="FK_TBMO_RE_DOKART_KUNDE_DAID" msdata:parent="TBMO_RE_DOKART" msdata:child="TBMO_RE_DOKART_KUNDE" msdata:parentkey="GUID" msdata:childkey="DA_ID" msprop:Generator_UserChildTable="TBMO_RE_DOKART_KUNDE" msprop:Generator_ChildPropName="GetTBMO_RE_DOKART_KUNDERows" msprop:Generator_UserRelationName="FK_TBMO_RE_DOKART_KUNDE_DAID" msprop:Generator_RelationVarName="relationFK_TBMO_RE_DOKART_KUNDE_DAID" msprop:Generator_UserParentTable="TBMO_RE_DOKART" msprop:Generator_ParentPropName="TBMO_RE_DOKARTRow" />
<msdata:Relationship name="FK_TBMO_RE_DOKART_KUNDE_KDID" msdata:parent="TBMO_RE_KUNDEN" msdata:child="TBMO_RE_DOKART_KUNDE" msdata:parentkey="GUID" msdata:childkey="KUNDEN_ID" msprop:Generator_UserChildTable="TBMO_RE_DOKART_KUNDE" msprop:Generator_ChildPropName="GetTBMO_RE_DOKART_KUNDERows" msprop:Generator_UserRelationName="FK_TBMO_RE_DOKART_KUNDE_KDID" msprop:Generator_ParentPropName="TBMO_RE_KUNDENRow" msprop:Generator_RelationVarName="relationFK_TBMO_RE_DOKART_KUNDE_KDID" msprop:Generator_UserParentTable="TBMO_RE_KUNDEN" />
<msdata:Relationship name="FK_TBMO_RE_DOKART_KUNDE_KDID1" msdata:parent="WHMO_RE_KUNDEN" msdata:child="TBMO_RE_DOKART_KUNDE" msdata:parentkey="GUID" msdata:childkey="KUNDEN_ID" msprop:Generator_UserChildTable="TBMO_RE_DOKART_KUNDE" msprop:Generator_ChildPropName="GetTBMO_RE_DOKART_KUNDERows" msprop:Generator_UserRelationName="FK_TBMO_RE_DOKART_KUNDE_KDID1" msprop:Generator_ParentPropName="WHMO_RE_KUNDENRow" msprop:Generator_RelationVarName="relationFK_TBMO_RE_DOKART_KUNDE_KDID1" msprop:Generator_UserParentTable="WHMO_RE_KUNDEN" />
<msdata:Relationship name="FK_TBMO_RE_DOKART_KUNDE_DAID" msdata:parent="TBMO_RE_DOKART" msdata:child="TBMO_RE_DOKART_KUNDE" msdata:parentkey="GUID" msdata:childkey="DA_ID" msprop:Generator_UserChildTable="TBMO_RE_DOKART_KUNDE" msprop:Generator_ChildPropName="GetTBMO_RE_DOKART_KUNDERows" msprop:Generator_UserRelationName="FK_TBMO_RE_DOKART_KUNDE_DAID" msprop:Generator_ParentPropName="TBMO_RE_DOKARTRow" msprop:Generator_RelationVarName="relationFK_TBMO_RE_DOKART_KUNDE_DAID" msprop:Generator_UserParentTable="TBMO_RE_DOKART" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

4
ToolCollection/DS_More.xss
View File

@ -4,13 +4,13 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="213" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBMO_RE_KUNDEN" ZOrder="10" X="830" Y="387" Height="229" Width="258" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBMO_RE_DOKART_KUNDE" ZOrder="9" X="618" Y="109" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:WHMO_RE_DOKART" ZOrder="3" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:WHMO_RE_KUNDEN" ZOrder="5" X="302" Y="-14" Height="149" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:VWMO_RE_DOKUMENTARTZUORDNUNG" ZOrder="6" X="977" Y="121" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="161" />
<Shape ID="DesignTable:VWMO_RE_DOKUMENTARTZUORDNUNG" ZOrder="6" X="977" Y="121" Height="343" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBMO_RE_DOKART" ZOrder="2" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBMO_RE_HISTORY" ZOrder="1" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
</Shapes>

9
ToolCollection/ModuleCURRENT.vb
View File

@ -1,4 +1,6 @@
Module ModuleCURRENT
Imports DigitalData.Modules.Logging
Module ModuleCURRENT
Public CURRENT_START_DATETIME As Date
Public NI_Restart As Boolean = False
@ -12,5 +14,10 @@
Public DI_STREAMRESULTFILE As String
Public CURRENT_MOVE_FILEPATH As String
Public CURRENT_APPLICATION_LOG As String = ""
Public CURRENToWMSession As Object
Public CURRENToWMSession_Created As Date = Now
Public CURRENToWMConnect As Object
Public CURR_MyLogger As LogConfig
Public CURR_Logger As DigitalData.Modules.Logging.Logger
End Module

4
ToolCollection/My Project/Resources.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34014
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

40
ToolCollection/My Project/Settings.Designer.vb generated
View File

@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@ -370,7 +370,7 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0"), _
Global.System.Configuration.DefaultSettingValueAttribute("5"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property NI_Durchlauf_Intervall() As Decimal
Get
@ -907,6 +907,42 @@ Namespace My
Return CType(Me("NI_WORKING_HOURS"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public ReadOnly Property FB_DATASOURCE() As String
Get
Return CType(Me("FB_DATASOURCE"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public ReadOnly Property FB_DATABASE() As String
Get
Return CType(Me("FB_DATABASE"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public ReadOnly Property FB_USER() As String
Get
Return CType(Me("FB_USER"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public ReadOnly Property FB_PW() As String
Get
Return CType(Me("FB_PW"),String)
End Get
End Property
End Class
End Namespace

14
ToolCollection/My Project/Settings.settings
View File

@ -83,7 +83,7 @@
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="NI_Durchlauf_Intervall" Roaming="true" Type="System.Decimal" Scope="User">
<Value Profile="(Default)">0</Value>
<Value Profile="(Default)">5</Value>
</Setting>
<Setting Name="frmDIProfileigenschaften_Loc" Roaming="true" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">0, 0</Value>
@ -236,5 +236,17 @@
<Setting Name="NI_WORKING_HOURS" Type="System.String" Scope="Application">
<Value Profile="(Default)">16;17;18;19;20</Value>
</Setting>
<Setting Name="FB_DATASOURCE" Type="System.String" Scope="Application">
<Value Profile="(Default)" />
</Setting>
<Setting Name="FB_DATABASE" Type="System.String" Scope="Application">
<Value Profile="(Default)" />
</Setting>
<Setting Name="FB_USER" Type="System.String" Scope="Application">
<Value Profile="(Default)" />
</Setting>
<Setting Name="FB_PW" Type="System.String" Scope="Application">
<Value Profile="(Default)" />
</Setting>
</Settings>
</SettingsFile>

1158
ToolCollection/MyDataset.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

26
ToolCollection/TCService.vb
View File

@ -1,6 +1,6 @@
Imports System.ServiceProcess
Imports System.Threading
Imports DigitalData.Modules.Logging
Public Class TCService
Private _ThreadNI As New Thread(New System.Threading.ThreadStart(AddressOf Profil_DurchlaufNI))
@ -9,7 +9,7 @@ Public Class TCService
Private oTimerDI As System.Threading.Timer
Public aktivesProfil As ClassNIProfil
'Private aktivesDokument As WMObject
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Protected Overrides Sub OnStart(ByVal args() As String)
' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
' ausführen, damit der Dienst gestartet werden kann.
@ -27,7 +27,7 @@ Public Class TCService
'Tick des Timers für Nachindexierung
Private Sub TimerNI_Tick(ByVal state As Object)
ClassNIProfile.Init()
ClassLoggerNI.Init("", My.Settings.vlogNIServ & "_", True)
'ClassLoggerNI.Init("", My.Settings.vlogNIServ & "_", True)
Dim profil_id As Integer = 1
If ClassNIProfile.Profile IsNot Nothing Then
@ -37,9 +37,9 @@ Public Class TCService
resultProfilnamen &= "- " & profil.Profilname & vbNewLine
Next
ClassLoggerNI.Add("Beginn der Nachindexierung : " & Now, False)
ClassLoggerNI.Add("Anzahl der Profile: " & ClassNIProfile.Count, False)
ClassLoggerNI.Add(resultProfilnamen, False)
_Logger.Info("Beginn der Nachindexierung : " & Now)
_Logger.Info("Anzahl der Profile: " & ClassNIProfile.Count)
_Logger.Info(resultProfilnamen)
' Me.startProfileDurchlauf()
_ThreadNI.Start()
@ -90,21 +90,21 @@ Public Class TCService
' Me.aktivesProfil = profil
' ' Ausgabe an Logdatei über nächstes Profil
' ClassLoggerNI.Add("", False)
' ClassLoggerNI.Add(">> Starte Durchlauf für Profil: " & profil.Profilname, False)
' _Logger.Info("", False)
' _Logger.Info(">> Starte Durchlauf für Profil: " & profil.Profilname, False)
' ' Überprüfen ob Profil aktiv oder inaktiv
' If CBool(Me.aktivesProfil.Aktiv) = False Then
' ClassLoggerNI.Add(">> Profil: " & profil.Profilname & " ist inaktiv geschaltet", False)
' ClassLoggerNI.Add("", False)
' _Logger.Info(">> Profil: " & profil.Profilname & " ist inaktiv geschaltet", False)
' _Logger.Info("", False)
' Else
' ' den Durchlaufszeitpunkt speichern
' aktivesProfil.LastRun = Now
' aktivesProfil.Save(False)
' If file_exists(Me.aktivesProfil.WindreamSuche, True) = False Then
' ClassLoggerNI.Add(">> Windream Suche für Profil: " & profil.Profilname & " konnte nicht ausgeführt werden! Datei " & Me.aktivesProfil.WindreamSuche & " existiert nicht!", False)
' _Logger.Info(">> Windream Suche für Profil: " & profil.Profilname & " konnte nicht ausgeführt werden! Datei " & Me.aktivesProfil.WindreamSuche & " existiert nicht!", False)
' Else
' ' windream-Suche für Profil starten
' Dim windreamSucheErgebnisse As WMObjects = Me._windreamNI.GetSearchDocuments(Me.aktivesProfil.WindreamSuche)
@ -129,8 +129,8 @@ Public Class TCService
' Next
' Else
' ClassLoggerNI.Add("Keine windream-Dokumente für Profil: " & profil.Profilname & " gefunden!", False)
' ClassLoggerNI.Add("", False)
' _Logger.Info("Keine windream-Dokumente für Profil: " & profil.Profilname & " gefunden!", False)
' _Logger.Info("", False)
' ' keine Dateien zum Importieren
' End If
' End If

28
ToolCollection/ToolCollection.vbproj
View File

@ -13,7 +13,7 @@
<AssemblyName>ToolCollection</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
@ -86,6 +86,12 @@
<OutputPath>bin\x64\Release\</OutputPath>
</PropertyGroup>
<ItemGroup>
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
<HintPath>packages\EntityFramework.6.0.2\lib\net45\EntityFramework.dll</HintPath>
</Reference>
@ -113,11 +119,16 @@
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />
<Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" />
<Reference Include="System.Data.OracleClient" />
@ -135,7 +146,11 @@
<Reference Include="System.DirectoryServices" />
<Reference Include="System.Drawing" />
<Reference Include="System.EnterpriseServices" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Transactions" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
@ -178,12 +193,12 @@
<Compile Include="ClassMO_RE.vb" />
<Compile Include="ClassNIDatenbankzugriff.vb" />
<Compile Include="ClassNIEmail.vb" />
<Compile Include="ClassLoggerNI.vb" />
<Compile Include="ClassNIProfil.vb" />
<Compile Include="ClassNIProfile.vb" />
<Compile Include="ClassNIVerknüpfung.vb" />
<Compile Include="ClassNIVerknüpfungen.vb" />
<Compile Include="ClassNIWindream.vb" />
<Compile Include="ClassStopwatch.vb" />
<Compile Include="ClassWD_Rechte.vb" />
<Compile Include="ClassWindream_allgemein.vb" />
<Compile Include="ClassxmlZugriff.vb" />
@ -337,12 +352,6 @@
<Compile Include="frmNIProfilhinzufuegen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmNIVerknuepfungen_Old.Designer.vb">
<DependentUpon>frmNIVerknuepfungen_Old.vb</DependentUpon>
</Compile>
<Compile Include="frmNIVerknuepfungen_Old.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmNI_SQLTest.Designer.vb">
<DependentUpon>frmNI_SQLTest.vb</DependentUpon>
</Compile>
@ -486,9 +495,6 @@
<EmbeddedResource Include="frmNIProfilhinzufuegen.resx">
<DependentUpon>frmNIProfilhinzufuegen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNIVerknuepfungen_Old.resx">
<DependentUpon>frmNIVerknuepfungen_Old.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNI_SQLTest.resx">
<DependentUpon>frmNI_SQLTest.vb</DependentUpon>
</EmbeddedResource>

52
ToolCollection/app.config
View File

@ -1,14 +1,14 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="ToolCollection.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
<section name="ToolCollection.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="ToolCollection.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
<section name="ToolCollection.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
</sectionGroup>
<!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
<section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
<section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
</configSections>
<connectionStrings>
<add name="ToolCollection.My.MySettings.ConnectionStringCursor"
@ -25,17 +25,17 @@
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog" />
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
@ -123,7 +123,7 @@
<value>0</value>
</setting>
<setting name="NI_Durchlauf_Intervall" serializeAs="String">
<value>0</value>
<value>5</value>
</setting>
<setting name="frmDIProfileigenschaften_Loc" serializeAs="String">
<value>0, 0</value>
@ -252,28 +252,48 @@
<setting name="NI_WORKING_HOURS" serializeAs="String">
<value>16;17;18;19;20</value>
</setting>
<setting name="FB_DATASOURCE" serializeAs="String">
<value />
</setting>
<setting name="FB_DATABASE" serializeAs="String">
<value />
</setting>
<setting name="FB_USER" serializeAs="String">
<value />
</setting>
<setting name="FB_PW" serializeAs="String">
<value />
</setting>
</ToolCollection.My.MySettings>
</applicationSettings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
</startup>
<entityFramework>
<defaultConnectionFactory type="System.Data.Entity.Infrastructure.LocalDbConnectionFactory, EntityFramework">
<parameters>
<parameter value="v11.0" />
<parameter value="v11.0"/>
</parameters>
</defaultConnectionFactory>
<providers>
<provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer" />
<provider invariantName="System.Data.SQLite.EF6" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6" />
<provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer"/>
<provider invariantName="System.Data.SQLite.EF6" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6"/>
</providers>
</entityFramework>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider" invariant="System.Data.SQLite" description=".Net Framework Data Provider for SQLite" type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)" invariant="System.Data.SQLite.EF6" description=".Net Framework Data Provider for SQLite (Entity Framework 6)" type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
<remove invariant="System.Data.SQLite"/>
<add name="SQLite Data Provider" invariant="System.Data.SQLite" description=".Net Framework Data Provider for SQLite" type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite"/>
<remove invariant="System.Data.SQLite.EF6"/>
<add name="SQLite Data Provider (Entity Framework 6)" invariant="System.Data.SQLite.EF6" description=".Net Framework Data Provider for SQLite (Entity Framework 6)" type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6"/>
</DbProviderFactories>
</system.data>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="System.Data.SQLite" publicKeyToken="db937bc2d44ff139" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-1.0.92.0" newVersion="1.0.92.0"/>
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>

8
ToolCollection/clsHelper.vb
View File

@ -1,7 +1,8 @@
Imports System.IO
Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Logging
Public Class clsHelper
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared Function file_exists(ByVal _file As String, ByVal _modul As String) As Boolean
Try
If System.IO.File.Exists(_file) Then
@ -11,7 +12,7 @@ Public Class clsHelper
End If
Catch ex As Exception
If _modul = "NI" Then
ClassLoggerNI.Add("Fehler in clsHelper Funktion file_exists - Fehler: ", ex)
_Logger.Error(ex)
End If
Return False
End Try
@ -44,7 +45,8 @@ Public Class clsHelper
Catch ex As Exception
If _modul = "NI" Then
ClassLoggerNI.Add("Fehler in GetPageCount - Fehler: ", ex)
_Logger.Error(ex)
End If
If _modul = "DI" Then
ClassLoggerDI.Add("Fehler in GetPageCount - Fehler: ", ex)

18
ToolCollection/clsNIFulltext.vb
View File

@ -1,6 +1,8 @@
Imports System.Text.RegularExpressions
Imports WINDREAMLib
Imports DigitalData.Modules.Logging
Public Class clsNIFulltext
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared Function GetValuesFromFulltext(fulltext As String, pattern As String, Pos_From As Integer, Pos_To As Integer, ignorewhitespace As Boolean)
Try
fulltext = fulltext.Replace(vbCrLf, "")
@ -21,7 +23,7 @@ Public Class clsNIFulltext
Dim Gesamtanzahl As Integer = 0
Dim Exit_For = False
'ClassLoggerNI.Add("Matches-Count fürm Regex is 0", False)
'ClassLoggerNI.Add("Matches-Count fürm Regex is 0")
'Dim m1 As Match = Regex.Match(fulltext, pattern)
'If m1.Success Then
' Console.WriteLine("Match: {0}", m1.Value)
@ -35,16 +37,16 @@ Public Class clsNIFulltext
' Next
' Next
'Else
' ClassLoggerNI.Add("The match for groups failed.", False)
' ClassLoggerNI.Add("The match for groups failed.")
'End If
Dim matchcount As Integer = 0
If regexMatch.Success = False Then
ClassLoggerNI.Add(">> ACHTUNG: Keine Vorkommen für diese Regular Expression gefunden", False)
_Logger.Warn(">> ACHTUNG: Keine Vorkommen für diese Regular Expression gefunden")
Return Nothing
Else
If (regexMatch.Groups.Count - 1) >= 1 Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Using RegexGroups....MatchCount(" & regexMatch.Groups.Count - 1 & ")", False)
_Logger.Info("Using RegexGroups....MatchCount(" & regexMatch.Groups.Count - 1 & ")")
Gesamtanzahl = regexMatch.Groups.Count - 1
For y = 1 To regexMatch.Groups.Count - 1
Dim g As Group = regexMatch.Groups(y)
@ -109,7 +111,7 @@ Public Class clsNIFulltext
Next
regexMatch = regexMatch.NextMatch()
Else
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Using Matchelements.....", False)
_Logger.Info("Using Matchelements.....")
For Each element As System.Text.RegularExpressions.Match In elemente
element.ToString()
Next
@ -152,17 +154,17 @@ Public Class clsNIFulltext
If Ergebnis.Length >= 1 Then
Return Ergebnis
Else
ClassLoggerNI.Add(">> ACHTUNG: Array-Ergebnis Length = 0", False)
_Logger.Warn("ACHTUNG: Array-Ergebnis Length = 0")
Return Nothing
End If
Else
ClassLoggerNI.Add(">> ACHTUNG: Keine Vorkommen für diese Regular Expression gefunden", False)
_Logger.Warn("ACHTUNG: Keine Vorkommen für diese Regular Expression gefunden")
Return Nothing
End If
Return Ergebnis
Catch ex As Exception
ClassLoggerNI.Add("## Fehler in GetValuesFromFulltext: " & ex.Message, False)
_Logger.Error(ex)
Return Nothing
End Try
End Function

33
ToolCollection/clsNI_DB.vb
View File

@ -1,7 +1,8 @@
Imports Oracle.ManagedDataAccess.Client
Imports System.Data.SqlClient
Imports DigitalData.Modules.Logging
Public Class clsNI_DB
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared Function CHECK_DESKR_INDEX(ByVal _dbTyp As String, ByVal _indexname As String, ByVal _indexvalue As String, ByVal _sql As String, datasource As String, initialcatalog As String, userid As String, pw As String) As Integer
Try
Try
@ -14,7 +15,7 @@ Public Class clsNI_DB
_replace = "'" & _indexvalue & "'"
End If
_vsql = sql.Replace("[%" & _indexname & "]", _replace)
ClassLoggerNI.LogEntry(" - Check Deskriptiven Index-Value - Select Scalar: " & _vsql, False)
_Logger.Info("Check Deskriptiven Index-Value - Select Scalar: " & _vsql)
If _dbTyp = "Oracle" Then
Dim ergebnis As Integer = CheckIndex_oracle(_vsql, datasource, initialcatalog, userid, pw)
@ -40,7 +41,7 @@ Public Class clsNI_DB
End If
End If
Catch ex As Exception
ClassLoggerNI.Add("Fehler bei Check_DeskIndexValue", ex.Message)
_Logger.Error(ex)
Return 99
End Try
Catch ex As Exception
@ -54,7 +55,7 @@ Public Class clsNI_DB
Dim conn As New OracleConnectionStringBuilder
Dim connstr As String
If host <> "" And servicename <> "" Then
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & host & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
servicename & ")));User Id=" & User & ";Password=" & pw & ";"
Else
conn.DataSource = host
@ -69,7 +70,8 @@ Public Class clsNI_DB
Try
Oracle_Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("Fehler bei Verbindung zur Datenbank aufbauen - String: " & connstr, "Message", ex)
_Logger.Error(ex)
' DB-Connection schliessen
Return 99
Oracle_Connection.Close()
@ -83,14 +85,19 @@ Public Class clsNI_DB
Dim ergebnis As String = Command.ExecuteScalar.ToString
Return CLng(ergebnis)
Catch ex As Exception
If ex.Message.Contains("ORA-00904") Then
_Logger.Info("Error in CheckIndex_Oracle: " & ex.Message)
Else
_Logger.Warn(ex)
End If
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.CheckIndex_oracle", "Unbekannter Fehler", ex)
Return 0
End Try
End Function
Public Shared Function CheckIndex_MSSSQL(ByVal scalar_select As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, ByVal init_Cata As String) As Integer
Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> MSSQL-Command: " & scalar_select, False)
_Logger.Info("MSSQL-Command: " & scalar_select)
' die nötigen Variablen definieren
Dim result As Object = Nothing
Dim Connection As SqlConnection = Nothing
@ -111,8 +118,8 @@ Public Class clsNI_DB
Connection = New SqlConnection(con)
Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("CheckIndex_MSSSQL - Message: " & ex.Message, "Verbindung zur Datenbank aufbauen", ex)
ClassLoggerNI.Add(">> ConString: " & con, False)
_Logger.Warn("CheckIndex_MSSSQL - Message: " & ex.Message)
' DB-Connection schliessen
Return Nothing
End Try
@ -120,15 +127,15 @@ Public Class clsNI_DB
Try
Command = New SqlCommand(scalar_select, Connection)
Catch ex As Exception
ClassLoggerNI.Add("ClassNIDatenbankzugriff.CheckIndex_MSSSQL - Message: " & ex.Message, "sqlcommand definieren", ex)
ClassLoggerNI.Add("## scalar_select: " & scalar_select, False)
_Logger.Warn("ClassNIDatenbankzugriff.CheckIndex_MSSSQLsqlcommand definieren: " & ex.Message)
Return Nothing
End Try
Dim ergebnis As String = Command.ExecuteScalar.ToString
Return CLng(ergebnis)
Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("Unvorhergesehener Fehler in CheckIndex_MSSSQL - Message: " & ex.Message, "Unbekannter Fehler", ex)
_Logger.Error(ex)
Return 0
End Try
End Function

159
ToolCollection/clsNI_WorkFile.vb
View File

@ -1,7 +1,11 @@
Imports WINDREAMLib
Imports System.IO
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
Public Class clsNI_WorkFile
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private _MyLogger As LogConfig
Public Shared aktivesProfil As ClassNIProfil
Public Shared _windream As ClassNIWindream
Private Shared _XML As New ClassxmlZugriff
@ -14,19 +18,25 @@ Public Class clsNI_WorkFile
Private Shared _file_Folderpath As String
Private Shared _file_DeskriptiverWert As Object
Private Shared MyDataset As ToolCollection.MyDataset
Private _firebird As Firebird
Private Shared NI_Indexe() As String 'zum Speichern der Indexe
Private Shared NI_Values() As String 'zum Speichern der Werte
Public Shared Function Work_File(ByVal dokument As WMObject) As Boolean
Sub New(LogConfig As LogConfig)
MyBase.New()
_MyLogger = LogConfig
_Logger = _MyLogger.GetLogger()
End Sub
Public Function Work_File(ByVal dokument As WMObject) As Boolean
Try
errormsg = ""
_file_Folderpath = ""
Dim error_WorkFile As Boolean = False
_WDFileINWORK = dokument
_WDOrdnerpfad = Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & dokument.aPath)
ClassLoggerNI.LogEntry("", False, True)
ClassLoggerNI.LogEntry("## Indexierung von Dokument '" & dokument.aName & "' ##", False, True)
_Logger.Info("## Indexierung von Dokument '" & dokument.aName & "' ##")
_file_Folderpath = Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & dokument.aPath)
'Die Hilfstabelle leeren
@ -53,7 +63,7 @@ Public Class clsNI_WorkFile
End If
Catch ex As Exception
'bei einem Fehler einen Eintrag in der Logdatei machen
ClassLoggerNI.LogEntry("ACHTUNG Schwerwiegender Fehler in Work_File: " & ex.Message, False, True)
_Logger.Warn("ACHTUNG Schwerwiegender Fehler in Work_File: " & ex.Message)
If My.Settings.vNIMailsenden = True Then
ClassNIEmail.Add("Schwerwiegender Fehler bei Work_File - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message)
End If
@ -67,7 +77,7 @@ Public Class clsNI_WorkFile
If Not _file_DeskriptiverWert Is Nothing Then
If _file_DeskriptiverWert Is String.Empty Then
'Fehler weil _file_DeskriptiverWert leer ist
ClassLoggerNI.LogEntry("# Check_Deskriptiven_Index - _file_DeskriptiverWert ist 'leer' - Abbruch")
_Logger.Warn("# Check_Deskriptiven_Index - _file_DeskriptiverWert ist 'leer' - Abbruch")
Return True
End If
Else
@ -86,9 +96,9 @@ Public Class clsNI_WorkFile
If clsHelper.file_exists(_pathxmlfile, "NI") = False Then
_pathxmlfile = _file_Folderpath & "\" & System.IO.Path.GetFileNameWithoutExtension(_WDFileINWORK.aPath) & "." & "xfres"
If clsHelper.file_exists(_pathxmlfile, "NI") = False Then
ClassLoggerNI.LogEntry(" >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!", False, True)
_Logger.Warn(" >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!")
'Fehlermeldung eintragen
Indexiere_ErrorIndex("Nachindexdatei NOT EXISTING", _WDFileINWORK, My.Settings.ERROR_INDEX)
Indexiere_ErrorIndex("Nachindexdatei NOT EXISTING", _WDFileINWORK, aktivesProfil.IndexFehler)
errormsg &= " >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!"
Return True
End If
@ -106,22 +116,22 @@ Public Class clsNI_WorkFile
Select Case clsNI_DB.CHECK_DESKR_INDEX(aktivesProfil.DbArt, aktivesProfil.Desk_windreamIndex, _file_DeskriptiverWert.ToString, aktivesProfil.checkIndexsql, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password)
Case 0
'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
ClassLoggerNI.LogEntry(" >> Der deskriptive Indexwert verweist auf KEINEN Eintrag in der Datenbank! - Markierung des Doks", False, True)
_Logger.Warn(" >> Der deskriptive Indexwert verweist auf KEINEN Eintrag in der Datenbank! - Markierung des Doks")
errormsg &= " >> Der deskriptive Indexwert verweist auf KEINEN Eintrag in der Datenbank!"
Return True
Case 1
ClassLoggerNI.LogEntry(" - Der deskriptive Indexwert verweist genau auf EINEN Eintrag in der Datenbank - Alles OK")
_Logger.Warn(" - Der deskriptive Indexwert verweist genau auf EINEN Eintrag in der Datenbank - Alles OK")
Return False
Case 2
'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
ClassLoggerNI.LogEntry(" >> Der deskriptive Indexwert verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!", False, True)
_Logger.Warn(" >> Der deskriptive Indexwert verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!")
errormsg &= " >> Der deskriptive Indexwert verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!"
Return True
End Select
End Function
Private Shared Function Work_Verknuepfungen() As Boolean
Private Function Work_Verknuepfungen() As Boolean
Try
Dim _err_in_Work_Verkn As Boolean = False
' alle Verknüpfungen/Links des aktuellen Suchergebnisses durchlaufen
@ -133,7 +143,7 @@ Public Class clsNI_WorkFile
' alle Verknüpfungen/Links des aktuellen Suchergebnisses durchlaufen
For Each Index_Link As ClassNIVerknüpfung In aktivesProfil.Verknüpfungen.Links
If _err_in_Work_Verkn = False Then
_err_in_Work_Verkn = Work_indexLink(Index_Link.SelectAnweisung, Index_Link.Spalte, Index_Link.Index)
_err_in_Work_Verkn = Work_IndexLink(Index_Link.SelectAnweisung, Index_Link.Spalte, Index_Link.Index)
Else
Exit For
End If
@ -147,7 +157,7 @@ Public Class clsNI_WorkFile
End If
Catch ex As Exception
ClassLoggerNI.LogEntry(" >> ACHTUNG UNVORHERGESEHENER FEHLER in Work_Verknuepfungen : " & ex.Message, False, True)
_Logger.Error(ex)
Return True
End Try
End Function
@ -158,25 +168,25 @@ Public Class clsNI_WorkFile
'den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen
_file_DeskriptiverWert = _WDFileINWORK.GetVariableValue(aktivesProfil.Desk_windreamIndex)
Else
ClassLoggerNI.LogEntry("Get_Desk_index: Es wurde kein deskriptiver Index hinterlegt!", False)
_Logger.Warn("Get_Desk_index: Es wurde kein deskriptiver Index hinterlegt!", False)
End If
Catch ex As Exception
Dim errormsg As String = "UNVORHERGESEHENER FEHLER in bei Get_Desk_index (GetVariableValue für Index '" & aktivesProfil.Desk_windreamIndex & "'): " & ex.Message
ClassLoggerNI.LogEntry(errormsg, False, True)
_Logger.Warn(errormsg)
If My.Settings.vNIMailsenden = True Then
ClassNIEmail.Add(errormsg)
End If
End Try
If _file_DeskriptiverWert Is Nothing Then
ClassLoggerNI.LogEntry("- ACHTUNG: Deskriptiver Indexwert ist NOTHING", False)
_Logger.Warn("- ACHTUNG: Deskriptiver Indexwert ist NOTHING", False)
Exit Sub
Else
ClassLoggerNI.LogEntry("- Ausgelesener Deskriptive Indexwert: '" & _file_DeskriptiverWert.ToString & "'", False)
_Logger.Warn("- Ausgelesener Deskriptive Indexwert: '" & _file_DeskriptiverWert.ToString & "'", False)
End If
If _file_DeskriptiverWert Is String.Empty Then
errormsg &= vbNewLine & " ACHTUNG - Für den Deskriptiven Index konnte kein Wert gelesen werden - Indexierungsvorgang wird nun abgebrochen"
' wenn die Abfrage in windream kein Ergebnis gab, muss das Fehlerflag gesetzt werden
ClassLoggerNI.LogEntry(errormsg, False, True)
_Logger.Warn(errormsg)
End If
End Sub
@ -207,9 +217,9 @@ Public Class clsNI_WorkFile
If Volltext_Indexierung.Spalte.StartsWith("%") And Volltext_Indexierung.Spalte.EndsWith("%") Then
Dim manwert As String
'Ein manueller Wert in der Verknüpfung
ClassLoggerNI.LogEntry(">> Fulltext_init: Indexierung mit einem manuellem Wert")
_Logger.Info(">> Fulltext_init: Indexierung mit einem manuellem Wert")
manwert = Volltext_Indexierung.Spalte.Replace("%", "")
ClassLoggerNI.LogEntry(">> Manueller Wert: " & manwert)
_Logger.Info(">> Manueller Wert: " & manwert)
'Indexieren der Datei
' die Arraygrößen anpassen
ReDim Preserve IndexArray(0)
@ -227,7 +237,7 @@ Public Class clsNI_WorkFile
Dim _posArray As String() = Volltext_Indexierung.SelectAnweisung.Split(";")
pos_von = _posArray(0)
pos_bis = _posArray(1)
ClassLoggerNI.LogEntry(" - Volltext-Indexierung - Regex: '" & Volltext_Indexierung.Spalte & "' - Alle Vorkommen")
_Logger.Debug("- Volltext-Indexierung - Regex: '" & Volltext_Indexierung.Spalte & "' - Alle Vorkommen")
Try
ign_whitespace = CBool(_posArray(2))
Catch ex As Exception
@ -236,7 +246,7 @@ Public Class clsNI_WorkFile
Else
pos_von = 10000
pos_bis = 0
ClassLoggerNI.LogEntry(" - Volltext-Indexierung - Regex: '" & Volltext_Indexierung.Spalte & "' - Pos.-Von: '" & pos_von & "' - Pos.-Bis: '" & pos_bis)
_Logger.Debug("- Volltext-Indexierung - Regex: '" & Volltext_Indexierung.Spalte & "' - Pos.-Von: '" & pos_von & "' - Pos.-Bis: '" & pos_bis)
End If
ErgebnisArray = clsNIFulltext.GetValuesFromFulltext(fulltext, Volltext_Indexierung.Spalte, pos_von, pos_bis, ign_whitespace)
If Not ErgebnisArray Is Nothing Then
@ -270,7 +280,7 @@ Public Class clsNI_WorkFile
ErrorinIndexierung = _windream.RunIndexing_Vektor(_dokument, IndexArray, ErgebnisArray)
End If
Else
ClassLoggerNI.LogEntry(" - Ergebnisarray is nothing")
_Logger.Info("- Ergebnisarray is nothing")
Return True
End If
End If
@ -278,14 +288,14 @@ Public Class clsNI_WorkFile
Else
ClassLoggerNI.LogEntry("## Fehler in Fulltext_init - ErrorinIndexierung = True", False, True)
_Logger.Info("## Fehler in Fulltext_init - ErrorinIndexierung = True")
Return True
End If
Next
Return ErrorinIndexierung
Catch ex As Exception
ClassLoggerNI.LogEntry("ACHTUNG unvorhergesehener Fehler bei Fulltext_init: " & ex.Message, False, True)
_Logger.Error(ex)
Return True
End Try
End Function
@ -300,7 +310,7 @@ Public Class clsNI_WorkFile
_replace = "'" & _indexvalue & "'"
End If
_vsql = sql.Replace("[%" & aktivesProfil.Desk_windreamIndex & "]", _replace)
ClassLoggerNI.LogEntry(" - Check Deskriptiven Index-Value - Select Scalar: " & _vsql)
_Logger.Debug("- Check Deskriptiven Index-Value - Select Scalar: " & _vsql)
If aktivesProfil.DbArt = "Oracle" Then
Dim ergebnis As Integer = clsNI_DB.CheckIndex_oracle(_vsql, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password)
@ -326,15 +336,15 @@ Public Class clsNI_WorkFile
End If
End If
Catch ex As Exception
ClassLoggerNI.Add("Fehler bei Check_DeskIndexValue", ex.Message)
_Logger.Error(ex)
Return 99
End Try
End Function
Private Shared Function Work_IndexLink(SelectString As String, _Spalte As String, _Index As String)
Private Function Work_IndexLink(SelectString As String, _Spalte As String, _Index As String)
Try
Dim IndexwertAusWindream As Object
Dim eindeutigerWertausWindream As String
Dim database As New ClassNIDatenbankzugriff
Dim database As New ClassNIDatenbankzugriff(_MyLogger)
Dim selectArray()
'Regulären Ausdruck zum Auslesen der windream-Indexe definieren
@ -375,7 +385,7 @@ Public Class clsNI_WorkFile
' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
Dim idxName_ohneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
ClassLoggerNI.LogEntry(" - für Regex Element '" & element.Value & "' wurden die Klammern entfernt: " & idxName_ohneSonderzeichen)
_Logger.Debug("- für Regex Element '" & element.Value & "' wurden die Klammern entfernt: " & idxName_ohneSonderzeichen)
Try
' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen
IndexwertAusWindream = _WDFileINWORK.GetVariableValue(idxName_ohneSonderzeichen)
@ -383,7 +393,7 @@ Public Class clsNI_WorkFile
eindeutigerWertausWindream = IndexwertAusWindream
End If
Catch ex As Exception
ClassLoggerNI.Add("ACHTUNG: Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "'", ex.Message)
_Logger.Warn("ACHTUNG: Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "': " & ex.Message)
' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden
Return True
End Try
@ -392,14 +402,14 @@ Public Class clsNI_WorkFile
' und die Abfrage ein Ergebnis zurück gab
If IndexwertAusWindream Is Nothing Then
' IndexwertAusWindream ist Nothing (idxName_ohneSonderzeichen)
ClassLoggerNI.LogEntry("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist NOTHING", False, True)
ClassLoggerNI.LogEntry(">> Select-String bisher: " & SelectString, False, True)
_Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist NOTHING")
_Logger.Warn(">> Select-String bisher: " & SelectString)
' wenn die Abfrage in windream kein Ergebnis gab, muss das error_in_Indexierungflag gesetzt werden
Return True
Else
' den Platzhalter im SQL-String durch den Wert ersetzen
SelectString = SelectString.Replace(element.Value, IndexwertAusWindream.ToString)
ClassLoggerNI.LogEntry(">> SelectString.Replace(" & element.Value & ", " & IndexwertAusWindream.ToString)
_Logger.Debug(">> SelectString.Replace(" & element.Value & ", " & IndexwertAusWindream.ToString)
End If
Else ' wenn es sich um den Platzhalter für die Spalte bzw. den View handelt
@ -413,7 +423,7 @@ Public Class clsNI_WorkFile
End If
End If
Next ' zum nächsten Wert in der SQL-Anweisung gehen
ClassLoggerNI.LogEntry(">> SelectString nach For Each (" & SelectString & ")")
_Logger.Debug(">> SelectString nach For Each (" & SelectString & ")")
Dim _NidxWert = Nothing ' Der Nachindexierungswert: entweder aus Datenbankabfrage oder aus xml-File
'====================================
@ -421,9 +431,9 @@ Public Class clsNI_WorkFile
'====================================
If _Spalte.StartsWith("%") And _Spalte.EndsWith("%") Then
'Ein manueller Wert in der Verknüpfung
ClassLoggerNI.LogEntry(">> Indexierung mit einem manuellem Wert")
_Logger.Debug(">> Indexierung mit einem manuellem Wert")
_NidxWert = _Spalte.Replace("%", "")
ClassLoggerNI.LogEntry(">> Manueller Wert: " & _NidxWert)
_Logger.Debug(">> Manueller Wert: " & _NidxWert)
Else
'==========================================
'Indexierung gegen einen auszulesenden Wert
@ -433,7 +443,7 @@ Public Class clsNI_WorkFile
Dim Anzahl_NI_Werte As Integer = 0
If IndexwertAusWindream Is Nothing = False Then
If IndexwertAusWindream.GetType.ToString.Contains("System.Object") Then 'Es wird gegen ein Vektorfeld nachindexiert
ClassLoggerNI.LogEntry(">> INDEXIERUNG GEGEN EIN VEKTORFELD")
_Logger.Debug(">> INDEXIERUNG GEGEN EIN VEKTORFELD")
'Zuweisen der Indexwerte des Vektorfeldes zu Array
Arr = IndexwertAusWindream
For Each str As Object In Arr
@ -442,7 +452,7 @@ Public Class clsNI_WorkFile
End If
Next
ReDim Preserve selectArray(Anzahl_NI_Werte - 1)
ClassLoggerNI.LogEntry(">> Anzahl Elemente: " & Anzahl_NI_Werte)
_Logger.Debug(">> Anzahl Elemente: " & Anzahl_NI_Werte)
'MsgBox("Aha ein Vektorindex" & vbNewLine & "Anzahl Elemente: " & Anzahl_NI_Werte)
Dim i As Integer = 0
For Each obj As Object In Arr
@ -450,26 +460,26 @@ Public Class clsNI_WorkFile
SelectString = SelectString.Replace("System.Object[]", obj.ToString)
'Select-Befehl an Array übergeben
selectArray(i) = SelectString
ClassLoggerNI.LogEntry(">> SELECT-BEFEHL: " & selectArray(i))
_Logger.Debug(">> SELECT-BEFEHL: " & selectArray(i))
i += 1
Next
Else
ReDim Preserve selectArray(0)
'MsgBox("Nur ein Einfachindex :(" & vbNewLine & IndexwertAusWindream.ToString)
selectArray(0) = SelectString
ClassLoggerNI.LogEntry(">> INDEXIERUNG GEGEN EINEN EINFACHINDEX '" & selectArray(0) & "'")
_Logger.Debug(">> INDEXIERUNG GEGEN EINEN EINFACHINDEX '" & selectArray(0) & "'")
End If
Else
ReDim Preserve selectArray(0)
'MsgBox("Nur ein Einfachindex :(" & vbNewLine & IndexwertAusWindream.ToString)
selectArray(0) = SelectString
ClassLoggerNI.LogEntry(">> IndexwertAusWindream Is Nothing: Select: " & selectArray(0))
_Logger.Debug(">> IndexwertAusWindream Is Nothing: Select: " & selectArray(0))
End If
'Indexwert über DB oder Datei
Select Case aktivesProfil.Ni_Art.ToLower
Case "db"
ClassLoggerNI.LogEntry(">> SQL-Abfragen durchlaufen")
_Logger.Debug(">> SQL-Abfragen durchlaufen")
Dim i As Integer
For i = 0 To selectArray.Length - 1
'MessageBox.Show("Select: " & vbNewLine & selectArray(i))
@ -482,6 +492,8 @@ Public Class clsNI_WorkFile
_NidxWert = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, _Index)
ElseIf aktivesProfil.DbArt = "OLE (Access)" Then
_NidxWert = database.GetValueFromOleDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, _Index)
ElseIf aktivesProfil.DbArt = "Firebird" Then
_NidxWert = database.GetValueFromFirebird(aktivesProfil.Profilname, selectArray(i), _Index, MyDataset)
End If
Next
Case "xml"
@ -489,10 +501,10 @@ Public Class clsNI_WorkFile
Dim dok As String = System.IO.Path.GetFileNameWithoutExtension(_WDFileINWORK.aPath)
'Indexierung über luratech-Ergebnis Files
If aktivesProfil.xmlEnd = "xffres" Then
ClassLoggerNI.LogEntry(" - Indexierung über XML-Dokument Abby/Luratech")
_Logger.Debug("- Indexierung über XML-Dokument Abby/Luratech")
'Pfad für xml-File verketten
_pathxmlfile = _WDOrdnerpfad & "\" & Path.GetFileNameWithoutExtension(_WDFileINWORK.aPath) & "." & aktivesProfil.xmlEnd 'aktivesProfil.xmlFolder
_pathxmlfile = _pathxmlfile.Replace("W:", "\\windream\objects")
'Dateipfad für xffres/xml-Datei zusammenbauen
If File.Exists(_pathxmlfile) Then
'Übergabe der Dateiparameter und des xml-Knotens
@ -500,15 +512,15 @@ Public Class clsNI_WorkFile
'wert aus Luratech darf nicht leer sein
If _NidxWert Is Nothing Then
File_SetBooleanIndex(True, _WDFileINWORK, aktivesProfil.IndexValidation)
ClassLoggerNI.LogEntry(">> ACHTUNG: Wert aus Formrec. ist nothing", False, True)
_Logger.Warn(">> ACHTUNG: Wert aus Formrec. ist nothing")
Return True
End If
Else
ClassLoggerNI.LogEntry(" >> ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!", False, True)
_Logger.Warn(" >> ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!")
Return True
End If
ElseIf aktivesProfil.xmlEnd = "xml (ZugFerd)" Then
ClassLoggerNI.LogEntry(" - Indexierung über XML-Dokument ZugFerd")
_Logger.Warn(" - Indexierung über XML-Dokument ZugFerd")
'Pfad für xml-File verketten
_pathxmlfile = _WDOrdnerpfad & "\" & Path.GetFileNameWithoutExtension(_WDFileINWORK.aPath) & ".xml"
@ -519,11 +531,11 @@ Public Class clsNI_WorkFile
'wert aus Luratech darf nicht leer sein
If _NidxWert Is Nothing Then
File_SetBooleanIndex(True, _WDFileINWORK, aktivesProfil.IndexValidation)
ClassLoggerNI.LogEntry(">> ACHTUNG: Wert aus ZugFerd-Datei ist nothing", False, True)
_Logger.Warn(">> ACHTUNG: Wert aus ZugFerd-Datei ist nothing")
Return True
End If
Else
ClassLoggerNI.LogEntry(" >> ACHTUNG 2: Nachindexdatei ZugFerd: " & _pathxmlfile & " existiert nicht!", False, True)
_Logger.Warn(" >> ACHTUNG 2: Nachindexdatei ZugFerd: " & _pathxmlfile & " existiert nicht!")
Return True
End If
@ -531,7 +543,7 @@ Public Class clsNI_WorkFile
'wenn Wert geliefert und Index ist deskriptiver Index
If aktivesProfil.Desk_windreamIndex = _Index And aktivesProfil.checkIndexsql <> "" Then
If (_NidxWert = "") Or (_NidxWert Is Nothing) Then
ClassLoggerNI.LogEntry(">> ACHTUNG: der gelesene Wert ist leer! Dies kann zu Fehlern führen! #", False, True)
_Logger.Warn(">> ACHTUNG: der gelesene Wert ist leer! Dies kann zu Fehlern führen! #")
File_SetBooleanIndex(True, _WDFileINWORK, aktivesProfil.IndexValidation)
_NidxWert = Nothing
Return True
@ -539,17 +551,17 @@ Public Class clsNI_WorkFile
Dim _dokxml As WINDREAMLib.WMObject
_dokxml = Nothing
'Dim _path2xmlfile As String = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." & aktivesProfil.xmlEnd
_dokxml = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, _pathxmlfile.Substring(2)) 'WINDREAMLib.WMEntity.WMEntityDocument
_dokxml = _windream.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, _pathxmlfile.Substring(2)) 'WINDREAMLib.WMEntity.WMEntityDocument
'Überprüfen ob deskriptiver Wert eindeutig?
ClassLoggerNI.LogEntry(" - Überprüfung ob deskriptiver Wert eindeutig?")
_Logger.Debug("- Überprüfung ob deskriptiver Wert eindeutig?")
Dim Check As Integer = Check_DeskIndexValue(_NidxWert, aktivesProfil.checkIndexsql)
Select Case Check
Case 0
'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
ClassLoggerNI.LogEntry(" - Der deskriptive Indexwert '" & _NidxWert & "' verweist auf keinen Eintrag in der Datenbank! - Markierung des Doks", False, True)
_Logger.Info("- Der deskriptive Indexwert '" & _NidxWert & "' verweist auf keinen Eintrag in der Datenbank! - Markierung des Doks")
'Überprüfung ob Wert dennoch indexiert werden soll?!
If SelectString = "WRITE_ALWAYS" Then
ClassLoggerNI.LogEntry(" - Dennoch soll der Wert eingetragen werden")
_Logger.Debug("- Dennoch soll der Wert eingetragen werden")
Dim arrIndex() As String = Nothing
Dim arrValue() As String = Nothing
ReDim Preserve arrIndex(0)
@ -557,7 +569,7 @@ Public Class clsNI_WorkFile
arrIndex(0) = _Index
arrValue(0) = _NidxWert.ToString
_windream.RunIndexing(_WDFileINWORK, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
ClassLoggerNI.LogEntry(" - Der falsche OCR-Wert: '" & _NidxWert.ToString & "' wurde eingetragen", False, True)
_Logger.Debug("- Der falsche OCR-Wert: '" & _NidxWert.ToString & "' wurde eingetragen")
Return True
End If
'1. aktives Dok
@ -566,10 +578,10 @@ Public Class clsNI_WorkFile
If _filevalidation = True Then File_SetBooleanIndex(True, _dokxml, aktivesProfil.IndexValidation)
Return True
Case 1
ClassLoggerNI.LogEntry(" - Der deskriptive Indexwert " & _NidxWert & " verweist genau auf EINEN Eintrag in der Datenbank - Alles OK")
_Logger.Debug("- Der deskriptive Indexwert " & _NidxWert & " verweist genau auf EINEN Eintrag in der Datenbank - Alles OK")
Case 2
'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
ClassLoggerNI.LogEntry(" - Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!", False, True)
_Logger.Warn(" - Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!")
'1. aktives Dok
SetValidation()
'2. Indexierungs-Datei
@ -577,7 +589,7 @@ Public Class clsNI_WorkFile
Return True
Case 99
'Fehler in Überprüfung
ClassLoggerNI.LogEntry(" - Fehler in der Überprüfung des gelesenen Wertes - Markierung des Doks", False, True)
_Logger.Warn(" - Fehler in der Überprüfung des gelesenen Wertes - Markierung des Doks")
'Überprüfung ob Wert dennoch indexiert werden soll?!
'1. aktives Dok
SetValidation()
@ -588,25 +600,25 @@ Public Class clsNI_WorkFile
End If
Else
If aktivesProfil.Desk_windreamIndex = "" Then
ClassLoggerNI.LogEntry(" # ACHTUNG: der deskriptive Indexwert ist nicht hinterlegt! Dies kann zu Fehlern führen! #", False, True)
_Logger.Warn(" # ACHTUNG: der deskriptive Indexwert ist nicht hinterlegt! Dies kann zu Fehlern führen! #")
Else
If aktivesProfil.checkIndexsql = "" Then
ClassLoggerNI.LogEntry(" # ACHTUNG: Eine sql-Überprüfung des aus xml-gelesenen Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen! #", False, True)
_Logger.Warn(" # ACHTUNG: Eine sql-Überprüfung des aus xml-gelesenen Indexwertes ist nicht hinterlegt! Dies kann zu falsch-positiven Werten führen! #")
Else
If _NidxWert = "" Then
ClassLoggerNI.LogEntry(" # ACHTUNG: der gelesene Wert ist leer! Dies kann zu Fehlern führen! #", False, True)
_Logger.Warn(" # ACHTUNG: der gelesene Wert ist leer! Dies kann zu Fehlern führen! #")
End If
End If
End If
End If
Case "activedirectory"
ClassLoggerNI.LogEntry(" - Indexierung gegen ActiveDirectory")
_Logger.Debug("- Indexierung gegen ActiveDirectory")
_NidxWert = ClassActiveDirectory.GetAD_Attribut(selectArray(0), _Spalte, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password)
If _NidxWert = ">1" Then
ClassLoggerNI.LogEntry(" >> Es wurde mehr als 1 Wert ausgelesen! Entweder ist der Filter AD nicht eindeutig oder ein anderer error_in_Indexierung ist aufgetreten", False, True)
_Logger.Warn(" >> Es wurde mehr als 1 Wert ausgelesen! Entweder ist der Filter AD nicht eindeutig oder ein anderer error_in_Indexierung ist aufgetreten")
Else
ClassLoggerNI.LogEntry(" - Gelesener Attribut-Wert: " & _NidxWert)
_Logger.Warn(" - Gelesener Attribut-Wert: " & _NidxWert)
End If
End Select
End If
@ -615,7 +627,7 @@ Public Class clsNI_WorkFile
Return False
Catch ex As Exception
ClassLoggerNI.LogEntry("ACHTUNG unvorhergesehener Fehler bei _WDFileINWORK: " & ex.Message, False, True)
_Logger.Error(ex)
Return True
End Try
@ -626,7 +638,7 @@ Public Class clsNI_WorkFile
Dim akt_Status As Boolean = CBool(_dok.GetVariableValue(_Indexname))
If akt_Status <> _value Then
'Validation muß angepasst werden
ClassLoggerNI.LogEntry(" - Validation/Error Index NOCH NICHT auf '" & _value.ToString & "' gesetzt")
_Logger.Debug("- Validation/Error Index NOCH NICHT auf '" & _value.ToString & "' gesetzt")
Dim arrIndex() As String = Nothing
Dim arrValue() As String = Nothing
'Nun die Datei indexieren
@ -639,7 +651,7 @@ Public Class clsNI_WorkFile
_windream.RunIndexing(_dok, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
Else
'Index muß nicht angepasst werden
ClassLoggerNI.LogEntry(" - Validation Index bereits auf '" & _value & "' gesetzt")
_Logger.Debug("- Validation Index bereits auf '" & _value & "' gesetzt")
End If
End Sub
Private Shared Sub Indexiere_ErrorIndex(ByVal _error As String, ByVal _dok As WINDREAMLib.WMObject, ByVal _Indexname As String)
@ -648,7 +660,7 @@ Public Class clsNI_WorkFile
Dim akt_Status As String = CStr(_dok.GetVariableValue(_Indexname))
If akt_Status <> _error Then
'Error muß angepasst werden
ClassLoggerNI.LogEntry(" - Fehler Index NOCH NICHT auf '" & _error & "' gesetzt")
_Logger.Debug("- current Errrormsg <>")
Dim arrIndex() As String = Nothing
Dim arrValue() As String = Nothing
'Nun die Datei indexieren
@ -661,13 +673,14 @@ Public Class clsNI_WorkFile
_windream.RunIndexing(_dok, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
Else
'Validation muß nicht angepasst werden
ClassLoggerNI.LogEntry(" - Fehler Index bereits auf '" & _error & "' gesetzt")
_Logger.Debug("- current Errormsg already = '" & _error & "'")
End If
Catch ex As Exception
If ex.Message.Contains("Variable: Error not found") Then
ClassLoggerNI.LogEntry("ACHTUNG Fehler bei SetErrorMeldung - Der 'Error'-Index existiert nicht: " & ex.Message, False, True)
_Logger.Warn("ACHTUNG Fehler bei SetErrorMeldung - Der 'Error'-Index existiert nicht: " & ex.Message)
Else
ClassLoggerNI.LogEntry("ACHTUNG unvorhergesehener Fehler bei SetErrorMeldung: " & ex.Message, False, True)
_Logger.Warn("ACHTUNG unvorhergesehener Fehler bei SetErrorMeldung: " & ex.Message)
End If
End Try

325
ToolCollection/frmDIHauptseite.vb
View File

@ -6,7 +6,7 @@ Imports System.Collections.ObjectModel
Imports System.Net.Mail
Imports System.ServiceProcess
Imports WINDREAMLib
Imports DigitalData.Modules.Logging
#End Region
Public Class frmDIHauptseite
Dim Formloaded As Boolean = False
@ -14,9 +14,10 @@ Public Class frmDIHauptseite
Private _running As Boolean = False
Dim In_Use As Boolean
Private email As New ClassDI_Email
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As ClassWindream_allgemein
Public Shared _Link2NavDokumentart, _Link2NavIndexwert As String
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _MyLogger As LogConfig
Public Shared Function Instance() As frmDIHauptseite
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmDIHauptseite
@ -31,11 +32,12 @@ Public Class frmDIHauptseite
Try
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
Me.threadDateiimport = New BackgroundWorker()
Me.threadDateiimport.WorkerReportsProgress = True
Me.threadDateiimport.WorkerSupportsCancellation = True
_windream = New ClassWindream_allgemein(_MyLogger)
AddHandler threadDateiimport.DoWork, AddressOf threadDateiimport_DoWork
AddHandler threadDateiimport.RunWorkerCompleted, AddressOf threadDateiimport_RunWorkerCompleted
AddHandler threadDateiimport.ProgressChanged, AddressOf threadDateiimport_ProgressChanged
@ -331,6 +333,8 @@ Public Class frmDIHauptseite
Next
End If
End If
Else
ClassLoggerDI.Add(" windream could not be initialized...", True)
End If
'###
Catch ex As Exception
@ -354,6 +358,7 @@ Public Class frmDIHauptseite
End Sub
Public Function func_check_file_use(ByVal filename) As Boolean
filename = filename.Replace("W:", "\\windream\objects")
Dim fs As Integer = FreeFile()
Dim inuse As Boolean = False
If File.Exists(filename) Then
@ -974,7 +979,7 @@ Public Class frmDIHauptseite
' Erzeuge Object in windream; VERSUCHT DIE DATEI ZU ÖFFNEN
If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, targetPath.Substring(2) & "\" & Quelldatei.Name)
If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject = _windream.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, targetPath.Substring(2) & "\" & Quelldatei.Name)
@ -994,7 +999,7 @@ Public Class frmDIHauptseite
endgültigerDateiname = targetPath.Substring(2) & "\" & Quelldatei.Name.Substring(0, Quelldatei.Name.LastIndexOf(".")) & "_" & Now.ToString("yyyMMdd_HHmmss") & Quelldatei.Name.Substring(Quelldatei.Name.LastIndexOf("."))
' mit angehängtem Datum
If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject = _windream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject = _windream.oWMSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
' wenn ein Fehler auftritt -> Fehler ausgeben
'If Err.Number <> 0 Then MsgBox(targetPath.Substring(2) & "\" & Quelldatei.Name & vbNewLine & "(" & Err.Number & ") " & Err.Description, MsgBoxStyle.Exclamation, "Fehler beim Importieren der Datei (Datei existiert noch nicht)")
@ -1006,7 +1011,7 @@ Public Class frmDIHauptseite
' ohne angehängtem Datum
If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject = _windream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) 'WINDREAMLib.WMObjectEditMode.WMObjectEditModeObjectAndRights) 'WMObjectEditModeObject)
If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject = _windream.oWMSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) 'WINDREAMLib.WMObjectEditMode.WMObjectEditModeObjectAndRights) 'WMObjectEditModeObject)
' wenn ein Fehler auftritt -> Fehler ausgeben
'If Err.Number <> 0 Then MsgBox("(" & Err.Number & ") " & Err.Description, MsgBoxStyle.Critical, "Fehler beim Importieren der Datei (Datei existiert bereits)")
@ -1046,146 +1051,7 @@ Public Class frmDIHauptseite
End If
End Function
'Public Function DateiÜbertragen_Schleife(ByVal filenameQuelle As String, ByVal zielpfad As String)
' On Error Resume Next
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - DateiÜbertragen wurde gestartet", False)
' Dim fso As Scripting.FileSystemObject = CreateObject("Scripting.FileSystemObject")
' Dim endgültigerDateiname As String = ""
' Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
' ' Objekt für Datei und Zielverzeichnis anlegen
' Dim Quelldatei As Scripting.File = fso.GetFile(filenameQuelle)
' Dim targetPath As String = zielpfad & Quelldatei.ParentFolder.Path.Substring(Me.selectedProfile.OriginalQuellordner.Length) 'Me.txtQuellordner.Text.Length)
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Quelldatei erzeugt", False)
' '########Ordnerhierarchie erstellen
' If selectedProfile.Date_UV = True Then
' anpassen()
' Dim Month As String = My.Computer.Clock.LocalTime.Month
' If Month.Length = 1 Then
' Month = "0" & Month
' End If
' Dim Day As String = My.Computer.Clock.LocalTime.Day
' If Day.Length = 1 Then
' Day = "0" & Day
' End If
' My.Computer.FileSystem.CreateDirectory(targetPath & "\" & My.Computer.Clock.LocalTime.Year)
' My.Computer.FileSystem.CreateDirectory(targetPath & "\" & My.Computer.Clock.LocalTime.Year & "\" & Month)
' My.Computer.FileSystem.CreateDirectory(targetPath & "\" & My.Computer.Clock.LocalTime.Year & "\" & Month & "\" & Day)
' targetPath = targetPath & "\" & My.Computer.Clock.LocalTime.Year & "\" & Month & "\" & Day
' End If
' '########
' ' das Verzeichnis wurde angelegt -> Objekt kann also geleert werden
' WMObject = Nothing
' ' My.Computer.FileSystem.CreateDirectory(targetPath)
' Dim Zielverzeichnis As Scripting.Folder = fso.GetFolder(targetPath)
' 'MsgBox(filenameQuelle & vbNewLine & Me.GetDateinameZielAusQuelle(filenameQuelle) & vbNewLine & My.Computer.FileSystem.FileExists(ZielDateiname))
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Zielverzeichnis erzeugt", False)
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei kopieren von " & filenameQuelle & " nach " & targetPath.Substring(2) & "\" & Quelldatei.Name & ".", False)
' If My.Computer.FileSystem.DirectoryExists(targetPath) Then
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - targetPath exisitiert", False)
' ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
' If Zielverzeichnis.Drive.FreeSpace < Quelldatei.Size Then
' MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz")
' Return -10
' End If
' Dim oWMFileIO = CreateObject("WMOTOOLLib.WMFileIO") 'As New WMOTOOLLib.WMFileIO '
' ' Erzeuge Object in windream; VERSUCHT DIE DATEI ZU ÖFFNEN
' If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, targetPath.Substring(2) & "\" & Quelldatei.Name)
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - ÜBERPRÜFTER DATEINAME => " & targetPath.Substring(2) & "\" & Quelldatei.Name, False)
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
' 'If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject.lock()
' ' wenn die Datei nicht geladen werden konnte, existiert sie nicht -> kann also ohne Erweiterung angelegt werden
' If WMObject IsNot Nothing Then
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - WMObject zugewiesen", False)
' ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN - neuer Dateiname ist " & Quelldatei.Name.Substring(0, Quelldatei.Name.LastIndexOf(".")) & "_" & Now.ToString("yyyMMdd_HHmmss") & Quelldatei.Name.Substring(Quelldatei.Name.LastIndexOf(".")), False)
' Err.Clear()
' '### Automatische Versionierung mit ~(Tilde) ###
' Dim version As Integer = 2
' Dim extension As String = Quelldatei.Name.Substring(Quelldatei.Name.LastIndexOf("."))
' Dim Stammname As String = targetPath.Substring(2) & "\" & Quelldatei.Name.Substring(0, Quelldatei.Name.LastIndexOf("."))
' Dim neuername As String = targetPath.Substring(2) & "\" & Quelldatei.Name.Substring(0, Quelldatei.Name.LastIndexOf("."))
' Do While file_exists("My.Settings.vWLaufwerk" & ":\" & neuername & extension) = True
' ClassLoggerDI.Add(" Datei " & endgültigerDateiname & " ist vorhanden!", False)
' neuername = Stammname & "~" & version
' endgültigerDateiname = neuername & extension
' version = version + 1
' Loop
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" Datei " & endgültigerDateiname & " wird angelegt!", False)
' 'endgültigerDateiname = targetPath.Substring(2) & "\" & Quelldatei.Name.Substring(0, Quelldatei.Name.LastIndexOf(".")) & "(" & 1 & Now.ToString("yyyMMdd_HHmmss") & Quelldatei.Name.Substring(Quelldatei.Name.LastIndexOf("."))
' ' MsgBox(endgültigerDateiname)
' ' mit angehängtem Datum
' If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject = _windream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
' ' wenn ein Fehler auftritt -> Fehler ausgeben
' 'If Err.Number <> 0 Then MsgBox(targetPath.Substring(2) & "\" & Quelldatei.Name & vbNewLine & "(" & Err.Number & ") " & Err.Description, MsgBoxStyle.Exclamation, "Fehler beim Importieren der Datei (Datei existiert noch nicht)")
' Else
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - WMObject Nothing - Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
' Err.Clear()
' endgültigerDateiname = targetPath.Substring(2) & "\" & Quelldatei.Name
' ' ohne angehängtem Datum
' If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject = _windream.oSession.GetNewWMObjectFS(WINDREAMLib.WMEntity.WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) 'WINDREAMLib.WMObjectEditMode.WMObjectEditModeObjectAndRights) 'WMObjectEditModeObject)
' ' wenn ein Fehler auftritt -> Fehler ausgeben
' 'If Err.Number <> 0 Then MsgBox("(" & Err.Number & ") " & Err.Description, MsgBoxStyle.Critical, "Fehler beim Importieren der Datei (Datei existiert bereits)")
' End If
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False)
' If WMObject IsNot Nothing Then
' ' Stream Interface bereitstellen
' Dim oWMStream = WMObject.OpenStream("BinaryObject", WMObjectStreamOpenModeReadWrite)
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - oWMStream erzeugt", False)
' ' den Dateiinhalt der neuen Datei zuweisen
' If ÜBERTRAGUNG_DURCHFÜHREN Then oWMFileIO.aWMStream = oWMStream
' ' Zugriff auf Filesystem über WMFileIO, setzten des Dateinamens
' If ÜBERTRAGUNG_DURCHFÜHREN Then oWMFileIO.bstrOriginalFileName = Quelldatei.Path
' If ÜBERTRAGUNG_DURCHFÜHREN Then oWMFileIO.ImportOriginal(True)
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Inhalt der Datei konnte übertragen werden", False)
' If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject.Save()
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei konnte gespeichert werden", False)
' If ÜBERTRAGUNG_DURCHFÜHREN Then WMObject.unlock()
' 'Console.WriteLine("Datei konnte entsperrt werden")
' Me.DateiIndexieren(filenameQuelle, endgültigerDateiname)
' Dim p As String
' If endgültigerDateiname.StartsWith("\") Then
' If endgültigerDateiname.StartsWith("\\") Then
' p = endgültigerDateiname.Replace("\\", "\")
' Else
' p = endgültigerDateiname
' End If
' Else
' p = "\" & endgültigerDateiname
' End If
' _DateiinWindream = My.Settings.vWLaufwerk & ":" & p
' Return (True)
' Else
' Return False
' End If
' Else
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - targetPath exisitiert NICHT", False)
' Return False
' End If
'End Function
Public Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String)
Dim _Step As String = "0"
Try
@ -1264,48 +1130,25 @@ Public Class frmDIHauptseite
Return -10
End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei kopieren von " & filenameQuelle & " nach " & zielpfad.Substring(2) & "\" & Quelldatei_Name & ".", False)
Dim Connect
Dim Session
Dim WMObject
Dim aFileIO
Dim aWMStream
Dim wmbrwsr
Dim dmsServer As String
Dim oWMObject
Dim oFileIO
Dim oWMStream
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Connect definieren: CreateObject('Windream.WMConnect')", False)
Connect = CreateObject("Windream.WMConnect")
If My.Settings.DLL_WMOTOOL = "" Then
aFileIO = New WMOTOOLLib.WMFileIO
oFileIO = New WMOTOOLLib.WMFileIO
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Direkter Verweis auf New WMOTOOLLib.WMFileIO", False)
Else
aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO
oFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False)
End If
wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
'==================================================================
' get the current DMS-server to log in
'==================================================================
dmsServer = wmbrwsr.GetCurrentServer
'==================================================================
' create a session
'==================================================================
Session = CreateObject("Windream.WMSession", dmsServer)
'==================================================================
' login session
'==================================================================
Connect.LoginSession(Session)
Dim LoggedIn = Session.aLoggedin
If LoggedIn Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False)
'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'")
Else
Dim LoggedIn = _windream.oWMSession.aLoggedin
If LoggedIn = False Then
ClassLoggerDI.Add(" - Login on dms-Server failed", False)
' MsgBox("Login failed. ")
End If
Const WMCOMEventWMSessionNeedIndex = 1
'windream Objekte erstellen ohne Indexierungs-Event
Session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
'==================================================================
' check if files exist
'==================================================================
@ -1314,7 +1157,7 @@ Public Class frmDIHauptseite
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
_Step = "3"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
wdFilexists = Session.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0)
wdFilexists = _windream.oWMSession.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0)
If wdFilexists = False Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
@ -1324,7 +1167,7 @@ Public Class frmDIHauptseite
'==================================================================
_Step = "3.1"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
oWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description)
@ -1350,7 +1193,7 @@ Public Class frmDIHauptseite
Loop
_Step = "3.1.2"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
oWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description)
@ -1360,16 +1203,16 @@ Public Class frmDIHauptseite
_Step = "3.2"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False)
If WMObject IsNot Nothing Then
If oWMObject IsNot Nothing Then
' lock object for file system access (to change the file itself)
WMObject.lock()
oWMObject.lock()
' set fileIO the local source file
aFileIO.bstrOriginalFileName = filenameQuelle
oFileIO.bstrOriginalFileName = filenameQuelle
If Err.Number > 0 Then
'MsgBox(Err.Number.ToString)
ClassLoggerDI.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
ClassLoggerDI.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False)
WMObject.Unlock()
oWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number
' MsgBox(Err.Description)
@ -1377,10 +1220,10 @@ Public Class frmDIHauptseite
_Step = "3.3"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
' open the windream object's file stream for writing
aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite)
oWMStream = oWMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite)
If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
oWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number
'MsgBox(Err.Description)
@ -1389,19 +1232,19 @@ Public Class frmDIHauptseite
' give fileIO helper object the windream stream
_Step = "3.4"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
aFileIO.aWMStream = aWMStream
oFileIO.aWMStream = oWMStream
If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
oWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number
'MsgBox(Err.Description)
End If
' let fileIO object import the original file into windream
aFileIO.ImportOriginal(True)
oFileIO.ImportOriginal(True)
If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
oWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number
' MsgBox(Err.Description)
@ -1410,19 +1253,19 @@ Public Class frmDIHauptseite
' close the windream file stream
_Step = "3.5"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
aWMStream.Close()
oWMStream.Close()
If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
oWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number
'MsgBox(Err.Description)
End If
' save new windream object
WMObject.save()
oWMObject.save()
If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
oWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number
'MsgBox(Err.Description)
@ -1431,10 +1274,10 @@ Public Class frmDIHauptseite
' unlock the windream object
_Step = "3.6"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
WMObject.unlock()
oWMObject.unlock()
If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
WMObject.Unlock()
oWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number
'MsgBox(Err.Description)
@ -1451,7 +1294,7 @@ Public Class frmDIHauptseite
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
If Me.DateiIndexieren(filenameQuelle, endgültigerDateiname) = False Then
Try
WMObject.Unlock()
oWMObject.Unlock()
Catch ex As Exception
End Try
@ -1474,7 +1317,7 @@ Public Class frmDIHauptseite
p = "\" & endgültigerDateiname
End If
DI_STREAMRESULTFILE = My.Settings.vWLaufwerk & ":" & p
ClassLoggerDI.Add(" - Datei '" & DI_STREAMRESULTFILE & "' wurde erfolgreich nach windream importiert!", False)
ClassLoggerDI.Add(Now.ToShortTimeString & " >> Datei '" & DI_STREAMRESULTFILE & "' wurde erfolgreich nach windream importiert!", False)
Return True
Else
_Step = "5"
@ -1500,65 +1343,11 @@ Public Class frmDIHauptseite
End Function
'Public Function GetValueforIndex(ByVal _fullfilepath As String, _indexname As String)
' 'Try
' Dim Connect
' Dim Session
' Dim aFileIO
' Dim wmbrwsr
' Dim dmsServer As String
' Connect = CreateObject("Windream.WMConnect")
' aFileIO = CreateObject("WMOTool.WMFileIO")
' wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
' '==================================================================
' ' get the current DMS-server to log in
' '==================================================================
' dmsServer = wmbrwsr.GetCurrentServer
' '==================================================================
' ' create a session
' '==================================================================
' Session = CreateObject("Windream.WMSession", dmsServer)
' '==================================================================
' ' login session
' '==================================================================
' Connect.LoginSession(Session)
' Dim LoggedIn = Session.aLoggedin
' If LoggedIn Then
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Logged in", False)
' Const WMCOMEventWMSessionNeedIndex = 1
' 'windream Objekte erstellen ohne Index Event
' Session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
' Const WMEntityDocument = 1
' Dim IndexwertAusWindream As Object = Nothing
' Dim _dok As WINDREAMLib.WMObject
' _dok = Nothing
' _dok = Session.GetWMObjectByPath(WMEntityDocument, _fullfilepath) 'WINDREAMLib.WMEntity.WMEntityDocument
' If _dok IsNot Nothing Then
' IndexwertAusWindream = _dok.GetVariableValue(_indexname)
' If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" zurückgelieferter Indexwert: " & IndexwertAusWindream, False)
' Return IndexwertAusWindream.ToString
' Else
' ClassLoggerDI.Add(" ACHTUNG: WMObject konnte nicht erzeugt werden", False)
' Return Nothing
' End If
' Else
' ClassLoggerDI.Add(" - Log in failed", False)
' Return Nothing
' End If
' 'Catch ex As Exception
' ' ClassLoggerDI.Add(" FEHLER IN GetValueforIndex: " & ex.Message, False)
' ' Return Nothing
' 'End Try
'End Function
Private Function file_exists(ByVal _file As String)
Try
_file = _file.Replace("W:", "\\windream\objects")
If System.IO.File.Exists(_file) Then
Return True
Else
@ -1634,7 +1423,7 @@ Public Class frmDIHauptseite
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" ## Indexieren wird gestartet ##", False)
Try
' ein windream-Objekt der Datei anlegen
WMObject = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
WMObject = _windream.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
Catch ex As Exception
ClassLoggerDI.Add("Could not create windreamobject for filestring: " & filenameZiel, True)
ClassLoggerDI.Add("Error: " & ex.Message, False)
@ -1653,7 +1442,7 @@ Public Class frmDIHauptseite
If WMObject.aObjectType.aName = "Standard" Then
Dim profil As ClassDIProfil = Me.selectedProfile
' ihr den entsprechenden Dokumenttyp zuweisen
WMObject.aObjectType = _windream.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Me.selectedProfile.DokumenttypString)
WMObject.aObjectType = _windream.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Me.selectedProfile.DokumenttypString)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Objekttyp wird gesetzt", False)
@ -1881,10 +1670,10 @@ Public Class frmDIHauptseite
Dim indexBeschreibung As String = ""
'werte Is Nothing Or _
' überprüfen ob alle notwendigen Informationen angegeben wurden (sonst abbrechen)
If filenameZiel Is Nothing Or _
filenameZiel = "" Or _
index Is Nothing Or _
index = "" Or _
If filenameZiel Is Nothing Or
filenameZiel = "" Or
index Is Nothing Or
index = "" Or
Not _windream.ExistIndexInObjekttyp(Me.selectedProfile.DokumenttypString, index) Then
indexInfos.Add("Hinweis: Die Datei wurde auf Grund eines Problems in der Initialisierung nicht vollständig indexiert.")
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add("=> Hinweis: Die Datei wurde auf Grund eines Problems in der Initialisierung nicht vollständig indexiert.", False)
@ -1911,7 +1700,7 @@ Public Class frmDIHauptseite
Loop
' wenn die Datei existiert
If fileExists Then
If INDEXIEREN_DURCHFÜHREN Then WMObject = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
If INDEXIEREN_DURCHFÜHREN Then WMObject = _windream.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
' eine Variable für den umgewandelten Indexwert anlegen (kein Typ, da noch unklar ist was reingeschrieben wird)
Dim convertValue = Nothing
@ -1922,7 +1711,7 @@ Public Class frmDIHauptseite
Try
If INDEXIEREN_DURCHFÜHREN Then
' ein windream-Objekt der Datei anlegen
WMObject = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
WMObject = _windream.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel)
If My.Settings.vLogErrorsonly = False Then
ClassLoggerDI.Add(" - windream-Objekt der Datei erzeugt", False)
ClassLoggerDI.Add(" - Ziel: W:\" & filenameZiel, False)
@ -1942,7 +1731,7 @@ Public Class frmDIHauptseite
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If WMObject.aObjectType.aName = "Standard" Then
' ihr den entsprechenden Dokumenttyp zuweisen
WMObject.aObjectType = _windream.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Me.selectedProfile.DokumenttypString)
WMObject.aObjectType = _windream.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Me.selectedProfile.DokumenttypString)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
End If
End If
@ -2469,10 +2258,10 @@ Public Class frmDIHauptseite
End If
If Me.selectedProfile.Dokumenttyp Is Nothing Then
MsgBox("Der Objekttyp, der dem Profil zugewiesen ist, scheint auf dem aktuellen windream-Server nicht zu existieren." & vbNewLine & _
"Bitte prüfen Sie das Profil auf Richtigkeit." & vbNewLine & vbNewLine & _
"Überprüfen Sie bitte ob der Objekttyp in den Profileinstellungen rot dargestellt ist. Ist dies der" & vbNewLine & _
"Fall, dann existiert der Objekttyp nicht und das Profil kann auf dem windream-Server, an dem Sie" & vbNewLine & _
MsgBox("Der Objekttyp, der dem Profil zugewiesen ist, scheint auf dem aktuellen windream-Server nicht zu existieren." & vbNewLine &
"Bitte prüfen Sie das Profil auf Richtigkeit." & vbNewLine & vbNewLine &
"Überprüfen Sie bitte ob der Objekttyp in den Profileinstellungen rot dargestellt ist. Ist dies der" & vbNewLine &
"Fall, dann existiert der Objekttyp nicht und das Profil kann auf dem windream-Server, an dem Sie" & vbNewLine &
"gerade angemeldet sind, nicht benutzt werden.", MsgBoxStyle.Exclamation, "Profil mit ungültigem Objekttyp")
Alles_OK = False
Exit Sub
@ -2481,7 +2270,7 @@ Public Class frmDIHauptseite
Dim zielVerzeichnisCheck As WINDREAMLib.WMObject = Nothing
Try
zielVerzeichnisCheck = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityFolder, Me.txtZielordner.Text.Substring(2))
zielVerzeichnisCheck = _windream.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityFolder, Me.txtZielordner.Text.Substring(2))
Catch ex As Exception
End Try

2
ToolCollection/frmDIProfilEigenschaften.vb
View File

@ -11,7 +11,7 @@ Public Class frmDIProfilEigenschaften
Dim arrProfile(1, 1) As Object
Dim Prof_Anzahl As Integer
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Private Shared _Instance As frmDIProfilEigenschaften = Nothing
Public Shared Function Instance() As frmDIProfilEigenschaften

4
ToolCollection/frmDIProfilHinzufuegen.vb
View File

@ -1,7 +1,7 @@
Public Class frmDIProfilHinzufuegen
Public oSession
Protected _windream As New ClassWindream_allgemein
Protected _windream As New ClassWindream_allgemein(CURR_MyLogger)
' Private _parentClass As ClassDateiimport = ClassDateiimport.GetInstance
Private Sub frmProfilHinzufügen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
@ -15,7 +15,7 @@
End Try
Try
Me.oSession = Me._windream.oSession
Me.oSession = Me._windream.oWMSession
Catch ex As Exception
MsgBox("Es konnte keine Verbindung zum windream-Server aufgebaut werden, da er nicht erreichbar war." & vbNewLine & "Bitte wenden Sie sich an ihren windream-Administrator.", MsgBoxStyle.Critical, "windream-Server nicht erreichbar")
End Try

2
ToolCollection/frmDIRegelAssistent.vb
View File

@ -28,7 +28,7 @@ Public Class frmDIRegelAssistent
Private _trennzeichen_temp As String = " "
Private _value As String = ""
Private _indexe As String()
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Private _datumFormat As String = ""
Private _removeZeros As Boolean = False
#End Region

2
ToolCollection/frmDIRegelverwaltung.vb
View File

@ -2,7 +2,7 @@
Private profilname As String
Private selectedProfil As ClassDIProfil
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Public _regeln As ClassDIRegeln

2
ToolCollection/frmMIParameterHinzufügen.vb
View File

@ -1,6 +1,6 @@
Public Class frmMIParameterHinzufügen
Public selectedProfil As ClassMI_Profil
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Private Sub frmParameterHinzufügen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Me.selectedProfil.DokumenttypString = "" Then

4
ToolCollection/frmMIProfileigenschaften.vb
View File

@ -2,7 +2,7 @@
' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
Private _selectedProfile As ClassMI_Profil
Dim Formloaded As Boolean = False
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Private Shared _Instance As frmMIProfileigenschaften = Nothing
Public Shared Function Instance() As frmMIProfileigenschaften
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
@ -283,7 +283,7 @@
Me._selectedProfile = ClassMI_Profile.getProfilByName(Me.txtProfilname.Text)
Me._selectedProfile.Profilname = Me.txtProfilname.Text
Me._selectedProfile.Dokumenttyp = _windream.GetObjecttypeByName(Me.cmbObjekttyp.SelectedItem)
Me._selectedProfile.Dokumenttyp = _windream.GetObjecttypeByName(Me.cmbObjekttyp.SelectedItem, False)
Me._selectedProfile.Servername = Me.txtServername.Text
Me._selectedProfile.WdfSuche = Me.txtWdfSuche.Text
Me._selectedProfile.ZeigeSuchmaske = Me.chkSuchmaskeZeigen.Checked

4
ToolCollection/frmMI_Profilhinzufuegen.vb
View File

@ -2,7 +2,7 @@
Imports Scripting
Public Class frmMI_Profilhinzufuegen
Public oSession
Protected _windream As New ClassWindream_allgemein
Protected _windream As New ClassWindream_allgemein(CURR_MyLogger)
'Public oSession
'Public oConnect
'Public oBrowser As New WMOBRWSLib.ServerBrowser
@ -35,7 +35,7 @@ Public Class frmMI_Profilhinzufuegen
Try
Me.oSession = Me._windream.oSession
Me.oSession = Me._windream.oWMSession
Catch ex As Exception
MsgBox("Es konnte keine Verbindung zum windream-Server aufgebaut werden, da er nicht erreichbar war." & vbNewLine & "Bitte wenden Sie sich an ihren windream-Administrator.", MsgBoxStyle.Critical, "windream-Server nicht erreichbar")
End Try

88
ToolCollection/frmMORE_Verwaltung.Designer.vb generated
View File

@ -118,9 +118,6 @@ Partial Class frmMORE_Verwaltung
Me.cmbDokumentart = New System.Windows.Forms.ComboBox()
Me.WH_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TableAdapterManager = New ToolCollection.DS_MoreTableAdapters.TableAdapterManager()
Me.TBMO_RE_DOKART_KUNDETableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_DOKART_KUNDETableAdapter()
@ -132,6 +129,11 @@ Partial Class frmMORE_Verwaltung
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
Me.WHMO_RE_DOKARTTableAdapter = New ToolCollection.DS_MoreTableAdapters.WHMO_RE_DOKARTTableAdapter()
Me.TBMO_RE_DOKARTTableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_DOKARTTableAdapter()
Me.GUID = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button2 = New System.Windows.Forms.Button()
GUIDLabel1 = New System.Windows.Forms.Label()
KUNDEN_NAMELabel = New System.Windows.Forms.Label()
KUNDE_KURZLabel = New System.Windows.Forms.Label()
@ -360,6 +362,7 @@ Partial Class frmMORE_Verwaltung
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.AutoScroll = True
Me.SplitContainer1.Panel2.Controls.Add(Me.Button2)
Me.SplitContainer1.Panel2.Controls.Add(Label7)
Me.SplitContainer1.Panel2.Controls.Add(Me.txtIDX_UO3)
Me.SplitContainer1.Panel2.Controls.Add(Label6)
@ -701,7 +704,7 @@ Partial Class frmMORE_Verwaltung
Me.TBMO_RE_KUNDENDataGridView.Location = New System.Drawing.Point(14, 185)
Me.TBMO_RE_KUNDENDataGridView.Name = "TBMO_RE_KUNDENDataGridView"
Me.TBMO_RE_KUNDENDataGridView.ReadOnly = True
Me.TBMO_RE_KUNDENDataGridView.Size = New System.Drawing.Size(601, 176)
Me.TBMO_RE_KUNDENDataGridView.Size = New System.Drawing.Size(601, 175)
Me.TBMO_RE_KUNDENDataGridView.TabIndex = 16
'
'DataGridViewTextBoxColumn8
@ -996,7 +999,7 @@ Partial Class frmMORE_Verwaltung
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.Location = New System.Drawing.Point(457, 151)
Me.Button1.Location = New System.Drawing.Point(456, 151)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(36, 25)
Me.Button1.TabIndex = 4
@ -1009,7 +1012,7 @@ Partial Class frmMORE_Verwaltung
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtZielPfad.Location = New System.Drawing.Point(27, 152)
Me.txtZielPfad.Name = "txtZielPfad"
Me.txtZielPfad.Size = New System.Drawing.Size(424, 25)
Me.txtZielPfad.Size = New System.Drawing.Size(423, 25)
Me.txtZielPfad.TabIndex = 3
'
'cmbKunde
@ -1054,35 +1057,14 @@ Partial Class frmMORE_Verwaltung
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.AutoGenerateColumns = False
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5})
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.GUID, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5})
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.DataSource = Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Location = New System.Drawing.Point(3, 274)
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Name = "VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView"
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.ReadOnly = True
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Size = New System.Drawing.Size(509, 429)
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Size = New System.Drawing.Size(508, 429)
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.TabIndex = 0
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.DataPropertyName = "DOKUMENTART"
Me.DataGridViewTextBoxColumn2.HeaderText = "Dokumentart"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
Me.DataGridViewTextBoxColumn2.ReadOnly = True
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.DataPropertyName = "KUNDEN_NAME"
Me.DataGridViewTextBoxColumn4.HeaderText = "Kunde"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
Me.DataGridViewTextBoxColumn4.ReadOnly = True
'
'DataGridViewTextBoxColumn5
'
Me.DataGridViewTextBoxColumn5.DataPropertyName = "DOKUMENTARTORDNER"
Me.DataGridViewTextBoxColumn5.HeaderText = "Ordner"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
Me.DataGridViewTextBoxColumn5.ReadOnly = True
'
'VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource
'
Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource.DataMember = "VWMO_RE_DOKUMENTARTZUORDNUNG"
@ -1131,6 +1113,46 @@ Partial Class frmMORE_Verwaltung
'
Me.TBMO_RE_DOKARTTableAdapter.ClearBeforeFill = True
'
'GUID
'
Me.GUID.DataPropertyName = "GUID"
Me.GUID.HeaderText = "ID"
Me.GUID.Name = "GUID"
Me.GUID.ReadOnly = True
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.DataPropertyName = "DOKUMENTART"
Me.DataGridViewTextBoxColumn2.HeaderText = "Dokumentart"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
Me.DataGridViewTextBoxColumn2.ReadOnly = True
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.DataPropertyName = "KUNDEN_NAME"
Me.DataGridViewTextBoxColumn4.HeaderText = "Kunde"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
Me.DataGridViewTextBoxColumn4.ReadOnly = True
'
'DataGridViewTextBoxColumn5
'
Me.DataGridViewTextBoxColumn5.DataPropertyName = "DOKUMENTARTORDNER"
Me.DataGridViewTextBoxColumn5.HeaderText = "Ordner"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
Me.DataGridViewTextBoxColumn5.ReadOnly = True
'
'Button2
'
Me.Button2.Image = Global.ToolCollection.My.Resources.Resources.delete
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(354, 244)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(127, 23)
Me.Button2.TabIndex = 17
Me.Button2.Text = "Delete"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'frmMORE_Verwaltung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
@ -1232,9 +1254,6 @@ Partial Class frmMORE_Verwaltung
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents btnRefresh_WH As System.Windows.Forms.Button
Friend WithEvents WHMO_RE_DOKARTTableAdapter As ToolCollection.DS_MoreTableAdapters.WHMO_RE_DOKARTTableAdapter
Friend WithEvents TBMO_RE_DOKARTBindingSource As System.Windows.Forms.BindingSource
@ -1262,4 +1281,9 @@ Partial Class frmMORE_Verwaltung
Friend WithEvents txtIDX_UO1 As System.Windows.Forms.TextBox
Friend WithEvents txtIDX_UO3 As System.Windows.Forms.TextBox
Friend WithEvents txtIDX_UO2 As System.Windows.Forms.TextBox
Friend WithEvents Button2 As Button
Friend WithEvents GUID As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn
End Class

3
ToolCollection/frmMORE_Verwaltung.resx
View File

@ -300,6 +300,9 @@
<metadata name="WH_DOKUMENTARTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1284, 56</value>
</metadata>
<metadata name="GUID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>

12
ToolCollection/frmMORE_Verwaltung.vb
View File

@ -88,4 +88,16 @@
Private Sub TBMO_RE_DOKARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBMO_RE_DOKARTBindingSource.AddingNew
DS_More.TBMO_RE_DOKART.ERFASSTWERColumn.DefaultValue = Environment.UserName
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Dim GUID As String = VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Item("GUID", VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.CurrentRow.Index).Value
If IsNumeric(GUID) Then
VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter.cmdDeleteEntry(GUID)
VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter.Fill(Me.DS_More.VWMO_RE_DOKUMENTARTZUORDNUNG)
End If
Catch ex As Exception
End Try
End Sub
End Class

19
ToolCollection/frmNB_AD.vb
View File

@ -1,4 +1,5 @@
Public Class frmNB_AD
Imports DigitalData.Modules.Logging
Public Class frmNB_AD
' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
Private _selectedProfile As ClassNIProfil
Private Shared _Instance As frmNB_AD = Nothing
@ -7,7 +8,7 @@
Public Shared _Objekttyp As String
Dim _windreamRechte As New ClassWD_Rechte
Dim FormClose = False
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared Function Instance() As frmNB_AD
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmNB_AD
@ -26,7 +27,7 @@
End Sub
Private Sub frmNB_AD_Load(sender As Object, e As EventArgs) Handles Me.Load
ClassLoggerNI.Init(My.Application.Info.DirectoryPath & "\Log", My.Settings.vLogNI & "_", True)
_windreamRechte.Init()
' alle Profile in die Toolbar-Combobox eintragen
Me.LoadProfilesInCombobox()
@ -164,7 +165,7 @@
End Sub
Sub Load_Regeln()
Try
Dim DT As DataTable = ClassSQLITE.Return_Datatable("select GUID as ID,METHODE as Methode,Rechtename as Rechtename, " & _
Dim DT As DataTable = ClassSQLITE.Return_Datatable("select GUID as ID,METHODE as Methode,Rechtename as Rechtename, " &
"CASE ACCESS_RIGHT WHEN 1 THEN 'READ' WHEN 2 THEN 'READ WRITE' ELSE 'ADMIN' END Recht, ErstelltWer as [Erstellt wer] from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & _profilID, True)
If DT.Rows.Count > 0 Then
btndeleteRegel.Visible = True
@ -195,7 +196,7 @@
If DT.Rows.Count = 1 And chkbx_Loeschen.Checked Then
For Each row As DataRow In DT.Rows
If row.Item(3).ToString <> "ADMIN" Then
MsgBox("ACHTUNG:" & vbNewLine & "Diese Regel wird nicht funktionieren, da der erste Rechteträger - bei Löschen aller bestehenden Regeln - " & _
MsgBox("ACHTUNG:" & vbNewLine & "Diese Regel wird nicht funktionieren, da der erste Rechteträger - bei Löschen aller bestehenden Regeln - " &
"immer ein Rechteträger mit administrativen Rechten sein muss!", MsgBoxStyle.Critical)
End If
Next
@ -261,8 +262,8 @@
Else
loeschen = 0
End If
If ClassSQLITE.Execute_Command("INSERT INTO TBNI_NACHBEARBEITUNG_AD (NI_PROFILNAME,DEL_ALL_RIGHTS,Domain,Servername,Username,Password,ERSTELLTWER) VALUES (" & _
"'" & Me._selectedProfile.Profilname & "'," & loeschen & ",'" & txtDomäne.Text & "','" & txtServername.Text & "','" & _
If ClassSQLITE.Execute_Command("INSERT INTO TBNI_NACHBEARBEITUNG_AD (NI_PROFILNAME,DEL_ALL_RIGHTS,Domain,Servername,Username,Password,ERSTELLTWER) VALUES (" &
"'" & Me._selectedProfile.Profilname & "'," & loeschen & ",'" & txtDomäne.Text & "','" & txtServername.Text & "','" &
txtUser.Text & "','" & txtPW.Text & "','" & Environment.UserName & "')", True) = True Then
Lade_Profil(Me._selectedProfile.Profilname)
End If
@ -279,8 +280,8 @@
Else
loeschen = 0
End If
If ClassSQLITE.Execute_Command("UPDATE TBNI_NACHBEARBEITUNG_AD set Aktiv = " & Aktiv & ",DEL_ALL_RIGHTS = " & loeschen & _
", Domain = '" & txtDomäne.Text & "', Servername = '" & txtServername.Text & "', Username = '" & txtUser.Text & "', " & _
If ClassSQLITE.Execute_Command("UPDATE TBNI_NACHBEARBEITUNG_AD set Aktiv = " & Aktiv & ",DEL_ALL_RIGHTS = " & loeschen &
", Domain = '" & txtDomäne.Text & "', Servername = '" & txtServername.Text & "', Username = '" & txtUser.Text & "', " &
"Password = '" & txtPW.Text & "', GEAENDERTWER = '" & Environment.UserName & "' where GUID = " & txtID.Text, True) = True Then
Lade_Profil(Me._selectedProfile.Profilname)
MsgBox("Die Änderungen wurden erfolgreich gespeichert", MsgBoxStyle.Exclamation, "Erfolgsmeldung")

2
ToolCollection/frmNB_AD_add.vb
View File

@ -4,7 +4,7 @@
Dim Rechtename As String = ""
Dim deleteall As Boolean = False
Dim AccessRight As Integer
Private _windream As New ClassWindream_allgemein
Private _windream As New ClassWindream_allgemein(CURR_MyLogger)
Dim _windreamRechte As New ClassWD_Rechte
Dim countRegel As Integer
Dim _deleteRoles As Boolean = False

54
ToolCollection/frmNIHauptseite.Designer.vb generated
View File

@ -26,6 +26,7 @@ Partial Class frmNIHauptseite
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIHauptseite))
Me.tcmain = New System.Windows.Forms.TabControl()
Me.tpMain = New System.Windows.Forms.TabPage()
Me.lblNotWorking = New System.Windows.Forms.Label()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblStatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.Label1 = New System.Windows.Forms.Label()
@ -78,7 +79,6 @@ Partial Class frmNIHauptseite
Me.TBMO_RE_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBMO_RE_HISTORYTableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_HISTORYTableAdapter()
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.lblNotWorking = New System.Windows.Forms.Label()
Me.tcmain.SuspendLayout()
Me.tpMain.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
@ -102,7 +102,7 @@ Partial Class frmNIHauptseite
Me.tcmain.Location = New System.Drawing.Point(0, 0)
Me.tcmain.Name = "tcmain"
Me.tcmain.SelectedIndex = 0
Me.tcmain.Size = New System.Drawing.Size(728, 484)
Me.tcmain.Size = New System.Drawing.Size(774, 547)
Me.tcmain.TabIndex = 46
'
'tpMain
@ -126,17 +126,29 @@ Partial Class frmNIHauptseite
Me.tpMain.Location = New System.Drawing.Point(4, 22)
Me.tpMain.Name = "tpMain"
Me.tpMain.Padding = New System.Windows.Forms.Padding(3)
Me.tpMain.Size = New System.Drawing.Size(720, 458)
Me.tpMain.Size = New System.Drawing.Size(766, 521)
Me.tpMain.TabIndex = 0
Me.tpMain.Text = "Hauptseite"
Me.tpMain.UseVisualStyleBackColor = True
'
'lblNotWorking
'
Me.lblNotWorking.AutoSize = True
Me.lblNotWorking.BackColor = System.Drawing.Color.Yellow
Me.lblNotWorking.Font = New System.Drawing.Font("Segoe UI", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblNotWorking.Location = New System.Drawing.Point(54, 192)
Me.lblNotWorking.Name = "lblNotWorking"
Me.lblNotWorking.Size = New System.Drawing.Size(67, 21)
Me.lblNotWorking.TabIndex = 46
Me.lblNotWorking.Text = "Label18"
Me.lblNotWorking.Visible = False
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblStatus})
Me.StatusStrip1.Location = New System.Drawing.Point(3, 433)
Me.StatusStrip1.Location = New System.Drawing.Point(3, 496)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(714, 22)
Me.StatusStrip1.Size = New System.Drawing.Size(760, 22)
Me.StatusStrip1.TabIndex = 45
Me.StatusStrip1.Text = "StatusStrip1"
'
@ -166,16 +178,20 @@ Partial Class frmNIHauptseite
'
'ProgressBar1
'
Me.ProgressBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ProgressBar1.Location = New System.Drawing.Point(11, 304)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(697, 33)
Me.ProgressBar1.Size = New System.Drawing.Size(747, 33)
Me.ProgressBar1.TabIndex = 25
'
'ProgressBar2
'
Me.ProgressBar2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ProgressBar2.Location = New System.Drawing.Point(11, 344)
Me.ProgressBar2.Name = "ProgressBar2"
Me.ProgressBar2.Size = New System.Drawing.Size(697, 23)
Me.ProgressBar2.Size = New System.Drawing.Size(747, 23)
Me.ProgressBar2.TabIndex = 43
'
'Label2
@ -232,9 +248,9 @@ Partial Class frmNIHauptseite
Me.pnlInfos.Controls.Add(Me.lblDateiTitel)
Me.pnlInfos.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.pnlInfos.ForeColor = System.Drawing.Color.White
Me.pnlInfos.Location = New System.Drawing.Point(150, 167)
Me.pnlInfos.Location = New System.Drawing.Point(112, 167)
Me.pnlInfos.Name = "pnlInfos"
Me.pnlInfos.Size = New System.Drawing.Size(395, 114)
Me.pnlInfos.Size = New System.Drawing.Size(596, 114)
Me.pnlInfos.TabIndex = 36
Me.pnlInfos.Visible = False
'
@ -344,7 +360,7 @@ Partial Class frmNIHauptseite
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(720, 458)
Me.TabPage2.Size = New System.Drawing.Size(766, 521)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Konfigurationen"
Me.TabPage2.UseVisualStyleBackColor = True
@ -372,7 +388,7 @@ Partial Class frmNIHauptseite
Me.gbEmail.Enabled = False
Me.gbEmail.Location = New System.Drawing.Point(3, 44)
Me.gbEmail.Name = "gbEmail"
Me.gbEmail.Size = New System.Drawing.Size(714, 411)
Me.gbEmail.Size = New System.Drawing.Size(760, 474)
Me.gbEmail.TabIndex = 2
Me.gbEmail.TabStop = False
Me.gbEmail.Text = "E-Mail Konfiguration"
@ -541,7 +557,7 @@ Partial Class frmNIHauptseite
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(714, 41)
Me.GroupBox3.Size = New System.Drawing.Size(760, 41)
Me.GroupBox3.TabIndex = 1
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Allgemeine Einstellungen:"
@ -613,23 +629,11 @@ Partial Class frmNIHauptseite
'
Me.TimerRefresh.Interval = 10000
'
'lblNotWorking
'
Me.lblNotWorking.AutoSize = True
Me.lblNotWorking.BackColor = System.Drawing.Color.Yellow
Me.lblNotWorking.Font = New System.Drawing.Font("Segoe UI", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblNotWorking.Location = New System.Drawing.Point(108, 192)
Me.lblNotWorking.Name = "lblNotWorking"
Me.lblNotWorking.Size = New System.Drawing.Size(67, 21)
Me.lblNotWorking.TabIndex = 46
Me.lblNotWorking.Text = "Label18"
Me.lblNotWorking.Visible = False
'
'frmNIHauptseite
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(728, 484)
Me.ClientSize = New System.Drawing.Size(774, 547)
Me.Controls.Add(Me.tcmain)
Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIHauptseite_Loc", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

887
ToolCollection/frmNIHauptseite.vb
View File

File diff suppressed because it is too large Load Diff

2
ToolCollection/frmNIProfileigenschaften.Designer.vb generated
View File

@ -460,7 +460,7 @@ Partial Class frmNIProfileigenschaften
Me.cmbDbArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbDbArt.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbDbArt.FormattingEnabled = True
Me.cmbDbArt.Items.AddRange(New Object() {"MS-SQL", "ODBC", "OLE (Access)", "Oracle"})
Me.cmbDbArt.Items.AddRange(New Object() {"MS-SQL", "ODBC", "OLE (Access)", "Oracle", "Firebird"})
Me.cmbDbArt.Location = New System.Drawing.Point(113, 20)
Me.cmbDbArt.Name = "cmbDbArt"
Me.cmbDbArt.Size = New System.Drawing.Size(129, 21)

2
ToolCollection/frmNIProfileigenschaften.resx
View File

@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
CQAAAk1TRnQBSQFMAgEBAgEAAWABAAFgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CQAAAk1TRnQBSQFMAgEBAgEAAWgBAAFoAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

9
ToolCollection/frmNIProfileigenschaften.vb
View File

@ -1,7 +1,10 @@
Imports System.IO
Imports Oracle.ManagedDataAccess.Client
Imports DigitalData.Modules.Logging
Public Class frmNIProfileigenschaften
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As ClassWindream_allgemein
Private _MyLogger As LogConfig
Private Shared _Logger As DigitalData.Modules.Logging.Logger
' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
Private _selectedProfile As ClassNIProfil
Dim _pos As Integer
@ -27,7 +30,9 @@ Public Class frmNIProfileigenschaften
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
_windream = New ClassWindream_allgemein(_MyLogger)
' alle Profile in die Toolbar-Combobox eintragen
Me.LoadProfilesInCombobox()
Try

16
ToolCollection/frmNIProfilhinzufuegen.vb
View File

@ -1,7 +1,7 @@
Imports Oracle.ManagedDataAccess.Client
Public Class frmNIProfilhinzufuegen
Private _oDokumentTypen As WINDREAMLib.WMObjects
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As New ClassWindream_allgemein(CURR_MyLogger)
Private Shared _Instance As frmNIProfilhinzufuegen = Nothing
Private licenseManager As ClassLicenseManager = Nothing
@ -46,7 +46,7 @@ Public Class frmNIProfilhinzufuegen
initialCatalog = Me.txtInitialCatalog.Text
End If
' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem) IsNot Nothing Then
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem, True) IsNot Nothing Then
If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
@ -55,22 +55,22 @@ Public Class frmNIProfilhinzufuegen
If Me.txtPassword.Text <> "" Then
' das Profil hinzufügen
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "",
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Me.txtUserId.Text, Me.txtPassword.Text, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
Else
' das Profil hinzufügen mit WIN-AUTHENTIFIZIERUNG
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "",
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Me.txtUserId.Text, "", initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
End If
Else
If Me.CheckBoxwin_aut.Visible = True And Me.CheckBoxwin_aut.Checked Then
' das Profil hinzufügen - Windows Authentifizierung
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "",
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, "WINAUTH", Nothing, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
Else
' das Profil hinzufügen
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "",
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Nothing, Nothing, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
End If
@ -99,7 +99,7 @@ Public Class frmNIProfilhinzufuegen
Me.cmbEndung_xml.SelectedIndex <> -1 Then
If Me.rbxls.Checked Or Me.rbxml.Checked Then
' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem) IsNot Nothing Then
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem, True) IsNot Nothing Then
If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
Dim _Typ As String
If Me.rbxml.Checked Then
@ -111,7 +111,7 @@ Public Class frmNIProfilhinzufuegen
'DbArt = "Dateityp"
'datasource = Dateiendung
'initialCatalog = löschen
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, _
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text,
_Typ, Me.cmbEndung_xml.Text, "", "", "", "", "", Me.cmbIndexValidierung.Text, Me.chkbxdelete.Checked, 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
' und das Formular schließen
Me.Close()

92
ToolCollection/frmNIVerknuepfungen.Designer.vb generated
View File

@ -58,6 +58,9 @@ Partial Class frmNIVerknuepfungen
Me.btnTestSQL = New System.Windows.Forms.Button()
Me.Label9 = New System.Windows.Forms.Label()
Me.gbUpdate = New System.Windows.Forms.GroupBox()
Me.Button5 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblsaveSQLAnweisung = New System.Windows.Forms.Label()
Me.cmbWindreamIndexeSQL = New System.Windows.Forms.ComboBox()
Me.lblDescr_Verknüpfungen = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
@ -165,8 +168,6 @@ Partial Class frmNIVerknuepfungen
Me.rbvkt_add = New System.Windows.Forms.RadioButton()
Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.lblsaveSQLAnweisung = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.StatusStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.Panel1.SuspendLayout()
@ -199,12 +200,12 @@ Partial Class frmNIVerknuepfungen
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtfinalSkriptUpdate.BackColor = System.Drawing.Color.LemonChiffon
Me.txtfinalSkriptUpdate.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtfinalSkriptUpdate.Location = New System.Drawing.Point(6, 40)
Me.txtfinalSkriptUpdate.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtfinalSkriptUpdate.Location = New System.Drawing.Point(6, 47)
Me.txtfinalSkriptUpdate.Multiline = True
Me.txtfinalSkriptUpdate.Name = "txtfinalSkriptUpdate"
Me.txtfinalSkriptUpdate.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.txtfinalSkriptUpdate.Size = New System.Drawing.Size(925, 145)
Me.txtfinalSkriptUpdate.Size = New System.Drawing.Size(963, 138)
Me.txtfinalSkriptUpdate.TabIndex = 29
'
'cmbDatenbankSpalten
@ -411,9 +412,9 @@ Partial Class frmNIVerknuepfungen
Me.GroupBox1.Controls.Add(Me.Button3)
Me.GroupBox1.Controls.Add(Me.Button1)
Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(942, 19)
Me.GroupBox1.Location = New System.Drawing.Point(975, 47)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(205, 83)
Me.GroupBox1.Size = New System.Drawing.Size(147, 83)
Me.GroupBox1.TabIndex = 50
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Laufzeit-Variablen"
@ -475,13 +476,16 @@ Partial Class frmNIVerknuepfungen
'
Me.btnWindreamIndexEinfügenSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnWindreamIndexEinfügenSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnWindreamIndexEinfügenSQL.Image = Global.ToolCollection.My.Resources.Resources.add
Me.btnWindreamIndexEinfügenSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnWindreamIndexEinfügenSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnWindreamIndexEinfügenSQL.Location = New System.Drawing.Point(1119, 134)
Me.btnWindreamIndexEinfügenSQL.Location = New System.Drawing.Point(1161, 149)
Me.btnWindreamIndexEinfügenSQL.Name = "btnWindreamIndexEinfügenSQL"
Me.btnWindreamIndexEinfügenSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.btnWindreamIndexEinfügenSQL.Size = New System.Drawing.Size(105, 21)
Me.btnWindreamIndexEinfügenSQL.Size = New System.Drawing.Size(69, 21)
Me.btnWindreamIndexEinfügenSQL.TabIndex = 47
Me.btnWindreamIndexEinfügenSQL.Text = "Index einfügen"
Me.btnWindreamIndexEinfügenSQL.Text = "Add"
Me.btnWindreamIndexEinfügenSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnWindreamIndexEinfügenSQL.UseVisualStyleBackColor = True
'
'lbxQuelle1
@ -559,7 +563,7 @@ Partial Class frmNIVerknuepfungen
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label9.Location = New System.Drawing.Point(939, 116)
Me.Label9.Location = New System.Drawing.Point(977, 133)
Me.Label9.Name = "Label9"
Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label9.Size = New System.Drawing.Size(92, 13)
@ -569,6 +573,7 @@ Partial Class frmNIVerknuepfungen
'
'gbUpdate
'
Me.gbUpdate.Controls.Add(Me.Button5)
Me.gbUpdate.Controls.Add(Me.Label1)
Me.gbUpdate.Controls.Add(Me.lblsaveSQLAnweisung)
Me.gbUpdate.Controls.Add(Me.GroupBox1)
@ -585,13 +590,51 @@ Partial Class frmNIVerknuepfungen
Me.gbUpdate.TabStop = False
Me.gbUpdate.Text = "SQL-Befehl oder Skript (ausgeführt nach jedem Dateidurchlauf)"
'
'Button5
'
Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button5.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.Button5.Image = Global.ToolCollection.My.Resources.Resources.save
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button5.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Button5.Location = New System.Drawing.Point(1141, 97)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(89, 23)
Me.Button5.TabIndex = 54
Me.Button5.Text = "Speichern"
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(892, 26)
Me.Label1.TabIndex = 52
Me.Label1.Text = resources.GetString("Label1.Text")
'
'lblsaveSQLAnweisung
'
Me.lblsaveSQLAnweisung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblsaveSQLAnweisung.AutoSize = True
Me.lblsaveSQLAnweisung.BackColor = System.Drawing.Color.Yellow
Me.lblsaveSQLAnweisung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblsaveSQLAnweisung.Location = New System.Drawing.Point(980, 173)
Me.lblsaveSQLAnweisung.Name = "lblsaveSQLAnweisung"
Me.lblsaveSQLAnweisung.Size = New System.Drawing.Size(38, 13)
Me.lblsaveSQLAnweisung.TabIndex = 51
Me.lblsaveSQLAnweisung.Text = "Label1"
Me.lblsaveSQLAnweisung.Visible = False
'
'cmbWindreamIndexeSQL
'
Me.cmbWindreamIndexeSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmbWindreamIndexeSQL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbWindreamIndexeSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbWindreamIndexeSQL.FormattingEnabled = True
Me.cmbWindreamIndexeSQL.Location = New System.Drawing.Point(942, 134)
Me.cmbWindreamIndexeSQL.Location = New System.Drawing.Point(980, 149)
Me.cmbWindreamIndexeSQL.Name = "cmbWindreamIndexeSQL"
Me.cmbWindreamIndexeSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmbWindreamIndexeSQL.Size = New System.Drawing.Size(164, 21)
@ -1862,30 +1905,6 @@ Partial Class frmNIVerknuepfungen
Me.SplitContainer1.Size = New System.Drawing.Size(1265, 747)
Me.SplitContainer1.SplitterDistance = 521
Me.SplitContainer1.TabIndex = 51
'
'lblsaveSQLAnweisung
'
Me.lblsaveSQLAnweisung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblsaveSQLAnweisung.AutoSize = True
Me.lblsaveSQLAnweisung.BackColor = System.Drawing.Color.Yellow
Me.lblsaveSQLAnweisung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblsaveSQLAnweisung.Location = New System.Drawing.Point(942, 172)
Me.lblsaveSQLAnweisung.Name = "lblsaveSQLAnweisung"
Me.lblsaveSQLAnweisung.Size = New System.Drawing.Size(38, 13)
Me.lblsaveSQLAnweisung.TabIndex = 51
Me.lblsaveSQLAnweisung.Text = "Label1"
Me.lblsaveSQLAnweisung.Visible = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(457, 13)
Me.Label1.TabIndex = 52
Me.Label1.Text = "VB-Skript Command must start with prefix 'EXECUTEVB '. SQL-Command can be written" &
" like sql."
'
'frmNIVerknuepfungen
'
@ -2081,4 +2100,5 @@ Partial Class frmNIVerknuepfungen
Friend WithEvents Button1 As Button
Friend WithEvents lblsaveSQLAnweisung As Label
Friend WithEvents Label1 As Label
Friend WithEvents Button5 As Button
End Class

4
ToolCollection/frmNIVerknuepfungen.resx
View File

@ -120,6 +120,10 @@
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="Label1.Text" xml:space="preserve">
<value>VB-Skript Command must start with prefix 'EXECUTEVB '. VB-Command and arguments must be seperated via an #. For double quotes in executing please use single quotes in configuration.
SQL-Command can be written like sql.</value>
</data>
<metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>

146
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -6,10 +6,15 @@ Imports System.Xml
Imports System.DirectoryServices
Imports Oracle.ManagedDataAccess.Client
Imports System.IO
Imports DigitalData.Modules.Logging
Public Class frmNIVerknuepfungen
'Private _MyLogger As LogConfig
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private _selectedProfil As ClassNIProfil
Public Shared _windream As New ClassWindream_allgemein
Public Shared _windream As ClassWindream_allgemein
'Zum Speichern der Positionen
Dim _pos As Integer
Dim arrProfile(1, 1) As Object
@ -27,7 +32,7 @@ Public Class frmNIVerknuepfungen
Public Shared vDB_Art As String
Public Shared vInitialCatalog As String
Public Shared vReplace As String
Private database As New ClassNIDatenbankzugriff
Private database As ClassNIDatenbankzugriff
Private Shared _Instance As frmNIVerknuepfungen = Nothing
Public Shared Function Instance() As frmNIVerknuepfungen
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
@ -36,6 +41,24 @@ Public Class frmNIVerknuepfungen
_Instance.BringToFront()
Return _Instance
End Function
''' <summary>
''' Konstruktor des Panels. Laden der Profilnamen in die Auswahliste.
''' </summary>
''' <remarks></remarks>
Sub New()
_flagIgnoreCheckedChanged = True
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
_Logger = CURR_MyLogger.GetLogger()
_flagIgnoreCheckedChanged = False
_windream = New ClassWindream_allgemein(CURR_MyLogger)
database = New ClassNIDatenbankzugriff(CURR_MyLogger)
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.LoadProfilesInCombobox()
End Sub
Public Sub ReDimEx(ByRef MyArray As Object, ByVal iDimX As Integer, ByVal iDimY As Integer)
Dim MyTempArray As Object
@ -54,22 +77,7 @@ Public Class frmNIVerknuepfungen
Next J
Next I
End Sub
''' <summary>
''' Konstruktor des Panels. Laden der Profilnamen in die Auswahliste.
''' </summary>
''' <remarks></remarks>
Sub New()
_flagIgnoreCheckedChanged = True
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
_flagIgnoreCheckedChanged = False
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.LoadProfilesInCombobox()
End Sub
''' <summary>
''' Schreibt die Profile in die Combobox in der Toolbar.
''' </summary>
@ -177,6 +185,9 @@ Public Class frmNIVerknuepfungen
Me.chkvkt_Dublette.Visible = False
Me.Label4.Text = "eindeutiger WD-Index:"
btnaddUniqueIndex.Enabled = True
txtfinalSkriptUpdate.Text = ""
Me.txtCheckIndexSQL.Text = ""
If Me._selectedProfil.Dokumenttyp IsNot Nothing Then
'Profilübergreifende Aktualisierungen
Me.pnlZielQuelle.Visible = True
@ -206,9 +217,12 @@ Public Class frmNIVerknuepfungen
'Überprüfungsselect
Me.txtCheckIndexSQL.Text = Me._selectedProfil.checkIndexsql
'Move and Rename aktiv?
If Me._selectedProfil.SQL_Anweisung IsNot Nothing Then
If Me._selectedProfil.SQL_Anweisung <> "" Then
Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.SQL_Anweisung
End If
End If
'##################################################
'###### Nachindexierung über xml-Dateien ##########
@ -302,9 +316,12 @@ Public Class frmNIVerknuepfungen
Me.lvwVerknuepfungen.Items.Add(New Windows.Forms.ListViewItem(New String() {link.Index, link.Spalte, link.From}))
' wenn es den aktuellen Index noch in der Indexliste gibt
If Me.lbxIndex.Items.Contains(link.Index) Then
Dim indextype As String = ClassNIWindream.GetIndex_Type(link.Index)
If Not indextype.StartsWith("Vektor") Then
' dann diesen Eintrag löschen
Me.lbxIndex.Items.Remove(link.Index)
End If
End If
Next
Else
Me.grbFilterDB.Enabled = False
@ -379,9 +396,12 @@ Public Class frmNIVerknuepfungen
Me.lvwVerknuepfungen.Items.Add(New Windows.Forms.ListViewItem(New String() {link.Index, link.Spalte, link.SelectAnweisung}))
' wenn es den aktuellen Index noch in der Indexliste gibt
If Me.lbxIndex.Items.Contains(link.Index) Then
Dim indextype As String = ClassNIWindream.GetIndex_Type(link.Index)
If Not indextype.StartsWith("Vektor") Then
' dann diesen Eintrag löschen
Me.lbxIndex.Items.Remove(link.Index)
End If
End If
Next
If i = 0 Then
pnlfulltext.Enabled = True
@ -426,9 +446,12 @@ Public Class frmNIVerknuepfungen
Me.lvwVerknuepfungen.Items.Add(New Windows.Forms.ListViewItem(New String() {link.Index, link.Spalte, link.From}))
' wenn es den aktuellen Index noch in der Indexliste gibt
If Me.lbxIndex.Items.Contains(link.Index) Then
Dim indextype As String = ClassNIWindream.GetIndex_Type(link.Index)
If Not indextype.StartsWith("Vektor") Then
' dann diesen Eintrag löschen
Me.lbxIndex.Items.Remove(link.Index)
End If
End If
Next
Else
Me.grbFilterDB.Enabled = False
@ -988,7 +1011,7 @@ Public Class frmNIVerknuepfungen
Connection = New OdbcConnection(ConnectionString.ConnectionString)
Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("ClassSearchResults.GetValueFromOdbcDb", "Verbindung zur Datenbank aufbauen", ex)
_Logger.Error(ex)
' DB-Connection schliessen
Me.CloseOdbcDb(Connection)
Return Nothing
@ -1075,7 +1098,7 @@ Public Class frmNIVerknuepfungen
Connection = New OdbcConnection(ConnectionString.ConnectionString)
Connection.Open()
Catch ex As Exception
ClassLoggerNI.Add("ClassSearchResults.GetValueFromOdbcDb", "Verbindung zur Datenbank aufbauen", ex)
_Logger.Warn("ClassSearchResults.GetValueFromOdbcDb: Verbindung zur Datenbank aufbauen: " & ex.Message)
' DB-Connection schliessen
Me.CloseOdbcDb(Connection)
Return Nothing
@ -1306,8 +1329,11 @@ Public Class frmNIVerknuepfungen
' Liste mit Spalten deselektieren
Me.lbxQuelle1.SelectedIndex = -1
If Me.txtManIndexwert.Text = "" Then
' den Index aus Liste mit Indexen löschen
Dim indextype As String = ClassNIWindream.GetIndex_Type(Me.lbxIndex.SelectedItem)
If Not indextype.StartsWith("Vektor") Then
' dann diesen Eintrag löschen
Me.lbxIndex.Items.Remove(Me.lbxIndex.SelectedItem)
End If
Else
Me.txtManIndexwert.Text = ""
End If
@ -1411,8 +1437,11 @@ Public Class frmNIVerknuepfungen
Me._selectedProfil._links.AddLink(Me.lbxIndex.SelectedItem, _value, "ft", Ft_area)
' Eintrag in ListView machen
Me.lvwVerknuepfungen.Items.Add(New Windows.Forms.ListViewItem(New String() {Me.lbxIndex.SelectedItem, _value, Ft_area}))
' den Index aus Liste mit Indexen löschen
Me.lbxIndex.Items.Remove(Me.lbxIndex.SelectedItem)
Dim indextype As String = ClassNIWindream.GetIndex_Type(Me.lbxIndex.SelectedItem)
If Not indextype.StartsWith("Vektor") Then
' dann diesen Eintrag löschen
Me.lbxIndex.Items.Remove(lbxIndex.SelectedItem)
End If
' definieren das am aktuellen Profil Änderungen vorgenommen wurden
Me._selectedProfil.setChanged()
@ -1453,8 +1482,11 @@ Public Class frmNIVerknuepfungen
' Liste mit Spalten deselektieren
Me.lbxQuelle1.SelectedIndex = -1
If Me.txtManIndexwert.Text = "" Then
' den Index aus Liste mit Indexen löschen
Dim indextype As String = ClassNIWindream.GetIndex_Type(Me.lbxIndex.SelectedItem)
If Not indextype.StartsWith("Vektor") Then
' dann diesen Eintrag löschen
Me.lbxIndex.Items.Remove(Me.lbxIndex.SelectedItem)
End If
Else
Me.txtManIndexwert.Text = ""
End If
@ -2061,7 +2093,7 @@ Public Class frmNIVerknuepfungen
If Me._selectedProfil IsNot Nothing Then
Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
If Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then
Me._selectedProfil.setChanged()
End If
End If
End Sub
@ -2075,7 +2107,7 @@ Public Class frmNIVerknuepfungen
If Me._selectedProfil IsNot Nothing Then
Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
If Not Me._selectedProfil.SQL_Anweisung = Me._selectedProfil.OriginalSQL_Anweisung Then
Me._selectedProfil.setChanged()
End If
End If
@ -2526,17 +2558,17 @@ Public Class frmNIVerknuepfungen
If _selectedProfil.DbArt = "Oracle" Then
Dim ergebnis As Integer = database.CheckIndex_oracle(vSQL, _selectedProfil.DataSource, _selectedProfil.InitialCatalog, _selectedProfil.UserId, _selectedProfil.Password)
If ergebnis = 1 Then
MsgBox("Der ausgeführte SQL-Befehl ist gültig: " & vbNewLine & _
vSQL & vbNewLine & vbNewLine & _
"Zurückgelieferter Wert: (muß = 1 sein) " & vbNewLine & _
MsgBox("Der ausgeführte SQL-Befehl ist gültig: " & vbNewLine &
vSQL & vbNewLine & vbNewLine &
"Zurückgelieferter Wert: (muß = 1 sein) " & vbNewLine &
ergebnis, MsgBoxStyle.Information, "Erfolgsmeldung:")
Else
If ergebnis > 1 Then
MsgBox("Der ausgeführte SQL-Befehl liefert mehr als 1 zurück!" & vbNewLine & _
"Bitte überprüfen sie Ihr SQL oder den Testwert!" & vbNewLine & _
MsgBox("Der ausgeführte SQL-Befehl liefert mehr als 1 zurück!" & vbNewLine &
"Bitte überprüfen sie Ihr SQL oder den Testwert!" & vbNewLine &
"Ist der zugeordnete index wirklich eindeutig?", MsgBoxStyle.Exclamation, "SQL/Index-Überprüfen:")
Else
MsgBox("Der ausgeführte SQL-Befehl liefert 0 zurück!" & vbNewLine & _
MsgBox("Der ausgeführte SQL-Befehl liefert 0 zurück!" & vbNewLine &
"Bitte überprüfen sie Ihr SQL oder den Testwert!", MsgBoxStyle.Exclamation, "SQL-Überprüfen:")
End If
@ -2544,17 +2576,17 @@ Public Class frmNIVerknuepfungen
ElseIf _selectedProfil.DbArt = "MS-SQL" Then
Dim ergebnis As Integer = database.CheckIndex_MSSSQL(_selectedProfil.Profilname, vSQL, _selectedProfil.DataSource, _selectedProfil.UserId, _selectedProfil.Password, _selectedProfil.InitialCatalog)
If ergebnis = 1 Then
MsgBox("Der ausgeführte SQL-Befehl ist gültig: " & vbNewLine & _
vSQL & vbNewLine & vbNewLine & _
"Zurückgelieferter Wert: (muß = 1 sein) " & vbNewLine & _
MsgBox("Der ausgeführte SQL-Befehl ist gültig: " & vbNewLine &
vSQL & vbNewLine & vbNewLine &
"Zurückgelieferter Wert: (muß = 1 sein) " & vbNewLine &
ergebnis, MsgBoxStyle.Information, "Erfolgsmeldung:")
Else
If ergebnis > 1 Then
MsgBox("Der ausgeführte SQL-Befehl liefert mehr als 1 zurück!" & vbNewLine & _
"Bitte überprüfen sie Ihr SQL oder den Testwert!" & vbNewLine & _
MsgBox("Der ausgeführte SQL-Befehl liefert mehr als 1 zurück!" & vbNewLine &
"Bitte überprüfen sie Ihr SQL oder den Testwert!" & vbNewLine &
"Ist der zugeordnete index wirklich eindeutig?", MsgBoxStyle.Exclamation, "SQL/Index-Überprüfen:")
Else
MsgBox("Der ausgeführte SQL-Befehl liefert 0 zurück!" & vbNewLine & _
MsgBox("Der ausgeführte SQL-Befehl liefert 0 zurück!" & vbNewLine &
"Bitte überprüfen sie Ihr SQL oder den Testwert!", MsgBoxStyle.Exclamation, "SQL-Überprüfen:")
End If
@ -2948,16 +2980,16 @@ Public Class frmNIVerknuepfungen
For Each Str As String In ClassActiveDirectory.ErgebnisAD
msg = msg & Str & vbNewLine
Next
MsgBox("Es wurde mehr als 1 Wert ausgelesen! Entweder ist der AD-Filter nicht eindeutig oder ein anderer Fehler ist aufgetreten." & vbNewLine & "Ergebnis der AD-Suche:" & vbNewLine & msg & vbNewLine & _
MsgBox("Es wurde mehr als 1 Wert ausgelesen! Entweder ist der AD-Filter nicht eindeutig oder ein anderer Fehler ist aufgetreten." & vbNewLine & "Ergebnis der AD-Suche:" & vbNewLine & msg & vbNewLine &
"AD-Filter: '" & filter & "'", MsgBoxStyle.Exclamation)
ElseIf Ergebnis = "99" Then
MsgBox("Es konnte kein eindeutiger Wert ausgelesen werden! Grund hierfür könnnen eine fehlerhafte Anmeldung an LDAP, o.Ä. sein!" & vbNewLine & _
MsgBox("Es konnte kein eindeutiger Wert ausgelesen werden! Grund hierfür könnnen eine fehlerhafte Anmeldung an LDAP, o.Ä. sein!" & vbNewLine &
"AD-Filter: '" & filter & "'", MsgBoxStyle.Exclamation)
Else
If Ergebnis.Contains("-Suchfilter ist ungültig") Then
MsgBox(Ergebnis, MsgBoxStyle.Exclamation)
Else
MsgBox("Für den Testwert '" & Me.txtLDAPTestwert.Text & "' wurde für das Attribut '" & Attribut2Load & "'" & vbNewLine & "das Ergebnis '" & Ergebnis & "' ausgelesen!" & vbNewLine & _
MsgBox("Für den Testwert '" & Me.txtLDAPTestwert.Text & "' wurde für das Attribut '" & Attribut2Load & "'" & vbNewLine & "das Ergebnis '" & Ergebnis & "' ausgelesen!" & vbNewLine &
"AD-Filter: '" & filter & "'", MsgBoxStyle.Information)
End If
@ -3033,7 +3065,7 @@ Public Class frmNIVerknuepfungen
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
' Überprüfen ob eingegebener Wert gepeichert werden muß?
' MsgBox(Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).getSelectAnweisung())
Dim Original As String = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, _
Dim Original As String = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).getSelectAnweisung().ToString
If Original <> Me.txtLDAP_EinschrUserGroup.Text Then
@ -3043,7 +3075,7 @@ Public Class frmNIVerknuepfungen
End With
End If
' die Informationen der selektierten Verknüpfung auslesen
Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, _
Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).setSelectAnweisung(Me.txtLDAP_EinschrUserGroup.Text)
' das Profil auf den Status 'geändert' setzen
Me._selectedProfil.setChanged()
@ -3150,11 +3182,11 @@ Public Class frmNIVerknuepfungen
Private Sub txtSubstradd_Click(sender As Object, e As EventArgs) Handles btbSubstradd.Click
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
If txtSubstr_von.Text <> "" And txtSUBSTR_bis.Text <> "" Then
Me.txtLDAP_EinschrUserGroup.Text = "(" & Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text & "=SUBSTR[" & _
Me.txtLDAP_EinschrUserGroup.Text = "(" & Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text & "=SUBSTR[" &
LDAP_Return_Regex(Me.txtLDAP_EinschrUserGroup.Text) & "," & txtSubstr_von.Text & "," & txtSUBSTR_bis.Text & "])"
End If
If txtSubstr_von.Text <> "" And txtSUBSTR_bis.Text = "" Then
Me.txtLDAP_EinschrUserGroup.Text = "(" & Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text & "=SUBSTR[" & _
Me.txtLDAP_EinschrUserGroup.Text = "(" & Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text & "=SUBSTR[" &
LDAP_Return_Regex(Me.txtLDAP_EinschrUserGroup.Text) & "," & txtSubstr_von.Text & "])"
End If
End If
@ -3236,7 +3268,7 @@ Public Class frmNIVerknuepfungen
' wenn im ListView eine Zeile selektiert wurde
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
' Überprüfen ob eingegebener Wert gepeichert werden muß?
Dim original As String = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, _
Dim original As String = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
"ft").getSelectAnweisung().ToString
If original <> ftarea Then
With btnSave_FulltextLinks
@ -3245,7 +3277,7 @@ Public Class frmNIVerknuepfungen
End With
End If
' die Informationen der selektierten Verknüpfung auslesen
Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, _
Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
"ft").setSelectAnweisung(ftarea)
' das Profil auf den Status 'geändert' setzen
Me._selectedProfil.setChanged()
@ -3323,12 +3355,12 @@ Public Class frmNIVerknuepfungen
End Sub
Sub Check_Save_VktInsState()
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
Dim origstate = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, _
Dim origstate = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).getvktInsState
Dim vktState = Getvktinsert_State()
If vktState <> origstate Then
Changeinaction = True
Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text, _
Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).setvktIns(vktState)
Me._selectedProfil.setChanged()
Me._selectedProfil._links.setLinksChanged()
@ -3351,8 +3383,17 @@ Public Class frmNIVerknuepfungen
Private Sub tabctrlbottom_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabctrlbottom.SelectedIndexChanged
Select Case tabctrlbottom.SelectedIndex
Case 0
If Me._selectedProfil.checkIndexsql <> "" Then
Me.txtCheckIndexSQL.Text = Me._selectedProfil.checkIndexsql
End If
Case 1
lblsaveSQLAnweisung.Text = ""
Me.txtfinalSkriptUpdate.Text = ""
If Me._selectedProfil.SQL_Anweisung <> "" Then
Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.SQL_Anweisung
End If
Case 2
If Me._selectedProfil IsNot Nothing Then
chbxStatusfertig.Checked = True
@ -3399,4 +3440,13 @@ Public Class frmNIVerknuepfungen
lblsaveSQLAnweisung.Visible = False
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If Me._selectedProfil.Save(True) = True Then
' wenn das Speichern erfolgreich war
Me.lblsaveSQLAnweisung.Text = "Data saved - " & Now.ToString
Else
Me.lblsaveSQLAnweisung.Text = ""
End If
End Sub
End Class

2498
ToolCollection/frmNIVerknuepfungen_Old.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

219
ToolCollection/frmNIVerknuepfungen_Old.resx
View File

@ -1,219 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>305, 17</value>
</metadata>
<metadata name="TBErgebnisBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>415, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>27</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAQAEBAQAAEABAAoAQAARgAAABAQAAABAAgAaAUAAG4BAAAgIBAAAQAEAOgCAADWBgAAICAAAAEA
CACoCAAAvgkAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACA
AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA
AAAJmZkAAAmZkAmZAAAAAAAACZkLu7u7u7AJmZC7sAu7AAmZkLuwC7sAABERC7u7sAAAgAADsAuwAAgB
EQAwCwmQgTPzEDALCZATMfExA7CZkCP///EDsJmQIzHxMQAAmZBys/MQkAAJkAcAMQmQAAmQAAAgcAAA
AAAD4f//AcD//wAA//8AAP//AAH//wAB//+AA///wAH//4AA//8AAP//AAD//wAA//8AAP//ADD//4Aw
///AeP//KAAAABAAAAAgAAAAAQAIAAAAAABAAQAAAAAAAAAAAAAAAQAAAAAAAP///wDM//8AwMDAAFC3
zQAA//8AIImlAACZmQAAAP8AAACZAEBAQAABZXwAADMzAAEBAQCb+/8AjP//AILr/wCZmf8Al5f7AJCQ
8ACHh+EAsrC3ALyXoACVsL8AkJmqAIaYogCbnp8AgICAAIdWbQB8//4Acf/+AGrs/wBb6f8AQNn/AHac
uAAk2/8AGuH/AAD//wAA9vYAAOPjABja/wAS3v8AD9r/AAvQ/wAF0/8ADMb/AATL/QAAwvYAAMTtAADL
ywAAxMQAMKHPAACw4gAAqNAAAKXbAACl1QAAmcsAAI7FAAKHwwAAqqoAAKenAACRugAAi7gAAIqKAG9v
uQBsd4cAR3WNADtrkwAefqYAAH2sAAB9oAAAd6AAAGycAABqkAAAZ5MAAGqMAABaigAAXYEAAAD/AAAA
9AAAAO4AAADlAAAA3wAAANEAAADMAAAAwAAAALQAAAGsAHl7fAByaXkAaGhoAEJecABMW2QAAXRzABxG
YgAWRmUAAFp7AABTcQAATXIAAE5qAABEYgABT0wAFz5bABc7TQAAOVUAADVVAA0xSQAAMkkAADBFAAAr
QgAAAH8AAAd2AAALbAAAAGYAAQpNAAABSwAAAEAAESEmAAArPQAALzYAACU4AAAjNwAAICUABhc/AAAb
KAAAGCEAABMiAAALNgAACSsAAAYoABYWFgAAHx4AABQbAAAREwAAFAsAAAsUAAAFEAAJCQoAAQsLAAAG
CgAAAAAAMQAAACkLDQAgAAAAHSEhABEhJgAAKToAAC82AAAlOAAAJTMAACAlABkXIgASGCgAABsoAAAY
IQAAEyIAHh4eABUfHwAXFxcAFgURAB0AAAAUAAoADBMWAAAbHwAAEx0ABRMVAAAUCwAADBMACQkKAAEK
CwAABwkAAAEBAAUTFQAAFAsAAAwTAAoKCgABCgsAAAcJAAABAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAMDAwMDAyLi4uL
iwwMDAyLDAcHBwcHDIuLiwwHBwcHDAwHBwcMDAwMDAwMDAwMDAwMBwcHDAQEBAQEBAQEBAQMDAcHBwcM
BAQEDAwEBAQMiwwHBwcHDAQEBAwMBAQEDIuLDAgICAcMBAQEBAQEDIuLi4sCDAwMDAYEDAwEBAwMi4sC
DAsLCwwMBgwMBAwHBwwJDAsLAQsLDAYMDAQMBwcMCQsLCwELCwsMBgQMBwcHDAwFAQEBAQELDAYEDAcH
BwwJCgoKAQsLCwwMDAwHBwcMAgwDCgELCwwHDIuLDAcHDIsCDAoLCwwHBwyLiwwHBwyLiwIJDAwCDAyL
i4uLDAwMA+H//wHA//8AAP//AAD//wAB//8AAf//gAP//8AB//+AAP//AAD//wAA//8AAP//AAD//wAw
//+AMP//wHj//ygAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA
AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA
AAAAAAAAAAAAAAEREREREREBEREAAAARERAHmZmZmZmRB5mRAAAHmZkQB5mZmZmZkQeZkQAAB5mZEAeX
d5mZmZEHmZkQAAeZmRAHcAB5mZmZEHd5kQAZmZkQAAAAB5mZmZEAB5kRmZd5EAAAAABwAAAAAAAAAJkQ
B3AAAAAAC7u7u7u7u7sJAAAAAAAAAQu7u7gIu7u7AAAAAAEQABmQu7uwALu7sJAAAAAHkRGZkLu7uAi7
u7CRAAAAB5mZmZkLu7u7u7sJmRABEAeZmZmZC7u3B7u7CZmRGRAHmZmZmZC7uAi7sJmZmZkQB3mZmZmQ
u7AAu7CZmZmZEAAHEQAAAQuwALsHmZmXd3AACAAAAAALsAC7AHmZEAAAAIREA0QAALgIsBB5kQEREAhD
MwczQAC7u7AHmZEHmRAEMzMPMzQAC7sBB5mRB5kQgjMzDzMzQAu7CRB3dweZECMzMw8zMzQAAJmRAAB5
mRAjB/////80AZmZmZmZmZkQIwAADwAANAGZmZd3mZmZECMzMw8zMzQBmZkQAHmZmRCCu7sPMzM0AZmR
AAAHmZkQAn97DzMzMAeZEAAAB5mZEAgr+wAzMxAXmRAAAAeZmRAAgrczMzMIF5mRAAB5mZkQAAgiMzMA
gAd3dwAAd3d3cAAACCIggAAAAAAAAAAAAAAAAA/AAAAHgAAABwAAAAcAAAADAAAAAACcAAAA/gAAAP4A
ABmcAAA/AAAAPwAAABkAAAAAAAAAAAAAAAAAAAAAgAAAAOAAAADAAAAAgAAAAIAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAABwCAAA8AgAAPAMAABgDgBAYA+B4PACgAAAAgAAAAQAAAAAEACAAAAAAAgAQAAAAA
AAAAAAAAAAEAAAAAAAD///8A8v//APXk5QDv/P8A5vn/AOnp6gDm6+4A4ubpAMDAwADaoacAxpyhAL7/
/wCp/v8Am/v/AIz//wCC6/8AmZn/AJeX+wCQkPAAh4fhALKwtwC8l6AAlbC/AJCZqgCGmKIAm56fAICA
gACHVm0AfP/+AHH//gBq7P8AW+n/AEDZ/wB2nLgAJNv/ABrh/wAA//8AAPb2AADj4wAY2v8AEt7/AA/a
/wAL0P8ABdP/AAzG/wAEy/0AAML2AADE7QAAy8sAAMTEADChzwAAsOIAAKjQAACl2wAApdUAAJnLAACO
xQACh8MAAKqqAACnpwAAkboAAIu4AACKigBvb7kAbHeHAEd1jQA7a5MAHn6mAAB9rAAAfaAAAHegAABs
nAAAapAAAGeTAABqjAAAWooAAF2BAAAA/wAAAPQAAADuAAAA5QAAAN8AAADRAAAAzAAAAMAAAAC0AAAB
rAB5e3wAcml5AGhoaABCXnAATFtkAAF0cwAcRmIAFkZlAABaewAAU3EAAE1yAABOagAARGIAAU9MABc+
WwAXO00AADlVAAA1VQANMUkAADJJAAAwRQAAK0IAAAB/AAAHdgAAC2wAAABmAAEKTQAAAUsAAABAABEh
JgAAKz0AAC82AAAlOAAAIzcAACAlAAYXPwAAGygAABghAAATIgAACzYAAAkrAAAGKAAWFhYAAB8eAAAU
GwAAERMAABQLAAALFAAABRAACQkKAAELCwAABgoAAAAAADEAAAApCw0AIAAAAB0hIQARISYAACk6AAAv
NgAAJTgAACUzAAAgJQAZFyIAEhgoAAAbKAAAGCEAABMiAB4eHgAVHx8AFxcXABYFEQAdAAAAFAAKAAwT
FgAAGx8AABMdAAUTFQAAFAsAAAwTAAkJCgABCgsAAAcJAAABAQAFExUAABQLAAAMEwAKCgoAAQoLAAAH
CQAAAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8AcHBwcHBwcHBwcHBwcHBwcHBwcHCLi4uLi4twcHBwcHBwU1NTU1NTU1NT
U1NTU3BTU1NTU3CLi4uLcFNTU1NTcHAQTU1NTU1NTU1NTU1TcBBNTU1TcIuLi3AQTU1NTVNwcBBNTU1N
TU1NTU1NTVNwEE1NTVNwi4uLcBBNTU1NU3BwEE0QEBBNTU1NTU1NU3AQTU1NTVNwi4twEE1NTU1TcHAQ
EHBwcBBNTU1NTU1NU3AQEBBNTVNwcFNNTU1NTVNwi3Bwi4uLcBBNTU1NTU1NU3BwcBBNTVNTTU1NEBBN
U3CLi4uLi4uLcBCLi4uLi4uLi4uLi4uLi4tNTVNwcBAQcIuLi4uLi4twiyQkJCQkJCQkJCQkJCQkJItN
cIuLcHCLi3Bwi4uLcFOLJCQkJCQkGosaJCQkJCQki3CLi4uLi4twU1NwcHBTTU2LJCQkJCSLi4skJCQk
JItNcIuLi4uLi3AQTVNTU01NTYskJCQkJBqLGiQkJCQki01TcIuLcHCLcBBNTU1NTU1NTYskJCQkJCQk
JCQkJItNTU1TcHBTU3BwEE1NTU1NTU1NiyQkJCQIiwgkJCQki01NTU1TU01TcHAQTU1NTU9QUVBOiyQk
JBqLGiQkJItNTU1NTU1NTVNwcBAQTU1QUlRVVT+LJiQki4uLJCQki01NTU1NTU1NU3CLcG0RE29+hoZ/
cW6LMCWLi4skJIsQTU1NTU0QEBAQcIuLi3KAhoaJiouLiok+MYuLiyQki3AQTU1NU3BwcHBwi4tAfXt4
bGt1e4aKi4k+WYsaJItTcBBNTVNwU1NTU3CLF3dnYUuIDGJidXmJi2Q7JiQki3AQTU1NU3AQTU1TcItp
Y0c4NYgARUpia4KLiVwxJYtTcBBNTU1TcBBNTVNwGGhHNS4riABFRUpidoWLZDomi1NTcBAQEBBwEE1N
U3BaYTUqKyuIAEVFRUpjeYuEi4tNTU1TcHBwcBBNTU1TcGVJiA0EAwAAAAAADGBsiYNWUE1NTU1NTU1N
TU1NTVNwXkSIiIiIiACBiIiIYGqEg1JOTU1NEBAQTU1NTU1NU3BBRC0nKCOIADMzNj1gbIZ6Tk1NTVNw
cHAQTU1NTU1TcBZELB8cHIgAMyMrNF94hlZNTU1TcIuLi3AQTU1NTVNwi0MsHgEOiAwzKS9GY3uHEk1N
U3CLi4uLcBBNTU1NU3CLFDIPCx2IiDMtPExshnMQTU1TcIuLi4twEE1NTU1TcIuLFSEgIi02Nz1MaoNX
cBBNTU1TcIuLcBBNTU1NTVNwi4uLCRtCOT1IY3V0GYtwEBAQEBBwi4twEBAQEBAQEHCLi4uLiwpYXWZb
GYuLi4twcHBwcIuLi4twcHBwcHBwcAAAD8AAAAeAAAAHAAAABwAAAAMAAAAAAJwAAAD+AAAA/gAAGZwA
AD8AAAA/AAAAGQAAAAAAAAAAAAAAAAAAAACAAAAA4AAAAMAAAACAAAAAgAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAHAIAADwCAAA8AwAAGAOAEBgD4Hg8A
</value>
</data>
</root>

2833
ToolCollection/frmNIVerknuepfungen_Old.vb
View File

File diff suppressed because it is too large Load Diff

11
ToolCollection/frmStart.vb
View File

@ -1,8 +1,12 @@
Imports System.Collections.ObjectModel
Imports System.Reflection
Imports System.Globalization
Imports DigitalData.Modules.Logging
Imports System.IO
Public Class frmStart
Private _MyLogger As LogConfig
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public _validModules()
Public licMore As Boolean = False
Public licNB_AD As Boolean = False
@ -41,6 +45,9 @@ Public Class frmStart
End If
End Sub
Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
CURR_MyLogger = _MyLogger
'Aktueller Benutzer
Me.tslblVersion.Text = Environment.UserName.ToString
Me.Text = Application.CompanyName & "-" & Application.ProductName
@ -130,7 +137,7 @@ Public Class frmStart
If Me.licenseManager.Licenses.machine.ToLower <> "all" Then
If Me.licenseManager.Licenses.machine.ToLower <> My.Computer.Name.ToLower Then
MsgBox("Ihre Lizenz gilt nicht für diese Maschine. " & vbNewLine & "Gelesener Computer Name: '" & My.Computer.Name & "'" & vbNewLine & "License Computer Name: '" & Me.licenseManager.Licenses.machine & "'" & vbNewLine & _
MsgBox("Ihre Lizenz gilt nicht für diese Maschine. " & vbNewLine & "Gelesener Computer Name: '" & My.Computer.Name & "'" & vbNewLine & "License Computer Name: '" & Me.licenseManager.Licenses.machine & "'" & vbNewLine &
"Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz ungültig:")
Me.grbDI.Visible = False
Me.GBNachindexierung.Visible = False
@ -344,7 +351,7 @@ Public Class frmStart
Private Sub TimerNIRestart_Tick(sender As Object, e As EventArgs) Handles TimerNIRestart.Tick
If NI_Restart = True Then
My.Settings.NI_RUNNING = True
ClassLoggerNI.Add(">> Nachindexierung Restart eingeleitet - Form wird neugestartet!", False)
NI_Restart = False
Open_NI_Main()
End If

1
ToolCollection/packages.config
View File

@ -1,5 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="EntityFramework" version="6.0.2" targetFramework="net451" />
<package id="NLog" version="4.5.8" targetFramework="net451" />
<package id="System.Data.SQLite" version="1.0.91.3" targetFramework="net451" />
</packages>

BIN
packages/NLog.4.5.8/NLog.4.5.8.nupkg vendored Normal file
View File

Binary file not shown.

BIN
packages/NLog.4.5.8/lib/monoandroid44/NLog.dll vendored Normal file
View File

Binary file not shown.

24201
packages/NLog.4.5.8/lib/monoandroid44/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/net35/NLog.dll vendored Normal file
View File

Binary file not shown.

26594
packages/NLog.4.5.8/lib/net35/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/net40-client/NLog.dll vendored Normal file
View File

Binary file not shown.

26693
packages/NLog.4.5.8/lib/net40-client/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/net45/NLog.dll vendored Normal file
View File

Binary file not shown.

26890
packages/NLog.4.5.8/lib/net45/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/netstandard1.3/NLog.dll vendored Normal file
View File

Binary file not shown.

23375
packages/NLog.4.5.8/lib/netstandard1.3/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/netstandard1.5/NLog.dll vendored Normal file
View File

Binary file not shown.

24225
packages/NLog.4.5.8/lib/netstandard1.5/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/netstandard2.0/NLog.dll vendored Normal file
View File

Binary file not shown.

24936
packages/NLog.4.5.8/lib/netstandard2.0/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/sl4/NLog.dll vendored Normal file
View File

Binary file not shown.

19744
packages/NLog.4.5.8/lib/sl4/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/sl5/NLog.dll vendored Normal file
View File

Binary file not shown.

19834
packages/NLog.4.5.8/lib/sl5/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/wp8/NLog.dll vendored Normal file
View File

Binary file not shown.

19010
packages/NLog.4.5.8/lib/wp8/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
packages/NLog.4.5.8/lib/xamarinios10/NLog.dll vendored Normal file
View File

Binary file not shown.

24101
packages/NLog.4.5.8/lib/xamarinios10/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff