jj_02_12

app/DD-Record-Organiser/ClassControlCommandsUI.vb

@@ -330,7 +330,7 @@ Public Class ClassControlCommandsUI
                     InsertAllControls(FormID, RecordID, DirectCast(ctrl, GroupBox).Controls)
                 End If
             Else
-                InsertControlValue(ctrl.Name, RecordID, CONTROL_VALUE)
+                InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
             End If
         Next
     End Sub
@@ -574,7 +574,7 @@ Public Class ClassControlCommandsUI
         End Select
     End Function
 
-    Public Shared Function InsertControlValue(ControlID As String, RecordID As Integer, Value As String)
+    Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String)
         Try
             Dim AddedWho = Environment.UserName
             Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID)

app/DD-Record-Organiser/frmForm_Constructor_Main_2.vb

@@ -425,7 +425,7 @@ Public Class frmForm_Constructor_Main_2
         Return grvwGridPos.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
     End Function
     Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
-       Column_Row_Handler
+        Column_Row_Handler()
     End Sub
     Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged
         Column_Row_Handler()
@@ -858,7 +858,11 @@ Public Class frmForm_Constructor_Main_2
                         EBENE1_RECID = recid
                         For Each row As DataRow In DT_SELECTION.Rows
                             If row.Item("Record-ID") = SELECTED_RECORD_ID Then
-                                EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
+                                If EBENE1_COLUMNNAME = "" Then
+                                    EBENE1_GRID_RESULT = "No Column configured"
+                                Else
+                                    EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
+                                End If
                             End If
                         Next
                     Case 2
@@ -1254,7 +1258,7 @@ Public Class frmForm_Constructor_Main_2
 
             Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
             If Not IsNothing(Grid_RecordID) Then
-                 Select ACT_EBENE
+                Select Case ACT_EBENE
                     Case 1
                         PARENT_RECORDID = Grid_RecordID
                         CURRENT_PARENTID = PARENT_RECORDID