MS

app/DD_PM_WINDREAM/frmValidator.vb

@@ -1058,7 +1058,7 @@ Public Class frmValidator
         Dim box As TextBox = sender
         If box.Text <> String.Empty And me_closing = False And _Indexe_Loaded = True Then
 
-            If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Then
+            If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab)  Or (e.KeyCode = Keys.Enter) Then
                 Try
                     Dim CONTROL_ID = VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, box.Name)
                     Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, box.Name)
@@ -1136,20 +1136,7 @@ Public Class frmValidator
                 End If
             End If
         End If
-        'If navStep Is Nothing = False Then
-        '    Select Case navStep
-        '        Case "first"
-        '            MovePosition(0)
-        '        Case "previous"
-        '            MovePosition(aktIndex - 1)
-        '        Case "next"
-        '            MovePosition(aktIndex + 1)
-        '        Case "last"
-        '            MovePosition(Anzahl_ValDoks - 1)
-        '    End Select
-        '    first_control.Focus()
 
-        'End If
     End Sub
     Public Sub onDGVRowValidating(ByVal sender As Object, ByVal e As DataGridViewCellCancelEventArgs)
         Dim dgv As DataGridView = sender
@@ -1206,6 +1193,74 @@ Public Class frmValidator
             If cmb.Name = last_control.Name Then
                 'Abschluss()
             Else
+                Try
+                    Dim CONTROL_ID = VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, cmb.Name)
+                    Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, cmb.Name)
+                    Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
+                    If Not IsNothing(DT) And DT.Rows.Count > 0 Then
+                        For Each ROW As DataRow In DT.Rows
+                            Try
+                                Dim displayboxname = ROW.Item(0).ToString
+                                If Not IsDBNull(ROW.Item(1)) And Not IsDBNull(ROW.Item(2)) Then
+                                    Dim sql_Statement = ROW.Item(2)
+                                    ' Regulären Ausdruck zum Auslesen der Indexe definieren
+                                    Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
+                                    ' einen Regulären Ausdruck laden
+                                    Dim regulärerAusdruck As Text.RegularExpressions.Regex = New Text.RegularExpressions.Regex(preg)
+                                    ' die Vorkommen im SQL-String auslesen
+                                    Dim elemente As Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(sql_Statement)
+                                    '####
+                                    ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
+                                    For Each element As Text.RegularExpressions.Match In elemente
+                                        Try
+                                            If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
+                                            Dim MyPattern = element.Value.Substring(2, element.Value.Length - 3)
+                                            Dim input_value
+
+                                            If MyPattern.Contains(ClassControlCreator.PREFIX_TEXTBOX) Then
+                                                Dim txt As TextBox = CType(pnldesigner.Controls(MyPattern), TextBox)
+                                                input_value = txt.Text
+                                            ElseIf MyPattern.Contains(ClassControlCreator.PREFIX_COMBOBOX) Then
+                                                Dim cmb1 As ComboBox = CType(pnldesigner.Controls(MyPattern), ComboBox)
+                                                input_value = cmb1.Text
+                                            End If
+                                            sql_Statement = sql_Statement.ToString.Replace(element.Value, input_value)
+                                        Catch ex As Exception
+                                            ClassLogger.Add("Unexpected Error in Checking control values for Variable SQL Result ComboBox - ERROR: " & ex.Message)
+                                        End Try
+
+                                    Next
+
+
+
+                                    Dim resultDT As DataTable = ClassDatabase.Return_Datatable_CS(sql_Statement, ROW.Item(1))
+                                    If resultDT.Rows.Count >= 1 Then
+                                        'Nur dediziert einen Wert zurückerhalten
+                                        For Each row1 As DataRow In resultDT.Rows
+                                            Dim result = row1.Item(0)
+                                            If Not IsNothing(result) Then
+                                                pnldesigner.Controls(displayboxname).Text = result.ToString
+                                                Exit For
+                                            Else
+                                                pnldesigner.Controls(displayboxname).Text = "RESULT = NOTHING"
+                                                Exit For
+                                            End If
+                                        Next
+                                    Else
+                                        pnldesigner.Controls(displayboxname).Text = "NO RESULT"
+                                    End If
+
+
+                                End If
+                            Catch ex As Exception
+                                ClassLogger.Add("Unexpected Error in Display SQL result (Combobox) for control: " & ROW.Item(0).ToString & " - ERROR: " & ex.Message)
+                            End Try
+                        Next
+                    End If
+                Catch ex As Exception
+                    ClassLogger.Add("Unexpected Error in Eventhandler Variable SQL Result ComboBox - ERROR: " & ex.Message)
+                End Try
+
                 SendKeys.Send("{TAB}")
             End If
         End If