Imports System.Data.SqlClient
Imports System.Data.SqlDbType

Public Class frmNeuerVorgabeEintrag

    Dim vorgabe As New clsVorgabe

    Dim mKey As Integer
    Property Key As Integer
        Get
            Return mKey
        End Get
        Set(value As Integer)
            mKey = value
        End Set
    End Property

    Dim m_tree As New DevComponents.AdvTree.AdvTree
    Property Tree As DevComponents.AdvTree.AdvTree
        Get
            Return m_tree
        End Get
        Set(value As DevComponents.AdvTree.AdvTree)
            m_tree = value
        End Set
    End Property

    Dim m_selectednode As DevComponents.AdvTree.Node
    Property SelectedNode As DevComponents.AdvTree.Node
        Get
            Return m_selectednode

        End Get
        Set(value As DevComponents.AdvTree.Node)
            m_selectednode = value
        End Set
    End Property

    Dim m_parentnode As DevComponents.AdvTree.Node
    Property Parentnode As DevComponents.AdvTree.Node
        Get
            Return m_parentnode
        End Get
        Set(value As DevComponents.AdvTree.Node)
            m_parentnode = value
        End Set
    End Property

    Sub New()
        InitializeComponent()
        Me.TreeVorgabe.ImageList = Globals.GueltigImages
    End Sub

    Private Sub frmNeuerVorgabeintrag_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TreeVorgabe.Nodes.Clear()
        For i As Integer = 0 To Me.Tree.Nodes.Count - 1
            Me.TreeVorgabe.Nodes.Add(Me.Tree.Nodes(i))
        Next i
        Me.TreeVorgabe.SelectedNode = Me.SelectedNode
        If Me.Key > -1 Then
            Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.SelectedNode.Parent
        End If
        If m_parentnode IsNot Nothing Then
            Me.TreeVorgabe.SelectedNode = Me.Parentnode
        End If
        If Me.TreeVorgabe.SelectedNode Is Nothing Then
            Me.txtKapitelnr.Enabled = False
        End If
        Me.dtGueltigbis.Value = "31.12.2099"
        Me.txtKapitelnr.Focus()
        If Me.Key > -1 Then
            vorgabe.Get_Data(Me.Key)
            Me.txtKapitelnr.Text = vorgabe.sKapitelNr.Value.ToString
            Me.txtKapitel.Text = vorgabe.sKapitel.Value.ToString
            Try
                Me.dtGueltigbis.Value = vorgabe.daGueltig_Bis.Value
            Catch
                Me.dtGueltigbis.Value = "31.12.2099"
            End Try

        End If
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click


        If Me.Key = -1 Then
            vorgabe.Add_New()
            Me.Key = vorgabe.iVorgabeID.Value
        Else
            vorgabe.Get_Data(Me.Key)
            If Me.Key = Me.TreeVorgabe.SelectedNode.Tag Then
                MsgBox("Das übergeordnete Element ist ungültig. Bitte korrigieren.", vbExclamation)
                Exit Sub
            End If
        End If
        Me.DialogResult = DialogResult.OK
        vorgabe.sKapitel = New SqlTypes.SqlString(CType(Me.txtKapitel.Text, String))
        vorgabe.sKapitelNr = New SqlTypes.SqlString(CType(Me.txtKapitelnr.Text, String))
        vorgabe.daGueltig_Bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigbis.Value, DateTime))
        If Me.txtKapitelnr.Enabled = False Then
        Else
            vorgabe.iParentID = New SqlTypes.SqlInt32(CType(Me.TreeVorgabe.SelectedNode.Tag, Int32))
        End If
        vorgabe.Save_Data()
        Me.Close()
    End Sub

    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
        Me.DialogResult = DialogResult.Abort
        Me.Close()
    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        btnAbbruch_Click(sender, e)
    End Sub
End Class