ITSM/Backup/Vertragsverwaltung/Lizenzverwaltung/frmLizenzkauf.vb

Imports System.Data.SqlTypes
Public Class frmLizenzkauf

#Region "Deklarationen"
    Dim Lizenztyp As New DataTable
    Dim clsLizenztyp As New TKB.VV.DB.clsLizenztyp
    Dim cLizenzkauf As New TKB.VV.Lizenz.clsLizenzkauf
    Dim Lizenznr As Integer
    Dim key As Integer
    Dim Lizenzveapplnr As Integer
#End Region

    Sub New(ByVal Lizenznr As Integer, ByVal bezeichnung As String, ByVal Lizenzkaufnr As Integer, ByVal lizenzveapplnr As Integer)
        InitializeComponent()
        Me.Lizenznr = Lizenznr
        Me.Text = Me.Text + " - " + bezeichnung
        key = Lizenzkaufnr
        Me.Lizenzveapplnr = lizenzveapplnr
    End Sub

    Private Sub frmLizenzkauf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.clsLizenztyp.cpMainConnectionProvider = Globals.conn
        Me.Lizenztyp = clsLizenztyp.SelectAll
        Me.cbboxLizenztyp.DataSource = Me.Lizenztyp
        Me.cbboxLizenztyp.DisplayMember = "Bezeichnung"
        Me.cbboxLizenztyp.ValueMember = "Lizenztypnr"
        If key > 0 Then
            Get_Data()
        Else
            Me.cbaktiv.Checked = True
        End If
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Get_Data()
        Me.cLizenzkauf.Get_Data(key)
        Me.cbboxLizenztyp.SelectedValue = Me.cLizenzkauf.iLizenztypnr.Value
        Me.txtAnzahl.Text = Me.cLizenzkauf.iAnzahl.Value
        Me.txtKGNummer.Text = Me.cLizenzkauf.sKGNummer.ToString
        Me.txtSAPNummer.Text = Me.cLizenzkauf.sSAPNummer.ToString
        Me.txtBemerkung.Text = Me.cLizenzkauf.sBemerkung.ToString
        Me.txtKaufdatum.Text = Me.cLizenzkauf.daKaufdatum.ToString
        Me.txtGültigbis.Text = Me.cLizenzkauf.daGueltigbis.ToString
        Me.cbaktiv.Checked = Me.cLizenzkauf.bAktiv.Value = True
    End Sub
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        save_data()
        Me.Close()
    End Sub
    Private Sub save_data()

        If key = 0 Then
            key = Me.cLizenzkauf.Add_New(Me.Lizenznr)
            Me.cLizenzkauf.iVertragselementapplikationnr = New SqlInt32(CType(Me.Lizenzveapplnr, Int32))
        Else
            Me.cLizenzkauf.Get_Data(key)
        End If
        Me.cLizenzkauf.iLizenztypnr = New SqlInt32(CType(Me.cbboxLizenztyp.SelectedValue, Int32))
        Me.cLizenzkauf.iLizenznr = New SqlInt32(CType(Me.Lizenznr, Int32))
        If Me.txtAnzahl.Text = "" Then

            Me.cLizenzkauf.iAnzahl = New SqlInt32(CType(0, Int32))
        Else
            Me.cLizenzkauf.iAnzahl = New SqlInt32(CType(Me.txtAnzahl.Text, Int32))
        End If
        Me.cLizenzkauf.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
        Me.cLizenzkauf.sKGNummer = New SqlString(CType(Me.txtKGNummer.Text, String))
        Me.cLizenzkauf.sSAPNummer = New SqlString(CType(Me.txtSAPNummer.Text, String))
        If IsDate(Me.txtKaufdatum.Text) Then
            Me.cLizenzkauf.daKaufdatum = New SqlDateTime(CType(Me.txtKaufdatum.Text, DateTime))
        Else
            Me.cLizenzkauf.daKaufdatum = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        End If
        If IsDate(Me.txtGültigbis.Text) Then
            Me.cLizenzkauf.daGueltigbis = New SqlDateTime(CType(Me.txtGültigbis.Text, DateTime))
        Else
            Me.cLizenzkauf.daGueltigbis = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        End If
        Me.cLizenzkauf.bAktiv = New SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
        Me.cLizenzkauf.Save_Data()

    End Sub

    Private Sub dtPickerKaufdatum_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtPickerKaufdatum.ValueChanged
        Me.txtKaufdatum.Text = Me.dtPickerKaufdatum.Value
    End Sub

    Private Sub dtPickerGültigbis_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtPickerGültigbis.ValueChanged
        Me.txtGültigbis.Text = Me.dtPickerGültigbis.Value
    End Sub


    Private Sub txtAnzahl_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtAnzahl.KeyDown

    End Sub

    Private Sub txtAnzahl_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAnzahl.KeyPress
        If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." Then
            e.Handled = True
        End If

    End Sub

    Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
        save_data()
    End Sub

    Private Sub txtKaufdatum_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles txtKaufdatum.MaskInputRejected
    End Sub

    Private Sub txtGültigbis_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles txtGültigbis.MaskInputRejected

    End Sub

    Private Sub txtKaufdatum_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtKaufdatum.TextChanged
        If txtKaufdatum.Text = "01.01.1900" Then txtKaufdatum.Text = "  .  .    "

    End Sub

    Private Sub txtGültigbis_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtGültigbis.TextChanged
        If txtGültigbis.Text = "01.01.1900" Then txtGültigbis.Text = "  .  .    "
    End Sub
End Class