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 System.DirectoryServices
Imports DigitalData.Modules.Logging
Public Class ClassActiveDirectory Public Class ClassActiveDirectory
Public Shared licenseManager As ClassLicenseManager = Nothing Public Shared licenseManager As ClassLicenseManager = Nothing
Public Shared ErgebnisAD As String() 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) Public Shared Function Test_Connect(SEARCH_Filter As String, Property2Load As String, Domain As String, User As String, PW As String)
Try Try
Dim objDirectoryEntry As DirectoryEntry = New DirectoryEntry(Domain) Dim objDirectoryEntry As DirectoryEntry = New DirectoryEntry(Domain)
@ -83,7 +84,7 @@ Public Class ClassActiveDirectory
If test = True Then If test = True Then
MsgBox("Die Length-Variablen für den Substring konnten nicht definiert werden", MsgBoxStyle.Exclamation) MsgBox("Die Length-Variablen für den Substring konnten nicht definiert werden", MsgBoxStyle.Exclamation)
Else 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 Exit Function
End If End If
End If End If

6
ToolCollection/ClassDI.vb
View File

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

49
ToolCollection/ClassDIProfil.vb
View File

@ -1,5 +1,10 @@
Imports System.IO
Imports DigitalData.Modules.Logging
Public Class ClassDIProfil 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 *****" #Region "***** Variablen *****"
Private _originalProfilname As String Private _originalProfilname As String
Private _originalaktiv As Boolean Private _originalaktiv As Boolean
@ -62,10 +67,12 @@ Public Class ClassDIProfil
''' <param name="verzeichnis_loeschen"></param> ''' <param name="verzeichnis_loeschen"></param>
''' <param name="dokumenttyp_string"></param> ''' <param name="dokumenttyp_string"></param>
''' <remarks></remarks> ''' <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, _ 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 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 = "") 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._dokumenttypString = dokumenttyp_string
Me.Dokumenttyp = dokumenttyp Me.Dokumenttyp = dokumenttyp
Me._dokumenttyp = dokumenttyp Me._dokumenttyp = dokumenttyp
@ -814,23 +821,23 @@ Public Class ClassDIProfil
Public ReadOnly Property HasChanges() As Boolean Public ReadOnly Property HasChanges() As Boolean
Get Get
If Me.Profilname = Me.OriginalProfilname And _ If Me.Profilname = Me.OriginalProfilname And
Me.Aktiv = Me.OriginalAktiv And _ Me.Aktiv = Me.OriginalAktiv And
Me.Verzoegerung = Me.OriginalVerzoegerung And _ Me.Verzoegerung = Me.OriginalVerzoegerung And
Me.Quellordner = Me.OriginalQuellordner And _ Me.Quellordner = Me.OriginalQuellordner And
Me.Zielordner = Me.OriginalZielordner And _ Me.Zielordner = Me.OriginalZielordner And
Me.Subdirectories = Me.OriginalSubdirectories And _ Me.Subdirectories = Me.OriginalSubdirectories And
Me.Backup = Me.OriginalBackup And _ Me.Backup = Me.OriginalBackup And
Me.Backupordner = Me.OriginalBackupordner And _ Me.Backupordner = Me.OriginalBackupordner And
Me.Overwrite = Me.OriginalOverwrite And _ Me.Overwrite = Me.OriginalOverwrite And
Me.VerzeichnisLöschen = Me.OriginalVerzeichnisLöschen And _ Me.VerzeichnisLöschen = Me.OriginalVerzeichnisLöschen And
Me.DateiLöschen = Me.OriginalDateiLöschen And _ Me.DateiLöschen = Me.OriginalDateiLöschen And
Me.Date_UV = Me.OriginalDate_UV And _ Me.Date_UV = Me.OriginalDate_UV And
Me.Intervall = Me.OriginalIntervall And _ Me.Intervall = Me.OriginalIntervall And
Me.LastRun = Me.OriginallastRun And _ Me.LastRun = Me.OriginallastRun And
Me.Link2Navision = Me.OriginalLink2Navision And _ Me.Link2Navision = Me.OriginalLink2Navision And
Me.Link2Navision_dokart = Me.OriginalLink2Navision_dokart And _ Me.Link2Navision_dokart = Me.OriginalLink2Navision_dokart And
Me.Link2Navision_Index = Me.OriginalLink2Navision_Index And _ Me.Link2Navision_Index = Me.OriginalLink2Navision_Index And
Me.UVVerzeichnisLoeschen = Me.Original_UVVerzeichnisLoeschen Then Me.UVVerzeichnisLoeschen = Me.Original_UVVerzeichnisLoeschen Then
Return False Return False
Else Else

68
ToolCollection/ClassDIProfile.vb
View File

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

2
ToolCollection/ClassDI_Email.vb
View File

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

15
ToolCollection/ClassLicenses.vb
View File

@ -27,11 +27,24 @@
Dim i As Integer 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 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) Dim anzprof As String = licenseStringArray(i, 3)
If anzprof.ToLower = "unlimited" Then If anzprof.ToLower = "unlimited" Then
anzprof = 99 anzprof = 99
End If 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 Next
End If End If
Catch ex As Exception Catch ex As Exception

1
ToolCollection/ClassLoggerDI.vb
View File

