Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO

Public Class frmEintragTV
    'Public frmHilf As frmHauptfenster

    Dim AvisoTVDAL As New cAvisoTVDAL
    Dim myAvisoTV As New cAvisoTV
    Dim hÄnderung As Boolean = False
    Dim Neuanlage As Boolean = False


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

    Private Sub frmEintragTV_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 frmEintragTV_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.CenterToParent()

        cGlobal.Aktive_ID = 1    'standardmäßig ist der Wert 1

        If cGlobal.Aktive_ID = 0 Then
            'es erfolgt eine Neuanlage
            Neuanlage = True
            Me.Text = "Neuanlage TV-Text"
        Else
            Me.Text = "Änderung Text für TV-Anzeige"
            'ausgewählter Datensatz wird geladen
            myAvisoTV = AvisoTVDAL.LesenAvisoTV(cGlobal.Aktive_ID, "", "", "")

            'Werte(zuweisen)
            txtZeile1.Text = myAvisoTV.FixeZeile1
            txtZeile2.Text = myAvisoTV.FixeZeile2
        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, txtAvisoTV.TextChanged
    '  hÄnderung = True    'es wurde etwas geändert
    'End Sub

    'Private Sub txtAvisoTV_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 myAvisoTV.AvisoTVID > 0 Then Me.Close()

        'Logische Prüfungen vor dem Speichern

        'keine Prüfungen notwendig

        'Änderungen werden gespeichert
        myAvisoTV.FixeZeile1 = txtZeile1.Text.Trim
        myAvisoTV.FixeZeile2 = txtZeile2.Text.Trim

        AvisoTVDAL.SpeichernAvisoTV(myAvisoTV)

        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