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-04-29 16:33:29 +02:00
parent 8c82b567f8
commit 5a7731d7bd
12 changed files with 183 additions and 184 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ToolCollection/ClassNIDatenbankzugriff.vb
View File

@ -9,7 +9,6 @@ Imports DigitalData.Modules.Database
Imports System.IO Imports System.IO
Public Class ClassNIDatenbankzugriff Public Class ClassNIDatenbankzugriff
Private _MyLogger As LogConfig
Private Shared _Logger As DigitalData.Modules.Logging.Logger Private Shared _Logger As DigitalData.Modules.Logging.Logger
Private Shared _LastStep, _SQL As String Private Shared _LastStep, _SQL As String
Private Shared aTimerCount As Integer = 0 Private Shared aTimerCount As Integer = 0
@ -17,11 +16,9 @@ Public Class ClassNIDatenbankzugriff
Private Shared Oracle_Conn As New OracleConnection Private Shared Oracle_Conn As New OracleConnection
Private _firebird As Firebird Private _firebird As Firebird
Sub New(LogConf As DigitalData.Modules.Logging.LogConfig) Sub New(LogConf As DigitalData.Modules.Logging.LogConfig)
MyBase.New() _Logger = LogConf.GetLogger()
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
If My.Settings.FB_DATASOURCE <> String.Empty Then 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) _firebird = New Firebird(LogConf, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
End If End If

1
ToolCollection/ClassSQLITE.vb
View File

@ -2,7 +2,6 @@
Imports DigitalData.Modules.Logging 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 Passwort_admin As String Public Shared Passwort_admin As String
Private Shared _Logger As DigitalData.Modules.Logging.Logger Private Shared _Logger As DigitalData.Modules.Logging.Logger

4
ToolCollection/ClassWindream_allgemein.vb
View File

@ -171,7 +171,9 @@ Public Class ClassWindream_allgemein
''' <remarks></remarks> ''' <remarks></remarks>
Public Function GetObjecttypesAsObjects() As WMObjects Public Function GetObjecttypesAsObjects() As WMObjects
Try Try
If IsNothing(oObjekttypen) Then
oObjekttypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
End If
Return Me.oObjekttypen Return Me.oObjekttypen
Catch ex As Exception Catch ex As Exception

2
ToolCollection/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.0.0")> <Assembly: AssemblyVersion("2.3.0.1")>
<Assembly: AssemblyFileVersion("1.5.1.0")> <Assembly: AssemblyFileVersion("1.5.1.0")>

24
ToolCollection/clsNIFulltext.vb
View File

@ -3,7 +3,11 @@ Imports WINDREAMLib
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class clsNIFulltext Public Class clsNIFulltext
Private Shared _Logger As DigitalData.Modules.Logging.Logger 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) Sub New(LogConfig As LogConfig)
_Logger = LogConfig.GetLogger
End Sub
Public Shared Function GetValuesFromFulltext(filename As String, 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, "")
If ignorewhitespace = True Then If ignorewhitespace = True Then
@ -42,11 +46,11 @@ Public Class clsNIFulltext
Dim matchcount As Integer = 0 Dim matchcount As Integer = 0
If regexMatch.Success = False Then If regexMatch.Success = False Then
_Logger.Warn(">> ACHTUNG: Keine Vorkommen für diese Regular Expression gefunden") _Logger.Info($"{filename} # 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
_Logger.Info("Using RegexGroups....MatchCount(" & regexMatch.Groups.Count - 1 & ")") _Logger.Info($"{filename} # 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)
@ -64,7 +68,7 @@ Public Class clsNIFulltext
'& "', Position=" & c.Index) '& "', Position=" & c.Index)
' Next ' Next
Console.WriteLine("Group" & i & "='" & g.ToString() & "'") _Logger.Debug($"{filename} # Group" & i & "='" & g.ToString() & "'")
If Pos_From = 0 And Gesamtanzahl = 1 Then If Pos_From = 0 And Gesamtanzahl = 1 Then
'Das Ende ist erreicht - Ausstieg 'Das Ende ist erreicht - Ausstieg
ReDim Preserve Ergebnis(0) ReDim Preserve Ergebnis(0)
@ -111,7 +115,7 @@ Public Class clsNIFulltext
Next Next
regexMatch = regexMatch.NextMatch() regexMatch = regexMatch.NextMatch()
Else Else
_Logger.Info("Using Matchelements.....") _Logger.Info($"{filename} # 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
@ -135,6 +139,10 @@ Public Class clsNIFulltext
ReDim Preserve Ergebnis(0) ReDim Preserve Ergebnis(0)
Ergebnis(0) = Convert.ToString(element.ToString) Ergebnis(0) = Convert.ToString(element.ToString)
Exit_For = True Exit_For = True
Else
ReDim Preserve Ergebnis(0)
Ergebnis(0) = Convert.ToString(element.ToString)
Exit_For = True
End If End If
End If End If
Else Else
@ -154,17 +162,17 @@ Public Class clsNIFulltext
If Ergebnis.Length >= 1 Then If Ergebnis.Length >= 1 Then
Return Ergebnis Return Ergebnis
Else Else
_Logger.Warn("ACHTUNG: Array-Ergebnis Length = 0") _Logger.Info($"{filename} # ACHTUNG: Array-Ergebnis Length = 0")
Return Nothing Return Nothing
End If End If
Else Else
_Logger.Warn("ACHTUNG: Keine Vorkommen für diese Regular Expression gefunden") _Logger.Info($"{filename} # 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
_Logger.Error(ex) _Logger.Error(ex)
Return Nothing Return Nothing
End Try End Try
End Function End Function

4
ToolCollection/clsNI_WorkFile.vb
View File

@ -98,7 +98,7 @@ Public Class clsNI_WorkFile
If clsHelper.file_exists(_pathxmlfile, "NI") = False Then If clsHelper.file_exists(_pathxmlfile, "NI") = False Then
_Logger.Warn(" >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!") _Logger.Warn(" >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!")
'Fehlermeldung eintragen 'Fehlermeldung eintragen
Indexiere_ErrorIndex("Nachindexdatei NOT EXISTING", _WDFileINWORK, aktivesProfil.IndexFehler) Indexiere_ErrorIndex("Nachindexdatei NOT EXISTING", _WDFileINWORK, My.Settings.ERROR_INDEX)
errormsg &= " >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!" errormsg &= " >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!"
Return True Return True
End If End If
@ -248,7 +248,7 @@ Public Class clsNI_WorkFile
pos_bis = 0 pos_bis = 0
_Logger.Debug("- 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(_dokument.aName, fulltext, Volltext_Indexierung.Spalte, pos_von, pos_bis, ign_whitespace)
If Not ErgebnisArray Is Nothing Then If Not ErgebnisArray Is Nothing Then
'im Array mehrfachvorkommen ausschliessen 'im Array mehrfachvorkommen ausschliessen
ErgebnisArray = ErgebnisArray.Distinct.ToArray ErgebnisArray = ErgebnisArray.Distinct.ToArray

125
ToolCollection/frmDIHauptseite.vb
View File

@ -74,7 +74,7 @@ Public Class frmDIHauptseite
Private bgwQuelldatei = "" Private bgwQuelldatei = ""
Private bgwZielordner = "" Private bgwZielordner = ""
Private übertragen_erfolgreich 'As Boolean = False Private oWMStream_Result As Boolean = False
Private ErgebnisNochNichtLöschen As Boolean = False Private ErgebnisNochNichtLöschen As Boolean = False
@ -531,7 +531,7 @@ Public Class frmDIHauptseite
'File in Array speichern 'File in Array speichern
fileAusschluss_List.Add(filenameQuelle) fileAusschluss_List.Add(filenameQuelle)
Me.übertragen_erfolgreich = False Me.oWMStream_Result = False
Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100)
Me.dateienImportiert += 1 Me.dateienImportiert += 1
Else Else
@ -548,7 +548,7 @@ Public Class frmDIHauptseite
End If End If
'File in Array speichern 'File in Array speichern
fileAusschluss_List.Add(filenameQuelle) fileAusschluss_List.Add(filenameQuelle)
Me.übertragen_erfolgreich = False Me.oWMStream_Result = False
Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100)
Me.dateienImportiert += 1 Me.dateienImportiert += 1
Else Else
@ -621,17 +621,19 @@ Public Class frmDIHauptseite
Dim index As Integer = Me.selectedProfile.OriginalQuellordner.Length Dim index As Integer = Me.selectedProfile.OriginalQuellordner.Length
Dim SubPath As String = IO.Path.GetDirectoryName(bgwQuelldatei).Substring(index) Dim SubPath As String = IO.Path.GetDirectoryName(bgwQuelldatei).Substring(index)
Dim Zielordner As String Dim oZielOrdner As String
If SubPath = "" Then If SubPath = "" Then
Zielordner = Me.selectedProfile.OriginalZielordner oZielOrdner = Me.selectedProfile.OriginalZielordner
Else Else
Zielordner = Me.selectedProfile.OriginalZielordner & SubPath oZielOrdner = Me.selectedProfile.OriginalZielordner & SubPath
End If End If
'Die Datei nun nach windream übertragen 'Die Datei nun nach windream übertragen
Me.übertragen_erfolgreich = Stream_File(Me.bgwQuelldatei, Zielordner) 'Me.selectedProfile.OriginalZielordner
DI_STREAMRESULTFILE = ""
Me.oWMStream_Result = Stream_File(Me.bgwQuelldatei, oZielOrdner) 'Me.selectedProfile.OriginalZielordner
'DateiÜbertragen_Schleife(Me.bgwQuelldatei, Me.selectedProfile.OriginalZielordner) ' ' 'DateiÜbertragen_Schleife(Me.bgwQuelldatei, Me.selectedProfile.OriginalZielordner) ' '
' dann windream-Festplatte voll ' dann windream-Festplatte voll
If (Me.übertragen_erfolgreich = -10) Or (Me.übertragen_erfolgreich = 91) Then If Me.oWMStream_Result = False Then
Me.CriticalErrorInBackgroundWorker = True Me.CriticalErrorInBackgroundWorker = True
Else Else
'Schwerwiegender Fehler in der Dateiübertragung 'Schwerwiegender Fehler in der Dateiübertragung
@ -639,7 +641,7 @@ Public Class frmDIHauptseite
End If End If
' hier nochmal prüfen, da der Fehler gerade erst aufgetreten sein kann ' hier nochmal prüfen, da der Fehler gerade erst aufgetreten sein kann
If Not CriticalErrorInBackgroundWorker Then If Not CriticalErrorInBackgroundWorker Then
If Me.übertragen_erfolgreich = True Then If Me.oWMStream_Result = True Then
Try Try
Dim extension As String = Replace(Path.GetExtension(DI_STREAMRESULTFILE), ".", "").ToUpper Dim extension As String = Replace(Path.GetExtension(DI_STREAMRESULTFILE), ".", "").ToUpper
TBDD_REPORTING_IMPORTTableAdapter.Insert(DI_STREAMRESULTFILE, manProfile, DI_FILESIZE, DI_PAGECOUNT, extension) TBDD_REPORTING_IMPORTTableAdapter.Insert(DI_STREAMRESULTFILE, manProfile, DI_FILESIZE, DI_PAGECOUNT, extension)
@ -678,13 +680,12 @@ Public Class frmDIHauptseite
If Err.Description.Contains("CTL_E_PATHNOTFOUND") Or Err.Description.Contains("angegebene Netzwerkname ist nicht mehr verfügbar") Then If Err.Description.Contains("CTL_E_PATHNOTFOUND") Or Err.Description.Contains("angegebene Netzwerkname ist nicht mehr verfügbar") Then
'DAS Windream-Laufwerk ist nicht verfügbar! 'DAS Windream-Laufwerk ist nicht verfügbar!
CriticalErrorInBackgroundWorker = True CriticalErrorInBackgroundWorker = True
Me.übertragen_erfolgreich = -20
Import_Abbrechen() Import_Abbrechen()
If My.Settings.vDIMailSenden = True Then If My.Settings.vDIMailSenden = True Then
email.Send_EMail("ESKALATIONSTUFE 1: Schwerwiegender Fehler in Dateiimporter windream <br>ERROR: " & Err.Description & "<br> DAS WINDREAM-LAUFWERK oder der Netzwerkname IST NICHT VERFÜGBAR!<br>" & _ email.Send_EMail("ESKALATIONSTUFE 1: Schwerwiegender Fehler in Dateiimporter windream <br>ERROR: " & Err.Description & "<br> DAS WINDREAM-LAUFWERK oder der Netzwerkname IST NICHT VERFÜGBAR!<br>" &
"Der Importvorgang wurde abgebrochen!<br>Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!") "Der Importvorgang wurde abgebrochen!<br>Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!")
End If End If
MsgBox("Schwerwiegender Fehler in Dateiimporter windream!" & vbNewLine & "ERROR: " & Err.Description & vbNewLine & "DAS WINDREAM-LAUFWERK IST NICHT VERFÜGBAR!" & vbNewLine & _ MsgBox("Schwerwiegender Fehler in Dateiimporter windream!" & vbNewLine & "ERROR: " & Err.Description & vbNewLine & "DAS WINDREAM-LAUFWERK IST NICHT VERFÜGBAR!" & vbNewLine &
"Der Importvorgang wurde abgebrochen!" & vbNewLine & "Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!") "Der Importvorgang wurde abgebrochen!" & vbNewLine & "Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!")
Exit Sub Exit Sub
Else Else
@ -700,39 +701,11 @@ Public Class frmDIHauptseite
Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100)
Me.dateienImportiert += 1 Me.dateienImportiert += 1
Else Else
Select Case Me.übertragen_erfolgreich
Case -10
MsgBox("Der Speicherplatz auf dem windream-Laufwerk reicht zum Speichern der Datei nicht aus." & vbNewLine & "Der Importvorgang wurde abgebrochen!", MsgBoxStyle.Critical, "Nicht ausreichend Speicherplatz")
Case -20
MsgBox("Das windream Laufwerk ist nicht mehr erreichbar!" & vbNewLine & "Der Importvorgang wurde abgebrochen!", MsgBoxStyle.Critical, "Fehler:")
Case 91
MsgBox("Fehler in einem Bibliothekenverweis!" & vbNewLine & "Der Importvorgang wurde abgebrochen!", MsgBoxStyle.Critical, "Fehler:")
End Select
Me.übertragen_erfolgreich = False
CriticalErrorInBackgroundWorker = False CriticalErrorInBackgroundWorker = False
Me.threadDateiimport.CancelAsync() Me.threadDateiimport.CancelAsync()
Exit Sub Exit Sub
End If End If
Select Case Me.übertragen_erfolgreich
Case -20
CriticalErrorInBackgroundWorker = True
Me.threadDateiimport.CancelAsync()
If My.Settings.vDIMailSenden = True Then
email.Send_EMail("Schwerwiegender Fehler in Dateiimporter windream <br>ERROR: " & Err.Description & "<br> DAS WINDREAM-LAUFWERK IST NICHT VERFÜGBAR!<br>" & _
"Der Importvorgang wurde abgebrochen!<br>Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!")
End If
MsgBox("Das windream Laufwerk ist nicht mehr erreichbar! Starten Sie windream und den den Dateiimporter neu!!" & vbNewLine & "Der Importvorgang wurde abgebrochen!", MsgBoxStyle.Critical, "Fehler:")
Case 91
CriticalErrorInBackgroundWorker = True
Me.threadDateiimport.CancelAsync()
If My.Settings.vDIMailSenden = True Then
email.Send_EMail("Schwerwiegender Fehler in Dateiimporter windream <br>ERROR: " & Err.Description & "<br> Bibliothekenverweise <br>" & _
"Der Importvorgang wurde abgebrochen!")
End If
End Select
If Me.threadDateiimport.CancellationPending Then If Me.threadDateiimport.CancellationPending Then
Exit Sub Exit Sub
End If End If
@ -766,7 +739,7 @@ Public Class frmDIHauptseite
End If End If
End If End If
Next Next
Else Else
For Each Dir As String In DirList For Each Dir As String In DirList
My.Computer.FileSystem.DeleteDirectory(Dir, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty) My.Computer.FileSystem.DeleteDirectory(Dir, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
@ -808,7 +781,7 @@ Public Class frmDIHauptseite
Me.tvLog.Nodes.Add(dateiname.Substring(Me.txtQuellordner.Text.Length)) Me.tvLog.Nodes.Add(dateiname.Substring(Me.txtQuellordner.Text.Length))
'Console.WriteLine("######## TreeNode (" & dateiname.Substring(Me.txtQuellordner.Text.Length) & "): " & Me.übertragen_erfolgreich) 'Console.WriteLine("######## TreeNode (" & dateiname.Substring(Me.txtQuellordner.Text.Length) & "): " & Me.übertragen_erfolgreich)
If Me.übertragen_erfolgreich = True Then If Me.oWMStream_Result = True Then
If Me.TreeNodeInfos.Count > 0 Then If Me.TreeNodeInfos.Count > 0 Then
'Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes.Add(Me.TreeNodeInfos(Me.dateienImportiert - 1)(0)) 'Me.tvLog.Nodes(Me.dateienImportiert - 1).Nodes.Add(Me.TreeNodeInfos(Me.dateienImportiert - 1)(0))
@ -1127,10 +1100,10 @@ Public Class frmDIHauptseite
Dim length As Long = info.Length Dim length As Long = info.Length
If freeSpace < length Then If freeSpace < length Then
MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz") MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz")
Return -10 Return False - 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 oWMObject Dim oNewWMObject
Dim oFileIO Dim oFileIO
Dim oWMStream Dim oWMStream
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)
@ -1167,7 +1140,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)
oWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) oNewWMObject = _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)
@ -1193,7 +1166,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)
oWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) oNewWMObject = _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)
@ -1203,29 +1176,29 @@ 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 oWMObject IsNot Nothing Then If oNewWMObject 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)
oWMObject.lock() oNewWMObject.lock()
' set fileIO the local source file ' set fileIO the local source file
oFileIO.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)
oWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return False
' MsgBox(Err.Description) ' MsgBox(Err.Description)
End If End If
_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
oWMStream = oWMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite) oWMStream = oNewWMObject.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 & "'")
oWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - oWMStream erzeugt", False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - oWMStream erzeugt", False)
@ -1235,18 +1208,18 @@ Public Class frmDIHauptseite
oFileIO.aWMStream = oWMStream 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 & "'")
oWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return False
'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
oFileIO.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 & "'")
oWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return False
' MsgBox(Err.Description) ' MsgBox(Err.Description)
End If End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Inhalt der Datei konnte übertragen werden", False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Inhalt der Datei konnte übertragen werden", False)
@ -1256,32 +1229,38 @@ Public Class frmDIHauptseite
oWMStream.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 & "'")
oWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
' save new windream object ' save new windream object
oWMObject.save() oNewWMObject.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 & "'")
oWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei konnte gespeichert werden", False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei konnte gespeichert werden", False)
' 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)
oWMObject.unlock() oNewWMObject.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 & "'")
oWMObject.Unlock() oNewWMObject.Unlock()
System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname) System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname)
Return Err.Number Return False
'MsgBox(Err.Description) 'MsgBox(Err.Description)
End If End If
If _windream.oWMSession.WMObjectExists(WMEntityDocument, endgültigerDateiname.Replace(My.Settings.vWLaufwerk & ":", ""), 0, 0) = False Then
ClassLoggerDI.Add(Now.ToShortTimeString & " >> File '" & DI_STREAMRESULTFILE & "' should exist in windream but WMObjectExists returned 'false' ...", True)
Return False
End If
'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
_Step = "3.7" _Step = "3.7"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
@ -1294,7 +1273,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
oWMObject.Unlock() oNewWMObject.Unlock()
Catch ex As Exception Catch ex As Exception
End Try End Try
@ -1317,8 +1296,14 @@ 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(Now.ToShortTimeString & " >> Datei '" & DI_STREAMRESULTFILE & "' wurde erfolgreich nach windream importiert!", False) If _windream.oWMSession.WMObjectExists(WMEntityDocument, DI_STREAMRESULTFILE.Replace(My.Settings.vWLaufwerk & ":", ""), 0, 0) = True Then
Return True ClassLoggerDI.Add(Now.ToShortTimeString & " >> Datei '" & DI_STREAMRESULTFILE & "' wurde erfolgreich nach windream importiert!", False)
Return True
Else
ClassLoggerDI.Add(Now.ToShortTimeString & " >> File '" & DI_STREAMRESULTFILE & "' should exist in windream but WMObjectExists returned 'false' ...", True)
Return False
End If
Else Else
_Step = "5" _Step = "5"
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False)
@ -2317,7 +2302,7 @@ Public Class frmDIHauptseite
Private Sub btntestmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntestmail.Click Private Sub btntestmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntestmail.Click
My.Settings.Save() My.Settings.Save()
If Me.txtBetreff.Text = "" Or Me.txtEmpfaenger.Text = "" Or Me.txtMail_from.Text = "" Or Me.txtUser.Text = "" Or Me.txtPasswort.Text = "" Or _ If Me.txtBetreff.Text = "" Or Me.txtEmpfaenger.Text = "" Or Me.txtMail_from.Text = "" Or Me.txtUser.Text = "" Or Me.txtPasswort.Text = "" Or
Me.txtSMTP.Text = "" Then Me.txtSMTP.Text = "" Then
MsgBox("Bitte achten sie darauf alle Konfigurationsfelder für die Fehler-Email auszufüllen!", MsgBoxStyle.Critical, "Fehlende Eingaben:") MsgBox("Bitte achten sie darauf alle Konfigurationsfelder für die Fehler-Email auszufüllen!", MsgBoxStyle.Critical, "Fehlende Eingaben:")
Else Else
@ -2330,7 +2315,7 @@ Public Class frmDIHauptseite
End Sub End Sub
Private Sub TextBoxen_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _ Private Sub TextBoxen_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
_ _
txtUser.LostFocus, txtSMTP.LostFocus, txtPasswort.LostFocus, _ txtUser.LostFocus, txtSMTP.LostFocus, txtPasswort.LostFocus,
txtMail_from.LostFocus, txtEmpfaenger.LostFocus, txtBody.LostFocus, txtBetreff.LostFocus txtMail_from.LostFocus, txtEmpfaenger.LostFocus, txtBody.LostFocus, txtBetreff.LostFocus
CType(sender, TextBox).BackColor = Color.White CType(sender, TextBox).BackColor = Color.White
My.Settings.Save() My.Settings.Save()