@ -18,6 +18,7 @@ Public Class ClassLoggerDI
ClassLoggerDI.SetPrefix(prefix) ClassLoggerDI.SetPrefix(prefix)
End If End If
Dim str As String = ClassLoggerDI.DateiSpeicherort & "\" & ClassLoggerDI.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt" 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 Dim anz As Integer = 1
Do While File.Exists(str) Do While File.Exists(str)
Dim info As New FileInfo(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 xmlConfigFile As String
Public Shared aktivesProfil As ClassMI_Profil Public Shared aktivesProfil As ClassMI_Profil
Public Shared aktivesProfilAusProfileigenschaften As Boolean = False 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 'Public Shared xmlConfigFile As String = My.Settings.vConfigDatei
'Private Shared config As ClassMerkatorIntegrationKonfiguration = New ClassMerkatorIntegrationKonfiguration() 'Private Shared config As ClassMerkatorIntegrationKonfiguration = New ClassMerkatorIntegrationKonfiguration()
@ -89,13 +89,13 @@
' das Profilobjekt erzeugen ' das Profilobjekt erzeugen
ClassMI_Profile._profiles(i) = New ClassMI_Profil( _ ClassMI_Profile._profiles(i) = New ClassMI_Profil(
xmlProfil.Attributes("profilname").Value, _ xmlProfil.Attributes("profilname").Value,
_windream.GetObjecttypeByName(xmlProfil.Attributes("dokumenttyp").Value), _ _windream.GetObjecttypeByName(xmlProfil.Attributes("dokumenttyp").Value, False),
xmlProfil.Attributes("servername").Value, _ xmlProfil.Attributes("servername").Value,
xmlProfil.Attributes("zeige_suchmaske").Value, _ xmlProfil.Attributes("zeige_suchmaske").Value,
xmlProfil.Attributes("wdf_suche").Value, _ xmlProfil.Attributes("wdf_suche").Value,
xmlProfil.Attributes("dokumenttyp").Value _ xmlProfil.Attributes("dokumenttyp").Value
) )
Dim profil As ClassMI_Profil = ClassMI_Profile._profiles(i) Dim profil As ClassMI_Profil = ClassMI_Profile._profiles(i)
@ -241,12 +241,12 @@
ReDim Preserve ClassMI_Profile._profiles(ClassMI_Profile.Count) ReDim Preserve ClassMI_Profile._profiles(ClassMI_Profile.Count)
' und das neue Profil dem Profilarray anhängen und die Eigenschaften zuweisen ' und das neue Profil dem Profilarray anhängen und die Eigenschaften zuweisen
ClassMI_Profile._profiles(ClassMI_Profile.Count - 1) = New ClassMI_Profil( _ ClassMI_Profile._profiles(ClassMI_Profile.Count - 1) = New ClassMI_Profil(
profilname, _ profilname,
_windream.GetObjecttypeByName(dokumenttyp), _ _windream.GetObjecttypeByName(dokumenttyp, False),
servername, _ servername,
zeige_suchmaske, _ zeige_suchmaske,
wdf_suche, _ wdf_suche,
dokumenttyp) dokumenttyp)
'Me.Items(Me.Count - 1).DokumentTyp = dokumenttyp 'Me.Items(Me.Count - 1).DokumentTyp = dokumenttyp
'Me.Items(Me.Count - 1).WindreamSuche = windreamsuche 'Me.Items(Me.Count - 1).WindreamSuche = windreamsuche

110
ToolCollection/ClassMO_RE.vb
View File

@ -1,11 +1,17 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.IO Imports System.IO
Imports WINDREAMLib Imports WINDREAMLib
Imports DigitalData.Modules.Logging
Public Class ClassMO_RE Public Class ClassMO_RE
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _windreamNI As ClassNIWindream 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) Public Shared Function Return_Datatable(Select_anweisung As String)
Try Try
Dim sw As New ClassStopwatch("Return_Datatable")
Dim SQLconnection As New SqlClient.SqlConnection(My.Settings.DD_DMSConnectionString) Dim SQLconnection As New SqlClient.SqlConnection(My.Settings.DD_DMSConnectionString)
Dim SQLcommand As New SqlCommand(Select_anweisung, SQLconnection) Dim SQLcommand As New SqlCommand(Select_anweisung, SQLconnection)
SQLconnection.Open() SQLconnection.Open()
@ -15,23 +21,31 @@ Public Class ClassMO_RE
Dim dt As DataTable = New DataTable() Dim dt As DataTable = New DataTable()
adapter1.Fill(dt) adapter1.Fill(dt)
SQLconnection.Close() SQLconnection.Close()
Dim msg = sw.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return dt Return dt
Catch ex As Exception Catch ex As Exception
ClassLoggerNI.Add("FEHLER IN MO_RE Return_Datatable: " & ex.Message & " SQL: " & Select_anweisung) _Logger.Error(ex)
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function Execute_Command(ExecuteCMD As String) Public Shared Function Execute_Command(ExecuteCMD As String)
Try Try
Dim sw As New ClassStopwatch("Execute_MSSQL_Command")
Dim SQLconnection As New SqlClient.SqlConnection(My.Settings.DD_DMSConnectionString) Dim SQLconnection As New SqlClient.SqlConnection(My.Settings.DD_DMSConnectionString)
Dim SQLcommand As New SqlCommand(ExecuteCMD, SQLconnection) Dim SQLcommand As New SqlCommand(ExecuteCMD, SQLconnection)
SQLconnection.Open() SQLconnection.Open()
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnection.Close() SQLconnection.Close()
Dim msg = sw.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}")
Return True Return True
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function
@ -41,37 +55,43 @@ Public Class ClassMO_RE
Dim _MRDeskrIndex Dim _MRDeskrIndex
Dim _path, _praefix, _kunde, _ziel As String Dim _path, _praefix, _kunde, _ziel As String
If My.Settings.vLogErrorsonly = False Then
ClassLoggerNI.Add(">> Ausgelesener Kundenidentifikator: " & _MRKUNDE, False) _Logger.Debug(">> Ausgelesener Kundenidentifikator: " & _MRKUNDE)
ClassLoggerNI.Add(">> Ausgelesene Dokumentart: " & _MRDOKART, False) _Logger.Debug(">> Ausgelesene Dokumentart: " & _MRDOKART)
End If Dim oSelect As String
If _MRKUNDE Is Nothing Or _MRKUNDE = "" Then If _MRKUNDE Is Nothing Or _MRKUNDE = "" Then
'Auslesen der MORE-Konfiguration für Kunde und Standard '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')") oSelect = "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) DT = Return_Datatable(oSelect)
_Logger.Debug(oSelect)
Else Else
If _MRKUNDE = "Standard-VZ" Then _MRKUNDE = "Standard" 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 '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 & "'))") DT = Return_Datatable(oSelect)
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) _Logger.Debug("Select2: " & oSelect)
End If End If
If DT.Rows.Count = 0 Then 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 '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')") DT = Return_Datatable(oSelect)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Select3: " & "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = 'STANDARD')", False) _Logger.Debug("Select3: " & oSelect)
End If End If
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
'Es liegt sowohl Kunde als auch Dokumentart vor 'Es liegt sowohl Kunde als auch Dokumentart vor
Try 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) _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 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 Return False
End Try End Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Ausgelesener Deskriptiver Index: " & _MRDeskrIndex, False) _Logger.Debug("Ausgelesener Deskriptiver Index: " & _MRDeskrIndex)
'Datei-Paramter auslesen 'Datei-Paramter auslesen
Dim extension As String = Path.GetExtension(vDatei) 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 As String = DT.Rows(0).Item("UO_IDX1")
Dim _UOindex_Value As String = "" Dim _UOindex_Value As String = ""
If _UOindex <> "" Then If _UOindex <> "" Then
Dim sw As New ClassStopwatch($"GetVariableValue _UOindex({_UOindex})")
_UOindex_Value = dokument.GetVariableValue(_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 If Not _UOindex_Value Is Nothing Then
_path &= "\" & _UOindex_Value _path &= "\" & _UOindex_Value
If _path.Contains(" 00:00:00") Then _path = _path.Replace(" 00:00:00", "") 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
End If End If
'Unterordner Index 2 'Unterordner Index 2
_UOindex = DT.Rows(0).Item("UO_IDX2") _UOindex = DT.Rows(0).Item("UO_IDX2")
If _UOindex <> "" Then If _UOindex <> "" Then
Dim sw As New ClassStopwatch($"GetVariableValue _UOindex({_UOindex})")
_UOindex_Value = dokument.GetVariableValue(_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 If Not _UOindex_Value Is Nothing Then
_path &= "\" & _UOindex_Value _path &= "\" & _UOindex_Value
If _path.Contains(" 00:00:00") Then _path = _path.Replace(" 00:00:00", "") 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
End If End If
_UOindex = DT.Rows(0).Item("UO_IDX3") _UOindex = DT.Rows(0).Item("UO_IDX3")
If _UOindex <> "" Then If _UOindex <> "" Then
Dim sw As New ClassStopwatch($"GetVariableValue _UOindex({_UOindex})")
_UOindex_Value = dokument.GetVariableValue(_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 If Not _UOindex_Value Is Nothing Then
_path &= "\" & _UOindex_Value _path &= "\" & _UOindex_Value
If _path.Contains(" 00:00:00") Then _path = _path.Replace(" 00:00:00", "") 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
End If End If
@ -122,10 +151,10 @@ Public Class ClassMO_RE
'Dem Neuen Dateinamen schon mal das Präfix mitgeben 'Dem Neuen Dateinamen schon mal das Präfix mitgeben
_newfilename = _praefix _newfilename = _praefix
_newfilename = _newfilename & _MRDeskrIndex & extension _newfilename = _newfilename & _MRDeskrIndex & extension
If My.Settings.vLogErrorsonly = False Then
ClassLoggerNI.Add(">> Ausgelesener Pfad: " & _path, False) _Logger.Debug("Ausgelesener Pfad: " & _path)
ClassLoggerNI.Add(">> Neuer Dateiname: " & _newfilename, False) _Logger.Debug("Neuer Dateiname: " & _newfilename)
End If
'### VERSIONIERUNG ### '### VERSIONIERUNG ###
Dim version As Integer = 2 Dim version As Integer = 2
Dim Stammname As String = _newfilename.Substring(0, _newfilename.LastIndexOf(".")) Dim Stammname As String = _newfilename.Substring(0, _newfilename.LastIndexOf("."))
@ -139,42 +168,47 @@ Public Class ClassMO_RE
_ziel = _path & "\" & _newfilename _ziel = _path & "\" & _newfilename
If My.Settings.vLogErrorsonly = False Then 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) _Logger.Debug("Neuer Dateiname: " & _newfilename)
ClassLoggerNI.Add(">> Quelle: " & vDatei, False) _Logger.Debug("Quelle: " & vDatei)
ClassLoggerNI.Add(">> Ziel: " & _ziel, False) _Logger.Debug("Ziel: " & _ziel)
End If End If
If myFolderPath <> _path Then If myFolderPath <> _path Then
My.Computer.FileSystem.MoveFile(vDatei, _ziel) _windreamNI.NEW_MOVE_FILE(_ziel, vDatei, "MO_RE")
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Erfolgsmeldung - Datei wurde erfolgreich verschoben", False) 'ClassLoggerNI.Add(" ######### Erfolgsmeldung - Datei wurde erfolgreich umbenannt und verschoben ###########")
'ClassLoggerNI.Add(" ######### Erfolgsmeldung - Datei wurde erfolgreich umbenannt und verschoben ###########", False)
Else 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) 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 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')") "('" & vDatei & "','" & _ziel & "','" & _kunde & "','" & _MRDeskrIndex & "','" & _MRDOKART & "','ToolCollection MORE')")
Return _ziel Return _ziel
Else
_Logger.Info("MO_RE Result was not 1 row: check select..." & oSelect)
Return False
End If End If
Catch ex As Exception Catch ex As Exception
ClassLoggerNI.Add(" Fehler in ClassMO_RE - RUN_MO_RE", False) _Logger.Error(ex)
ClassLoggerNI.Add(" ## Fehlermeldung ##", False) MsgBox(ex.Message, MsgBoxStyle.Critical)
ClassLoggerNI.Add(" " & ex.Message, False)
Return False Return False
End Try End Try
End Function End Function
Private Shared Function file_exists(ByVal _file As String, ByVal suche As Boolean) Private Shared Function file_exists(ByVal _file As String, ByVal suche As Boolean)
Try Try
_file = _file.Replace("W:", "\\windream\objects")
If System.IO.File.Exists(_file) Then If System.IO.File.Exists(_file) Then
Return True Return True
Else Else
Return False Return False
End If End If
Catch ex As Exception Catch ex As Exception
ClassLoggerNI.Add("Fehler in Funktion bei: file_exists - _file: " & _file & " - Fehler: ", ex) _Logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function

4
ToolCollection/ClassMoReDokumentart.vb
View File

@ -18,7 +18,7 @@
Private _namenskonvention As String Private _namenskonvention As String
Private _zielort 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 _saved As Boolean
'Private _config As ClassNachindexierungKonfiguration = New ClassNachindexierungKonfiguration 'Private _config As ClassNachindexierungKonfiguration = New ClassNachindexierungKonfiguration
@ -38,7 +38,7 @@
Me._dokumentart = vdokumentart Me._dokumentart = vdokumentart
Me._dokumentartindex = vdokumentartindex Me._dokumentartindex = vdokumentartindex
Me._idxadressnrString = vidxadressnrString Me._idxadressnrString = vidxadressnrString
Me._idxadressnr = _windream.GetObjecttypeByName(vidxadressnrString) Me._idxadressnr = _windream.GetObjecttypeByName(vidxadressnrString, False)
Me._namenskonvention = vnamenskonvention Me._namenskonvention = vnamenskonvention
Me._zielort = vZielort Me._zielort = vZielort

2
ToolCollection/ClassMoReDokumentarten.vb
View File

@ -1,7 +1,7 @@
Public Class ClassMoReDokumentarten Public Class ClassMoReDokumentarten
Private Shared _profiles() As ClassMoReDokumentart 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 xmlConfigFile As String
Public Shared Sub Init() Public Shared Sub Init()

230
ToolCollection/ClassNIDatenbankzugriff.vb
View File

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

18
ToolCollection/ClassNIEmail.vb
View File

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

4
ToolCollection/ClassNIProfil.vb
View File

@ -65,7 +65,7 @@
Private _CrFolder_Created_Folder As String Private _CrFolder_Created_Folder As String
Private _CrFolder_move As Boolean 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 _saved As Boolean
'Private _config As ClassNachindexierungKonfiguration = New ClassNachindexierungKonfiguration 'Private _config As ClassNachindexierungKonfiguration = New ClassNachindexierungKonfiguration
@ -89,7 +89,7 @@
ByVal CreaFolderIndex As String, ByVal CreaFolder_Folder As String, ByVal CreaFolder_move As Boolean) ByVal CreaFolderIndex As String, ByVal CreaFolder_Folder As String, ByVal CreaFolder_move As Boolean)
Me._dokumenttypString = dokumenttyp_string Me._dokumenttypString = dokumenttyp_string
Me._dokumenttyp = _windream.GetObjecttypeByName(dokumenttyp_string) Me._dokumenttyp = _windream.GetObjecttypeByName(dokumenttyp_string, False)
Me._originalProfilname = profilname Me._originalProfilname = profilname
Me._originalWindreamSuche = windreamSuche 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 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 xmlConfigFile As String
Public Shared Sub Init() Public Shared Sub Init()
xmlConfigFile = My.Application.Info.DirectoryPath & "\" & My.Settings.vNIConfigDatei xmlConfigFile = My.Application.Info.DirectoryPath & "\" & My.Settings.vNIConfigDatei
ClassNIProfile.LoadFromXmlFile() ClassNIProfile.LoadFromXmlFile()
@ -20,7 +20,8 @@
Return True Return True
Catch ex As Exception Catch ex As Exception
Try 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) 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("<?xml version=""1.0"" encoding=""ISO-8859-1"" standalone=""yes""?>")
fw.WriteLine("<Settings>") fw.WriteLine("<Settings>")
@ -138,8 +139,8 @@
End Sub End Sub
' erstellt ein neues Profil ' erstellt ein neues Profil
Public Shared Sub Add(ByVal profilname As String, ByVal dokumenttyp As String, ByVal windreamSuche 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 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 = "") 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 Try
@ -228,21 +229,21 @@
' das Profilobjekt erstellen ' das Profilobjekt erstellen
ClassNIProfile._profiles(ClassNIProfile.Count - 1) = New ClassNIProfil( _ ClassNIProfile._profiles(ClassNIProfile.Count - 1) = New ClassNIProfil(
profilname, _ profilname,
dokumenttyp, _ dokumenttyp,
windreamSuche, _ windreamSuche,
NiArt, _ NiArt,
xmlEnd, _ xmlEnd,
delete, _ delete,
"", _ "",
dbArt, _ dbArt,
dataSource, _ dataSource,
userId, _ userId,
password, _ password,
initialCatalog, _ initialCatalog,
"", "", "", indexValidation, "", "", "True", "", "", "", _ "", "", "", indexValidation, "", "", "True", "", "", "",
intervall, _ intervall,
"01.01.1900", False, GetFolderIdx, Ordnertyp, "Parent", "", "", False) "01.01.1900", False, GetFolderIdx, Ordnertyp, "Parent", "", "", False)
MsgBox("Das Profil '" & profilname & "' wurde erfolgreich angelegt!", MsgBoxStyle.Information, "Erfolgsmeldung:") MsgBox("Das Profil '" & profilname & "' wurde erfolgreich angelegt!", MsgBoxStyle.Information, "Erfolgsmeldung:")

296
ToolCollection/ClassNIWindream.vb
View File

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

11
ToolCollection/ClassSQLITE.vb
View File

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

69
ToolCollection/ClassWindream_allgemein.vb
View File

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

28
ToolCollection/ClassxmlZugriff.vb
View File

