prepare release and fix marvman's bugs

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -11,12 +11,17 @@ Public Class frmAdministration
 
         Public Overrides Function ToString() As String
             Return Name
+            Return Name
         End Function
     End Class
 
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' Select first tab to prevent profile textbox from being empty
+        XtraTabControl3.SelectedTabPageIndex = 0
+
         Load_Profiles()
         Load_ProfileTypes()
+        Load_SearchPositions()
         Load_Connections()
     End Sub
 
@@ -34,6 +39,22 @@ Public Class frmAdministration
         End Try
     End Sub
 
+    Sub Load_SearchPositions()
+        Dim oTypeNames As New Dictionary(Of Integer, String) From {
+            {ClassConstants.SEARCH_POSITION_PRIMARY, "Haupttabelle"},
+            {ClassConstants.SEARCH_POSITION_SECONDARY, "Erste Detailtablle"},
+            {ClassConstants.SEARCH_POSITION_TERTIARY, "Zweite Detailtablle"}
+        }
+
+        MyDataset.TBWH_SEARCH_POSITION.Rows.Clear()
+        For Each oTypeName As KeyValuePair(Of Integer, String) In oTypeNames
+            Dim oRow = MyDataset.TBWH_SEARCH_POSITION.NewTBWH_SEARCH_POSITIONRow()
+            oRow.POSITION_INDEX = oTypeName.Key
+            oRow.POSITION_NAME = oTypeName.Value
+            MyDataset.TBWH_SEARCH_POSITION.Rows.Add(oRow)
+        Next
+    End Sub
+
     Sub Load_ProfileTypes()
         Dim oTypeNames As New Dictionary(Of Integer, String) From {
             {ClassConstants.PROFILE_TYPE_DATA_DOCS, "Dokumente und Daten"},
@@ -267,6 +288,7 @@ Public Class frmAdministration
     End Sub
 
     Private Sub TBCW_PROF_DOC_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DOC_SEARCHBindingSource.AddingNew
+
         MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
         MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = True
         MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
@@ -697,4 +719,8 @@ Public Class frmAdministration
             MsgBox("Profile has been duplicated. Please check the dependencies!", MsgBoxStyle.Information)
         End If
     End Sub
+
+    Private Sub GridViewProfiles_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProfiles.FocusedRowChanged
+
+    End Sub
 End Class