MS
This commit is contained in:
Digital Data - Marlon Schreiber
parent
8c82b567f8
commit
5a7731d7bd
@ -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
|
||||
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
|
||||
@ -171,7 +171,9 @@ Public Class ClassWindream_allgemein
|
||||
''' <remarks></remarks>
|
||||
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
|
||||
|
||||
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.3.0.0")>
|
||||
<Assembly: AssemblyVersion("2.3.0.1")>
|
||||
<Assembly: AssemblyFileVersion("1.5.1.0")>
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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 <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!")
|
||||
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 <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
|
||||
Exit Sub
|
||||
End If
|
||||
@ -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()
|
||||
|
||||
154
ToolCollection/frmGrundeinstellungen.Designer.vb
generated
154
ToolCollection/frmGrundeinstellungen.Designer.vb
generated
@ -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
|
||||
'cmbSleepFrom
|
||||
'
|
||||
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
|
||||
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
|
||||
'
|
||||
'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.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
|
||||
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"
|
||||
'
|
||||
'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.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
|
||||
'
|
||||
'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
|
||||
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
|
||||
'
|
||||
|
||||
@ -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
|
||||
@ -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
|
||||
|
||||
@ -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()
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user