@ -1,14 +1,16 @@
Imports System.Xml Imports System.Xml
Imports DigitalData.Modules.Logging
Public Class ClassxmlZugriff Public Class ClassxmlZugriff
Private email As New ClassNIEmail Private email As New ClassNIEmail
Private Shared _Logger As DigitalData.Modules.Logging.Logger
'führt eine SQL-Anweisung auf der DB aus '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) ' Public Function GetValueFromLuratechxml(ByVal vfilename As String, ByVal vfullfilepath As String, ByVal KnotenString As String, ByVal Profil As String) '
Try Try
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Index-Filename: " & vfilename, False) _Logger.Info("Index-Filename: " & vfilename)
' die nötigen Variablen definieren ' die nötigen Variablen definieren
Dim _xmlDoc As New XmlDocument 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) _xmlDoc.Load(vfullfilepath)
Dim _node As XmlNode Dim _node As XmlNode
@ -16,13 +18,13 @@ Public Class ClassxmlZugriff
KnotenString = KnotenString.Replace("|", "/") KnotenString = KnotenString.Replace("|", "/")
_node = _xmlDoc.SelectSingleNode(KnotenString) _node = _xmlDoc.SelectSingleNode(KnotenString)
If _node Is Nothing Then If _node Is Nothing Then
ClassLoggerNI.Add(" >> ACHTUNG bei File: " & vfilename, False) _Logger.Warn("ACHTUNG bei File: " & vfilename)
ClassLoggerNI.Add(" >> ACHTUNG der Knoten " & KnotenString & " existiert nicht!", False) _Logger.Warn("ACHTUNG der Knoten " & KnotenString & " existiert nicht!")
Return Nothing Return Nothing
Else Else
' MsgBox(_node.InnerText, MsgBoxStyle.Information, file.Name) ' MsgBox(_node.InnerText, MsgBoxStyle.Information, file.Name)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Auslesen aus Knoten: " & KnotenString, False) _Logger.Info("Auslesen aus Knoten: " & KnotenString)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Gelesener Wert: " & _node.InnerText, False) _Logger.Info("Gelesener Wert: " & _node.InnerText)
Return _node.InnerText Return _node.InnerText
End If End If
Else Else
@ -53,12 +55,12 @@ Public Class ClassxmlZugriff
Dim nodeErgebnis = child.SelectSingleNode(REC_NODE) Dim nodeErgebnis = child.SelectSingleNode(REC_NODE)
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Auslesen aus Knoten: '" & child.Name & "'", False) _Logger.Info("Auslesen aus Knoten: '" & child.Name & "'")
If My.Settings.vLogErrorsonly = False Then ClassLoggerNI.Add(" >> Gelesener Wert: '" & nodeErgebnis.InnerText & "'", False) _Logger.Info("Gelesener Wert: '" & nodeErgebnis.InnerText & "'")
Return nodeErgebnis.InnerText Return nodeErgebnis.InnerText
Else Else
ClassLoggerNI.Add(" >> ACHTUNG bei File: " & vfilename, False) _Logger.Warn("ACHTUNG bei File: " & vfilename)
ClassLoggerNI.Add(" >> KEINEN CHILD-NODE für child_nodes gefunden", False) _Logger.Warn("KEINEN CHILD-NODE für child_nodes gefunden")
Return Nothing Return Nothing
End If End If
End If End If
@ -66,7 +68,7 @@ Public Class ClassxmlZugriff
End If End If
Catch ex As Exception Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden ' 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 If My.Settings.vNIMailsenden = True Then
email.Send_EMail("ClassxmlZugriff.GetValueFromLuratechxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message) email.Send_EMail("ClassxmlZugriff.GetValueFromLuratechxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message)
End If 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) Public Function GetValueFromZugFerdxml(ByVal vfilename As String, ByVal vfullfilepath As String, ByVal KnotenString As String, ByVal Profil As String)
Dim returnvalue Dim returnvalue
Try 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 Dim _xmlDoc As New XmlDocument
_xmlDoc.Load(vfullfilepath) _xmlDoc.Load(vfullfilepath)
@ -111,7 +113,7 @@ Public Class ClassxmlZugriff
Return returnvalue Return returnvalue
Catch ex As Exception Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden ' 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 If My.Settings.vNIMailsenden = True Then
email.Send_EMail("ClassxmlZugriff.GetValueFromZugFerdxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message) email.Send_EMail("ClassxmlZugriff.GetValueFromZugFerdxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message)
End If 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> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' 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 ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' 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 Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Public Sub New()
MyBase.New MyBase.New
Me.BeginInit Me.BeginInit
@ -42,7 +42,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false) MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then If (Me.IsBinarySerialized(info, context) = true) Then
@ -77,7 +77,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBNI_NACHBEARBEITUNG_AD() As TBNI_NACHBEARBEITUNG_ADDataTable Public ReadOnly Property TBNI_NACHBEARBEITUNG_AD() As TBNI_NACHBEARBEITUNG_ADDataTable
@ -87,7 +87,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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.BrowsableAttribute(true), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@ -100,7 +100,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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)> _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get Get
@ -109,7 +109,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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)> _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get Get
@ -118,7 +118,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit Me.BeginInit
Me.InitClass Me.InitClass
@ -126,7 +126,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As DSNachbearbeitung = CType(MyBase.Clone,DSNachbearbeitung) Dim cln As DSNachbearbeitung = CType(MyBase.Clone,DSNachbearbeitung)
cln.InitVars cln.InitVars
@ -135,19 +135,19 @@ Partial Public Class DSNachbearbeitung
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Protected Overrides Function ShouldSerializeTables() As Boolean
Return false Return false
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false Return false
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset Me.Reset
@ -171,7 +171,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@ -180,13 +180,13 @@ Partial Public Class DSNachbearbeitung
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Friend Overloads Sub InitVars()
Me.InitVars(true) Me.InitVars(true)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableTBNI_NACHBEARBEITUNG_AD = CType(MyBase.Tables("TBNI_NACHBEARBEITUNG_AD"),TBNI_NACHBEARBEITUNG_ADDataTable) Me.tableTBNI_NACHBEARBEITUNG_AD = CType(MyBase.Tables("TBNI_NACHBEARBEITUNG_AD"),TBNI_NACHBEARBEITUNG_ADDataTable)
If (initTable = true) Then If (initTable = true) Then
@ -197,7 +197,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Private Sub InitClass()
Me.DataSetName = "DSNachbearbeitung" Me.DataSetName = "DSNachbearbeitung"
Me.Prefix = "" Me.Prefix = ""
@ -209,13 +209,13 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Private Function ShouldSerializeTBNI_NACHBEARBEITUNG_AD() As Boolean
Return false Return false
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars Me.InitVars
@ -223,7 +223,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 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 ds As DSNachbearbeitung = New DSNachbearbeitung()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@ -272,7 +272,7 @@ Partial Public Class DSNachbearbeitung
Return type Return type
End Function 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) Public Delegate Sub TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler(ByVal sender As Object, ByVal e As TBNI_NACHBEARBEITUNG_ADRowChangeEvent)
'''<summary> '''<summary>
@ -300,7 +300,7 @@ Partial Public Class DSNachbearbeitung
Private columnID As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Public Sub New()
MyBase.New MyBase.New
Me.TableName = "TBNI_NACHBEARBEITUNG_AD" Me.TableName = "TBNI_NACHBEARBEITUNG_AD"
@ -310,7 +310,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New MyBase.New
Me.TableName = table.TableName Me.TableName = table.TableName
@ -328,14 +328,14 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context) MyBase.New(info, context)
Me.InitVars Me.InitVars
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property PROFILNAMEColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnPROFILNAME Return Me.columnPROFILNAME
@ -343,7 +343,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property MethodeColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnMethode Return Me.columnMethode
@ -351,7 +351,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property RechtenameColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnRechtename Return Me.columnRechtename
@ -359,7 +359,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property GroupUserColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnGroupUser Return Me.columnGroupUser
@ -367,7 +367,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property AccessRightColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnAccessRight Return Me.columnAccessRight
@ -375,7 +375,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property ErstelltwannColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnErstelltwann Return Me.columnErstelltwann
@ -383,7 +383,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property ErstelltwerColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnErstelltwer Return Me.columnErstelltwer
@ -391,7 +391,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnID Return Me.columnID
@ -399,7 +399,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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.Browsable(false)> _
Public ReadOnly Property Count() As Integer Public ReadOnly Property Count() As Integer
Get Get
@ -408,33 +408,33 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Default ReadOnly Property Item(ByVal index As Integer) As TBNI_NACHBEARBEITUNG_ADRow
Get Get
Return CType(Me.Rows(index),TBNI_NACHBEARBEITUNG_ADRow) Return CType(Me.Rows(index),TBNI_NACHBEARBEITUNG_ADRow)
End Get End Get
End Property 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 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 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 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 Public Event TBNI_NACHBEARBEITUNG_ADRowDeleted As TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Public Overloads Sub AddTBNI_NACHBEARBEITUNG_ADRow(ByVal row As TBNI_NACHBEARBEITUNG_ADRow)
Me.Rows.Add(row) Me.Rows.Add(row)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 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 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} Dim columnValuesArray() As Object = New Object() {PROFILNAME, Methode, Rechtename, GroupUser, AccessRight, Erstelltwann, Erstelltwer, Nothing}
@ -444,7 +444,7 @@ Partial Public Class DSNachbearbeitung
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBNI_NACHBEARBEITUNG_ADDataTable = CType(MyBase.Clone,TBNI_NACHBEARBEITUNG_ADDataTable) Dim cln As TBNI_NACHBEARBEITUNG_ADDataTable = CType(MyBase.Clone,TBNI_NACHBEARBEITUNG_ADDataTable)
cln.InitVars cln.InitVars
@ -452,13 +452,13 @@ Partial Public Class DSNachbearbeitung
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBNI_NACHBEARBEITUNG_ADDataTable() Return New TBNI_NACHBEARBEITUNG_ADDataTable()
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Friend Sub InitVars()
Me.columnPROFILNAME = MyBase.Columns("Profilname") Me.columnPROFILNAME = MyBase.Columns("Profilname")
Me.columnMethode = MyBase.Columns("Methode") Me.columnMethode = MyBase.Columns("Methode")
@ -471,7 +471,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Private Sub InitClass()
Me.columnPROFILNAME = New Global.System.Data.DataColumn("Profilname", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me.columnPROFILNAME = New Global.System.Data.DataColumn("Profilname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
Me.columnPROFILNAME.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "PROFILNAME") Me.columnPROFILNAME.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "PROFILNAME")
@ -501,25 +501,25 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Function NewTBNI_NACHBEARBEITUNG_ADRow() As TBNI_NACHBEARBEITUNG_ADRow
Return CType(Me.NewRow,TBNI_NACHBEARBEITUNG_ADRow) Return CType(Me.NewRow,TBNI_NACHBEARBEITUNG_ADRow)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBNI_NACHBEARBEITUNG_ADRow(builder) Return New TBNI_NACHBEARBEITUNG_ADRow(builder)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBNI_NACHBEARBEITUNG_ADRow) Return GetType(TBNI_NACHBEARBEITUNG_ADRow)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e) MyBase.OnRowChanged(e)
If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowChangedEvent) Is Nothing) Then If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowChangedEvent) Is Nothing) Then
@ -528,7 +528,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e) MyBase.OnRowChanging(e)
If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowChangingEvent) Is Nothing) Then If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowChangingEvent) Is Nothing) Then
@ -537,7 +537,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e) MyBase.OnRowDeleted(e)
If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowDeletedEvent) Is Nothing) Then If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowDeletedEvent) Is Nothing) Then
@ -546,7 +546,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e) MyBase.OnRowDeleting(e)
If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowDeletingEvent) Is Nothing) Then If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowDeletingEvent) Is Nothing) Then
@ -555,13 +555,13 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Public Sub RemoveTBNI_NACHBEARBEITUNG_ADRow(ByVal row As TBNI_NACHBEARBEITUNG_ADRow)
Me.Rows.Remove(row) Me.Rows.Remove(row)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 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 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() 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 Private tableTBNI_NACHBEARBEITUNG_AD As TBNI_NACHBEARBEITUNG_ADDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb) MyBase.New(rb)
Me.tableTBNI_NACHBEARBEITUNG_AD = CType(Me.Table,TBNI_NACHBEARBEITUNG_ADDataTable) Me.tableTBNI_NACHBEARBEITUNG_AD = CType(Me.Table,TBNI_NACHBEARBEITUNG_ADDataTable)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Property PROFILNAME() As String
Get Get
Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.PROFILNAMEColumn),String) Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.PROFILNAMEColumn),String)
@ -654,7 +654,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Property Methode() As String
Get Get
Try Try
@ -669,7 +669,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Property Rechtename() As String
Get Get
Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.RechtenameColumn),String) Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.RechtenameColumn),String)
@ -680,7 +680,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Property GroupUser() As String
Get Get
Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.GroupUserColumn),String) Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.GroupUserColumn),String)
@ -691,7 +691,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Property AccessRight() As String
Get Get
Try Try
@ -706,7 +706,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Property Erstelltwann() As Date
Get Get
Try Try
@ -721,7 +721,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Property Erstelltwer() As String
Get Get
Try Try
@ -736,7 +736,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Property ID() As Integer
Get Get
Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.IDColumn),Integer) Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.IDColumn),Integer)
@ -747,49 +747,49 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Function IsMethodeNull() As Boolean
Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.MethodeColumn) Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.MethodeColumn)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Public Sub SetMethodeNull()
Me(Me.tableTBNI_NACHBEARBEITUNG_AD.MethodeColumn) = Global.System.Convert.DBNull Me(Me.tableTBNI_NACHBEARBEITUNG_AD.MethodeColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Function IsAccessRightNull() As Boolean
Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.AccessRightColumn) Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.AccessRightColumn)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Public Sub SetAccessRightNull()
Me(Me.tableTBNI_NACHBEARBEITUNG_AD.AccessRightColumn) = Global.System.Convert.DBNull Me(Me.tableTBNI_NACHBEARBEITUNG_AD.AccessRightColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Function IsErstelltwannNull() As Boolean
Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwannColumn) Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwannColumn)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Public Sub SetErstelltwannNull()
Me(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwannColumn) = Global.System.Convert.DBNull Me(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwannColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public Function IsErstelltwerNull() As Boolean
Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwerColumn) Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwerColumn)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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() Public Sub SetErstelltwerNull()
Me(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwerColumn) = Global.System.Convert.DBNull Me(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwerColumn) = Global.System.Convert.DBNull
End Sub End Sub
@ -798,7 +798,7 @@ Partial Public Class DSNachbearbeitung
'''<summary> '''<summary>
'''Row event argument class '''Row event argument class
'''</summary> '''</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 Public Class TBNI_NACHBEARBEITUNG_ADRowChangeEvent
Inherits Global.System.EventArgs Inherits Global.System.EventArgs
@ -807,7 +807,7 @@ Partial Public Class DSNachbearbeitung
Private eventAction As Global.System.Data.DataRowAction Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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) Public Sub New(ByVal row As TBNI_NACHBEARBEITUNG_ADRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New MyBase.New
Me.eventRow = row Me.eventRow = row
@ -815,7 +815,7 @@ Partial Public Class DSNachbearbeitung
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property Row() As TBNI_NACHBEARBEITUNG_ADRow
Get Get
Return Me.eventRow Return Me.eventRow
@ -823,7 +823,7 @@ Partial Public Class DSNachbearbeitung
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get Get
Return Me.eventAction Return Me.eventAction

2320
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" /> <Mapping SourceColumn="UO_IDX5" DataSetColumn="UO_IDX5" />
</Mappings> </Mappings>
<Sources> <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"> <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> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <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: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:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded"> <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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:complexType>
<xs:sequence> <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" /> <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:element>
<xs:annotation> <xs:annotation>
<xs:appinfo> <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_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_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_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_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_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:appinfo>
</xs:annotation> </xs:annotation>
</xs:schema> </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 Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated. the code is regenerated.
</autogenerated>--> </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> <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_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: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_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: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_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" /> <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> </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 CURRENT_START_DATETIME As Date
Public NI_Restart As Boolean = False Public NI_Restart As Boolean = False
@ -12,5 +14,10 @@
Public DI_STREAMRESULTFILE As String Public DI_STREAMRESULTFILE As String
Public CURRENT_MOVE_FILEPATH As String Public CURRENT_MOVE_FILEPATH As String
Public CURRENT_APPLICATION_LOG 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 End Module

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

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

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

@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <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)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
@ -370,7 +370,7 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0"), _ Global.System.Configuration.DefaultSettingValueAttribute("5"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property NI_Durchlauf_Intervall() As Decimal Public Property NI_Durchlauf_Intervall() As Decimal
Get Get
@ -907,6 +907,42 @@ Namespace My
Return CType(Me("NI_WORKING_HOURS"),String) Return CType(Me("NI_WORKING_HOURS"),String)
End Get End Get
End Property 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 Class
End Namespace End Namespace

