You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
212 lines
7.7 KiB
212 lines
7.7 KiB
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
|