shu
/
EDOKA_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '07c531bdf3'
${ noResults }
EDOKA_DMS/EDOKA/Backup1/Systemadministration/Domains/frmAdminMitarbeiterEdit.vb

1826 lines
83 KiB
Raw Blame History

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
Reference in new issue View Git Blame Copy Permalink