14
ToolCollection/My Project/Settings.settings
View File

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

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

28
ToolCollection/ToolCollection.vbproj
View File

@ -13,7 +13,7 @@
<AssemblyName>ToolCollection</AssemblyName> <AssemblyName>ToolCollection</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion> <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<PublishUrl>publish\</PublishUrl> <PublishUrl>publish\</PublishUrl>
<Install>true</Install> <Install>true</Install>
<InstallFrom>Disk</InstallFrom> <InstallFrom>Disk</InstallFrom>
@ -86,6 +86,12 @@
<OutputPath>bin\x64\Release\</OutputPath> <OutputPath>bin\x64\Release\</OutputPath>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <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"> <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> <HintPath>packages\EntityFramework.6.0.2\lib\net45\EntityFramework.dll</HintPath>
</Reference> </Reference>
@ -113,11 +119,16 @@
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes> <EmbedInteropTypes>True</EmbedInteropTypes>
</Reference> </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"> <Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath> <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference> </Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" /> <Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />
<Reference Include="System.Configuration.Install" /> <Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.Data.OracleClient" /> <Reference Include="System.Data.OracleClient" />
@ -135,7 +146,11 @@
<Reference Include="System.DirectoryServices" /> <Reference Include="System.DirectoryServices" />
<Reference Include="System.Drawing" /> <Reference Include="System.Drawing" />
<Reference Include="System.EnterpriseServices" /> <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.ServiceProcess" />
<Reference Include="System.Transactions" />
<Reference Include="System.Web.Services" /> <Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" /> <Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" /> <Reference Include="System.Xml" />
@ -178,12 +193,12 @@
<Compile Include="ClassMO_RE.vb" /> <Compile Include="ClassMO_RE.vb" />
<Compile Include="ClassNIDatenbankzugriff.vb" /> <Compile Include="ClassNIDatenbankzugriff.vb" />
<Compile Include="ClassNIEmail.vb" /> <Compile Include="ClassNIEmail.vb" />
<Compile Include="ClassLoggerNI.vb" />
<Compile Include="ClassNIProfil.vb" /> <Compile Include="ClassNIProfil.vb" />
<Compile Include="ClassNIProfile.vb" /> <Compile Include="ClassNIProfile.vb" />
<Compile Include="ClassNIVerknüpfung.vb" /> <Compile Include="ClassNIVerknüpfung.vb" />
<Compile Include="ClassNIVerknüpfungen.vb" /> <Compile Include="ClassNIVerknüpfungen.vb" />
<Compile Include="ClassNIWindream.vb" /> <Compile Include="ClassNIWindream.vb" />
<Compile Include="ClassStopwatch.vb" />
<Compile Include="ClassWD_Rechte.vb" /> <Compile Include="ClassWD_Rechte.vb" />
<Compile Include="ClassWindream_allgemein.vb" /> <Compile Include="ClassWindream_allgemein.vb" />
<Compile Include="ClassxmlZugriff.vb" /> <Compile Include="ClassxmlZugriff.vb" />
@ -337,12 +352,6 @@
<Compile Include="frmNIProfilhinzufuegen.vb"> <Compile Include="frmNIProfilhinzufuegen.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </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"> <Compile Include="frmNI_SQLTest.Designer.vb">
<DependentUpon>frmNI_SQLTest.vb</DependentUpon> <DependentUpon>frmNI_SQLTest.vb</DependentUpon>
</Compile> </Compile>
@ -486,9 +495,6 @@
<EmbeddedResource Include="frmNIProfilhinzufuegen.resx"> <EmbeddedResource Include="frmNIProfilhinzufuegen.resx">
<DependentUpon>frmNIProfilhinzufuegen.vb</DependentUpon> <DependentUpon>frmNIProfilhinzufuegen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmNIVerknuepfungen_Old.resx">
<DependentUpon>frmNIVerknuepfungen_Old.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNI_SQLTest.resx"> <EmbeddedResource Include="frmNI_SQLTest.resx">
<DependentUpon>frmNI_SQLTest.vb</DependentUpon> <DependentUpon>frmNI_SQLTest.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

26
ToolCollection/app.config
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@ -123,7 +123,7 @@
<value>0</value> <value>0</value>
</setting> </setting>
<setting name="NI_Durchlauf_Intervall" serializeAs="String"> <setting name="NI_Durchlauf_Intervall" serializeAs="String">
<value>0</value> <value>5</value>
</setting> </setting>
<setting name="frmDIProfileigenschaften_Loc" serializeAs="String"> <setting name="frmDIProfileigenschaften_Loc" serializeAs="String">
<value>0, 0</value> <value>0, 0</value>
@ -252,10 +252,22 @@
<setting name="NI_WORKING_HOURS" serializeAs="String"> <setting name="NI_WORKING_HOURS" serializeAs="String">
<value>16;17;18;19;20</value> <value>16;17;18;19;20</value>
</setting> </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> </ToolCollection.My.MySettings>
</applicationSettings> </applicationSettings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
</startup> </startup>
<entityFramework> <entityFramework>
<defaultConnectionFactory type="System.Data.Entity.Infrastructure.LocalDbConnectionFactory, EntityFramework"> <defaultConnectionFactory type="System.Data.Entity.Infrastructure.LocalDbConnectionFactory, EntityFramework">
@ -276,4 +288,12 @@
<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"/> <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> </DbProviderFactories>
</system.data> </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> </configuration>

8
ToolCollection/clsHelper.vb
View File

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

18
ToolCollection/clsNIFulltext.vb
View File

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

33
ToolCollection/clsNI_DB.vb
View File

@ -1,7 +1,8 @@
Imports Oracle.ManagedDataAccess.Client Imports Oracle.ManagedDataAccess.Client
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports DigitalData.Modules.Logging
Public Class clsNI_DB 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 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
Try Try
@ -14,7 +15,7 @@ Public Class clsNI_DB
_replace = "'" & _indexvalue & "'" _replace = "'" & _indexvalue & "'"
End If End If
_vsql = sql.Replace("[%" & _indexname & "]", _replace) _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 If _dbTyp = "Oracle" Then
Dim ergebnis As Integer = CheckIndex_oracle(_vsql, datasource, initialcatalog, userid, pw) Dim ergebnis As Integer = CheckIndex_oracle(_vsql, datasource, initialcatalog, userid, pw)
@ -40,7 +41,7 @@ Public Class clsNI_DB
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
ClassLoggerNI.Add("Fehler bei Check_DeskIndexValue", ex.Message) _Logger.Error(ex)
Return 99 Return 99
End Try End Try
Catch ex As Exception Catch ex As Exception
@ -54,7 +55,7 @@ Public Class clsNI_DB
Dim conn As New OracleConnectionStringBuilder Dim conn As New OracleConnectionStringBuilder
Dim connstr As String Dim connstr As String
If host <> "" And servicename <> "" Then 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 & ";" servicename & ")));User Id=" & User & ";Password=" & pw & ";"
Else Else
conn.DataSource = host conn.DataSource = host
@ -69,7 +70,8 @@ Public Class clsNI_DB
Try Try
Oracle_Connection.Open() Oracle_Connection.Open()
Catch ex As Exception Catch ex As Exception
ClassLoggerNI.Add("Fehler bei Verbindung zur Datenbank aufbauen - String: " & connstr, "Message", ex) _Logger.Error(ex)
' DB-Connection schliessen ' DB-Connection schliessen
Return 99 Return 99
Oracle_Connection.Close() Oracle_Connection.Close()
@ -83,14 +85,19 @@ Public Class clsNI_DB
Dim ergebnis As String = Command.ExecuteScalar.ToString Dim ergebnis As String = Command.ExecuteScalar.ToString
Return CLng(ergebnis) Return CLng(ergebnis)
Catch ex As Exception 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 ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLoggerNI.Add("ClassNIDatenbankzugriff.CheckIndex_oracle", "Unbekannter Fehler", ex)
Return 0 Return 0
End Try End Try
End Function 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 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 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 ' die nötigen Variablen definieren
Dim result As Object = Nothing Dim result As Object = Nothing
Dim Connection As SqlConnection = Nothing Dim Connection As SqlConnection = Nothing
@ -111,8 +118,8 @@ Public Class clsNI_DB
Connection = New SqlConnection(con) Connection = New SqlConnection(con)
Connection.Open() Connection.Open()
Catch ex As Exception Catch ex As Exception
ClassLoggerNI.Add("CheckIndex_MSSSQL - Message: " & ex.Message, "Verbindung zur Datenbank aufbauen", ex) _Logger.Warn("CheckIndex_MSSSQL - Message: " & ex.Message)
ClassLoggerNI.Add(">> ConString: " & con, False)
' DB-Connection schliessen ' DB-Connection schliessen
Return Nothing Return Nothing
End Try End Try
@ -120,15 +127,15 @@ Public Class clsNI_DB
Try Try
Command = New SqlCommand(scalar_select, Connection) Command = New SqlCommand(scalar_select, Connection)
Catch ex As Exception 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 Return Nothing
End Try End Try
Dim ergebnis As String = Command.ExecuteScalar.ToString Dim ergebnis As String = Command.ExecuteScalar.ToString
Return CLng(ergebnis) Return CLng(ergebnis)
Catch ex As Exception Catch ex As Exception
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden _Logger.Error(ex)
ClassLoggerNI.Add("Unvorhergesehener Fehler in CheckIndex_MSSSQL - Message: " & ex.Message, "Unbekannter Fehler", ex)
Return 0 Return 0
End Try End Try
End Function End Function

159
ToolCollection/clsNI_WorkFile.vb
View File

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

325
ToolCollection/frmDIHauptseite.vb
View File

