MS

app/DD-Record-Organizer/ClassControlBuilder.vb

@@ -18,6 +18,7 @@ Public Class ClassControlBuilder
 
     Public IsInsert As Boolean
     Public IsEdit As Boolean
+    Public IsCancelCheck As Boolean = False
 
     ' +++ Constructor +++
     Public Sub New(MasterPanel As Panel,
@@ -738,6 +739,10 @@ Public Class ClassControlBuilder
 
             Dim  CONTROL_VALUE As String = ClassControlCommandsUI.GetControlValue(control)
 
+            If CURRENT_CONTROL_VALUE_COUNT > 3 Then
+
+            End If
+
             If CURRENT_RECORD_ID = 0 Then
                 Exit Sub
             End If
@@ -772,8 +777,9 @@ Public Class ClassControlBuilder
             End If
         End Try
     End Sub
-    Public Sub OnCheckedChanged(sender As Object, ByVal e As EventArgs)
+    Public Sub OnCheckedChanged(sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs)
         If CURRENT_RECORD_ENABLED = False Then Exit Sub
+        If IsCancelCheck = True Then Exit Sub
 
         Try
             Dim GridView As DevExpress.XtraGrid.Views.Grid.GridView = sender
@@ -797,7 +803,37 @@ Public Class ClassControlBuilder
                 Exit Sub
             End If
 
-
+            If CURRENT_CONTROL_VALUE_COUNT > 3 Then
+                Dim msgtitle = "Mehr als 3 Werte gewählt:"
+                If USER_LANGUAGE <> "de-DE" Then
+                    msgtitle = "More than 3 values selected:"
+                End If
+                Dim msg = String.Format("Sind Sie sicher dass Sie '{0}' Werte hinterlegen wollen?", CURRENT_CONTROL_VALUE_COUNT)
+                If USER_LANGUAGE <> "de-DE" Then
+                    msg = String.Format("Do You really want to add '{0}' values?", CURRENT_CONTROL_VALUE_COUNT)
+                End If
+                Dim result As MsgBoxResult
+                result = MessageBox.Show(msg, msgtitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                If result = MsgBoxResult.No Then
+                    Dim type = control.GetType().Name
+                    Select Case type
+                        Case "GridControl"
+                            Dim chk_grid As DevExpress.XtraGrid.GridControl
+                            chk_grid = DirectCast(control, DevExpress.XtraGrid.GridControl)
+                            Dim gridview1 As DevExpress.XtraGrid.Views.Grid.GridView = chk_grid.MainView
+                            gridview1.ClearSelection()
+                            IsCancelCheck = True
+                            'For Each index As Integer In GridView.GetSelectedRows()
+                            '    gridview1.UnselectRow(index)
+                            '    'Dim fieldName As String = GridView.Columns(0).FieldName
+                            '    'Dim value As String = GridView.GetRowCellValue(index, fieldName)
+                            '    'GridView.
+                            'Next
+                    End Select
+                    IsCancelCheck = False
+                    Exit Sub
+                End If
+            End If
             ' Da wir beim Klick auf Hinzfügen einen Record anlegen, 
             ' muss UpdateMultipleValues auch aufgerufen werden, wenn wir IsInsert = True ist
             'If CtrlCommandUI.IsInsert = False Then