Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.ComponentModel Imports System.Drawing Imports System.Drawing.Color Public Class xfrmProfil 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 MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog Friend WithEvents btnClose As System.Windows.Forms.ToolBarButton Friend WithEvents btnSave As System.Windows.Forms.ToolBarButton Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents btnOpen As System.Windows.Forms.ToolBarButton Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents MnuListe As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem Friend WithEvents Label25 As System.Windows.Forms.Label Friend WithEvents ComboBox10 As System.Windows.Forms.ComboBox Friend WithEvents Label24 As System.Windows.Forms.Label Friend WithEvents ComboBox9 As System.Windows.Forms.ComboBox Friend WithEvents Profile As System.Windows.Forms.TreeView Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents TabPage4 As System.Windows.Forms.TabPage Friend WithEvents TabControl2 As System.Windows.Forms.TabControl Friend WithEvents TabPage8 As System.Windows.Forms.TabPage Friend WithEvents TabPage9 As System.Windows.Forms.TabPage Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Button12 As System.Windows.Forms.Button Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker5 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker6 As System.Windows.Forms.DateTimePicker Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents Button14 As System.Windows.Forms.Button Friend WithEvents Button15 As System.Windows.Forms.Button Friend WithEvents Label22 As System.Windows.Forms.Label Friend WithEvents Label21 As System.Windows.Forms.Label Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents Label38 As System.Windows.Forms.Label Friend WithEvents Label37 As System.Windows.Forms.Label Friend WithEvents Label19 As System.Windows.Forms.Label Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents Label26 As System.Windows.Forms.Label Friend WithEvents Label27 As System.Windows.Forms.Label Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox Friend WithEvents Label31 As System.Windows.Forms.Label Friend WithEvents Label30 As System.Windows.Forms.Label Friend WithEvents MnuSelect As System.Windows.Forms.MenuItem Friend WithEvents MnuUnselect As System.Windows.Forms.MenuItem Friend WithEvents CTMenuErsteller As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem Friend WithEvents CTMenuVerantwortlicher As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem23 As System.Windows.Forms.MenuItem Friend WithEvents CTMenuMutierer As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem25 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem26 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem27 As System.Windows.Forms.MenuItem Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TabPage7 As System.Windows.Forms.TabPage Friend WithEvents txtDokumentID As System.Windows.Forms.TextBox Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox 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 lbSortfields As System.Windows.Forms.ListBox Friend WithEvents lbselectedsortfields As System.Windows.Forms.ListBox Friend WithEvents cbSorttype As System.Windows.Forms.ComboBox Friend WithEvents TabControl3 As System.Windows.Forms.TabControl Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents TabPage10 As System.Windows.Forms.TabPage Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox Friend WithEvents Label35 As System.Windows.Forms.Label Friend WithEvents Label34 As System.Windows.Forms.Label Friend WithEvents Label33 As System.Windows.Forms.Label Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox Friend WithEvents Label32 As System.Windows.Forms.Label Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox Friend WithEvents Button16 As System.Windows.Forms.Button Friend WithEvents Button17 As System.Windows.Forms.Button Friend WithEvents ListView1 As System.Windows.Forms.ListView Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader Friend WithEvents txtFunktion As System.Windows.Forms.TextBox Friend WithEvents txtTelefax As System.Windows.Forms.TextBox Friend WithEvents txtTelefon As System.Windows.Forms.TextBox Friend WithEvents cEdokaMessage As System.Windows.Forms.CheckBox Friend WithEvents txtMailadresse As System.Windows.Forms.TextBox Friend WithEvents cmailempfang As System.Windows.Forms.CheckBox Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox Friend WithEvents cb5 As System.Windows.Forms.CheckBox Friend WithEvents cb4 As System.Windows.Forms.CheckBox Friend WithEvents cb3 As System.Windows.Forms.CheckBox Friend WithEvents cb2 As System.Windows.Forms.CheckBox Friend WithEvents cb1 As System.Windows.Forms.CheckBox Friend WithEvents cMailDirekt As System.Windows.Forms.CheckBox Friend WithEvents Label23 As System.Windows.Forms.Label Friend WithEvents cbMarktbereich As System.Windows.Forms.ComboBox Friend WithEvents cbNiederlassung As System.Windows.Forms.ComboBox Friend WithEvents cbKostenstelle As System.Windows.Forms.ComboBox Friend WithEvents cbTeam As System.Windows.Forms.ComboBox Friend WithEvents cbMutierer As System.Windows.Forms.ComboBox Friend WithEvents cbErsteller As System.Windows.Forms.ComboBox Friend WithEvents cbStatus As System.Windows.Forms.ComboBox Friend WithEvents cbDokumentart As System.Windows.Forms.ComboBox Friend WithEvents cbDokumentverantwortlich As System.Windows.Forms.ComboBox Friend WithEvents cbKundenberater As System.Windows.Forms.ComboBox Friend WithEvents selMarktbereich As System.Windows.Forms.ListView Friend WithEvents ID As System.Windows.Forms.ColumnHeader Friend WithEvents Display As System.Windows.Forms.ColumnHeader Friend WithEvents selNiederlassung As System.Windows.Forms.ListView Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader5 As System.Windows.Forms.ColumnHeader Friend WithEvents SelKostenstelle As System.Windows.Forms.ListView Friend WithEvents ColumnHeader6 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader7 As System.Windows.Forms.ColumnHeader Friend WithEvents SelTeam As System.Windows.Forms.ListView Friend WithEvents ColumnHeader8 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader9 As System.Windows.Forms.ColumnHeader Friend WithEvents selKundenberater As System.Windows.Forms.ListView Friend WithEvents ColumnHeader10 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader11 As System.Windows.Forms.ColumnHeader Friend WithEvents selDokumentverantwortlich As System.Windows.Forms.ListView Friend WithEvents ColumnHeader12 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader13 As System.Windows.Forms.ColumnHeader Friend WithEvents SelErsteller As System.Windows.Forms.ListView Friend WithEvents ColumnHeader14 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader15 As System.Windows.Forms.ColumnHeader Friend WithEvents SelMutierer As System.Windows.Forms.ListView Friend WithEvents ColumnHeader16 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader17 As System.Windows.Forms.ColumnHeader Friend WithEvents SelDokumentart As System.Windows.Forms.ListView Friend WithEvents ColumnHeader18 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader19 As System.Windows.Forms.ColumnHeader Friend WithEvents SelStatus As System.Windows.Forms.ListView Friend WithEvents ColumnHeader20 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader21 As System.Windows.Forms.ColumnHeader Friend WithEvents SelDokumentID As System.Windows.Forms.ListView Friend WithEvents ColumnHeader22 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader23 As System.Windows.Forms.ColumnHeader Friend WithEvents SelPartner As System.Windows.Forms.ListView Friend WithEvents ColumnHeader24 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader25 As System.Windows.Forms.ColumnHeader Friend WithEvents btnsel1 As System.Windows.Forms.Button Friend WithEvents btnsel3 As System.Windows.Forms.Button Friend WithEvents btnsel4 As System.Windows.Forms.Button Friend WithEvents btnsel5 As System.Windows.Forms.Button Friend WithEvents btnsel6 As System.Windows.Forms.Button Friend WithEvents btnsel7 As System.Windows.Forms.Button Friend WithEvents btnsel8 As System.Windows.Forms.Button Friend WithEvents btnsel9 As System.Windows.Forms.Button Friend WithEvents btnsel10 As System.Windows.Forms.Button Friend WithEvents btnsel11 As System.Windows.Forms.Button Friend WithEvents btnsel2 As System.Windows.Forms.Button Friend WithEvents ctmenu1 As System.Windows.Forms.ContextMenu 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 colbtn1 As System.Windows.Forms.Button Friend WithEvents colbtn2 As System.Windows.Forms.Button Friend WithEvents colbtn3 As System.Windows.Forms.Button Friend WithEvents colbtn4 As System.Windows.Forms.Button Friend WithEvents colbtn5 As System.Windows.Forms.Button Friend WithEvents colbtn6 As System.Windows.Forms.Button Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmProfil)) Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New System.Windows.Forms.ListViewItem.ListViewSubItem() {New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "Max Muster", System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "1.1.02"), New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "1.4.02")}, -1) Me.MainMenu1 = New System.Windows.Forms.MainMenu() Me.MenuItem1 = New System.Windows.Forms.MenuItem() Me.MenuItem5 = New System.Windows.Forms.MenuItem() Me.ToolBar1 = New System.Windows.Forms.ToolBar() Me.btnClose = New System.Windows.Forms.ToolBarButton() Me.btnOpen = New System.Windows.Forms.ToolBarButton() Me.btnSave = New System.Windows.Forms.ToolBarButton() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.ColorDialog1 = New System.Windows.Forms.ColorDialog() Me.Panel1 = New System.Windows.Forms.Panel() Me.MnuListe = New System.Windows.Forms.ContextMenu() Me.MenuItem12 = New System.Windows.Forms.MenuItem() Me.MenuItem6 = New System.Windows.Forms.MenuItem() Me.MenuItem7 = New System.Windows.Forms.MenuItem() Me.MenuItem9 = New System.Windows.Forms.MenuItem() Me.MenuItem11 = New System.Windows.Forms.MenuItem() Me.MenuItem8 = New System.Windows.Forms.MenuItem() Me.MenuItem10 = New System.Windows.Forms.MenuItem() Me.Panel2 = New System.Windows.Forms.Panel() Me.Profile = New System.Windows.Forms.TreeView() Me.Button4 = New System.Windows.Forms.Button() Me.Label25 = New System.Windows.Forms.Label() Me.ComboBox10 = New System.Windows.Forms.ComboBox() Me.Label24 = New System.Windows.Forms.Label() Me.ComboBox9 = New System.Windows.Forms.ComboBox() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabControl2 = New System.Windows.Forms.TabControl() Me.TabPage7 = New System.Windows.Forms.TabPage() Me.btnsel4 = New System.Windows.Forms.Button() Me.btnsel3 = New System.Windows.Forms.Button() Me.btnsel2 = New System.Windows.Forms.Button() Me.btnsel1 = New System.Windows.Forms.Button() Me.SelTeam = New System.Windows.Forms.ListView() Me.ColumnHeader8 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader9 = New System.Windows.Forms.ColumnHeader() Me.ctmenu1 = New System.Windows.Forms.ContextMenu() Me.MnuSelect = New System.Windows.Forms.MenuItem() Me.MnuUnselect = New System.Windows.Forms.MenuItem() Me.SelKostenstelle = New System.Windows.Forms.ListView() Me.ColumnHeader6 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader7 = New System.Windows.Forms.ColumnHeader() Me.selNiederlassung = New System.Windows.Forms.ListView() Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader5 = New System.Windows.Forms.ColumnHeader() Me.selMarktbereich = New System.Windows.Forms.ListView() Me.ID = New System.Windows.Forms.ColumnHeader() Me.Display = New System.Windows.Forms.ColumnHeader() Me.cbTeam = New System.Windows.Forms.ComboBox() Me.cbKostenstelle = New System.Windows.Forms.ComboBox() Me.cbNiederlassung = New System.Windows.Forms.ComboBox() Me.cbMarktbereich = New System.Windows.Forms.ComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.TabPage9 = New System.Windows.Forms.TabPage() Me.btnsel8 = New System.Windows.Forms.Button() Me.btnsel7 = New System.Windows.Forms.Button() Me.btnsel6 = New System.Windows.Forms.Button() Me.btnsel5 = New System.Windows.Forms.Button() Me.SelMutierer = New System.Windows.Forms.ListView() Me.ColumnHeader16 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader17 = New System.Windows.Forms.ColumnHeader() Me.SelErsteller = New System.Windows.Forms.ListView() Me.ColumnHeader14 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader15 = New System.Windows.Forms.ColumnHeader() Me.selDokumentverantwortlich = New System.Windows.Forms.ListView() Me.ColumnHeader12 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader13 = New System.Windows.Forms.ColumnHeader() Me.selKundenberater = New System.Windows.Forms.ListView() Me.ColumnHeader10 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader11 = New System.Windows.Forms.ColumnHeader() Me.cbKundenberater = New System.Windows.Forms.ComboBox() Me.cbMutierer = New System.Windows.Forms.ComboBox() Me.cbErsteller = New System.Windows.Forms.ComboBox() Me.Label23 = New System.Windows.Forms.Label() Me.cbDokumentverantwortlich = New System.Windows.Forms.ComboBox() Me.Label8 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.TabPage8 = New System.Windows.Forms.TabPage() Me.btnsel11 = New System.Windows.Forms.Button() Me.btnsel10 = New System.Windows.Forms.Button() Me.btnsel9 = New System.Windows.Forms.Button() Me.SelPartner = New System.Windows.Forms.ListView() Me.ColumnHeader24 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader25 = New System.Windows.Forms.ColumnHeader() Me.SelDokumentID = New System.Windows.Forms.ListView() Me.ColumnHeader22 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader23 = New System.Windows.Forms.ColumnHeader() Me.SelStatus = New System.Windows.Forms.ListView() Me.ColumnHeader20 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader21 = New System.Windows.Forms.ColumnHeader() Me.SelDokumentart = New System.Windows.Forms.ListView() Me.ColumnHeader18 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader19 = New System.Windows.Forms.ColumnHeader() Me.cbStatus = New System.Windows.Forms.ComboBox() Me.cbDokumentart = New System.Windows.Forms.ComboBox() Me.txtDokumentID = New System.Windows.Forms.TextBox() Me.Label18 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.DateTimePicker6 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.Label12 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() Me.Button12 = New System.Windows.Forms.Button() Me.Label10 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.GroupBox9 = New System.Windows.Forms.GroupBox() Me.cb5 = New System.Windows.Forms.CheckBox() Me.cb4 = New System.Windows.Forms.CheckBox() Me.cb3 = New System.Windows.Forms.CheckBox() Me.cb2 = New System.Windows.Forms.CheckBox() Me.cb1 = New System.Windows.Forms.CheckBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.Label31 = New System.Windows.Forms.Label() Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox() Me.Label30 = New System.Windows.Forms.Label() Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.Label38 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.Label26 = New System.Windows.Forms.Label() Me.Label27 = New System.Windows.Forms.Label() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.Button14 = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.cbSorttype = New System.Windows.Forms.ComboBox() Me.Label22 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() Me.lbselectedsortfields = New System.Windows.Forms.ListBox() Me.lbSortfields = New System.Windows.Forms.ListBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabControl3 = New System.Windows.Forms.TabControl() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.GroupBox7 = New System.Windows.Forms.GroupBox() Me.Label35 = New System.Windows.Forms.Label() Me.txtFunktion = New System.Windows.Forms.TextBox() Me.Label34 = New System.Windows.Forms.Label() Me.txtTelefax = New System.Windows.Forms.TextBox() Me.Label33 = New System.Windows.Forms.Label() Me.txtTelefon = New System.Windows.Forms.TextBox() Me.GroupBox6 = New System.Windows.Forms.GroupBox() Me.cEdokaMessage = New System.Windows.Forms.CheckBox() Me.cMailDirekt = New System.Windows.Forms.CheckBox() Me.Label32 = New System.Windows.Forms.Label() Me.txtMailadresse = New System.Windows.Forms.TextBox() Me.cmailempfang = New System.Windows.Forms.CheckBox() Me.TabPage10 = New System.Windows.Forms.TabPage() Me.GroupBox8 = New System.Windows.Forms.GroupBox() Me.Button16 = New System.Windows.Forms.Button() Me.Button17 = New System.Windows.Forms.Button() Me.ListView1 = New System.Windows.Forms.ListView() Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader() Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader() Me.CTMenuErsteller = New System.Windows.Forms.ContextMenu() Me.MenuItem15 = New System.Windows.Forms.MenuItem() Me.MenuItem16 = New System.Windows.Forms.MenuItem() Me.MenuItem18 = New System.Windows.Forms.MenuItem() Me.MenuItem19 = New System.Windows.Forms.MenuItem() Me.CTMenuVerantwortlicher = New System.Windows.Forms.ContextMenu() Me.MenuItem20 = New System.Windows.Forms.MenuItem() Me.MenuItem21 = New System.Windows.Forms.MenuItem() Me.MenuItem22 = New System.Windows.Forms.MenuItem() Me.MenuItem23 = New System.Windows.Forms.MenuItem() Me.CTMenuMutierer = New System.Windows.Forms.ContextMenu() Me.MenuItem24 = New System.Windows.Forms.MenuItem() Me.MenuItem25 = New System.Windows.Forms.MenuItem() Me.MenuItem26 = New System.Windows.Forms.MenuItem() Me.MenuItem27 = New System.Windows.Forms.MenuItem() Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter() Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand() Me.SqlConnection1 = 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.DataSet1 = New System.Data.DataSet() Me.colbtn1 = New System.Windows.Forms.Button() Me.colbtn2 = New System.Windows.Forms.Button() Me.colbtn3 = New System.Windows.Forms.Button() Me.colbtn4 = New System.Windows.Forms.Button() Me.colbtn5 = New System.Windows.Forms.Button() Me.colbtn6 = New System.Windows.Forms.Button() Me.Panel2.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.TabControl2.SuspendLayout() Me.TabPage7.SuspendLayout() Me.TabPage9.SuspendLayout() Me.TabPage8.SuspendLayout() Me.TabPage4.SuspendLayout() Me.GroupBox9.SuspendLayout() Me.GroupBox5.SuspendLayout() Me.TabPage2.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.GroupBox4.SuspendLayout() Me.TabPage3.SuspendLayout() Me.TabControl3.SuspendLayout() Me.TabPage5.SuspendLayout() Me.GroupBox7.SuspendLayout() Me.GroupBox6.SuspendLayout() Me.TabPage10.SuspendLayout() Me.GroupBox8.SuspendLayout() CType(Me.DataSet1, 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.MenuItem5}) Me.MenuItem1.Text = "&Datei" ' 'MenuItem5 ' Me.MenuItem5.Index = 0 Me.MenuItem5.Text = "&Schliessen" ' 'ToolBar1 ' Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnClose, Me.btnOpen, Me.btnSave}) Me.ToolBar1.DropDownArrows = True Me.ToolBar1.ImageList = Me.ImageList1 Me.ToolBar1.Name = "ToolBar1" Me.ToolBar1.ShowToolTips = True Me.ToolBar1.Size = New System.Drawing.Size(784, 25) Me.ToolBar1.TabIndex = 0 ' 'btnClose ' Me.btnClose.ImageIndex = 0 Me.btnClose.ToolTipText = "Fenster schliessen" ' 'btnOpen ' Me.btnOpen.ImageIndex = 7 ' 'btnSave ' Me.btnSave.ImageIndex = 1 ' 'ImageList1 ' Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16) Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent ' 'Panel1 ' Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 25) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(784, 8) Me.Panel1.TabIndex = 4 ' 'MnuListe ' Me.MnuListe.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem12, Me.MenuItem6, Me.MenuItem7, Me.MenuItem9, Me.MenuItem11, Me.MenuItem8, Me.MenuItem10}) ' 'MenuItem12 ' Me.MenuItem12.Index = 0 Me.MenuItem12.Text = "Übernehmen" ' 'MenuItem6 ' Me.MenuItem6.Index = 1 Me.MenuItem6.Text = "Auswählen" ' 'MenuItem7 ' Me.MenuItem7.Index = 2 Me.MenuItem7.Text = "Als Standard" ' 'MenuItem9 ' Me.MenuItem9.Index = 3 Me.MenuItem9.Text = "-" ' 'MenuItem11 ' Me.MenuItem11.Index = 4 Me.MenuItem11.Text = "Neus Profil" ' 'MenuItem8 ' Me.MenuItem8.Index = 5 Me.MenuItem8.Text = "Umbenennen" ' 'MenuItem10 ' Me.MenuItem10.Index = 6 Me.MenuItem10.Text = "Löschen" ' 'Panel2 ' Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Profile}) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left Me.Panel2.Location = New System.Drawing.Point(0, 33) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(200, 544) Me.Panel2.TabIndex = 11 ' 'Profile ' Me.Profile.ContextMenu = Me.MnuListe Me.Profile.Dock = System.Windows.Forms.DockStyle.Fill Me.Profile.ImageList = Me.ImageList1 Me.Profile.Name = "Profile" Me.Profile.ShowLines = False Me.Profile.ShowPlusMinus = False Me.Profile.Size = New System.Drawing.Size(198, 542) Me.Profile.Sorted = True Me.Profile.TabIndex = 0 ' 'Button4 ' Me.Button4.Location = New System.Drawing.Point(200, 552) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(112, 24) Me.Button4.TabIndex = 14 Me.Button4.Text = "Übernehmen" ' 'Label25 ' Me.Label25.Location = New System.Drawing.Point(16, 64) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(48, 23) Me.Label25.TabIndex = 3 ' 'ComboBox10 ' Me.ComboBox10.Location = New System.Drawing.Point(64, 64) Me.ComboBox10.Name = "ComboBox10" Me.ComboBox10.Size = New System.Drawing.Size(216, 21) Me.ComboBox10.TabIndex = 2 ' 'Label24 ' Me.Label24.Location = New System.Drawing.Point(16, 32) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(48, 23) Me.Label24.TabIndex = 1 ' 'ComboBox9 ' Me.ComboBox9.Location = New System.Drawing.Point(64, 32) Me.ComboBox9.Name = "ComboBox9" Me.ComboBox9.Size = New System.Drawing.Size(216, 21) Me.ComboBox9.TabIndex = 0 ' 'TabControl1 ' Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage4, Me.TabPage2, Me.TabPage3}) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top Me.TabControl1.Location = New System.Drawing.Point(200, 33) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(584, 519) Me.TabControl1.TabIndex = 15 ' 'TabPage1 ' Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl2}) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Size = New System.Drawing.Size(576, 493) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Selektion" ' 'TabControl2 ' Me.TabControl2.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage7, Me.TabPage9, Me.TabPage8}) Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Bottom Me.TabControl2.Location = New System.Drawing.Point(0, -3) Me.TabControl2.Name = "TabControl2" Me.TabControl2.SelectedIndex = 0 Me.TabControl2.Size = New System.Drawing.Size(576, 496) Me.TabControl2.TabIndex = 0 ' 'TabPage7 ' Me.TabPage7.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnsel4, Me.btnsel3, Me.btnsel2, Me.btnsel1, Me.SelTeam, Me.SelKostenstelle, Me.selNiederlassung, Me.selMarktbereich, Me.cbTeam, Me.cbKostenstelle, Me.cbNiederlassung, Me.cbMarktbereich, Me.Label4, Me.Label3, Me.Label2, Me.Label1}) Me.TabPage7.Location = New System.Drawing.Point(4, 22) Me.TabPage7.Name = "TabPage7" Me.TabPage7.Size = New System.Drawing.Size(568, 470) Me.TabPage7.TabIndex = 0 Me.TabPage7.Text = "Organisation" ' 'btnsel4 ' Me.btnsel4.Image = CType(resources.GetObject("btnsel4.Image"), System.Drawing.Bitmap) Me.btnsel4.Location = New System.Drawing.Point(272, 328) Me.btnsel4.Name = "btnsel4" Me.btnsel4.Size = New System.Drawing.Size(24, 20) Me.btnsel4.TabIndex = 40 ' 'btnsel3 ' Me.btnsel3.Image = CType(resources.GetObject("btnsel3.Image"), System.Drawing.Bitmap) Me.btnsel3.Location = New System.Drawing.Point(272, 225) Me.btnsel3.Name = "btnsel3" Me.btnsel3.Size = New System.Drawing.Size(24, 20) Me.btnsel3.TabIndex = 39 ' 'btnsel2 ' Me.btnsel2.Image = CType(resources.GetObject("btnsel2.Image"), System.Drawing.Bitmap) Me.btnsel2.Location = New System.Drawing.Point(272, 120) Me.btnsel2.Name = "btnsel2" Me.btnsel2.Size = New System.Drawing.Size(24, 20) Me.btnsel2.TabIndex = 38 ' 'btnsel1 ' Me.btnsel1.Image = CType(resources.GetObject("btnsel1.Image"), System.Drawing.Bitmap) Me.btnsel1.Location = New System.Drawing.Point(272, 16) Me.btnsel1.Name = "btnsel1" Me.btnsel1.Size = New System.Drawing.Size(24, 20) Me.btnsel1.TabIndex = 37 ' 'SelTeam ' Me.SelTeam.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader8, Me.ColumnHeader9}) Me.SelTeam.ContextMenu = Me.ctmenu1 Me.SelTeam.FullRowSelect = True Me.SelTeam.Location = New System.Drawing.Point(304, 328) Me.SelTeam.Name = "SelTeam" Me.SelTeam.Size = New System.Drawing.Size(240, 97) Me.SelTeam.TabIndex = 28 Me.SelTeam.View = System.Windows.Forms.View.Details ' 'ColumnHeader8 ' Me.ColumnHeader8.Text = "ID" Me.ColumnHeader8.Width = 20 ' 'ColumnHeader9 ' Me.ColumnHeader9.Text = "Display" Me.ColumnHeader9.Width = 160 ' 'ctmenu1 ' Me.ctmenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuSelect, Me.MnuUnselect}) ' 'MnuSelect ' Me.MnuSelect.Index = 0 Me.MnuSelect.Text = "Eintrag löschen" ' 'MnuUnselect ' Me.MnuUnselect.Index = 1 Me.MnuUnselect.Text = "Alle Einträge löschen" ' 'SelKostenstelle ' Me.SelKostenstelle.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader6, Me.ColumnHeader7}) Me.SelKostenstelle.ContextMenu = Me.ctmenu1 Me.SelKostenstelle.FullRowSelect = True Me.SelKostenstelle.Location = New System.Drawing.Point(304, 224) Me.SelKostenstelle.Name = "SelKostenstelle" Me.SelKostenstelle.Size = New System.Drawing.Size(240, 97) Me.SelKostenstelle.TabIndex = 27 Me.SelKostenstelle.View = System.Windows.Forms.View.Details ' 'ColumnHeader6 ' Me.ColumnHeader6.Text = "ID" Me.ColumnHeader6.Width = 20 ' 'ColumnHeader7 ' Me.ColumnHeader7.Text = "Display" Me.ColumnHeader7.Width = 160 ' 'selNiederlassung ' Me.selNiederlassung.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader4, Me.ColumnHeader5}) Me.selNiederlassung.ContextMenu = Me.ctmenu1 Me.selNiederlassung.FullRowSelect = True Me.selNiederlassung.Location = New System.Drawing.Point(304, 120) Me.selNiederlassung.Name = "selNiederlassung" Me.selNiederlassung.Size = New System.Drawing.Size(240, 97) Me.selNiederlassung.TabIndex = 26 Me.selNiederlassung.View = System.Windows.Forms.View.Details ' 'ColumnHeader4 ' Me.ColumnHeader4.Text = "ID" Me.ColumnHeader4.Width = 20 ' 'ColumnHeader5 ' Me.ColumnHeader5.Text = "Display" Me.ColumnHeader5.Width = 160 ' 'selMarktbereich ' Me.selMarktbereich.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ID, Me.Display}) Me.selMarktbereich.ContextMenu = Me.ctmenu1 Me.selMarktbereich.FullRowSelect = True Me.selMarktbereich.Location = New System.Drawing.Point(304, 16) Me.selMarktbereich.Name = "selMarktbereich" Me.selMarktbereich.Size = New System.Drawing.Size(240, 97) Me.selMarktbereich.TabIndex = 24 Me.selMarktbereich.View = System.Windows.Forms.View.Details ' 'ID ' Me.ID.Text = "ID" Me.ID.Width = 20 ' 'Display ' Me.Display.Text = "Display" Me.Display.Width = 160 ' 'cbTeam ' Me.cbTeam.Location = New System.Drawing.Point(96, 328) Me.cbTeam.Name = "cbTeam" Me.cbTeam.Size = New System.Drawing.Size(176, 21) Me.cbTeam.TabIndex = 22 Me.cbTeam.Text = "ComboBox4" ' 'cbKostenstelle ' Me.cbKostenstelle.Location = New System.Drawing.Point(96, 224) Me.cbKostenstelle.Name = "cbKostenstelle" Me.cbKostenstelle.Size = New System.Drawing.Size(176, 21) Me.cbKostenstelle.TabIndex = 20 Me.cbKostenstelle.Text = "ComboBox3" ' 'cbNiederlassung ' Me.cbNiederlassung.Location = New System.Drawing.Point(96, 120) Me.cbNiederlassung.Name = "cbNiederlassung" Me.cbNiederlassung.Size = New System.Drawing.Size(176, 21) Me.cbNiederlassung.TabIndex = 18 Me.cbNiederlassung.Text = "ComboBox2" ' 'cbMarktbereich ' Me.cbMarktbereich.Location = New System.Drawing.Point(96, 16) Me.cbMarktbereich.Name = "cbMarktbereich" Me.cbMarktbereich.Size = New System.Drawing.Size(176, 21) Me.cbMarktbereich.TabIndex = 16 Me.cbMarktbereich.Text = "ComboBox1" ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(8, 328) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(80, 16) Me.Label4.TabIndex = 15 Me.Label4.Text = "Team" ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(8, 224) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(80, 16) Me.Label3.TabIndex = 11 Me.Label3.Text = "Kostenstelle" ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(8, 120) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(80, 16) Me.Label2.TabIndex = 10 Me.Label2.Text = "Niederlassung" ' '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 = 9 Me.Label1.Text = "Marktbereich" ' 'TabPage9 ' Me.TabPage9.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnsel8, Me.btnsel7, Me.btnsel6, Me.btnsel5, Me.SelMutierer, Me.SelErsteller, Me.selDokumentverantwortlich, Me.selKundenberater, Me.cbKundenberater, Me.cbMutierer, Me.cbErsteller, Me.Label23, Me.cbDokumentverantwortlich, Me.Label8, Me.Label7, Me.Label6, Me.Label5}) Me.TabPage9.Location = New System.Drawing.Point(4, 22) Me.TabPage9.Name = "TabPage9" Me.TabPage9.Size = New System.Drawing.Size(568, 470) Me.TabPage9.TabIndex = 2 Me.TabPage9.Text = "Personen" ' 'btnsel8 ' Me.btnsel8.Image = CType(resources.GetObject("btnsel8.Image"), System.Drawing.Bitmap) Me.btnsel8.Location = New System.Drawing.Point(280, 328) Me.btnsel8.Name = "btnsel8" Me.btnsel8.Size = New System.Drawing.Size(24, 20) Me.btnsel8.TabIndex = 44 ' 'btnsel7 ' Me.btnsel7.Image = CType(resources.GetObject("btnsel7.Image"), System.Drawing.Bitmap) Me.btnsel7.Location = New System.Drawing.Point(280, 225) Me.btnsel7.Name = "btnsel7" Me.btnsel7.Size = New System.Drawing.Size(24, 20) Me.btnsel7.TabIndex = 43 ' 'btnsel6 ' Me.btnsel6.Image = CType(resources.GetObject("btnsel6.Image"), System.Drawing.Bitmap) Me.btnsel6.Location = New System.Drawing.Point(280, 120) Me.btnsel6.Name = "btnsel6" Me.btnsel6.Size = New System.Drawing.Size(24, 20) Me.btnsel6.TabIndex = 42 ' 'btnsel5 ' Me.btnsel5.Image = CType(resources.GetObject("btnsel5.Image"), System.Drawing.Bitmap) Me.btnsel5.Location = New System.Drawing.Point(280, 16) Me.btnsel5.Name = "btnsel5" Me.btnsel5.Size = New System.Drawing.Size(24, 20) Me.btnsel5.TabIndex = 41 ' 'SelMutierer ' Me.SelMutierer.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader16, Me.ColumnHeader17}) Me.SelMutierer.ContextMenu = Me.ctmenu1 Me.SelMutierer.FullRowSelect = True Me.SelMutierer.Location = New System.Drawing.Point(312, 328) Me.SelMutierer.Name = "SelMutierer" Me.SelMutierer.Size = New System.Drawing.Size(240, 97) Me.SelMutierer.TabIndex = 40 Me.SelMutierer.View = System.Windows.Forms.View.Details ' 'ColumnHeader16 ' Me.ColumnHeader16.Text = "ID" Me.ColumnHeader16.Width = 20 ' 'ColumnHeader17 ' Me.ColumnHeader17.Text = "Display" Me.ColumnHeader17.Width = 160 ' 'SelErsteller ' Me.SelErsteller.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader14, Me.ColumnHeader15}) Me.SelErsteller.ContextMenu = Me.ctmenu1 Me.SelErsteller.FullRowSelect = True Me.SelErsteller.Location = New System.Drawing.Point(312, 224) Me.SelErsteller.Name = "SelErsteller" Me.SelErsteller.Size = New System.Drawing.Size(240, 97) Me.SelErsteller.TabIndex = 39 Me.SelErsteller.View = System.Windows.Forms.View.Details ' 'ColumnHeader14 ' Me.ColumnHeader14.Text = "ID" Me.ColumnHeader14.Width = 20 ' 'ColumnHeader15 ' Me.ColumnHeader15.Text = "Display" Me.ColumnHeader15.Width = 160 ' 'selDokumentverantwortlich ' Me.selDokumentverantwortlich.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader12, Me.ColumnHeader13}) Me.selDokumentverantwortlich.ContextMenu = Me.ctmenu1 Me.selDokumentverantwortlich.FullRowSelect = True Me.selDokumentverantwortlich.Location = New System.Drawing.Point(312, 120) Me.selDokumentverantwortlich.Name = "selDokumentverantwortlich" Me.selDokumentverantwortlich.Size = New System.Drawing.Size(240, 97) Me.selDokumentverantwortlich.TabIndex = 38 Me.selDokumentverantwortlich.View = System.Windows.Forms.View.Details ' 'ColumnHeader12 ' Me.ColumnHeader12.Text = "ID" Me.ColumnHeader12.Width = 20 ' 'ColumnHeader13 ' Me.ColumnHeader13.Text = "Display" Me.ColumnHeader13.Width = 160 ' 'selKundenberater ' Me.selKundenberater.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader10, Me.ColumnHeader11}) Me.selKundenberater.ContextMenu = Me.ctmenu1 Me.selKundenberater.FullRowSelect = True Me.selKundenberater.Location = New System.Drawing.Point(312, 16) Me.selKundenberater.Name = "selKundenberater" Me.selKundenberater.Size = New System.Drawing.Size(240, 97) Me.selKundenberater.TabIndex = 37 Me.selKundenberater.View = System.Windows.Forms.View.Details ' 'ColumnHeader10 ' Me.ColumnHeader10.Text = "ID" Me.ColumnHeader10.Width = 20 ' 'ColumnHeader11 ' Me.ColumnHeader11.Text = "Display" Me.ColumnHeader11.Width = 160 ' 'cbKundenberater ' Me.cbKundenberater.Location = New System.Drawing.Point(96, 16) Me.cbKundenberater.Name = "cbKundenberater" Me.cbKundenberater.Size = New System.Drawing.Size(184, 21) Me.cbKundenberater.TabIndex = 35 Me.cbKundenberater.Text = "ComboBox5" ' 'cbMutierer ' Me.cbMutierer.Location = New System.Drawing.Point(96, 328) Me.cbMutierer.Name = "cbMutierer" Me.cbMutierer.Size = New System.Drawing.Size(184, 21) Me.cbMutierer.TabIndex = 33 Me.cbMutierer.Text = "ComboBox7" ' 'cbErsteller ' Me.cbErsteller.Location = New System.Drawing.Point(96, 224) Me.cbErsteller.Name = "cbErsteller" Me.cbErsteller.Size = New System.Drawing.Size(184, 21) Me.cbErsteller.TabIndex = 31 Me.cbErsteller.Text = "ComboBox8" ' 'Label23 ' Me.Label23.Location = New System.Drawing.Point(8, 136) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(80, 16) Me.Label23.TabIndex = 30 Me.Label23.Text = "verantwortlich" ' 'cbDokumentverantwortlich ' Me.cbDokumentverantwortlich.Location = New System.Drawing.Point(96, 120) Me.cbDokumentverantwortlich.Name = "cbDokumentverantwortlich" Me.cbDokumentverantwortlich.Size = New System.Drawing.Size(184, 21) Me.cbDokumentverantwortlich.TabIndex = 28 Me.cbDokumentverantwortlich.Text = "ComboBox6" ' 'Label8 ' Me.Label8.Location = New System.Drawing.Point(8, 328) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(72, 16) Me.Label8.TabIndex = 25 Me.Label8.Text = "Mutierer" ' 'Label7 ' Me.Label7.Location = New System.Drawing.Point(8, 224) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(72, 16) Me.Label7.TabIndex = 21 Me.Label7.Text = "Ersteller" ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(8, 120) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(72, 16) Me.Label6.TabIndex = 17 Me.Label6.Text = "Dokument-" ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(8, 16) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(80, 16) Me.Label5.TabIndex = 13 Me.Label5.Text = "Kundenberater" ' 'TabPage8 ' Me.TabPage8.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnsel11, Me.btnsel10, Me.btnsel9, Me.SelPartner, Me.SelDokumentID, Me.SelStatus, Me.SelDokumentart, Me.cbStatus, Me.cbDokumentart, Me.txtDokumentID, Me.Label18, Me.Label17, Me.Label16, Me.Label15, Me.Label14, Me.Label13, Me.DateTimePicker6, Me.DateTimePicker5, Me.DateTimePicker4, Me.DateTimePicker3, Me.DateTimePicker2, Me.DateTimePicker1, Me.Label12, Me.Label11, Me.Button12, Me.Label10, Me.Label9}) Me.TabPage8.Location = New System.Drawing.Point(4, 22) Me.TabPage8.Name = "TabPage8" Me.TabPage8.Size = New System.Drawing.Size(568, 470) Me.TabPage8.TabIndex = 1 Me.TabPage8.Text = "Dokument-Informationen" ' 'btnsel11 ' Me.btnsel11.Image = CType(resources.GetObject("btnsel11.Image"), System.Drawing.Bitmap) Me.btnsel11.Location = New System.Drawing.Point(272, 200) Me.btnsel11.Name = "btnsel11" Me.btnsel11.Size = New System.Drawing.Size(24, 20) Me.btnsel11.TabIndex = 55 ' 'btnsel10 ' Me.btnsel10.Image = CType(resources.GetObject("btnsel10.Image"), System.Drawing.Bitmap) Me.btnsel10.Location = New System.Drawing.Point(272, 120) Me.btnsel10.Name = "btnsel10" Me.btnsel10.Size = New System.Drawing.Size(24, 20) Me.btnsel10.TabIndex = 54 ' 'btnsel9 ' Me.btnsel9.Image = CType(resources.GetObject("btnsel9.Image"), System.Drawing.Bitmap) Me.btnsel9.Location = New System.Drawing.Point(272, 16) Me.btnsel9.Name = "btnsel9" Me.btnsel9.Size = New System.Drawing.Size(24, 20) Me.btnsel9.TabIndex = 53 ' 'SelPartner ' Me.SelPartner.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader24, Me.ColumnHeader25}) Me.SelPartner.ContextMenu = Me.ctmenu1 Me.SelPartner.FullRowSelect = True Me.SelPartner.Location = New System.Drawing.Point(304, 304) Me.SelPartner.Name = "SelPartner" Me.SelPartner.Size = New System.Drawing.Size(240, 128) Me.SelPartner.TabIndex = 52 Me.SelPartner.View = System.Windows.Forms.View.Details ' 'ColumnHeader24 ' Me.ColumnHeader24.Text = "ID" Me.ColumnHeader24.Width = 20 ' 'ColumnHeader25 ' Me.ColumnHeader25.Text = "Display" Me.ColumnHeader25.Width = 160 ' 'SelDokumentID ' Me.SelDokumentID.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader22, Me.ColumnHeader23}) Me.SelDokumentID.ContextMenu = Me.ctmenu1 Me.SelDokumentID.FullRowSelect = True Me.SelDokumentID.Location = New System.Drawing.Point(304, 200) Me.SelDokumentID.Name = "SelDokumentID" Me.SelDokumentID.Size = New System.Drawing.Size(240, 72) Me.SelDokumentID.TabIndex = 51 Me.SelDokumentID.View = System.Windows.Forms.View.Details ' 'ColumnHeader22 ' Me.ColumnHeader22.Text = "ID" Me.ColumnHeader22.Width = 20 ' 'ColumnHeader23 ' Me.ColumnHeader23.Text = "Display" Me.ColumnHeader23.Width = 160 ' 'SelStatus ' Me.SelStatus.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader20, Me.ColumnHeader21}) Me.SelStatus.ContextMenu = Me.ctmenu1 Me.SelStatus.FullRowSelect = True Me.SelStatus.Location = New System.Drawing.Point(304, 120) Me.SelStatus.Name = "SelStatus" Me.SelStatus.Size = New System.Drawing.Size(240, 72) Me.SelStatus.TabIndex = 50 Me.SelStatus.View = System.Windows.Forms.View.Details ' 'ColumnHeader20 ' Me.ColumnHeader20.Text = "ID" Me.ColumnHeader20.Width = 20 ' 'ColumnHeader21 ' Me.ColumnHeader21.Text = "Display" Me.ColumnHeader21.Width = 160 ' 'SelDokumentart ' Me.SelDokumentart.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader18, Me.ColumnHeader19}) Me.SelDokumentart.ContextMenu = Me.ctmenu1 Me.SelDokumentart.FullRowSelect = True Me.SelDokumentart.Location = New System.Drawing.Point(304, 16) Me.SelDokumentart.Name = "SelDokumentart" Me.SelDokumentart.Size = New System.Drawing.Size(240, 97) Me.SelDokumentart.TabIndex = 49 Me.SelDokumentart.View = System.Windows.Forms.View.Details ' 'ColumnHeader18 ' Me.ColumnHeader18.Text = "ID" Me.ColumnHeader18.Width = 20 ' 'ColumnHeader19 ' Me.ColumnHeader19.Text = "Display" Me.ColumnHeader19.Width = 160 ' 'cbStatus ' Me.cbStatus.Location = New System.Drawing.Point(96, 120) Me.cbStatus.Name = "cbStatus" Me.cbStatus.Size = New System.Drawing.Size(176, 21) Me.cbStatus.TabIndex = 48 Me.cbStatus.Text = "ComboBox11" ' 'cbDokumentart ' Me.cbDokumentart.Location = New System.Drawing.Point(96, 16) Me.cbDokumentart.Name = "cbDokumentart" Me.cbDokumentart.Size = New System.Drawing.Size(176, 21) Me.cbDokumentart.TabIndex = 46 Me.cbDokumentart.Text = "ComboBox12" ' 'txtDokumentID ' Me.txtDokumentID.Location = New System.Drawing.Point(96, 200) Me.txtDokumentID.Name = "txtDokumentID" Me.txtDokumentID.Size = New System.Drawing.Size(176, 20) Me.txtDokumentID.TabIndex = 44 Me.txtDokumentID.Text = "" ' 'Label18 ' Me.Label18.Location = New System.Drawing.Point(8, 408) Me.Label18.Name = "Label18" Me.Label18.TabIndex = 41 Me.Label18.Text = "Archivierung bis" ' 'Label17 ' Me.Label17.Location = New System.Drawing.Point(8, 384) Me.Label17.Name = "Label17" Me.Label17.TabIndex = 40 Me.Label17.Text = "Archivierung von" ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(8, 360) Me.Label16.Name = "Label16" Me.Label16.TabIndex = 39 Me.Label16.Text = "Mutation bis" ' 'Label15 ' Me.Label15.Location = New System.Drawing.Point(8, 336) Me.Label15.Name = "Label15" Me.Label15.TabIndex = 38 Me.Label15.Text = "Mutation von" ' 'Label14 ' Me.Label14.Location = New System.Drawing.Point(8, 312) Me.Label14.Name = "Label14" Me.Label14.TabIndex = 37 Me.Label14.Text = "Erstellung bis" ' 'Label13 ' Me.Label13.Location = New System.Drawing.Point(8, 288) Me.Label13.Name = "Label13" Me.Label13.TabIndex = 36 Me.Label13.Text = "Erstellung von" ' 'DateTimePicker6 ' Me.DateTimePicker6.Format = System.Windows.Forms.DateTimePickerFormat.Short Me.DateTimePicker6.Location = New System.Drawing.Point(120, 408) Me.DateTimePicker6.Name = "DateTimePicker6" Me.DateTimePicker6.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker6.TabIndex = 35 ' 'DateTimePicker5 ' Me.DateTimePicker5.Format = System.Windows.Forms.DateTimePickerFormat.Short Me.DateTimePicker5.Location = New System.Drawing.Point(120, 384) Me.DateTimePicker5.Name = "DateTimePicker5" Me.DateTimePicker5.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker5.TabIndex = 34 ' 'DateTimePicker4 ' Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.Short Me.DateTimePicker4.Location = New System.Drawing.Point(120, 360) Me.DateTimePicker4.Name = "DateTimePicker4" Me.DateTimePicker4.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker4.TabIndex = 33 ' 'DateTimePicker3 ' Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Short Me.DateTimePicker3.Location = New System.Drawing.Point(120, 336) Me.DateTimePicker3.Name = "DateTimePicker3" Me.DateTimePicker3.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker3.TabIndex = 32 ' 'DateTimePicker2 ' Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Short Me.DateTimePicker2.Location = New System.Drawing.Point(120, 312) Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker2.TabIndex = 31 ' 'DateTimePicker1 ' Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Short Me.DateTimePicker1.Location = New System.Drawing.Point(120, 287) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker1.TabIndex = 30 ' 'Label12 ' Me.Label12.Location = New System.Drawing.Point(8, 200) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(72, 16) Me.Label12.TabIndex = 29 Me.Label12.Text = "Dokument-ID" ' 'Label11 ' Me.Label11.Location = New System.Drawing.Point(304, 280) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(48, 16) Me.Label11.TabIndex = 25 Me.Label11.Text = "Partner" ' 'Button12 ' Me.Button12.Image = CType(resources.GetObject("Button12.Image"), System.Drawing.Bitmap) Me.Button12.Location = New System.Drawing.Point(512, 272) Me.Button12.Name = "Button12" Me.Button12.Size = New System.Drawing.Size(32, 32) Me.Button12.TabIndex = 24 ' 'Label10 ' Me.Label10.Location = New System.Drawing.Point(8, 120) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(88, 16) Me.Label10.TabIndex = 21 Me.Label10.Text = "Dokumentstatus" ' 'Label9 ' Me.Label9.Location = New System.Drawing.Point(8, 16) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(80, 16) Me.Label9.TabIndex = 17 Me.Label9.Text = "Dokumentart" ' 'TabPage4 ' Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox9, Me.GroupBox5}) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" Me.TabPage4.Size = New System.Drawing.Size(576, 493) Me.TabPage4.TabIndex = 3 Me.TabPage4.Text = "Unterschriften / Hinweise" ' 'GroupBox9 ' Me.GroupBox9.Controls.AddRange(New System.Windows.Forms.Control() {Me.cb5, Me.cb4, Me.cb3, Me.cb2, Me.cb1}) Me.GroupBox9.Location = New System.Drawing.Point(160, 158) Me.GroupBox9.Name = "GroupBox9" Me.GroupBox9.Size = New System.Drawing.Size(256, 176) Me.GroupBox9.TabIndex = 7 Me.GroupBox9.TabStop = False Me.GroupBox9.Text = "Informationsmeldungen" ' 'cb5 ' Me.cb5.Location = New System.Drawing.Point(8, 120) Me.cb5.Name = "cb5" Me.cb5.Size = New System.Drawing.Size(232, 32) Me.cb5.TabIndex = 9 Me.cb5.Text = "Meldung XY5 anzeigen" ' 'cb4 ' Me.cb4.Location = New System.Drawing.Point(8, 96) Me.cb4.Name = "cb4" Me.cb4.Size = New System.Drawing.Size(232, 32) Me.cb4.TabIndex = 8 Me.cb4.Text = "Meldung XY4 anzeigen" ' 'cb3 ' Me.cb3.Location = New System.Drawing.Point(8, 72) Me.cb3.Name = "cb3" Me.cb3.Size = New System.Drawing.Size(232, 32) Me.cb3.TabIndex = 7 Me.cb3.Text = "Meldung XY3 anzeigen" ' 'cb2 ' Me.cb2.Location = New System.Drawing.Point(8, 48) Me.cb2.Name = "cb2" Me.cb2.Size = New System.Drawing.Size(232, 32) Me.cb2.TabIndex = 6 Me.cb2.Text = "Meldung XY2 anzeigen" ' 'cb1 ' Me.cb1.Location = New System.Drawing.Point(8, 24) Me.cb1.Name = "cb1" Me.cb1.Size = New System.Drawing.Size(232, 32) Me.cb1.TabIndex = 5 Me.cb1.Text = "Meldung XY1 anzeigen" ' 'GroupBox5 ' Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label31, Me.cbUnterschriftrechts, Me.Label30, Me.cbUnterschriftlinks}) Me.GroupBox5.Location = New System.Drawing.Point(64, 24) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(400, 104) Me.GroupBox5.TabIndex = 2 Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Unterschriften" ' 'Label31 ' Me.Label31.Location = New System.Drawing.Point(24, 56) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(72, 23) Me.Label31.TabIndex = 8 Me.Label31.Text = "Rechts" ' 'cbUnterschriftrechts ' Me.cbUnterschriftrechts.Location = New System.Drawing.Point(112, 56) Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts" Me.cbUnterschriftrechts.Size = New System.Drawing.Size(272, 21) Me.cbUnterschriftrechts.TabIndex = 7 ' 'Label30 ' Me.Label30.Location = New System.Drawing.Point(24, 24) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(72, 23) Me.Label30.TabIndex = 6 Me.Label30.Text = "Links" ' 'cbUnterschriftlinks ' Me.cbUnterschriftlinks.Location = New System.Drawing.Point(112, 24) Me.cbUnterschriftlinks.Name = "cbUnterschriftlinks" Me.cbUnterschriftlinks.Size = New System.Drawing.Size(272, 21) Me.cbUnterschriftlinks.TabIndex = 5 ' 'TabPage2 ' Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.GroupBox4}) Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Size = New System.Drawing.Size(576, 493) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Darstellung / Sortierung" ' 'GroupBox1 ' Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.colbtn6, Me.colbtn5, Me.colbtn4, Me.colbtn3, Me.colbtn2, Me.colbtn1, Me.Label38, Me.Label37, Me.Label19, Me.Label20, Me.Label26, Me.Label27}) Me.GroupBox1.Location = New System.Drawing.Point(56, 24) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(464, 184) Me.GroupBox1.TabIndex = 3 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Farbgebung der Dokumentliste" ' 'Label38 ' Me.Label38.Location = New System.Drawing.Point(8, 152) Me.Label38.Name = "Label38" Me.Label38.Size = New System.Drawing.Size(80, 24) Me.Label38.TabIndex = 19 Me.Label38.Text = "Überfällig" ' 'Label37 ' Me.Label37.Location = New System.Drawing.Point(8, 120) Me.Label37.Name = "Label37" Me.Label37.Size = New System.Drawing.Size(80, 24) Me.Label37.TabIndex = 17 Me.Label37.Text = "Terminiert" ' 'Label19 ' Me.Label19.Location = New System.Drawing.Point(8, 88) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(80, 24) Me.Label19.TabIndex = 15 Me.Label19.Text = "In Bearbeitung" ' 'Label20 ' Me.Label20.Location = New System.Drawing.Point(240, 24) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(80, 24) Me.Label20.TabIndex = 6 Me.Label20.Text = "Pendent" ' 'Label26 ' Me.Label26.Location = New System.Drawing.Point(8, 56) Me.Label26.Name = "Label26" Me.Label26.Size = New System.Drawing.Size(80, 24) Me.Label26.TabIndex = 5 Me.Label26.Text = "Verantwortlich" ' 'Label27 ' Me.Label27.Location = New System.Drawing.Point(8, 24) Me.Label27.Name = "Label27" Me.Label27.Size = New System.Drawing.Size(80, 24) Me.Label27.TabIndex = 4 Me.Label27.Text = "Standard" ' 'GroupBox4 ' Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button14, Me.Button15, Me.cbSorttype, Me.Label22, Me.Label21, Me.lbselectedsortfields, Me.lbSortfields}) Me.GroupBox4.Location = New System.Drawing.Point(56, 232) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(464, 200) Me.GroupBox4.TabIndex = 2 Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Sortierung der Dokumentliste" ' 'Button14 ' Me.Button14.Image = CType(resources.GetObject("Button14.Image"), System.Drawing.Bitmap) Me.Button14.Location = New System.Drawing.Point(176, 112) Me.Button14.Name = "Button14" Me.Button14.Size = New System.Drawing.Size(40, 40) Me.Button14.TabIndex = 6 ' 'Button15 ' Me.Button15.Image = CType(resources.GetObject("Button15.Image"), System.Drawing.Bitmap) Me.Button15.Location = New System.Drawing.Point(176, 64) Me.Button15.Name = "Button15" Me.Button15.Size = New System.Drawing.Size(40, 40) Me.Button15.TabIndex = 5 ' 'cbSorttype ' Me.cbSorttype.Items.AddRange(New Object() {"Desc", "Asc"}) Me.cbSorttype.Location = New System.Drawing.Point(376, 48) Me.cbSorttype.Name = "cbSorttype" Me.cbSorttype.Size = New System.Drawing.Size(80, 21) Me.cbSorttype.TabIndex = 4 Me.cbSorttype.Text = "Desc" ' 'Label22 ' Me.Label22.Location = New System.Drawing.Point(232, 32) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(100, 16) Me.Label22.TabIndex = 3 Me.Label22.Text = "Sortierung nach" ' 'Label21 ' Me.Label21.Location = New System.Drawing.Point(16, 32) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(100, 16) Me.Label21.TabIndex = 2 Me.Label21.Text = "Mögliche Felder" ' 'lbselectedsortfields ' Me.lbselectedsortfields.Location = New System.Drawing.Point(232, 48) Me.lbselectedsortfields.Name = "lbselectedsortfields" Me.lbselectedsortfields.Size = New System.Drawing.Size(136, 134) Me.lbselectedsortfields.TabIndex = 1 ' 'lbSortfields ' Me.lbSortfields.Items.AddRange(New Object() {"Bezeichnung", "Dokumentart", "Ersteller", "Erstellt_am", "Mutierer", "Mutiert_am", "Status", "Statusdatum", "Verantwortlich"}) Me.lbSortfields.Location = New System.Drawing.Point(16, 48) Me.lbSortfields.Name = "lbSortfields" Me.lbSortfields.Size = New System.Drawing.Size(136, 134) Me.lbSortfields.Sorted = True Me.lbSortfields.TabIndex = 0 ' 'TabPage3 ' Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl3}) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Size = New System.Drawing.Size(576, 493) Me.TabPage3.TabIndex = 6 Me.TabPage3.Text = "Profil unabhängige Einstellungen" ' 'TabControl3 ' Me.TabControl3.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage5, Me.TabPage10}) Me.TabControl3.Location = New System.Drawing.Point(0, 8) Me.TabControl3.Name = "TabControl3" Me.TabControl3.SelectedIndex = 0 Me.TabControl3.Size = New System.Drawing.Size(568, 480) Me.TabControl3.TabIndex = 0 ' 'TabPage5 ' Me.TabPage5.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox7, Me.GroupBox6}) Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Size = New System.Drawing.Size(560, 454) Me.TabPage5.TabIndex = 0 Me.TabPage5.Text = "Mail-Einstellungen / Persönliche Daten" ' 'GroupBox7 ' Me.GroupBox7.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label35, Me.txtFunktion, Me.Label34, Me.txtTelefax, Me.Label33, Me.txtTelefon}) Me.GroupBox7.Location = New System.Drawing.Point(80, 224) Me.GroupBox7.Name = "GroupBox7" Me.GroupBox7.Size = New System.Drawing.Size(384, 136) Me.GroupBox7.TabIndex = 25 Me.GroupBox7.TabStop = False Me.GroupBox7.Text = "Persönliche Daten" ' 'Label35 ' Me.Label35.Location = New System.Drawing.Point(16, 88) Me.Label35.Name = "Label35" Me.Label35.Size = New System.Drawing.Size(48, 16) Me.Label35.TabIndex = 10 Me.Label35.Text = "Funktion" ' 'txtFunktion ' Me.txtFunktion.Location = New System.Drawing.Point(72, 88) Me.txtFunktion.Name = "txtFunktion" Me.txtFunktion.Size = New System.Drawing.Size(168, 20) Me.txtFunktion.TabIndex = 9 Me.txtFunktion.Text = "TextBox4" ' 'Label34 ' Me.Label34.Location = New System.Drawing.Point(16, 56) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(48, 16) Me.Label34.TabIndex = 8 Me.Label34.Text = "Telefax" ' 'txtTelefax ' Me.txtTelefax.Location = New System.Drawing.Point(72, 56) Me.txtTelefax.Name = "txtTelefax" Me.txtTelefax.Size = New System.Drawing.Size(168, 20) Me.txtTelefax.TabIndex = 7 Me.txtTelefax.Text = "TextBox3" ' 'Label33 ' Me.Label33.Location = New System.Drawing.Point(16, 24) Me.Label33.Name = "Label33" Me.Label33.Size = New System.Drawing.Size(48, 16) Me.Label33.TabIndex = 6 Me.Label33.Text = "Telefon" ' 'txtTelefon ' Me.txtTelefon.Location = New System.Drawing.Point(72, 24) Me.txtTelefon.Name = "txtTelefon" Me.txtTelefon.Size = New System.Drawing.Size(168, 20) Me.txtTelefon.TabIndex = 5 Me.txtTelefon.Text = "TextBox2" ' 'GroupBox6 ' Me.GroupBox6.Controls.AddRange(New System.Windows.Forms.Control() {Me.cEdokaMessage, Me.cMailDirekt, Me.Label32, Me.txtMailadresse, Me.cmailempfang}) Me.GroupBox6.Location = New System.Drawing.Point(80, 24) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(384, 176) Me.GroupBox6.TabIndex = 24 Me.GroupBox6.TabStop = False Me.GroupBox6.Text = "Maileinstellungen" ' 'cEdokaMessage ' Me.cEdokaMessage.Location = New System.Drawing.Point(16, 88) Me.cEdokaMessage.Name = "cEdokaMessage" Me.cEdokaMessage.Size = New System.Drawing.Size(360, 24) Me.cEdokaMessage.TabIndex = 5 Me.cEdokaMessage.Text = "EDOKA-Informationsmeldung bei Dokumentzuweisung empfangen" ' 'cMailDirekt ' Me.cMailDirekt.Location = New System.Drawing.Point(16, 136) Me.cMailDirekt.Name = "cMailDirekt" Me.cMailDirekt.Size = New System.Drawing.Size(240, 24) Me.cMailDirekt.TabIndex = 4 Me.cMailDirekt.Text = "Direkt versenden" ' 'Label32 ' Me.Label32.Location = New System.Drawing.Point(16, 56) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(48, 16) Me.Label32.TabIndex = 2 Me.Label32.Text = "Adresse" ' 'txtMailadresse ' Me.txtMailadresse.Location = New System.Drawing.Point(64, 56) Me.txtMailadresse.Name = "txtMailadresse" Me.txtMailadresse.Size = New System.Drawing.Size(168, 20) Me.txtMailadresse.TabIndex = 1 Me.txtMailadresse.Text = "TextBox1" ' 'cmailempfang ' Me.cmailempfang.Location = New System.Drawing.Point(16, 24) Me.cmailempfang.Name = "cmailempfang" Me.cmailempfang.Size = New System.Drawing.Size(240, 24) Me.cmailempfang.TabIndex = 0 Me.cmailempfang.Text = "Mail bei Dokumentzuweisung empfangen" ' 'TabPage10 ' Me.TabPage10.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox8}) Me.TabPage10.Location = New System.Drawing.Point(4, 22) Me.TabPage10.Name = "TabPage10" Me.TabPage10.Size = New System.Drawing.Size(560, 454) Me.TabPage10.TabIndex = 1 Me.TabPage10.Text = "Stellvertretungen" ' 'GroupBox8 ' Me.GroupBox8.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button16, Me.Button17, Me.ListView1}) Me.GroupBox8.Location = New System.Drawing.Point(64, 48) Me.GroupBox8.Name = "GroupBox8" Me.GroupBox8.Size = New System.Drawing.Size(432, 272) Me.GroupBox8.TabIndex = 4 Me.GroupBox8.TabStop = False Me.GroupBox8.Text = "Stellvertretungen" ' 'Button16 ' Me.Button16.Location = New System.Drawing.Point(120, 240) Me.Button16.Name = "Button16" Me.Button16.Size = New System.Drawing.Size(96, 24) Me.Button16.TabIndex = 2 Me.Button16.Text = "Löschen" ' 'Button17 ' Me.Button17.Location = New System.Drawing.Point(16, 240) Me.Button17.Name = "Button17" Me.Button17.Size = New System.Drawing.Size(96, 24) Me.Button17.TabIndex = 1 Me.Button17.Text = "Hinzufügen" ' 'ListView1 ' Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3}) ListViewItem1.Tag = "Max Muster" Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1}) Me.ListView1.Location = New System.Drawing.Point(8, 16) Me.ListView1.Name = "ListView1" Me.ListView1.Size = New System.Drawing.Size(408, 216) Me.ListView1.TabIndex = 0 Me.ListView1.View = System.Windows.Forms.View.Details ' 'ColumnHeader1 ' Me.ColumnHeader1.Text = "Stellvertreter" ' 'ColumnHeader2 ' Me.ColumnHeader2.Text = "Von" ' 'ColumnHeader3 ' Me.ColumnHeader3.Text = "Bis" ' 'CTMenuErsteller ' Me.CTMenuErsteller.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem15, Me.MenuItem16, Me.MenuItem18, Me.MenuItem19}) ' 'MenuItem15 ' Me.MenuItem15.Index = 0 Me.MenuItem15.Text = "&Eintrag selektieren" ' 'MenuItem16 ' Me.MenuItem16.Index = 1 Me.MenuItem16.Text = "&Selektion aufheben" ' 'MenuItem18 ' Me.MenuItem18.Index = 2 Me.MenuItem18.Text = "-" ' 'MenuItem19 ' Me.MenuItem19.Index = 3 Me.MenuItem19.Text = "&Alle aufheben" ' 'CTMenuVerantwortlicher ' Me.CTMenuVerantwortlicher.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem20, Me.MenuItem21, Me.MenuItem22, Me.MenuItem23}) ' 'MenuItem20 ' Me.MenuItem20.Index = 0 Me.MenuItem20.Text = "&Eintrag selektieren" ' 'MenuItem21 ' Me.MenuItem21.Index = 1 Me.MenuItem21.Text = "&Selektion aufheben" ' 'MenuItem22 ' Me.MenuItem22.Index = 2 Me.MenuItem22.Text = "-" ' 'MenuItem23 ' Me.MenuItem23.Index = 3 Me.MenuItem23.Text = "&Alle aufheben" ' 'CTMenuMutierer ' Me.CTMenuMutierer.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem24, Me.MenuItem25, Me.MenuItem26, Me.MenuItem27}) ' 'MenuItem24 ' Me.MenuItem24.Index = 0 Me.MenuItem24.Text = "&Eintrag selektieren" ' 'MenuItem25 ' Me.MenuItem25.Index = 1 Me.MenuItem25.Text = "&Selektion aufheben" ' 'MenuItem26 ' Me.MenuItem26.Index = 2 Me.MenuItem26.Text = "-" ' 'MenuItem27 ' Me.MenuItem27.Index = 3 Me.MenuItem27.Text = "&Alle aufheben" ' '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", "pv_profil_select", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("profilnr", "profilnr"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("standard", "standard"), 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("mb", "mb"), New System.Data.Common.DataColumnMapping("nl", "nl"), New System.Data.Common.DataColumnMapping("kost", "kost"), New System.Data.Common.DataColumnMapping("team", "team"), New System.Data.Common.DataColumnMapping("kube", "kube"), New System.Data.Common.DataColumnMapping("verantwortlich", "verantwortlich"), New System.Data.Common.DataColumnMapping("ersteller", "ersteller"), New System.Data.Common.DataColumnMapping("mutierer1", "mutierer1"), New System.Data.Common.DataColumnMapping("erstellung_ab", "erstellung_ab"), New System.Data.Common.DataColumnMapping("erstellung_bis", "erstellung_bis"), New System.Data.Common.DataColumnMapping("mutation_von", "mutation_von"), New System.Data.Common.DataColumnMapping("mutation_bis", "mutation_bis"), New System.Data.Common.DataColumnMapping("archivierung_von", "archivierung_von"), New System.Data.Common.DataColumnMapping("archivierung_bis", "archivierung_bis"), New System.Data.Common.DataColumnMapping("dokumetnart", "dokumetnart"), New System.Data.Common.DataColumnMapping("dokumentstatus", "dokumentstatus"), New System.Data.Common.DataColumnMapping("partner", "partner"), New System.Data.Common.DataColumnMapping("dokumentid", "dokumentid"), New System.Data.Common.DataColumnMapping("soertierung", "soertierung"), New System.Data.Common.DataColumnMapping("color1", "color1"), New System.Data.Common.DataColumnMapping("color2", "color2"), New System.Data.Common.DataColumnMapping("color3", "color3"), New System.Data.Common.DataColumnMapping("color4", "color4"), New System.Data.Common.DataColumnMapping("color5", "color5"), New System.Data.Common.DataColumnMapping("color6", "color6"), New System.Data.Common.DataColumnMapping("color7", "color7"), New System.Data.Common.DataColumnMapping("color8", "color8"), New System.Data.Common.DataColumnMapping("unterschriftlinks", "unterschriftlinks"), New System.Data.Common.DataColumnMapping("unterschriftrechts", "unterschriftrechts"), New System.Data.Common.DataColumnMapping("hw1", "hw1"), New System.Data.Common.DataColumnMapping("hw2", "hw2"), New System.Data.Common.DataColumnMapping("hw3", "hw3"), New System.Data.Common.DataColumnMapping("hw4", "hw4"), New System.Data.Common.DataColumnMapping("hw5", "hw5"), New System.Data.Common.DataColumnMapping("hw6", "hw6"), New System.Data.Common.DataColumnMapping("hw7", "hw7"), New System.Data.Common.DataColumnMapping("hw8", "hw8"), New System.Data.Common.DataColumnMapping("hw9", "hw9"), New System.Data.Common.DataColumnMapping("hw10", "hw10"), New System.Data.Common.DataColumnMapping("hw11", "hw11")})}) Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1 ' 'SqlDeleteCommand1 ' Me.SqlDeleteCommand1.CommandText = "[pv_profil_delete]" Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand1.Connection = Me.SqlConnection1 Me.SqlDeleteCommand1.Parameters.Add(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)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "profilnr", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(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)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_archivierung_bis", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "archivierung_bis", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_archivierung_von", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "archivierung_von", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(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)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentid", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentid", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumetnart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumetnart", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ersteller", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ersteller", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(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)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellung_ab", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellung_ab", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellung_bis", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellung_bis", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kost", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kube", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kube", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mb", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutation_bis", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutation_bis", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutation_von", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutation_von", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer1", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer1", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(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)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nl", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partner", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_soertierung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "soertierung", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "standard", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_team", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "team", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Original, Nothing)) Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_verantwortlich", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "verantwortlich", System.Data.DataRowVersion.Original, Nothing)) ' 'SqlConnection1 ' Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _ "station id=SHU;packet size=4096" ' 'SqlInsertCommand1 ' Me.SqlInsertCommand1.CommandText = "[pv_profil_insert]" Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand1.Connection = Me.SqlConnection1 Me.SqlInsertCommand1.Parameters.Add(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)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "profilnr", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mb", System.Data.SqlDbType.VarChar, 255, "mb")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nl", System.Data.SqlDbType.VarChar, 255, "nl")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kost", System.Data.SqlDbType.VarChar, 255, "kost")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.VarChar, 255, "team")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kube", System.Data.SqlDbType.VarChar, 255, "kube")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@verantwortlich", System.Data.SqlDbType.VarChar, 255, "verantwortlich")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ersteller", System.Data.SqlDbType.VarChar, 255, "ersteller")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer1", System.Data.SqlDbType.VarChar, 255, "mutierer1")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellung_ab", System.Data.SqlDbType.DateTime, 8, "erstellung_ab")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellung_bis", System.Data.SqlDbType.DateTime, 8, "erstellung_bis")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutation_von", System.Data.SqlDbType.DateTime, 8, "mutation_von")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutation_bis", System.Data.SqlDbType.DateTime, 8, "mutation_bis")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@archivierung_von", System.Data.SqlDbType.DateTime, 8, "archivierung_von")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@archivierung_bis", System.Data.SqlDbType.DateTime, 8, "archivierung_bis")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumetnart", System.Data.SqlDbType.VarChar, 255, "dokumetnart")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.VarChar, 255, "dokumentstatus")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partner", System.Data.SqlDbType.VarChar, 255, "partner")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentid", System.Data.SqlDbType.VarChar, 255, "dokumentid")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@soertierung", System.Data.SqlDbType.VarChar, 255, "soertierung")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Current, Nothing)) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Current, Nothing)) ' 'SqlSelectCommand1 ' Me.SqlSelectCommand1.CommandText = "[pv_profil_select]" Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand1.Connection = Me.SqlConnection1 Me.SqlSelectCommand1.Parameters.Add(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)) Me.SqlSelectCommand1.Parameters.Add(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)) Me.SqlSelectCommand1.Parameters.Add(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)) ' 'SqlUpdateCommand1 ' Me.SqlUpdateCommand1.CommandText = "[pv_profil_update]" Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand1.Connection = Me.SqlConnection1 Me.SqlUpdateCommand1.Parameters.Add(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)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "profilnr", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mb", System.Data.SqlDbType.VarChar, 255, "mb")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nl", System.Data.SqlDbType.VarChar, 255, "nl")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kost", System.Data.SqlDbType.VarChar, 255, "kost")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.VarChar, 255, "team")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kube", System.Data.SqlDbType.VarChar, 255, "kube")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@verantwortlich", System.Data.SqlDbType.VarChar, 255, "verantwortlich")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ersteller", System.Data.SqlDbType.VarChar, 255, "ersteller")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer1", System.Data.SqlDbType.VarChar, 255, "mutierer1")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellung_ab", System.Data.SqlDbType.DateTime, 8, "erstellung_ab")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellung_bis", System.Data.SqlDbType.DateTime, 8, "erstellung_bis")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutation_von", System.Data.SqlDbType.DateTime, 8, "mutation_von")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutation_bis", System.Data.SqlDbType.DateTime, 8, "mutation_bis")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@archivierung_von", System.Data.SqlDbType.DateTime, 8, "archivierung_von")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@archivierung_bis", System.Data.SqlDbType.DateTime, 8, "archivierung_bis")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumetnart", System.Data.SqlDbType.VarChar, 255, "dokumetnart")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.VarChar, 255, "dokumentstatus")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partner", System.Data.SqlDbType.VarChar, 255, "partner")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentid", System.Data.SqlDbType.VarChar, 255, "dokumentid")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@soertierung", System.Data.SqlDbType.VarChar, 255, "soertierung")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "profilnr", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, "aktiv")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_archivierung_bis", System.Data.SqlDbType.DateTime, 8, "archivierung_bis")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_archivierung_von", System.Data.SqlDbType.DateTime, 8, "archivierung_von")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentid", System.Data.SqlDbType.VarChar, 255, "dokumentid")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.VarChar, 255, "dokumentstatus")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumetnart", System.Data.SqlDbType.VarChar, 255, "dokumetnart")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ersteller", System.Data.SqlDbType.VarChar, 255, "ersteller")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellung_ab", System.Data.SqlDbType.DateTime, 8, "erstellung_ab")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellung_bis", System.Data.SqlDbType.DateTime, 8, "erstellung_bis")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kost", System.Data.SqlDbType.VarChar, 255, "kost")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kube", System.Data.SqlDbType.VarChar, 255, "kube")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mb", System.Data.SqlDbType.VarChar, 255, "mb")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutation_bis", System.Data.SqlDbType.DateTime, 8, "mutation_bis")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutation_von", System.Data.SqlDbType.DateTime, 8, "mutation_von")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer1", System.Data.SqlDbType.VarChar, 255, "mutierer1")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nl", System.Data.SqlDbType.VarChar, 255, "nl")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partner", System.Data.SqlDbType.VarChar, 255, "partner")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_soertierung", System.Data.SqlDbType.VarChar, 255, "soertierung")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, "standard")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_team", System.Data.SqlDbType.VarChar, 255, "team")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Current, Nothing)) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_verantwortlich", System.Data.SqlDbType.VarChar, 255, "verantwortlich")) ' 'DataSet1 ' Me.DataSet1.DataSetName = "NewDataSet" Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH") ' 'colbtn1 ' Me.colbtn1.Location = New System.Drawing.Point(88, 24) Me.colbtn1.Name = "colbtn1" Me.colbtn1.Size = New System.Drawing.Size(24, 20) Me.colbtn1.TabIndex = 38 ' 'colbtn2 ' Me.colbtn2.Location = New System.Drawing.Point(88, 56) Me.colbtn2.Name = "colbtn2" Me.colbtn2.Size = New System.Drawing.Size(24, 20) Me.colbtn2.TabIndex = 39 ' 'colbtn3 ' Me.colbtn3.Location = New System.Drawing.Point(88, 88) Me.colbtn3.Name = "colbtn3" Me.colbtn3.Size = New System.Drawing.Size(24, 20) Me.colbtn3.TabIndex = 40 ' 'colbtn4 ' Me.colbtn4.Location = New System.Drawing.Point(88, 120) Me.colbtn4.Name = "colbtn4" Me.colbtn4.Size = New System.Drawing.Size(24, 20) Me.colbtn4.TabIndex = 41 ' 'colbtn5 ' Me.colbtn5.Location = New System.Drawing.Point(88, 152) Me.colbtn5.Name = "colbtn5" Me.colbtn5.Size = New System.Drawing.Size(24, 20) Me.colbtn5.TabIndex = 42 ' 'colbtn6 ' Me.colbtn6.Location = New System.Drawing.Point(320, 24) Me.colbtn6.Name = "colbtn6" Me.colbtn6.Size = New System.Drawing.Size(24, 20) Me.colbtn6.TabIndex = 43 ' 'frmProfil ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(784, 577) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1, Me.Button4, Me.Panel2, Me.Panel1, Me.ToolBar1}) Me.Menu = Me.MainMenu1 Me.Name = "frmProfil" Me.Text = "Profile verwalten" Me.Panel2.ResumeLayout(False) Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabControl2.ResumeLayout(False) Me.TabPage7.ResumeLayout(False) Me.TabPage9.ResumeLayout(False) Me.TabPage8.ResumeLayout(False) Me.TabPage4.ResumeLayout(False) Me.GroupBox9.ResumeLayout(False) Me.GroupBox5.ResumeLayout(False) Me.TabPage2.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.GroupBox4.ResumeLayout(False) Me.TabPage3.ResumeLayout(False) Me.TabControl3.ResumeLayout(False) Me.TabPage5.ResumeLayout(False) Me.GroupBox7.ResumeLayout(False) Me.GroupBox6.ResumeLayout(False) Me.TabPage10.ResumeLayout(False) Me.GroupBox8.ResumeLayout(False) CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region #Region "Deklarationen" Dim lbentry(1) As Object Dim i As Integer Dim m_profilnr As Integer Dim changes As Boolean Property ProfilNr() As Integer Get Return m_profilnr End Get Set(ByVal Value As Integer) m_profilnr = Value End Set End Property Dim On_Load As Boolean #End Region Dim WithEvents mcbMarktbereich As New MultiComboBox() Dim WithEvents mcbKostenstelle As New MultiComboBox() Dim WithEvents mcbNiederlassung As New MultiComboBox() Dim WithEvents mcbTeam As New MultiComboBox() Dim WithEvents mcbstatus As New MultiComboBox() Dim WithEvents mcbdokumentart As New MultiComboBox() Dim WithEvents mcbkube As New MultiComboBox() Dim WithEvents mcbdokumentverantwortlich As New MultiComboBox() Dim WithEvents mcbersteller As New MultiComboBox() Dim WithEvents mcbmutierer As New MultiComboBox() Dim WithEvents mcbunterschriftlinks As New MultiComboBox() Dim WithEvents mcbunterschriftrechts As New MultiComboBox() Dim li As ListViewItem Dim ActiveList As Integer Dim first As Boolean = True #Region "Formularhandling" Private Sub frmProfil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On_Load = True changes = False Me.Profile.Nodes.Clear() Me.DataSet1.Clear() 'Personendaten If first Then mcbMarktbereich = New MultiComboBox(Me.cbMarktbereich) Me.mcbMarktbereich.DisplayColumnName = "bezeichnung" Me.mcbMarktbereich.ValueColumnName = "marktbereichnr" Me.mcbMarktbereich.Fill_Data(Generic_Select(3)) Me.mcbMarktbereich.Visible = True mcbNiederlassung = New MultiComboBox(Me.cbNiederlassung) Me.mcbNiederlassung.DisplayColumnName = "bezeichnung" Me.mcbNiederlassung.ValueColumnName = "niederlassungnr" Me.mcbNiederlassung.Fill_Data(Generic_Select(4)) Me.mcbNiederlassung.Visible = True mcbKostenstelle = New MultiComboBox(Me.cbKostenstelle) Me.mcbKostenstelle.DisplayColumnName = "bezeichnung" Me.mcbKostenstelle.ValueColumnName = "kostenstellenr" Me.mcbKostenstelle.Fill_Data(Generic_Select(5)) Me.mcbKostenstelle.Visible = True mcbTeam = New MultiComboBox(Me.cbTeam) Me.mcbTeam.DisplayColumnName = "bezeichnung" Me.mcbTeam.ValueColumnName = "teamnr" Me.mcbTeam.Fill_Data(Generic_Select(6)) Me.mcbTeam.Visible = True mcbstatus = New MultiComboBox(Me.cbStatus) Me.mcbstatus.DisplayColumnName = "bezeichnung" Me.mcbstatus.ValueColumnName = "status_bezeichnungnr" Me.mcbstatus.Fill_Data(Generic_Select(2)) Me.mcbstatus.Visible = True mcbdokumentart = New MultiComboBox(Me.cbDokumentart) Me.mcbdokumentart.DisplayColumnName = "bezeichnung" Me.mcbdokumentart.ValueColumnName = "dokumentartnr" Dim hdata As New edokadb.clsMyDokumentart() Dim hierarchie As New DataTable() hdata.cpMainConnectionProvider = conn hierarchie = hdata.SelectHierarchy_Parametrisierung_By_Root(1) Me.mcbdokumentart.Fill_Data(hierarchie) Me.mcbdokumentart.Visible = True hdata.Dispose() hierarchie.Dispose() Dim persdata As DataTable persdata = Generic_Select(1) mcbkube = New MultiComboBox(Me.cbKundenberater) Me.mcbkube.DisplayColumnName = "name" Me.mcbkube.ValueColumnName = "mitarbeiternr" Me.mcbkube.Fill_Data(persdata) Me.mcbkube.Visible = True mcbdokumentverantwortlich = New MultiComboBox(Me.cbDokumentverantwortlich) Me.mcbdokumentverantwortlich.DisplayColumnName = "name" Me.mcbdokumentverantwortlich.ValueColumnName = "mitarbeiternr" Me.mcbdokumentverantwortlich.Fill_Data(persdata) Me.mcbdokumentverantwortlich.Visible = True mcbersteller = New MultiComboBox(Me.cbErsteller) Me.mcbersteller.DisplayColumnName = "name" Me.mcbersteller.ValueColumnName = "mitarbeiternr" Me.mcbersteller.Fill_Data(persdata) Me.mcbersteller.Visible = True mcbmutierer = New MultiComboBox(Me.cbMutierer) Me.mcbmutierer.DisplayColumnName = "name" Me.mcbmutierer.ValueColumnName = "mitarbeiternr" Me.mcbmutierer.Fill_Data(persdata) Me.mcbmutierer.Visible = True mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks) Me.mcbunterschriftlinks.DisplayColumnName = "name" Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr" Me.mcbunterschriftlinks.Fill_Data(persdata) Me.mcbunterschriftlinks.Visible = True mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts) Me.mcbunterschriftrechts.DisplayColumnName = "name" Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr" Me.mcbunterschriftrechts.Fill_Data(persdata) Me.mcbunterschriftrechts.Visible = True 'Me.lbPartner.Items.Clear() 'Me.lbDokumentID.Items.Clear() 'Listview-Settings Me.selMarktbereich.HeaderStyle = ColumnHeaderStyle.None Me.SelDokumentart.HeaderStyle = ColumnHeaderStyle.None Me.SelDokumentID.HeaderStyle = ColumnHeaderStyle.None Me.selDokumentverantwortlich.HeaderStyle = ColumnHeaderStyle.None Me.SelErsteller.HeaderStyle = ColumnHeaderStyle.None Me.SelKostenstelle.HeaderStyle = ColumnHeaderStyle.None Me.selKundenberater.HeaderStyle = ColumnHeaderStyle.None Me.SelMutierer.HeaderStyle = ColumnHeaderStyle.None Me.selNiederlassung.HeaderStyle = ColumnHeaderStyle.None Me.SelPartner.HeaderStyle = ColumnHeaderStyle.None Me.SelTeam.HeaderStyle = ColumnHeaderStyle.None Me.SelStatus.HeaderStyle = ColumnHeaderStyle.None Me.selMarktbereich.Columns(0).Width = 0 Me.SelDokumentart.Columns(0).Width = 0 Me.SelDokumentID.Columns(0).Width = 0 Me.selDokumentverantwortlich.Columns(0).Width = 0 Me.SelErsteller.Columns(0).Width = 0 Me.SelKostenstelle.Columns(0).Width = 0 Me.selKundenberater.Columns(0).Width = 0 Me.SelMutierer.Columns(0).Width = 0 Me.selNiederlassung.Columns(0).Width = 0 Me.SelPartner.Columns(0).Width = 0 Me.SelTeam.Columns(0).Width = 0 Me.SelStatus.Columns(0).Width = 0 End If Me.SqlConnection1.ConnectionString = Globals.sConnectionString Me.SqlDataAdapter1.SelectCommand.Parameters("@mitarbeiternr").Value = Globals.MitarbeiterNr Me.SqlDataAdapter1.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr Me.SqlDataAdapter1.Fill(Me.DataSet1) Dim tn As New TreeNode() For i = 0 To Me.DataSet1.Tables(0).Rows.Count - 1 tn = Me.Profile.Nodes.Add(Me.DataSet1.Tables(0).Rows(i).Item("bezeichnung")) tn.Tag = Me.DataSet1.Tables(0).Rows(i).Item("profilnr") If Me.DataSet1.Tables(0).Rows(i).Item("standard") Then tn.ImageIndex = 8 tn.SelectedImageIndex = 8 If Me.ProfilNr = 0 Then Me.ProfilNr = tn.Tag Else tn.ImageIndex = 99 tn.SelectedImageIndex = 9 End If Next Load_Profil(Me.ProfilNr) tn = Me.Profile.Nodes(0) Do Until tn Is Nothing If tn.Tag = Me.ProfilNr Then Me.Profile.SelectedNode = tn tn = tn.NextNode Loop On_Load = False first = False End Sub #End Region #Region "ListHandling" Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsel1.Click, btnsel2.Click, btnsel3.Click, _ btnsel4.Click, btnsel5.Click, btnsel6.Click, btnsel7.Click, btnsel8.Click, btnsel9.Click, btnsel10.Click, btnsel11.Click Dim cName As String = CType(sender, System.Windows.Forms.Button).Name Select Case cName Case "btnsel1" li = Me.selMarktbereich.Items.Add(Me.mcbMarktbereich.SelectedValue) li.SubItems.Add(Me.mcbMarktbereich.Text) Case "btnsel2" li = Me.selNiederlassung.Items.Add(Me.mcbNiederlassung.SelectedValue) li.SubItems.Add(Me.mcbNiederlassung.Text) Case "btnsel3" li = Me.SelKostenstelle.Items.Add(Me.mcbKostenstelle.SelectedValue) li.SubItems.Add(Me.mcbKostenstelle.Text) Case "btnsel4" li = Me.SelTeam.Items.Add(Me.mcbTeam.SelectedValue) li.SubItems.Add(Me.mcbTeam.Text) Case "btnsel5" li = Me.selKundenberater.Items.Add(Me.mcbkube.SelectedValue) li.SubItems.Add(Me.mcbkube.Text) Case "btnsel6" li = Me.selDokumentverantwortlich.Items.Add(Me.mcbdokumentverantwortlich.SelectedValue) li.SubItems.Add(Me.mcbdokumentverantwortlich.Text) Case "btnsel7" li = Me.SelErsteller.Items.Add(Me.mcbersteller.SelectedValue) li.SubItems.Add(Me.mcbersteller.Text) Case "btnsel8" li = Me.SelMutierer.Items.Add(Me.mcbmutierer.SelectedValue) li.SubItems.Add(Me.mcbmutierer.Text) Case "btnsel9" li = Me.SelDokumentart.Items.Add(Me.mcbdokumentart.SelectedValue) li.SubItems.Add(Me.mcbdokumentart.Text) Case "btnsel10" li = Me.SelStatus.Items.Add(Me.mcbstatus.SelectedValue) li.SubItems.Add(Me.mcbstatus.Text) Case "btnsel11" li = Me.SelDokumentID.Items.Add(0) li.SubItems.Add(Me.txtDokumentID.Text) Case Else End Select End Sub Private Sub selMarktbereich_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles selMarktbereich.MouseDown ActiveList = 1 End Sub Private Sub selNiederlassung_mousedown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles selNiederlassung.MouseDown ActiveList = 2 End Sub Private Sub selKostenstelle_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SelKostenstelle.MouseDown ActiveList = 3 End Sub Private Sub selTeam_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SelTeam.MouseDown ActiveList = 4 End Sub Private Sub selKundenberater_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles selKundenberater.MouseDown ActiveList = 5 End Sub Private Sub selDokumentverantwortlich_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles selDokumentverantwortlich.MouseDown ActiveList = 6 End Sub Private Sub selErsteller_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SelErsteller.MouseDown ActiveList = 7 End Sub Private Sub selmutierer_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SelMutierer.MouseDown ActiveList = 8 End Sub Private Sub selDokumentart_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SelDokumentart.MouseDown ActiveList = 9 End Sub Private Sub selStatus_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SelStatus.MouseDown ActiveList = 10 End Sub Private Sub selDokumentid_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SelDokumentID.MouseDown ActiveList = 11 End Sub Private Sub selpartner_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SelPartner.MouseDown ActiveList = 12 End Sub Private Sub MnuSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSelect.Click Dim c As ListView Select Case ActiveList Case 1 c = Me.selMarktbereich Case 2 c = Me.selNiederlassung Case 3 c = Me.SelKostenstelle Case 4 c = Me.SelTeam Case 5 c = Me.selKundenberater Case 6 c = Me.selDokumentverantwortlich Case 7 c = Me.SelErsteller Case 8 c = Me.SelMutierer Case 9 c = Me.SelDokumentart Case 10 c = Me.SelStatus Case 11 c = Me.SelDokumentID Case 12 c = Me.SelPartner End Select For i = 0 To c.Items.Count - 1 Try If c.Items(i).Selected Then c.Items(i).Remove() Catch End Try Next End Sub Private Sub MnuUnselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuUnselect.Click Dim c As ListView Select Case ActiveList Case 1 c = Me.selMarktbereich Case 2 c = Me.selNiederlassung Case 3 c = Me.SelKostenstelle Case 4 c = Me.SelTeam Case 5 c = Me.selKundenberater Case 6 c = Me.selDokumentverantwortlich Case 7 c = Me.SelErsteller Case 8 c = Me.SelMutierer Case 9 c = Me.SelDokumentart Case 10 c = Me.SelStatus Case 11 c = Me.SelDokumentID Case 12 c = Me.SelPartner End Select c.Items.Clear() End Sub #End Region #Region "Datenhandling" Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Select Case typ Case 1 scmCmdToExecute.CommandText = "dbo.SP_Profil_Mitarbeiter" Case 2 scmCmdToExecute.CommandText = "dbo.SP_Profil_Status" Case 3 scmCmdToExecute.CommandText = "dbo.SP_Profil_Marktbereich" Case 4 scmCmdToExecute.CommandText = "dbo.SP_Profil_Niederlassung" Case 5 scmCmdToExecute.CommandText = "dbo.SP_Profil_Kostenstelle" Case 6 scmCmdToExecute.CommandText = "dbo.SP_Profil_Team" Case Else End Select scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try Select Case typ Case Else End Select If typ = 1 Then End If sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function #End Region #Region "Load_Save" Private Sub Load_Profil(ByVal profilnr As Long) Dim p As New edokadb.clsProfil() Dim ma As New edokadb.clsMitarbeiter() p.cpMainConnectionProvider = conn conn.OpenConnection() p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32)) p.SelectOne() ' If Not p.daErstellung_ab.IsNull Then Me.DateTimePicker1.Value = p.daErstellung_ab.Value ' If Not p.daErstellung_bis.IsNull Then Me.DateTimePicker2.Value = p.daErstellung_bis.Value ' If Not p.daMutation_von.IsNull Then Me.DateTimePicker3.Value = p.daMutation_von.Value ' If Not p.daMutation_bis.IsNull Then Me.DateTimePicker4.Value = p.daMutation_bis.Value ' If Not p.daArchivierung_von.IsNull Then Me.DateTimePicker5.Value = p.daArchivierung_von.Value ' If Not p.daArchivierung_bis.IsNull Then Me.DateTimePicker6.Value = p.daArchivierung_bis.Value ' p.daArchivierung_bis = New SqlDateTime(CType(Me.DateTimePicker6.Value, DateTime)) ' p.daArchivierung_von = New SqlDateTime(CType(Me.DateTimePicker5.Value, DateTime)) 'p.daErstellung_ab = New SqlDateTime(CType(Me.DateTimePicker1.Value, DateTime)) ' p.daErstellung_bis = New SqlDateTime(CType(Me.DateTimePicker2.Value, DateTime)) ' p.daMutation_bis = New SqlDateTime(CType(Me.DateTimePicker4.Value, DateTime)) ' p.daMutation_von = New SqlDateTime(CType(Me.DateTimePicker3.Value, DateTime)) If p.iHw1.IsNull Then Me.cb1.Checked = False Else Me.cb1.Checked = p.iHw1.Value If p.iHw2.IsNull Then Me.cb2.Checked = False Else Me.cb2.Checked = p.iHw2.Value If p.iHw3.IsNull Then Me.cb3.Checked = False Else Me.cb3.Checked = p.iHw3.Value If p.iHw4.IsNull Then Me.cb4.Checked = False Else Me.cb4.Checked = p.iHw4.Value If p.iHw6.IsNull Then Me.cb5.Checked = False Else Me.cb5.Checked = p.iHw5.Value 'Me.cbc1.SelectedIndex = p.iColor1.Value 'Me.cbc2.SelectedIndex = p.iColor2.Value 'Me.cbc3.SelectedIndex = p.iColor3.Value 'Me.cbc4.SelectedIndex = p.iColor4.Value 'Me.cbc5.SelectedIndex = p.iColor5.Value 'Me.cbc6.SelectedIndex = p.iColor6.Value Me.SelDokumentart.Items.Clear() Me.SelDokumentID.Items.Clear() Me.selDokumentverantwortlich.Items.Clear() Me.SelErsteller.Items.Clear() Me.SelKostenstelle.Items.Clear() Me.selKundenberater.Items.Clear() Me.selMarktbereich.Items.Clear() Me.SelMutierer.Items.Clear() Me.selNiederlassung.Items.Clear() Me.SelPartner.Items.Clear() Me.SelStatus.Items.Clear() Me.SelTeam.Items.Clear() If Not p.iUnterschriftlinks.IsNull Then Me.cbUnterschriftlinks.SelectedValue = p.iUnterschriftlinks.Value If Not p.iUnterschriftrechts.IsNull Then Me.cbUnterschriftrechts.SelectedValue = p.iUnterschriftrechts.Value() Me.TabControl2.TabPages(0).Show() p.Dispose() ma.cpMainConnectionProvider = conn ma.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) ma.SelectOne() Me.cEdokaMessage.Checked = ma.bEdokaMesasge.Value Me.cmailempfang.Checked = ma.bMailempfang.Value Me.cMailDirekt.Checked = ma.bMailDirektVersenden.Value Me.txtMailadresse.Text = ma.sEmail.Value Me.txtTelefax.Text = ma.sFax.Value Me.txtTelefon.Text = ma.sTelefon.Value Me.txtFunktion.Text = ma.sFunktion.Value ma.Dispose() conn.CloseConnection(True) End Sub Public Function fillbox(ByVal s As String, ByVal sellist As ListView, ByVal multicombo As MultiComboBox) Dim splitter As Object Dim a As Integer Try splitter = Split(s, ";") i = 0 While splitter(i) <> Nothing a = splitter(i) multicombo.SelectedValue = a li = sellist.Items.Add(multicombo.SelectedValue) li.SubItems.Add(multicombo.Text) i = i + 1 End While Catch End Try End Function Public Function fillbox1(ByVal s As String, ByVal sellist As ListView) Dim splitter As Object Try splitter = Split(s, ";") i = 0 While splitter(i) <> Nothing li = sellist.Items.Add(splitter(i)) li.SubItems.Add(splitter(i + 1)) i = i + 2 End While Catch End Try End Function Public Function fillbox2(ByVal s As String, ByVal sellist As ListView) Dim splitter As Object Try splitter = Split(s, ";") i = 0 While splitter(i) <> Nothing li = sellist.Items.Add(splitter(i)) li.SubItems.Add(splitter(i)) i = i + 1 End While Catch End Try End Function Private Sub Save_Profile() Dim p As New edokadb.clsProfil() Dim d As DataTable p.cpMainConnectionProvider = conn p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32)) p.SelectOne() Dim s As String Dim i As Integer p.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) p.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) 'p.iColor1 = New SqlInt32(CType(tostring(me.colbtn1.BackColor)), Int32)) 'p.iColor2 = New SqlInt32(CType(Me.cbc2.SelectedIndex, Int32)) 'p.iColor3 = New SqlInt32(CType(Me.cbc3.SelectedIndex, Int32)) 'p.iColor4 = New SqlInt32(CType(Me.cbc4.SelectedIndex, Int32)) 'p.iColor5 = New SqlInt32(CType(Me.cbc5.SelectedIndex, Int32)) 'p.iColor6 = New SqlInt32(CType(Me.cbc6.SelectedIndex, Int32)) s = "" For i = 0 To Me.lbselectedsortfields.Items.Count - 1 Me.lbselectedsortfields.SelectedIndex = i s = s + Me.lbselectedsortfields.SelectedItem + ";" Next MsgBox(Me.cbUnterschriftlinks.SelectedValue) p.iUnterschriftlinks = New SqlInt32(CType(Me.cbUnterschriftlinks.SelectedValue, Int32)) p.iUnterschriftrechts = New SqlInt32(CType(Me.cbUnterschriftrechts.SelectedValue, Int32)) If Me.cb1.Checked = True Then p.iHw1 = New SqlInt32(CType(1, Int32)) Else p.iHw1 = New SqlInt32(CType(0, Int32)) End If If Me.cb2.Checked = True Then p.iHw2 = New SqlInt32(CType(1, Int32)) Else p.iHw2 = New SqlInt32(CType(0, Int32)) End If If Me.cb3.Checked = True Then p.iHw3 = New SqlInt32(CType(1, Int32)) Else p.iHw3 = New SqlInt32(CType(0, Int32)) End If If Me.cb4.Checked = True Then p.iHw4 = New SqlInt32(CType(1, Int32)) Else p.iHw4 = New SqlInt32(CType(0, Int32)) End If If Me.cb5.Checked = True Then p.iHw5 = New SqlInt32(CType(1, Int32)) Else p.iHw5 = New SqlInt32(CType(0, Int32)) End If If Me.Profile.SelectedNode.ImageIndex = 8 Then p.bStandard = New SqlBoolean(CType(True, Boolean)) Else p.bStandard = New SqlBoolean(CType(False, Boolean)) End If conn.OpenConnection() p.Update() conn.CloseConnection(True) Dim ma As New edokadb.clsMitarbeiter() conn.OpenConnection() ma.cpMainConnectionProvider = conn ma.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) ma.SelectOne() ma.bEdokaMesasge = New SqlBoolean(CType(Me.cEdokaMessage.Checked, Boolean)) ma.bMailempfang = New SqlBoolean(CType(Me.cmailempfang.Checked, Boolean)) ma.bMailDirektVersenden = New SqlBoolean(CType(Me.cMailDirekt.Checked, Boolean)) ma.sEmail = New SqlString(CType(Me.txtMailadresse.Text, String)) ma.sTelefon = New SqlString(CType(Me.txtTelefon.Text, String)) ma.sFax = New SqlString(CType(Me.txtTelefax.Text, String)) ma.sFunktion = New SqlString(CType(Me.txtFunktion.Text, String)) ma.Update() conn.CloseConnection(True) p.Dispose() ma.Dispose() End Sub Private Function ValueList(ByVal c As ListView) As String Dim s As String s = "" For i = 0 To c.Items.Count - 1 s = s + c.Items(i).Text + ";" If UCase(c.Name) = "SELPARTNER" Then li = c.Items(i) s = s + li.SubItems(1).Text + ";" End If Next Return s End Function #End Region Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Dim f As New FrmPartnersuche() f.PartnerNr = 0 f.ShowDialog() If f.PartnerNr <> 0 Then li = Me.SelPartner.Items.Add(f.PartnerNr) li.SubItems.Add(Str(f.PartnerNr) + " - " + f.PartnerKurzbezeichnnung) End If End Sub Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Save_Profile() End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click Try Me.lbselectedsortfields.Items.Add(Me.lbSortfields.SelectedItem & " " & Me.cbSorttype.SelectedItem) Catch End Try End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click Me.lbselectedsortfields.Items.RemoveAt(Me.lbselectedsortfields.SelectedIndex) End Sub Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click Dim tn As TreeNode Check_Changes() Me.Profile.BeginUpdate() tn = Me.Profile.Nodes(0) Do Until tn Is Nothing If tn.ImageIndex = 8 Then Dim p As New edokadb.clsProfil() p.cpMainConnectionProvider = conn conn.OpenConnection() p.iProfilnr = New SqlInt32(CType(tn.Tag, Int32)) p.SelectOne() p.bStandard = New SqlBoolean(CType(False, Boolean)) p.Update() conn.CloseConnection(True) p.Dispose() End If tn.ImageIndex = 99 tn.SelectedImageIndex = 9 tn = tn.NextNode Loop Me.Profile.SelectedNode.ImageIndex = 8 Me.Profile.SelectedNode.SelectedImageIndex = 8 Me.Profile.EndUpdate() changes = True End Sub Private Sub Check_Changes() End Sub Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click Dim a As String a = InputBox(MyTxt.gettext(501)) If a <> "" Then Me.Profile.SelectedNode.Text = a changes = True End If End Sub Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click If MyMsg.Show_MessageYesNo(16) = MsgBoxResult.Yes Then Dim p As New edokadb.clsProfil() p.cpMainConnectionProvider = conn conn.OpenConnection() p.iProfilnr = New SqlInt32(CType(Me.Profile.SelectedNode.Tag, Int32)) p.SelectOne() p.bAktiv = New SqlBoolean(CType(False, Boolean)) p.Update() p.Dispose() conn.CloseConnection(True) Me.ProfilNr = 0 frmProfil_Load(sender, e) End If End Sub Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click Check_Changes() Me.Close() End Sub Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click Dim a As String a = InputBox(MyTxt.gettext(501)) If a <> "" Then Dim p As New edokadb.clsProfil() Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Int32 dbkey.cpMainConnectionProvider = conn p.cpMainConnectionProvider = conn key = dbkey.get_dbkey("profil") conn.OpenConnection() p.bAktiv = New SqlBoolean(CType(True, Boolean)) p.bStandard = New SqlBoolean(CType(False, Boolean)) p.sBezeichnung = New SqlString(CType(a, String)) p.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) p.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32)) p.iProfilnr = New SqlInt32(CType(key, Int32)) p.Insert() conn.CloseConnection(True) p.Dispose() dbkey.Dispose() Me.ProfilNr = key Me.frmProfil_Load(sender, e) End If End Sub Private Sub Profile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Profile.Click End Sub Private Sub Profile_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles Profile.AfterSelect If Not On_Load Then Check_Changes() Me.ProfilNr = Me.Profile.SelectedNode.Tag frmProfil_Load(sender, e) End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles colbtn1.Click, _ colbtn2.Click, colbtn3.Click, colbtn4.Click, colbtn5.Click, colbtn6.Click Dim cName As String = CType(sender, System.Windows.Forms.Button).Name Me.ColorDialog1.ShowDialog() Me.ColorDialog1.AnyColor = True Select Case cName Case "colbtn1" Me.colbtn1.BackColor = Me.ColorDialog1.Color Case "colbtn2" Me.colbtn2.BackColor = Me.ColorDialog1.Color Case "colbtn3" Me.colbtn3.BackColor = Me.ColorDialog1.Color Case "colbtn4" Me.colbtn4.BackColor = Me.ColorDialog1.Color Case "colbtn5" Me.colbtn5.BackColor = Me.ColorDialog1.Color Case "colbtn6" Me.colbtn6.BackColor = Me.ColorDialog1.Color End Select End Sub End Class