@ -6,7 +6,7 @@ Imports System.Collections.ObjectModel
Imports System.Net.Mail Imports System.Net.Mail
Imports System.ServiceProcess Imports System.ServiceProcess
Imports WINDREAMLib Imports WINDREAMLib
Imports DigitalData.Modules.Logging
#End Region #End Region
Public Class frmDIHauptseite Public Class frmDIHauptseite
Dim Formloaded As Boolean = False Dim Formloaded As Boolean = False
@ -14,9 +14,10 @@ Public Class frmDIHauptseite
Private _running As Boolean = False Private _running As Boolean = False
Dim In_Use As Boolean Dim In_Use As Boolean
Private email As New ClassDI_Email 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 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 Public Shared Function Instance() As frmDIHauptseite
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmDIHauptseite _Instance = New frmDIHauptseite
@ -31,11 +32,12 @@ Public Class frmDIHauptseite
Try Try
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
Me.threadDateiimport = New BackgroundWorker() Me.threadDateiimport = New BackgroundWorker()
Me.threadDateiimport.WorkerReportsProgress = True Me.threadDateiimport.WorkerReportsProgress = True
Me.threadDateiimport.WorkerSupportsCancellation = True Me.threadDateiimport.WorkerSupportsCancellation = True
_windream = New ClassWindream_allgemein(_MyLogger)
AddHandler threadDateiimport.DoWork, AddressOf threadDateiimport_DoWork AddHandler threadDateiimport.DoWork, AddressOf threadDateiimport_DoWork
AddHandler threadDateiimport.RunWorkerCompleted, AddressOf threadDateiimport_RunWorkerCompleted AddHandler threadDateiimport.RunWorkerCompleted, AddressOf threadDateiimport_RunWorkerCompleted
AddHandler threadDateiimport.ProgressChanged, AddressOf threadDateiimport_ProgressChanged AddHandler threadDateiimport.ProgressChanged, AddressOf threadDateiimport_ProgressChanged
@ -331,6 +333,8 @@ Public Class frmDIHauptseite
Next Next
End If End If
End If End If
Else
ClassLoggerDI.Add(" windream could not be initialized...", True)
End If End If
'### '###
Catch ex As Exception Catch ex As Exception
@ -354,6 +358,7 @@ Public Class frmDIHauptseite
End Sub End Sub
Public Function func_check_file_use(ByVal filename) As Boolean Public Function func_check_file_use(ByVal filename) As Boolean
filename = filename.Replace("W:", "\\windream\objects")
Dim fs As Integer = FreeFile() Dim fs As Integer = FreeFile()
Dim inuse As Boolean = False Dim inuse As Boolean = False
If File.Exists(filename) Then If File.Exists(filename) Then
@ -974,7 +979,7 @@ Public Class frmDIHauptseite
' Erzeuge Object in windream; VERSUCHT DIE DATEI ZU ÖFFNEN ' 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(".")) 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 ' 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 ' 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)") '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 ' 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 ' 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)") '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 If
End Function 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) Public Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String)
Dim _Step As String = "0" Dim _Step As String = "0"
Try Try
@ -1264,48 +1130,25 @@ Public Class frmDIHauptseite
Return -10 Return -10
End If End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei kopieren von " & filenameQuelle & " nach " & zielpfad.Substring(2) & "\" & Quelldatei_Name & ".", False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei kopieren von " & filenameQuelle & " nach " & zielpfad.Substring(2) & "\" & Quelldatei_Name & ".", False)
Dim Connect Dim oWMObject
Dim Session Dim oFileIO
Dim WMObject Dim oWMStream
Dim aFileIO
Dim aWMStream
Dim wmbrwsr
Dim dmsServer As String
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Connect definieren: CreateObject('Windream.WMConnect')", False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Connect definieren: CreateObject('Windream.WMConnect')", False)
Connect = CreateObject("Windream.WMConnect")
If My.Settings.DLL_WMOTOOL = "" Then 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) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Direkter Verweis auf New WMOTOOLLib.WMFileIO", False)
Else 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) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False)
End If End If
wmbrwsr = CreateObject("WMOBrws.ServerBrowser") Dim LoggedIn = _windream.oWMSession.aLoggedin
'================================================================== If LoggedIn = False Then
' 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
ClassLoggerDI.Add(" - Login on dms-Server failed", False) ClassLoggerDI.Add(" - Login on dms-Server failed", False)
' MsgBox("Login failed. ") ' MsgBox("Login failed. ")
End If End If
Const WMCOMEventWMSessionNeedIndex = 1
'windream Objekte erstellen ohne Indexierungs-Event
Session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
'================================================================== '==================================================================
' check if files exist ' 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) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
_Step = "3" _Step = "3"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) 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 wdFilexists = False Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) 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" _Step = "3.1"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) 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 If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description) 'MsgBox(Err.Description)
@ -1350,7 +1193,7 @@ Public Class frmDIHauptseite
Loop Loop
_Step = "3.1.2" _Step = "3.1.2"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) 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 If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description) 'MsgBox(Err.Description)
@ -1360,16 +1203,16 @@ Public Class frmDIHauptseite
_Step = "3.2" _Step = "3.2"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) 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 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) ' lock object for file system access (to change the file itself)
WMObject.lock() oWMObject.lock()
' set fileIO the local source file ' set fileIO the local source file
aFileIO.bstrOriginalFileName = filenameQuelle oFileIO.bstrOriginalFileName = filenameQuelle
If Err.Number > 0 Then If Err.Number > 0 Then
'MsgBox(Err.Number.ToString) 'MsgBox(Err.Number.ToString)
ClassLoggerDI.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") 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) 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) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return Err.Number
' MsgBox(Err.Description) ' MsgBox(Err.Description)
@ -1377,10 +1220,10 @@ Public Class frmDIHauptseite
_Step = "3.3" _Step = "3.3"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
' open the windream object's file stream for writing ' 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 If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") 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) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return Err.Number
'MsgBox(Err.Description) 'MsgBox(Err.Description)
@ -1389,19 +1232,19 @@ Public Class frmDIHauptseite
' give fileIO helper object the windream stream ' give fileIO helper object the windream stream
_Step = "3.4" _Step = "3.4"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
aFileIO.aWMStream = aWMStream oFileIO.aWMStream = oWMStream
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") 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) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return Err.Number
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
' let fileIO object import the original file into windream ' let fileIO object import the original file into windream
aFileIO.ImportOriginal(True) oFileIO.ImportOriginal(True)
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") 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) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return Err.Number
' MsgBox(Err.Description) ' MsgBox(Err.Description)
@ -1410,19 +1253,19 @@ Public Class frmDIHauptseite
' close the windream file stream ' close the windream file stream
_Step = "3.5" _Step = "3.5"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
aWMStream.Close() oWMStream.Close()
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") 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) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return Err.Number
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
' save new windream object ' save new windream object
WMObject.save() oWMObject.save()
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") 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) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return Err.Number
'MsgBox(Err.Description) 'MsgBox(Err.Description)
@ -1431,10 +1274,10 @@ Public Class frmDIHauptseite
' unlock the windream object ' unlock the windream object
_Step = "3.6" _Step = "3.6"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
WMObject.unlock() oWMObject.unlock()
If Err.Number > 0 Then If Err.Number > 0 Then
ClassLoggerDI.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") 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) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return Err.Number
'MsgBox(Err.Description) 'MsgBox(Err.Description)
@ -1451,7 +1294,7 @@ Public Class frmDIHauptseite
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
If Me.DateiIndexieren(filenameQuelle, endgültigerDateiname) = False Then If Me.DateiIndexieren(filenameQuelle, endgültigerDateiname) = False Then
Try Try
WMObject.Unlock() oWMObject.Unlock()
Catch ex As Exception Catch ex As Exception
End Try End Try
@ -1474,7 +1317,7 @@ Public Class frmDIHauptseite
p = "\" & endgültigerDateiname p = "\" & endgültigerDateiname
End If End If
DI_STREAMRESULTFILE = My.Settings.vWLaufwerk & ":" & p 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 Return True
Else Else
_Step = "5" _Step = "5"
@ -1500,65 +1343,11 @@ Public Class frmDIHauptseite
End Function 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) Private Function file_exists(ByVal _file As String)
Try Try
_file = _file.Replace("W:", "\\windream\objects")
If System.IO.File.Exists(_file) Then If System.IO.File.Exists(_file) Then
Return True Return True
Else Else
@ -1634,7 +1423,7 @@ Public Class frmDIHauptseite
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" ## Indexieren wird gestartet ##", False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" ## Indexieren wird gestartet ##", False)
Try Try
' ein windream-Objekt der Datei anlegen ' 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 Catch ex As Exception
ClassLoggerDI.Add("Could not create windreamobject for filestring: " & filenameZiel, True) ClassLoggerDI.Add("Could not create windreamobject for filestring: " & filenameZiel, True)
ClassLoggerDI.Add("Error: " & ex.Message, False) ClassLoggerDI.Add("Error: " & ex.Message, False)
@ -1653,7 +1442,7 @@ Public Class frmDIHauptseite
If WMObject.aObjectType.aName = "Standard" Then If WMObject.aObjectType.aName = "Standard" Then
Dim profil As ClassDIProfil = Me.selectedProfile Dim profil As ClassDIProfil = Me.selectedProfile
' ihr den entsprechenden Dokumenttyp zuweisen ' 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 ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Objekttyp wird gesetzt", False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Objekttyp wird gesetzt", False)
@ -1881,10 +1670,10 @@ Public Class frmDIHauptseite
Dim indexBeschreibung As String = "" Dim indexBeschreibung As String = ""
'werte Is Nothing Or _ 'werte Is Nothing Or _
' überprüfen ob alle notwendigen Informationen angegeben wurden (sonst abbrechen) ' überprüfen ob alle notwendigen Informationen angegeben wurden (sonst abbrechen)
If filenameZiel Is Nothing Or _ If filenameZiel Is Nothing Or
filenameZiel = "" Or _ filenameZiel = "" Or
index Is Nothing Or _ index Is Nothing Or
index = "" Or _ index = "" Or
Not _windream.ExistIndexInObjekttyp(Me.selectedProfile.DokumenttypString, index) Then 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.") 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) 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 Loop
' wenn die Datei existiert ' wenn die Datei existiert
If fileExists Then 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) ' eine Variable für den umgewandelten Indexwert anlegen (kein Typ, da noch unklar ist was reingeschrieben wird)
Dim convertValue = Nothing Dim convertValue = Nothing
@ -1922,7 +1711,7 @@ Public Class frmDIHauptseite
Try Try
If INDEXIEREN_DURCHFÜHREN Then If INDEXIEREN_DURCHFÜHREN Then
' ein windream-Objekt der Datei anlegen ' 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 If My.Settings.vLogErrorsonly = False Then
ClassLoggerDI.Add(" - windream-Objekt der Datei erzeugt", False) ClassLoggerDI.Add(" - windream-Objekt der Datei erzeugt", False)
ClassLoggerDI.Add(" - Ziel: W:\" & filenameZiel, False) ClassLoggerDI.Add(" - Ziel: W:\" & filenameZiel, False)
@ -1942,7 +1731,7 @@ Public Class frmDIHauptseite
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If WMObject.aObjectType.aName = "Standard" Then If WMObject.aObjectType.aName = "Standard" Then
' ihr den entsprechenden Dokumenttyp zuweisen ' 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 ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
End If End If
End If End If
@ -2469,10 +2258,10 @@ Public Class frmDIHauptseite
End If End If
If Me.selectedProfile.Dokumenttyp Is Nothing Then 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 & _ 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 & _ "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 & _ "Ü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 & _ "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") "gerade angemeldet sind, nicht benutzt werden.", MsgBoxStyle.Exclamation, "Profil mit ungültigem Objekttyp")
Alles_OK = False Alles_OK = False
Exit Sub Exit Sub
@ -2481,7 +2270,7 @@ Public Class frmDIHauptseite
Dim zielVerzeichnisCheck As WINDREAMLib.WMObject = Nothing Dim zielVerzeichnisCheck As WINDREAMLib.WMObject = Nothing
Try 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 Catch ex As Exception
End Try End Try

2
ToolCollection/frmDIProfilEigenschaften.vb
View File

@ -11,7 +11,7 @@ Public Class frmDIProfilEigenschaften
Dim arrProfile(1, 1) As Object Dim arrProfile(1, 1) As Object
Dim Prof_Anzahl As Integer 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 Private Shared _Instance As frmDIProfilEigenschaften = Nothing
Public Shared Function Instance() As frmDIProfilEigenschaften Public Shared Function Instance() As frmDIProfilEigenschaften

4
ToolCollection/frmDIProfilHinzufuegen.vb
View File

@ -1,7 +1,7 @@
Public Class frmDIProfilHinzufuegen Public Class frmDIProfilHinzufuegen
Public oSession Public oSession
Protected _windream As New ClassWindream_allgemein Protected _windream As New ClassWindream_allgemein(CURR_MyLogger)
' Private _parentClass As ClassDateiimport = ClassDateiimport.GetInstance ' Private _parentClass As ClassDateiimport = ClassDateiimport.GetInstance
Private Sub frmProfilHinzufügen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub frmProfilHinzufügen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
@ -15,7 +15,7 @@
End Try End Try
Try Try
Me.oSession = Me._windream.oSession Me.oSession = Me._windream.oWMSession
Catch ex As Exception 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") 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 End Try

2
ToolCollection/frmDIRegelAssistent.vb
View File

@ -28,7 +28,7 @@ Public Class frmDIRegelAssistent
Private _trennzeichen_temp As String = " " Private _trennzeichen_temp As String = " "
Private _value As String = "" Private _value As String = ""
Private _indexe 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 _datumFormat As String = ""
Private _removeZeros As Boolean = False Private _removeZeros As Boolean = False
#End Region #End Region

2
ToolCollection/frmDIRegelverwaltung.vb
View File

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

2
ToolCollection/frmMIParameterHinzufügen.vb
View File

@ -1,6 +1,6 @@
Public Class frmMIParameterHinzufügen Public Class frmMIParameterHinzufügen
Public selectedProfil As ClassMI_Profil 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 Private Sub frmParameterHinzufügen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Me.selectedProfil.DokumenttypString = "" Then 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 ' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
Private _selectedProfile As ClassMI_Profil Private _selectedProfile As ClassMI_Profil
Dim Formloaded As Boolean = False 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 Private Shared _Instance As frmMIProfileigenschaften = Nothing
Public Shared Function Instance() As frmMIProfileigenschaften Public Shared Function Instance() As frmMIProfileigenschaften
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
@ -283,7 +283,7 @@
Me._selectedProfile = ClassMI_Profile.getProfilByName(Me.txtProfilname.Text) Me._selectedProfile = ClassMI_Profile.getProfilByName(Me.txtProfilname.Text)
Me._selectedProfile.Profilname = 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.Servername = Me.txtServername.Text
Me._selectedProfile.WdfSuche = Me.txtWdfSuche.Text Me._selectedProfile.WdfSuche = Me.txtWdfSuche.Text
Me._selectedProfile.ZeigeSuchmaske = Me.chkSuchmaskeZeigen.Checked Me._selectedProfile.ZeigeSuchmaske = Me.chkSuchmaskeZeigen.Checked

4
ToolCollection/frmMI_Profilhinzufuegen.vb
View File

