MS_13.11_Final

app/DD-Record-Organiser/frmTemplates.vb

@@ -60,6 +60,7 @@
             cmbControls.DataSource = DT1
             cmbControls.DisplayMember = DT1.Columns(1).ColumnName
             cmbControls.ValueMember = DT1.Columns(0).ColumnName
+            Get_CONTROL_COMBOBOX()
         Catch ex As Exception
             MsgBox("Unexpected error in Load Template-Patterns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -226,6 +227,18 @@
                     ListBoxVorschau.DataSource = DT
                     ListBoxVorschau.DisplayMember = DT.Columns(0).ColumnName
                 End If
+                If FIXED_VALUETextBox.Text <> "" Then
+                    Dim name = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & FIXED_VALUETextBox.Text
+                    name = ClassDatabase.Execute_Scalar(name, True)
+                    If cmbControls.Text <> name Then
+                        btnRefreshControlPattern.Visible = True
+                    Else
+                        btnRefreshControlPattern.Visible = False
+                    End If
+                Else
+                    btnRefreshControlPattern.Visible = True
+                End If
+               
             End If
          
         End If
@@ -234,4 +247,37 @@
     Private Sub tsbtnGetPatterns_Click(sender As Object, e As EventArgs) Handles tsbtnGetPatterns.Click
         GetPatterns()
     End Sub
+
+    Private Sub ToolStripButton15_Click(sender As Object, e As EventArgs) Handles ToolStripButton15.Click
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnRefreshControlPattern.Click
+        If cmbControls.SelectedIndex <> -1 Then
+            Dim ctrlstring = cmbControls.SelectedValue.ToString
+            Dim sql = String.Format("UPDATE TBPMO_TEMPLATE_PATTERN SET FIXED_VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", ctrlstring, Environment.UserName, GUIDTextBox2.Text)
+            If ClassDatabase.Execute_non_Query(sql, True) Then
+                FIXED_VALUETextBox.Text = ctrlstring
+                lblSavePattern.Visible = True
+            Else
+                lblSavePattern.Visible = False
+            End If
+        End If
+    End Sub
+    Private Sub TBPMO_TEMPLATE_PATTERNBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_TEMPLATE_PATTERNBindingSource.CurrentChanged
+        If loaded = True Then
+            Get_CONTROL_COMBOBOX()
+            lblSavePattern.Visible = False
+
+        End If
+    End Sub
+    Sub Get_CONTROL_COMBOBOX()
+        If IsNumeric(FIXED_VALUETextBox.Text) Then
+            Dim name = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & FIXED_VALUETextBox.Text
+            name = ClassDatabase.Execute_Scalar(name, True)
+            cmbControls.SelectedIndex = cmbControls.FindStringExact(name)
+        Else
+            btnRefreshControlPattern.Visible = True
+        End If
+    End Sub
 End Class