AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

finalize doc

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-04-11 11:00:54 +02:00
parent 04daefb3ba
commit 93716bcc96
6 changed files with 307 additions and 318 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@ -1,40 +1,48 @@
Public Class ClassFinalizeDoc Public Class ClassFinalizeDoc
Public Shared Function Write_Final_Metadata() Public Shared Function Write_Final_Metadata(WMObject As WINDREAMLib.WMObject)
Try Try
Dim _error As Boolean = False Dim _error As Boolean = False
If CURRENT_DT_FINAL_INDEXING Is Nothing Then
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
End If
If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then
'Jetzt finale Indexe setzen 'Jetzt finale Indexe setzen
If LogErrorsOnly = False Then ClassLogger.Add(" >> working final indices for doc: " & CURRENT_WMFILE.aName, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> working final indices for doc: " & WMObject.aName, False)
For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows
Dim value As String = dr.Item("VALUE").ToString Dim value As String = dr.Item("VALUE").ToString
Dim INDEXNAME = dr.Item("INDEXNAME").ToString Dim INDEXNAME = dr.Item("INDEXNAME").ToString
If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
If LogErrorsOnly = False Then ClassLogger.Add(" >> indexing with dynamic sql...", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> indexing with dynamic sql...", False)
Dim SQL_COMMAND = dr.Item("SQL_COMMAND") 'Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
' Regulären Ausdruck zum Auslesen der Indexe definieren '' Regulären Ausdruck zum Auslesen der Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden '' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) 'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
' die Vorkommen im SQL-String auslesen '' die Vorkommen im SQL-String auslesen
Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(SQL_COMMAND) 'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(SQL_COMMAND)
'#### ''####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen '' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente 'For Each element As System.Text.RegularExpressions.Match In elemente
Try ' Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
Dim WDINDEXNAME = element.Value.Substring(2, element.Value.Length - 3) ' Dim WDINDEXNAME = element.Value.Substring(2, element.Value.Length - 3)
Dim wertWD = CURRENT_WMFILE.GetVariableValue(WDINDEXNAME) ' Dim wertWD = WMObject.GetVariableValue(WDINDEXNAME)
If Not IsNothing(wertWD) Then ' If Not IsNothing(wertWD) Then
SQL_COMMAND = SQL_COMMAND.ToString.Replace(element.Value, wertWD) ' SQL_COMMAND = SQL_COMMAND.ToString.Replace(element.Value, wertWD)
Else ' Else
ClassLogger.Add(">>Attention: indexvalue is invalid", False) ' ClassLogger.Add(">>Attention: indexvalue is invalid", False)
End If ' End If
Catch ex As Exception ' Catch ex As Exception
ClassLogger.Add("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message) ' ClassLogger.Add("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message)
End Try ' End Try
Next 'Next
Dim dynamic_value = ClassDatabase.Execute_Scalar(SQL_COMMAND, MyConnectionString, True) Dim sql_Statement = clsPatterns.ReplaceUserValues(dr.Item("SQL_COMMAND"), USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject)
If LogErrorsOnly = False Then ClassLogger.Add(">>> sql after ReplaceAllValues: " & sql_Statement, False)
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, MyConnectionString, True)
If Not IsNothing(dynamic_value) Then If Not IsNothing(dynamic_value) Then
value = dynamic_value value = dynamic_value
Else Else
@ -58,10 +66,10 @@
result(0) = value result(0) = value
Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME) Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME)
If LogErrorsOnly = False Then ClassLogger.Add($" >> oIndexType {oIndexType.ToString}", False)
If oIndexType > 4000 And oIndexType < 5000 Then If oIndexType > 4000 And oIndexType < 5000 Then
Dim PM_String = Return_PM_VEKTOR(value, INDEXNAME)
'Hier muss nun separat als Vektorfeld indexiert werden 'Hier muss nun separat als Vektorfeld indexiert werden
If Indexiere_VektorfeldPM(PM_String, CURRENT_PROFILE_VEKTOR_LOG) = False Then If Indexiere_VektorfeldPM(value, INDEXNAME, WMObject) = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT", False)
Else Else
@ -71,13 +79,13 @@
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> now indexing..", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> now indexing..", False)
If Indexiere_File(INDEXNAME, result) = True Then If Indexiere_File(INDEXNAME, result, WMObject) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT", False)
If LogErrorsOnly = False Then ClassLogger.Add("") If LogErrorsOnly = False Then ClassLogger.Add("")
'Nun das Logging 'Nun das Logging
If CURRENT_PROFILE_VEKTOR_LOG <> "" Then If CURRENT_PROFILE_VEKTOR_LOG <> "" Then
Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME) Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME)
Indexiere_VektorfeldPM(logstr, CURRENT_PROFILE_VEKTOR_LOG) Indexiere_VektorfeldPM(logstr, CURRENT_PROFILE_VEKTOR_LOG, WMObject)
End If End If
Else Else
@ -103,10 +111,10 @@
End Try End Try
End Function End Function
Private Shared Function Indexiere_File(idxxname As String, idxvalue As Object) Private Shared Function Indexiere_File(idxxname As String, idxvalue As Object, WMObject As WINDREAMLib.WMObject)
Dim File_indexiert As Boolean = False Dim File_indexiert As Boolean = False
Try ' Try
'Die Arrays vorbereiten 'Die Arrays vorbereiten
Dim arrIndex() As String = Nothing Dim arrIndex() As String = Nothing
Dim arrValue() As String = Nothing Dim arrValue() As String = Nothing
@ -132,23 +140,23 @@
End If End If
'Dim _windreamPM As New ClassPMWindream 'Dim _windreamPM As New ClassPMWindream
'Jetzt das eigentliche Indexieren der Datei 'Jetzt das eigentliche Indexieren der Datei
File_indexiert = WINDREAM.RunIndexing(CURRENT_WMFILE, arrIndex, arrValue) File_indexiert = WINDREAM.RunIndexing(WMObject, arrIndex, arrValue)
Return File_indexiert Return File_indexiert
End If End If
Catch ex As Exception 'Catch ex As Exception
ClassLogger.Add(">> Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True) ' ClassLogger.Add(">> Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True)
Return Err() ' Return Err()
End Try 'End Try
End Function End Function
Private Shared Function Indexiere_VektorfeldPM(input As String, NameVectorfield As String) Private Shared Function Indexiere_VektorfeldPM(input As String, NameVectorfield As String, WMObject As WINDREAMLib.WMObject)
Dim _success As Boolean = True Dim _success As Boolean = True
Dim Anzahl As Integer = 0 Dim Anzahl As Integer = 0
Dim myInputArr As String() Dim myInputArr As String()
'Jeden Wert des Vektorfeldes durchlaufen 'Jeden Wert des Vektorfeldes durchlaufen
Dim wertWD = CURRENT_WMFILE.GetVariableValue(NameVectorfield) Dim wertWD = WMObject.GetVariableValue(NameVectorfield)
If wertWD Is Nothing = False Then If wertWD Is Nothing = False Then
'Es wird gegen ein Vektorfeld nachindexiert 'Es wird gegen ein Vektorfeld nachindexiert
If wertWD.GetType.ToString.Contains("System.Object") Then If wertWD.GetType.ToString.Contains("System.Object") Then
@ -176,7 +184,7 @@
If myInputArr.Length > 0 Then If myInputArr.Length > 0 Then
'Jetzt die Datei indexieren 'Jetzt die Datei indexieren
If Indexiere_File(NameVectorfield, myInputArr) = False Then If Indexiere_File(NameVectorfield, myInputArr, WMObject) = False Then
_success = False _success = False
'errmessage = "Fehler beim Indexieren Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message 'errmessage = "Fehler beim Indexieren Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message
End If End If

