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

merge

Browse Source
This commit is contained in:
Jonathan Jenne
2021-01-13 14:41:04 +01:00
parent 6c81a24785 4981ffb33e
commit 694fcfeb0f
2 changed files with 14 additions and 634 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
app/DD_PM_WINDREAM/ClassIDBData.vb
View File

@@ -190,13 +190,15 @@
Next
End If
Else
'### Old Value is a single value ###
If oDTMyNewValues.Rows.Count > 1 Then
Dim oExists As Boolean = False
'### there is more than one new value ###
Dim oExists As Boolean
For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
oExists = False
Dim oInfo1 = $"Checking oldValue[{oOldAttributeResult}] vs NewValue [{oNewValueRow.Item(1)}]"
If oNewValueRow.Item(1).ToString.ToUpper = oOldAttributeResult.ToString.ToUpper Then
oExists = True
Exit For
End If
Next
If oExists = False Then
@@ -206,10 +208,16 @@
Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
End If
Else
Dim oInfo = $"Value [{oOldAttributeResult}] of Attribute [{oAttributeName}] obviously was updated during runtime - will be deleted!"
LOGGER.Info(oInfo)
SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo)
Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
'### there is only ONE new value ###
If oDTMyNewValues.Rows(0).Item(1) <> oOldAttributeResult Then
Dim oInfo = $"Value [{oOldAttributeResult}] of Attribute [{oAttributeName}] obviously was updated during runtime - will be deleted!"
LOGGER.Info(oInfo)
SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo)
Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
Else
LOGGER.Debug($"Attributvalue of [{oAttributeName}] did not change!")
End If
End If
End If