You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2878 lines
159 KiB
2878 lines
159 KiB
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
|
|
<System.Diagnostics.DebuggerStepThrough()> 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
|
|
|