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.
78 lines
2.6 KiB
78 lines
2.6 KiB
Imports C1.Win.C1TrueDBGrid
|
|
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
|
|
Public Class clsGremienverwaltung
|
|
Public Gremium As New TKB.VV.Sysadmin.DomainTable("Gremium")
|
|
Public GremiumGruppe As New TKB.VV.Sysadmin.DomainTable("GremiumGruppierung")
|
|
Public GremiumBereich As New TKB.VV.Sysadmin.DomainTable("GremiumBereich")
|
|
Public Gremiumperson As TKB.VV.Sysadmin.DomainTable
|
|
Public Rollen As New DataTable
|
|
|
|
'Public Rollen As New TKB.VV.Sysadmin.DomainTable("Kontakttyp")
|
|
|
|
|
|
Public Gremiumdata As New DataTable
|
|
Public GremiumGruppeData As New DataTable
|
|
Public GremiumBereichData As New DataTable
|
|
Public GremiumPersonData As New DataTable
|
|
Dim std As New TKB.VV.Stammdaten.clsStammdaten
|
|
|
|
|
|
''' <summary>
|
|
''' Klassen Initialisieurng
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Sub New()
|
|
Gremiumperson = New TKB.VV.Sysadmin.DomainTable("GremiumPerson", 0, "A")
|
|
Rollen = std.Get_Stammdaten("KONTAKTTYP_GREMIUM", "Bezeichnung")
|
|
End Sub
|
|
''' <summary>
|
|
''' Destructor der Klasse
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Sub dispose()
|
|
Gremium.dispose()
|
|
GremiumGruppe.dispose()
|
|
GremiumBereich.dispose()
|
|
Gremiumperson.dispose()
|
|
Gremiumdata.Dispose()
|
|
GremiumGruppeData.Dispose()
|
|
GremiumBereichData.Dispose()
|
|
GremiumPersonData.Dispose()
|
|
Rollen.Dispose()
|
|
End Sub
|
|
|
|
|
|
Sub Insert_Gremium_Person(ByVal PersonNr As Integer, ByVal Bereichnr As Integer)
|
|
Dim gp As New TKB.VV.DB.clsGremiumPerson
|
|
Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle()
|
|
Dim key As Long
|
|
dbkey.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("GremiumPerson")
|
|
|
|
gp.cpMainConnectionProvider = Globals.conn
|
|
gp.iGreminPersonNr = New SqlInt32(CType(key, Int32))
|
|
gp.iPersonNr = New SqlInt32(CType(PersonNr, Int32))
|
|
gp.iGremiumBereichNr = New SqlInt32(CType(Bereichnr, Int32))
|
|
gp.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
gp.bLeitung = New SqlBoolean(CType(False, Boolean))
|
|
gp.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
gp.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
gp.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
gp.sBeschreibung = New SqlString(CType("", String))
|
|
gp.iRolleNr = New SqlInt32(CType(0, Int32))
|
|
conn.OpenConnection()
|
|
gp.Insert()
|
|
conn.CloseConnection(True)
|
|
Me.Gremiumperson.Tabledata.Tables.Clear()
|
|
Me.Gremiumperson.Load_Bootom_Table("GremiumPerson", 0, "A")
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
End Class
|