MS

app/DD-Record-Organiser/frmNewVariant.vb

@@ -0,0 +1,56 @@
+Imports System.Windows.Forms
+
+Public Class frmNewVariant
+    Dim DT_REASONS As DataTable
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        If cmbReason.SelectedIndex <> -1 Then
+            Dim result As MsgBoxResult
+            Dim msg = "Möchten Sie nun eine neue Variante anlegen?"
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = "Would You now really create a new variant?"
+            End If
+            result = MessageBox.Show(msg, "Create variant:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            If result = MsgBoxResult.Yes Then
+                Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", CURRENT_RECORD_ID, Environment.UserName)
+                If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
+                    Dim sel = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD WHERE UPPER(ADDED_WHO) = '{0}'", Environment.UserName.ToUpper)
+                    Dim REC_ID = ClassDatabase.Execute_Scalar(sel)
+                    Dim Upd = String.Format("UPDATE TBPMO_RECORD SET PARENT_RECORD = {0},CHANGED_WHO = '{1}' WHERE GUID = {2}", REC_ID, Environment.UserName, CURRENT_RECORD_ID)
+                    If ClassDatabase.Execute_non_Query(Upd) = True Then
+                        Dim ins = String.Format("INSERT INTO TBPMO_RECORD_VARIANT (RECORD_ID,REASON_CODE,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", CURRENT_RECORD_ID, cmbReason.SelectedText, txtComment.Text, Environment.UserName)
+                        If ClassDatabase.Execute_non_Query(ins) = True Then
+                            Upd = String.Format("UPDATE TBPMO_RECORD SET RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}),CHANGED_WHO = '{1}' WHERE GUID = {2}", CURRENT_RECORD_ID, Environment.UserName, REC_ID)
+                            If ClassDatabase.Execute_non_Query(ins) = True Then
+                                CURRENT_RECORD_ID = REC_ID
+                                Me.DialogResult = System.Windows.Forms.DialogResult.OK
+                                Me.Close()
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        Else
+            MsgBox("Please choose an entry out of the combobox!", MsgBoxStyle.Exclamation)
+        End If
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub frmNewVariant_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            Dim sel = String.Format("SELECT * FROM TBPMO_ENTITY_VARIANT_REASONS WHERE ENTITY_ID = {0}", CURRENT_FORM_ID)
+            DT_REASONS = ClassDatabase.Return_Datatable(sel)
+            cmbReason.DataSource = DT_REASONS
+            cmbReason.DisplayMember = DT_REASONS.Columns("REASON_CODE").ColumnName
+            cmbReason.ValueMember = DT_REASONS.Columns(0).ColumnName
+            Me.cmbReason.SelectedIndex = -1
+            Me.txtComment.Text = ""
+        Catch ex As Exception
+            MsgBox("Error in Loading Basic Data: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+End Class