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
    Dim list As New List(Of cAvisoTV)


    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()

        list.Clear()
        cbxStandort.Items.Clear()
        myAvisoTV = AvisoTVDAL.LesenAvisoTV(0, "", "", "", list)

        If list.Count < 1 Then Exit Sub

        For Each s In list.Where(Function(x) x.Standort <> "").Select(Function(x) x.Standort).Distinct.ToList
            cbxStandort.Items.Add(s)
        Next

        initdgv(cbxStandort._value)

    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
        myAvisoTV.FixeZeile3 = ""

        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

    Private Sub cbxStandort_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxStandort.SelectedValueChanged
        initdgv(cbxStandort._value)
    End Sub

    Private Sub initdgv(standort As String)
        Try


            myAvisoTV = AvisoTVDAL.LesenAvisoTV(0, "", "", standort, list)

            If list Is Nothing Or list.Count = 0 Then
                dgvAVISOTV.Rows.Clear()
                Exit Sub

            Else
                dgvAVISOTV.DataSource = list

            End If



            'For Each row As DataGridViewRow In dgvAVISOTV.Rows

            '    If row.Cells("Special").Value IsNot DBNull.Value AndAlso (row.Cells("Special").Value.ToString.ToLower.Contains("xx")) Then row.DefaultCellStyle.ForeColor = Color.Gray

            'Next


            If myAvisoTV IsNot Nothing Then
                'Werte(zuweisen)
                txtZeile1.Text = myAvisoTV.FixeZeile1
                txtZeile2.Text = myAvisoTV.FixeZeile2
                Me.Text = "Änderung Text für TV-Anzeige"
            Else
                myAvisoTV = New cAvisoTV
                myAvisoTV.Standort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                myAvisoTV.Art = "INFO"
                'Werte(zuweisen)
                Neuanlage = True
                txtZeile1.Text = ""
                txtZeile2.Text = ""
                Me.Text = "Neuanlage TV-Text"
            End If

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Sub
End Class