Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports System.Drawing Imports System.Drawing.Color Imports System.ComponentModel Public Class frmDomainMitarbeiter Inherits System.Windows.Forms.Form #Region " Vom Windows Form Designer generierter Code " Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen End Sub ' 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 MainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar Friend WithEvents ToolBtnExit As System.Windows.Forms.ToolBarButton Friend WithEvents Splitter1 As System.Windows.Forms.Splitter Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection Friend WithEvents DataSet1 As System.Data.DataSet Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand Friend WithEvents DataSet2 As System.Data.DataSet Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand Friend WithEvents DomainList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents C1TrueDBDropdown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown Friend WithEvents SqlDataAdapter4 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlDeleteCommand4 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand4 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlSelectCommand4 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand4 As System.Data.SqlClient.SqlCommand Friend WithEvents DataSet4 As System.Data.DataSet Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents btnSaveTeammitarbeiter As System.Windows.Forms.Button Friend WithEvents TBTeam As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection Friend WithEvents SqlConnection3 As System.Data.SqlClient.SqlConnection Friend WithEvents SqlConnection4 As System.Data.SqlClient.SqlConnection Friend WithEvents SqlConnection5 As System.Data.SqlClient.SqlConnection Friend WithEvents PanelTeam As System.Windows.Forms.Panel Friend WithEvents Splitter2 As System.Windows.Forms.Splitter Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents BtnConnect As System.Windows.Forms.Button Friend WithEvents Splitter3 As System.Windows.Forms.Splitter Friend WithEvents PanelFunktionen As System.Windows.Forms.Panel Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents Splitter4 As System.Windows.Forms.Splitter Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents Panel3 As System.Windows.Forms.Panel Friend WithEvents Panel4 As System.Windows.Forms.Panel Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents BtnConnectFnk As System.Windows.Forms.Button Friend WithEvents optTeam As System.Windows.Forms.RadioButton Friend WithEvents optMitarbeiter_Team As System.Windows.Forms.RadioButton Friend WithEvents optFunktion As System.Windows.Forms.RadioButton Friend WithEvents optMitarbeiter_Funktion As System.Windows.Forms.RadioButton Friend WithEvents TBRight_Team As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents TBFunktion As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents daTeam As System.Data.SqlClient.SqlDataAdapter Friend WithEvents DsTeam As System.Data.DataSet Friend WithEvents TBRight_Funktion As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents DaRight_Funktion As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlSelectCommand5 As System.Data.SqlClient.SqlCommand Friend WithEvents DsRight_Funktion As System.Data.DataSet Friend WithEvents dsFunltion As System.Data.DataSet Friend WithEvents btnSaveFunktionmitarbeiter As System.Windows.Forms.Button Friend WithEvents DaFunktion As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlSelectCommand6 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand5 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand5 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand5 As System.Data.SqlClient.SqlCommand Friend WithEvents drpKlassifizierung As C1.Win.C1TrueDBGrid.C1TrueDBDropdown Friend WithEvents ToolBtnSave As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarNeu As System.Windows.Forms.ToolBarButton Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlConnection6 As System.Data.SqlClient.SqlConnection Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDomainMitarbeiter)) Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style9 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style10 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style11 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style12 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style13 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style14 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style15 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style16 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components) Me.MenuItem1 = New System.Windows.Forms.MenuItem() Me.MenuItem2 = New System.Windows.Forms.MenuItem() Me.MenuItem3 = New System.Windows.Forms.MenuItem() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.ToolBar1 = New System.Windows.Forms.ToolBar() Me.ToolBtnExit = New System.Windows.Forms.ToolBarButton() Me.ToolBtnSave = New System.Windows.Forms.ToolBarButton() Me.ToolBarNeu = New System.Windows.Forms.ToolBarButton() Me.Splitter1 = New System.Windows.Forms.Splitter() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.TBTeam = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.Panel2 = New System.Windows.Forms.Panel() Me.btnSaveTeammitarbeiter = New System.Windows.Forms.Button() Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlConnection6 = New System.Data.SqlClient.SqlConnection() Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection() Me.SqlConnection5 = New System.Data.SqlClient.SqlConnection() Me.SqlConnection4 = New System.Data.SqlClient.SqlConnection() Me.SqlConnection3 = New System.Data.SqlClient.SqlConnection() Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection() Me.DataSet1 = New System.Data.DataSet() Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand() Me.DataSet2 = New System.Data.DataSet() Me.daTeam = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand() Me.DsTeam = New System.Data.DataSet() Me.DomainList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.SqlDataAdapter4 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand4 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand4 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand4 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand4 = New System.Data.SqlClient.SqlCommand() Me.DataSet4 = New System.Data.DataSet() Me.PanelTeam = New System.Windows.Forms.Panel() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.TBRight_Team = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.Panel1 = New System.Windows.Forms.Panel() Me.Label1 = New System.Windows.Forms.Label() Me.optTeam = New System.Windows.Forms.RadioButton() Me.optMitarbeiter_Team = New System.Windows.Forms.RadioButton() Me.BtnConnect = New System.Windows.Forms.Button() Me.Splitter2 = New System.Windows.Forms.Splitter() Me.Splitter3 = New System.Windows.Forms.Splitter() Me.PanelFunktionen = New System.Windows.Forms.Panel() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.TBRight_Funktion = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.Panel4 = New System.Windows.Forms.Panel() Me.Label2 = New System.Windows.Forms.Label() Me.optFunktion = New System.Windows.Forms.RadioButton() Me.optMitarbeiter_Funktion = New System.Windows.Forms.RadioButton() Me.BtnConnectFnk = New System.Windows.Forms.Button() Me.Splitter4 = New System.Windows.Forms.Splitter() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.TBFunktion = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnSaveFunktionmitarbeiter = New System.Windows.Forms.Button() Me.DaRight_Funktion = New System.Data.SqlClient.SqlDataAdapter() Me.SqlSelectCommand5 = New System.Data.SqlClient.SqlCommand() Me.DsRight_Funktion = New System.Data.DataSet() Me.dsFunltion = New System.Data.DataSet() Me.DaFunktion = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand5 = New System.Data.SqlClient.SqlCommand() Me.SqlInsertCommand5 = New System.Data.SqlClient.SqlCommand() Me.SqlSelectCommand6 = New System.Data.SqlClient.SqlCommand() Me.SqlUpdateCommand5 = New System.Data.SqlClient.SqlCommand() Me.drpKlassifizierung = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.GroupBox1.SuspendLayout() CType(Me.TBTeam, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DsTeam, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DomainList, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit() Me.PanelTeam.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.TBRight_Team, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.PanelFunktionen.SuspendLayout() Me.GroupBox4.SuspendLayout() CType(Me.TBRight_Funktion, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel4.SuspendLayout() Me.GroupBox3.SuspendLayout() CType(Me.TBFunktion, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel3.SuspendLayout() CType(Me.DsRight_Funktion, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dsFunltion, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.drpKlassifizierung, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'MainMenu1 ' Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1}) ' 'MenuItem1 ' Me.MenuItem1.Index = 0 Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3}) Me.MenuItem1.MergeOrder = 1 Me.MenuItem1.MergeType = System.Windows.Forms.MenuMerge.Replace Me.MenuItem1.Text = "&Datei" ' 'MenuItem2 ' Me.MenuItem2.Index = 0 Me.MenuItem2.MergeOrder = 1 Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.AltF4 Me.MenuItem2.Text = "&Schliessen" ' 'MenuItem3 ' Me.MenuItem3.Index = 1 Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlF5 Me.MenuItem3.Text = "&Daten sichern" ' 'ImageList1 ' Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent Me.ImageList1.Images.SetKeyName(0, "") Me.ImageList1.Images.SetKeyName(1, "") Me.ImageList1.Images.SetKeyName(2, "") Me.ImageList1.Images.SetKeyName(3, "") ' 'ToolBar1 ' Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBtnExit, Me.ToolBtnSave, Me.ToolBarNeu}) Me.ToolBar1.DropDownArrows = True Me.ToolBar1.ImageList = Me.ImageList1 Me.ToolBar1.Location = New System.Drawing.Point(0, 0) Me.ToolBar1.Name = "ToolBar1" Me.ToolBar1.ShowToolTips = True Me.ToolBar1.Size = New System.Drawing.Size(760, 28) Me.ToolBar1.TabIndex = 2 ' 'ToolBtnExit ' Me.ToolBtnExit.ImageIndex = 2 Me.ToolBtnExit.Name = "ToolBtnExit" Me.ToolBtnExit.ToolTipText = "Beenden" ' 'ToolBtnSave ' Me.ToolBtnSave.ImageIndex = 1 Me.ToolBtnSave.Name = "ToolBtnSave" Me.ToolBtnSave.ToolTipText = "Speichern" ' 'ToolBarNeu ' Me.ToolBarNeu.ImageIndex = 3 Me.ToolBarNeu.Name = "ToolBarNeu" Me.ToolBarNeu.ToolTipText = "Neuen Mitarbeiter erstellen" ' 'Splitter1 ' Me.Splitter1.Dock = System.Windows.Forms.DockStyle.Top Me.Splitter1.Location = New System.Drawing.Point(0, 155) Me.Splitter1.Name = "Splitter1" Me.Splitter1.Size = New System.Drawing.Size(760, 8) Me.Splitter1.TabIndex = 5 Me.Splitter1.TabStop = False ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.TBTeam) Me.GroupBox1.Controls.Add(Me.Panel2) Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left Me.GroupBox1.Location = New System.Drawing.Point(0, 0) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(392, 176) Me.GroupBox1.TabIndex = 6 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Team - Zuweisung" ' 'TBTeam ' Me.TBTeam.AlternatingRows = True Me.TBTeam.BackColor = System.Drawing.Color.Gray Me.TBTeam.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored Me.TBTeam.FilterBar = True Me.TBTeam.GroupByCaption = "Drag a column header here to group by that column" Me.TBTeam.Images.Add(CType(resources.GetObject("TBTeam.Images"), System.Drawing.Image)) Me.TBTeam.Location = New System.Drawing.Point(43, 16) Me.TBTeam.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder Me.TBTeam.Name = "TBTeam" Me.TBTeam.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.TBTeam.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.TBTeam.PreviewInfo.ZoomFactor = 75.0R Me.TBTeam.PrintInfo.PageSettings = CType(resources.GetObject("TBTeam.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.TBTeam.Size = New System.Drawing.Size(157, 144) Me.TBTeam.TabIndex = 9 Me.TBTeam.PropBag = resources.GetString("TBTeam.PropBag") ' 'Panel2 ' Me.Panel2.Controls.Add(Me.btnSaveTeammitarbeiter) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left Me.Panel2.Location = New System.Drawing.Point(3, 16) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(40, 157) Me.Panel2.TabIndex = 6 ' 'btnSaveTeammitarbeiter ' Me.btnSaveTeammitarbeiter.Image = CType(resources.GetObject("btnSaveTeammitarbeiter.Image"), System.Drawing.Image) Me.btnSaveTeammitarbeiter.Location = New System.Drawing.Point(8, 8) Me.btnSaveTeammitarbeiter.Name = "btnSaveTeammitarbeiter" Me.btnSaveTeammitarbeiter.Size = New System.Drawing.Size(24, 23) Me.btnSaveTeammitarbeiter.TabIndex = 3 ' 'SqlDataAdapter1 ' Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1 Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1 Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1 Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "mitarbeiter", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("vorname", "vorname"), New System.Data.Common.DataColumnMapping("name", "name"), New System.Data.Common.DataColumnMapping("kurzzeichen", "kurzzeichen"), New System.Data.Common.DataColumnMapping("anrede", "anrede"), New System.Data.Common.DataColumnMapping("tgnummer", "tgnummer"), New System.Data.Common.DataColumnMapping("email", "email"), New System.Data.Common.DataColumnMapping("fax", "fax"), New System.Data.Common.DataColumnMapping("telefon", "telefon"), New System.Data.Common.DataColumnMapping("unterschrift_text", "unterschrift_text"), New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("fuermandant", "fuermandant"), New System.Data.Common.DataColumnMapping("showtip", "showtip"), New System.Data.Common.DataColumnMapping("partnernr", "partnernr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("Mailempfang", "Mailempfang"), New System.Data.Common.DataColumnMapping("EdokaMesasge", "EdokaMesasge"), New System.Data.Common.DataColumnMapping("funktion", "funktion"), New System.Data.Common.DataColumnMapping("MailDirektVersenden", "MailDirektVersenden"), New System.Data.Common.DataColumnMapping("Rang", "Rang"), New System.Data.Common.DataColumnMapping("MailDokumentrueckgang", "MailDokumentrueckgang"), New System.Data.Common.DataColumnMapping("klassifizierung", "klassifizierung"), New System.Data.Common.DataColumnMapping("edoka_mail", "edoka_mail"), New System.Data.Common.DataColumnMapping("journalisierung", "journalisierung"), New System.Data.Common.DataColumnMapping("GebMeldung", "GebMeldung"), New System.Data.Common.DataColumnMapping("Mail_1", "Mail_1")})}) Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1 ' 'SqlDeleteCommand1 ' Me.SqlDeleteCommand1.CommandText = "[pv_mitarbeiter_delete]" Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand1.Connection = Me.SqlConnection6 Me.SqlDeleteCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_EdokaMesasge", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EdokaMesasge", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_GebMeldung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "GebMeldung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_MailDirektVersenden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MailDirektVersenden", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_MailDokumentrueckgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MailDokumentrueckgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Mail_1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Mailempfang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mailempfang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Rang", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Rang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_anrede", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anrede", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_edoka_mail", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edoka_mail", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_fax", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fax", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_fuermandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fuermandant", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktion", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktion", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_journalisierung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "journalisierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_klassifizierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "klassifizierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_kurzzeichen", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kurzzeichen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_name", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_partnernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnernr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_showtip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showtip", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_tgnummer", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tgnummer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_text", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_text", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vorname", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorname", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlConnection6 ' Me.SqlConnection6.ConnectionString = "data source=server02;initial catalog=EDOKA;integrated security=SSPI;persist secur" & "ity info=False;workstation id=WSDEV02;packet size=4096" Me.SqlConnection6.FireInfoMessageEventOnUserErrors = False ' 'SqlInsertCommand1 ' Me.SqlInsertCommand1.CommandText = "[pv_mitarbeiter_insert]" Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand1.Connection = Me.SqlConnection6 Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@vorname", System.Data.SqlDbType.VarChar, 50, "vorname"), New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.VarChar, 50, "name"), New System.Data.SqlClient.SqlParameter("@kurzzeichen", System.Data.SqlDbType.VarChar, 10, "kurzzeichen"), New System.Data.SqlClient.SqlParameter("@anrede", System.Data.SqlDbType.VarChar, 50, "anrede"), New System.Data.SqlClient.SqlParameter("@tgnummer", System.Data.SqlDbType.VarChar, 50, "tgnummer"), New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 50, "email"), New System.Data.SqlClient.SqlParameter("@fax", System.Data.SqlDbType.VarChar, 50, "fax"), New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 50, "telefon"), New System.Data.SqlClient.SqlParameter("@unterschrift_text", System.Data.SqlDbType.VarChar, 50, "unterschrift_text"), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@fuermandant", System.Data.SqlDbType.Int, 4, "fuermandant"), New System.Data.SqlClient.SqlParameter("@showtip", System.Data.SqlDbType.Bit, 1, "showtip"), New System.Data.SqlClient.SqlParameter("@partnernr", System.Data.SqlDbType.Int, 4, "partnernr"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Mailempfang", System.Data.SqlDbType.Bit, 1, "Mailempfang"), New System.Data.SqlClient.SqlParameter("@EdokaMesasge", System.Data.SqlDbType.Bit, 1, "EdokaMesasge"), New System.Data.SqlClient.SqlParameter("@funktion", System.Data.SqlDbType.VarChar, 255, "funktion"), New System.Data.SqlClient.SqlParameter("@MailDirektVersenden", System.Data.SqlDbType.Bit, 1, "MailDirektVersenden"), New System.Data.SqlClient.SqlParameter("@Rang", System.Data.SqlDbType.VarChar, 255, "Rang"), New System.Data.SqlClient.SqlParameter("@MailDokumentrueckgang", System.Data.SqlDbType.Bit, 1, "MailDokumentrueckgang"), New System.Data.SqlClient.SqlParameter("@klassifizierung", System.Data.SqlDbType.Int, 4, "klassifizierung"), New System.Data.SqlClient.SqlParameter("@edoka_mail", System.Data.SqlDbType.Bit, 1, "edoka_mail"), New System.Data.SqlClient.SqlParameter("@journalisierung", System.Data.SqlDbType.Bit, 1, "journalisierung"), New System.Data.SqlClient.SqlParameter("@GebMeldung", System.Data.SqlDbType.Bit, 1, "GebMeldung"), New System.Data.SqlClient.SqlParameter("@Mail_1", System.Data.SqlDbType.VarChar, 50, "Mail_1")}) ' 'SqlSelectCommand1 ' Me.SqlSelectCommand1.CommandText = "[pv_mitarbeiter_select]" Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand1.Connection = Me.SqlConnection6 Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")}) ' 'SqlUpdateCommand1 ' Me.SqlUpdateCommand1.CommandText = "[pv_mitarbeiter_update]" Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand1.Connection = Me.SqlConnection6 Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@vorname", System.Data.SqlDbType.VarChar, 50, "vorname"), New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.VarChar, 50, "name"), New System.Data.SqlClient.SqlParameter("@kurzzeichen", System.Data.SqlDbType.VarChar, 10, "kurzzeichen"), New System.Data.SqlClient.SqlParameter("@anrede", System.Data.SqlDbType.VarChar, 50, "anrede"), New System.Data.SqlClient.SqlParameter("@tgnummer", System.Data.SqlDbType.VarChar, 50, "tgnummer"), New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 50, "email"), New System.Data.SqlClient.SqlParameter("@fax", System.Data.SqlDbType.VarChar, 50, "fax"), New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 50, "telefon"), New System.Data.SqlClient.SqlParameter("@unterschrift_text", System.Data.SqlDbType.VarChar, 50, "unterschrift_text"), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"), New System.Data.SqlClient.SqlParameter("@fuermandant", System.Data.SqlDbType.Int, 4, "fuermandant"), New System.Data.SqlClient.SqlParameter("@showtip", System.Data.SqlDbType.Bit, 1, "showtip"), New System.Data.SqlClient.SqlParameter("@partnernr", System.Data.SqlDbType.Int, 4, "partnernr"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Mailempfang", System.Data.SqlDbType.Bit, 1, "Mailempfang"), New System.Data.SqlClient.SqlParameter("@EdokaMesasge", System.Data.SqlDbType.Bit, 1, "EdokaMesasge"), New System.Data.SqlClient.SqlParameter("@funktion", System.Data.SqlDbType.VarChar, 255, "funktion"), New System.Data.SqlClient.SqlParameter("@MailDirektVersenden", System.Data.SqlDbType.Bit, 1, "MailDirektVersenden"), New System.Data.SqlClient.SqlParameter("@Rang", System.Data.SqlDbType.VarChar, 255, "Rang"), New System.Data.SqlClient.SqlParameter("@MailDokumentrueckgang", System.Data.SqlDbType.Bit, 1, "MailDokumentrueckgang"), New System.Data.SqlClient.SqlParameter("@klassifizierung", System.Data.SqlDbType.Int, 4, "klassifizierung"), New System.Data.SqlClient.SqlParameter("@edoka_mail", System.Data.SqlDbType.Bit, 1, "edoka_mail"), New System.Data.SqlClient.SqlParameter("@journalisierung", System.Data.SqlDbType.Bit, 1, "journalisierung"), New System.Data.SqlClient.SqlParameter("@GebMeldung", System.Data.SqlDbType.Bit, 1, "GebMeldung"), New System.Data.SqlClient.SqlParameter("@Mail_1", System.Data.SqlDbType.VarChar, 50, "Mail_1"), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_EdokaMesasge", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EdokaMesasge", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_GebMeldung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "GebMeldung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_MailDirektVersenden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MailDirektVersenden", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_MailDokumentrueckgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MailDokumentrueckgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Mail_1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Mailempfang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mailempfang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Rang", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Rang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_anrede", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anrede", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_edoka_mail", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edoka_mail", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_fax", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fax", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_fuermandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fuermandant", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktion", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktion", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_journalisierung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "journalisierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_klassifizierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "klassifizierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_kurzzeichen", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kurzzeichen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_name", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_partnernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnernr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_showtip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showtip", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_tgnummer", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tgnummer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_text", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_text", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vorname", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorname", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlConnection1 ' Me.SqlConnection1.ConnectionString = "data source=tgtsqledokabssf;initial catalog=edoka;integrated security=SSPI;persis" & "t security info=False;workstation id=TG602643;packet size=4096" Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False ' 'SqlConnection5 ' Me.SqlConnection5.ConnectionString = "data source=tg339012;initial catalog=edoka_parameter;integrated security=SSPI;per" & "sist security info=False;user id=dbedoka11;workstation id=TG602655;packet size=4" & "096" Me.SqlConnection5.FireInfoMessageEventOnUserErrors = False ' 'SqlConnection4 ' Me.SqlConnection4.ConnectionString = "data source=TG339012;initial catalog=edoka_test;integrated security=SSPI;persist " & "security info=False;workstation id=TG602645;packet size=4096" Me.SqlConnection4.FireInfoMessageEventOnUserErrors = False ' 'SqlConnection3 ' Me.SqlConnection3.ConnectionString = "data source=shu;initial catalog=edoka_tkb;integrated security=SSPI;persist securi" & "ty info=False;workstation id=SHU;packet size=4096" Me.SqlConnection3.FireInfoMessageEventOnUserErrors = False ' 'SqlConnection2 ' Me.SqlConnection2.ConnectionString = "data source=tg302011;initial catalog=edoka_parameter;persist security info=False;" & "user id=sa;workstation id=TG602645;packet size=4096" Me.SqlConnection2.FireInfoMessageEventOnUserErrors = False ' 'DataSet1 ' Me.DataSet1.DataSetName = "NewDataSet" ' 'SqlDataAdapter2 ' Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2 Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2 Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2 Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "team", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("teamnr", "teamnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("kostenstellenr", "kostenstellenr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})}) Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2 ' 'SqlDeleteCommand2 ' Me.SqlDeleteCommand2.CommandText = "[pv_team_aktiv_delete]" Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand2.Connection = Me.SqlConnection1 Me.SqlDeleteCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_teamnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teamnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_kostenstellenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kostenstellenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand2 ' Me.SqlInsertCommand2.CommandText = "[pv_team_aktiv_insert]" Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand2.Connection = Me.SqlConnection1 Me.SqlInsertCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer")}) ' 'SqlSelectCommand2 ' Me.SqlSelectCommand2.CommandText = "[pv_team_aktiv_select]" Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand2.Connection = Me.SqlConnection1 Me.SqlSelectCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")}) ' 'SqlUpdateCommand2 ' Me.SqlUpdateCommand2.CommandText = "[pv_team_aktiv_update]" Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand2.Connection = Me.SqlConnection1 Me.SqlUpdateCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Original_teamnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teamnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_kostenstellenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kostenstellenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing)}) ' 'DataSet2 ' Me.DataSet2.DataSetName = "NewDataSet" ' 'daTeam ' Me.daTeam.DeleteCommand = Me.SqlDeleteCommand3 Me.daTeam.InsertCommand = Me.SqlInsertCommand3 Me.daTeam.SelectCommand = Me.SqlSelectCommand3 Me.daTeam.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "teammitarbeiter", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("teammitarbeiternr", "teammitarbeiternr"), New System.Data.Common.DataColumnMapping("teamnr", "teamnr"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("anteil", "anteil"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})}) Me.daTeam.UpdateCommand = Me.SqlUpdateCommand3 ' 'SqlDeleteCommand3 ' Me.SqlDeleteCommand3.CommandText = "[pv_teammitarbeiter_delete]" Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand3.Connection = Me.SqlConnection1 Me.SqlDeleteCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_teammitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teammitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_anteil", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anteil", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_teamnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teamnr", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand3 ' Me.SqlInsertCommand3.CommandText = "[pv_teammitarbeiter_insert]" Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand3.Connection = Me.SqlConnection1 Me.SqlInsertCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@teammitarbeiternr", System.Data.SqlDbType.Int, 4, "teammitarbeiternr"), New System.Data.SqlClient.SqlParameter("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@anteil", System.Data.SqlDbType.Int, 4, "anteil"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer")}) ' 'SqlSelectCommand3 ' Me.SqlSelectCommand3.CommandText = "[sp_teammitarbeiter_select]" Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand3.Connection = Me.SqlConnection1 Me.SqlSelectCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlUpdateCommand3 ' Me.SqlUpdateCommand3.CommandText = "[pv_teammitarbeiter_update]" Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand3.Connection = Me.SqlConnection1 Me.SqlUpdateCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@teammitarbeiternr", System.Data.SqlDbType.Int, 4, "teammitarbeiternr"), New System.Data.SqlClient.SqlParameter("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@anteil", System.Data.SqlDbType.Int, 4, "anteil"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Original_teammitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teammitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_anteil", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anteil", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_teamnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teamnr", System.Data.DataRowVersion.Original, Nothing)}) ' 'DsTeam ' Me.DsTeam.DataSetName = "NewDataSet" ' 'DomainList ' Me.DomainList.AlternatingRows = True Me.DomainList.BackColor = System.Drawing.Color.Gray Me.DomainList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored Me.DomainList.Dock = System.Windows.Forms.DockStyle.Top Me.DomainList.FilterBar = True Me.DomainList.GroupByCaption = "Drag a column header here to group by that column" Me.DomainList.Images.Add(CType(resources.GetObject("DomainList.Images"), System.Drawing.Image)) Me.DomainList.Location = New System.Drawing.Point(0, 28) Me.DomainList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder Me.DomainList.Name = "DomainList" Me.DomainList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DomainList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DomainList.PreviewInfo.ZoomFactor = 75.0R Me.DomainList.PrintInfo.PageSettings = CType(resources.GetObject("DomainList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DomainList.ScrollTips = True Me.DomainList.Size = New System.Drawing.Size(760, 127) Me.DomainList.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation Me.DomainList.TabIndex = 4 Me.DomainList.Text = "C1TrueDBGrid1" Me.DomainList.WrapCellPointer = True Me.DomainList.PropBag = resources.GetString("DomainList.PropBag") ' 'C1TrueDBDropdown1 ' Me.C1TrueDBDropdown1.AllowColMove = True Me.C1TrueDBDropdown1.AllowColSelect = True Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows Me.C1TrueDBDropdown1.AlternatingRows = False Me.C1TrueDBDropdown1.CaptionStyle = Style1 Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17 Me.C1TrueDBDropdown1.ColumnFooterHeight = 17 Me.C1TrueDBDropdown1.EvenRowStyle = Style2 Me.C1TrueDBDropdown1.FetchRowStyles = False Me.C1TrueDBDropdown1.FooterStyle = Style3 Me.C1TrueDBDropdown1.HeadingStyle = Style4 Me.C1TrueDBDropdown1.HighLightRowStyle = Style5 Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("C1TrueDBDropdown1.Images"), System.Drawing.Image)) Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(424, 0) Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1" Me.C1TrueDBDropdown1.OddRowStyle = Style6 Me.C1TrueDBDropdown1.RecordSelectorStyle = Style7 Me.C1TrueDBDropdown1.RowDivider.Color = System.Drawing.Color.DarkGray Me.C1TrueDBDropdown1.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single] Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray Me.C1TrueDBDropdown1.ScrollTips = False Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(200, 216) Me.C1TrueDBDropdown1.Style = Style8 Me.C1TrueDBDropdown1.TabIndex = 9 Me.C1TrueDBDropdown1.Text = "C1TrueDBDropdown1" Me.C1TrueDBDropdown1.Visible = False Me.C1TrueDBDropdown1.PropBag = resources.GetString("C1TrueDBDropdown1.PropBag") ' 'SqlDataAdapter4 ' Me.SqlDataAdapter4.DeleteCommand = Me.SqlDeleteCommand4 Me.SqlDataAdapter4.InsertCommand = Me.SqlInsertCommand4 Me.SqlDataAdapter4.SelectCommand = Me.SqlSelectCommand4 Me.SqlDataAdapter4.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktion", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})}) Me.SqlDataAdapter4.UpdateCommand = Me.SqlUpdateCommand4 ' 'SqlDeleteCommand4 ' Me.SqlDeleteCommand4.CommandText = "[pv_funktion_aktiv_delete]" Me.SqlDeleteCommand4.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand4.Connection = Me.SqlConnection1 Me.SqlDeleteCommand4.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand4 ' Me.SqlInsertCommand4.CommandText = "[pv_funktion_aktiv_insert]" Me.SqlInsertCommand4.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand4.Connection = Me.SqlConnection1 Me.SqlInsertCommand4.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung")}) ' 'SqlSelectCommand4 ' Me.SqlSelectCommand4.CommandText = "[pv_funktion_aktiv_select]" Me.SqlSelectCommand4.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand4.Connection = Me.SqlConnection1 Me.SqlSelectCommand4.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlUpdateCommand4 ' Me.SqlUpdateCommand4.CommandText = "[pv_funktion_aktiv_update]" Me.SqlUpdateCommand4.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand4.Connection = Me.SqlConnection1 Me.SqlUpdateCommand4.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing)}) ' 'DataSet4 ' Me.DataSet4.DataSetName = "NewDataSet" ' 'PanelTeam ' Me.PanelTeam.Controls.Add(Me.GroupBox2) Me.PanelTeam.Controls.Add(Me.Splitter2) Me.PanelTeam.Controls.Add(Me.GroupBox1) Me.PanelTeam.Dock = System.Windows.Forms.DockStyle.Top Me.PanelTeam.Location = New System.Drawing.Point(0, 163) Me.PanelTeam.Name = "PanelTeam" Me.PanelTeam.Size = New System.Drawing.Size(760, 176) Me.PanelTeam.TabIndex = 10 ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.TBRight_Team) Me.GroupBox2.Controls.Add(Me.Panel1) Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill Me.GroupBox2.Location = New System.Drawing.Point(400, 0) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(360, 176) Me.GroupBox2.TabIndex = 10 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Team" ' 'TBRight_Team ' Me.TBRight_Team.AllowUpdate = False Me.TBRight_Team.AlternatingRows = True Me.TBRight_Team.BackColor = System.Drawing.Color.Gray Me.TBRight_Team.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored Me.TBRight_Team.Dock = System.Windows.Forms.DockStyle.Fill Me.TBRight_Team.FilterBar = True Me.TBRight_Team.GroupByCaption = "Drag a column header here to group by that column" Me.TBRight_Team.Images.Add(CType(resources.GetObject("TBRight_Team.Images"), System.Drawing.Image)) Me.TBRight_Team.Location = New System.Drawing.Point(96, 16) Me.TBRight_Team.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder Me.TBRight_Team.Name = "TBRight_Team" Me.TBRight_Team.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.TBRight_Team.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.TBRight_Team.PreviewInfo.ZoomFactor = 75.0R Me.TBRight_Team.PrintInfo.PageSettings = CType(resources.GetObject("TBRight_Team.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.TBRight_Team.Size = New System.Drawing.Size(261, 157) Me.TBRight_Team.TabIndex = 6 Me.TBRight_Team.Text = "C1TrueDBGrid1" Me.TBRight_Team.PropBag = resources.GetString("TBRight_Team.PropBag") ' 'Panel1 ' Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Controls.Add(Me.optTeam) Me.Panel1.Controls.Add(Me.optMitarbeiter_Team) Me.Panel1.Controls.Add(Me.BtnConnect) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left Me.Panel1.Location = New System.Drawing.Point(3, 16) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(93, 157) Me.Panel1.TabIndex = 0 ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(8, 16) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(72, 16) Me.Label1.TabIndex = 4 Me.Label1.Text = "Fokus" ' 'optTeam ' Me.optTeam.Location = New System.Drawing.Point(8, 58) Me.optTeam.Name = "optTeam" Me.optTeam.Size = New System.Drawing.Size(72, 16) Me.optTeam.TabIndex = 3 Me.optTeam.Tag = "" Me.optTeam.Text = "Team" ' 'optMitarbeiter_Team ' Me.optMitarbeiter_Team.Checked = True Me.optMitarbeiter_Team.Location = New System.Drawing.Point(8, 35) Me.optMitarbeiter_Team.Name = "optMitarbeiter_Team" Me.optMitarbeiter_Team.Size = New System.Drawing.Size(78, 16) Me.optMitarbeiter_Team.TabIndex = 2 Me.optMitarbeiter_Team.TabStop = True Me.optMitarbeiter_Team.Text = "Mitarbeiter" ' 'BtnConnect ' Me.BtnConnect.Location = New System.Drawing.Point(8, 92) Me.BtnConnect.Name = "BtnConnect" Me.BtnConnect.Size = New System.Drawing.Size(75, 23) Me.BtnConnect.TabIndex = 1 Me.BtnConnect.Text = "< &Verbinden" ' 'Splitter2 ' Me.Splitter2.Location = New System.Drawing.Point(392, 0) Me.Splitter2.Name = "Splitter2" Me.Splitter2.Size = New System.Drawing.Size(8, 176) Me.Splitter2.TabIndex = 9 Me.Splitter2.TabStop = False ' 'Splitter3 ' Me.Splitter3.Dock = System.Windows.Forms.DockStyle.Top Me.Splitter3.Location = New System.Drawing.Point(0, 339) Me.Splitter3.Name = "Splitter3" Me.Splitter3.Size = New System.Drawing.Size(760, 8) Me.Splitter3.TabIndex = 15 Me.Splitter3.TabStop = False ' 'PanelFunktionen ' Me.PanelFunktionen.Controls.Add(Me.GroupBox4) Me.PanelFunktionen.Controls.Add(Me.Splitter4) Me.PanelFunktionen.Controls.Add(Me.GroupBox3) Me.PanelFunktionen.Dock = System.Windows.Forms.DockStyle.Fill Me.PanelFunktionen.Location = New System.Drawing.Point(0, 347) Me.PanelFunktionen.Name = "PanelFunktionen" Me.PanelFunktionen.Size = New System.Drawing.Size(760, 174) Me.PanelFunktionen.TabIndex = 16 ' 'GroupBox4 ' Me.GroupBox4.Controls.Add(Me.TBRight_Funktion) Me.GroupBox4.Controls.Add(Me.Panel4) Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Fill Me.GroupBox4.Location = New System.Drawing.Point(400, 0) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(360, 174) Me.GroupBox4.TabIndex = 2 Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Funktionen" ' 'TBRight_Funktion ' Me.TBRight_Funktion.AllowUpdate = False Me.TBRight_Funktion.AlternatingRows = True Me.TBRight_Funktion.BackColor = System.Drawing.Color.Gray Me.TBRight_Funktion.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored Me.TBRight_Funktion.Dock = System.Windows.Forms.DockStyle.Fill Me.TBRight_Funktion.FilterBar = True Me.TBRight_Funktion.GroupByCaption = "Drag a column header here to group by that column" Me.TBRight_Funktion.Images.Add(CType(resources.GetObject("TBRight_Funktion.Images"), System.Drawing.Image)) Me.TBRight_Funktion.Location = New System.Drawing.Point(96, 16) Me.TBRight_Funktion.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder Me.TBRight_Funktion.Name = "TBRight_Funktion" Me.TBRight_Funktion.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.TBRight_Funktion.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.TBRight_Funktion.PreviewInfo.ZoomFactor = 75.0R Me.TBRight_Funktion.PrintInfo.PageSettings = CType(resources.GetObject("TBRight_Funktion.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.TBRight_Funktion.Size = New System.Drawing.Size(261, 155) Me.TBRight_Funktion.TabIndex = 7 Me.TBRight_Funktion.Text = "C1TrueDBGrid1" Me.TBRight_Funktion.PropBag = resources.GetString("TBRight_Funktion.PropBag") ' 'Panel4 ' Me.Panel4.Controls.Add(Me.Label2) Me.Panel4.Controls.Add(Me.optFunktion) Me.Panel4.Controls.Add(Me.optMitarbeiter_Funktion) Me.Panel4.Controls.Add(Me.BtnConnectFnk) Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left Me.Panel4.Location = New System.Drawing.Point(3, 16) Me.Panel4.Name = "Panel4" Me.Panel4.Size = New System.Drawing.Size(93, 155) Me.Panel4.TabIndex = 1 ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(7, 15) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(72, 16) Me.Label2.TabIndex = 7 Me.Label2.Text = "Fokus" ' 'optFunktion ' Me.optFunktion.Location = New System.Drawing.Point(7, 57) Me.optFunktion.Name = "optFunktion" Me.optFunktion.Size = New System.Drawing.Size(72, 16) Me.optFunktion.TabIndex = 6 Me.optFunktion.Tag = "" Me.optFunktion.Text = "Funktion" ' 'optMitarbeiter_Funktion ' Me.optMitarbeiter_Funktion.Checked = True Me.optMitarbeiter_Funktion.Location = New System.Drawing.Point(7, 35) Me.optMitarbeiter_Funktion.Name = "optMitarbeiter_Funktion" Me.optMitarbeiter_Funktion.Size = New System.Drawing.Size(78, 16) Me.optMitarbeiter_Funktion.TabIndex = 5 Me.optMitarbeiter_Funktion.TabStop = True Me.optMitarbeiter_Funktion.Text = "Mitarbeiter" ' 'BtnConnectFnk ' Me.BtnConnectFnk.Location = New System.Drawing.Point(8, 92) Me.BtnConnectFnk.Name = "BtnConnectFnk" Me.BtnConnectFnk.Size = New System.Drawing.Size(75, 23) Me.BtnConnectFnk.TabIndex = 1 Me.BtnConnectFnk.Text = "< &Verbinden" ' 'Splitter4 ' Me.Splitter4.Location = New System.Drawing.Point(392, 0) Me.Splitter4.Name = "Splitter4" Me.Splitter4.Size = New System.Drawing.Size(8, 174) Me.Splitter4.TabIndex = 1 Me.Splitter4.TabStop = False ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.TBFunktion) Me.GroupBox3.Controls.Add(Me.Panel3) Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Left Me.GroupBox3.Location = New System.Drawing.Point(0, 0) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(392, 174) Me.GroupBox3.TabIndex = 0 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Funktions - Zuweisung" ' 'TBFunktion ' Me.TBFunktion.AlternatingRows = True Me.TBFunktion.BackColor = System.Drawing.Color.Gray Me.TBFunktion.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored Me.TBFunktion.FilterBar = True Me.TBFunktion.GroupByCaption = "Drag a column header here to group by that column" Me.TBFunktion.Images.Add(CType(resources.GetObject("TBFunktion.Images"), System.Drawing.Image)) Me.TBFunktion.Location = New System.Drawing.Point(43, 16) Me.TBFunktion.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder Me.TBFunktion.Name = "TBFunktion" Me.TBFunktion.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.TBFunktion.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.TBFunktion.PreviewInfo.ZoomFactor = 75.0R Me.TBFunktion.PrintInfo.PageSettings = CType(resources.GetObject("TBFunktion.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.TBFunktion.Size = New System.Drawing.Size(157, 158) Me.TBFunktion.TabIndex = 8 Me.TBFunktion.Text = "C1TrueDBGrid1" Me.TBFunktion.PropBag = resources.GetString("TBFunktion.PropBag") ' 'Panel3 ' Me.Panel3.Controls.Add(Me.btnSaveFunktionmitarbeiter) Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left Me.Panel3.Location = New System.Drawing.Point(3, 16) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(40, 155) Me.Panel3.TabIndex = 0 ' 'btnSaveFunktionmitarbeiter ' Me.btnSaveFunktionmitarbeiter.Image = CType(resources.GetObject("btnSaveFunktionmitarbeiter.Image"), System.Drawing.Image) Me.btnSaveFunktionmitarbeiter.Location = New System.Drawing.Point(8, 8) Me.btnSaveFunktionmitarbeiter.Name = "btnSaveFunktionmitarbeiter" Me.btnSaveFunktionmitarbeiter.Size = New System.Drawing.Size(24, 23) Me.btnSaveFunktionmitarbeiter.TabIndex = 4 ' 'DaRight_Funktion ' Me.DaRight_Funktion.SelectCommand = Me.SqlSelectCommand5 Me.DaRight_Funktion.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "pv_funktionsgruppe_select", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("zugehoerigkeit", "zugehoerigkeit"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("funktionszuweisung", "funktionszuweisung"), New System.Data.Common.DataColumnMapping("barcodeetiketten", "barcodeetiketten"), New System.Data.Common.DataColumnMapping("edokapartner", "edokapartner")})}) ' 'SqlSelectCommand5 ' Me.SqlSelectCommand5.CommandText = "[pv_funktionsgruppe_select]" Me.SqlSelectCommand5.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand5.Connection = Me.SqlConnection1 Me.SqlSelectCommand5.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'DsRight_Funktion ' Me.DsRight_Funktion.DataSetName = "NewDataSet" ' 'dsFunltion ' Me.dsFunltion.DataSetName = "NewDataSet" ' 'DaFunktion ' Me.DaFunktion.DeleteCommand = Me.SqlDeleteCommand5 Me.DaFunktion.InsertCommand = Me.SqlInsertCommand5 Me.DaFunktion.SelectCommand = Me.SqlSelectCommand6 Me.DaFunktion.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "mitarbeiter_funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("mitarbeiter_funktionsgruppenr", "mitarbeiter_funktionsgruppenr"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})}) Me.DaFunktion.UpdateCommand = Me.SqlUpdateCommand5 ' 'SqlDeleteCommand5 ' Me.SqlDeleteCommand5.CommandText = "[pv_mitarbeiter_funktionsgruppe_delete]" Me.SqlDeleteCommand5.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand5.Connection = Me.SqlConnection1 Me.SqlDeleteCommand5.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiter_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiter_funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlInsertCommand5 ' Me.SqlInsertCommand5.CommandText = "[pv_mitarbeiter_funktionsgruppe_insert]" Me.SqlInsertCommand5.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand5.Connection = Me.SqlConnection1 Me.SqlInsertCommand5.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mitarbeiter_funktionsgruppenr", System.Data.SqlDbType.Int, 4, "mitarbeiter_funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer")}) ' 'SqlSelectCommand6 ' Me.SqlSelectCommand6.CommandText = "[sp_mitarbeiterfunktion_select]" Me.SqlSelectCommand6.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand6.Connection = Me.SqlConnection1 Me.SqlSelectCommand6.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlUpdateCommand5 ' Me.SqlUpdateCommand5.CommandText = "[pv_mitarbeiter_funktionsgruppe_update]" Me.SqlUpdateCommand5.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand5.Connection = Me.SqlConnection1 Me.SqlUpdateCommand5.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mitarbeiter_funktionsgruppenr", System.Data.SqlDbType.Int, 4, "mitarbeiter_funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiter_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiter_funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing)}) ' 'drpKlassifizierung ' Me.drpKlassifizierung.AllowColMove = True Me.drpKlassifizierung.AllowColSelect = True Me.drpKlassifizierung.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows Me.drpKlassifizierung.AlternatingRows = False Me.drpKlassifizierung.CaptionStyle = Style9 Me.drpKlassifizierung.ColumnCaptionHeight = 17 Me.drpKlassifizierung.ColumnFooterHeight = 17 Me.drpKlassifizierung.EvenRowStyle = Style10 Me.drpKlassifizierung.FetchRowStyles = False Me.drpKlassifizierung.FooterStyle = Style11 Me.drpKlassifizierung.HeadingStyle = Style12 Me.drpKlassifizierung.HighLightRowStyle = Style13 Me.drpKlassifizierung.Images.Add(CType(resources.GetObject("drpKlassifizierung.Images"), System.Drawing.Image)) Me.drpKlassifizierung.Location = New System.Drawing.Point(80, 40) Me.drpKlassifizierung.Name = "drpKlassifizierung" Me.drpKlassifizierung.OddRowStyle = Style14 Me.drpKlassifizierung.RecordSelectorStyle = Style15 Me.drpKlassifizierung.RowDivider.Color = System.Drawing.Color.DarkGray Me.drpKlassifizierung.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single] Me.drpKlassifizierung.RowSubDividerColor = System.Drawing.Color.DarkGray Me.drpKlassifizierung.ScrollTips = False Me.drpKlassifizierung.Size = New System.Drawing.Size(232, 216) Me.drpKlassifizierung.Style = Style16 Me.drpKlassifizierung.TabIndex = 17 Me.drpKlassifizierung.Text = "C1TrueDBDropdown2" Me.drpKlassifizierung.Visible = False Me.drpKlassifizierung.PropBag = resources.GetString("drpKlassifizierung.PropBag") ' 'Timer1 ' ' 'frmDomainMitarbeiter ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(760, 521) Me.Controls.Add(Me.drpKlassifizierung) Me.Controls.Add(Me.PanelFunktionen) Me.Controls.Add(Me.Splitter3) Me.Controls.Add(Me.PanelTeam) Me.Controls.Add(Me.C1TrueDBDropdown1) Me.Controls.Add(Me.Splitter1) Me.Controls.Add(Me.DomainList) Me.Controls.Add(Me.ToolBar1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Menu = Me.MainMenu1 Me.Name = "frmDomainMitarbeiter" Me.ShowInTaskbar = False Me.Text = "frmDomainMitarbeiter" Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.GroupBox1.ResumeLayout(False) CType(Me.TBTeam, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel2.ResumeLayout(False) CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DsTeam, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DomainList, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit() Me.PanelTeam.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) CType(Me.TBRight_Team, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.PanelFunktionen.ResumeLayout(False) Me.GroupBox4.ResumeLayout(False) CType(Me.TBRight_Funktion, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel4.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False) CType(Me.TBFunktion, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel3.ResumeLayout(False) CType(Me.DsRight_Funktion, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dsFunltion, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.drpKlassifizierung, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region " Deklarationen " Dim m_TableName As String Dim m_TBNameRight_Funktion As String Dim m_Eintragnr As Long Dim m_Inaktive As Boolean Dim m_Eintrag As String Dim selectedrow As Integer Dim m_TransferKey As Long Dim m_ToSelect As Boolean Dim m_LastMAID As Integer Dim m_NewDataRow As Boolean = False Private m_LastRow As Integer Private m_FunctionCount As Integer Private m_TeamCount As Integer Private m_Klassifizierung As Integer Private m_bAddTeam As Boolean = True Private m_bAddFunktion As Boolean = True Private m_dtKlassifizierung As DataTable Public Enum EnumValidierung Team_Funktion = 0 Team = 1 Funktion = 2 End Enum Public Enum EnumDatentyp BBOOLEAN = 0 LLONG = 1 DDATUM = 2 IINTEGER = 3 SSINGLE = 4 SSTRING = 5 DDOUBLE = 6 End Enum Public Enum enumDatamode Neu = 0 Bearbeiten = 1 End Enum Private m_Datamode As enumDatamode = enumDatamode.Bearbeiten #End Region #Region " Eigenschaften " Property Eintragnr() As Long Get Return m_Eintragnr End Get Set(ByVal Value As Long) m_Eintragnr = Value End Set End Property Property TableName() As String Get Return m_TableName End Get Set(ByVal Value As String) m_TableName = Value End Set End Property Property TBNameRight_Funktion() As String Get Return m_TBNameRight_Funktion End Get Set(ByVal Value As String) m_TBNameRight_Funktion = Value End Set End Property Property Inaktive() As Boolean Get Return m_Inaktive End Get Set(ByVal Value As Boolean) m_Inaktive = Value End Set End Property Property Eintrag() As String Get Return m_Eintrag End Get Set(ByVal Value As String) m_Eintrag = Value End Set End Property Property TransferKey() As Long Get Return m_TransferKey End Get Set(ByVal Value As Long) m_TransferKey = Value End Set End Property Property ToSelect() As Boolean Get Return m_ToSelect End Get Set(ByVal Value As Boolean) m_ToSelect = Value End Set End Property #End Region #Region " Formular Funktionen " Private Sub frmDomainEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = Me.Eintrag Dim i As Integer TBTeam.Dock = DockStyle.Fill TBFunktion.Dock = DockStyle.Fill Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.SuspendLayout() Me.TableName = "mitarbeiter" Dim dbconn As New EDOKA.DB_Connection() Me.SqlConnection2.ConnectionString = Globals.sConnectionString Me.SqlConnection3.ConnectionString = Globals.sConnectionString Me.SqlConnection4.ConnectionString = Globals.sConnectionString Me.SqlConnection1.ConnectionString = Globals.sConnectionString Me.SqlConnection5.ConnectionString = Globals.sConnectionString Me.SqlConnection6.ConnectionString = Globals.sConnectionString Me.SqlConnection1.Open() Me.GroupBox1.Text = Globals.MyTxt.gettext(7016) 'Team-Zuordnung Me.GroupBox2.Text = Globals.MyTxt.gettext(7017) 'Team Me.GroupBox3.Text = Globals.MyTxt.gettext(7020) 'Funktions-Zuordnung Me.GroupBox4.Text = Globals.MyTxt.gettext(7015) 'Funktion ' Nur für den aktuell gewählten Mandanten die Daten auslesen Me.SqlDataAdapter1.SelectCommand.Parameters.Clear() Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr) Me.SqlDataAdapter1.Fill(Me.DataSet1) Me.DomainList.Enabled = False Me.DomainList.DataSource = Me.DataSet1 Me.DomainList.DataMember = Me.TableName SpaltenTitel_Aktualisieren(1, "mitarbeiter", Me.DataSet1) Me.DomainList.Enabled = True FillDropDown() 'Team Mitarbeiter Zuordnung ' Nur für den aktuell gewählten Mandanten die Daten auslesen Me.SqlDataAdapter2.SelectCommand.Parameters.Clear() Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr) Me.SqlDataAdapter2.Fill(Me.DataSet2) Me.TBRight_Team.Enabled = False Me.TBRight_Team.DataSource = Me.DataSet2 Me.TBRight_Team.DataMember = "team" SpaltenTitel_Aktualisieren(3, "team", Me.DataSet2) Teammitarbeiter_refresh() SpaltenTitel_Aktualisieren(2, "teammitarbeiter", Me.DsTeam) ShowControlTeam() Me.TBRight_Team.Enabled = True 'Funktion Mitarbeiter Zuordnung Me.DaRight_Funktion.SelectCommand.Parameters.Clear() Me.DaRight_Funktion.SelectCommand.Parameters.Add("@mandantnr", Globals.MandantNr) Me.TBNameRight_Funktion = "funktionsgruppe" Me.DaRight_Funktion.Fill(Me.DsRight_Funktion, Me.TBNameRight_Funktion) Me.TBRight_Funktion.Enabled = False Me.TBRight_Funktion.DataSource = Me.DsRight_Funktion Me.TBRight_Funktion.DataMember = Me.TBNameRight_Funktion SpaltenTitel_Aktualisieren(4, Me.TBNameRight_Funktion, Me.DsRight_Funktion) Funktionmitarbeiter_refresh() SpaltenTitel_Aktualisieren(5, "mitarbeiterfunktion", Me.dsFunltion) ShowControlFunktion() Me.TBRight_Funktion.Enabled = True 'funktion ' Nur für den aktuell gewählten Mandanten die Daten auslesen Me.SqlDataAdapter4.SelectCommand.Parameters.Clear() Me.SqlDataAdapter4.SelectCommand.Parameters.Add("@mandantnr", Globals.MandantNr) Me.SqlDataAdapter4.Fill(Me.DataSet4) Me.C1TrueDBDropdown1.DataSource = Me.DataSet4 Me.C1TrueDBDropdown1.DataMember = "funktion" Me.C1TrueDBDropdown1.Columns(0).Caption = MyMsg.Get_Meldungstext(7014) Me.C1TrueDBDropdown1.Columns(1).Caption = MyMsg.Get_Meldungstext(7015) Me.C1TrueDBDropdown1.DisplayColumns(0).Width = 20 Me.C1TrueDBDropdown1.DisplayColumns(1).Width = 150 Me.DomainList.Columns("funktionnr").DropDown = Me.C1TrueDBDropdown1 Me.DomainList.Columns("partnernr").DefaultValue = 0 Me.DomainList.Columns("Telefon").DefaultValue = "+41 71" Me.DomainList.Columns("Fax").DefaultValue = "+41 71" Me.DomainList.Columns("showtip").DefaultValue = True Me.DomainList.Columns("name").DefaultValue = "" Me.DomainList.Columns("vorname").DefaultValue = "" Me.DomainList.Columns("email").DefaultValue = "" Me.DomainList.Columns("unterschrift_text").DefaultValue = "" Me.DomainList.Columns("fuermandant").DefaultValue = Globals.MandantNr Me.DomainList.Columns("sprache").DefaultValue = Globals.Sprache Me.DomainList.Columns("Mailempfang").DefaultValue = 0 Me.DomainList.Columns("EdokaMesasge").DefaultValue = 1 Me.DomainList.Columns("MailDokumentrueckgang").DefaultValue = 1 Me.DomainList.Columns("klassifizierung").DefaultValue = 1 Me.DomainList.Columns("edoka_mail").DefaultValue = 1 Me.DomainList.Columns("journalisierung").DefaultValue = 0 Me.DomainList.ScrollTips = True Me.TBTeam.ScrollTips = True Me.TBRight_Team.ScrollTips = True Me.ResumeLayout() 'Rel 3.3 '24.11.2004 / BUD Try m_LastRow = Me.DomainList.Row m_LastMAID = Int(Me.DomainList.Columns(0).Value) Catch End Try End Sub Public Sub Formload(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.SuspendLayout() Dim ds As New edokadb.clsSysadminfunktion() Try ds.cpMainConnectionProvider = conn ds.iSysadminfnktnr = New SqlInt32(CType(m_Eintragnr, Int32)) ds.SelectOne() If ds.iFleft.Value <> 0 Then Me.Left = ds.iFleft.Value If ds.iFtop.Value <> 0 Then Me.Top = ds.iFtop.Value If ds.iFwidth.Value <> 0 Then Me.Width = ds.iFwidth.Value If ds.iFheight.Value <> 0 Then Me.Height = ds.iFheight.Value Me.MenuItem1.Text = Me.Eintrag Catch 'MsgBox("Error Resizing Form") Finally End Try ds.Dispose() Me.ResumeLayout() Me.WindowState = System.Windows.Forms.FormWindowState.Normal Me.WindowState = System.Windows.Forms.FormWindowState.Maximized End Sub Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing Dim col_Message As New Collection() Dim iCnt As Integer Dim sMessage As String '=============================================================================== 'Validierung der Teamzuordnung und Funktionszuordnung '=============================================================================== If Me.DomainList.Columns("mitarbeiternr").Text <> "" Then m_FunctionCount = GetCountIsActive(Me.dsFunltion) m_TeamCount = GetCountIsActive(Me.DsTeam) 'm_FunctionCount = Me.TBFunktion.Splits(0).Rows.Count() 'm_TeamCount = Me.TBTeam.Splits(0).Rows.Count() If Not validateZuordnung(col_Message, m_LastRow, EnumValidierung.Team_Funktion) Then For iCnt = 1 To col_Message.Count sMessage = sMessage & col_Message.Item(iCnt) & vbCrLf Next If BtnConnect.Enabled = False Then sMessage = Globals.MyMsg.Get_Meldungstext(130) & vbCrLf & sMessage 'daten sind noch nicht gespeichert sMessage = sMessage & vbCrLf & Globals.MyMsg.Get_Meldungstext(133) Select Case MsgBox(sMessage, MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, "Mitarbeiter") Case MsgBoxResult.Yes e.Cancel = True Exit Sub Case MsgBoxResult.No Exit Sub End Select Else 'daten sind gespeichert Aber noch keine Zuordnung MsgBox(sMessage, MsgBoxStyle.Exclamation, "Mitarbeiter") e.Cancel = True End If Exit Sub End If End If Dim msg As MsgBoxResult If Me.DataSet1.HasChanges Or Me.DsTeam.HasChanges Then msg = Globals.MyMsg.Show_MessageYesNoCancel(2) If msg = MsgBoxResult.No Then e.Cancel = False End If If msg = MsgBoxResult.Yes Then If Save_mitarbeiter_Data() And Save_Data() Then e.Cancel = False Else e.Cancel = True End If End If If msg = MsgBoxResult.Cancel Then e.Cancel = True Try Globals.WinPos.Set_Position(Me) Catch End Try End Sub Private Sub frmDomainMitarbeiter_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Dim iOffset As Integer iOffset = Me.ToolBar1.Height - Me.Splitter1.Height - Me.Splitter3.Height DomainList.Height = (Me.ClientSize.Height - iOffset) / 3 Me.PanelTeam.Height = (Me.ClientSize.Height - iOffset) / 3 End Sub Private Sub DomainList_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles DomainList.FetchScrollTips Try Select Case e.ScrollBar Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.DomainList.Splits(0).Rows.Count) End Select e.TipStyle.ForeColor = Color.Blue Catch End Try End Sub Private Sub TBTeam_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBTeam.FetchScrollTips Try Select Case e.ScrollBar Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBTeam.Splits(0).Rows.Count) End Select e.TipStyle.ForeColor = Color.Blue Catch End Try End Sub Private Sub TBRight_Team_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBRight_Team.FetchScrollTips Try Select Case e.ScrollBar Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBRight_Team.Splits(0).Rows.Count) End Select e.TipStyle.ForeColor = Color.Blue Catch End Try End Sub Private Sub DomainList_FetchCellTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles DomainList.FetchCellTips Try Dim ts As New EDOKA.Tabellenspalte() ts.Tabelle = Me.TableName ts.Feld = Me.DomainList.Columns(e.ColIndex).DataField ts.getspalte() e.CellTip = ts.TipText ts = Nothing Catch End Try End Sub Private Sub TBTeam_FetchCellTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBTeam.FetchCellTips Try Dim ts As New EDOKA.Tabellenspalte() ts.Tabelle = "teammitarbeiter" ts.Feld = Me.TBTeam.Columns(e.ColIndex).DataField ts.getspalte() e.CellTip = ts.TipText ts = Nothing Catch End Try End Sub Private Sub C1TrueDBGrid1_FetchCellTips3(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Try Dim ts As New EDOKA.Tabellenspalte() ts.Tabelle = "team" ts.Feld = Me.TBRight_Team.Columns(e.ColIndex).DataField ts.getspalte() e.CellTip = ts.TipText ts = Nothing Catch End Try End Sub #End Region #Region " Menu Funktionen " Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Dim col_Message As New Collection() Dim iCnt As Integer Dim sMessage As String Select Case ToolBar1.Buttons.IndexOf(e.Button) Case 0 '****************************************** 'close button '****************************************** Close() Case 1 '****************************************** 'Speichern '****************************************** Me.DomainList.Col = 1 If Not validateMitarbeiter(col_Message, m_LastRow) Then For iCnt = 1 To col_Message.Count sMessage = sMessage & col_Message.Item(iCnt) & vbCrLf Next MsgBox(sMessage, MsgBoxStyle.Exclamation, "Mitarbeiter") Me.DomainList.AllowFilter = False Exit Sub Else End If Save_Data() Me.ActiveControl = Me.ToolBar1 Save_mitarbeiter_Data() Save_DataFunktion() Me.BtnConnect.Enabled = True Me.BtnConnectFnk.Enabled = True optMitarbeiter_Team.Enabled = True optTeam.Enabled = True m_NewDataRow = False optMitarbeiter_Funktion.Enabled = True optFunktion.Enabled = True If Not validateZuordnung(col_Message, m_LastRow, EnumValidierung.Team_Funktion) Then Me.DomainList.AllowFilter = False Else ' End If Case 2 '****************************************** 'Neuer Mitarbeiter erfassen '****************************************** 'Prüfen ob bereits gespeichert If m_NewDataRow = True Then MsgBox(MyMsg.Get_Meldungstext(130), MsgBoxStyle.Information) Exit Select End If m_FunctionCount = GetCountIsActive(Me.dsFunltion) m_TeamCount = GetCountIsActive(Me.DsTeam) If Not validateZuordnung(col_Message, m_LastRow, EnumValidierung.Team_Funktion) Then For iCnt = 1 To col_Message.Count sMessage = sMessage & col_Message.Item(iCnt) & vbCrLf Next If BtnConnect.Enabled = False Then sMessage = Globals.MyMsg.Get_Meldungstext(130) & vbCrLf & sMessage 'daten sind noch nicht gespeichert sMessage = sMessage & vbCrLf & Globals.MyMsg.Get_Meldungstext(133) Select Case MsgBox(sMessage, MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, "Mitarbeiter") Case MsgBoxResult.Yes Exit Sub Case MsgBoxResult.No Exit Sub End Select Else 'daten sind gespeichert Aber noch keine Zuordnung MsgBox(sMessage, MsgBoxStyle.Exclamation, "Mitarbeiter") End If Exit Sub End If m_NewDataRow = True Dim i As Integer Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Long '''''KCL 22042008 Filter ausgebaut, da sich C1 nicht mehr gleich verhaltet!!! 'Me.DomainList.AllowFilter = True 'Me.DomainList.FilterActive = False 'For i = 0 To Me.DomainList.Columns.Count - 1 ' Me.DomainList.Columns(i).FilterText = "" ' If Me.DomainList.Columns(i).DataField = "aktiv" Then ' Me.DomainList.Columns(i).FilterText = True ' End If 'Next 'Me.DomainList.FilterActive = True dbkey.cpMainConnectionProvider = conn key = dbkey.get_dbkey(TableName) dbkey.Dispose() 'Me.DomainList.Columns(0).FilterText = key Me.DomainList.Focus() i = Me.DomainList.Splits(0).Rows.Count + 1 Try With DomainList .AllowAddNew = True .MoveLast() .Row = Me.DomainList.Row + 1 .Select() .Columns(0).Value = key .Columns("mandantnr").Value = Globals.MandantNr .AllowAddNew = False End With Catch ex As Exception MsgBox("Caught exception: " & ex.Message) End Try Me.DomainList.Refresh() 'Me.DomainList.Col = 1 Me.DomainList.AllowFilter = True Teammitarbeiter_refresh() Funktionmitarbeiter_refresh() Case Else End Select End Sub Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Close() End Sub #End Region #Region " Kontrol Funktionen " Private Sub DomainList_BeforeRowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles DomainList.BeforeRowColChange If optMitarbeiter_Funktion.Checked = False Then optMitarbeiter_Funktion.Checked = True Funktionmitarbeiter_refresh() ShowControlFunktion() End If If optMitarbeiter_Team.Checked = False Then optMitarbeiter_Team.Checked = True Teammitarbeiter_refresh() ShowControlTeam() End If m_LastRow = DomainList.Row Try m_LastMAID = Me.DomainList.Columns(0).Value Catch ex As Exception End Try Try If Me.DomainList.Columns("Klasse").Value <> "" Then m_Klassifizierung = Me.DomainList.Columns("Klasse").Value Else m_Klassifizierung = 1 End If Catch m_Klassifizierung = Me.DomainList.Columns("Klasse").Value End Try If optMitarbeiter_Funktion.Checked = True Then m_FunctionCount = GetCountIsActive(Me.dsFunltion) End If If optMitarbeiter_Team.Checked = True Then m_TeamCount = GetCountIsActive(Me.DsTeam) End If 'm_FunctionCount = Me.TBFunktion.Splits(0).Rows.Count() 'm_TeamCount = Me.TBTeam.Splits(0).Rows.Count() End Sub Private Sub DomainList_BeforeInsert(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles DomainList.BeforeInsert m_Datamode = enumDatamode.Neu Me.BtnConnect.Enabled = False Me.BtnConnectFnk.Enabled = False optMitarbeiter_Team.Enabled = False optTeam.Enabled = False optMitarbeiter_Funktion.Enabled = False optFunktion.Enabled = False m_bAddTeam = False m_bAddFunktion = False Me.DomainList.AllowFilter = False End Sub Private Sub DomainList_BeforeColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColEditEventArgs) Handles DomainList.BeforeColEdit Me.DomainList.AllowFilter = False End Sub Private Sub DomainList_RowColChange(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles DomainList.RowColChange Dim col_Message As New Collection() Dim iCnt As Integer Dim sMessage As String '=============================================================================== 'Validierung der Teamzuordnung und Funktionszuordnung '=============================================================================== If m_LastRow <> DomainList.Row Then If Me.DomainList.Columns("mitarbeiternr").CellText(m_LastRow) <> "" Then '=============================================================================== 'Validierung der Felder in der Mitarbeitertabelle '=============================================================================== If Not validateMitarbeiter(col_Message, m_LastRow) Then For iCnt = 1 To col_Message.Count sMessage = sMessage & col_Message.Item(iCnt) & vbCrLf Next MsgBox(sMessage, MsgBoxStyle.Exclamation, "Mitarbeiter") Exit Sub End If m_FunctionCount = GetCountIsActive(Me.dsFunltion) m_TeamCount = GetCountIsActive(Me.DsTeam) 'm_Klassifizierung = Me.DomainList.Columns("Klasse").Value If Not validateZuordnung(col_Message, m_LastRow, EnumValidierung.Team_Funktion) Then For iCnt = 1 To col_Message.Count sMessage = sMessage & col_Message.Item(iCnt) & vbCrLf Next If m_Datamode = enumDatamode.Neu Then 'Datensatz wurde noch nicht gespeichert sMessage = Globals.MyMsg.Get_Meldungstext(130) & vbCrLf & sMessage 'Speichern Sie die Mitarbeiterdaten und erstellen Sie folgende Zuordnungen End If MsgBox(sMessage, MsgBoxStyle.Exclamation, "Mitarbeiter") Me.DomainList.Row = m_LastRow End If 'Rel 3.0 '24.11.2004 / BUD m_LastRow = DomainList.Row End If Check_Changes() 'Prüft Aenderungen im Dataset und speichert diese Teammitarbeiter_refresh() Check_Funktion_Changes() Funktionmitarbeiter_refresh() End If Try If Me.DomainList.Columns("Klasse").Value <> "" Then m_Klassifizierung = Me.DomainList.Columns("Klasse").Value Else m_Klassifizierung = 1 End If Catch m_Klassifizierung = Me.DomainList.Columns("Klasse").Value End Try End Sub Private Function CheckTeamFunktion() As Boolean Dim col_Message As New Collection() Dim iCnt As Integer Dim sMessage As String m_FunctionCount = GetCountIsActive(Me.dsFunltion) m_TeamCount = GetCountIsActive(Me.DsTeam) CheckTeamFunktion = True If Not validateZuordnung(col_Message, m_LastRow, EnumValidierung.Team_Funktion) Then For iCnt = 1 To col_Message.Count sMessage = sMessage & col_Message.Item(iCnt) & vbCrLf Next If m_Datamode = enumDatamode.Neu Then 'Datensatz wurde noch nicht gespeichert sMessage = Globals.MyMsg.Get_Meldungstext(130) & vbCrLf & sMessage 'Speichern Sie die Mitarbeiterdaten und erstellen Sie folgende Zuordnungen End If MsgBox(sMessage, MsgBoxStyle.Exclamation, "Mitarbeiter") Me.DomainList.Row = m_LastRow CheckTeamFunktion = False End If End Function '** 'Gibt die Anzahl Datensätze aus, welche im DataSet in der Spalte Aktiv true sind. '@param dsValidate DataSet welches geprüft werden soll '@author Daniel Burren '@version 26.11.2004 Private Function GetCountIsActive(ByVal dsValidate As DataSet) As Long Dim dview As New DataView(dsValidate.Tables(0), "aktiv=True", "aktiv", DataViewRowState.CurrentRows) GetCountIsActive = dview.Count End Function Private Sub DomainList_AfterInsert(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.AfterInsert Dim i As Integer 'Defaulwerte erstellt_am, mutiert_am, mutierer und aktiv setzen Try For i = 0 To DomainList.Columns.Count - 1 If Me.DomainList.Columns(i).DataField = "aktiv" Then Me.DomainList.Columns(i).Value = 1 End If If Me.DomainList.Columns(i).DataField = "erstellt_am" Then Me.DomainList.Columns(i).Value = Now End If If m_Datamode = enumDatamode.Bearbeiten Then If Me.DomainList.Columns(i).DataField = "mutiert_am" Then Me.DomainList.Columns(i).Value = Now End If If Me.DomainList.Columns(i).DataField = "mutierer" Then Me.DomainList.Columns(i).Value = Globals.MitarbeiterNr End If End If Next Catch End Try End Sub Private Sub domainlist_AfterColUpdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DomainList.AfterColUpdate 'Aktualisieren von Mutierer und Mutiert_am Dim i As Integer Try If Me.DomainList.Columns("vorname").Text <> "" And Me.DomainList.Columns("name").Text <> "" Then If Me.DomainList.Columns("email").Text = "" Then Me.DomainList.Columns("email").Text = LCase(Me.DomainList.Columns("vorname").Value + "." + Me.DomainList.Columns("name").Value + "@tkb.ch") End If If Me.DomainList.Columns("unterschrift_text").Text = "" Then Me.DomainList.Columns("unterschrift_text").Text = Me.DomainList.Columns("vorname").Value + " " + Me.DomainList.Columns("name").Value End If If Me.DomainList.Columns("kurzzeichen").Text = "" Then Me.DomainList.Columns("kurzzeichen").Text = UCase(Microsoft.VisualBasic.Left(Me.DomainList.Columns("vorname").Value, 1) + Microsoft.VisualBasic.Left(Me.DomainList.Columns("name").Value, 1) + Microsoft.VisualBasic.Right(Me.DomainList.Columns("name").Value, 1)) End If End If Me.DomainList.Columns("mutiert_am").Value = Now Me.DomainList.Columns("mutierer").Value = Globals.MitarbeiterNr 'For i = 0 To Me.DomainList.Columns.Count - 1 ' If Me.DomainList.Columns(i).DataField = "mutiert_am" Then Me.DomainList.Columns(i).Value = Now ' If Me.DomainList.Columns(i).DataField = "mutierer" Then Me.DomkinList.Columns(i).Value = Globals.MitarbeiterNr 'Next 'neuer DB-Key auslösen, sofern kein Key vorhanden ist If Me.DomainList.Columns(0).Value Is DBNull.Value Then Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Long dbkey.cpMainConnectionProvider = conn key = dbkey.get_dbkey(TableName) Me.DomainList.Columns(0).Value = key For i = 0 To Me.DomainList.Columns.Count - 1 If Me.DomainList.Columns(i).DataField = "mandantnr" Then Me.DomainList.Columns(i).Value = Globals.MandantNr End If Next dbkey.Dispose() End If Catch ex As Exception 'MsgBox(ex.Message) End Try End Sub Private Sub DomainList_FilterChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles DomainList.FilterChange Try Me.DomainList.AllowFilter = True If Me.DomainList.AllowFilter = False Then MsgBox(MyMsg.Get_Meldungstext(264), MsgBoxStyle.Information) End If If Me.DomainList.Splits(0).DisplayColumns.Count <> 0 Then If m_LastRow <> DomainList.Row Then Check_Changes() Teammitarbeiter_refresh() Check_Funktion_Changes() Funktionmitarbeiter_refresh() End If End If 'Me.DomainList.Refresh() Me.Timer1.Start() Catch 'MsgBox(Err.Description) End Try End Sub Private Sub optMitarbeiter_Team_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optMitarbeiter_Team.Click Teammitarbeiter_refresh() ShowControlTeam() End Sub Private Sub optTeam_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optTeam.Click 'If CheckTeamFunktion() = False Then ' Me.optMitarbeiter_Team.Checked = True ' Exit Sub 'End If Teammitarbeiter_refresh() ShowControlTeam() End Sub Private Sub optFunktion_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optFunktion.Click 'If CheckTeamFunktion() = False Then ' Me.optMitarbeiter_Funktion.Checked = True ' Exit Sub 'End If Funktionmitarbeiter_refresh() ShowControlFunktion() End Sub Private Sub optMitarbeiter_Funktion_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optMitarbeiter_Funktion.Click Funktionmitarbeiter_refresh() ShowControlFunktion() End Sub Private Sub TBRight_Team_RowColChange(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight_Team.RowColChange If Me.optTeam.Checked Then Check_Changes() Teammitarbeiter_refresh() End If End Sub Private Sub TBRight_Funktion_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight_Funktion.RowColChange If Me.optFunktion.Checked Then 'Check_Funktion_Changes() Funktionmitarbeiter_refresh() End If End Sub Private Sub TBFunktion_BeforeUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles TBFunktion.BeforeUpdate 'Dim col_Message As New Collection() 'Dim iCnt As Integer 'Dim sMessage As String ''=============================================================================== ''Validierung der Funktionzuordnung ''=============================================================================== 'If Me.DomainList.Columns("mitarbeiternr").Text <> "" Then ' If Not validateZuordnung(col_Message, Me.DomainList.Bookmark, EnumValidierung.Funktion) Then ' For iCnt = 1 To col_Message.Count ' sMessage = sMessage & col_Message.Item(iCnt) & vbCrLf ' Next ' MsgBox(sMessage, MsgBoxStyle.Exclamation, "Funktion") ' e.Cancel = True ' End If 'End If End Sub Private Sub TBFunktion_AfterUpdate(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBFunktion.AfterUpdate m_bAddFunktion = True End Sub Private Sub TBTeam_BeforeUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles TBTeam.BeforeUpdate 'Dim col_Message As New Collection() 'Dim iCnt As Integer 'Dim sMessage As String ''=============================================================================== ''Validierung der Teamzuordnung ''=============================================================================== 'If Me.DomainList.Columns("mitarbeiternr").Text <> "" Then ' If Not validateZuordnung(col_Message, Me.DomainList.Bookmark, EnumValidierung.Team) Then ' For iCnt = 1 To col_Message.Count ' sMessage = sMessage & col_Message.Item(iCnt) & vbCrLf ' Next ' MsgBox(sMessage, MsgBoxStyle.Exclamation, "Team") ' e.Cancel = True ' Else ' End If 'End If End Sub Private Sub TBTeam_AfterUpdate(ByVal sender As Object, ByVal e As System.EventArgs) Handles TBTeam.AfterUpdate m_bAddTeam = True End Sub Private Sub btnSaveTeammitarbeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveTeammitarbeiter.Click Save_Data() End Sub Private Sub btnSaveFunktionmitarbeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveFunktionmitarbeiter.Click Save_DataFunktion() End Sub Private Sub BtnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click Try Dim vdata As New edokadb.clsTeammitarbeiter() Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Long dbkey.cpMainConnectionProvider = conn key = dbkey.get_dbkey("teammitarbeiter") vdata.cpMainConnectionProvider = conn vdata.iTeammitarbeiternr = New SqlInt32(CType(key, SqlInt32)) Try vdata.iTeamnr = New SqlInt32(CType(Me.TBRight_Team.Columns(0).Value, Int32)) Catch End Try Try vdata.iMitarbeiternr = New SqlInt32(CType(Me.DomainList.Columns(0).Value, Integer)) Catch ex As Exception End Try vdata.bAktiv = New SqlBoolean(CType(True, Boolean)) vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, SqlInt32)) vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) vdata.iAnteil = New SqlInt32(CType(100, Int32)) vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, SqlInt32)) conn.OpenConnection() vdata.Insert() conn.CloseConnection(True) vdata.Dispose() dbkey.Dispose() Me.Teammitarbeiter_refresh() 'm_TeamCount = Me.TBTeam.Splits(0).Rows.Count() m_TeamCount = GetCountIsActive(Me.DsTeam) m_bAddTeam = True Dim col_Message As New Collection() 'If validateZuordnung(col_Message, m_LastRow, EnumValidierung.Team_Funktion) Then Me.DomainList.AllowFilter = validateZuordnung(col_Message, m_LastRow, EnumValidierung.Team_Funktion) 'End If Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub BtnConnectFnk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnectFnk.Click Try Dim vdata As New edokadb.clsMitarbeiter_funktionsgruppe() Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Long dbkey.cpMainConnectionProvider = conn key = dbkey.get_dbkey("mitarbeiter_funktionsgruppe") vdata.cpMainConnectionProvider = conn vdata.iMitarbeiter_funktionsgruppenr = New SqlInt32(CType(key, Int32)) vdata.bAktiv = New SqlBoolean(CType(True, Boolean)) vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32)) vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) vdata.iMitarbeiternr = New SqlInt32(CType(Me.DomainList.Columns(0).Value, Int32)) vdata.iFunktionsgruppenr = New SqlInt32(CType(Me.TBRight_Funktion.Columns(0).Value, Int32)) conn.OpenConnection() vdata.Insert() conn.CloseConnection(True) vdata.Dispose() dbkey.Dispose() Me.Funktionmitarbeiter_refresh() 'm_FunctionCount = Me.TBFunktion.Splits(0).Rows.Count() m_FunctionCount = GetCountIsActive(Me.dsFunltion) m_bAddFunktion = True Dim col_Message As New Collection() 'If validateZuordnung(col_Message, m_LastRow, EnumValidierung.Team_Funktion) Then Me.DomainList.AllowFilter = validateZuordnung(col_Message, m_LastRow, EnumValidierung.Team_Funktion) 'End If Catch MsgBox(Err.Description) End Try End Sub #End Region #Region " Data Funktionen " Private Sub Teammitarbeiter_refresh() Dim iKey As Integer If DomainList.Columns(0).CellText(DomainList.Row) = "" Then iKey = -1 Else iKey = DomainList.Columns(0).CellText(DomainList.Row) End If Me.daTeam.SelectCommand.Parameters.Clear() Me.daTeam.SelectCommand.Parameters.Add("@mandantnr", Globals.MandantNr) If optMitarbeiter_Team.Checked Then 'Mitarbeiter ' Me.daTeam.SelectCommand.Parameters.Add("@Key", Me.DomainList.Columns(0).Value) Me.daTeam.SelectCommand.Parameters.Add("@Key", iKey) Else 'Team If DomainList.Columns(0).CellText(DomainList.Row) = "" Then Me.daTeam.SelectCommand.Parameters.Add("@Key", iKey) Else Me.daTeam.SelectCommand.Parameters.Add("@Key", Me.TBRight_Team.Columns(0).Value) End If End If Me.daTeam.SelectCommand.Parameters.Add("@Fokus", CInt(Math.Abs(Val(optMitarbeiter_Team.Checked)))) Me.DsTeam.Clear() Me.daTeam.Fill(Me.DsTeam) Me.TBTeam.DataSource = Me.DsTeam Me.TBTeam.DataMember = "teammitarbeiter" End Sub Private Sub Funktionmitarbeiter_refresh() Dim iKey As Integer If DomainList.Columns(0).CellText(DomainList.Row) = "" Then iKey = -1 Else iKey = DomainList.Columns(0).CellText(DomainList.Row) End If Me.DaFunktion.SelectCommand.Parameters.Clear() ' Me.DaFunktion.SelectCommand.Parameters.Add("@mandantnr", Globals.MandantNr) If optMitarbeiter_Funktion.Checked Then 'Mitarbeiter Me.DaFunktion.SelectCommand.Parameters.Add("@Key", iKey) Else 'Funktion If DomainList.Columns(0).CellText(DomainList.Row) = "" Then Me.DaFunktion.SelectCommand.Parameters.Add("@Key", iKey) Else Me.DaFunktion.SelectCommand.Parameters.Add("@Key", Me.TBRight_Funktion.Columns(0).Value) End If End If Me.DaFunktion.SelectCommand.Parameters.Add("@Fokus", CInt(Math.Abs(Val(optMitarbeiter_Funktion.Checked)))) Me.dsFunltion.Clear() Me.DaFunktion.Fill(Me.dsFunltion, "funktionmitarbeiter") Me.TBFunktion.DataSource = Me.dsFunltion Me.TBFunktion.DataMember = "funktionmitarbeiter" End Sub Private Sub Check_Changes() Dim msg As MsgBoxResult If Me.DsTeam.HasChanges Then msg = Globals.MyMsg.Show_MessageYesNo(12) If msg = MsgBoxResult.Yes Then Save_Data() End If End If End Sub Private Sub Check_Funktion_Changes() Dim msg As MsgBoxResult If Me.dsFunltion.HasChanges Then msg = Globals.MyMsg.Show_MessageYesNo(131) If msg = MsgBoxResult.Yes Then Save_DataFunktion() End If End If End Sub Private Function check_mitarbeiter_changes() As Boolean Dim msg As MsgBoxResult If Me.DataSet1.HasChanges Then msg = Globals.MyMsg.Show_MessageYesNo(13) If msg = MsgBoxResult.Yes Then If Save_mitarbeiter_Data() = True Then check_mitarbeiter_changes = True Else check_mitarbeiter_changes = False End If End If End Function Private Function Save_Data() As Boolean Save_Data = True Try daTeam.Update(Me.DsTeam) Catch ex As Exception 'MsgBox(ex.Message) MsgBox(Globals.MyMsg.Get_Meldungstext(902)) Save_Data = False End Try End Function Private Function Save_DataFunktion() As Boolean Save_DataFunktion = True Try Me.DaFunktion.Update(Me.dsFunltion, "funktionmitarbeiter") 'DaFunktion.Update(Me.dsFunltion) Catch ex As Exception 'MsgBox(ex.Message) MsgBox(Globals.MyMsg.Get_Meldungstext(902)) Save_DataFunktion = False End Try End Function Private Function Save_mitarbeiter_Data() As Boolean Try Save_mitarbeiter_Data = True SqlDataAdapter1.Update(Me.DataSet1) Update_Mitarbeiterdata() m_Datamode = enumDatamode.Bearbeiten Catch sqlEx As SqlException If InStr(sqlEx.Message, "IX_TGNummer") Then MsgBox(Globals.MyMsg.Get_Meldungstext(904)) End If Save_mitarbeiter_Data = False Catch ex As Exception MsgBox(ex.Message) MsgBox(Globals.MyMsg.Get_Meldungstext(902)) Save_mitarbeiter_Data = False End Try End Function Private Sub FillDropDown() '=============================================================================== 'Spaltenbreite DrpRight '=============================================================================== Dim ds As New DataSet() Dim sqlcmd As New SqlCommand() Dim da As New SqlDataAdapter(sqlcmd) Dim sTranslateTabelname As String Dim sTranslateColumn As String '====================================================================== 'Klassifizierung '====================================================================== sTranslateTabelname = "Klassifizierung" Me.drpKlassifizierung.ListField = "bezeichnung" Me.drpKlassifizierung.DataField = "klassenID" If Not ds.Tables(sTranslateTabelname) Is Nothing Then ds.Tables(sTranslateTabelname).Clear() End If With sqlcmd .CommandType = CommandType.StoredProcedure .CommandText = "sp_Klassifizierung_select" .Connection = SqlConnection1 .Parameters.Add("@mandantnr", Globals.MandantNr) End With Try da.Fill(ds, sTranslateTabelname) drpKlassifizierung.DataSource = ds Me.drpKlassifizierung.ValueTranslate = True Me.drpKlassifizierung.DataSource = ds Me.drpKlassifizierung.DataMember = sTranslateTabelname Me.drpKlassifizierung.DisplayColumns(0).Width = 30 m_dtKlassifizierung = ds.Tables(0) Me.DomainList.Columns("Klassifizierung").DropDown = Me.drpKlassifizierung Me.Cursor = System.Windows.Forms.Cursors.Default Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub Update_Mitarbeiterdata() Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_MitarbeiterProfilFavoriten" scmCmdToExecute.CommandType = CommandType.StoredProcedure Try conn.OpenConnection() scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr)) scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) 'Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally conn.CloseConnection(True) scmCmdToExecute.Dispose() End Try End Sub #Region " Validate Funktionen " Private Function validateMitarbeiter(ByRef Message As Collection, ByVal iRow As Integer) As Boolean Try '=============================================================================== 'Description: Validiert die Dateneingabe des Mitarbeiters 'Input : 'Criteria : 'Output : True wenn die Validierung ok ist ' False wenn die Validierung nicht ok ist 'Erstellt : koe 19.05.2004 'Geaendert : '=============================================================================== Dim iCnt As Integer Dim iFirstErrorCol As Integer = 0 validateMitarbeiter = True '=============================================================================== ' Domliste Feldprüfung '=============================================================================== '============ Name If Me.DomainList.Columns("name").CellText(iRow) = "" Then validateMitarbeiter = False Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(109), Key:="Name") If iFirstErrorCol = 0 Then For iCnt = 0 To Me.DomainList.Columns.Count - 1 If Me.DomainList.Columns(iCnt).DataField = "name" Then iFirstErrorCol = iCnt Exit For End If Next End If End If '============ TGnummer If Me.DomainList.Columns("tgnummer").CellText(iRow) = "" Then validateMitarbeiter = False Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(132), Key:="tgnummer") If iFirstErrorCol = 0 Then For iCnt = 0 To Me.DomainList.Columns.Count - 1 If Me.DomainList.Columns(iCnt).DataField = "tgnummer" Then iFirstErrorCol = iCnt Exit For End If Next End If End If '============ TGnummer Unique If Not CheckUniqueTGNummer(Me.DomainList.Columns("tgnummer").CellText(iRow), Me.DomainList.Columns("mitarbeiternr").CellText(iRow)) Then validateMitarbeiter = False Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(904), Key:="Uniquetgnummer") If iFirstErrorCol = 0 Then For iCnt = 0 To Me.DomainList.Columns.Count - 1 If Me.DomainList.Columns(iCnt).DataField = "tgnummer" Then iFirstErrorCol = iCnt Exit For End If Next End If End If '============ Klasse If Me.DomainList.Columns("klassifizierung").CellText(iRow) = "" Then validateMitarbeiter = False Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(124), Key:="klassifizierung") If iFirstErrorCol = 0 Then For iCnt = 0 To Me.DomainList.Columns.Count - 1 If Me.DomainList.Columns(iCnt).DataField = "klassifizierung" Then iFirstErrorCol = iCnt Exit For End If Next End If End If If iFirstErrorCol > 0 Then Me.DomainList.Row = m_LastRow Me.DomainList.Col = iFirstErrorCol End If Me.DomainList.AllowFilter = validateMitarbeiter Catch ex As Exception End Try End Function Private Function validateZuordnungTeam(ByRef Message As Collection, ByVal iRow_Test As Integer) As Boolean '=============================================================================== ' Zuordnung Team '=============================================================================== Try Dim iCnt As Integer If validateKlassifizierung(m_Klassifizierung, EnumValidierung.Team) Then 'Mitarbeiter muss ein Team haben anhand der Klassifizierung If m_TeamCount < 1 Then Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(128), Key:="ZU_Team") validateZuordnungTeam = False Else With TBTeam For iCnt = 0 To .Splits(0).Rows.Count - 1 If .Columns("Aktiv").CellValue(iCnt) = True Then validateZuordnungTeam = True Exit For Else validateZuordnungTeam = False End If Next If validateZuordnungTeam = False Then Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(134), Key:="ZU_TeamAktiv") End If m_bAddTeam = validateZuordnungTeam End With End If Else 'Mitarbeiter darf kein Team haben anhand der Klassifizierung If m_TeamCount > 0 Then Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(140), Key:="ZU_Team") validateZuordnungTeam = False Else validateZuordnungTeam = True End If End If Catch 'MsgBox(Err.Description) End Try End Function Private Function validateZuordnungFunction(ByRef Message As Collection, ByVal iRow As Integer) As Boolean '=============================================================================== ' Zuordnung Funktionen '=============================================================================== Dim iCnt As Integer 'Dim iaktuelleKlasse As Integer 'iaktuelleKlasse = ConvertToTyp(Me.DomainList.Columns("klassifizierung").CellValue(iRow), EnumDatentyp.IINTEGER) If validateKlassifizierung(m_Klassifizierung, EnumValidierung.Funktion) Then 'Mitarbeiter muss eine Funktion haben anhand der Klassifizierung If m_FunctionCount < 1 Then Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(126), Key:="ZU_Funktion") validateZuordnungFunction = False Else With TBFunktion If ConvertToTyp(Me.DomainList.Columns("klassifizierung").CellValue(iRow), EnumDatentyp.IINTEGER) = 1 Then For iCnt = 0 To .Splits(0).Rows.Count - 1 If .Columns("Aktiv").CellValue(iCnt) = True Then validateZuordnungFunction = True Exit For Else validateZuordnungFunction = False End If Next End If If validateZuordnungFunction = False Then Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(135), Key:="ZU_FunktionAktiv") End If m_bAddFunktion = validateZuordnungFunction End With End If Else 'Mitarbeiter darf keine Funktion haben anhand der Klassifizierung If m_FunctionCount > 0 Then Message.Add(Item:=Globals.MyMsg.Get_Meldungstext(138), Key:="ZU_Funktion") validateZuordnungFunction = False Else validateZuordnungFunction = True End If End If End Function Private Function validateKlassifizierung(ByVal iAktuelleKlasse As Integer, ByVal iTyp As EnumValidierung) As Boolean '=============================================================================== ' Klassifizierung auslesen '=============================================================================== validateKlassifizierung = False Try Dim dview As New DataView(m_dtKlassifizierung, "klassenID=" + Trim(CStr(iAktuelleKlasse)), "klassenID", DataViewRowState.CurrentRows) Select Case iTyp Case EnumValidierung.Funktion validateKlassifizierung = dview.Item(0)("zwingendFunktion") Case EnumValidierung.Team validateKlassifizierung = dview.Item(0)("zwingendTeam") End Select Catch MsgBox("error " & Err.Description) End Try End Function Private Function validateZuordnung(ByRef Message As Collection, ByVal iRow As Integer, Optional ByVal ZuordnungValidate As EnumValidierung = EnumValidierung.Team_Funktion) As Boolean '=============================================================================== 'Description: Validiert die Zuordnung des Team 'Input : 'Criteria : 'Output : True wenn die Validierung ok ist ' False wenn die Validierung nicht ok ist 'Erstellt : koe 19.05.2004 'Geaendert : BUD 07.12.2004 '=============================================================================== Dim iCnt As Integer Dim bZuordnungTeam As Boolean = True Dim bZuordnungFunktion As Boolean = True validateZuordnung = True Dim bAktiv As Boolean Select Case ZuordnungValidate Case EnumValidierung.Team ' Zuordnung Team bZuordnungTeam = validateZuordnungTeam(Message, iRow) Case EnumValidierung.Funktion ' Zuordnung Funktionen bZuordnungFunktion = validateZuordnungFunction(Message, iRow) Case EnumValidierung.Team_Funktion ' Zuordnung Team bZuordnungTeam = validateZuordnungTeam(Message, iRow) ' Zuordnung Funktionen bZuordnungFunktion = validateZuordnungFunction(Message, iRow) End Select If bZuordnungFunktion = False Or bZuordnungTeam = False Then Me.DomainList.AllowFilter = False validateZuordnung = False Me.optFunktion.Enabled = False Me.optTeam.Enabled = False Else Me.optFunktion.Enabled = True Me.optTeam.Enabled = True End If End Function #End Region Private Function CheckUniqueTGNummer(ByVal TgNummer As String, ByVal MitarbeiterNr As Integer) As Boolean '=============================================================================== 'Description: Ueberprüft ob die TGNummer eindeutig ist 'Input : 'Criteria : 'Output : TGNummer ist eindeutig = True sonst = False 'Erstellt : koe 26.05.2004 'Geaendert : '=============================================================================== Dim iAnzahl As Integer Dim sqlCmdToExecute As SqlCommand = New SqlCommand() sqlCmdToExecute.CommandText = "dbo.[sp_check_UniqueTGNummer]" sqlCmdToExecute.CommandType = CommandType.StoredProcedure sqlCmdToExecute.Parameters.Add(New SqlParameter("@TgNummer", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, TgNummer)) sqlCmdToExecute.Parameters.Add(New SqlParameter("@MitarbeiterNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, MitarbeiterNr)) sqlCmdToExecute.Parameters.Add(New SqlParameter("@Anzahl", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iAnzahl)) sqlCmdToExecute.Connection = Me.SqlConnection1 ' Execute query. sqlCmdToExecute.ExecuteNonQuery() iAnzahl = New SqlInt32(CType(sqlCmdToExecute.Parameters.Item("@Anzahl").Value, SqlInt32)).Value If iAnzahl > 0 Then CheckUniqueTGNummer = False Else CheckUniqueTGNummer = True End If End Function #End Region #Region " Extra Funktionen " Public Function ConvertToTyp(ByVal Source As Object, _ Optional ByVal Datentyp As EnumDatentyp = EnumDatentyp.IINTEGER, _ Optional ByVal DefaultValue As String = "0") As Object ' Wandelt die System.DBNull.Value's jenach Datentyp in "" (leerstring) ' oder in 0 um. If Source Is System.DBNull.Value Then Source = DefaultValue End If Select Case Datentyp Case EnumDatentyp.BBOOLEAN ConvertToTyp = CBool(Source) Case EnumDatentyp.LLONG ConvertToTyp = CLng(Val(Source)) Case EnumDatentyp.IINTEGER ConvertToTyp = CInt(Val(Source)) Case EnumDatentyp.DDATUM ConvertToTyp = CDate(Source) Case EnumDatentyp.SSINGLE ConvertToTyp = CSng(Val(Source)) Case EnumDatentyp.SSTRING ConvertToTyp = CStr(Source) Case EnumDatentyp.DDOUBLE ConvertToTyp = CDbl(Val(Source)) End Select End Function Private Sub ShowControlTeam() Me.TBTeam.Splits(0).DisplayColumns("vorname").Visible = Not optMitarbeiter_Team.Checked Me.TBTeam.Splits(0).DisplayColumns("nachname").Visible = Not optMitarbeiter_Team.Checked Me.TBTeam.Splits(0).DisplayColumns("tgnummer").Visible = Not optMitarbeiter_Team.Checked Me.TBTeam.Splits(0).DisplayColumns("mitarbeiternr").Visible = Not optMitarbeiter_Team.Checked Me.TBTeam.Splits(0).DisplayColumns("Team").Visible = optMitarbeiter_Team.Checked Me.BtnConnect.Enabled = optMitarbeiter_Team.Checked End Sub Private Sub ShowControlFunktion() Me.TBFunktion.Splits(0).DisplayColumns("vorname").Visible = Not optMitarbeiter_Funktion.Checked Me.TBFunktion.Splits(0).DisplayColumns("nachname").Visible = Not optMitarbeiter_Funktion.Checked Me.TBFunktion.Splits(0).DisplayColumns("tgnummer").Visible = Not optMitarbeiter_Funktion.Checked ' Me.TBFunktion.Splits(0).DisplayColumns("mitarbeiternr").Visible = Not optMitarbeiter_Funktion.Checked ' Me.TBFunktion.Splits(0).DisplayColumns("Funktion").Visible = optMitarbeiter_Funktion.Checked Me.BtnConnectFnk.Enabled = optMitarbeiter_Funktion.Checked End Sub Public Sub SpaltenTitel_Aktualisieren(ByVal tblnr As Integer, ByVal tblname As String, ByVal ds As DataSet) 'Spaltentitel setzen Dim titel As New EDOKA.MySpaltenTitel() Dim ts As New EDOKA.Tabellenspalte() Dim i As Integer Dim t As New DataTable() t = ds.Tables(0) If tblnr = 1 Then ts.Tabelle = tblname For i = 0 To Me.DomainList.Columns.Count - 1 Dim s As String s = Me.DomainList.Columns(i).DataField ts.Feld = s ts.getspalte() If ts.spaltenname <> "" Then Me.DomainList.Columns(i).Caption = ts.spaltenname If ts.ColWith = 0 Then Me.DomainList.Splits(0).DisplayColumns(i).Width = 0 Me.DomainList.Splits(0).DisplayColumns(i).Visible = False Else Me.DomainList.Splits(0).DisplayColumns(i).Width = ts.ColWith End If 'If Me.DomainList.Columns(i).Caption = "" Then ' Me.DomainList.Splits(0).DisplayColumns(i).Width = 0 'Else ' Me.DomainList.Splits(0).DisplayColumns(i).Width = ts.ColWith 'End If If ts.locked Then Me.DomainList.Splits(0).DisplayColumns(i).Locked = True End If If ts.AlsHacken Then Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox End If 'Präsentation von aktiv If Me.DomainList.Columns(i).DataField = "aktiv" Then Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.DomainList.Columns(i).ValueItems.DefaultItem = True Me.DomainList.Columns(i).DefaultValue = True Me.DomainList.Columns(i).FilterText = True End If If Me.DomainList.Columns(i).DataField = "erstellt_am" Then Me.DomainList.Columns(i).DefaultValue = Now End If Else Me.DomainList.Splits(0).DisplayColumns(i).Width = 0 End If Next End If If tblnr = 2 Then ts.Tabelle = tblname For i = 0 To Me.TBTeam.Columns.Count - 1 Dim s As String s = Me.TBTeam.Columns(i).DataField ts.Feld = s ts.getspalte() Me.TBTeam.Columns(i).Caption = ts.spaltenname If ts.ColWith = 0 Then Me.TBTeam.Splits(0).DisplayColumns(i).Width = 0 Me.TBTeam.Splits(0).DisplayColumns(i).Visible = False Else Me.TBTeam.Splits(0).DisplayColumns(i).Width = ts.ColWith End If 'If Me.TBTeam.Columns(i).Caption = "" Then ' Me.TBTeam.Splits(0).DisplayColumns(i).Width = 0 'Else ' Me.TBTeam.Splits(0).DisplayColumns(i).Width = ts.ColWith 'End If If ts.locked Then Me.TBTeam.Splits(0).DisplayColumns(i).Locked = True End If If ts.AlsHacken Then Me.TBTeam.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox End If 'Präsentation von aktiv If Me.TBTeam.Columns(i).DataField = "aktiv" Then Me.TBTeam.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.TBTeam.Columns(i).ValueItems.DefaultItem = True Me.TBTeam.Columns(i).DefaultValue = True Me.TBTeam.Columns(i).FilterText = True End If If Me.TBTeam.Columns(i).DataField = "erstellt_am" Then Me.TBTeam.Columns(i).DefaultValue = Now End If Next End If If tblnr = 3 Then ts.Tabelle = tblname For i = 0 To Me.TBRight_Team.Columns.Count - 1 Dim s As String s = Me.TBRight_Team.Columns(i).DataField ts.Feld = s ts.getspalte() Me.TBRight_Team.Columns(i).Caption = ts.spaltenname If ts.ColWith = 0 Then Me.DomainList.Splits(0).DisplayColumns(i).Width = 0 Me.DomainList.Splits(0).DisplayColumns(i).Visible = False Else Me.DomainList.Splits(0).DisplayColumns(i).Width = ts.ColWith End If 'If Me.TBRight_Team.Columns(i).Caption = "" Then ' Me.TBRight_Team.Splits(0).DisplayColumns(i).Width = 0 'Else ' Me.TBRight_Team.Splits(0).DisplayColumns(i).Width = ts.ColWith 'End If If ts.locked Then Me.TBRight_Team.Splits(0).DisplayColumns(i).Locked = True End If If ts.AlsHacken Then Me.TBRight_Team.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox End If 'Präsentation von aktiv If Me.TBRight_Team.Columns(i).DataField = "aktiv" Then Me.TBRight_Team.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.TBRight_Team.Columns(i).ValueItems.DefaultItem = True Me.TBRight_Team.Columns(i).DefaultValue = True Me.TBRight_Team.Columns(i).FilterText = True End If If Me.TBRight_Team.Columns(i).DataField = "erstellt_am" Then Me.TBRight_Team.Columns(i).DefaultValue = Now End If Next End If 'Tabelle Funktionen If tblnr = 4 Then ts.Tabelle = tblname For i = 0 To Me.TBRight_Funktion.Columns.Count - 1 Dim s As String s = Me.TBRight_Funktion.Columns(i).DataField ts.Feld = s ts.getspalte() If ts.spaltenname <> "" Then Me.TBRight_Funktion.Columns(i).Caption = ts.spaltenname If ts.ColWith = 0 Then Me.TBRight_Funktion.Splits(0).DisplayColumns(i).Width = 0 Me.TBRight_Funktion.Splits(0).DisplayColumns(i).Visible = False Else Me.TBRight_Funktion.Splits(0).DisplayColumns(i).Width = ts.ColWith End If If ts.locked Then Me.TBRight_Funktion.Splits(0).DisplayColumns(i).Locked = True End If If ts.AlsHacken Then Me.TBRight_Funktion.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox End If 'Präsentation von aktiv If Me.TBRight_Funktion.Columns(i).DataField = "aktiv" Then Me.TBRight_Funktion.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.TBRight_Funktion.Columns(i).ValueItems.DefaultItem = True Me.TBRight_Funktion.Columns(i).DefaultValue = True Me.TBRight_Funktion.Columns(i).FilterText = True End If If Me.TBRight_Funktion.Columns(i).DataField = "erstellt_am" Then Me.TBRight_Funktion.Columns(i).DefaultValue = Now End If Else Me.TBRight_Funktion.Splits(0).DisplayColumns(i).Width = 0 End If Next End If 'Zuordnung Mitarbeiter Funktion If tblnr = 5 Then ts.Tabelle = tblname For i = 0 To Me.TBFunktion.Columns.Count - 1 Dim s As String s = Me.TBFunktion.Columns(i).DataField ts.Feld = s ts.getspalte() Me.TBFunktion.Columns(i).Caption = ts.spaltenname If ts.ColWith = 0 Then Me.TBFunktion.Splits(0).DisplayColumns(i).Width = 0 Me.TBFunktion.Splits(0).DisplayColumns(i).Visible = False Else Me.TBFunktion.Splits(0).DisplayColumns(i).Width = ts.ColWith End If If ts.locked Then Me.TBFunktion.Splits(0).DisplayColumns(i).Locked = True End If If ts.AlsHacken Then Me.TBFunktion.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox End If 'Präsentation von aktiv If Me.TBFunktion.Columns(i).DataField = "aktiv" Then Me.TBFunktion.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox Me.TBFunktion.Columns(i).ValueItems.DefaultItem = True Me.TBFunktion.Columns(i).DefaultValue = True Me.TBFunktion.Columns(i).FilterText = True End If If Me.TBFunktion.Columns(i).DataField = "erstellt_am" Then Me.TBFunktion.Columns(i).DefaultValue = Now End If Next End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Try If Me.DomainList.Columns("Klasse").Value <> "" Then m_Klassifizierung = Me.DomainList.Columns("Klasse").Value Else m_Klassifizierung = 1 End If Catch m_Klassifizierung = Me.DomainList.Columns("Klasse").Value End Try Check_Changes() Teammitarbeiter_refresh() Check_Funktion_Changes() Funktionmitarbeiter_refresh() Me.Timer1.Stop() End Sub #End Region End Class