@ -2,7 +2,7 @@
Imports Scripting Imports Scripting
Public Class frmMI_Profilhinzufuegen Public Class frmMI_Profilhinzufuegen
Public oSession Public oSession
Protected _windream As New ClassWindream_allgemein Protected _windream As New ClassWindream_allgemein(CURR_MyLogger)
'Public oSession 'Public oSession
'Public oConnect 'Public oConnect
'Public oBrowser As New WMOBRWSLib.ServerBrowser 'Public oBrowser As New WMOBRWSLib.ServerBrowser
@ -35,7 +35,7 @@ Public Class frmMI_Profilhinzufuegen
Try Try
Me.oSession = Me._windream.oSession Me.oSession = Me._windream.oWMSession
Catch ex As Exception 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") 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 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.cmbDokumentart = New System.Windows.Forms.ComboBox()
Me.WH_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.WH_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView = New System.Windows.Forms.DataGridView() 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.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TableAdapterManager = New ToolCollection.DS_MoreTableAdapters.TableAdapterManager() Me.TableAdapterManager = New ToolCollection.DS_MoreTableAdapters.TableAdapterManager()
Me.TBMO_RE_DOKART_KUNDETableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_DOKART_KUNDETableAdapter() 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.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
Me.WHMO_RE_DOKARTTableAdapter = New ToolCollection.DS_MoreTableAdapters.WHMO_RE_DOKARTTableAdapter() Me.WHMO_RE_DOKARTTableAdapter = New ToolCollection.DS_MoreTableAdapters.WHMO_RE_DOKARTTableAdapter()
Me.TBMO_RE_DOKARTTableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_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() GUIDLabel1 = New System.Windows.Forms.Label()
KUNDEN_NAMELabel = New System.Windows.Forms.Label() KUNDEN_NAMELabel = New System.Windows.Forms.Label()
KUNDE_KURZLabel = New System.Windows.Forms.Label() KUNDE_KURZLabel = New System.Windows.Forms.Label()
@ -360,6 +362,7 @@ Partial Class frmMORE_Verwaltung
'SplitContainer1.Panel2 'SplitContainer1.Panel2
' '
Me.SplitContainer1.Panel2.AutoScroll = True Me.SplitContainer1.Panel2.AutoScroll = True
Me.SplitContainer1.Panel2.Controls.Add(Me.Button2)
Me.SplitContainer1.Panel2.Controls.Add(Label7) Me.SplitContainer1.Panel2.Controls.Add(Label7)
Me.SplitContainer1.Panel2.Controls.Add(Me.txtIDX_UO3) Me.SplitContainer1.Panel2.Controls.Add(Me.txtIDX_UO3)
Me.SplitContainer1.Panel2.Controls.Add(Label6) 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.Location = New System.Drawing.Point(14, 185)
Me.TBMO_RE_KUNDENDataGridView.Name = "TBMO_RE_KUNDENDataGridView" Me.TBMO_RE_KUNDENDataGridView.Name = "TBMO_RE_KUNDENDataGridView"
Me.TBMO_RE_KUNDENDataGridView.ReadOnly = True 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 Me.TBMO_RE_KUNDENDataGridView.TabIndex = 16
' '
'DataGridViewTextBoxColumn8 'DataGridViewTextBoxColumn8
@ -996,7 +999,7 @@ Partial Class frmMORE_Verwaltung
'Button1 'Button1
' '
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(36, 25) Me.Button1.Size = New System.Drawing.Size(36, 25)
Me.Button1.TabIndex = 4 Me.Button1.TabIndex = 4
@ -1009,7 +1012,7 @@ Partial Class frmMORE_Verwaltung
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtZielPfad.Location = New System.Drawing.Point(27, 152) Me.txtZielPfad.Location = New System.Drawing.Point(27, 152)
Me.txtZielPfad.Name = "txtZielPfad" 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 Me.txtZielPfad.TabIndex = 3
' '
'cmbKunde 'cmbKunde
@ -1054,35 +1057,14 @@ Partial Class frmMORE_Verwaltung
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.AutoGenerateColumns = False Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.AutoGenerateColumns = False
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize 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.DataSource = Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Location = New System.Drawing.Point(3, 274) Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Location = New System.Drawing.Point(3, 274)
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Name = "VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView" Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Name = "VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView"
Me.VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.ReadOnly = True 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 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 'VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource
' '
Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource.DataMember = "VWMO_RE_DOKUMENTARTZUORDNUNG" Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource.DataMember = "VWMO_RE_DOKUMENTARTZUORDNUNG"
@ -1131,6 +1113,46 @@ Partial Class frmMORE_Verwaltung
' '
Me.TBMO_RE_DOKARTTableAdapter.ClearBeforeFill = True 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 'frmMORE_Verwaltung
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) 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 Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 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 btnRefresh_WH As System.Windows.Forms.Button
Friend WithEvents WHMO_RE_DOKARTTableAdapter As ToolCollection.DS_MoreTableAdapters.WHMO_RE_DOKARTTableAdapter Friend WithEvents WHMO_RE_DOKARTTableAdapter As ToolCollection.DS_MoreTableAdapters.WHMO_RE_DOKARTTableAdapter
Friend WithEvents TBMO_RE_DOKARTBindingSource As System.Windows.Forms.BindingSource 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_UO1 As System.Windows.Forms.TextBox
Friend WithEvents txtIDX_UO3 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 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 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"> <metadata name="WH_DOKUMENTARTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1284, 56</value> <value>1284, 56</value>
</metadata> </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"> <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> <value>17, 56</value>
</metadata> </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 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 DS_More.TBMO_RE_DOKART.ERFASSTWERColumn.DefaultValue = Environment.UserName
End Sub 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 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 ' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
Private _selectedProfile As ClassNIProfil Private _selectedProfile As ClassNIProfil
Private Shared _Instance As frmNB_AD = Nothing Private Shared _Instance As frmNB_AD = Nothing
@ -7,7 +8,7 @@
Public Shared _Objekttyp As String Public Shared _Objekttyp As String
Dim _windreamRechte As New ClassWD_Rechte Dim _windreamRechte As New ClassWD_Rechte
Dim FormClose = False Dim FormClose = False
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public Shared Function Instance() As frmNB_AD Public Shared Function Instance() As frmNB_AD
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmNB_AD _Instance = New frmNB_AD
@ -26,7 +27,7 @@
End Sub End Sub
Private Sub frmNB_AD_Load(sender As Object, e As EventArgs) Handles Me.Load 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() _windreamRechte.Init()
' alle Profile in die Toolbar-Combobox eintragen ' alle Profile in die Toolbar-Combobox eintragen
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
@ -164,7 +165,7 @@
End Sub End Sub
Sub Load_Regeln() Sub Load_Regeln()
Try 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) "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 If DT.Rows.Count > 0 Then
btndeleteRegel.Visible = True btndeleteRegel.Visible = True
@ -195,7 +196,7 @@
If DT.Rows.Count = 1 And chkbx_Loeschen.Checked Then If DT.Rows.Count = 1 And chkbx_Loeschen.Checked Then
For Each row As DataRow In DT.Rows For Each row As DataRow In DT.Rows
If row.Item(3).ToString <> "ADMIN" Then 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) "immer ein Rechteträger mit administrativen Rechten sein muss!", MsgBoxStyle.Critical)
End If End If
Next Next
@ -261,8 +262,8 @@
Else Else
loeschen = 0 loeschen = 0
End If End If
If ClassSQLITE.Execute_Command("INSERT INTO TBNI_NACHBEARBEITUNG_AD (NI_PROFILNAME,DEL_ALL_RIGHTS,Domain,Servername,Username,Password,ERSTELLTWER) VALUES (" & _ 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 & "','" & _ "'" & Me._selectedProfile.Profilname & "'," & loeschen & ",'" & txtDomäne.Text & "','" & txtServername.Text & "','" &
txtUser.Text & "','" & txtPW.Text & "','" & Environment.UserName & "')", True) = True Then txtUser.Text & "','" & txtPW.Text & "','" & Environment.UserName & "')", True) = True Then
Lade_Profil(Me._selectedProfile.Profilname) Lade_Profil(Me._selectedProfile.Profilname)
End If End If
@ -279,8 +280,8 @@
Else Else
loeschen = 0 loeschen = 0
End If End If
If ClassSQLITE.Execute_Command("UPDATE TBNI_NACHBEARBEITUNG_AD set Aktiv = " & Aktiv & ",DEL_ALL_RIGHTS = " & loeschen & _ 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 & "', " & _ ", Domain = '" & txtDomäne.Text & "', Servername = '" & txtServername.Text & "', Username = '" & txtUser.Text & "', " &
"Password = '" & txtPW.Text & "', GEAENDERTWER = '" & Environment.UserName & "' where GUID = " & txtID.Text, True) = True Then "Password = '" & txtPW.Text & "', GEAENDERTWER = '" & Environment.UserName & "' where GUID = " & txtID.Text, True) = True Then
Lade_Profil(Me._selectedProfile.Profilname) Lade_Profil(Me._selectedProfile.Profilname)
MsgBox("Die Änderungen wurden erfolgreich gespeichert", MsgBoxStyle.Exclamation, "Erfolgsmeldung") 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 Rechtename As String = ""
Dim deleteall As Boolean = False Dim deleteall As Boolean = False
Dim AccessRight As Integer 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 _windreamRechte As New ClassWD_Rechte
Dim countRegel As Integer Dim countRegel As Integer
Dim _deleteRoles As Boolean = False 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)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIHauptseite))
Me.tcmain = New System.Windows.Forms.TabControl() Me.tcmain = New System.Windows.Forms.TabControl()
Me.tpMain = New System.Windows.Forms.TabPage() Me.tpMain = New System.Windows.Forms.TabPage()
Me.lblNotWorking = New System.Windows.Forms.Label()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblStatus = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblStatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.Label1 = New System.Windows.Forms.Label() 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_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBMO_RE_HISTORYTableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_HISTORYTableAdapter() Me.TBMO_RE_HISTORYTableAdapter = New ToolCollection.DS_MoreTableAdapters.TBMO_RE_HISTORYTableAdapter()
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components) Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.lblNotWorking = New System.Windows.Forms.Label()
Me.tcmain.SuspendLayout() Me.tcmain.SuspendLayout()
Me.tpMain.SuspendLayout() Me.tpMain.SuspendLayout()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
@ -102,7 +102,7 @@ Partial Class frmNIHauptseite
Me.tcmain.Location = New System.Drawing.Point(0, 0) Me.tcmain.Location = New System.Drawing.Point(0, 0)
Me.tcmain.Name = "tcmain" Me.tcmain.Name = "tcmain"
Me.tcmain.SelectedIndex = 0 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 Me.tcmain.TabIndex = 46
' '
'tpMain 'tpMain
@ -126,17 +126,29 @@ Partial Class frmNIHauptseite
Me.tpMain.Location = New System.Drawing.Point(4, 22) Me.tpMain.Location = New System.Drawing.Point(4, 22)
Me.tpMain.Name = "tpMain" Me.tpMain.Name = "tpMain"
Me.tpMain.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 0
Me.tpMain.Text = "Hauptseite" Me.tpMain.Text = "Hauptseite"
Me.tpMain.UseVisualStyleBackColor = True 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 'StatusStrip1
' '
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblStatus}) 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.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.TabIndex = 45
Me.StatusStrip1.Text = "StatusStrip1" Me.StatusStrip1.Text = "StatusStrip1"
' '
@ -166,16 +178,20 @@ Partial Class frmNIHauptseite
' '
'ProgressBar1 '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.Location = New System.Drawing.Point(11, 304)
Me.ProgressBar1.Name = "ProgressBar1" 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 Me.ProgressBar1.TabIndex = 25
' '
'ProgressBar2 '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.Location = New System.Drawing.Point(11, 344)
Me.ProgressBar2.Name = "ProgressBar2" 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 Me.ProgressBar2.TabIndex = 43
' '
'Label2 'Label2
@ -232,9 +248,9 @@ Partial Class frmNIHauptseite
Me.pnlInfos.Controls.Add(Me.lblDateiTitel) 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.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.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.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.TabIndex = 36
Me.pnlInfos.Visible = False Me.pnlInfos.Visible = False
' '
@ -344,7 +360,7 @@ Partial Class frmNIHauptseite
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 1
Me.TabPage2.Text = "Konfigurationen" Me.TabPage2.Text = "Konfigurationen"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@ -372,7 +388,7 @@ Partial Class frmNIHauptseite
Me.gbEmail.Enabled = False Me.gbEmail.Enabled = False
Me.gbEmail.Location = New System.Drawing.Point(3, 44) Me.gbEmail.Location = New System.Drawing.Point(3, 44)
Me.gbEmail.Name = "gbEmail" 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.TabIndex = 2
Me.gbEmail.TabStop = False Me.gbEmail.TabStop = False
Me.gbEmail.Text = "E-Mail Konfiguration" Me.gbEmail.Text = "E-Mail Konfiguration"
@ -541,7 +557,7 @@ Partial Class frmNIHauptseite
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox3.Location = New System.Drawing.Point(3, 3) Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
Me.GroupBox3.Name = "GroupBox3" 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.TabIndex = 1
Me.GroupBox3.TabStop = False Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Allgemeine Einstellungen:" Me.GroupBox3.Text = "Allgemeine Einstellungen:"
@ -613,23 +629,11 @@ Partial Class frmNIHauptseite
' '
Me.TimerRefresh.Interval = 10000 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 'frmNIHauptseite
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 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.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.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)) 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.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.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.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.Location = New System.Drawing.Point(113, 20)
Me.cmbDbArt.Name = "cmbDbArt" Me.cmbDbArt.Name = "cmbDbArt"
Me.cmbDbArt.Size = New System.Drawing.Size(129, 21) 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 AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
CQAAAk1TRnQBSQFMAgEBAgEAAWABAAFgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CQAAAk1TRnQBSQFMAgEBAgEAAWgBAAFoAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

9
ToolCollection/frmNIProfileigenschaften.vb
View File

@ -1,7 +1,10 @@
Imports System.IO Imports System.IO
Imports Oracle.ManagedDataAccess.Client Imports Oracle.ManagedDataAccess.Client
Imports DigitalData.Modules.Logging
Public Class frmNIProfileigenschaften 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 ' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
Private _selectedProfile As ClassNIProfil Private _selectedProfile As ClassNIProfil
Dim _pos As Integer Dim _pos As Integer
@ -27,7 +30,9 @@ Public Class frmNIProfileigenschaften
' Dieser Aufruf ist für den Windows Form-Designer erforderlich. ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent() 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 ' alle Profile in die Toolbar-Combobox eintragen
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
Try Try

16
ToolCollection/frmNIProfilhinzufuegen.vb
View File

