From 5a7731d7bdad1b775f6fd085d510167f4b421160 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Mon, 29 Apr 2019 16:33:29 +0200 Subject: [PATCH] MS --- ToolCollection/ClassNIDatenbankzugriff.vb | 7 +- ToolCollection/ClassSQLITE.vb | 1 - ToolCollection/ClassWindream_allgemein.vb | 4 +- ToolCollection/My Project/AssemblyInfo.vb | 2 +- ToolCollection/clsNIFulltext.vb | 24 ++- ToolCollection/clsNI_WorkFile.vb | 4 +- ToolCollection/frmDIHauptseite.vb | 125 +++++++------- .../frmGrundeinstellungen.Designer.vb | 154 +++++++++--------- ToolCollection/frmGrundeinstellungen.vb | 4 + ToolCollection/frmNIHauptseite.vb | 32 ++-- ToolCollection/frmNIProfilhinzufuegen.vb | 4 +- ToolCollection/frmStart.vb | 6 +- 12 files changed, 183 insertions(+), 184 deletions(-) diff --git a/ToolCollection/ClassNIDatenbankzugriff.vb b/ToolCollection/ClassNIDatenbankzugriff.vb index f828996..26a01ae 100644 --- a/ToolCollection/ClassNIDatenbankzugriff.vb +++ b/ToolCollection/ClassNIDatenbankzugriff.vb @@ -9,7 +9,6 @@ Imports DigitalData.Modules.Database Imports System.IO Public Class ClassNIDatenbankzugriff - Private _MyLogger As LogConfig Private Shared _Logger As DigitalData.Modules.Logging.Logger Private Shared _LastStep, _SQL As String Private Shared aTimerCount As Integer = 0 @@ -17,11 +16,9 @@ Public Class ClassNIDatenbankzugriff 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() + _Logger = LogConf.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) + _firebird = New Firebird(LogConf, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW) End If diff --git a/ToolCollection/ClassSQLITE.vb b/ToolCollection/ClassSQLITE.vb index 43d14b4..28064bd 100644 --- a/ToolCollection/ClassSQLITE.vb +++ b/ToolCollection/ClassSQLITE.vb @@ -2,7 +2,6 @@ Imports DigitalData.Modules.Logging Public Class ClassSQLITE Private Shared db_location As String - Public Shared logerrorsonly As Boolean Public Shared Passwort_admin As String Private Shared _Logger As DigitalData.Modules.Logging.Logger diff --git a/ToolCollection/ClassWindream_allgemein.vb b/ToolCollection/ClassWindream_allgemein.vb index 97456e8..e8b491f 100644 --- a/ToolCollection/ClassWindream_allgemein.vb +++ b/ToolCollection/ClassWindream_allgemein.vb @@ -171,7 +171,9 @@ Public Class ClassWindream_allgemein ''' Public Function GetObjecttypesAsObjects() As WMObjects Try - + If IsNothing(oObjekttypen) Then + oObjekttypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) + End If Return Me.oObjekttypen Catch ex As Exception diff --git a/ToolCollection/My Project/AssemblyInfo.vb b/ToolCollection/My Project/AssemblyInfo.vb index 503c540..5daf344 100644 --- a/ToolCollection/My Project/AssemblyInfo.vb +++ b/ToolCollection/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/ToolCollection/clsNIFulltext.vb b/ToolCollection/clsNIFulltext.vb index 6fa40ad..2c012dd 100644 --- a/ToolCollection/clsNIFulltext.vb +++ b/ToolCollection/clsNIFulltext.vb @@ -3,7 +3,11 @@ Imports WINDREAMLib Imports DigitalData.Modules.Logging Public Class clsNIFulltext Private Shared _Logger As DigitalData.Modules.Logging.Logger - Public Shared Function GetValuesFromFulltext(fulltext As String, pattern As String, Pos_From As Integer, Pos_To As Integer, ignorewhitespace As Boolean) + 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 fulltext = fulltext.Replace(vbCrLf, "") If ignorewhitespace = True Then @@ -42,11 +46,11 @@ Public Class clsNIFulltext Dim matchcount As Integer = 0 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 Else 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 For y = 1 To regexMatch.Groups.Count - 1 Dim g As Group = regexMatch.Groups(y) @@ -64,7 +68,7 @@ Public Class clsNIFulltext '& "', Position=" & c.Index) ' Next - Console.WriteLine("Group" & i & "='" & g.ToString() & "'") + _Logger.Debug($"{filename} # Group" & i & "='" & g.ToString() & "'") If Pos_From = 0 And Gesamtanzahl = 1 Then 'Das Ende ist erreicht - Ausstieg ReDim Preserve Ergebnis(0) @@ -111,7 +115,7 @@ Public Class clsNIFulltext Next regexMatch = regexMatch.NextMatch() Else - _Logger.Info("Using Matchelements.....") + _Logger.Info($"{filename} # Using Matchelements...") For Each element As System.Text.RegularExpressions.Match In elemente element.ToString() Next @@ -135,6 +139,10 @@ Public Class clsNIFulltext ReDim Preserve Ergebnis(0) Ergebnis(0) = Convert.ToString(element.ToString) Exit_For = True + Else + ReDim Preserve Ergebnis(0) + Ergebnis(0) = Convert.ToString(element.ToString) + Exit_For = True End If End If Else @@ -154,17 +162,17 @@ Public Class clsNIFulltext If Ergebnis.Length >= 1 Then Return Ergebnis Else - _Logger.Warn("ACHTUNG: Array-Ergebnis Length = 0") + _Logger.Info($"{filename} # ACHTUNG: Array-Ergebnis Length = 0") Return Nothing End If 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 End If Return Ergebnis Catch ex As Exception - _Logger.Error(ex) + _Logger.Error(ex) Return Nothing End Try End Function diff --git a/ToolCollection/clsNI_WorkFile.vb b/ToolCollection/clsNI_WorkFile.vb index 947f5ad..053b572 100644 --- a/ToolCollection/clsNI_WorkFile.vb +++ b/ToolCollection/clsNI_WorkFile.vb @@ -98,7 +98,7 @@ Public Class clsNI_WorkFile If clsHelper.file_exists(_pathxmlfile, "NI") = False Then _Logger.Warn(" >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!") '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!" Return True End If @@ -248,7 +248,7 @@ Public Class clsNI_WorkFile pos_bis = 0 _Logger.Debug("- Volltext-Indexierung - Regex: '" & Volltext_Indexierung.Spalte & "' - Pos.-Von: '" & pos_von & "' - Pos.-Bis: '" & pos_bis) End If - ErgebnisArray = clsNIFulltext.GetValuesFromFulltext(fulltext, Volltext_Indexierung.Spalte, pos_von, pos_bis, ign_whitespace) + ErgebnisArray = clsNIFulltext.GetValuesFromFulltext(_dokument.aName, fulltext, Volltext_Indexierung.Spalte, pos_von, pos_bis, ign_whitespace) If Not ErgebnisArray Is Nothing Then 'im Array mehrfachvorkommen ausschliessen ErgebnisArray = ErgebnisArray.Distinct.ToArray diff --git a/ToolCollection/frmDIHauptseite.vb b/ToolCollection/frmDIHauptseite.vb index ca935ca..0c27dd9 100644 --- a/ToolCollection/frmDIHauptseite.vb +++ b/ToolCollection/frmDIHauptseite.vb @@ -74,7 +74,7 @@ Public Class frmDIHauptseite Private bgwQuelldatei = "" Private bgwZielordner = "" - Private übertragen_erfolgreich 'As Boolean = False + Private oWMStream_Result As Boolean = False Private ErgebnisNochNichtLöschen As Boolean = False @@ -531,7 +531,7 @@ Public Class frmDIHauptseite 'File in Array speichern fileAusschluss_List.Add(filenameQuelle) - Me.übertragen_erfolgreich = False + Me.oWMStream_Result = False Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) Me.dateienImportiert += 1 Else @@ -548,7 +548,7 @@ Public Class frmDIHauptseite End If 'File in Array speichern fileAusschluss_List.Add(filenameQuelle) - Me.übertragen_erfolgreich = False + Me.oWMStream_Result = False Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) Me.dateienImportiert += 1 Else @@ -621,17 +621,19 @@ Public Class frmDIHauptseite Dim index As Integer = Me.selectedProfile.OriginalQuellordner.Length Dim SubPath As String = IO.Path.GetDirectoryName(bgwQuelldatei).Substring(index) - Dim Zielordner As String + Dim oZielOrdner As String If SubPath = "" Then - Zielordner = Me.selectedProfile.OriginalZielordner + oZielOrdner = Me.selectedProfile.OriginalZielordner Else - Zielordner = Me.selectedProfile.OriginalZielordner & SubPath + oZielOrdner = Me.selectedProfile.OriginalZielordner & SubPath End If '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) ' ' ' dann windream-Festplatte voll - If (Me.übertragen_erfolgreich = -10) Or (Me.übertragen_erfolgreich = 91) Then + If Me.oWMStream_Result = False Then Me.CriticalErrorInBackgroundWorker = True Else 'Schwerwiegender Fehler in der Dateiübertragung @@ -639,7 +641,7 @@ Public Class frmDIHauptseite End If ' hier nochmal prüfen, da der Fehler gerade erst aufgetreten sein kann If Not CriticalErrorInBackgroundWorker Then - If Me.übertragen_erfolgreich = True Then + If Me.oWMStream_Result = True Then Try Dim extension As String = Replace(Path.GetExtension(DI_STREAMRESULTFILE), ".", "").ToUpper 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 'DAS Windream-Laufwerk ist nicht verfügbar! CriticalErrorInBackgroundWorker = True - Me.übertragen_erfolgreich = -20 Import_Abbrechen() If My.Settings.vDIMailSenden = True Then - email.Send_EMail("ESKALATIONSTUFE 1: Schwerwiegender Fehler in Dateiimporter windream
ERROR: " & Err.Description & "
DAS WINDREAM-LAUFWERK oder der Netzwerkname IST NICHT VERFÜGBAR!
" & _ + email.Send_EMail("ESKALATIONSTUFE 1: Schwerwiegender Fehler in Dateiimporter windream
ERROR: " & Err.Description & "
DAS WINDREAM-LAUFWERK oder der Netzwerkname IST NICHT VERFÜGBAR!
" & "Der Importvorgang wurde abgebrochen!
Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!") 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!") Exit Sub Else @@ -700,39 +701,11 @@ Public Class frmDIHauptseite Me.threadDateiimport.ReportProgress(Me.dateienImportiert / Me.dateienGesamt * 100) Me.dateienImportiert += 1 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 Me.threadDateiimport.CancelAsync() Exit Sub 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
ERROR: " & Err.Description & "
DAS WINDREAM-LAUFWERK IST NICHT VERFÜGBAR!
" & _ - "Der Importvorgang wurde abgebrochen!
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
ERROR: " & Err.Description & "
Bibliothekenverweise
" & _ - "Der Importvorgang wurde abgebrochen!") - End If - - End Select If Me.threadDateiimport.CancellationPending Then Exit Sub End If @@ -766,7 +739,7 @@ Public Class frmDIHauptseite End If End If Next - + Else For Each Dir As String In DirList 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)) '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 '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 If freeSpace < length Then MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz") - Return -10 + Return False - 10 End If 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 oWMStream If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Connect definieren: CreateObject('Windream.WMConnect')", False) @@ -1167,7 +1140,7 @@ Public Class frmDIHauptseite '================================================================== _Step = "3.1" 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 ClassLoggerDI.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") 'MsgBox(Err.Description) @@ -1193,7 +1166,7 @@ Public Class frmDIHauptseite Loop _Step = "3.1.2" 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 ClassLoggerDI.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") 'MsgBox(Err.Description) @@ -1203,29 +1176,29 @@ Public Class frmDIHauptseite _Step = "3.2" If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) - If oWMObject IsNot Nothing Then + If oNewWMObject IsNot Nothing Then ' lock object for file system access (to change the file itself) - oWMObject.lock() + oNewWMObject.lock() ' set fileIO the local source file oFileIO.bstrOriginalFileName = filenameQuelle If Err.Number > 0 Then 'MsgBox(Err.Number.ToString) ClassLoggerDI.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") ClassLoggerDI.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False) - oWMObject.Unlock() + oNewWMObject.Unlock() System.IO.File.Delete(My.Settings.vWLaufwerk & ":\" & endgültigerDateiname) - Return Err.Number + Return False ' MsgBox(Err.Description) End If _Step = "3.3" If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) ' 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 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) - Return Err.Number + Return False 'MsgBox(Err.Description) End If If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - oWMStream erzeugt", False) @@ -1235,18 +1208,18 @@ Public Class frmDIHauptseite oFileIO.aWMStream = oWMStream If Err.Number > 0 Then 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) - Return Err.Number + Return False 'MsgBox(Err.Description) End If ' let fileIO object import the original file into windream oFileIO.ImportOriginal(True) If Err.Number > 0 Then 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) - Return Err.Number + Return False ' MsgBox(Err.Description) End If If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Inhalt der Datei konnte übertragen werden", False) @@ -1256,32 +1229,38 @@ Public Class frmDIHauptseite oWMStream.Close() If Err.Number > 0 Then 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) - Return Err.Number + Return False 'MsgBox(Err.Description) End If ' save new windream object - oWMObject.save() + oNewWMObject.save() If Err.Number > 0 Then 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) - Return Err.Number + Return False 'MsgBox(Err.Description) End If If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Datei konnte gespeichert werden", False) ' unlock the windream object _Step = "3.6" If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - _Step: " & _Step, False) - oWMObject.unlock() + oNewWMObject.unlock() If Err.Number > 0 Then 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) - Return Err.Number + Return False 'MsgBox(Err.Description) 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 _Step = "3.7" 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 Me.DateiIndexieren(filenameQuelle, endgültigerDateiname) = False Then Try - oWMObject.Unlock() + oNewWMObject.Unlock() Catch ex As Exception End Try @@ -1317,8 +1296,14 @@ Public Class frmDIHauptseite p = "\" & endgültigerDateiname End If DI_STREAMRESULTFILE = My.Settings.vWLaufwerk & ":" & p - ClassLoggerDI.Add(Now.ToShortTimeString & " >> Datei '" & DI_STREAMRESULTFILE & "' wurde erfolgreich nach windream importiert!", False) - Return True + If _windream.oWMSession.WMObjectExists(WMEntityDocument, DI_STREAMRESULTFILE.Replace(My.Settings.vWLaufwerk & ":", ""), 0, 0) = True Then + 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 _Step = "5" 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 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 MsgBox("Bitte achten sie darauf alle Konfigurationsfelder für die Fehler-Email auszufüllen!", MsgBoxStyle.Critical, "Fehlende Eingaben:") Else @@ -2330,7 +2315,7 @@ Public Class frmDIHauptseite End Sub 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 CType(sender, TextBox).BackColor = Color.White My.Settings.Save() diff --git a/ToolCollection/frmGrundeinstellungen.Designer.vb b/ToolCollection/frmGrundeinstellungen.Designer.vb index 3e30802..5e1481e 100644 --- a/ToolCollection/frmGrundeinstellungen.Designer.vb +++ b/ToolCollection/frmGrundeinstellungen.Designer.vb @@ -28,24 +28,24 @@ Partial Class frmGrundeinstellungen Me.cmlLogart = New System.Windows.Forms.ComboBox() Me.Label3 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.TextBox4 = New System.Windows.Forms.TextBox() 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.Label4 = New System.Windows.Forms.Label() Me.cmbCores = New System.Windows.Forms.ComboBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.txterrorIndex = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.TextBox3 = New System.Windows.Forms.TextBox() 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.Label9 = New System.Windows.Forms.Label() - Me.TextBox3 = New System.Windows.Forms.TextBox() - Me.txterrorIndex = New System.Windows.Forms.TextBox() - Me.TextBox4 = New System.Windows.Forms.TextBox() - Me.TextBox1 = New System.Windows.Forms.TextBox() - Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.cmbSleepFrom = New System.Windows.Forms.ComboBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox3.SuspendLayout() @@ -107,15 +107,42 @@ Partial Class frmGrundeinstellungen Me.GroupBox1.TabStop = False 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 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(229, 63) 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.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 ' Me.GroupBox2.Controls.Add(Me.Label4) @@ -158,6 +185,15 @@ Partial Class frmGrundeinstellungen Me.GroupBox3.TabStop = False 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 ' Me.Label5.AutoSize = True @@ -178,6 +214,14 @@ Partial Class frmGrundeinstellungen Me.GroupBox4.TabStop = False 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 ' Me.GroupBox5.Controls.Add(Me.cmbSleeptill) @@ -193,36 +237,6 @@ Partial Class frmGrundeinstellungen Me.GroupBox5.TabStop = False 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 ' Me.cmbSleeptill.FormattingEnabled = True @@ -242,49 +256,35 @@ Partial Class frmGrundeinstellungen Me.Label9.TabIndex = 3 Me.Label9.Text = "Stunde bis" ' - '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 - ' - '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 - ' - 'TextBox4 + 'cmbSleepFrom ' - 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 + 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 ' - 'TextBox1 + 'Label8 ' - 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 + 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" ' - 'TextBox2 + 'Label7 ' - 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 + 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:" ' 'frmGrundeinstellungen ' diff --git a/ToolCollection/frmGrundeinstellungen.vb b/ToolCollection/frmGrundeinstellungen.vb index 65029d9..6a06423 100644 --- a/ToolCollection/frmGrundeinstellungen.vb +++ b/ToolCollection/frmGrundeinstellungen.vb @@ -52,4 +52,8 @@ TextBox4.Text = "30" End If End Sub + + Private Sub txterrorIndex_TextChanged(sender As Object, e As EventArgs) Handles txterrorIndex.TextChanged + + End Sub End Class \ No newline at end of file diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb index 3d7c345..dd5a9bd 100644 --- a/ToolCollection/frmNIHauptseite.vb +++ b/ToolCollection/frmNIHauptseite.vb @@ -23,6 +23,7 @@ Public Class frmNIHauptseite Private _windreamRechte As ClassWD_Rechte Private _sqlite As ClassSQLITE + Private _fulltext As clsNIFulltext Private manuallyRun As Boolean = False @@ -408,8 +409,8 @@ Public Class frmNIHauptseite _clsWorkfile._filevalidation = False End If _Logger.Debug($"clsWorkfile._filevalidation Checked...") - If aktivesProfil.IndexFehler <> "" Then - _Logger.Debug("Error-msg shall be logged in index: " & Me.aktivesProfil.IndexFehler) + If My.Settings.ERROR_INDEX <> "" Then + _Logger.Debug("Error-msg shall be logged in index: " & My.Settings.ERROR_INDEX) _clsWorkfile._fileerror = True Else _clsWorkfile._fileerror = False @@ -730,6 +731,7 @@ Public Class frmNIHauptseite Case "fulltext" Dim fulltext Try + _fulltext = New clsNIFulltext(_MyLogger) fulltext = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex) Volltext_indexer(dokument, fulltext) Catch ex As Exception @@ -764,7 +766,7 @@ Public Class frmNIHauptseite 'Fehler = True unvollstaendig = True 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 _Logger.Debug($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") unvollstaendig = False @@ -775,7 +777,7 @@ Public Class frmNIHauptseite error_in_Indexierung = True unvollstaendig = True 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 Catch ex As Exception @@ -783,7 +785,7 @@ Public Class frmNIHauptseite _Logger.Error(ex) 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 If Case "xml" '#### Indexierung über xml-Dokument @@ -799,7 +801,7 @@ Public Class frmNIHauptseite If clsHelper.file_exists(_pathxmlfile, "NI") = False Then _Logger.Warn("ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!") ' 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) fehlermsg &= " >> ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!" error_in_Indexierung = True @@ -1007,7 +1009,7 @@ Public Class frmNIHauptseite 'wert aus Luratech darf nicht leer sein If _NidxWert Is Nothing Then 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 Else _Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!") @@ -1023,7 +1025,7 @@ Public Class frmNIHauptseite 'wert aus Luratech darf nicht leer sein If _NidxWert Is Nothing Then 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 Else _Logger.Warn("ACHTUNG 2: Nachindexdatei: " & _pathxmlfile & " existiert nicht!") @@ -1038,7 +1040,7 @@ Public Class frmNIHauptseite 'Markierung Validation File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) '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" _NidxWert = Nothing @@ -1056,7 +1058,7 @@ Public Class frmNIHauptseite Case 0 '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!") - SetErrorMeldung("Value '" & _NidxWert & "' not found in Database", aktivesDokument, aktivesProfil.IndexFehler) + SetErrorMeldung("Value '" & _NidxWert & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX) unvollstaendig = True error_in_Indexierung = True @@ -1087,7 +1089,7 @@ Public Class frmNIHauptseite 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 _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!" error_in_Indexierung = True '1. aktives Dok @@ -1191,7 +1193,7 @@ Public Class frmNIHauptseite End If End If Else - + _Logger.Info("Unexpected error while indexing...(error_in_Indexierung is true)") End If @@ -1408,7 +1410,7 @@ Public Class frmNIHauptseite 'Den Flag Validation wieder auf False setzen File_SetBooleanIndex(False, aktivesDokument, aktivesProfil.IndexValidation) 'Ebenso die Fehlermeldung - SetErrorMeldung("", aktivesDokument, aktivesProfil.IndexFehler) + SetErrorMeldung("", aktivesDokument, My.Settings.ERROR_INDEX) End If End If @@ -1771,7 +1773,7 @@ Public Class frmNIHauptseite 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 'im Array mehrfachvorkommen ausschliessen ErgebnisArray = ErgebnisArray.Distinct.ToArray @@ -1898,7 +1900,7 @@ Public Class frmNIHauptseite arrIndex(0) = _Indexname arrValue(0) = _value.ToString 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!") arrIndex = Nothing arrValue = Nothing diff --git a/ToolCollection/frmNIProfilhinzufuegen.vb b/ToolCollection/frmNIProfilhinzufuegen.vb index 41911ca..1d3b549 100644 --- a/ToolCollection/frmNIProfilhinzufuegen.vb +++ b/ToolCollection/frmNIProfilhinzufuegen.vb @@ -1,7 +1,7 @@ Imports Oracle.ManagedDataAccess.Client Public Class frmNIProfilhinzufuegen 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 licenseManager As ClassLicenseManager = Nothing @@ -14,7 +14,9 @@ Public Class frmNIProfilhinzufuegen Return _Instance End Function + 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 _windream.Init() diff --git a/ToolCollection/frmStart.vb b/ToolCollection/frmStart.vb index 1fa225b..0469ec3 100644 --- a/ToolCollection/frmStart.vb +++ b/ToolCollection/frmStart.vb @@ -15,7 +15,7 @@ Public Class frmStart Private licenseManager As ClassLicenseManager = Nothing Private Sub timUhrzeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timUhrzeit.Tick ' 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 If timediff >= 86400000 Then 'LogDateien-löschen @@ -24,7 +24,7 @@ Public Class frmStart End Sub Private Sub Delete_LogFiles() 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) log_files = My.Computer.FileSystem.GetFiles(My.Application.Info.DirectoryPath & "\Log", FileIO.SearchOption.SearchAllSubDirectories, "*.*") If log_files.Count > 0 Then @@ -35,7 +35,7 @@ Public Class frmStart Next End If Catch ex As Exception - MsgBox("Fehler bei Löschen LogFiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + _Logger.Error(ex.Message) End Try End Sub Private Sub FMStart_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing