Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports C1.Win.C1TrueDBGrid

Namespace TKB.VV.Lizenz


    Public Class clsLizenz
        Inherits TKB.VV.DB.clsLizenz

 
        Dim mMutierer As String
        Property MutiererText() As String
            Get
                Return mMutierer
            End Get
            Set(ByVal value As String)
                mMutierer = value
            End Set
        End Property

        Public Overloads Sub dispose()
            MyBase.Dispose()
            Try
 
            Catch ex As Exception

            End Try

        End Sub

        Public Function get_umgebung(ByVal lizenznr As Integer)
            Try
            Catch
            End Try
        End Function

        Public Function Get_Lizenz(ByVal Nr As Integer)
            Me.cpMainConnectionProvider = Globals.conn
            Me.iLizenzNr = New SqlInt32(CType(Nr, Int32))
            Globals.conn.OpenConnection()
            Me.SelectOne()

            get_umgebung(Me.iLizenzNr.Value)

            Globals.conn.CloseConnection(True)

        End Function

        Public Function Save_Data() As Integer
            Me.cpMainConnectionProvider = Globals.conn
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(1, Int32))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
            Return Me.iLizenzNr.Value
        End Function

        

        ''' <summary>
        ''' Löschen eines Datensatzes erstellen.
        ''' </summary>
        ''' <param name="Basenr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Delete_Lizenz(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Get_Lizenz(Basenr)
            End If
            Me.cpMainConnectionProvider = Globals.conn
            Me.bAktiv = New SqlBoolean(CType(False, Boolean))
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(1, Int32))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Löschen eines Datensatzes .
        ''' </summary>
        ''' <param name="Basenr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Get_Lizenz(Basenr)
            End If
            Me.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            MyBase.Delete()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Neue Kuendigungsfrist einfügen
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Add_New(ByVal bezeichnung As String, Optional ByVal Parentid As Integer = 0, Optional ByVal Strukturelement As Boolean = False) As Integer


            Dim db As New TKB.VV.DB.clsMyKey_Tabelle
            db.cpMainConnectionProvider = Globals.Conn
            Dim newkey = db.get_dbkey("Lizenz")
            db.Dispose()
            Me.iLizenzNr = New SqlInt32(CType(newkey, Int32))
            Me.sBezeichnung = New SqlString(CType(bezeichnung, String))
            Me.sBeschreibung = New SqlString(CType("", String))
            Me.iParentID = New SqlInt32(CType(Parentid, Int32))
            Me.bAktiv = New SqlBoolean(CType(True, Boolean))
            Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(1, Int32))
            Me.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
            Me.bStrukturelement = New SqlBoolean(CType(Strukturelement, Boolean))
            Me.cpMainConnectionProvider = Globals.Conn
            Me.iVertragselementApplikationnr = New SqlInt32(CType(0, Int32))
            If Parentid <> 0 Then
                Me.iParentID = New SqlInt32(CType(Parentid, Int32))
            End If

            Globals.Conn.OpenConnection()
            Me.Insert()
            Globals.Conn.CloseConnection(True)
            Return newkey
        End Function
    End Class

    Public Class clsLizenzVertragselementApplikation
        Inherits TKB.VV.DB.clsLizenzVertragselementApplikation

        Public Sub Get_Data(ByVal BaseNr As Integer)
            Me.cpMainConnectionProvider = Globals.conn
            Me.iLizenzVEApplNr = New SqlInt32(CType(basenr, SqlInt32))
            Globals.conn.OpenConnection()
            Me.SelectOne()
            Globals.conn.CloseConnection(True)

        End Sub

        Public Function Save_Data() As Integer
            Me.cpMainConnectionProvider = Globals.conn
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(1, Int32))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
            Return Me.iLizenzNr.Value
        End Function

        ''' <summary>
        ''' Löschen eines Datensatzes erstellen.
        ''' </summary>
        ''' <param name="Basenr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Delete_LizenzVertragselementApplikation(Optional ByVal Basenr As Integer = 0) As Integer
            Me.cpMainConnectionProvider = Globals.conn
            If Basenr > 0 Then Get_Data(Basenr)
            Me.bAktiv = New SqlBoolean(CType(False, Boolean))
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(1, Int32))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Löschen eines Datensatzes .
        ''' </summary>
        ''' <param name="Basenr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr > 0 Then Get_Data(Basenr)
            Me.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            MyBase.Delete()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Neue Kuendigungsfrist einfügen
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Add_New(ByVal Lizenznr As Integer, ByVal VertragselementApplikationnr As Integer) As Integer
            Dim db As New TKB.VV.DB.clsMyKey_Tabelle
            db.cpMainConnectionProvider = Globals.Conn
            Dim newkey = db.get_dbkey("LizenzVertragselementApplikation")
            db.Dispose()
            Me.iLizenzVEApplNr = New SqlInt32(CType(newkey, Int32))
            Me.iVertragselementApplikationNr = New SqlInt32(CType(VertragselementApplikationnr, Int32))
            Me.iLizenznr = New SqlInt32(CType(Lizenznr, Int32))
            Me.sBemerkung = New SqlString(CType("", String))
            Me.bAktiv = New SqlBoolean(CType(True, Boolean))
            Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(1, Int32))
            Me.cpMainConnectionProvider = Globals.Conn
            'Me.iVertragselementApplikationNr = New SqlInt32(CType(0, Int32))
            Globals.Conn.OpenConnection()
            Me.Insert()
            Globals.Conn.CloseConnection(True)
            Return newkey
        End Function

    End Class

End Namespace