@ -1,7 +1,7 @@
Imports Oracle.ManagedDataAccess.Client Imports Oracle.ManagedDataAccess.Client
Public Class frmNIProfilhinzufuegen Public Class frmNIProfilhinzufuegen
Private _oDokumentTypen As WINDREAMLib.WMObjects 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 Shared _Instance As frmNIProfilhinzufuegen = Nothing
Private licenseManager As ClassLicenseManager = Nothing Private licenseManager As ClassLicenseManager = Nothing
@ -46,7 +46,7 @@ Public Class frmNIProfilhinzufuegen
initialCatalog = Me.txtInitialCatalog.Text initialCatalog = Me.txtInitialCatalog.Text
End If End If
' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist ' 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 If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
@ -55,22 +55,22 @@ Public Class frmNIProfilhinzufuegen
If Me.txtPassword.Text <> "" Then If Me.txtPassword.Text <> "" Then
' das Profil hinzufügen ' 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) Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Me.txtUserId.Text, Me.txtPassword.Text, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
Else Else
' das Profil hinzufügen mit WIN-AUTHENTIFIZIERUNG ' 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) Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Me.txtUserId.Text, "", initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
End If End If
Else Else
If Me.CheckBoxwin_aut.Visible = True And Me.CheckBoxwin_aut.Checked Then If Me.CheckBoxwin_aut.Visible = True And Me.CheckBoxwin_aut.Checked Then
' das Profil hinzufügen - Windows Authentifizierung ' 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) Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, "WINAUTH", Nothing, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
Else Else
' das Profil hinzufügen ' 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) Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Nothing, Nothing, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
End If End If
@ -99,7 +99,7 @@ Public Class frmNIProfilhinzufuegen
Me.cmbEndung_xml.SelectedIndex <> -1 Then Me.cmbEndung_xml.SelectedIndex <> -1 Then
If Me.rbxls.Checked Or Me.rbxml.Checked Then If Me.rbxls.Checked Or Me.rbxml.Checked Then
' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist ' 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 If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
Dim _Typ As String Dim _Typ As String
If Me.rbxml.Checked Then If Me.rbxml.Checked Then
@ -111,7 +111,7 @@ Public Class frmNIProfilhinzufuegen
'DbArt = "Dateityp" 'DbArt = "Dateityp"
'datasource = Dateiendung 'datasource = Dateiendung
'initialCatalog = löschen '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) _Typ, Me.cmbEndung_xml.Text, "", "", "", "", "", Me.cmbIndexValidierung.Text, Me.chkbxdelete.Checked, 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
' und das Formular schließen ' und das Formular schließen
Me.Close() 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.btnTestSQL = New System.Windows.Forms.Button()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.gbUpdate = New System.Windows.Forms.GroupBox() 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.cmbWindreamIndexeSQL = New System.Windows.Forms.ComboBox()
Me.lblDescr_Verknüpfungen = New System.Windows.Forms.Label() Me.lblDescr_Verknüpfungen = New System.Windows.Forms.Label()
Me.Label4 = 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_add = New System.Windows.Forms.RadioButton()
Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton() Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() 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.StatusStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@ -199,12 +200,12 @@ Partial Class frmNIVerknuepfungen
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtfinalSkriptUpdate.BackColor = System.Drawing.Color.LemonChiffon 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.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, 40) Me.txtfinalSkriptUpdate.Location = New System.Drawing.Point(6, 47)
Me.txtfinalSkriptUpdate.Multiline = True Me.txtfinalSkriptUpdate.Multiline = True
Me.txtfinalSkriptUpdate.Name = "txtfinalSkriptUpdate" Me.txtfinalSkriptUpdate.Name = "txtfinalSkriptUpdate"
Me.txtfinalSkriptUpdate.RightToLeft = System.Windows.Forms.RightToLeft.No 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 Me.txtfinalSkriptUpdate.TabIndex = 29
' '
'cmbDatenbankSpalten 'cmbDatenbankSpalten
@ -411,9 +412,9 @@ Partial Class frmNIVerknuepfungen
Me.GroupBox1.Controls.Add(Me.Button3) Me.GroupBox1.Controls.Add(Me.Button3)
Me.GroupBox1.Controls.Add(Me.Button1) 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.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.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.TabIndex = 50
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Laufzeit-Variablen" 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.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.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.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.Name = "btnWindreamIndexEinfügenSQL"
Me.btnWindreamIndexEinfügenSQL.RightToLeft = System.Windows.Forms.RightToLeft.No 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.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 Me.btnWindreamIndexEinfügenSQL.UseVisualStyleBackColor = True
' '
'lbxQuelle1 'lbxQuelle1
@ -559,7 +563,7 @@ Partial Class frmNIVerknuepfungen
Me.Label9.AutoSize = True 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.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.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.Name = "Label9"
Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label9.Size = New System.Drawing.Size(92, 13) Me.Label9.Size = New System.Drawing.Size(92, 13)
@ -569,6 +573,7 @@ Partial Class frmNIVerknuepfungen
' '
'gbUpdate 'gbUpdate
' '
Me.gbUpdate.Controls.Add(Me.Button5)
Me.gbUpdate.Controls.Add(Me.Label1) Me.gbUpdate.Controls.Add(Me.Label1)
Me.gbUpdate.Controls.Add(Me.lblsaveSQLAnweisung) Me.gbUpdate.Controls.Add(Me.lblsaveSQLAnweisung)
Me.gbUpdate.Controls.Add(Me.GroupBox1) Me.gbUpdate.Controls.Add(Me.GroupBox1)
@ -585,13 +590,51 @@ Partial Class frmNIVerknuepfungen
Me.gbUpdate.TabStop = False Me.gbUpdate.TabStop = False
Me.gbUpdate.Text = "SQL-Befehl oder Skript (ausgeführt nach jedem Dateidurchlauf)" 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 'cmbWindreamIndexeSQL
' '
Me.cmbWindreamIndexeSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.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.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.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.Name = "cmbWindreamIndexeSQL"
Me.cmbWindreamIndexeSQL.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmbWindreamIndexeSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmbWindreamIndexeSQL.Size = New System.Drawing.Size(164, 21) 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.Size = New System.Drawing.Size(1265, 747)
Me.SplitContainer1.SplitterDistance = 521 Me.SplitContainer1.SplitterDistance = 521
Me.SplitContainer1.TabIndex = 51 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 'frmNIVerknuepfungen
' '
@ -2081,4 +2100,5 @@ Partial Class frmNIVerknuepfungen
Friend WithEvents Button1 As Button Friend WithEvents Button1 As Button
Friend WithEvents lblsaveSQLAnweisung As Label Friend WithEvents lblsaveSQLAnweisung As Label
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents Button5 As Button
End Class 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"> <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </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"> <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value> <value>134, 17</value>
</metadata> </metadata>

