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

    Public Class clsPersonen
        Inherits TKB.VV.DB.clsPerson

        Public Neuer_Datensatz As Boolean = False
        ''' <summary>
        ''' Person lesen
        ''' </summary>
        ''' <param name="Nr">PersonNr</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Get_Person(ByVal Nr As Integer)
            Me.cpMainConnectionProvider = Globals.conn
            Me.iPersonNr = New SqlInt32(CType(Nr, Int32))
            Globals.conn.OpenConnection()
            Me.SelectOne()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Person 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.iPersonNr.Value
        End Function
        ''' <summary>
        ''' Kopie eines Datensatzes erstellen.
        ''' </summary>
        ''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Get_Person(Basenr)
            End If
            Dim db As New TKB.VV.DB.clsMyKey_Tabelle
            db.cpMainConnectionProvider = Globals.conn
            Dim newkey = db.get_dbkey("Person")
            db.Dispose()

            Me.cpMainConnectionProvider = Globals.conn
            Me.iPersonNr = New SqlInt32(CType(newkey, Int32))
            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))
            Globals.conn.OpenConnection()
            Me.Insert()
            Globals.conn.CloseConnection(True)
            Me.Neuer_Datensatz = True
            Return newkey
        End Function
        ''' <summary>
        ''' Kontakt inaktivieren.
        ''' </summary>
        ''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Delete_Kontakt(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Get_Person(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>
        ''' Kontakt löschen
        ''' </summary>
        ''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Get_Person(Basenr)
            End If
            Me.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            MyBase.Delete()
            Globals.conn.CloseConnection(True)
            Me.Neuer_Datensatz = False
        End Function
        ''' <summary>
        ''' Neue Person einfügen
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Add_New(ByVal Vertragspartnernr As Integer) As Integer
            Dim db As New TKB.VV.DB.clsMyKey_Tabelle
            db.cpMainConnectionProvider = Globals.conn
            Dim newkey = db.get_dbkey("Person")
            db.Dispose()
            Me.iPersonNr = New SqlInt32(CType(newkey, Int32))
            Me.iVertragspartnernr = New SqlInt32(CType(Vertragspartnernr, Int32))
            Me.sName = New SqlString(CType("", String))
            Me.sVorname = New SqlString(CType("", String))
            Me.sStrasse = New SqlString(CType("", String))
            Me.sPostfach = New SqlString(CType("", String))
            Me.sPlz = New SqlString(CType("", String))
            Me.sOrt = New SqlString(CType("", String))
            Me.sTelefon = New SqlString(CType("", String))
            Me.sTelefax = New SqlString(CType("", String))
            Me.sEMail = New SqlString(CType("", String))
            Me.sInternet = New SqlString(CType("", String))
            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(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
            Me.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
            Me.iPersonFunktionNr = 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
    End Class

End Namespace