2
app/DD_PM_WINDREAM/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("1.9.5.11")> <Assembly: AssemblyVersion("1.9.5.12")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

20
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -336,7 +336,7 @@ Public Class frmMassValidator
Dim indexname As String Dim indexname As String
Dim resultvalue Dim resultvalue
'Try Try
For Each inctrl As Control In Me.pnldesigner.Controls For Each inctrl As Control In Me.pnldesigner.Controls
Dim CONTROL_ID = inctrl.Tag Dim CONTROL_ID = inctrl.Tag
@ -565,16 +565,16 @@ Public Class frmMassValidator
End If End If
End Select End Select
Next Next
'Catch ex As Exception Catch ex As Exception
' errormessage = "Unexpected Error in FillIndexValues(MI):" & vbNewLine & ex.Message & vbNewLine & "Check Logfile" errormessage = "Unexpected Error in FillIndexValues(MI):" & vbNewLine & ex.Message & vbNewLine & "Check Logfile"
' My.Settings.Save() My.Settings.Save()
' frmError.ShowDialog() frmError.ShowDialog()
' ClassLogger.Add(">> Unexpected Error in FillIndexValues(MIs: " & ex.Message, True) ClassLogger.Add(">> Unexpected Error in FillIndexValues(MIs: " & ex.Message, True)
' ClassLogger.Add(">> Controltype: " & controltype, False) ClassLogger.Add(">> Controltype: " & controltype, False)
' ClassLogger.Add(">> Indexname windream: " & indexname, False) ClassLogger.Add(">> Indexname windream: " & indexname, False)
'End Try End Try
End Sub End Sub
@ -929,7 +929,7 @@ Public Class frmMassValidator
End Try End Try
If Not IsNothing(WMDOC) Then If Not IsNothing(WMDOC) Then
CURRENT_WMFILE = WMDOC CURRENT_WMFILE = WMDOC
If ClassFinalizeDoc.Write_Final_Metadata = True Then If ClassFinalizeDoc.Write_Final_Metadata(WMDOC) = True Then
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID) Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID)
If ClassDatabase.Execute_non_Query(sql) = True Then If ClassDatabase.Execute_non_Query(sql) = True Then
workedFiles += 1 workedFiles += 1