154
ToolCollection/frmGrundeinstellungen.Designer.vb generated
View File

@ -28,24 +28,24 @@ Partial Class frmGrundeinstellungen
Me.cmlLogart = New System.Windows.Forms.ComboBox() Me.cmlLogart = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.cmbCores = New System.Windows.Forms.ComboBox() Me.cmbCores = New System.Windows.Forms.ComboBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.txterrorIndex = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.cmbSleepFrom = New System.Windows.Forms.ComboBox()
Me.cmbSleeptill = New System.Windows.Forms.ComboBox() Me.cmbSleeptill = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.TextBox3 = New System.Windows.Forms.TextBox() Me.cmbSleepFrom = New System.Windows.Forms.ComboBox()
Me.txterrorIndex = New System.Windows.Forms.TextBox() Me.Label8 = New System.Windows.Forms.Label()
Me.TextBox4 = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
@ -107,15 +107,42 @@ Partial Class frmGrundeinstellungen
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Log-Einstellungen:" Me.GroupBox1.Text = "Log-Einstellungen:"
' '
'TextBox4
'
Me.TextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "logolder_then", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.TextBox4.Location = New System.Drawing.Point(232, 79)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(84, 22)
Me.TextBox4.TabIndex = 7
Me.TextBox4.Text = Global.ToolCollection.My.MySettings.Default.logolder_then
'
'Label6 'Label6
' '
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(229, 63) Me.Label6.Location = New System.Drawing.Point(229, 63)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(199, 13) Me.Label6.Size = New System.Drawing.Size(198, 13)
Me.Label6.TabIndex = 6 Me.Label6.TabIndex = 6
Me.Label6.Text = "LogDateien löschen - ""Älter als""-Tage:" Me.Label6.Text = "LogDateien löschen - ""Älter als""-Tage:"
' '
'TextBox1
'
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vLogNI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.TextBox1.Location = New System.Drawing.Point(9, 34)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(188, 22)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = Global.ToolCollection.My.MySettings.Default.vLogNI
'
'TextBox2
'
Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vLogDI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.TextBox2.Location = New System.Drawing.Point(9, 79)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(188, 22)
Me.TextBox2.TabIndex = 3
Me.TextBox2.Text = Global.ToolCollection.My.MySettings.Default.vLogDI
'
'GroupBox2 'GroupBox2
' '
Me.GroupBox2.Controls.Add(Me.Label4) Me.GroupBox2.Controls.Add(Me.Label4)
@ -158,6 +185,15 @@ Partial Class frmGrundeinstellungen
Me.GroupBox3.TabStop = False Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Fehlerhandling:" Me.GroupBox3.Text = "Fehlerhandling:"
' '
'txterrorIndex
'
Me.txterrorIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "ERROR_INDEX", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txterrorIndex.Location = New System.Drawing.Point(15, 34)
Me.txterrorIndex.Name = "txterrorIndex"
Me.txterrorIndex.Size = New System.Drawing.Size(182, 22)
Me.txterrorIndex.TabIndex = 2
Me.txterrorIndex.Text = Global.ToolCollection.My.MySettings.Default.ERROR_INDEX
'
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
@ -178,6 +214,14 @@ Partial Class frmGrundeinstellungen
Me.GroupBox4.TabStop = False Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Verweise" Me.GroupBox4.Text = "Verweise"
' '
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(9, 21)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(188, 22)
Me.TextBox3.TabIndex = 0
Me.TextBox3.Text = Global.ToolCollection.My.MySettings.Default.DLL_WMOTOOL
'
'GroupBox5 'GroupBox5
' '
Me.GroupBox5.Controls.Add(Me.cmbSleeptill) Me.GroupBox5.Controls.Add(Me.cmbSleeptill)
@ -193,36 +237,6 @@ Partial Class frmGrundeinstellungen
Me.GroupBox5.TabStop = False Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "ToolCollection Sleep-Modus:" Me.GroupBox5.Text = "ToolCollection Sleep-Modus:"
' '
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(6, 18)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(303, 26)
Me.Label7.TabIndex = 0
Me.Label7.Text = "Bestimmen Sie hier die Zeitspanne in welcher weder ein Import " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "noch eine Nachind" & _
"exierung erfolgen soll:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(6, 53)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(66, 13)
Me.Label8.TabIndex = 1
Me.Label8.Text = "Stunde von"
'
'cmbSleepFrom
'
Me.cmbSleepFrom.FormattingEnabled = True
Me.cmbSleepFrom.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"})
Me.cmbSleepFrom.Location = New System.Drawing.Point(9, 69)
Me.cmbSleepFrom.Name = "cmbSleepFrom"
Me.cmbSleepFrom.Size = New System.Drawing.Size(63, 21)
Me.cmbSleepFrom.TabIndex = 2
Me.cmbSleepFrom.Text = Global.ToolCollection.My.MySettings.Default.Sleep_Begin
'
'cmbSleeptill 'cmbSleeptill
' '
Me.cmbSleeptill.FormattingEnabled = True Me.cmbSleeptill.FormattingEnabled = True
@ -242,49 +256,35 @@ Partial Class frmGrundeinstellungen
Me.Label9.TabIndex = 3 Me.Label9.TabIndex = 3
Me.Label9.Text = "Stunde bis" Me.Label9.Text = "Stunde bis"
' '
'TextBox3 'cmbSleepFrom
' '
Me.TextBox3.Location = New System.Drawing.Point(9, 21) Me.cmbSleepFrom.FormattingEnabled = True
Me.TextBox3.Name = "TextBox3" Me.cmbSleepFrom.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"})
Me.TextBox3.Size = New System.Drawing.Size(188, 22) Me.cmbSleepFrom.Location = New System.Drawing.Point(9, 69)
Me.TextBox3.TabIndex = 0 Me.cmbSleepFrom.Name = "cmbSleepFrom"
Me.TextBox3.Text = Global.ToolCollection.My.MySettings.Default.DLL_WMOTOOL Me.cmbSleepFrom.Size = New System.Drawing.Size(63, 21)
Me.cmbSleepFrom.TabIndex = 2
Me.cmbSleepFrom.Text = Global.ToolCollection.My.MySettings.Default.Sleep_Begin
' '
'txterrorIndex 'Label8
' '
Me.txterrorIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "ERROR_INDEX", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.Label8.AutoSize = True
Me.txterrorIndex.Location = New System.Drawing.Point(15, 34) Me.Label8.Location = New System.Drawing.Point(6, 53)
Me.txterrorIndex.Name = "txterrorIndex" Me.Label8.Name = "Label8"
Me.txterrorIndex.Size = New System.Drawing.Size(182, 22) Me.Label8.Size = New System.Drawing.Size(66, 13)
Me.txterrorIndex.TabIndex = 2 Me.Label8.TabIndex = 1
Me.txterrorIndex.Text = Global.ToolCollection.My.MySettings.Default.ERROR_INDEX Me.Label8.Text = "Stunde von"
' '
'TextBox4 'Label7
' '
Me.TextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "logolder_then", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.Label7.AutoSize = True
Me.TextBox4.Location = New System.Drawing.Point(232, 79) Me.Label7.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox4.Name = "TextBox4" Me.Label7.Location = New System.Drawing.Point(6, 18)
Me.TextBox4.Size = New System.Drawing.Size(84, 22) Me.Label7.Name = "Label7"
Me.TextBox4.TabIndex = 7 Me.Label7.Size = New System.Drawing.Size(303, 26)
Me.TextBox4.Text = Global.ToolCollection.My.MySettings.Default.logolder_then Me.Label7.TabIndex = 0
' Me.Label7.Text = "Bestimmen Sie hier die Zeitspanne in welcher weder ein Import " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "noch eine Nachind" &
'TextBox1 "exierung erfolgen soll:"
'
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vLogNI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.TextBox1.Location = New System.Drawing.Point(9, 34)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(188, 22)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = Global.ToolCollection.My.MySettings.Default.vLogNI
'
'TextBox2
'
Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vLogDI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.TextBox2.Location = New System.Drawing.Point(9, 79)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(188, 22)
Me.TextBox2.TabIndex = 3
Me.TextBox2.Text = Global.ToolCollection.My.MySettings.Default.vLogDI
' '
'frmGrundeinstellungen 'frmGrundeinstellungen
' '

