WIP Validation for Grids

app/DD_PM_WINDREAM/frmValidator.vb

@@ -13,6 +13,7 @@ Imports DigitalData.Controls.ChatControl
 Imports DevExpress.XtraEditors.Repository
 Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Imports DevExpress.XtraGrid.Views.Grid
 
 Public Class frmValidator
     Dim strFileList()
@@ -358,9 +359,9 @@ Public Class frmValidator
             RibbonPageGroupConv_Change.Visible = False
         End If
         RepositoryItemComboBox3.Items.Clear()
-            Dim oActiveConv As Boolean = False
-            RibbonPageGroupConv_Change.Visible = True
-            For Each oconv As String In oConversations
+        Dim oActiveConv As Boolean = False
+        RibbonPageGroupConv_Change.Visible = True
+        For Each oconv As String In oConversations
             If Not oconv.Contains("Started") Then
                 RepositoryItemComboBox3.Items.Add(oconv)
             End If
@@ -369,16 +370,16 @@ Public Class frmValidator
             End If
 
         Next
-            If oActiveConv = False Then
-                btnitemConversationEnd.Enabled = False
-                btnitemConversation_reload.Enabled = False
-                SplitContainer2_DV_Chat.Collapsed = True
-            Else
-                If SplitContainer2_DV_Chat.Panel2.Visible = False Then
-                    SplitContainer2_DV_Chat.Panel2.Visible = True
-                End If
-                SplitContainer2_DV_Chat.Collapsed = False
+        If oActiveConv = False Then
+            btnitemConversationEnd.Enabled = False
+            btnitemConversation_reload.Enabled = False
+            SplitContainer2_DV_Chat.Collapsed = True
+        Else
+            If SplitContainer2_DV_Chat.Panel2.Visible = False Then
+                SplitContainer2_DV_Chat.Panel2.Visible = True
             End If
+            SplitContainer2_DV_Chat.Collapsed = False
+        End If
 
     End Sub
     Private Sub frmValidation_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
@@ -398,7 +399,7 @@ Public Class frmValidator
             If INACTIVITY_DURATION <> 0 Then frmMain.Check_Timer_Inactivity()
 
             Try
-            _frmValidatorSearch.Close()
+                _frmValidatorSearch.Close()
             Catch ex As Exception
 
             End Try
@@ -1969,7 +1970,7 @@ Public Class frmValidator
                         LOGGER.Debug($"Trying to fill the DropDown (DC) for ControlID [{oDEPENDING_CONTROL_ID}]..RowCount: [{oDTDEPENDING_RESULT.Rows.Count}] ")
                         For Each oControl As Control In pnldesigner.Controls
                             If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_CONTROL_ID Then
-                                ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT)
+                                ClassControlCreator.GridTables.Item(oControl.Name).Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT)
                                 _dependingColumn_in_action = False
                                 Exit For
                             End If
@@ -2006,7 +2007,7 @@ Public Class frmValidator
                         LOGGER.Debug($"Trying to fill the DropDown (DC) for ControlID [{oDEPENDING_CONTROL_ID}]..RowCount: [{oDTDEPENDING_RESULT.Rows.Count}] ")
                         For Each oControl As Control In pnldesigner.Controls
                             If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_CONTROL_ID Then
-                                ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT)
+                                ClassControlCreator.GridTables.Item(oControl.Name).Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT)
                                 _dependingColumn_in_action = False
                                 Exit For
                             End If
@@ -3546,7 +3547,7 @@ Public Class frmValidator
                                 LOGGER.Debug($"Trying to create a DropDown(FIV) for oDEPENDING_CTRL_ID [{oDEPENDING_CTRL_ID}]..RowCount: [{oDTRESULT_FOR_COLUMN.Rows.Count}] ")
                                 For Each oControl As Control In pnldesigner.Controls
                                     If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_CTRL_ID Then
-                                        ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTRESULT_FOR_COLUMN)
+                                        ClassControlCreator.GridTables.Item(oControl.Name).Add(oDEPENDING_COLUMN, oDTRESULT_FOR_COLUMN)
                                         Exit For
                                     End If
                                 Next
@@ -3671,6 +3672,23 @@ Public Class frmValidator
     End Sub
     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
         btnSave.Enabled = False
+
+        Dim oGrids = (From oControl In pnldesigner.Controls
+                      Where TypeOf oControl Is GridControl
+                      Select oControl).ToList()
+
+        For Each oGrid As GridControl In oGrids
+            Dim oView As GridView = oGrid.MainView
+
+            For index = 0 To oView.RowCount - 1
+                oView.FocusedRowHandle = index
+                oView.UpdateCurrentRow()
+            Next
+
+        Next
+
+        Return
+
         Finish_WFStep()
         btnSave.Enabled = True
     End Sub
@@ -5467,10 +5485,10 @@ Public Class frmValidator
                 End If
                 Conversations_Init_Rights()
                 Conversations_load()
-                End If
-
             End If
 
+        End If
+
 
     End Sub