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
                msg = "Wollen Sie die der Vorgängerversion zugeordenten Dateien mit der neuen Variante verlinken?"
                If USER_LANGUAGE <> "de-DE" Then
                    msg = "Would You like to link the files of the 'old' varaint with the new variant?"
                End If
                Dim RelinkFiles As Integer = 0
                result = MessageBox.Show(msg, "Create variant:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If result = MsgBoxResult.Yes Then
                    RelinkFiles = 1
                End If
                Dim SQL = String.Format("PRPMO_CREATE_VARIANT {0},'{1}','{2}','{3}','{4}'", CURRENT_RECORD_ID, USER_USERNAME, cmbReason.Text, txtComment.Text, RelinkFiles)
                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}'", USER_USERNAME.ToUpper)
                    CURRENT_RECORD_ID = ClassDatabase.Execute_Scalar(sel)
                    msg = "Die neue Variante wurde erzeugt?"
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "The new variant was created successfully?"
                    End If
                    MsgBox(msg, MsgBoxStyle.Information)
                    Me.DialogResult = System.Windows.Forms.DialogResult.OK
                    Me.Close()
                Else
                    MsgBox("Unexpected Error in Creating Variant. Please check the log!", MsgBoxStyle.Critical)
                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_ENTITY_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