add vectorbehaviour property

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -952,7 +952,7 @@ Public Class frmAdministration
             Dim description As String = NotNull(focusedRow.Item("DESCRIPTION"), "")
             Dim preventDuplicates As Boolean = NotNull(focusedRow.Item("PREVENT_DUPLICATES"), False)
             Dim allowNewValues As Boolean = NotNull(focusedRow.Item("ALLOW_NEW_VALUES"), False)
-            Dim VectorBehaviour As String = NotNull(focusedRow.Item("IF_VEKTOR_BEHAVIOUR"), False)
+            Dim VectorBehaviour As String = NotNull(focusedRow.Item("IF_VEKTOR_BEHAVIOUR"), "Add")
 
 
             CURRENT_INDEX_ID = guid
@@ -1003,6 +1003,10 @@ Public Class frmAdministration
             obj.Indicies = Windream_Indicies
             obj.IndiciesType = Windream_Indicies_Types
             obj.IndexName = index
+            obj.VectorBehaviourType = New List(Of String) From {
+                "Add",
+                "Overwrite"
+            }
 
             If Not index Is Nothing Then
                 Dim indexType As Integer = ClassFinalIndex.GetIndexType(index, Windream_Indicies, Windream_Indicies_Types)
@@ -1168,13 +1172,4 @@ Public Class frmAdministration
             LOGGER.Error(ex)
         End Try
     End Sub
-
-
-    'Private Sub viewFinalIndex_ValidateRow(sender As Object, e As Views.Base.ValidateRowEventArgs) Handles viewFinalIndex.ValidateRow
-    '    Dim rowView As DataRowView = e.Row
-
-    '    If rowView.IsNew Then
-    '        Dim props As FinalIndexProperties = PropertyGrid1.SelectedObject
-    '    End If
-    'End Sub
 End Class