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