146
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -6,10 +6,15 @@ Imports System.Xml
Imports System.DirectoryServices Imports System.DirectoryServices
Imports Oracle.ManagedDataAccess.Client Imports Oracle.ManagedDataAccess.Client
Imports System.IO Imports System.IO
Imports DigitalData.Modules.Logging
Public Class frmNIVerknuepfungen Public Class frmNIVerknuepfungen
'Private _MyLogger As LogConfig
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private _selectedProfil As ClassNIProfil Private _selectedProfil As ClassNIProfil
Public Shared _windream As New ClassWindream_allgemein Public Shared _windream As ClassWindream_allgemein
'Zum Speichern der Positionen 'Zum Speichern der Positionen
Dim _pos As Integer Dim _pos As Integer
Dim arrProfile(1, 1) As Object Dim arrProfile(1, 1) As Object
@ -27,7 +32,7 @@ Public Class frmNIVerknuepfungen
Public Shared vDB_Art As String Public Shared vDB_Art As String
Public Shared vInitialCatalog As String Public Shared vInitialCatalog As String
Public Shared vReplace As String Public Shared vReplace As String
Private database As New ClassNIDatenbankzugriff Private database As ClassNIDatenbankzugriff
Private Shared _Instance As frmNIVerknuepfungen = Nothing Private Shared _Instance As frmNIVerknuepfungen = Nothing
Public Shared Function Instance() As frmNIVerknuepfungen Public Shared Function Instance() As frmNIVerknuepfungen
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
@ -36,6 +41,24 @@ Public Class frmNIVerknuepfungen
_Instance.BringToFront() _Instance.BringToFront()
Return _Instance Return _Instance
End Function 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) Public Sub ReDimEx(ByRef MyArray As Object, ByVal iDimX As Integer, ByVal iDimY As Integer)
Dim MyTempArray As Object Dim MyTempArray As Object
@ -54,22 +77,7 @@ Public Class frmNIVerknuepfungen
Next J Next J
Next I Next I
End Sub 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> ''' <summary>
''' Schreibt die Profile in die Combobox in der Toolbar. ''' Schreibt die Profile in die Combobox in der Toolbar.
''' </summary> ''' </summary>
@ -177,6 +185,9 @@ Public Class frmNIVerknuepfungen
Me.chkvkt_Dublette.Visible = False Me.chkvkt_Dublette.Visible = False
Me.Label4.Text = "eindeutiger WD-Index:" Me.Label4.Text = "eindeutiger WD-Index:"
btnaddUniqueIndex.Enabled = True btnaddUniqueIndex.Enabled = True
txtfinalSkriptUpdate.Text = ""
Me.txtCheckIndexSQL.Text = ""
If Me._selectedProfil.Dokumenttyp IsNot Nothing Then If Me._selectedProfil.Dokumenttyp IsNot Nothing Then
'Profilübergreifende Aktualisierungen 'Profilübergreifende Aktualisierungen
Me.pnlZielQuelle.Visible = True Me.pnlZielQuelle.Visible = True
@ -206,9 +217,12 @@ Public Class frmNIVerknuepfungen
'Überprüfungsselect 'Überprüfungsselect
Me.txtCheckIndexSQL.Text = Me._selectedProfil.checkIndexsql Me.txtCheckIndexSQL.Text = Me._selectedProfil.checkIndexsql
'Move and Rename aktiv? 'Move and Rename aktiv?
If Me._selectedProfil.SQL_Anweisung IsNot Nothing Then
If Me._selectedProfil.SQL_Anweisung <> "" Then If Me._selectedProfil.SQL_Anweisung <> "" Then
Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.SQL_Anweisung Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.SQL_Anweisung
End If End If
End If
'################################################## '##################################################
'###### Nachindexierung über xml-Dateien ########## '###### 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})) 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 ' wenn es den aktuellen Index noch in der Indexliste gibt
If Me.lbxIndex.Items.Contains(link.Index) Then 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 ' dann diesen Eintrag löschen
Me.lbxIndex.Items.Remove(link.Index) Me.lbxIndex.Items.Remove(link.Index)
End If End If
End If
Next Next
Else Else
Me.grbFilterDB.Enabled = False 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})) 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 ' wenn es den aktuellen Index noch in der Indexliste gibt
If Me.lbxIndex.Items.Contains(link.Index) Then 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 ' dann diesen Eintrag löschen
Me.lbxIndex.Items.Remove(link.Index) Me.lbxIndex.Items.Remove(link.Index)
End If End If
End If
Next Next
If i = 0 Then If i = 0 Then
pnlfulltext.Enabled = True 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})) 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 ' wenn es den aktuellen Index noch in der Indexliste gibt
If Me.lbxIndex.Items.Contains(link.Index) Then 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 ' dann diesen Eintrag löschen
Me.lbxIndex.Items.Remove(link.Index) Me.lbxIndex.Items.Remove(link.Index)
End If End If
End If
Next Next
Else Else
Me.grbFilterDB.Enabled = False Me.grbFilterDB.Enabled = False
@ -988,7 +1011,7 @@ Public Class frmNIVerknuepfungen
Connection = New OdbcConnection(ConnectionString.ConnectionString) Connection = New OdbcConnection(ConnectionString.ConnectionString)
Connection.Open() Connection.Open()
Catch ex As Exception Catch ex As Exception
ClassLoggerNI.Add("ClassSearchResults.GetValueFromOdbcDb", "Verbindung zur Datenbank aufbauen", ex) _Logger.Error(ex)
' DB-Connection schliessen ' DB-Connection schliessen
Me.CloseOdbcDb(Connection) Me.CloseOdbcDb(Connection)
Return Nothing Return Nothing
@ -1075,7 +1098,7 @@ Public Class frmNIVerknuepfungen
Connection = New OdbcConnection(ConnectionString.ConnectionString) Connection = New OdbcConnection(ConnectionString.ConnectionString)
Connection.Open() Connection.Open()
Catch ex As Exception 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 ' DB-Connection schliessen
Me.CloseOdbcDb(Connection) Me.CloseOdbcDb(Connection)
Return Nothing Return Nothing
@ -1306,8 +1329,11 @@ Public Class frmNIVerknuepfungen
' Liste mit Spalten deselektieren ' Liste mit Spalten deselektieren
Me.lbxQuelle1.SelectedIndex = -1 Me.lbxQuelle1.SelectedIndex = -1
If Me.txtManIndexwert.Text = "" Then 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) Me.lbxIndex.Items.Remove(Me.lbxIndex.SelectedItem)
End If
Else Else
Me.txtManIndexwert.Text = "" Me.txtManIndexwert.Text = ""
End If End If
@ -1411,8 +1437,11 @@ Public Class frmNIVerknuepfungen
Me._selectedProfil._links.AddLink(Me.lbxIndex.SelectedItem, _value, "ft", Ft_area) Me._selectedProfil._links.AddLink(Me.lbxIndex.SelectedItem, _value, "ft", Ft_area)
' Eintrag in ListView machen ' Eintrag in ListView machen
Me.lvwVerknuepfungen.Items.Add(New Windows.Forms.ListViewItem(New String() {Me.lbxIndex.SelectedItem, _value, Ft_area})) Me.lvwVerknuepfungen.Items.Add(New Windows.Forms.ListViewItem(New String() {Me.lbxIndex.SelectedItem, _value, Ft_area}))
' den Index aus Liste mit Indexen löschen Dim indextype As String = ClassNIWindream.GetIndex_Type(Me.lbxIndex.SelectedItem)
Me.lbxIndex.Items.Remove(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 ' definieren das am aktuellen Profil Änderungen vorgenommen wurden
Me._selectedProfil.setChanged() Me._selectedProfil.setChanged()
@ -1453,8 +1482,11 @@ Public Class frmNIVerknuepfungen
' Liste mit Spalten deselektieren ' Liste mit Spalten deselektieren
Me.lbxQuelle1.SelectedIndex = -1 Me.lbxQuelle1.SelectedIndex = -1
If Me.txtManIndexwert.Text = "" Then 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) Me.lbxIndex.Items.Remove(Me.lbxIndex.SelectedItem)
End If
Else Else
Me.txtManIndexwert.Text = "" Me.txtManIndexwert.Text = ""
End If End If
@ -2061,7 +2093,7 @@ Public Class frmNIVerknuepfungen
If Me._selectedProfil IsNot Nothing Then If Me._selectedProfil IsNot Nothing Then
Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
If Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then If Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then
Me._selectedProfil.setChanged()
End If End If
End If End If
End Sub End Sub
@ -2075,7 +2107,7 @@ Public Class frmNIVerknuepfungen
If Me._selectedProfil IsNot Nothing Then If Me._selectedProfil IsNot Nothing Then
Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
If Not Me._selectedProfil.SQL_Anweisung = Me._selectedProfil.OriginalSQL_Anweisung Then If Not Me._selectedProfil.SQL_Anweisung = Me._selectedProfil.OriginalSQL_Anweisung Then
Me._selectedProfil.setChanged()
End If End If
End If End If
@ -2526,17 +2558,17 @@ Public Class frmNIVerknuepfungen
If _selectedProfil.DbArt = "Oracle" Then If _selectedProfil.DbArt = "Oracle" Then
Dim ergebnis As Integer = database.CheckIndex_oracle(vSQL, _selectedProfil.DataSource, _selectedProfil.InitialCatalog, _selectedProfil.UserId, _selectedProfil.Password) Dim ergebnis As Integer = database.CheckIndex_oracle(vSQL, _selectedProfil.DataSource, _selectedProfil.InitialCatalog, _selectedProfil.UserId, _selectedProfil.Password)
If ergebnis = 1 Then If ergebnis = 1 Then
MsgBox("Der ausgeführte SQL-Befehl ist gültig: " & vbNewLine & _ MsgBox("Der ausgeführte SQL-Befehl ist gültig: " & vbNewLine &
vSQL & vbNewLine & vbNewLine & _ vSQL & vbNewLine & vbNewLine &
"Zurückgelieferter Wert: (muß = 1 sein) " & vbNewLine & _ "Zurückgelieferter Wert: (muß = 1 sein) " & vbNewLine &
ergebnis, MsgBoxStyle.Information, "Erfolgsmeldung:") ergebnis, MsgBoxStyle.Information, "Erfolgsmeldung:")
Else Else
If ergebnis > 1 Then If ergebnis > 1 Then
MsgBox("Der ausgeführte SQL-Befehl liefert mehr als 1 zurück!" & vbNewLine & _ MsgBox("Der ausgeführte SQL-Befehl liefert mehr als 1 zurück!" & vbNewLine &
"Bitte überprüfen sie Ihr SQL oder den Testwert!" & vbNewLine & _ "Bitte überprüfen sie Ihr SQL oder den Testwert!" & vbNewLine &
"Ist der zugeordnete index wirklich eindeutig?", MsgBoxStyle.Exclamation, "SQL/Index-Überprüfen:") "Ist der zugeordnete index wirklich eindeutig?", MsgBoxStyle.Exclamation, "SQL/Index-Überprüfen:")
Else 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:") "Bitte überprüfen sie Ihr SQL oder den Testwert!", MsgBoxStyle.Exclamation, "SQL-Überprüfen:")
End If End If
@ -2544,17 +2576,17 @@ Public Class frmNIVerknuepfungen
ElseIf _selectedProfil.DbArt = "MS-SQL" Then ElseIf _selectedProfil.DbArt = "MS-SQL" Then
Dim ergebnis As Integer = database.CheckIndex_MSSSQL(_selectedProfil.Profilname, vSQL, _selectedProfil.DataSource, _selectedProfil.UserId, _selectedProfil.Password, _selectedProfil.InitialCatalog) Dim ergebnis As Integer = database.CheckIndex_MSSSQL(_selectedProfil.Profilname, vSQL, _selectedProfil.DataSource, _selectedProfil.UserId, _selectedProfil.Password, _selectedProfil.InitialCatalog)
If ergebnis = 1 Then If ergebnis = 1 Then
MsgBox("Der ausgeführte SQL-Befehl ist gültig: " & vbNewLine & _ MsgBox("Der ausgeführte SQL-Befehl ist gültig: " & vbNewLine &
vSQL & vbNewLine & vbNewLine & _ vSQL & vbNewLine & vbNewLine &
"Zurückgelieferter Wert: (muß = 1 sein) " & vbNewLine & _ "Zurückgelieferter Wert: (muß = 1 sein) " & vbNewLine &
ergebnis, MsgBoxStyle.Information, "Erfolgsmeldung:") ergebnis, MsgBoxStyle.Information, "Erfolgsmeldung:")
Else Else
If ergebnis > 1 Then If ergebnis > 1 Then
MsgBox("Der ausgeführte SQL-Befehl liefert mehr als 1 zurück!" & vbNewLine & _ MsgBox("Der ausgeführte SQL-Befehl liefert mehr als 1 zurück!" & vbNewLine &
"Bitte überprüfen sie Ihr SQL oder den Testwert!" & vbNewLine & _ "Bitte überprüfen sie Ihr SQL oder den Testwert!" & vbNewLine &
"Ist der zugeordnete index wirklich eindeutig?", MsgBoxStyle.Exclamation, "SQL/Index-Überprüfen:") "Ist der zugeordnete index wirklich eindeutig?", MsgBoxStyle.Exclamation, "SQL/Index-Überprüfen:")
Else 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:") "Bitte überprüfen sie Ihr SQL oder den Testwert!", MsgBoxStyle.Exclamation, "SQL-Überprüfen:")
End If End If
@ -2948,16 +2980,16 @@ Public Class frmNIVerknuepfungen
For Each Str As String In ClassActiveDirectory.ErgebnisAD For Each Str As String In ClassActiveDirectory.ErgebnisAD
msg = msg & Str & vbNewLine msg = msg & Str & vbNewLine
Next 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) "AD-Filter: '" & filter & "'", MsgBoxStyle.Exclamation)
ElseIf Ergebnis = "99" Then 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) "AD-Filter: '" & filter & "'", MsgBoxStyle.Exclamation)
Else Else
If Ergebnis.Contains("-Suchfilter ist ungültig") Then If Ergebnis.Contains("-Suchfilter ist ungültig") Then
MsgBox(Ergebnis, MsgBoxStyle.Exclamation) MsgBox(Ergebnis, MsgBoxStyle.Exclamation)
Else 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) "AD-Filter: '" & filter & "'", MsgBoxStyle.Information)
End If End If
@ -3033,7 +3065,7 @@ Public Class frmNIVerknuepfungen
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
' Überprüfen ob eingegebener Wert gepeichert werden muß? ' Ü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()) ' 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 Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).getSelectAnweisung().ToString
If Original <> Me.txtLDAP_EinschrUserGroup.Text Then If Original <> Me.txtLDAP_EinschrUserGroup.Text Then
@ -3043,7 +3075,7 @@ Public Class frmNIVerknuepfungen
End With End With
End If End If
' die Informationen der selektierten Verknüpfung auslesen ' 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) Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).setSelectAnweisung(Me.txtLDAP_EinschrUserGroup.Text)
' das Profil auf den Status 'geändert' setzen ' das Profil auf den Status 'geändert' setzen
Me._selectedProfil.setChanged() Me._selectedProfil.setChanged()
@ -3150,11 +3182,11 @@ Public Class frmNIVerknuepfungen
Private Sub txtSubstradd_Click(sender As Object, e As EventArgs) Handles btbSubstradd.Click Private Sub txtSubstradd_Click(sender As Object, e As EventArgs) Handles btbSubstradd.Click
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
If txtSubstr_von.Text <> "" And txtSUBSTR_bis.Text <> "" 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 & "])" LDAP_Return_Regex(Me.txtLDAP_EinschrUserGroup.Text) & "," & txtSubstr_von.Text & "," & txtSUBSTR_bis.Text & "])"
End If End If
If txtSubstr_von.Text <> "" And txtSUBSTR_bis.Text = "" 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 & "])" LDAP_Return_Regex(Me.txtLDAP_EinschrUserGroup.Text) & "," & txtSubstr_von.Text & "])"
End If End If
End If End If
@ -3236,7 +3268,7 @@ Public Class frmNIVerknuepfungen
' wenn im ListView eine Zeile selektiert wurde ' wenn im ListView eine Zeile selektiert wurde
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
' Überprüfen ob eingegebener Wert gepeichert werden muß? ' Ü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 "ft").getSelectAnweisung().ToString
If original <> ftarea Then If original <> ftarea Then
With btnSave_FulltextLinks With btnSave_FulltextLinks
@ -3245,7 +3277,7 @@ Public Class frmNIVerknuepfungen
End With End With
End If End If
' die Informationen der selektierten Verknüpfung auslesen ' 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) "ft").setSelectAnweisung(ftarea)
' das Profil auf den Status 'geändert' setzen ' das Profil auf den Status 'geändert' setzen
Me._selectedProfil.setChanged() Me._selectedProfil.setChanged()
@ -3323,12 +3355,12 @@ Public Class frmNIVerknuepfungen
End Sub End Sub
Sub Check_Save_VktInsState() Sub Check_Save_VktInsState()
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then 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 Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).getvktInsState
Dim vktState = Getvktinsert_State() Dim vktState = Getvktinsert_State()
If vktState <> origstate Then If vktState <> origstate Then
Changeinaction = True 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.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).setvktIns(vktState)
Me._selectedProfil.setChanged() Me._selectedProfil.setChanged()
Me._selectedProfil._links.setLinksChanged() Me._selectedProfil._links.setLinksChanged()
@ -3351,8 +3383,17 @@ Public Class frmNIVerknuepfungen
Private Sub tabctrlbottom_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabctrlbottom.SelectedIndexChanged Private Sub tabctrlbottom_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabctrlbottom.SelectedIndexChanged
Select Case tabctrlbottom.SelectedIndex Select Case tabctrlbottom.SelectedIndex
Case 0
If Me._selectedProfil.checkIndexsql <> "" Then
Me.txtCheckIndexSQL.Text = Me._selectedProfil.checkIndexsql
End If
Case 1 Case 1
lblsaveSQLAnweisung.Text = "" lblsaveSQLAnweisung.Text = ""
Me.txtfinalSkriptUpdate.Text = ""
If Me._selectedProfil.SQL_Anweisung <> "" Then
Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.SQL_Anweisung
End If
Case 2 Case 2
If Me._selectedProfil IsNot Nothing Then If Me._selectedProfil IsNot Nothing Then
chbxStatusfertig.Checked = True chbxStatusfertig.Checked = True
@ -3399,4 +3440,13 @@ Public Class frmNIVerknuepfungen
lblsaveSQLAnweisung.Visible = False lblsaveSQLAnweisung.Visible = False
End If End If
End Sub 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 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.Collections.ObjectModel
Imports System.Reflection Imports System.Reflection
Imports System.Globalization Imports System.Globalization
Imports DigitalData.Modules.Logging
Imports System.IO
Public Class frmStart Public Class frmStart
Private _MyLogger As LogConfig
Private Shared _Logger As DigitalData.Modules.Logging.Logger
Public _validModules() Public _validModules()
Public licMore As Boolean = False Public licMore As Boolean = False
Public licNB_AD As Boolean = False Public licNB_AD As Boolean = False
@ -41,6 +45,9 @@ Public Class frmStart
End If End If
End Sub End Sub
Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 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 'Aktueller Benutzer
Me.tslblVersion.Text = Environment.UserName.ToString Me.tslblVersion.Text = Environment.UserName.ToString
Me.Text = Application.CompanyName & "-" & Application.ProductName 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 <> "all" Then
If Me.licenseManager.Licenses.machine.ToLower <> My.Computer.Name.ToLower 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:") "Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz ungültig:")
Me.grbDI.Visible = False Me.grbDI.Visible = False
Me.GBNachindexierung.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 Private Sub TimerNIRestart_Tick(sender As Object, e As EventArgs) Handles TimerNIRestart.Tick
If NI_Restart = True Then If NI_Restart = True Then
My.Settings.NI_RUNNING = True My.Settings.NI_RUNNING = True
ClassLoggerNI.Add(">> Nachindexierung Restart eingeleitet - Form wird neugestartet!", False)
NI_Restart = False NI_Restart = False
Open_NI_Main() Open_NI_Main()
End If End If

1
ToolCollection/packages.config
View File

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