Imports VERAG_PROG_ALLGEMEIN

Public Class frmEintragOptionen

    Dim OptionenDAL As New cOptionenDAL
    Dim myOptionen As New cOption
    Dim hÄnderung As Boolean = False
    Dim Neuanlage As Boolean = False


    Public Sub New()
        InitializeComponent()
        Icon = cMeineFunktionenAVISO.GetProgrammIcon
    End Sub

    Private Sub frmEintragOptionen_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        'Escape händisch abfangen und auf Abbruch-Taste legen
        If e.KeyCode = Keys.Escape Then
            btnAbbruch.PerformClick()
        End If
    End Sub

    Private Sub frmEintragOptionen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.CenterToParent()

        If cGlobal.Aktive_ID = 0 Then
            'es erfolgt eine Neuanlage
            Neuanlage = True
            Me.Text = "Neuanlage Optionen"
        Else
            Me.Text = "Änderung Optionen-Stammdaten"
            'ausgewählter Datensatz wird geladen
            myOptionen = OptionenDAL.LesenOptionen(cGlobal.Aktive_ID, "")

            'Werte(zuweisen)
            txtAnkunft_Betreff.Text = myOptionen.eMail_Ankunft_Betreff
            txtAnkunft_Text.Text = myOptionen.eMail_Ankunft_Text
            txtFreigabe_Betreff.Text = myOptionen.eMail_Freigabe_Betreff
            txtFreigabe_Text.Text = myOptionen.eMail_Freigabe_Text
        End If

        hÄnderung = False
    End Sub


    Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
        'Irgendwas wurde geändert, deshalb ein Hinweis, ob auch wirklich abgebrochen werden soll
        'If hÄnderung Then
        '  Dim antwort As MsgBoxResult = MsgBox("Wollen Sie wirklich abbrechen?" & vbCrLf & vbCrLf & "Alle Änderungen gehen dabei verloren.", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
        '                          "Dateneingabe wird abgebrochen")
        '  If antwort = vbNo Then
        '    Exit Sub
        '  End If
        'End If

        Me.Close()
    End Sub

    'Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtAnkunft_Betreff.GotFocus, txtFreigabe_Betreff.GotFocus
    '  CType(sender, TextBox).SelectAll()
    'End Sub

    'Private Sub txtBilanzart_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtBilanzart.TextChanged, txtBilanzart.TextChanged, txtAIS_Bilanzart.TextChanged, txtInfo.TextChanged, txtOptionen.TextChanged
    '  hÄnderung = True    'es wurde etwas geändert
    'End Sub

    'Private Sub txtOptionen_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
    '  'Es sind nur Zahleneingaben erlaubt
    '  Dim asc As Integer = Convert.ToInt32(e.KeyChar)
    '  Select Case asc
    '    'Folgende Tasten sind erlaubt
    '    '8 = Rücktaste (Back)
    '    '13 = Enter
    '    '27 = Esc
    '    '48 To 57 = 0 bis 9
    '    Case 8, 13, 27, 48 To 57
    '    Case Else
    '      e.Handled = True
    '  End Select
    'End Sub

    Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
        'Falls keine Änderung oder Neuanlage, dann kann Fenster geschlossen werden
        'If Not hÄnderung And myOptionen.OptionID > 0 Then Me.Close()

        'Logische Prüfungen vor dem Speichern
        If txtAnkunft_Betreff.Text.Trim = "" Then
            MsgBox("Bitte den Betreff beim Ankunftsmail eingeben.", MsgBoxStyle.Exclamation)
            txtAnkunft_Betreff.Focus()
            Exit Sub
        End If

        If txtFreigabe_Betreff.Text.Trim = "" Then
            MsgBox("Bitte den Betreff beim Freigabemail eingeben.", MsgBoxStyle.Exclamation)
            txtFreigabe_Betreff.Focus()
            Exit Sub
        End If

        'Änderungen werden gespeichert
        myOptionen.eMail_Ankunft_Betreff = txtAnkunft_Betreff.Text.Trim
        myOptionen.eMail_Ankunft_Text = txtAnkunft_Text.Text.Trim
        myOptionen.eMail_Freigabe_Betreff = txtFreigabe_Betreff.Text.Trim
        myOptionen.eMail_Freigabe_Text = txtFreigabe_Text.Text.Trim

        OptionenDAL.SpeichernOptionen(myOptionen)

        If Neuanlage Then
            'bei Neuanlage KZ setzen, damit Tabelle neu anzeigt wird
            cGlobal.Aktive_ID = 1
        End If

        'Jetzt wird Fenster geschlossen
        Me.Close()
    End Sub

End Class