Imports EDOKALib

Public Class frmAdminMitarbeiterEdit
	Inherits System.Windows.Forms.Form

#Region "Members"

	Dim _mitarbeiter As BusinessFacade.Mitarbeiter
	Dim _tmpTeamNr As Integer
	Dim _dsMaTeams As DataSet
	Dim _dsMaFunktionsgruppen As DataSet
	Dim _dataChanged As Boolean = False
	Dim _currentGridName As String = ""

#End Region

#Region "Constructor"

	'''<summary>Ertellt eine Formularinstanz um einen neuen Mitarbeiter zu erfassen</summary>
	'''<returns></returns>
	Public Sub New()
		' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
		InitializeComponent()

		lblMitarbeiterNr.Text = ""
		lblBearbeitet.Text = ""
		lblErstellt.Text = ""

		cmdCreateStandardProfil.Enabled = False
	End Sub

	'''<summary>Erstellt eine Formularinstanz um einen bestehenden Mitarbeiter zu bearbeiten</summary>
	'''<param name="mitarbeiterNr">Der zu bearbeitende Mitarbeiter</param>
	'''<returns></returns>
	Public Sub New(ByVal mitarbeiterNr As Integer)
		Me.New()
		Try

			If mitarbeiterNr > 0 Then
				_mitarbeiter = New BusinessFacade.Mitarbeiter(mitarbeiterNr)

				LoadDetail()
				cmdCreateStandardProfil.Enabled = True
			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.New: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

#End Region

#Region " Vom Windows Form Designer generierter Code "

	' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
	Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing Then
			If Not (components Is Nothing) Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(disposing)
	End Sub

	' Für Windows Form-Designer erforderlich
	Private components As System.ComponentModel.IContainer

	'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
	'Sie kann mit dem Windows Form-Designer modifiziert werden.
	'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
	Friend WithEvents tcMenu As System.Windows.Forms.TabControl
	Friend WithEvents tabAllgemein As System.Windows.Forms.TabPage
	Friend WithEvents tabErweitert As System.Windows.Forms.TabPage
	Friend WithEvents tabTeams As System.Windows.Forms.TabPage
	Friend WithEvents tabFunktionen As System.Windows.Forms.TabPage
	Friend WithEvents Label1 As System.Windows.Forms.Label
	Friend WithEvents Label2 As System.Windows.Forms.Label
	Friend WithEvents Label3 As System.Windows.Forms.Label
	Friend WithEvents Label4 As System.Windows.Forms.Label
	Friend WithEvents Label5 As System.Windows.Forms.Label
	Friend WithEvents lblMitarbeiterNr As System.Windows.Forms.Label
	Friend WithEvents Label6 As System.Windows.Forms.Label
	Friend WithEvents Label7 As System.Windows.Forms.Label
	Friend WithEvents txtVorname As System.Windows.Forms.TextBox
	Friend WithEvents txtNachname As System.Windows.Forms.TextBox
	Friend WithEvents txtKurzzeichen As System.Windows.Forms.TextBox
	Friend WithEvents Label8 As System.Windows.Forms.Label
	Friend WithEvents txtAnrede As System.Windows.Forms.TextBox
	Friend WithEvents Label9 As System.Windows.Forms.Label
	Friend WithEvents txtTGNummer As System.Windows.Forms.TextBox
	Friend WithEvents Label10 As System.Windows.Forms.Label
	Friend WithEvents txteMail As System.Windows.Forms.TextBox
	Friend WithEvents Label11 As System.Windows.Forms.Label
	Friend WithEvents txtFax As System.Windows.Forms.TextBox
	Friend WithEvents Label12 As System.Windows.Forms.Label
	Friend WithEvents txtTelefon As System.Windows.Forms.TextBox
	Friend WithEvents Label13 As System.Windows.Forms.Label
	Friend WithEvents txtUnterschriftText As System.Windows.Forms.TextBox
	Friend WithEvents Label14 As System.Windows.Forms.Label
	Friend WithEvents chkIsActive As System.Windows.Forms.CheckBox
	Friend WithEvents Label15 As System.Windows.Forms.Label
	Friend WithEvents lblErstellt As System.Windows.Forms.Label
	Friend WithEvents lblBearbeitet As System.Windows.Forms.Label
	Friend WithEvents Label16 As System.Windows.Forms.Label
	Friend WithEvents Label17 As System.Windows.Forms.Label
	Friend WithEvents txtFunktion As System.Windows.Forms.TextBox
	Friend WithEvents Label18 As System.Windows.Forms.Label
	Friend WithEvents Label19 As System.Windows.Forms.Label
	Friend WithEvents Label20 As System.Windows.Forms.Label
	Friend WithEvents Label22 As System.Windows.Forms.Label
	Friend WithEvents Label29 As System.Windows.Forms.Label
	Friend WithEvents Label30 As System.Windows.Forms.Label
	Friend WithEvents Label31 As System.Windows.Forms.Label
	Friend WithEvents Label34 As System.Windows.Forms.Label
	Friend WithEvents txtPartnerNr As System.Windows.Forms.TextBox
	Friend WithEvents txtMail1 As System.Windows.Forms.TextBox
	Friend WithEvents txtRang As System.Windows.Forms.TextBox
	Friend WithEvents Label21 As System.Windows.Forms.Label
	Friend WithEvents chkShowToolTip As System.Windows.Forms.CheckBox
	Friend WithEvents chkMailEmpfang As System.Windows.Forms.CheckBox
	Friend WithEvents chkEdokaMessage As System.Windows.Forms.CheckBox
	Friend WithEvents chkMailDokumentRueckgang As System.Windows.Forms.CheckBox
	Friend WithEvents chkEdokaMail As System.Windows.Forms.CheckBox
	Friend WithEvents chkJournalisierung As System.Windows.Forms.CheckBox
	Friend WithEvents chkGebMeldung As System.Windows.Forms.CheckBox
	Friend WithEvents chkMailDirektVersenden As System.Windows.Forms.CheckBox
	Friend WithEvents cboMandant As System.Windows.Forms.ComboBox
	Friend WithEvents cboSprache As System.Windows.Forms.ComboBox
	Friend WithEvents cboFuerMandant As System.Windows.Forms.ComboBox
	Friend WithEvents Label23 As System.Windows.Forms.Label
	Friend WithEvents grdMATeams As C1.Win.C1TrueDBGrid.C1TrueDBGrid
	Friend WithEvents Label24 As System.Windows.Forms.Label
	Friend WithEvents grdAlleTeams As C1.Win.C1TrueDBGrid.C1TrueDBGrid
	Friend WithEvents cmdTeamConnect As System.Windows.Forms.Button
	Friend WithEvents Label25 As System.Windows.Forms.Label
	Friend WithEvents Label26 As System.Windows.Forms.Label
	Friend WithEvents Label27 As System.Windows.Forms.Label
	Friend WithEvents lblTeamName As System.Windows.Forms.Label
	Friend WithEvents cmdSaveTeamMitarbeiter As System.Windows.Forms.Button
	Friend WithEvents txtAnteil As System.Windows.Forms.TextBox
	Friend WithEvents grdMAFunktionsgruppen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
	Friend WithEvents grdAlleFunktionsgruppen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
	Friend WithEvents cmdZuordnenFunktionsgruppen As System.Windows.Forms.Button
	Friend WithEvents cboKlassifizierung As System.Windows.Forms.ComboBox
	Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
	Friend WithEvents tbMenu As System.Windows.Forms.ToolBar
	Friend WithEvents cmdClose As System.Windows.Forms.ToolBarButton
	Friend WithEvents cmdSave As System.Windows.Forms.ToolBarButton
	Friend WithEvents cmdCreateStandardProfil As System.Windows.Forms.Button
	Friend WithEvents ctxAktivSetzen As System.Windows.Forms.ContextMenu
	Friend WithEvents mnuAktivieren As System.Windows.Forms.MenuItem
	Friend WithEvents mnuDeaktivieren As System.Windows.Forms.MenuItem
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Me.components = New System.ComponentModel.Container()
		Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmAdminMitarbeiterEdit))
		Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
		Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
		Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
		Dim GridLines4 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
		Me.tcMenu = New System.Windows.Forms.TabControl()
		Me.tabAllgemein = New System.Windows.Forms.TabPage()
		Me.txtFunktion = New System.Windows.Forms.TextBox()
		Me.Label18 = New System.Windows.Forms.Label()
		Me.Label16 = New System.Windows.Forms.Label()
		Me.Label17 = New System.Windows.Forms.Label()
		Me.lblBearbeitet = New System.Windows.Forms.Label()
		Me.lblErstellt = New System.Windows.Forms.Label()
		Me.Label15 = New System.Windows.Forms.Label()
		Me.chkIsActive = New System.Windows.Forms.CheckBox()
		Me.txtUnterschriftText = New System.Windows.Forms.TextBox()
		Me.Label14 = New System.Windows.Forms.Label()
		Me.txtTelefon = New System.Windows.Forms.TextBox()
		Me.Label13 = New System.Windows.Forms.Label()
		Me.txtFax = New System.Windows.Forms.TextBox()
		Me.Label12 = New System.Windows.Forms.Label()
		Me.txteMail = New System.Windows.Forms.TextBox()
		Me.Label11 = New System.Windows.Forms.Label()
		Me.txtTGNummer = New System.Windows.Forms.TextBox()
		Me.Label10 = New System.Windows.Forms.Label()
		Me.txtAnrede = New System.Windows.Forms.TextBox()
		Me.Label9 = New System.Windows.Forms.Label()
		Me.txtKurzzeichen = New System.Windows.Forms.TextBox()
		Me.Label8 = New System.Windows.Forms.Label()
		Me.txtNachname = New System.Windows.Forms.TextBox()
		Me.txtVorname = New System.Windows.Forms.TextBox()
		Me.Label7 = New System.Windows.Forms.Label()
		Me.Label6 = New System.Windows.Forms.Label()
		Me.lblMitarbeiterNr = New System.Windows.Forms.Label()
		Me.Label5 = New System.Windows.Forms.Label()
		Me.Label1 = New System.Windows.Forms.Label()
		Me.tabErweitert = New System.Windows.Forms.TabPage()
		Me.cmdCreateStandardProfil = New System.Windows.Forms.Button()
		Me.cboKlassifizierung = New System.Windows.Forms.ComboBox()
		Me.cboFuerMandant = New System.Windows.Forms.ComboBox()
		Me.cboSprache = New System.Windows.Forms.ComboBox()
		Me.cboMandant = New System.Windows.Forms.ComboBox()
		Me.chkGebMeldung = New System.Windows.Forms.CheckBox()
		Me.chkMailDirektVersenden = New System.Windows.Forms.CheckBox()
		Me.chkJournalisierung = New System.Windows.Forms.CheckBox()
		Me.chkEdokaMail = New System.Windows.Forms.CheckBox()
		Me.chkMailDokumentRueckgang = New System.Windows.Forms.CheckBox()
		Me.chkEdokaMessage = New System.Windows.Forms.CheckBox()
		Me.chkMailEmpfang = New System.Windows.Forms.CheckBox()
		Me.chkShowToolTip = New System.Windows.Forms.CheckBox()
		Me.Label21 = New System.Windows.Forms.Label()
		Me.txtMail1 = New System.Windows.Forms.TextBox()
		Me.Label31 = New System.Windows.Forms.Label()
		Me.txtRang = New System.Windows.Forms.TextBox()
		Me.Label34 = New System.Windows.Forms.Label()
		Me.Label29 = New System.Windows.Forms.Label()
		Me.Label30 = New System.Windows.Forms.Label()
		Me.txtPartnerNr = New System.Windows.Forms.TextBox()
		Me.Label22 = New System.Windows.Forms.Label()
		Me.Label20 = New System.Windows.Forms.Label()
		Me.Label19 = New System.Windows.Forms.Label()
		Me.Label2 = New System.Windows.Forms.Label()
		Me.tabTeams = New System.Windows.Forms.TabPage()
		Me.grdMATeams = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
		Me.ctxAktivSetzen = New System.Windows.Forms.ContextMenu()
		Me.mnuAktivieren = New System.Windows.Forms.MenuItem()
		Me.mnuDeaktivieren = New System.Windows.Forms.MenuItem()
		Me.txtAnteil = New System.Windows.Forms.TextBox()
		Me.cmdSaveTeamMitarbeiter = New System.Windows.Forms.Button()
		Me.lblTeamName = New System.Windows.Forms.Label()
		Me.Label27 = New System.Windows.Forms.Label()
		Me.Label26 = New System.Windows.Forms.Label()
		Me.Label25 = New System.Windows.Forms.Label()
		Me.cmdTeamConnect = New System.Windows.Forms.Button()
		Me.grdAlleTeams = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
		Me.Label24 = New System.Windows.Forms.Label()
		Me.Label3 = New System.Windows.Forms.Label()
		Me.tabFunktionen = New System.Windows.Forms.TabPage()
		Me.grdAlleFunktionsgruppen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
		Me.grdMAFunktionsgruppen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
		Me.Label23 = New System.Windows.Forms.Label()
		Me.cmdZuordnenFunktionsgruppen = New System.Windows.Forms.Button()
		Me.Label4 = New System.Windows.Forms.Label()
		Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
		Me.tbMenu = New System.Windows.Forms.ToolBar()
		Me.cmdClose = New System.Windows.Forms.ToolBarButton()
		Me.cmdSave = New System.Windows.Forms.ToolBarButton()
		Me.tcMenu.SuspendLayout()
		Me.tabAllgemein.SuspendLayout()
		Me.tabErweitert.SuspendLayout()
		Me.tabTeams.SuspendLayout()
		CType(Me.grdMATeams, System.ComponentModel.ISupportInitialize).BeginInit()
		CType(Me.grdAlleTeams, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.tabFunktionen.SuspendLayout()
		CType(Me.grdAlleFunktionsgruppen, System.ComponentModel.ISupportInitialize).BeginInit()
		CType(Me.grdMAFunktionsgruppen, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.SuspendLayout()
		'
		'tcMenu
		'
		Me.tcMenu.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
					Or System.Windows.Forms.AnchorStyles.Left) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.tcMenu.Controls.AddRange(New System.Windows.Forms.Control() {Me.tabAllgemein, Me.tabErweitert, Me.tabTeams, Me.tabFunktionen})
		Me.tcMenu.Location = New System.Drawing.Point(8, 40)
		Me.tcMenu.Name = "tcMenu"
		Me.tcMenu.SelectedIndex = 0
		Me.tcMenu.Size = New System.Drawing.Size(674, 496)
		Me.tcMenu.TabIndex = 0
		'
		'tabAllgemein
		'
		Me.tabAllgemein.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtFunktion, Me.Label18, Me.Label16, Me.Label17, Me.lblBearbeitet, Me.lblErstellt, Me.Label15, Me.chkIsActive, Me.txtUnterschriftText, Me.Label14, Me.txtTelefon, Me.Label13, Me.txtFax, Me.Label12, Me.txteMail, Me.Label11, Me.txtTGNummer, Me.Label10, Me.txtAnrede, Me.Label9, Me.txtKurzzeichen, Me.Label8, Me.txtNachname, Me.txtVorname, Me.Label7, Me.Label6, Me.lblMitarbeiterNr, Me.Label5, Me.Label1})
		Me.tabAllgemein.Location = New System.Drawing.Point(4, 22)
		Me.tabAllgemein.Name = "tabAllgemein"
		Me.tabAllgemein.Size = New System.Drawing.Size(666, 470)
		Me.tabAllgemein.TabIndex = 0
		Me.tabAllgemein.Tag = "tabAllgemein"
		Me.tabAllgemein.Text = "Allgemein"
		'
		'txtFunktion
		'
		Me.txtFunktion.Location = New System.Drawing.Point(128, 176)
		Me.txtFunktion.MaxLength = 50
		Me.txtFunktion.Name = "txtFunktion"
		Me.txtFunktion.Size = New System.Drawing.Size(200, 20)
		Me.txtFunktion.TabIndex = 14
		Me.txtFunktion.Text = ""
		'
		'Label18
		'
		Me.Label18.Location = New System.Drawing.Point(24, 176)
		Me.Label18.Name = "Label18"
		Me.Label18.Size = New System.Drawing.Size(100, 16)
		Me.Label18.TabIndex = 13
		Me.Label18.Text = "Funktion:"
		'
		'Label16
		'
		Me.Label16.Location = New System.Drawing.Point(24, 400)
		Me.Label16.Name = "Label16"
		Me.Label16.Size = New System.Drawing.Size(88, 16)
		Me.Label16.TabIndex = 27
		Me.Label16.Text = "Bearbeitet:"
		'
		'Label17
		'
		Me.Label17.Location = New System.Drawing.Point(24, 384)
		Me.Label17.Name = "Label17"
		Me.Label17.Size = New System.Drawing.Size(88, 16)
		Me.Label17.TabIndex = 25
		Me.Label17.Text = "Erstellt:"
		'
		'lblBearbeitet
		'
		Me.lblBearbeitet.Location = New System.Drawing.Point(128, 400)
		Me.lblBearbeitet.Name = "lblBearbeitet"
		Me.lblBearbeitet.Size = New System.Drawing.Size(376, 16)
		Me.lblBearbeitet.TabIndex = 28
		Me.lblBearbeitet.Text = "lblBearbeitet"
		'
		'lblErstellt
		'
		Me.lblErstellt.Location = New System.Drawing.Point(128, 384)
		Me.lblErstellt.Name = "lblErstellt"
		Me.lblErstellt.Size = New System.Drawing.Size(376, 16)
		Me.lblErstellt.TabIndex = 26
		Me.lblErstellt.Text = "lblErstellt"
		'
		'Label15
		'
		Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label15.Location = New System.Drawing.Point(8, 352)
		Me.Label15.Name = "Label15"
		Me.Label15.Size = New System.Drawing.Size(328, 23)
		Me.Label15.TabIndex = 24
		Me.Label15.Text = "Änderungen"
		'
		'chkIsActive
		'
		Me.chkIsActive.Location = New System.Drawing.Point(32, 312)
		Me.chkIsActive.Name = "chkIsActive"
		Me.chkIsActive.Size = New System.Drawing.Size(304, 24)
		Me.chkIsActive.TabIndex = 23
		Me.chkIsActive.Text = "Aktiver Benutzer"
		'
		'txtUnterschriftText
		'
		Me.txtUnterschriftText.Location = New System.Drawing.Point(128, 288)
		Me.txtUnterschriftText.MaxLength = 50
		Me.txtUnterschriftText.Name = "txtUnterschriftText"
		Me.txtUnterschriftText.Size = New System.Drawing.Size(200, 20)
		Me.txtUnterschriftText.TabIndex = 22
		Me.txtUnterschriftText.Text = ""
		'
		'Label14
		'
		Me.Label14.Location = New System.Drawing.Point(24, 288)
		Me.Label14.Name = "Label14"
		Me.Label14.Size = New System.Drawing.Size(100, 16)
		Me.Label14.TabIndex = 21
		Me.Label14.Text = "Unterschrift:"
		'
		'txtTelefon
		'
		Me.txtTelefon.Location = New System.Drawing.Point(128, 248)
		Me.txtTelefon.MaxLength = 50
		Me.txtTelefon.Name = "txtTelefon"
		Me.txtTelefon.Size = New System.Drawing.Size(200, 20)
		Me.txtTelefon.TabIndex = 20
		Me.txtTelefon.Text = ""
		'
		'Label13
		'
		Me.Label13.Location = New System.Drawing.Point(24, 248)
		Me.Label13.Name = "Label13"
		Me.Label13.Size = New System.Drawing.Size(100, 16)
		Me.Label13.TabIndex = 19
		Me.Label13.Text = "Telefon:"
		'
		'txtFax
		'
		Me.txtFax.Location = New System.Drawing.Point(128, 224)
		Me.txtFax.MaxLength = 50
		Me.txtFax.Name = "txtFax"
		Me.txtFax.Size = New System.Drawing.Size(200, 20)
		Me.txtFax.TabIndex = 18
		Me.txtFax.Text = ""
		'
		'Label12
		'
		Me.Label12.Location = New System.Drawing.Point(24, 224)
		Me.Label12.Name = "Label12"
		Me.Label12.Size = New System.Drawing.Size(100, 16)
		Me.Label12.TabIndex = 17
		Me.Label12.Text = "Fax:"
		'
		'txteMail
		'
		Me.txteMail.Location = New System.Drawing.Point(128, 200)
		Me.txteMail.MaxLength = 50
		Me.txteMail.Name = "txteMail"
		Me.txteMail.Size = New System.Drawing.Size(200, 20)
		Me.txteMail.TabIndex = 16
		Me.txteMail.Text = ""
		'
		'Label11
		'
		Me.Label11.Location = New System.Drawing.Point(24, 200)
		Me.Label11.Name = "Label11"
		Me.Label11.Size = New System.Drawing.Size(100, 16)
		Me.Label11.TabIndex = 15
		Me.Label11.Text = "eMail:"
		'
		'txtTGNummer
		'
		Me.txtTGNummer.Location = New System.Drawing.Point(128, 136)
		Me.txtTGNummer.MaxLength = 50
		Me.txtTGNummer.Name = "txtTGNummer"
		Me.txtTGNummer.Size = New System.Drawing.Size(200, 20)
		Me.txtTGNummer.TabIndex = 12
		Me.txtTGNummer.Text = ""
		'
		'Label10
		'
		Me.Label10.Location = New System.Drawing.Point(24, 136)
		Me.Label10.Name = "Label10"
		Me.Label10.Size = New System.Drawing.Size(100, 16)
		Me.Label10.TabIndex = 11
		Me.Label10.Text = "TG-Nummer:"
		'
		'txtAnrede
		'
		Me.txtAnrede.Location = New System.Drawing.Point(128, 64)
		Me.txtAnrede.MaxLength = 50
		Me.txtAnrede.Name = "txtAnrede"
		Me.txtAnrede.Size = New System.Drawing.Size(128, 20)
		Me.txtAnrede.TabIndex = 4
		Me.txtAnrede.Text = ""
		'
		'Label9
		'
		Me.Label9.Location = New System.Drawing.Point(24, 64)
		Me.Label9.Name = "Label9"
		Me.Label9.Size = New System.Drawing.Size(100, 16)
		Me.Label9.TabIndex = 3
		Me.Label9.Text = "Anrede:"
		'
		'txtKurzzeichen
		'
		Me.txtKurzzeichen.Location = New System.Drawing.Point(456, 88)
		Me.txtKurzzeichen.MaxLength = 10
		Me.txtKurzzeichen.Name = "txtKurzzeichen"
		Me.txtKurzzeichen.Size = New System.Drawing.Size(80, 20)
		Me.txtKurzzeichen.TabIndex = 8
		Me.txtKurzzeichen.Text = ""
		'
		'Label8
		'
		Me.Label8.Location = New System.Drawing.Point(352, 88)
		Me.Label8.Name = "Label8"
		Me.Label8.Size = New System.Drawing.Size(100, 16)
		Me.Label8.TabIndex = 7
		Me.Label8.Text = "Kurzzeichen:"
		'
		'txtNachname
		'
		Me.txtNachname.Location = New System.Drawing.Point(128, 112)
		Me.txtNachname.MaxLength = 50
		Me.txtNachname.Name = "txtNachname"
		Me.txtNachname.Size = New System.Drawing.Size(200, 20)
		Me.txtNachname.TabIndex = 10
		Me.txtNachname.Text = ""
		'
		'txtVorname
		'
		Me.txtVorname.Location = New System.Drawing.Point(128, 88)
		Me.txtVorname.MaxLength = 50
		Me.txtVorname.Name = "txtVorname"
		Me.txtVorname.Size = New System.Drawing.Size(200, 20)
		Me.txtVorname.TabIndex = 6
		Me.txtVorname.Text = ""
		'
		'Label7
		'
		Me.Label7.Location = New System.Drawing.Point(24, 112)
		Me.Label7.Name = "Label7"
		Me.Label7.Size = New System.Drawing.Size(100, 16)
		Me.Label7.TabIndex = 9
		Me.Label7.Text = "Nachname:"
		'
		'Label6
		'
		Me.Label6.Location = New System.Drawing.Point(24, 88)
		Me.Label6.Name = "Label6"
		Me.Label6.Size = New System.Drawing.Size(100, 16)
		Me.Label6.TabIndex = 5
		Me.Label6.Text = "Vorname:"
		'
		'lblMitarbeiterNr
		'
		Me.lblMitarbeiterNr.Location = New System.Drawing.Point(128, 40)
		Me.lblMitarbeiterNr.Name = "lblMitarbeiterNr"
		Me.lblMitarbeiterNr.Size = New System.Drawing.Size(216, 16)
		Me.lblMitarbeiterNr.TabIndex = 2
		Me.lblMitarbeiterNr.Text = "mitarbeiterNr"
		'
		'Label5
		'
		Me.Label5.Location = New System.Drawing.Point(24, 40)
		Me.Label5.Name = "Label5"
		Me.Label5.Size = New System.Drawing.Size(100, 16)
		Me.Label5.TabIndex = 1
		Me.Label5.Text = "MitarbeiterNr:"
		'
		'Label1
		'
		Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label1.Location = New System.Drawing.Point(8, 8)
		Me.Label1.Name = "Label1"
		Me.Label1.Size = New System.Drawing.Size(328, 23)
		Me.Label1.TabIndex = 0
		Me.Label1.Text = "Allgemeine Angaben"
		'
		'tabErweitert
		'
		Me.tabErweitert.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdCreateStandardProfil, Me.cboKlassifizierung, Me.cboFuerMandant, Me.cboSprache, Me.cboMandant, Me.chkGebMeldung, Me.chkMailDirektVersenden, Me.chkJournalisierung, Me.chkEdokaMail, Me.chkMailDokumentRueckgang, Me.chkEdokaMessage, Me.chkMailEmpfang, Me.chkShowToolTip, Me.Label21, Me.txtMail1, Me.Label31, Me.txtRang, Me.Label34, Me.Label29, Me.Label30, Me.txtPartnerNr, Me.Label22, Me.Label20, Me.Label19, Me.Label2})
		Me.tabErweitert.Location = New System.Drawing.Point(4, 22)
		Me.tabErweitert.Name = "tabErweitert"
		Me.tabErweitert.Size = New System.Drawing.Size(666, 470)
		Me.tabErweitert.TabIndex = 1
		Me.tabErweitert.Tag = "tabErweitert"
		Me.tabErweitert.Text = "Erweitert"
		'
		'cmdCreateStandardProfil
		'
		Me.cmdCreateStandardProfil.Location = New System.Drawing.Point(208, 368)
		Me.cmdCreateStandardProfil.Name = "cmdCreateStandardProfil"
		Me.cmdCreateStandardProfil.Size = New System.Drawing.Size(168, 23)
		Me.cmdCreateStandardProfil.TabIndex = 24
		Me.cmdCreateStandardProfil.Text = "Standard Profil neu erstellen"
		'
		'cboKlassifizierung
		'
		Me.cboKlassifizierung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
		Me.cboKlassifizierung.Location = New System.Drawing.Point(128, 160)
		Me.cboKlassifizierung.Name = "cboKlassifizierung"
		Me.cboKlassifizierung.Size = New System.Drawing.Size(144, 21)
		Me.cboKlassifizierung.TabIndex = 12
		'
		'cboFuerMandant
		'
		Me.cboFuerMandant.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
		Me.cboFuerMandant.Items.AddRange(New Object() {"Edoka"})
		Me.cboFuerMandant.Location = New System.Drawing.Point(128, 112)
		Me.cboFuerMandant.Name = "cboFuerMandant"
		Me.cboFuerMandant.Size = New System.Drawing.Size(144, 21)
		Me.cboFuerMandant.TabIndex = 8
		'
		'cboSprache
		'
		Me.cboSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
		Me.cboSprache.Items.AddRange(New Object() {"Deutsch"})
		Me.cboSprache.Location = New System.Drawing.Point(128, 136)
		Me.cboSprache.Name = "cboSprache"
		Me.cboSprache.Size = New System.Drawing.Size(144, 21)
		Me.cboSprache.TabIndex = 10
		'
		'cboMandant
		'
		Me.cboMandant.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
		Me.cboMandant.Items.AddRange(New Object() {"Edoka"})
		Me.cboMandant.Location = New System.Drawing.Point(128, 88)
		Me.cboMandant.Name = "cboMandant"
		Me.cboMandant.Size = New System.Drawing.Size(144, 21)
		Me.cboMandant.TabIndex = 6
		'
		'chkGebMeldung
		'
		Me.chkGebMeldung.Location = New System.Drawing.Point(208, 272)
		Me.chkGebMeldung.Name = "chkGebMeldung"
		Me.chkGebMeldung.Size = New System.Drawing.Size(192, 24)
		Me.chkGebMeldung.TabIndex = 23
		Me.chkGebMeldung.Text = "Geburtstags Meldung anzeigen"
		'
		'chkMailDirektVersenden
		'
		Me.chkMailDirektVersenden.Location = New System.Drawing.Point(208, 248)
		Me.chkMailDirektVersenden.Name = "chkMailDirektVersenden"
		Me.chkMailDirektVersenden.Size = New System.Drawing.Size(192, 24)
		Me.chkMailDirektVersenden.TabIndex = 22
		Me.chkMailDirektVersenden.Text = "<MailDirektVersenden>"
		'
		'chkJournalisierung
		'
		Me.chkJournalisierung.Location = New System.Drawing.Point(24, 368)
		Me.chkJournalisierung.Name = "chkJournalisierung"
		Me.chkJournalisierung.Size = New System.Drawing.Size(176, 24)
		Me.chkJournalisierung.TabIndex = 21
		Me.chkJournalisierung.Text = "<Journalisierung>"
		'
		'chkEdokaMail
		'
		Me.chkEdokaMail.Location = New System.Drawing.Point(24, 344)
		Me.chkEdokaMail.Name = "chkEdokaMail"
		Me.chkEdokaMail.Size = New System.Drawing.Size(176, 24)
		Me.chkEdokaMail.TabIndex = 20
		Me.chkEdokaMail.Text = "<edokaMail>"
		'
		'chkMailDokumentRueckgang
		'
		Me.chkMailDokumentRueckgang.Location = New System.Drawing.Point(24, 320)
		Me.chkMailDokumentRueckgang.Name = "chkMailDokumentRueckgang"
		Me.chkMailDokumentRueckgang.Size = New System.Drawing.Size(176, 24)
		Me.chkMailDokumentRueckgang.TabIndex = 19
		Me.chkMailDokumentRueckgang.Text = "<MailDokumentRueckgang>"
		'
		'chkEdokaMessage
		'
		Me.chkEdokaMessage.Location = New System.Drawing.Point(24, 296)
		Me.chkEdokaMessage.Name = "chkEdokaMessage"
		Me.chkEdokaMessage.Size = New System.Drawing.Size(176, 24)
		Me.chkEdokaMessage.TabIndex = 18
		Me.chkEdokaMessage.Text = "<EdokaMessage>"
		'
		'chkMailEmpfang
		'
		Me.chkMailEmpfang.Location = New System.Drawing.Point(24, 272)
		Me.chkMailEmpfang.Name = "chkMailEmpfang"
		Me.chkMailEmpfang.Size = New System.Drawing.Size(176, 24)
		Me.chkMailEmpfang.TabIndex = 17
		Me.chkMailEmpfang.Text = "<MailEmpfang>"
		'
		'chkShowToolTip
		'
		Me.chkShowToolTip.Location = New System.Drawing.Point(24, 248)
		Me.chkShowToolTip.Name = "chkShowToolTip"
		Me.chkShowToolTip.Size = New System.Drawing.Size(176, 24)
		Me.chkShowToolTip.TabIndex = 16
		Me.chkShowToolTip.Text = "ToolTipps anzeigen"
		'
		'Label21
		'
		Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label21.Location = New System.Drawing.Point(8, 216)
		Me.Label21.Name = "Label21"
		Me.Label21.Size = New System.Drawing.Size(328, 23)
		Me.Label21.TabIndex = 15
		Me.Label21.Text = "Einstellungen"
		'
		'txtMail1
		'
		Me.txtMail1.Location = New System.Drawing.Point(128, 184)
		Me.txtMail1.MaxLength = 50
		Me.txtMail1.Name = "txtMail1"
		Me.txtMail1.ReadOnly = True
		Me.txtMail1.Size = New System.Drawing.Size(144, 20)
		Me.txtMail1.TabIndex = 14
		Me.txtMail1.Text = ""
		'
		'Label31
		'
		Me.Label31.Location = New System.Drawing.Point(24, 184)
		Me.Label31.Name = "Label31"
		Me.Label31.Size = New System.Drawing.Size(100, 16)
		Me.Label31.TabIndex = 13
		Me.Label31.Text = "Team-Mail:"
		'
		'txtRang
		'
		Me.txtRang.Location = New System.Drawing.Point(128, 40)
		Me.txtRang.MaxLength = 50
		Me.txtRang.Name = "txtRang"
		Me.txtRang.Size = New System.Drawing.Size(144, 20)
		Me.txtRang.TabIndex = 2
		Me.txtRang.Text = ""
		'
		'Label34
		'
		Me.Label34.Location = New System.Drawing.Point(24, 40)
		Me.Label34.Name = "Label34"
		Me.Label34.Size = New System.Drawing.Size(100, 16)
		Me.Label34.TabIndex = 1
		Me.Label34.Text = "Rang:"
		'
		'Label29
		'
		Me.Label29.Location = New System.Drawing.Point(24, 160)
		Me.Label29.Name = "Label29"
		Me.Label29.Size = New System.Drawing.Size(100, 16)
		Me.Label29.TabIndex = 11
		Me.Label29.Text = "Klassifizierung:"
		'
		'Label30
		'
		Me.Label30.Location = New System.Drawing.Point(24, 136)
		Me.Label30.Name = "Label30"
		Me.Label30.Size = New System.Drawing.Size(100, 16)
		Me.Label30.TabIndex = 9
		Me.Label30.Text = "Sprache in Edoka:"
		'
		'txtPartnerNr
		'
		Me.txtPartnerNr.Location = New System.Drawing.Point(128, 64)
		Me.txtPartnerNr.MaxLength = 50
		Me.txtPartnerNr.Name = "txtPartnerNr"
		Me.txtPartnerNr.Size = New System.Drawing.Size(144, 20)
		Me.txtPartnerNr.TabIndex = 4
		Me.txtPartnerNr.Text = ""
		'
		'Label22
		'
		Me.Label22.Location = New System.Drawing.Point(24, 64)
		Me.Label22.Name = "Label22"
		Me.Label22.Size = New System.Drawing.Size(100, 16)
		Me.Label22.TabIndex = 3
		Me.Label22.Text = "Partner Nr:"
		'
		'Label20
		'
		Me.Label20.Location = New System.Drawing.Point(24, 112)
		Me.Label20.Name = "Label20"
		Me.Label20.Size = New System.Drawing.Size(100, 16)
		Me.Label20.TabIndex = 7
		Me.Label20.Text = "Für Mandant:"
		'
		'Label19
		'
		Me.Label19.Location = New System.Drawing.Point(24, 88)
		Me.Label19.Name = "Label19"
		Me.Label19.Size = New System.Drawing.Size(100, 16)
		Me.Label19.TabIndex = 5
		Me.Label19.Text = "Mandant:"
		'
		'Label2
		'
		Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label2.Location = New System.Drawing.Point(8, 8)
		Me.Label2.Name = "Label2"
		Me.Label2.Size = New System.Drawing.Size(328, 23)
		Me.Label2.TabIndex = 0
		Me.Label2.Text = "Erweiterte Informationen"
		'
		'tabTeams
		'
		Me.tabTeams.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdMATeams, Me.txtAnteil, Me.cmdSaveTeamMitarbeiter, Me.lblTeamName, Me.Label27, Me.Label26, Me.Label25, Me.cmdTeamConnect, Me.grdAlleTeams, Me.Label24, Me.Label3})
		Me.tabTeams.Location = New System.Drawing.Point(4, 22)
		Me.tabTeams.Name = "tabTeams"
		Me.tabTeams.Size = New System.Drawing.Size(666, 470)
		Me.tabTeams.TabIndex = 2
		Me.tabTeams.Tag = "tabTeams"
		Me.tabTeams.Text = "Teams"
		'
		'grdMATeams
		'
		Me.grdMATeams.AllowFilter = True
		Me.grdMATeams.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
		Me.grdMATeams.AllowSort = True
		Me.grdMATeams.AllowUpdate = False
		Me.grdMATeams.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
					Or System.Windows.Forms.AnchorStyles.Left) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.grdMATeams.CaptionHeight = 17
		Me.grdMATeams.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
		Me.grdMATeams.CollapseColor = System.Drawing.Color.Black
		Me.grdMATeams.ContextMenu = Me.ctxAktivSetzen
		Me.grdMATeams.DataChanged = False
		Me.grdMATeams.DeadAreaBackColor = System.Drawing.Color.Empty
		Me.grdMATeams.ExpandColor = System.Drawing.Color.Black
		Me.grdMATeams.FilterBar = True
		Me.grdMATeams.GroupByCaption = "Drag a column header here to group by that column"
		Me.grdMATeams.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
		Me.grdMATeams.Location = New System.Drawing.Point(24, 184)
		Me.grdMATeams.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
		Me.grdMATeams.Name = "grdMATeams"
		Me.grdMATeams.PreviewInfo.Location = New System.Drawing.Point(0, 0)
		Me.grdMATeams.PreviewInfo.Size = New System.Drawing.Size(0, 0)
		Me.grdMATeams.PreviewInfo.ZoomFactor = 75
		Me.grdMATeams.PrintInfo.ShowOptionsDialog = False
		Me.grdMATeams.RecordSelectorWidth = 16
		GridLines1.Color = System.Drawing.Color.DarkGray
		GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
		Me.grdMATeams.RowDivider = GridLines1
		Me.grdMATeams.RowHeight = 15
		Me.grdMATeams.RowSubDividerColor = System.Drawing.Color.DarkGray
		Me.grdMATeams.ScrollTips = False
		Me.grdMATeams.Size = New System.Drawing.Size(264, 270)
		Me.grdMATeams.TabIndex = 8
		Me.grdMATeams.Text = "C1TrueDBGrid1"
		Me.grdMATeams.WrapCellPointer = True
		Me.grdMATeams.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
		"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
		"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
		"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
		"CaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128;}Footer" & _
		"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
		"or:Highlight;}Style9{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
		"enter;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:Co" & _
		"ntrolText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
		"tyle13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
		"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
		"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
		"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 260, 266</Cl" & _
		"ientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" />" & _
		"<EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""St" & _
		"yle8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""F" & _
		"ooter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle par" & _
		"ent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7""" & _
		" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" m" & _
		"e=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Select" & _
		"edStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C" & _
		"1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" " & _
		"/><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><S" & _
		"tyle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><St" & _
		"yle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style " & _
		"parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style" & _
		" parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><St" & _
		"yle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Name" & _
		"dStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout" & _
		"><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 260, 266</ClientAr" & _
		"ea></Blob>"
		'
		'ctxAktivSetzen
		'
		Me.ctxAktivSetzen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAktivieren, Me.mnuDeaktivieren})
		'
		'mnuAktivieren
		'
		Me.mnuAktivieren.Enabled = False
		Me.mnuAktivieren.Index = 0
		Me.mnuAktivieren.Text = "&Aktivieren"
		'
		'mnuDeaktivieren
		'
		Me.mnuDeaktivieren.Enabled = False
		Me.mnuDeaktivieren.Index = 1
		Me.mnuDeaktivieren.Text = "&Deaktivieren"
		'
		'txtAnteil
		'
		Me.txtAnteil.Location = New System.Drawing.Point(88, 104)
		Me.txtAnteil.MaxLength = 3
		Me.txtAnteil.Name = "txtAnteil"
		Me.txtAnteil.Size = New System.Drawing.Size(72, 20)
		Me.txtAnteil.TabIndex = 5
		Me.txtAnteil.Text = ""
		Me.txtAnteil.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
		'
		'cmdSaveTeamMitarbeiter
		'
		Me.cmdSaveTeamMitarbeiter.Location = New System.Drawing.Point(168, 104)
		Me.cmdSaveTeamMitarbeiter.Name = "cmdSaveTeamMitarbeiter"
		Me.cmdSaveTeamMitarbeiter.Size = New System.Drawing.Size(88, 23)
		Me.cmdSaveTeamMitarbeiter.TabIndex = 6
		Me.cmdSaveTeamMitarbeiter.Text = "&Setzen"
		'
		'lblTeamName
		'
		Me.lblTeamName.Location = New System.Drawing.Point(96, 80)
		Me.lblTeamName.Name = "lblTeamName"
		Me.lblTeamName.Size = New System.Drawing.Size(376, 16)
		Me.lblTeamName.TabIndex = 3
		'
		'Label27
		'
		Me.Label27.Location = New System.Drawing.Point(24, 106)
		Me.Label27.Name = "Label27"
		Me.Label27.Size = New System.Drawing.Size(56, 16)
		Me.Label27.TabIndex = 4
		Me.Label27.Text = "%-Anteil:"
		'
		'Label26
		'
		Me.Label26.Location = New System.Drawing.Point(24, 80)
		Me.Label26.Name = "Label26"
		Me.Label26.Size = New System.Drawing.Size(56, 16)
		Me.Label26.TabIndex = 2
		Me.Label26.Text = "Team:"
		'
		'Label25
		'
		Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label25.Location = New System.Drawing.Point(8, 152)
		Me.Label25.Name = "Label25"
		Me.Label25.Size = New System.Drawing.Size(328, 23)
		Me.Label25.TabIndex = 7
		Me.Label25.Text = "Bestehende Verbindungen"
		'
		'cmdTeamConnect
		'
		Me.cmdTeamConnect.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
		Me.cmdTeamConnect.Location = New System.Drawing.Point(296, 272)
		Me.cmdTeamConnect.Name = "cmdTeamConnect"
		Me.cmdTeamConnect.Size = New System.Drawing.Size(88, 23)
		Me.cmdTeamConnect.TabIndex = 9
		Me.cmdTeamConnect.Text = "< &Zuordnen"
		'
		'grdAlleTeams
		'
		Me.grdAlleTeams.AllowFilter = True
		Me.grdAlleTeams.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
		Me.grdAlleTeams.AllowSort = True
		Me.grdAlleTeams.AllowUpdate = False
		Me.grdAlleTeams.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.grdAlleTeams.CaptionHeight = 17
		Me.grdAlleTeams.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
		Me.grdAlleTeams.CollapseColor = System.Drawing.Color.Black
		Me.grdAlleTeams.DataChanged = False
		Me.grdAlleTeams.DeadAreaBackColor = System.Drawing.Color.Empty
		Me.grdAlleTeams.ExpandColor = System.Drawing.Color.Black
		Me.grdAlleTeams.FilterBar = True
		Me.grdAlleTeams.GroupByCaption = "Drag a column header here to group by that column"
		Me.grdAlleTeams.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
		Me.grdAlleTeams.Location = New System.Drawing.Point(392, 184)
		Me.grdAlleTeams.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
		Me.grdAlleTeams.Name = "grdAlleTeams"
		Me.grdAlleTeams.PreviewInfo.Location = New System.Drawing.Point(0, 0)
		Me.grdAlleTeams.PreviewInfo.Size = New System.Drawing.Size(0, 0)
		Me.grdAlleTeams.PreviewInfo.ZoomFactor = 75
		Me.grdAlleTeams.PrintInfo.ShowOptionsDialog = False
		Me.grdAlleTeams.RecordSelectorWidth = 16
		GridLines2.Color = System.Drawing.Color.DarkGray
		GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
		Me.grdAlleTeams.RowDivider = GridLines2
		Me.grdAlleTeams.RowHeight = 15
		Me.grdAlleTeams.RowSubDividerColor = System.Drawing.Color.DarkGray
		Me.grdAlleTeams.ScrollTips = False
		Me.grdAlleTeams.Size = New System.Drawing.Size(264, 270)
		Me.grdAlleTeams.TabIndex = 11
		Me.grdAlleTeams.Text = "C1TrueDBGrid1"
		Me.grdAlleTeams.WrapCellPointer = True
		Me.grdAlleTeams.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
		"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
		"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
		"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
		"CaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128;}Footer" & _
		"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
		"or:Highlight;}Style1{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
		"enter;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:C" & _
		"ontrolText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
		"tyle13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
		"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
		"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
		"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 260, 266</Cl" & _
		"ientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" />" & _
		"<EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""St" & _
		"yle8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""F" & _
		"ooter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle par" & _
		"ent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7""" & _
		" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" m" & _
		"e=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Select" & _
		"edStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C" & _
		"1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" " & _
		"/><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><S" & _
		"tyle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><St" & _
		"yle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style " & _
		"parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style" & _
		" parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><St" & _
		"yle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Name" & _
		"dStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout" & _
		"><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 260, 266</ClientAr" & _
		"ea></Blob>"
		'
		'Label24
		'
		Me.Label24.Location = New System.Drawing.Point(24, 40)
		Me.Label24.Name = "Label24"
		Me.Label24.Size = New System.Drawing.Size(552, 32)
		Me.Label24.TabIndex = 1
		Me.Label24.Text = "Ordnen Sie hier den Mitarbeiter zu seinen Teams hinzu. Wenn ein Eintrag bei den b" & _
		"ereits zugeordneten Teams ausgewählt wird, können die Details angepasst werden."
		'
		'Label3
		'
		Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label3.Location = New System.Drawing.Point(8, 8)
		Me.Label3.Name = "Label3"
		Me.Label3.Size = New System.Drawing.Size(328, 23)
		Me.Label3.TabIndex = 0
		Me.Label3.Text = "Teams zuordnen"
		'
		'tabFunktionen
		'
		Me.tabFunktionen.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdAlleFunktionsgruppen, Me.grdMAFunktionsgruppen, Me.Label23, Me.cmdZuordnenFunktionsgruppen, Me.Label4})
		Me.tabFunktionen.Location = New System.Drawing.Point(4, 22)
		Me.tabFunktionen.Name = "tabFunktionen"
		Me.tabFunktionen.Size = New System.Drawing.Size(666, 470)
		Me.tabFunktionen.TabIndex = 3
		Me.tabFunktionen.Tag = "tabFunktionen"
		Me.tabFunktionen.Text = "Funktionen"
		'
		'grdAlleFunktionsgruppen
		'
		Me.grdAlleFunktionsgruppen.AllowFilter = True
		Me.grdAlleFunktionsgruppen.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
		Me.grdAlleFunktionsgruppen.AllowSort = True
		Me.grdAlleFunktionsgruppen.AllowUpdate = False
		Me.grdAlleFunktionsgruppen.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.grdAlleFunktionsgruppen.CaptionHeight = 17
		Me.grdAlleFunktionsgruppen.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
		Me.grdAlleFunktionsgruppen.CollapseColor = System.Drawing.Color.Black
		Me.grdAlleFunktionsgruppen.DataChanged = False
		Me.grdAlleFunktionsgruppen.DeadAreaBackColor = System.Drawing.Color.Empty
		Me.grdAlleFunktionsgruppen.ExpandColor = System.Drawing.Color.Black
		Me.grdAlleFunktionsgruppen.FilterBar = True
		Me.grdAlleFunktionsgruppen.GroupByCaption = "Drag a column header here to group by that column"
		Me.grdAlleFunktionsgruppen.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
		Me.grdAlleFunktionsgruppen.Location = New System.Drawing.Point(392, 80)
		Me.grdAlleFunktionsgruppen.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
		Me.grdAlleFunktionsgruppen.Name = "grdAlleFunktionsgruppen"
		Me.grdAlleFunktionsgruppen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
		Me.grdAlleFunktionsgruppen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
		Me.grdAlleFunktionsgruppen.PreviewInfo.ZoomFactor = 75
		Me.grdAlleFunktionsgruppen.PrintInfo.ShowOptionsDialog = False
		Me.grdAlleFunktionsgruppen.RecordSelectorWidth = 16
		GridLines3.Color = System.Drawing.Color.DarkGray
		GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
		Me.grdAlleFunktionsgruppen.RowDivider = GridLines3
		Me.grdAlleFunktionsgruppen.RowHeight = 15
		Me.grdAlleFunktionsgruppen.RowSubDividerColor = System.Drawing.Color.DarkGray
		Me.grdAlleFunktionsgruppen.ScrollTips = False
		Me.grdAlleFunktionsgruppen.Size = New System.Drawing.Size(264, 374)
		Me.grdAlleFunktionsgruppen.TabIndex = 5
		Me.grdAlleFunktionsgruppen.Text = "C1TrueDBGrid1"
		Me.grdAlleFunktionsgruppen.WrapCellPointer = True
		Me.grdAlleFunktionsgruppen.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
		"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
		"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
		"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
		"CaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128;}Footer" & _
		"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
		"or:Highlight;}Style9{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
		"enter;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:Co" & _
		"ntrolText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
		"tyle13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
		"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
		"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
		"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 260, 370</Cl" & _
		"ientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" />" & _
		"<EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""St" & _
		"yle8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""F" & _
		"ooter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle par" & _
		"ent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7""" & _
		" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" m" & _
		"e=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Select" & _
		"edStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C" & _
		"1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" " & _
		"/><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><S" & _
		"tyle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><St" & _
		"yle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style " & _
		"parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style" & _
		" parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><St" & _
		"yle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Name" & _
		"dStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout" & _
		"><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 260, 370</ClientAr" & _
		"ea></Blob>"
		'
		'grdMAFunktionsgruppen
		'
		Me.grdMAFunktionsgruppen.AllowFilter = True
		Me.grdMAFunktionsgruppen.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
		Me.grdMAFunktionsgruppen.AllowSort = True
		Me.grdMAFunktionsgruppen.AllowUpdate = False
		Me.grdMAFunktionsgruppen.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
					Or System.Windows.Forms.AnchorStyles.Left) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.grdMAFunktionsgruppen.CaptionHeight = 17
		Me.grdMAFunktionsgruppen.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
		Me.grdMAFunktionsgruppen.CollapseColor = System.Drawing.Color.Black
		Me.grdMAFunktionsgruppen.ContextMenu = Me.ctxAktivSetzen
		Me.grdMAFunktionsgruppen.DataChanged = False
		Me.grdMAFunktionsgruppen.DeadAreaBackColor = System.Drawing.Color.Empty
		Me.grdMAFunktionsgruppen.ExpandColor = System.Drawing.Color.Black
		Me.grdMAFunktionsgruppen.FilterBar = True
		Me.grdMAFunktionsgruppen.GroupByCaption = "Drag a column header here to group by that column"
		Me.grdMAFunktionsgruppen.Images.Add(CType(resources.GetObject("resource.Images3"), System.Drawing.Bitmap))
		Me.grdMAFunktionsgruppen.Location = New System.Drawing.Point(24, 80)
		Me.grdMAFunktionsgruppen.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
		Me.grdMAFunktionsgruppen.Name = "grdMAFunktionsgruppen"
		Me.grdMAFunktionsgruppen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
		Me.grdMAFunktionsgruppen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
		Me.grdMAFunktionsgruppen.PreviewInfo.ZoomFactor = 75
		Me.grdMAFunktionsgruppen.PrintInfo.ShowOptionsDialog = False
		Me.grdMAFunktionsgruppen.RecordSelectorWidth = 16
		GridLines4.Color = System.Drawing.Color.DarkGray
		GridLines4.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
		Me.grdMAFunktionsgruppen.RowDivider = GridLines4
		Me.grdMAFunktionsgruppen.RowHeight = 15
		Me.grdMAFunktionsgruppen.RowSubDividerColor = System.Drawing.Color.DarkGray
		Me.grdMAFunktionsgruppen.ScrollTips = False
		Me.grdMAFunktionsgruppen.Size = New System.Drawing.Size(264, 374)
		Me.grdMAFunktionsgruppen.TabIndex = 2
		Me.grdMAFunktionsgruppen.Text = "C1TrueDBGrid1"
		Me.grdMAFunktionsgruppen.WrapCellPointer = True
		Me.grdMAFunktionsgruppen.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
		"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
		"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
		"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
		"CaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128;}Footer" & _
		"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
		"or:Highlight;}Style1{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
		"enter;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:C" & _
		"ontrolText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
		"tyle13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
		"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
		"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
		"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 260, 370</Cl" & _
		"ientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" />" & _
		"<EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""St" & _
		"yle8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""F" & _
		"ooter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle par" & _
		"ent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7""" & _
		" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" m" & _
		"e=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Select" & _
		"edStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C" & _
		"1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" " & _
		"/><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><S" & _
		"tyle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><St" & _
		"yle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style " & _
		"parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style" & _
		" parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><St" & _
		"yle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Name" & _
		"dStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout" & _
		"><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 260, 370</ClientAr" & _
		"ea></Blob>"
		'
		'Label23
		'
		Me.Label23.Location = New System.Drawing.Point(24, 40)
		Me.Label23.Name = "Label23"
		Me.Label23.Size = New System.Drawing.Size(552, 32)
		Me.Label23.TabIndex = 1
		Me.Label23.Text = "Ordnen Sie hier den Mitarbeiten den gewünschten Funktionsgruppen hinzu. Über ""Ent" & _
		"fernen"" kann eine bestehende Zuordnung aufgelöst werden."
		'
		'cmdZuordnenFunktionsgruppen
		'
		Me.cmdZuordnenFunktionsgruppen.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
		Me.cmdZuordnenFunktionsgruppen.Location = New System.Drawing.Point(296, 168)
		Me.cmdZuordnenFunktionsgruppen.Name = "cmdZuordnenFunktionsgruppen"
		Me.cmdZuordnenFunktionsgruppen.Size = New System.Drawing.Size(88, 23)
		Me.cmdZuordnenFunktionsgruppen.TabIndex = 3
		Me.cmdZuordnenFunktionsgruppen.Text = "< &Zuordnen"
		'
		'Label4
		'
		Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label4.Location = New System.Drawing.Point(8, 8)
		Me.Label4.Name = "Label4"
		Me.Label4.Size = New System.Drawing.Size(328, 23)
		Me.Label4.TabIndex = 0
		Me.Label4.Text = "Funktionsgruppen zuordnen"
		'
		'ImageList1
		'
		Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
		Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
		Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
		Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
		'
		'tbMenu
		'
		Me.tbMenu.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.cmdClose, Me.cmdSave})
		Me.tbMenu.DropDownArrows = True
		Me.tbMenu.ImageList = Me.ImageList1
		Me.tbMenu.Name = "tbMenu"
		Me.tbMenu.ShowToolTips = True
		Me.tbMenu.Size = New System.Drawing.Size(690, 25)
		Me.tbMenu.TabIndex = 3
		'
		'cmdClose
		'
		Me.cmdClose.ImageIndex = 0
		Me.cmdClose.Tag = "close"
		'
		'cmdSave
		'
		Me.cmdSave.ImageIndex = 1
		Me.cmdSave.Tag = "save"
		'
		'frmAdminMitarbeiterEdit
		'
		Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
		Me.ClientSize = New System.Drawing.Size(690, 543)
		Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.tbMenu, Me.tcMenu})
		Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
		Me.KeyPreview = True
		Me.MaximizeBox = False
		Me.MinimizeBox = False
		Me.Name = "frmAdminMitarbeiterEdit"
		Me.ShowInTaskbar = False
		Me.Text = "Mitarbeiter erfassen / bearbeiten"
		Me.tcMenu.ResumeLayout(False)
		Me.tabAllgemein.ResumeLayout(False)
		Me.tabErweitert.ResumeLayout(False)
		Me.tabTeams.ResumeLayout(False)
		CType(Me.grdMATeams, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.grdAlleTeams, System.ComponentModel.ISupportInitialize).EndInit()
		Me.tabFunktionen.ResumeLayout(False)
		CType(Me.grdAlleFunktionsgruppen, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.grdMAFunktionsgruppen, System.ComponentModel.ISupportInitialize).EndInit()
		Me.ResumeLayout(False)

	End Sub

#End Region

#Region "Event handlers"

	Private Sub tbMenu_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbMenu.ButtonClick
		Try
			Select Case e.Button.Tag.ToString().ToLower()
				Case "close"
					Close()
				Case "save"
					Dim saveRet As Integer = SaveData()
			End Select
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(302), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.tbMenu_ButtonClick: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub cmdCreateStandardProfil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCreateStandardProfil.Click
		Try
			'user forge öber wörkli wott am mitarbeiter sis default profil öberchrezzle...
			Dim ret As DialogResult = MessageBox.Show(String.Format(BusinessFacade.Meldungstext.GetInhaltById(313), _mitarbeiter.AnzeigeName), Common.Consts.INFO, MessageBoxButtons.YesNo, MessageBoxIcon.Question)

			If ret = DialogResult.Yes Then
				'neues standard profil erzeugen
				_mitarbeiter.CreateNewStandardProfil(BusinessFacade.AktuellerBenutzer.MitarbeiterNr)

				'ok meldung anzeigen
				MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(315), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(312), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.cmdCreateStandardProfil_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub frmAdminMitarbeiterEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Try
			'Alle Teams laden
			Dim dsAlleTeams As New DataSet()
			BusinessFacade.Team.GetListe(dsAlleTeams)
			grdAlleTeams.DataSource = dsAlleTeams.Tables(0)

			'Alle Funktionsgruppen laden
			Dim dsAlleFunktionsGruppen As New DataSet()
			BusinessFacade.Funktionsgruppe.GetListe(dsAlleFunktionsGruppen)
			grdAlleFunktionsgruppen.DataSource = dsAlleFunktionsGruppen.Tables(0)

			'grid spalten für teams laden
			BusinessFacade.Spalten.FillGridColumns("teammitarbeiter", grdMATeams)
			BusinessFacade.Spalten.FillGridColumns("team", grdAlleTeams)

			'grid spalten für funktionsgruppen laden
			BusinessFacade.Spalten.FillGridColumns("mitarbeiter_funktionsgruppe", grdMAFunktionsgruppen)
			BusinessFacade.Spalten.FillGridColumns("funktionsgruppe", grdAlleFunktionsgruppen)

			'Alle Klassifizierungen laden
			Dim dsKlassifizierung As New DataSet()
			BusinessFacade.Klassifizierung.GetListe(dsKlassifizierung)
			cboKlassifizierung.DataSource = dsKlassifizierung.Tables(0)
			cboKlassifizierung.ValueMember = "klassenID"
			cboKlassifizierung.DisplayMember = "bezeichnung"

			'default setzen
			cboMandant.SelectedIndex = 0
			cboFuerMandant.SelectedIndex = 0
			cboSprache.SelectedIndex = 0

			If Not IsNothing(_mitarbeiter) Then
				'bestehender ma
				cboKlassifizierung.SelectedValue = _mitarbeiter.KlassifizierungNr
			Else
				'neuer mitarbeiter -> load grid structur

				'leere datasets holen (struktur der ds autom erstellen lassen)
				_dsMaTeams = New DataSet()
				BusinessFacade.Team.GetListeByMitarbeiterNr(-1, _dsMaTeams)
				_dsMaFunktionsgruppen = New DataSet()
				BusinessFacade.MitarbeiterFunktionsgruppe.GetListeByMitarbeiterNr(-1, _dsMaFunktionsgruppen)
			End If

		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.frmAdminMitarbeiterEdit_Load: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub cmdSaveTeamMitarbeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSaveTeamMitarbeiter.Click
		Try
			If IsNumeric(txtAnteil.Text) Then
				_dsMaTeams.Tables(0).Rows(GetTeamItemIndex(_tmpTeamNr))("anteil") = Convert.ToInt32(txtAnteil.Text)

				grdMATeams.DataSource = _dsMaTeams.Tables(0)
			Else
				MessageBox.Show(String.Format(BusinessFacade.Meldungstext.GetInhaltById(309), "%-Anteil"), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(302), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.cmdSaveTeamMitarbeiter_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub grdMATeams_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles grdMATeams.RowColChange
		Try
			If grdMATeams.Splits(0).Rows.Count = 0 Then
				Exit Sub
			End If

			'nur wenn row geändert wird, ODER nur ein eintrag da ist(dann ändert die row nöd >< )
			If e.LastRow <> grdMATeams.Bookmark Or grdMATeams.Splits(0).Rows.Count = 1 Then

				'anteil ond save button enable
				txtAnrede.Enabled = True
				cmdSaveTeamMitarbeiter.Enabled = True

				'nur ausführen wenn die row geändert wird
				lblTeamName.Text = grdMATeams.Columns("team").Value
				txtAnteil.Text = grdMATeams.Columns("anteil").Value
				_tmpTeamNr = grdMATeams.Columns("teamnr").Value
			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.grdMATeams_RowColChange: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub cmdTeamConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTeamConnect.Click
		Try
			If grdAlleTeams.Splits(0).Rows.Count > 0 Then
				Dim teamNr As Integer = grdAlleTeams.Columns("teamnr").Value
				If GetTeamItemIndex(teamNr) < 0 Then
					'eintrag existiert noch nicht -> neue row mit daten hinzufügen

					Dim newRow As DataRow
					newRow = _dsMaTeams.Tables(0).NewRow()
					newRow("teammitarbeiternr") = -1
					newRow("teamnr") = teamNr
					newRow("team") = grdAlleTeams.Columns("bezeichnung").Value
					newRow("mandantnr") = grdAlleTeams.Columns("mandantnr").Value
					newRow("mitarbeiternr") = _mitarbeiter.MitarbeiterNr
					newRow("aktiv") = 1
					newRow("anteil") = 100

					'newRow.RowState = DataRowState.Added
					_dsMaTeams.Tables(0).Rows.Add(newRow)

					'neues ds an grid binden
					grdMATeams.DataSource = _dsMaTeams.Tables(0)
				Else
					MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(308), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
				End If

				'grid spalten für teams laden
				BusinessFacade.Spalten.FillGridColumns("teammitarbeiter", grdMATeams)

				_dataChanged = True

			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(307), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.cmdTeamConnect_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub cmdTeamDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
		Try
			If grdMATeams.Splits(0).Rows.Count > 0 Then
				Dim teamNr = grdMATeams.Columns("teamnr").Value

				'als gelöscht markieren
				'_dsMaTeams.Tables(0).Rows(GetTeamItemIndex(teamNr)).Delete()
				_dsMaTeams.Tables(0).Rows(GetTeamItemIndex(teamNr))("aktiv") = 0

				'neues ds an grid binden
				grdMATeams.DataSource = _dsMaTeams.Tables(0)

				If grdMATeams.Splits(0).Rows.Count = 0 Then
					'wenn keine teams mehr vorhanden sind, kann auch keine %-anteil gesetzt werden
					lblTeamName.Text = ""
					txtAnrede.Text = ""
					txtAnrede.Enabled = False
					cmdSaveTeamMitarbeiter.Enabled = False
				End If
			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(306), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.cmdTeamDisconnect_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub cmdZuordnenFunktionsgruppen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdZuordnenFunktionsgruppen.Click
		Try
			If grdAlleFunktionsgruppen.Splits(0).Rows.Count > 0 Then
				Dim funktionsgruppeNr As Integer = grdAlleFunktionsgruppen.Columns("funktionsgruppenr").Value
				If GetFunktionsGruppeItemIndex(funktionsgruppeNr) < 0 Then
					'eintrag existiert noch nicht -> neue row mit daten hinzufügen

					Dim newRow As DataRow
					newRow = _dsMaFunktionsgruppen.Tables(0).NewRow()
					newRow("mitarbeiter_funktionsgruppenr") = -1
					newRow("funktionsgruppenr") = funktionsgruppeNr
					newRow("mitarbeiternr") = _mitarbeiter.MitarbeiterNr
					newRow("funktionsgruppe") = grdAlleFunktionsgruppen.Columns("bezeichnung").Value
					newRow("aktiv") = 1
					_dsMaFunktionsgruppen.Tables(0).Rows.Add(newRow)

					'neues ds an grid binden
					grdMAFunktionsgruppen.DataSource = _dsMaFunktionsgruppen.Tables(0)
				Else
					MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(308), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
				End If

				'grid spalten für funktionsgruppen laden
				BusinessFacade.Spalten.FillGridColumns("mitarbeiter_funktionsgruppe", grdMAFunktionsgruppen)

				_dataChanged = True

			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(307), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.cmdZuordnenFunktionsgruppen_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try

	End Sub

	Private Sub cmdEntfernenFunktionsgruppen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
		Try
			If grdMAFunktionsgruppen.Splits(0).Rows.Count > 0 Then
				Dim funktionsgruppeNr = grdMAFunktionsgruppen.Columns("funktionsgruppenr").Value

				'_dsMaFunktionsgruppen.Tables(0).Rows(GetFunktionsGruppeItemIndex(funktionsgruppeNr)).Delete()
				_dsMaFunktionsgruppen.Tables(0).Rows(GetFunktionsGruppeItemIndex(funktionsgruppeNr))("aktiv") = 0

				'neues ds an grid binden
				grdMAFunktionsgruppen.DataSource = _dsMaFunktionsgruppen.Tables(0)

				_dataChanged = True

			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(306), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.cmdEntfernenFunktionsgruppen_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub tcMenu_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tcMenu.SelectedIndexChanged
		Try
			If IsNothing(_mitarbeiter) Then
				'wenn ein neuer mitarbeiter erfasst wird, muss dieser erst gespeichert werden
				'before team und funktionsgruppen erstellt werden können, weil sosch vell onsennige check stuff
				If tcMenu.SelectedIndex = 2 Or tcMenu.SelectedIndex = 3 Then				'team zuordnung or funktionsgruppen
					MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(314), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
					tcMenu.SelectedIndex = 1
				End If
			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.tcMenu_SelectedIndexChanged: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub cboKlassifizierung_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboKlassifizierung.SelectedValueChanged
		Try
			If Not IsNothing(cboKlassifizierung.SelectedItem) Then
				'If Not IsNothing(cboKlassifizierung.SelectedItem("KlassenId")) Then
				If Convert.ToInt32(cboKlassifizierung.SelectedItem("KlassenId")) = 1 Then
					'mitarbeiter tkb hat kein teammail
					txtMail1.ReadOnly = True
				Else
					txtMail1.ReadOnly = False
				End If
				'End If
			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.cboKlassifizierung_SelectedValueChanged: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs)
		Try
			If _dataChanged Then
				'froge öb speichere wenn data changed
				Dim ret As DialogResult
				ret = MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(316), Common.Consts.INFO, MessageBoxButtons.YesNo, MessageBoxIcon.Question)

				If ret = DialogResult.Yes Then
					Dim saveRet As Integer = SaveData()

					If saveRet <> 0 Then
						'ein fehler ist beim speichern aufgetreten -> cancel close
						e.Cancel = True
					End If
				End If

			End If
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.OnClosing: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
		_dataChanged = True
	End Sub

	Private Sub ctxAktivSetzen_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctxAktivSetzen.Popup
		Try
			Dim isAktive = False

			Select Case sender.SourceControl.Name
				Case grdMATeams.Name				'mitarbetier team
					If grdMATeams.Splits(0).Rows.Count > 0 Then
						isAktive = Convert.ToBoolean(grdMATeams.Columns("aktiv").Value)
					End If
				Case grdMAFunktionsgruppen.Name				'mitarbeiter funktionsgruppe
					If grdMAFunktionsgruppen.Splits(0).Rows.Count > 0 Then
						isAktive = Convert.ToBoolean(grdMAFunktionsgruppen.Columns("aktiv").Value)
					End If
			End Select

			mnuAktivieren.Enabled = Not isAktive
			mnuDeaktivieren.Enabled = isAktive

			_currentGridName = sender.SourceControl.Name
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.ctxAktivSetzen_Popup: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub mnuAktivieren_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuAktivieren.Click
		Try
			Select Case _currentGridName
				Case grdMATeams.Name				'mitarbetier team
					If grdMATeams.Splits(0).Rows.Count > 0 Then
						grdMATeams.Columns("aktiv").Value = True
						tcMenu.Focus()
						grdMATeams.Focus()
					End If
				Case grdMAFunktionsgruppen.Name				'mitarbeiter funktionsgruppe
					If grdMAFunktionsgruppen.Splits(0).Rows.Count > 0 Then
						grdMAFunktionsgruppen.Columns("aktiv").Value = True
						tcMenu.Focus()
						grdMAFunktionsgruppen.Focus()
					End If
			End Select

			_dataChanged = True

		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.mnuAktivieren_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub mnuDeaktivieren_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuDeaktivieren.Click
		Try
			Select Case _currentGridName
				Case grdMATeams.Name				'mitarbetier team
					If grdMATeams.Splits(0).Rows.Count > 0 Then
						grdMATeams.Columns("aktiv").Value = False
						tcMenu.Focus()
						grdMATeams.Focus()
					End If
				Case grdMAFunktionsgruppen.Name				'mitarbeiter funktionsgruppe
					If grdMAFunktionsgruppen.Splits(0).Rows.Count > 0 Then
						grdMAFunktionsgruppen.Columns("aktiv").Value = False
						tcMenu.Focus()
						grdMAFunktionsgruppen.Focus()
					End If
			End Select

			_dataChanged = True

		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.mnuDeaktivieren_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub grdMATeams_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles grdMATeams.MouseDown
		Try
			grdMATeams.Bookmark = Me.grdMATeams.RowContaining(e.Y)
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.grdMATeams_MouseDown: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub grdMAFunktionsgruppen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles grdMAFunktionsgruppen.MouseDown
		Try
			grdMAFunktionsgruppen.Bookmark = Me.grdMAFunktionsgruppen.RowContaining(e.Y)
		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.grdMAFunktionsgruppen_MouseDown: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

#End Region

#Region "Private methods"

	'''<summary>Lädt allle Infos zu einem Mitarbeiter</summary>
	'''<returns></returns>
	Private Function LoadDetail()
		Try
			lblMitarbeiterNr.Text = _mitarbeiter.MitarbeiterNr.ToString()
			txtAnrede.Text = _mitarbeiter.Anrede
			txtVorname.Text = _mitarbeiter.Vorname
			txtKurzzeichen.Text = _mitarbeiter.KurzZeichen
			txtNachname.Text = _mitarbeiter.Nachname
			txtTGNummer.Text = _mitarbeiter.TGNummer
			txtFunktion.Text = _mitarbeiter.Funktion
			txteMail.Text = _mitarbeiter.EMail
			txtFax.Text = _mitarbeiter.Fax
			txtTelefon.Text = _mitarbeiter.Telefon
			txtUnterschriftText.Text = _mitarbeiter.UnterschritText

			chkIsActive.Checked = _mitarbeiter.IsAktiv

			lblErstellt.Text = _mitarbeiter.ErstelltAm.ToShortDateString()
			Dim mutierer As New BusinessFacade.Mitarbeiter(_mitarbeiter.MutiererMitarbeiterNr)
			lblBearbeitet.Text = _mitarbeiter.MutiertAm.ToShortDateString() + " von " + mutierer.AnzeigeName

			txtRang.Text = _mitarbeiter.Rang
			txtPartnerNr.Text = _mitarbeiter.PartnerNr
			cboMandant.SelectedValue = _mitarbeiter.MandantNr
			cboFuerMandant.SelectedValue = _mitarbeiter.FuerMandantNr
			cboSprache.SelectedValue = _mitarbeiter.SpracheNr
			cboKlassifizierung.SelectedValue = _mitarbeiter.KlassifizierungNr
			txtMail1.Text = _mitarbeiter.Mail1

			If _mitarbeiter.KlassifizierungNr <> 1 Then
				'wenn klassifizierung nicht mitarbeiter tkb ist...
				txtMail1.ReadOnly = False
			Else
				txtMail1.ReadOnly = True
			End If

			chkShowToolTip.Checked = _mitarbeiter.ShowTipp
			chkMailEmpfang.Checked = _mitarbeiter.IsMailEmpfang
			chkEdokaMessage.Checked = _mitarbeiter.IsEdokaMessage
			chkMailDokumentRueckgang.Checked = _mitarbeiter.IsMailDokumentRueckgang
			chkEdokaMail.Checked = _mitarbeiter.IsEdokaMail
			chkJournalisierung.Checked = _mitarbeiter.Journalisierung
			chkMailDirektVersenden.Checked = _mitarbeiter.IsMailDirektVersenden
			chkGebMeldung.Checked = _mitarbeiter.IsGebMeldung

			'Zuordnung von MA zu teams laden
			_dsMaTeams = New DataSet()
			BusinessFacade.Team.GetListeByMitarbeiterNr(_mitarbeiter.MitarbeiterNr, _dsMaTeams)
			grdMATeams.DataSource = _dsMaTeams.Tables(0)

			'Zuordnung von MA zu funktionsgruppen laden
			_dsMaFunktionsgruppen = New DataSet()
			BusinessFacade.MitarbeiterFunktionsgruppe.GetListeByMitarbeiterNr(_mitarbeiter.MitarbeiterNr, _dsMaFunktionsgruppen)
			grdMAFunktionsgruppen.DataSource = _dsMaFunktionsgruppen.Tables(0)

		Catch ex As Exception
			MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiterEdit.LoadDetail: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Function

	'''<summary>Speichert allle Infos zu einem Mitarbeiter</summary>
	'''<returns>0 wenn alles erfolgreich war, 1 wenn ein fehler aufgetreten ist</returns>
	Private Function SaveData() As Integer
		Try
			'input validierungen
			If IsNothing(cboKlassifizierung.SelectedValue) Then
				MessageBox.Show(String.Format(BusinessFacade.Meldungstext.GetInhaltById(309), "Klassifizierung"), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
				Return 1
			End If

			If Not IsNumeric(txtPartnerNr.Text) Then
				MessageBox.Show(String.Format(BusinessFacade.Meldungstext.GetInhaltById(309), "Partner Nr."), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
				Return 1
			End If

			If txtNachname.Text.Trim = "" Then
				MessageBox.Show(String.Format(BusinessFacade.Meldungstext.GetInhaltById(309), "Nachname"), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
				Return 1
			End If

			If txtVorname.Text.Trim = "" And cboKlassifizierung.SelectedValue = 1 Then
				'wenn klasse ma tkb
				MessageBox.Show(String.Format(BusinessFacade.Meldungstext.GetInhaltById(309), "Vorname"), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
				Return 1
			End If

			If txtTGNummer.Text.Trim = "" And cboKlassifizierung.SelectedValue = 1 Then
				'wenn klasse ma tkb
				MessageBox.Show(String.Format(BusinessFacade.Meldungstext.GetInhaltById(309), "TG-Nummer"), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
				Return 1
			End If

			If txteMail.Text.Trim = "" And cboKlassifizierung.SelectedValue = 1 Then
				'wenn klasse ma tkb
				MessageBox.Show(String.Format(BusinessFacade.Meldungstext.GetInhaltById(309), "eMail"), Common.Consts.INFO, MessageBoxButtons.OK, MessageBoxIcon.Information)
				Return 1
			End If

			Dim isNeuerMitarbeiter = False
			'properties neu setzen und speichern
			If _mitarbeiter Is Nothing Then
				_mitarbeiter = New BusinessFacade.Mitarbeiter()
				isNeuerMitarbeiter = True
			End If

			_mitarbeiter.Anrede = txtAnrede.Text
			_mitarbeiter.EMail = txteMail.Text
			_mitarbeiter.Fax = txtFax.Text
			_mitarbeiter.FuerMandantNr = 1			'cboFuerMandant.SelectedValue
			_mitarbeiter.Funktion = txtFunktion.Text
			_mitarbeiter.IsAktiv = chkIsActive.Checked
			_mitarbeiter.IsEdokaMail = chkEdokaMail.Checked
			_mitarbeiter.IsEdokaMessage = chkEdokaMessage.Checked
			_mitarbeiter.IsGebMeldung = chkGebMeldung.Checked
			_mitarbeiter.IsMailDirektVersenden = chkMailDirektVersenden.Checked
			_mitarbeiter.IsMailDokumentRueckgang = chkMailDokumentRueckgang.Checked
			_mitarbeiter.IsMailEmpfang = chkMailEmpfang.Checked
			_mitarbeiter.Journalisierung = chkJournalisierung.Checked
			_mitarbeiter.KlassifizierungNr = cboKlassifizierung.SelectedValue
			_mitarbeiter.KurzZeichen = txtKurzzeichen.Text
			_mitarbeiter.Mail1 = txtMail1.Text
			_mitarbeiter.MandantNr = 1			'cboMandant.SelectedValue
			_mitarbeiter.Nachname = txtNachname.Text
			_mitarbeiter.PartnerNr = Convert.ToInt32(txtPartnerNr.Text)
			_mitarbeiter.Rang = txtRang.Text
			_mitarbeiter.ShowTipp = chkShowToolTip.Checked
			_mitarbeiter.SpracheNr = 1			'cboSprache.SelectedValue
			_mitarbeiter.Telefon = txtTelefon.Text
			_mitarbeiter.TGNummer = txtTGNummer.Text
			_mitarbeiter.UnterschritText = txtUnterschriftText.Text
			_mitarbeiter.Vorname = txtVorname.Text

			'mitarbeiter und zuordnung speichern
			_mitarbeiter.Save(_dsMaTeams, _dsMaFunktionsgruppen, Globals.MitarbeiterNr)

			If isNeuerMitarbeiter Then
				'neues standard profil erzeugen
				_mitarbeiter.CreateNewStandardProfil(BusinessFacade.AktuellerBenutzer.MitarbeiterNr)
			End If

			'reset flag
			_dataChanged = False

			Return 0
		Catch exMa As BusinessFacade.MitarbeiterException
			MessageBox.Show(exMa.Message, "Daten nicht gespeichert", MessageBoxButtons.OK, MessageBoxIcon.Information)
			Return 1
		Catch ex As Exception
			Throw ex
		End Try
	End Function

#End Region

#Region "Helper methods"

	'''<summary>Gibt den Index einer Mitarbeiter-Team zuordnung aus dem grid zurück</summary>
	'''<param name="teamNr">Zu suchendes Team</param>
	'''<returns>Der Index des zutreffenden Eintrags oder -1 wenn kein Eintrag gefunden wurde</returns>
	Private Function GetTeamItemIndex(ByVal teamNr As Integer) As Integer
		Try
			Dim row As DataRow
			Dim index As Integer = 0
			Dim rowVersion As DataRowVersion

			If IsNothing(_dsMaTeams) Then
				'es ist noch gar kein item im dataset
				Return -1
			End If

			For Each row In _dsMaTeams.Tables(0).Rows
				If Not row.RowState = DataRowState.Deleted Then
					If Convert.ToInt32(row("teamnr")) = teamNr Then
						Return index
					End If
				End If
				index += 1
			Next

			'eintrag wurde nicht gefunden
			Return -1
		Catch ex As Exception
			Throw ex
		End Try
	End Function

	'''<summary>Gibt den Index einer Mitarbeiter-Funktionsgruppen Zuordnung aus dem grid zurück</summary>
	'''<param name="funktionsGruppeNr">Zu suchendee Funktionsgruppen</param>
	'''<returns>Der Index des zutreffenden Eintrags oder -1 wenn kein Eintrag gefunden wurde</returns>
	Private Function GetFunktionsGruppeItemIndex(ByVal funktionsGruppeNr As Integer) As Integer
		Try
			Dim row As DataRow
			Dim index As Integer = 0
			Dim rowVersion As DataRowVersion

			If IsNothing(_dsMaFunktionsgruppen) Then
				'es ist noch gar kein item im dataset
				Return -1
			End If

			For Each row In _dsMaFunktionsgruppen.Tables(0).Rows
				If Not row.RowState = DataRowState.Deleted Then
					If Convert.ToInt32(row("funktionsgruppenr")) = funktionsGruppeNr Then
						Return index
					End If
				End If
				index += 1
			Next

			'eintrag wurde nicht gefunden
			Return -1
		Catch ex As Exception
			Throw ex
		End Try
	End Function

#End Region

End Class