You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2684 lines
169 KiB
2684 lines
169 KiB
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
|
|
<System.Diagnostics.DebuggerStepThrough()> 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
|
|
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"
|
|
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'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"
|
|
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'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"
|
|
Me.DsTeam.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'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
|
|
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"
|
|
Me.DataSet4.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'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
|
|
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
|
|
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
|
|
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"
|
|
Me.DsRight_Funktion.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'dsFunltion
|
|
'
|
|
Me.dsFunltion.DataSetName = "NewDataSet"
|
|
Me.dsFunltion.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'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 (0)71"
|
|
Me.DomainList.Columns("Fax").DefaultValue = "+41 (0)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
|