14
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -221,7 +221,7 @@
<value>Refresh AdditionalSearch</value> <value>Refresh AdditionalSearch</value>
</data> </data>
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>207, 114</value> <value>207, 92</value>
</data> </data>
<data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve"> <data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
<value>ContextMenuStrip1</value> <value>ContextMenuStrip1</value>
@ -1368,6 +1368,12 @@
<data name="&gt;&gt;DateieigenschaftenToolStripMenuItem.Type" xml:space="preserve"> <data name="&gt;&gt;DateieigenschaftenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;RefreshAdditionalSearchToolStripMenuItem.Name" xml:space="preserve">
<value>RefreshAdditionalSearchToolStripMenuItem</value>
</data>
<data name="&gt;&gt;RefreshAdditionalSearchToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DD_DMSLiteDataSet.Name" xml:space="preserve"> <data name="&gt;&gt;DD_DMSLiteDataSet.Name" xml:space="preserve">
<value>DD_DMSLiteDataSet</value> <value>DD_DMSLiteDataSet</value>
</data> </data>
@ -1836,12 +1842,6 @@
<data name="&gt;&gt;ToolStripButtonAnnotation.Type" xml:space="preserve"> <data name="&gt;&gt;ToolStripButtonAnnotation.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;RefreshAdditionalSearchToolStripMenuItem.Name" xml:space="preserve">
<value>RefreshAdditionalSearchToolStripMenuItem</value>
</data>
<data name="&gt;&gt;RefreshAdditionalSearchToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmValidator</value> <value>frmValidator</value>
</data> </data>

43
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2058,7 +2058,7 @@ Public Class frmValidator
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select Exit Select
End If End If
If LogErrorsOnly = False Then ClassLogger.Add($" >> getting wmValue for Index {oWMIndexName}...", False)
Dim wertWD = aktivesDokument.GetVariableValue(oWMIndexName) Dim wertWD = aktivesDokument.GetVariableValue(oWMIndexName)
If wertWD Is Nothing = False Then If wertWD Is Nothing = False Then
@ -2069,12 +2069,14 @@ Public Class frmValidator
Case "TABLE" Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId)
Dim SpaltenWerte As String() Dim SpaltenWerte As String()
If LogErrorsOnly = False Then ClassLogger.Add($" >> {dt.Rows.Count} Columns configured for control {oControlId}.", False)
If dt.Rows.Count > 1 Then If dt.Rows.Count > 1 Then
For Each Zeile As Object In wertWD For Each Zeile As Object In wertWD
If LogErrorsOnly = False Then ClassLogger.Add($" >> vektorrow Value {Zeile.ToString}...", False)
SpaltenWerte = Split(Zeile, Delimiter) SpaltenWerte = Split(Zeile, Delimiter)
Select Case dt.Rows.Count Select Case dt.Rows.Count
Case 1 Case 1
dgv.Rows.Add(New String() {SpaltenWerte(0)}) dgv.Rows.Add(New String() {Zeile.ToString})
Case 2 Case 2
If SpaltenWerte.Length = 2 Then If SpaltenWerte.Length = 2 Then
dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)})
@ -2342,6 +2344,9 @@ Public Class frmValidator
'lblerror.Visible = False 'lblerror.Visible = False
Try Try
Dim _error As Boolean = False Dim _error As Boolean = False
'If ClassFinalizeDoc.Write_Final_Metadata(aktivesDokument) = False Then
' _error = True
'End If
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName)
Dim dtfinal As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING Dim dtfinal As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING
If dtfinal.Rows.Count > 0 Then If dtfinal.Rows.Count > 0 Then
@ -2357,31 +2362,6 @@ Public Class frmValidator
SQL_COMMAND = clsPatterns.ReplaceAllValues(SQL_COMMAND, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) SQL_COMMAND = clsPatterns.ReplaceAllValues(SQL_COMMAND, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_COMMAND after ReplaceAllValues: " & SQL_COMMAND, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_COMMAND after ReplaceAllValues: " & SQL_COMMAND, False)
'' Regulären Ausdruck zum Auslesen der Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden
'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
'' die Vorkommen im SQL-String auslesen
'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(SQL_COMMAND)
''####
'' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' Try
' If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
' Dim WDINDEXNAME = element.Value.Substring(2, element.Value.Length - 3)
' Dim wertWD = aktivesDokument.GetVariableValue(WDINDEXNAME)
' If Not IsNothing(wertWD) Then
' SQL_COMMAND = SQL_COMMAND.ToString.Replace(element.Value, wertWD)
' Else
' ClassLogger.Add(">> Achtung Indexwert ist nothing!", False)
' End If
' Catch ex As Exception
' ClassLogger.Add("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message)
' End Try
'Next
Dim dynamic_value = ClassDatabase.Execute_Scalar(SQL_COMMAND, MyConnectionString, True) Dim dynamic_value = ClassDatabase.Execute_Scalar(SQL_COMMAND, MyConnectionString, True)
If Not IsNothing(dynamic_value) Then If Not IsNothing(dynamic_value) Then
@ -2408,12 +2388,13 @@ Public Class frmValidator
result(0) = value result(0) = value
Dim oIndexType = WINDREAM.GetTypeOfIndex(dr.Item("INDEXNAME")) Dim oIndexType = WINDREAM.GetTypeOfIndex(dr.Item("INDEXNAME"))
If LogErrorsOnly = False Then ClassLogger.Add($" >> oIndexType {oIndexType.ToString}", False)
If oIndexType > 4000 And oIndexType < 5000 Then If oIndexType > 4000 And oIndexType < 5000 Then
'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then 'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then
Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME"))
'Hier muss nun separat als Vektorfeld indexiert werden 'Hier muss nun separat als Vektorfeld indexiert werden
If Indexiere_VektorfeldPM(PM_String, PROFIL_VEKTORINDEX) = False Then If Indexiere_VektorfeldPM(value, dr.Item("INDEXNAME")) = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & dr.Item("INDEXNAME").ToString.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & dr.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT", False)
Else Else
errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
My.Settings.Save() My.Settings.Save()
@ -2443,7 +2424,7 @@ Public Class frmValidator
End If End If
Next Next
End If End If
'Wenn kein Fehler nach der finalen Indexierung gesetzt wurde ''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
If _error = False Then If _error = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Tabelle updaten und co", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Tabelle updaten und co", False)