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

Final Indexing überarbeitet

Browse Source
This commit is contained in:
Developer01 2025-06-03 14:14:44 +02:00
parent f8c822a868
commit 5431b60f9a
4 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/TaskFlow/My Project/AssemblyInfo.vb
View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.5.4.2")> <Assembly: AssemblyVersion("2.5.4.3")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguage("")> <Assembly: NeutralResourcesLanguage("")>

5
app/TaskFlow/frmAdministration.vb
View File

@ -776,12 +776,17 @@ Public Class frmAdministration
ElseIf oName = "ContinueOnIndifferentState" Then ElseIf oName = "ContinueOnIndifferentState" Then
obj.ContinueOnIndifferentState = oValue obj.ContinueOnIndifferentState = oValue
ElseIf oName = "VectorBehaviour" Then ElseIf oName = "VectorBehaviour" Then
If Not IsNothing(oValue) Then
If oValue = "Delete" Then If oValue = "Delete" Then
obj.StringValue = "DeleteWMAttributeValue" obj.StringValue = "DeleteWMAttributeValue"
obj.SQLCommand.Value = ""
ElseIf oValue = "Add" And obj.StringValue = "" Then ElseIf oValue = "Add" And obj.StringValue = "" Then
obj.StringValue = "Your value to set" obj.StringValue = "Your value to set"
End If End If
End If End If
End If
pgFinalIndexes.Refresh() pgFinalIndexes.Refresh()
End If End If
Catch ex As Exception Catch ex As Exception

2
app/TaskFlow/frmMain.resx
View File

@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAATgBCwE4AQsBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAVABCwFQAQsBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

18
app/TaskFlow/frmValidator.vb
View File

@ -4273,7 +4273,7 @@ Public Class frmValidator
oErrorOcurred = True oErrorOcurred = True
_ItemWorked = False _ItemWorked = False
Else Else
ValidatorLogger.Warn($"FinalIndexResult from SQL is EmptyValue - AttributeName [{oFinalIndexRow.Item("INDEXNAME")}] - oContinueOnIndifferentState = true, So continuing with next Attribute") ValidatorLogger.Warn($"FinalIndexResult from SQL is EmptyValue - AttributeName [{oFinalIndex}] - oContinueOnIndifferentState = true, So continuing with next Attribute")
Continue For Continue For
End If End If
End If End If
@ -4345,8 +4345,8 @@ Public Class frmValidator
oNewValue = oValueList.ToArray() oNewValue = oValueList.ToArray()
If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oNewValue) = True Then If Indexiere_File(CURRENT_WMFILE, oFinalIndex, oNewValue) = True Then
ValidatorLogger.Debug("Final Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' has been set successfully!") ValidatorLogger.Debug("Final Vektorindex '" & oFinalIndex & "' has been set successfully!")
Else Else
errormessage = "Error in final indexing:" & vbNewLine & idxerr_message errormessage = "Error in final indexing:" & vbNewLine & idxerr_message
My.Settings.Save() My.Settings.Save()
@ -4371,20 +4371,20 @@ Public Class frmValidator
End If End If
Dim oFIResult As Boolean = False Dim oFIResult As Boolean = False
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then If Indexiere_File(CURRENT_WMFILE, oFinalIndex, oResult) = True Then
oFIResult = True oFIResult = True
ValidatorLogger.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") ValidatorLogger.Debug("FINALER INDEX '" & oFinalIndex & "' WURDE ERFOLGREICH GESETZT")
'Nun das Logging 'Nun das Logging
If PROFIL_LOGINDEX <> "" Then If PROFIL_LOGINDEX <> "" Then
Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndex)
WMIndexVectofield(logstr, PROFIL_LOGINDEX) WMIndexVectofield(logstr, PROFIL_LOGINDEX)
End If End If
End If End If
Else Else
If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then If IDBData.SetVariableValue(oFinalIndex, oValue) = True Then
oFIResult = True oFIResult = True
ValidatorLogger.Debug($"Final index IDB '{oFinalIndexRow.Item("INDEXNAME")}' was updated with [{oValue.ToString}]") ValidatorLogger.Debug($"Final index IDB '{oFinalIndex}' was updated with [{oValue.ToString}]")
End If End If
End If End If
If oFIResult = False Then If oFIResult = False Then
@ -5727,7 +5727,7 @@ Public Class frmValidator
Next Next
End If End If
If oExistingItems.Count > 0 Then If oExistingItems.Count > 0 And oIndexType <> 4100 Then
ValidatorLogger.Debug("oOverwrite = False and WMObject already contains [{0}] values in attribute,Values will be concatted", oExistingItems.Count) ValidatorLogger.Debug("oOverwrite = False and WMObject already contains [{0}] values in attribute,Values will be concatted", oExistingItems.Count)
oListofString = oExistingItems.Concat(oListofString).ToList() oListofString = oExistingItems.Concat(oListofString).ToList()
End If End If