|
|
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<6E>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
|
|
|
|