4
ToolCollection/frmGrundeinstellungen.vb
View File

@ -52,4 +52,8 @@
TextBox4.Text = "30" TextBox4.Text = "30"
End If End If
End Sub End Sub
Private Sub txterrorIndex_TextChanged(sender As Object, e As EventArgs) Handles txterrorIndex.TextChanged
End Sub
End Class End Class

32
ToolCollection/frmNIHauptseite.vb
View File

@ -23,6 +23,7 @@ Public Class frmNIHauptseite
Private _windreamRechte As ClassWD_Rechte Private _windreamRechte As ClassWD_Rechte
Private _sqlite As ClassSQLITE Private _sqlite As ClassSQLITE
Private _fulltext As clsNIFulltext
Private manuallyRun As Boolean = False Private manuallyRun As Boolean = False
@ -408,8 +409,8 @@ Public Class frmNIHauptseite
_clsWorkfile._filevalidation = False _clsWorkfile._filevalidation = False
End If End If
_Logger.Debug($"clsWorkfile._filevalidation Checked...") _Logger.Debug($"clsWorkfile._filevalidation Checked...")
If aktivesProfil.IndexFehler <> "" Then If My.Settings.ERROR_INDEX <> "" Then
_Logger.Debug("Error-msg shall be logged in index: " & Me.aktivesProfil.IndexFehler) _Logger.Debug("Error-msg shall be logged in index: " & My.Settings.ERROR_INDEX)
_clsWorkfile._fileerror = True _clsWorkfile._fileerror = True
Else Else
_clsWorkfile._fileerror = False _clsWorkfile._fileerror = False
@ -730,6 +731,7 @@ Public Class frmNIHauptseite
Case "fulltext" Case "fulltext"
Dim fulltext Dim fulltext
Try Try
_fulltext = New clsNIFulltext(_MyLogger)
fulltext = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex) fulltext = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex)
Volltext_indexer(dokument, fulltext) Volltext_indexer(dokument, fulltext)
Catch ex As Exception Catch ex As Exception
@ -764,7 +766,7 @@ Public Class frmNIHauptseite
'Fehler = True 'Fehler = True
unvollstaendig = True unvollstaendig = True
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
SetErrorMeldung("Value '" & odescIndexValue & "' not found in Database", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("Value '" & odescIndexValue & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX)
Case 1 Case 1
_Logger.Debug($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") _Logger.Debug($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK")
unvollstaendig = False unvollstaendig = False
@ -775,7 +777,7 @@ Public Class frmNIHauptseite
error_in_Indexierung = True error_in_Indexierung = True
unvollstaendig = True unvollstaendig = True
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
SetErrorMeldung("More then 1 row found in Database", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("More then 1 row found in Database", aktivesDokument, My.Settings.ERROR_INDEX)
End Select End Select
Catch ex As Exception Catch ex As Exception
@ -783,7 +785,7 @@ Public Class frmNIHauptseite
_Logger.Error(ex) _Logger.Error(ex)
error_in_Indexierung = True error_in_Indexierung = True
SetErrorMeldung("Error while Checking DeskriptiveIndex", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("Error while Checking DeskriptiveIndex", aktivesDokument, My.Settings.ERROR_INDEX)
End Try End Try
End If End If
Case "xml" '#### Indexierung über xml-Dokument Case "xml" '#### Indexierung über xml-Dokument
@ -799,7 +801,7 @@ Public Class frmNIHauptseite
If clsHelper.file_exists(_pathxmlfile, "NI") = False Then If clsHelper.file_exists(_pathxmlfile, "NI") = False Then
_Logger.Warn("ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!") _Logger.Warn("ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!")
' Markierung des Dokumentes ' Markierung des Dokumentes
SetErrorMeldung("Nachindexdatei NOT EXISTING", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("Nachindexdatei NOT EXISTING", aktivesDokument, My.Settings.ERROR_INDEX)
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
fehlermsg &= " >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!" fehlermsg &= " >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!"
error_in_Indexierung = True error_in_Indexierung = True
@ -1007,7 +1009,7 @@ Public Class frmNIHauptseite
'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, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX)
End If End If
Else Else
_Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!") _Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!")
@ -1023,7 +1025,7 @@ Public Class frmNIHauptseite
'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, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("Wert aus Formrec. ist nothing", aktivesDokument, My.Settings.ERROR_INDEX)
End If End If
Else Else
_Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!") _Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!")
@ -1038,7 +1040,7 @@ Public Class frmNIHauptseite
'Markierung Validation 'Markierung Validation
File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
'errormeldung setzen 'errormeldung setzen
SetErrorMeldung("Wert aus Formrec. ist leer", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("Wert aus Formrec. ist leer", aktivesDokument, My.Settings.ERROR_INDEX)
fehlermsg &= vbNewLine & " >> der Wert in der Indexdatei ist leer" fehlermsg &= vbNewLine & " >> der Wert in der Indexdatei ist leer"
_NidxWert = Nothing _NidxWert = Nothing
@ -1056,7 +1058,7 @@ Public Class frmNIHauptseite
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
_Logger.Warn("Der deskriptive Indexwert '" & _NidxWert & "' verweist auf keinen Eintrag in der Datenbank!") _Logger.Warn("Der deskriptive Indexwert '" & _NidxWert & "' verweist auf keinen Eintrag in der Datenbank!")
SetErrorMeldung("Value '" & _NidxWert & "' not found in Database", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("Value '" & _NidxWert & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX)
unvollstaendig = True unvollstaendig = True
error_in_Indexierung = True error_in_Indexierung = True
@ -1087,7 +1089,7 @@ Public Class frmNIHauptseite
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
_Logger.Warn("Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!") _Logger.Warn("Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!")
SetErrorMeldung("More then 1 row found in Database", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("More then 1 row found in Database", aktivesDokument, My.Settings.ERROR_INDEX)
fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!" fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & _NidxWert & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank!"
error_in_Indexierung = True error_in_Indexierung = True
'1. aktives Dok '1. aktives Dok
@ -1191,7 +1193,7 @@ Public Class frmNIHauptseite
End If End If
End If End If
Else Else
_Logger.Info("Unexpected error while indexing...(error_in_Indexierung is true)")
End If End If
@ -1408,7 +1410,7 @@ Public Class frmNIHauptseite
'Den Flag Validation wieder auf False setzen 'Den Flag Validation wieder auf False setzen
File_SetBooleanIndex(False, aktivesDokument, aktivesProfil.IndexValidation) File_SetBooleanIndex(False, aktivesDokument, aktivesProfil.IndexValidation)
'Ebenso die Fehlermeldung 'Ebenso die Fehlermeldung
SetErrorMeldung("", aktivesDokument, aktivesProfil.IndexFehler) SetErrorMeldung("", aktivesDokument, My.Settings.ERROR_INDEX)
End If End If
End If End If
@ -1771,7 +1773,7 @@ Public Class frmNIHauptseite
End If End If
ErgebnisArray = clsNIFulltext.GetValuesFromFulltext(fulltext, Fulltext_Indexierung.Spalte, pos_von, pos_bis, ign_whitespace) ErgebnisArray = _fulltext.GetValuesFromFulltext(_dokument.aName, fulltext, Fulltext_Indexierung.Spalte, pos_von, pos_bis, ign_whitespace)
If Not ErgebnisArray Is Nothing Then If Not ErgebnisArray Is Nothing Then
'im Array mehrfachvorkommen ausschliessen 'im Array mehrfachvorkommen ausschliessen
ErgebnisArray = ErgebnisArray.Distinct.ToArray ErgebnisArray = ErgebnisArray.Distinct.ToArray
@ -1898,7 +1900,7 @@ Public Class frmNIHauptseite
arrIndex(0) = _Indexname arrIndex(0) = _Indexname
arrValue(0) = _value.ToString arrValue(0) = _value.ToString
Me._windreamNI.RunIndexing(_dok, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString) Me._windreamNI.RunIndexing(_dok, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
If aktivesProfil.IndexFehler <> "" And _value = True Then If aktivesProfil.IndexFehler <> "" Then
_Logger.Debug("History-error will be set to true!") _Logger.Debug("History-error will be set to true!")
arrIndex = Nothing arrIndex = Nothing
arrValue = Nothing arrValue = Nothing

4
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(CURR_MyLogger) Public Shared _windream As ClassWindream_allgemein
Private Shared _Instance As frmNIProfilhinzufuegen = Nothing Private Shared _Instance As frmNIProfilhinzufuegen = Nothing
Private licenseManager As ClassLicenseManager = Nothing Private licenseManager As ClassLicenseManager = Nothing
@ -14,7 +14,9 @@ Public Class frmNIProfilhinzufuegen
Return _Instance Return _Instance
End Function End Function
Private Sub frmNIProfilhinzufuegen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Private Sub frmNIProfilhinzufuegen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
_windream = New ClassWindream_allgemein(CURR_MyLogger)
' Verbindung mit windream herstellen ' Verbindung mit windream herstellen
_windream.Init() _windream.Init()

6
ToolCollection/frmStart.vb
View File

@ -15,7 +15,7 @@ Public Class frmStart
Private licenseManager As ClassLicenseManager = Nothing Private licenseManager As ClassLicenseManager = Nothing
Private Sub timUhrzeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timUhrzeit.Tick Private Sub timUhrzeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timUhrzeit.Tick
' der Statusuhr die aktuelle Systemzeit zuweisen ' der Statusuhr die aktuelle Systemzeit zuweisen
Me.Status_Clock.Text = My.Computer.Clock.LocalTime Me.Status_Clock.Text = CType(My.Computer.Clock.LocalTime, String)
timediff += 1000 timediff += 1000
If timediff >= 86400000 Then If timediff >= 86400000 Then
'LogDateien-löschen 'LogDateien-löschen
@ -24,7 +24,7 @@ Public Class frmStart
End Sub End Sub
Private Sub Delete_LogFiles() Private Sub Delete_LogFiles()
Try Try
Dim vDate = DateAdd("d", -My.Settings.logolder_then, Now) Dim vDate = DateAdd("d", -CInt(My.Settings.logolder_then), Now)
Dim log_files As ReadOnlyCollection(Of String) Dim log_files As ReadOnlyCollection(Of String)
log_files = My.Computer.FileSystem.GetFiles(My.Application.Info.DirectoryPath & "\Log", FileIO.SearchOption.SearchAllSubDirectories, "*.*") log_files = My.Computer.FileSystem.GetFiles(My.Application.Info.DirectoryPath & "\Log", FileIO.SearchOption.SearchAllSubDirectories, "*.*")
If log_files.Count > 0 Then If log_files.Count > 0 Then
@ -35,7 +35,7 @@ Public Class frmStart
Next Next
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler bei Löschen LogFiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) _Logger.Error(ex.Message)
End Try End Try
End Sub End Sub
Private Sub FMStart_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Private Sub FMStart_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing