ITSM/Vertragsverwaltung - Kopie/Applikation/Applikationabhaengigkeit/clsApplikationsabhaengigkeit.vb

Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace TKB.VV.Applikation


    Public Class clsApplikationsabhaengigkeit
        Inherits TKB.VV.DB.clsApplikationabhaengigkeit

#Region "Deklarationen"
        Public Neuer_Datensatz As Boolean = False

        Dim sApplname1 As String
        Dim sapplname2 As String
        ReadOnly Property Applname1() As String
            Get
                Dim ap As New TKB.VV.DB.clsApplikation
                Try
                    ap.cpMainConnectionProvider = Globals.conn
                    ap.iApplikationNr = Me.iApplikationnr1.Value
                    ap.SelectOne()
                    Return ap.sBezeichnung.Value
                Catch
                    Return ""
                Finally
                    ap.Dispose()
                End Try

                Return sApplname1
            End Get
        End Property
        ReadOnly Property Applname2() As String
            Get
                Dim ap As New TKB.VV.DB.clsApplikation
                Try
                    ap.cpMainConnectionProvider = Globals.conn
                    ap.iApplikationNr = Me.iApplikationnr2.Value
                    ap.SelectOne()
                    Return ap.sBezeichnung.Value
                Catch
                    Return ""
                Finally
                    ap.Dispose()
                End Try

                Return sApplname1
            End Get
        End Property

#End Region
        Sub New()
            MyBase.New()
        End Sub

        Public Overloads Sub dispose()
            MyBase.Dispose()
        End Sub

        ''' <summary>
        ''' Vertragselement_Referenz lesen
        ''' </summary>
        ''' <param name="Nr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Get_Applikationabhaengigkeit(ByVal Nr As Integer)
            Me.cpMainConnectionProvider = Globals.conn
            Me.iApplikationAbhaengigkeitNr = New SqlInt32(CType(Nr, Int32))
            Globals.conn.OpenConnection()
            Me.SelectOne()
            Globals.conn.CloseConnection(True)

        End Function
        ''' <summary>
        ''' Daten sichern
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Save_Data() As Integer
            Me.cpMainConnectionProvider = Globals.conn
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
            Me.Neuer_Datensatz = False
            Return Me.iApplikationAbhaengigkeitNr.Value
        End Function

        ''' <summary>
        ''' Physisches 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
            Me.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            MyBase.Delete()
            Globals.conn.CloseConnection(True)
            Me.Neuer_Datensatz = False
        End Function
        ''' <summary>
        ''' L<>schen eines Datensatzes.
        ''' </summary>
        ''' <param name="Basenr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Delete_Referenz(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Me.Get_Applikationabhaengigkeit(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(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
            Me.Neuer_Datensatz = False
        End Function

        ''' <summary>
        ''' Neue Vertragselement_Referenz erstellen
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Add_New(ByVal Applikationnr As Integer) As Integer
            Dim db As New TKB.VV.DB.clsMyKey_Tabelle
            db.cpMainConnectionProvider = Globals.conn
            Dim newkey = db.get_dbkey("ApplikationAbhaengigkeit")
            db.Dispose()
            Me.iApplikationAbhaengigkeitNr = New SqlInt32(CType(newkey, Int32))
            Me.iApplikationnr1 = New SqlInt32(CType(Applikationnr, Int32))
            Me.iApplikationnr2 = New SqlInt32(CType(0, Int32))
            Me.sBeschreibung = 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(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
            Me.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
            Me.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            Me.Insert()
            Globals.conn.CloseConnection(True)
            Me.Neuer_Datensatz = True
            Return newkey
        End Function

        Public Function Vertragselement_Suchen(ByRef Vertragselementnr As Integer, ByRef Vertragselement_Bezeichngung As String) As Boolean
            Dim vesuche As New frmVertragselementSuche
            vesuche.ShowDialog()
            Try
                If vesuche.DialogResult = DialogResult.OK Then
                    Vertragselementnr = vesuche.Vertragselementnr
                    Vertragselement_Bezeichngung = vesuche.Vertragselement_Bezeichnung
                    Return True
                Else
                    Vertragselementnr = -1
                    Vertragselement_Bezeichngung = ""
                    Return False
                End If
            Catch ex As Exception
                Vertragselementnr = -1
                Vertragselement_Bezeichngung = ""
                Return False
            Finally
                vesuche.dispose()
            End Try
        End Function

    End Class


End Namespace