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.
3870 lines
230 KiB
3870 lines
230 KiB
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Color
|
|
|
|
Public Class frmProfilDokAuswertung
|
|
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 CTMenuErsteller As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents CTMenuVerantwortlicher As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem20 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 SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
Friend WithEvents ctmenu1 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
|
|
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
|
|
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
|
Friend WithEvents PnlPartner As System.Windows.Forms.Panel
|
|
Friend WithEvents PartnerList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents btnPartnersuche As System.Windows.Forms.Button
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
|
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents PnlDokumentDaten As System.Windows.Forms.Panel
|
|
Friend WithEvents Label18 As System.Windows.Forms.Label
|
|
Friend WithEvents Label17 As System.Windows.Forms.Label
|
|
Friend WithEvents Label16 As System.Windows.Forms.Label
|
|
Friend WithEvents Label15 As System.Windows.Forms.Label
|
|
Friend WithEvents Label14 As System.Windows.Forms.Label
|
|
Friend WithEvents Label13 As System.Windows.Forms.Label
|
|
Friend WithEvents DateTimePicker6 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents DateTimePicker5 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
|
|
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
|
|
Friend WithEvents MnuDel As System.Windows.Forms.MenuItem
|
|
Friend WithEvents PnlDokumentart As System.Windows.Forms.Panel
|
|
Friend WithEvents TVDokart As System.Windows.Forms.TreeView
|
|
Friend WithEvents ImageList3 As System.Windows.Forms.ImageList
|
|
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MnuSelectDokumentart As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuDeleteDokumentart As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents txtdatum1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtdatum2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtdatum3 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtdatum4 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtdatum5 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtdatum6 As System.Windows.Forms.TextBox
|
|
Friend WithEvents cbd2 As System.Windows.Forms.CheckBox
|
|
Friend WithEvents cbd4 As System.Windows.Forms.CheckBox
|
|
Friend WithEvents cbd6 As System.Windows.Forms.CheckBox
|
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
|
Friend WithEvents cbtag1 As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
|
Friend WithEvents cbtag2 As System.Windows.Forms.ComboBox
|
|
Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents cbtag3 As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
|
Friend WithEvents Button2 As System.Windows.Forms.Button
|
|
Friend WithEvents Button3 As System.Windows.Forms.Button
|
|
Friend WithEvents lbldatum1 As System.Windows.Forms.Label
|
|
Friend WithEvents lbldatum2 As System.Windows.Forms.Label
|
|
Friend WithEvents lbldatum3 As System.Windows.Forms.Label
|
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
|
Friend WithEvents Label12 As System.Windows.Forms.Label
|
|
Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents cbmavip As System.Windows.Forms.CheckBox
|
|
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents cinklalt As System.Windows.Forms.CheckBox
|
|
Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents TVHostDok As System.Windows.Forms.TreeView
|
|
Friend WithEvents pnlhostdiv As System.Windows.Forms.Panel
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
|
Friend WithEvents Button6 As System.Windows.Forms.Button
|
|
Friend WithEvents Button7 As System.Windows.Forms.Button
|
|
Friend WithEvents Button8 As System.Windows.Forms.Button
|
|
Friend WithEvents Label26 As System.Windows.Forms.Label
|
|
Friend WithEvents Label27 As System.Windows.Forms.Label
|
|
Friend WithEvents Label28 As System.Windows.Forms.Label
|
|
Friend WithEvents Label29 As System.Windows.Forms.Label
|
|
Friend WithEvents DateTimePicker7 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents DateTimePicker8 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents DateTimePicker9 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Label32 As System.Windows.Forms.Label
|
|
Friend WithEvents Label33 As System.Windows.Forms.Label
|
|
Friend WithEvents Label34 As System.Windows.Forms.Label
|
|
Friend WithEvents Label35 As System.Windows.Forms.Label
|
|
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
|
|
Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
|
|
Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
|
|
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
|
|
Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
|
|
Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label36 As System.Windows.Forms.Label
|
|
Friend WithEvents Label37 As System.Windows.Forms.Label
|
|
Friend WithEvents Label38 As System.Windows.Forms.Label
|
|
Friend WithEvents DateTimePicker10 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents DateTimePicker11 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents DateTimePicker12 As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents HostTag1 As System.Windows.Forms.ComboBox
|
|
Friend WithEvents HostDatum3 As System.Windows.Forms.TextBox
|
|
Friend WithEvents HostDatum2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents HostDatum1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents HostTag3 As System.Windows.Forms.ComboBox
|
|
Friend WithEvents HostTag2 As System.Windows.Forms.ComboBox
|
|
Friend WithEvents hostinklmavip As System.Windows.Forms.CheckBox
|
|
Friend WithEvents lblhostdatum3 As System.Windows.Forms.Label
|
|
Friend WithEvents lblhostdatum2 As System.Windows.Forms.Label
|
|
Friend WithEvents lblhostdatum1 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents SqlConnection3 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
|
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
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmProfilDokAuswertung))
|
|
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
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.MenuItem13 = 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.ctmenu1 = New System.Windows.Forms.ContextMenu()
|
|
Me.MnuDel = New System.Windows.Forms.MenuItem()
|
|
Me.CTMenuErsteller = New System.Windows.Forms.ContextMenu()
|
|
Me.MenuItem15 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem16 = New System.Windows.Forms.MenuItem()
|
|
Me.CTMenuVerantwortlicher = New System.Windows.Forms.ContextMenu()
|
|
Me.MenuItem20 = 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.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
|
Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
|
|
Me.DataSet1 = New System.Data.DataSet()
|
|
Me.Splitter1 = New System.Windows.Forms.Splitter()
|
|
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
|
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
|
Me.pnlhostdiv = New System.Windows.Forms.Panel()
|
|
Me.hostinklmavip = New System.Windows.Forms.CheckBox()
|
|
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
|
|
Me.Label4 = New System.Windows.Forms.Label()
|
|
Me.Label9 = New System.Windows.Forms.Label()
|
|
Me.lblhostdatum3 = New System.Windows.Forms.Label()
|
|
Me.lblhostdatum2 = New System.Windows.Forms.Label()
|
|
Me.lblhostdatum1 = New System.Windows.Forms.Label()
|
|
Me.Button6 = New System.Windows.Forms.Button()
|
|
Me.Button7 = New System.Windows.Forms.Button()
|
|
Me.Button8 = New System.Windows.Forms.Button()
|
|
Me.Label26 = New System.Windows.Forms.Label()
|
|
Me.HostTag3 = New System.Windows.Forms.ComboBox()
|
|
Me.HostTag2 = New System.Windows.Forms.ComboBox()
|
|
Me.HostTag1 = New System.Windows.Forms.ComboBox()
|
|
Me.HostDatum3 = New System.Windows.Forms.TextBox()
|
|
Me.HostDatum2 = New System.Windows.Forms.TextBox()
|
|
Me.HostDatum1 = New System.Windows.Forms.TextBox()
|
|
Me.Label27 = New System.Windows.Forms.Label()
|
|
Me.Label28 = New System.Windows.Forms.Label()
|
|
Me.Label29 = New System.Windows.Forms.Label()
|
|
Me.DateTimePicker7 = New System.Windows.Forms.DateTimePicker()
|
|
Me.DateTimePicker8 = New System.Windows.Forms.DateTimePicker()
|
|
Me.DateTimePicker9 = New System.Windows.Forms.DateTimePicker()
|
|
Me.GroupBox6 = New System.Windows.Forms.GroupBox()
|
|
Me.Label32 = New System.Windows.Forms.Label()
|
|
Me.Label33 = New System.Windows.Forms.Label()
|
|
Me.Label34 = New System.Windows.Forms.Label()
|
|
Me.Label35 = New System.Windows.Forms.Label()
|
|
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
|
|
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
|
|
Me.CheckBox5 = New System.Windows.Forms.CheckBox()
|
|
Me.TextBox7 = New System.Windows.Forms.TextBox()
|
|
Me.TextBox8 = New System.Windows.Forms.TextBox()
|
|
Me.TextBox9 = New System.Windows.Forms.TextBox()
|
|
Me.Label36 = New System.Windows.Forms.Label()
|
|
Me.Label37 = New System.Windows.Forms.Label()
|
|
Me.Label38 = New System.Windows.Forms.Label()
|
|
Me.DateTimePicker10 = New System.Windows.Forms.DateTimePicker()
|
|
Me.DateTimePicker11 = New System.Windows.Forms.DateTimePicker()
|
|
Me.DateTimePicker12 = New System.Windows.Forms.DateTimePicker()
|
|
Me.TVHostDok = New System.Windows.Forms.TreeView()
|
|
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
|
Me.MnuSelectDokumentart = New System.Windows.Forms.MenuItem()
|
|
Me.MnuDeleteDokumentart = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
|
Me.PnlDokumentDaten = New System.Windows.Forms.Panel()
|
|
Me.cinklalt = New System.Windows.Forms.CheckBox()
|
|
Me.cbmavip = New System.Windows.Forms.CheckBox()
|
|
Me.Label12 = New System.Windows.Forms.Label()
|
|
Me.Label11 = New System.Windows.Forms.Label()
|
|
Me.lbldatum3 = New System.Windows.Forms.Label()
|
|
Me.lbldatum2 = New System.Windows.Forms.Label()
|
|
Me.lbldatum1 = New System.Windows.Forms.Label()
|
|
Me.Button3 = New System.Windows.Forms.Button()
|
|
Me.Button2 = New System.Windows.Forms.Button()
|
|
Me.Button1 = New System.Windows.Forms.Button()
|
|
Me.Label10 = New System.Windows.Forms.Label()
|
|
Me.cbtag3 = New System.Windows.Forms.ComboBox()
|
|
Me.Label8 = New System.Windows.Forms.Label()
|
|
Me.Label7 = New System.Windows.Forms.Label()
|
|
Me.cbtag2 = New System.Windows.Forms.ComboBox()
|
|
Me.Label6 = New System.Windows.Forms.Label()
|
|
Me.Label5 = New System.Windows.Forms.Label()
|
|
Me.cbtag1 = New System.Windows.Forms.ComboBox()
|
|
Me.cbd6 = New System.Windows.Forms.CheckBox()
|
|
Me.cbd4 = New System.Windows.Forms.CheckBox()
|
|
Me.cbd2 = New System.Windows.Forms.CheckBox()
|
|
Me.txtdatum6 = New System.Windows.Forms.TextBox()
|
|
Me.txtdatum5 = New System.Windows.Forms.TextBox()
|
|
Me.txtdatum4 = New System.Windows.Forms.TextBox()
|
|
Me.txtdatum3 = New System.Windows.Forms.TextBox()
|
|
Me.txtdatum2 = New System.Windows.Forms.TextBox()
|
|
Me.txtdatum1 = 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.GroupBox3 = New System.Windows.Forms.GroupBox()
|
|
Me.GroupBox10 = New System.Windows.Forms.GroupBox()
|
|
Me.PnlDokumentart = New System.Windows.Forms.Panel()
|
|
Me.TVDokart = New System.Windows.Forms.TreeView()
|
|
Me.PnlPartner = New System.Windows.Forms.Panel()
|
|
Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.btnPartnersuche = New System.Windows.Forms.Button()
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
|
Me.Panel3 = New System.Windows.Forms.Panel()
|
|
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.TreeView1 = New System.Windows.Forms.TreeView()
|
|
Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.SqlConnection3 = New System.Data.SqlClient.SqlConnection()
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.Panel2.SuspendLayout()
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.TabControl1.SuspendLayout()
|
|
Me.TabPage1.SuspendLayout()
|
|
Me.pnlhostdiv.SuspendLayout()
|
|
Me.PnlDokumentDaten.SuspendLayout()
|
|
Me.PnlDokumentart.SuspendLayout()
|
|
Me.PnlPartner.SuspendLayout()
|
|
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.Panel3.SuspendLayout()
|
|
CType(Me.C1TrueDBGrid1, 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(792, 25)
|
|
Me.ToolBar1.TabIndex = 0
|
|
'
|
|
'btnClose
|
|
'
|
|
Me.btnClose.ImageIndex = 0
|
|
Me.btnClose.ToolTipText = "Fenster schliessen"
|
|
'
|
|
'btnOpen
|
|
'
|
|
Me.btnOpen.ImageIndex = 7
|
|
Me.btnOpen.Visible = False
|
|
'
|
|
'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(792, 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.MenuItem13, 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"
|
|
'
|
|
'MenuItem13
|
|
'
|
|
Me.MenuItem13.Index = 5
|
|
Me.MenuItem13.Text = "Profil kopieren"
|
|
'
|
|
'MenuItem8
|
|
'
|
|
Me.MenuItem8.Index = 6
|
|
Me.MenuItem8.Text = "Umbenennen"
|
|
'
|
|
'MenuItem10
|
|
'
|
|
Me.MenuItem10.Index = 7
|
|
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(176, 544)
|
|
Me.Panel2.TabIndex = 11
|
|
'
|
|
'Profile
|
|
'
|
|
Me.Profile.ContextMenu = Me.MnuListe
|
|
Me.Profile.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Profile.FullRowSelect = True
|
|
Me.Profile.ImageIndex = -1
|
|
Me.Profile.Name = "Profile"
|
|
Me.Profile.SelectedImageIndex = -1
|
|
Me.Profile.ShowLines = False
|
|
Me.Profile.ShowPlusMinus = False
|
|
Me.Profile.Size = New System.Drawing.Size(174, 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
|
|
'
|
|
'ctmenu1
|
|
'
|
|
Me.ctmenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDel})
|
|
'
|
|
'MnuDel
|
|
'
|
|
Me.MnuDel.Index = 0
|
|
Me.MnuDel.Text = "Eintrag löschen"
|
|
'
|
|
'CTMenuErsteller
|
|
'
|
|
Me.CTMenuErsteller.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem15, Me.MenuItem16})
|
|
'
|
|
'MenuItem15
|
|
'
|
|
Me.MenuItem15.Index = 0
|
|
Me.MenuItem15.Text = "Partner übernehmen"
|
|
'
|
|
'MenuItem16
|
|
'
|
|
Me.MenuItem16.Index = 1
|
|
Me.MenuItem16.Text = "Detailinformationen"
|
|
'
|
|
'CTMenuVerantwortlicher
|
|
'
|
|
Me.CTMenuVerantwortlicher.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem20})
|
|
'
|
|
'MenuItem20
|
|
'
|
|
Me.MenuItem20.Index = 0
|
|
Me.MenuItem20.Text = "Eintrag übernehmen"
|
|
'
|
|
'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"
|
|
'
|
|
'SqlConnection1
|
|
'
|
|
Me.SqlConnection1.ConnectionString = "data source=localhost;initial catalog=Edoka;password=sqlsa;persist security info=" & _
|
|
"True;user id=sa;workstation id=NB12;packet size=4096"
|
|
'
|
|
'SqlConnection2
|
|
'
|
|
Me.SqlConnection2.ConnectionString = "data source=localhost;initial catalog=edoka;password=sqlsa;persist security info=" & _
|
|
"True;user id=sa;workstation id=PC120;packet size=4096"
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'Splitter1
|
|
'
|
|
Me.Splitter1.Location = New System.Drawing.Point(176, 33)
|
|
Me.Splitter1.Name = "Splitter1"
|
|
Me.Splitter1.Size = New System.Drawing.Size(3, 544)
|
|
Me.Splitter1.TabIndex = 15
|
|
Me.Splitter1.TabStop = False
|
|
'
|
|
'TabControl1
|
|
'
|
|
Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1})
|
|
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TabControl1.Location = New System.Drawing.Point(179, 33)
|
|
Me.TabControl1.Name = "TabControl1"
|
|
Me.TabControl1.SelectedIndex = 0
|
|
Me.TabControl1.Size = New System.Drawing.Size(613, 544)
|
|
Me.TabControl1.TabIndex = 16
|
|
'
|
|
'TabPage1
|
|
'
|
|
Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlhostdiv, Me.TVHostDok, Me.PnlDokumentDaten, Me.PnlDokumentart, Me.PnlPartner, Me.Panel3, Me.TreeView1})
|
|
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage1.Name = "TabPage1"
|
|
Me.TabPage1.Size = New System.Drawing.Size(605, 518)
|
|
Me.TabPage1.TabIndex = 0
|
|
Me.TabPage1.Text = "Selektion"
|
|
'
|
|
'pnlhostdiv
|
|
'
|
|
Me.pnlhostdiv.Controls.AddRange(New System.Windows.Forms.Control() {Me.hostinklmavip, Me.GroupBox7, Me.Label4, Me.Label9, Me.lblhostdatum3, Me.lblhostdatum2, Me.lblhostdatum1, Me.Button6, Me.Button7, Me.Button8, Me.Label26, Me.HostTag3, Me.HostTag2, Me.HostTag1, Me.HostDatum3, Me.HostDatum2, Me.HostDatum1, Me.Label27, Me.Label28, Me.Label29, Me.DateTimePicker7, Me.DateTimePicker8, Me.DateTimePicker9, Me.GroupBox6, Me.Label32, Me.Label33, Me.Label34, Me.Label35, Me.CheckBox3, Me.CheckBox4, Me.CheckBox5, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.Label36, Me.Label37, Me.Label38, Me.DateTimePicker10, Me.DateTimePicker11, Me.DateTimePicker12})
|
|
Me.pnlhostdiv.Location = New System.Drawing.Point(224, 8)
|
|
Me.pnlhostdiv.Name = "pnlhostdiv"
|
|
Me.pnlhostdiv.Size = New System.Drawing.Size(376, 496)
|
|
Me.pnlhostdiv.TabIndex = 7
|
|
Me.pnlhostdiv.Visible = False
|
|
'
|
|
'hostinklmavip
|
|
'
|
|
Me.hostinklmavip.Location = New System.Drawing.Point(16, 168)
|
|
Me.hostinklmavip.Name = "hostinklmavip"
|
|
Me.hostinklmavip.Size = New System.Drawing.Size(264, 24)
|
|
Me.hostinklmavip.TabIndex = 82
|
|
Me.hostinklmavip.Text = "Partnerselektion inkl. Mitarbeiter- und VIP"
|
|
'
|
|
'GroupBox7
|
|
'
|
|
Me.GroupBox7.Location = New System.Drawing.Point(8, 152)
|
|
Me.GroupBox7.Name = "GroupBox7"
|
|
Me.GroupBox7.Size = New System.Drawing.Size(360, 48)
|
|
Me.GroupBox7.TabIndex = 84
|
|
Me.GroupBox7.TabStop = False
|
|
Me.GroupBox7.Text = "Datenselektion"
|
|
'
|
|
'Label4
|
|
'
|
|
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label4.Location = New System.Drawing.Point(168, 24)
|
|
Me.Label4.Name = "Label4"
|
|
Me.Label4.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label4.TabIndex = 81
|
|
Me.Label4.Text = "Ab Datum"
|
|
'
|
|
'Label9
|
|
'
|
|
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label9.Location = New System.Drawing.Point(248, 24)
|
|
Me.Label9.Name = "Label9"
|
|
Me.Label9.TabIndex = 80
|
|
Me.Label9.Text = "Bis Datum"
|
|
'
|
|
'lblhostdatum3
|
|
'
|
|
Me.lblhostdatum3.Location = New System.Drawing.Point(168, 112)
|
|
Me.lblhostdatum3.Name = "lblhostdatum3"
|
|
Me.lblhostdatum3.Size = New System.Drawing.Size(72, 21)
|
|
Me.lblhostdatum3.TabIndex = 79
|
|
'
|
|
'lblhostdatum2
|
|
'
|
|
Me.lblhostdatum2.Location = New System.Drawing.Point(168, 80)
|
|
Me.lblhostdatum2.Name = "lblhostdatum2"
|
|
Me.lblhostdatum2.Size = New System.Drawing.Size(72, 21)
|
|
Me.lblhostdatum2.TabIndex = 78
|
|
'
|
|
'lblhostdatum1
|
|
'
|
|
Me.lblhostdatum1.Location = New System.Drawing.Point(168, 48)
|
|
Me.lblhostdatum1.Name = "lblhostdatum1"
|
|
Me.lblhostdatum1.Size = New System.Drawing.Size(72, 21)
|
|
Me.lblhostdatum1.TabIndex = 77
|
|
'
|
|
'Button6
|
|
'
|
|
Me.Button6.Location = New System.Drawing.Point(344, 112)
|
|
Me.Button6.Name = "Button6"
|
|
Me.Button6.Size = New System.Drawing.Size(16, 16)
|
|
Me.Button6.TabIndex = 76
|
|
'
|
|
'Button7
|
|
'
|
|
Me.Button7.Location = New System.Drawing.Point(344, 80)
|
|
Me.Button7.Name = "Button7"
|
|
Me.Button7.Size = New System.Drawing.Size(16, 16)
|
|
Me.Button7.TabIndex = 75
|
|
'
|
|
'Button8
|
|
'
|
|
Me.Button8.Location = New System.Drawing.Point(344, 48)
|
|
Me.Button8.Name = "Button8"
|
|
Me.Button8.Size = New System.Drawing.Size(16, 16)
|
|
Me.Button8.TabIndex = 74
|
|
'
|
|
'Label26
|
|
'
|
|
Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label26.Location = New System.Drawing.Point(88, 24)
|
|
Me.Label26.Name = "Label26"
|
|
Me.Label26.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label26.TabIndex = 73
|
|
Me.Label26.Text = "Anzahl Tage"
|
|
'
|
|
'HostTag3
|
|
'
|
|
Me.HostTag3.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
|
|
Me.HostTag3.Location = New System.Drawing.Point(88, 110)
|
|
Me.HostTag3.Name = "HostTag3"
|
|
Me.HostTag3.Size = New System.Drawing.Size(56, 21)
|
|
Me.HostTag3.TabIndex = 71
|
|
Me.HostTag3.Text = "HostTag3"
|
|
'
|
|
'HostTag2
|
|
'
|
|
Me.HostTag2.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
|
|
Me.HostTag2.Location = New System.Drawing.Point(88, 78)
|
|
Me.HostTag2.Name = "HostTag2"
|
|
Me.HostTag2.Size = New System.Drawing.Size(56, 21)
|
|
Me.HostTag2.TabIndex = 68
|
|
Me.HostTag2.Text = "HostTag2"
|
|
'
|
|
'HostTag1
|
|
'
|
|
Me.HostTag1.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
|
|
Me.HostTag1.Location = New System.Drawing.Point(88, 46)
|
|
Me.HostTag1.Name = "HostTag1"
|
|
Me.HostTag1.Size = New System.Drawing.Size(56, 21)
|
|
Me.HostTag1.TabIndex = 65
|
|
Me.HostTag1.Text = "ComboBox1"
|
|
'
|
|
'HostDatum3
|
|
'
|
|
Me.HostDatum3.BackColor = System.Drawing.Color.White
|
|
Me.HostDatum3.Enabled = False
|
|
Me.HostDatum3.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.HostDatum3.Location = New System.Drawing.Point(248, 110)
|
|
Me.HostDatum3.Name = "HostDatum3"
|
|
Me.HostDatum3.ReadOnly = True
|
|
Me.HostDatum3.Size = New System.Drawing.Size(79, 20)
|
|
Me.HostDatum3.TabIndex = 58
|
|
Me.HostDatum3.Text = "TextBox4"
|
|
'
|
|
'HostDatum2
|
|
'
|
|
Me.HostDatum2.BackColor = System.Drawing.Color.White
|
|
Me.HostDatum2.Enabled = False
|
|
Me.HostDatum2.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.HostDatum2.Location = New System.Drawing.Point(248, 78)
|
|
Me.HostDatum2.Name = "HostDatum2"
|
|
Me.HostDatum2.ReadOnly = True
|
|
Me.HostDatum2.Size = New System.Drawing.Size(79, 20)
|
|
Me.HostDatum2.TabIndex = 56
|
|
Me.HostDatum2.Text = "TextBox4"
|
|
'
|
|
'HostDatum1
|
|
'
|
|
Me.HostDatum1.BackColor = System.Drawing.Color.White
|
|
Me.HostDatum1.Enabled = False
|
|
Me.HostDatum1.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.HostDatum1.Location = New System.Drawing.Point(248, 46)
|
|
Me.HostDatum1.Name = "HostDatum1"
|
|
Me.HostDatum1.ReadOnly = True
|
|
Me.HostDatum1.Size = New System.Drawing.Size(79, 20)
|
|
Me.HostDatum1.TabIndex = 54
|
|
Me.HostDatum1.Text = ""
|
|
'
|
|
'Label27
|
|
'
|
|
Me.Label27.Location = New System.Drawing.Point(16, 111)
|
|
Me.Label27.Name = "Label27"
|
|
Me.Label27.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label27.TabIndex = 52
|
|
Me.Label27.Text = "Archivierung"
|
|
'
|
|
'Label28
|
|
'
|
|
Me.Label28.Location = New System.Drawing.Point(16, 79)
|
|
Me.Label28.Name = "Label28"
|
|
Me.Label28.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label28.TabIndex = 50
|
|
Me.Label28.Text = "Mutation"
|
|
'
|
|
'Label29
|
|
'
|
|
Me.Label29.Location = New System.Drawing.Point(16, 47)
|
|
Me.Label29.Name = "Label29"
|
|
Me.Label29.Size = New System.Drawing.Size(56, 23)
|
|
Me.Label29.TabIndex = 48
|
|
Me.Label29.Text = "Erstellung"
|
|
'
|
|
'DateTimePicker7
|
|
'
|
|
Me.DateTimePicker7.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker7.Location = New System.Drawing.Point(248, 110)
|
|
Me.DateTimePicker7.Name = "DateTimePicker7"
|
|
Me.DateTimePicker7.Size = New System.Drawing.Size(96, 20)
|
|
Me.DateTimePicker7.TabIndex = 46
|
|
Me.DateTimePicker7.TabStop = False
|
|
'
|
|
'DateTimePicker8
|
|
'
|
|
Me.DateTimePicker8.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker8.Location = New System.Drawing.Point(248, 78)
|
|
Me.DateTimePicker8.Name = "DateTimePicker8"
|
|
Me.DateTimePicker8.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker8.TabIndex = 44
|
|
Me.DateTimePicker8.TabStop = False
|
|
'
|
|
'DateTimePicker9
|
|
'
|
|
Me.DateTimePicker9.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker9.Location = New System.Drawing.Point(248, 46)
|
|
Me.DateTimePicker9.Name = "DateTimePicker9"
|
|
Me.DateTimePicker9.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker9.TabIndex = 42
|
|
Me.DateTimePicker9.TabStop = False
|
|
'
|
|
'GroupBox6
|
|
'
|
|
Me.GroupBox6.BackColor = System.Drawing.Color.Transparent
|
|
Me.GroupBox6.Location = New System.Drawing.Point(8, 8)
|
|
Me.GroupBox6.Name = "GroupBox6"
|
|
Me.GroupBox6.Size = New System.Drawing.Size(360, 136)
|
|
Me.GroupBox6.TabIndex = 83
|
|
Me.GroupBox6.TabStop = False
|
|
Me.GroupBox6.Text = "Datumsselektion"
|
|
'
|
|
'Label32
|
|
'
|
|
Me.Label32.Location = New System.Drawing.Point(256, 344)
|
|
Me.Label32.Name = "Label32"
|
|
Me.Label32.Size = New System.Drawing.Size(40, 23)
|
|
Me.Label32.TabIndex = 70
|
|
Me.Label32.Text = "Tagen"
|
|
Me.Label32.Visible = False
|
|
'
|
|
'Label33
|
|
'
|
|
Me.Label33.Location = New System.Drawing.Point(256, 320)
|
|
Me.Label33.Name = "Label33"
|
|
Me.Label33.Size = New System.Drawing.Size(40, 23)
|
|
Me.Label33.TabIndex = 69
|
|
Me.Label33.Text = "Tagen"
|
|
Me.Label33.Visible = False
|
|
'
|
|
'Label34
|
|
'
|
|
Me.Label34.Location = New System.Drawing.Point(32, 344)
|
|
Me.Label34.Name = "Label34"
|
|
Me.Label34.Size = New System.Drawing.Size(160, 23)
|
|
Me.Label34.TabIndex = 67
|
|
Me.Label34.Text = "Mutationsdatum in den letzen "
|
|
Me.Label34.Visible = False
|
|
'
|
|
'Label35
|
|
'
|
|
Me.Label35.Location = New System.Drawing.Point(32, 320)
|
|
Me.Label35.Name = "Label35"
|
|
Me.Label35.Size = New System.Drawing.Size(160, 23)
|
|
Me.Label35.TabIndex = 66
|
|
Me.Label35.Text = "Erstellungsdatum in den letzen"
|
|
Me.Label35.Visible = False
|
|
'
|
|
'CheckBox3
|
|
'
|
|
Me.CheckBox3.Location = New System.Drawing.Point(16, 464)
|
|
Me.CheckBox3.Name = "CheckBox3"
|
|
Me.CheckBox3.Size = New System.Drawing.Size(16, 24)
|
|
Me.CheckBox3.TabIndex = 64
|
|
Me.CheckBox3.Visible = False
|
|
'
|
|
'CheckBox4
|
|
'
|
|
Me.CheckBox4.Location = New System.Drawing.Point(16, 440)
|
|
Me.CheckBox4.Name = "CheckBox4"
|
|
Me.CheckBox4.Size = New System.Drawing.Size(16, 24)
|
|
Me.CheckBox4.TabIndex = 62
|
|
Me.CheckBox4.Visible = False
|
|
'
|
|
'CheckBox5
|
|
'
|
|
Me.CheckBox5.Location = New System.Drawing.Point(16, 416)
|
|
Me.CheckBox5.Name = "CheckBox5"
|
|
Me.CheckBox5.Size = New System.Drawing.Size(16, 24)
|
|
Me.CheckBox5.TabIndex = 60
|
|
Me.CheckBox5.Visible = False
|
|
'
|
|
'TextBox7
|
|
'
|
|
Me.TextBox7.BackColor = System.Drawing.Color.White
|
|
Me.TextBox7.Enabled = False
|
|
Me.TextBox7.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.TextBox7.Location = New System.Drawing.Point(160, 464)
|
|
Me.TextBox7.Name = "TextBox7"
|
|
Me.TextBox7.ReadOnly = True
|
|
Me.TextBox7.Size = New System.Drawing.Size(80, 20)
|
|
Me.TextBox7.TabIndex = 59
|
|
Me.TextBox7.Text = "TextBox4"
|
|
Me.TextBox7.Visible = False
|
|
'
|
|
'TextBox8
|
|
'
|
|
Me.TextBox8.BackColor = System.Drawing.Color.White
|
|
Me.TextBox8.Enabled = False
|
|
Me.TextBox8.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.TextBox8.Location = New System.Drawing.Point(160, 440)
|
|
Me.TextBox8.Name = "TextBox8"
|
|
Me.TextBox8.ReadOnly = True
|
|
Me.TextBox8.Size = New System.Drawing.Size(80, 20)
|
|
Me.TextBox8.TabIndex = 57
|
|
Me.TextBox8.Text = "TextBox4"
|
|
Me.TextBox8.Visible = False
|
|
'
|
|
'TextBox9
|
|
'
|
|
Me.TextBox9.BackColor = System.Drawing.Color.White
|
|
Me.TextBox9.Enabled = False
|
|
Me.TextBox9.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.TextBox9.Location = New System.Drawing.Point(160, 416)
|
|
Me.TextBox9.Name = "TextBox9"
|
|
Me.TextBox9.ReadOnly = True
|
|
Me.TextBox9.Size = New System.Drawing.Size(80, 20)
|
|
Me.TextBox9.TabIndex = 55
|
|
Me.TextBox9.Text = "TextBox4"
|
|
Me.TextBox9.Visible = False
|
|
'
|
|
'Label36
|
|
'
|
|
Me.Label36.Location = New System.Drawing.Point(48, 464)
|
|
Me.Label36.Name = "Label36"
|
|
Me.Label36.TabIndex = 53
|
|
Me.Label36.Text = "Archivierung bis"
|
|
Me.Label36.Visible = False
|
|
'
|
|
'Label37
|
|
'
|
|
Me.Label37.Location = New System.Drawing.Point(48, 440)
|
|
Me.Label37.Name = "Label37"
|
|
Me.Label37.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label37.TabIndex = 51
|
|
Me.Label37.Text = "Mutation bis"
|
|
Me.Label37.Visible = False
|
|
'
|
|
'Label38
|
|
'
|
|
Me.Label38.Location = New System.Drawing.Point(48, 416)
|
|
Me.Label38.Name = "Label38"
|
|
Me.Label38.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label38.TabIndex = 49
|
|
Me.Label38.Text = "Erstellung bis"
|
|
Me.Label38.Visible = False
|
|
'
|
|
'DateTimePicker10
|
|
'
|
|
Me.DateTimePicker10.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker10.Location = New System.Drawing.Point(160, 464)
|
|
Me.DateTimePicker10.Name = "DateTimePicker10"
|
|
Me.DateTimePicker10.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker10.TabIndex = 47
|
|
Me.DateTimePicker10.TabStop = False
|
|
Me.DateTimePicker10.Visible = False
|
|
'
|
|
'DateTimePicker11
|
|
'
|
|
Me.DateTimePicker11.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker11.Location = New System.Drawing.Point(160, 440)
|
|
Me.DateTimePicker11.Name = "DateTimePicker11"
|
|
Me.DateTimePicker11.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker11.TabIndex = 45
|
|
Me.DateTimePicker11.TabStop = False
|
|
Me.DateTimePicker11.Visible = False
|
|
'
|
|
'DateTimePicker12
|
|
'
|
|
Me.DateTimePicker12.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker12.Location = New System.Drawing.Point(160, 416)
|
|
Me.DateTimePicker12.Name = "DateTimePicker12"
|
|
Me.DateTimePicker12.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker12.TabIndex = 43
|
|
Me.DateTimePicker12.TabStop = False
|
|
Me.DateTimePicker12.Visible = False
|
|
'
|
|
'TVHostDok
|
|
'
|
|
Me.TVHostDok.ContextMenu = Me.ContextMenu1
|
|
Me.TVHostDok.ImageIndex = -1
|
|
Me.TVHostDok.Location = New System.Drawing.Point(224, 8)
|
|
Me.TVHostDok.Name = "TVHostDok"
|
|
Me.TVHostDok.SelectedImageIndex = -1
|
|
Me.TVHostDok.Size = New System.Drawing.Size(376, 504)
|
|
Me.TVHostDok.TabIndex = 6
|
|
Me.TVHostDok.Visible = False
|
|
'
|
|
'ContextMenu1
|
|
'
|
|
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuSelectDokumentart, Me.MnuDeleteDokumentart, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
|
|
'
|
|
'MnuSelectDokumentart
|
|
'
|
|
Me.MnuSelectDokumentart.Index = 0
|
|
Me.MnuSelectDokumentart.Text = "Eintrag auswählen"
|
|
'
|
|
'MnuDeleteDokumentart
|
|
'
|
|
Me.MnuDeleteDokumentart.Index = 1
|
|
Me.MnuDeleteDokumentart.Text = "Eintrag abwählen"
|
|
'
|
|
'MenuItem2
|
|
'
|
|
Me.MenuItem2.Index = 2
|
|
Me.MenuItem2.Text = "-"
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Index = 3
|
|
Me.MenuItem3.Text = "Knoten öffnen"
|
|
'
|
|
'MenuItem4
|
|
'
|
|
Me.MenuItem4.Index = 4
|
|
Me.MenuItem4.Text = "Knoten schliessen"
|
|
'
|
|
'PnlDokumentDaten
|
|
'
|
|
Me.PnlDokumentDaten.Controls.AddRange(New System.Windows.Forms.Control() {Me.cinklalt, Me.cbmavip, Me.Label12, Me.Label11, Me.lbldatum3, Me.lbldatum2, Me.lbldatum1, Me.Button3, Me.Button2, Me.Button1, Me.Label10, Me.cbtag3, Me.Label8, Me.Label7, Me.cbtag2, Me.Label6, Me.Label5, Me.cbtag1, Me.cbd6, Me.cbd4, Me.cbd2, Me.txtdatum6, Me.txtdatum5, Me.txtdatum4, Me.txtdatum3, Me.txtdatum2, Me.txtdatum1, 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.GroupBox3, Me.GroupBox10})
|
|
Me.PnlDokumentDaten.Location = New System.Drawing.Point(224, 8)
|
|
Me.PnlDokumentDaten.Name = "PnlDokumentDaten"
|
|
Me.PnlDokumentDaten.Size = New System.Drawing.Size(376, 496)
|
|
Me.PnlDokumentDaten.TabIndex = 1
|
|
Me.PnlDokumentDaten.Visible = False
|
|
'
|
|
'cinklalt
|
|
'
|
|
Me.cinklalt.Location = New System.Drawing.Point(16, 168)
|
|
Me.cinklalt.Name = "cinklalt"
|
|
Me.cinklalt.Size = New System.Drawing.Size(336, 24)
|
|
Me.cinklalt.TabIndex = 84
|
|
Me.cinklalt.Text = "Dokumentselektion inkl. gelöschte/aufgehobene Dokumente"
|
|
'
|
|
'cbmavip
|
|
'
|
|
Me.cbmavip.Location = New System.Drawing.Point(16, 168)
|
|
Me.cbmavip.Name = "cbmavip"
|
|
Me.cbmavip.Size = New System.Drawing.Size(264, 24)
|
|
Me.cbmavip.TabIndex = 82
|
|
Me.cbmavip.Text = "Partnerselektion inkl. Mitarbeiter- und VIP"
|
|
Me.cbmavip.Visible = False
|
|
'
|
|
'Label12
|
|
'
|
|
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label12.Location = New System.Drawing.Point(168, 24)
|
|
Me.Label12.Name = "Label12"
|
|
Me.Label12.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label12.TabIndex = 81
|
|
Me.Label12.Text = "Ab Datum"
|
|
'
|
|
'Label11
|
|
'
|
|
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label11.Location = New System.Drawing.Point(248, 24)
|
|
Me.Label11.Name = "Label11"
|
|
Me.Label11.TabIndex = 80
|
|
Me.Label11.Text = "Bis Datum"
|
|
'
|
|
'lbldatum3
|
|
'
|
|
Me.lbldatum3.Location = New System.Drawing.Point(168, 112)
|
|
Me.lbldatum3.Name = "lbldatum3"
|
|
Me.lbldatum3.Size = New System.Drawing.Size(72, 21)
|
|
Me.lbldatum3.TabIndex = 79
|
|
'
|
|
'lbldatum2
|
|
'
|
|
Me.lbldatum2.Location = New System.Drawing.Point(168, 80)
|
|
Me.lbldatum2.Name = "lbldatum2"
|
|
Me.lbldatum2.Size = New System.Drawing.Size(72, 21)
|
|
Me.lbldatum2.TabIndex = 78
|
|
'
|
|
'lbldatum1
|
|
'
|
|
Me.lbldatum1.Location = New System.Drawing.Point(168, 48)
|
|
Me.lbldatum1.Name = "lbldatum1"
|
|
Me.lbldatum1.Size = New System.Drawing.Size(72, 21)
|
|
Me.lbldatum1.TabIndex = 77
|
|
'
|
|
'Button3
|
|
'
|
|
Me.Button3.Location = New System.Drawing.Point(344, 112)
|
|
Me.Button3.Name = "Button3"
|
|
Me.Button3.Size = New System.Drawing.Size(16, 16)
|
|
Me.Button3.TabIndex = 76
|
|
'
|
|
'Button2
|
|
'
|
|
Me.Button2.Location = New System.Drawing.Point(344, 80)
|
|
Me.Button2.Name = "Button2"
|
|
Me.Button2.Size = New System.Drawing.Size(16, 16)
|
|
Me.Button2.TabIndex = 75
|
|
'
|
|
'Button1
|
|
'
|
|
Me.Button1.Location = New System.Drawing.Point(344, 48)
|
|
Me.Button1.Name = "Button1"
|
|
Me.Button1.Size = New System.Drawing.Size(16, 16)
|
|
Me.Button1.TabIndex = 74
|
|
'
|
|
'Label10
|
|
'
|
|
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label10.Location = New System.Drawing.Point(88, 24)
|
|
Me.Label10.Name = "Label10"
|
|
Me.Label10.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label10.TabIndex = 73
|
|
Me.Label10.Text = "Anzahl Tage"
|
|
'
|
|
'cbtag3
|
|
'
|
|
Me.cbtag3.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
|
|
Me.cbtag3.Location = New System.Drawing.Point(88, 110)
|
|
Me.cbtag3.Name = "cbtag3"
|
|
Me.cbtag3.Size = New System.Drawing.Size(56, 21)
|
|
Me.cbtag3.TabIndex = 71
|
|
Me.cbtag3.Text = "ComboBox1"
|
|
'
|
|
'Label8
|
|
'
|
|
Me.Label8.Location = New System.Drawing.Point(256, 344)
|
|
Me.Label8.Name = "Label8"
|
|
Me.Label8.Size = New System.Drawing.Size(40, 23)
|
|
Me.Label8.TabIndex = 70
|
|
Me.Label8.Text = "Tagen"
|
|
Me.Label8.Visible = False
|
|
'
|
|
'Label7
|
|
'
|
|
Me.Label7.Location = New System.Drawing.Point(256, 320)
|
|
Me.Label7.Name = "Label7"
|
|
Me.Label7.Size = New System.Drawing.Size(40, 23)
|
|
Me.Label7.TabIndex = 69
|
|
Me.Label7.Text = "Tagen"
|
|
Me.Label7.Visible = False
|
|
'
|
|
'cbtag2
|
|
'
|
|
Me.cbtag2.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
|
|
Me.cbtag2.Location = New System.Drawing.Point(88, 78)
|
|
Me.cbtag2.Name = "cbtag2"
|
|
Me.cbtag2.Size = New System.Drawing.Size(56, 21)
|
|
Me.cbtag2.TabIndex = 68
|
|
Me.cbtag2.Text = "ComboBox1"
|
|
'
|
|
'Label6
|
|
'
|
|
Me.Label6.Location = New System.Drawing.Point(32, 344)
|
|
Me.Label6.Name = "Label6"
|
|
Me.Label6.Size = New System.Drawing.Size(160, 23)
|
|
Me.Label6.TabIndex = 67
|
|
Me.Label6.Text = "Mutationsdatum in den letzen "
|
|
Me.Label6.Visible = False
|
|
'
|
|
'Label5
|
|
'
|
|
Me.Label5.Location = New System.Drawing.Point(32, 320)
|
|
Me.Label5.Name = "Label5"
|
|
Me.Label5.Size = New System.Drawing.Size(160, 23)
|
|
Me.Label5.TabIndex = 66
|
|
Me.Label5.Text = "Erstellungsdatum in den letzen"
|
|
Me.Label5.Visible = False
|
|
'
|
|
'cbtag1
|
|
'
|
|
Me.cbtag1.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
|
|
Me.cbtag1.Location = New System.Drawing.Point(88, 46)
|
|
Me.cbtag1.Name = "cbtag1"
|
|
Me.cbtag1.Size = New System.Drawing.Size(56, 21)
|
|
Me.cbtag1.TabIndex = 65
|
|
Me.cbtag1.Text = "ComboBox1"
|
|
'
|
|
'cbd6
|
|
'
|
|
Me.cbd6.Location = New System.Drawing.Point(16, 464)
|
|
Me.cbd6.Name = "cbd6"
|
|
Me.cbd6.Size = New System.Drawing.Size(16, 24)
|
|
Me.cbd6.TabIndex = 64
|
|
Me.cbd6.Visible = False
|
|
'
|
|
'cbd4
|
|
'
|
|
Me.cbd4.Location = New System.Drawing.Point(16, 440)
|
|
Me.cbd4.Name = "cbd4"
|
|
Me.cbd4.Size = New System.Drawing.Size(16, 24)
|
|
Me.cbd4.TabIndex = 62
|
|
Me.cbd4.Visible = False
|
|
'
|
|
'cbd2
|
|
'
|
|
Me.cbd2.Location = New System.Drawing.Point(16, 416)
|
|
Me.cbd2.Name = "cbd2"
|
|
Me.cbd2.Size = New System.Drawing.Size(16, 24)
|
|
Me.cbd2.TabIndex = 60
|
|
Me.cbd2.Visible = False
|
|
'
|
|
'txtdatum6
|
|
'
|
|
Me.txtdatum6.BackColor = System.Drawing.Color.White
|
|
Me.txtdatum6.Enabled = False
|
|
Me.txtdatum6.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.txtdatum6.Location = New System.Drawing.Point(160, 464)
|
|
Me.txtdatum6.Name = "txtdatum6"
|
|
Me.txtdatum6.ReadOnly = True
|
|
Me.txtdatum6.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtdatum6.TabIndex = 59
|
|
Me.txtdatum6.Text = "TextBox4"
|
|
Me.txtdatum6.Visible = False
|
|
'
|
|
'txtdatum5
|
|
'
|
|
Me.txtdatum5.BackColor = System.Drawing.Color.White
|
|
Me.txtdatum5.Enabled = False
|
|
Me.txtdatum5.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.txtdatum5.Location = New System.Drawing.Point(248, 110)
|
|
Me.txtdatum5.Name = "txtdatum5"
|
|
Me.txtdatum5.ReadOnly = True
|
|
Me.txtdatum5.Size = New System.Drawing.Size(79, 20)
|
|
Me.txtdatum5.TabIndex = 58
|
|
Me.txtdatum5.Text = "TextBox4"
|
|
'
|
|
'txtdatum4
|
|
'
|
|
Me.txtdatum4.BackColor = System.Drawing.Color.White
|
|
Me.txtdatum4.Enabled = False
|
|
Me.txtdatum4.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.txtdatum4.Location = New System.Drawing.Point(160, 440)
|
|
Me.txtdatum4.Name = "txtdatum4"
|
|
Me.txtdatum4.ReadOnly = True
|
|
Me.txtdatum4.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtdatum4.TabIndex = 57
|
|
Me.txtdatum4.Text = "TextBox4"
|
|
Me.txtdatum4.Visible = False
|
|
'
|
|
'txtdatum3
|
|
'
|
|
Me.txtdatum3.BackColor = System.Drawing.Color.White
|
|
Me.txtdatum3.Enabled = False
|
|
Me.txtdatum3.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.txtdatum3.Location = New System.Drawing.Point(248, 78)
|
|
Me.txtdatum3.Name = "txtdatum3"
|
|
Me.txtdatum3.ReadOnly = True
|
|
Me.txtdatum3.Size = New System.Drawing.Size(79, 20)
|
|
Me.txtdatum3.TabIndex = 56
|
|
Me.txtdatum3.Text = "TextBox4"
|
|
'
|
|
'txtdatum2
|
|
'
|
|
Me.txtdatum2.BackColor = System.Drawing.Color.White
|
|
Me.txtdatum2.Enabled = False
|
|
Me.txtdatum2.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.txtdatum2.Location = New System.Drawing.Point(160, 416)
|
|
Me.txtdatum2.Name = "txtdatum2"
|
|
Me.txtdatum2.ReadOnly = True
|
|
Me.txtdatum2.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtdatum2.TabIndex = 55
|
|
Me.txtdatum2.Text = "TextBox4"
|
|
Me.txtdatum2.Visible = False
|
|
'
|
|
'txtdatum1
|
|
'
|
|
Me.txtdatum1.BackColor = System.Drawing.Color.White
|
|
Me.txtdatum1.Enabled = False
|
|
Me.txtdatum1.ForeColor = System.Drawing.Color.WhiteSmoke
|
|
Me.txtdatum1.Location = New System.Drawing.Point(248, 46)
|
|
Me.txtdatum1.Name = "txtdatum1"
|
|
Me.txtdatum1.ReadOnly = True
|
|
Me.txtdatum1.Size = New System.Drawing.Size(79, 20)
|
|
Me.txtdatum1.TabIndex = 54
|
|
Me.txtdatum1.Text = "TextBox4"
|
|
'
|
|
'Label18
|
|
'
|
|
Me.Label18.Location = New System.Drawing.Point(48, 464)
|
|
Me.Label18.Name = "Label18"
|
|
Me.Label18.TabIndex = 53
|
|
Me.Label18.Text = "Archivierung bis"
|
|
Me.Label18.Visible = False
|
|
'
|
|
'Label17
|
|
'
|
|
Me.Label17.Location = New System.Drawing.Point(16, 111)
|
|
Me.Label17.Name = "Label17"
|
|
Me.Label17.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label17.TabIndex = 52
|
|
Me.Label17.Text = "Archivierung"
|
|
'
|
|
'Label16
|
|
'
|
|
Me.Label16.Location = New System.Drawing.Point(48, 440)
|
|
Me.Label16.Name = "Label16"
|
|
Me.Label16.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label16.TabIndex = 51
|
|
Me.Label16.Text = "Mutation bis"
|
|
Me.Label16.Visible = False
|
|
'
|
|
'Label15
|
|
'
|
|
Me.Label15.Location = New System.Drawing.Point(16, 79)
|
|
Me.Label15.Name = "Label15"
|
|
Me.Label15.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label15.TabIndex = 50
|
|
Me.Label15.Text = "Mutation"
|
|
'
|
|
'Label14
|
|
'
|
|
Me.Label14.Location = New System.Drawing.Point(48, 416)
|
|
Me.Label14.Name = "Label14"
|
|
Me.Label14.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label14.TabIndex = 49
|
|
Me.Label14.Text = "Erstellung bis"
|
|
Me.Label14.Visible = False
|
|
'
|
|
'Label13
|
|
'
|
|
Me.Label13.Location = New System.Drawing.Point(16, 47)
|
|
Me.Label13.Name = "Label13"
|
|
Me.Label13.Size = New System.Drawing.Size(56, 23)
|
|
Me.Label13.TabIndex = 48
|
|
Me.Label13.Text = "Erstellung"
|
|
'
|
|
'DateTimePicker6
|
|
'
|
|
Me.DateTimePicker6.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker6.Location = New System.Drawing.Point(160, 464)
|
|
Me.DateTimePicker6.Name = "DateTimePicker6"
|
|
Me.DateTimePicker6.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker6.TabIndex = 47
|
|
Me.DateTimePicker6.TabStop = False
|
|
Me.DateTimePicker6.Visible = False
|
|
'
|
|
'DateTimePicker5
|
|
'
|
|
Me.DateTimePicker5.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker5.Location = New System.Drawing.Point(248, 110)
|
|
Me.DateTimePicker5.Name = "DateTimePicker5"
|
|
Me.DateTimePicker5.Size = New System.Drawing.Size(96, 20)
|
|
Me.DateTimePicker5.TabIndex = 46
|
|
Me.DateTimePicker5.TabStop = False
|
|
'
|
|
'DateTimePicker4
|
|
'
|
|
Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker4.Location = New System.Drawing.Point(160, 440)
|
|
Me.DateTimePicker4.Name = "DateTimePicker4"
|
|
Me.DateTimePicker4.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker4.TabIndex = 45
|
|
Me.DateTimePicker4.TabStop = False
|
|
Me.DateTimePicker4.Visible = False
|
|
'
|
|
'DateTimePicker3
|
|
'
|
|
Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker3.Location = New System.Drawing.Point(248, 78)
|
|
Me.DateTimePicker3.Name = "DateTimePicker3"
|
|
Me.DateTimePicker3.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker3.TabIndex = 44
|
|
Me.DateTimePicker3.TabStop = False
|
|
'
|
|
'DateTimePicker2
|
|
'
|
|
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker2.Location = New System.Drawing.Point(160, 416)
|
|
Me.DateTimePicker2.Name = "DateTimePicker2"
|
|
Me.DateTimePicker2.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker2.TabIndex = 43
|
|
Me.DateTimePicker2.TabStop = False
|
|
Me.DateTimePicker2.Visible = False
|
|
'
|
|
'DateTimePicker1
|
|
'
|
|
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.DateTimePicker1.Location = New System.Drawing.Point(248, 46)
|
|
Me.DateTimePicker1.Name = "DateTimePicker1"
|
|
Me.DateTimePicker1.Size = New System.Drawing.Size(98, 20)
|
|
Me.DateTimePicker1.TabIndex = 42
|
|
Me.DateTimePicker1.TabStop = False
|
|
'
|
|
'GroupBox3
|
|
'
|
|
Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
|
|
Me.GroupBox3.Location = New System.Drawing.Point(8, 8)
|
|
Me.GroupBox3.Name = "GroupBox3"
|
|
Me.GroupBox3.Size = New System.Drawing.Size(360, 136)
|
|
Me.GroupBox3.TabIndex = 83
|
|
Me.GroupBox3.TabStop = False
|
|
Me.GroupBox3.Text = "Datumsselektion"
|
|
'
|
|
'GroupBox10
|
|
'
|
|
Me.GroupBox10.BackColor = System.Drawing.Color.Transparent
|
|
Me.GroupBox10.Location = New System.Drawing.Point(8, 152)
|
|
Me.GroupBox10.Name = "GroupBox10"
|
|
Me.GroupBox10.Size = New System.Drawing.Size(360, 48)
|
|
Me.GroupBox10.TabIndex = 85
|
|
Me.GroupBox10.TabStop = False
|
|
Me.GroupBox10.Text = "Datenselektion"
|
|
'
|
|
'PnlDokumentart
|
|
'
|
|
Me.PnlDokumentart.Controls.AddRange(New System.Windows.Forms.Control() {Me.TVDokart})
|
|
Me.PnlDokumentart.Location = New System.Drawing.Point(224, 8)
|
|
Me.PnlDokumentart.Name = "PnlDokumentart"
|
|
Me.PnlDokumentart.Size = New System.Drawing.Size(376, 504)
|
|
Me.PnlDokumentart.TabIndex = 4
|
|
Me.PnlDokumentart.Visible = False
|
|
'
|
|
'TVDokart
|
|
'
|
|
Me.TVDokart.ContextMenu = Me.ContextMenu1
|
|
Me.TVDokart.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TVDokart.ImageIndex = -1
|
|
Me.TVDokart.Name = "TVDokart"
|
|
Me.TVDokart.SelectedImageIndex = -1
|
|
Me.TVDokart.Size = New System.Drawing.Size(376, 504)
|
|
Me.TVDokart.TabIndex = 0
|
|
'
|
|
'PnlPartner
|
|
'
|
|
Me.PnlPartner.Controls.AddRange(New System.Windows.Forms.Control() {Me.PartnerList, Me.btnPartnersuche, Me.Label3, Me.TextBox3, Me.Label2, Me.TextBox2, Me.Label1, Me.TextBox1})
|
|
Me.PnlPartner.Location = New System.Drawing.Point(224, 8)
|
|
Me.PnlPartner.Name = "PnlPartner"
|
|
Me.PnlPartner.Size = New System.Drawing.Size(376, 504)
|
|
Me.PnlPartner.TabIndex = 3
|
|
Me.PnlPartner.Visible = False
|
|
'
|
|
'PartnerList
|
|
'
|
|
Me.PartnerList.AllowFilter = True
|
|
Me.PartnerList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.PartnerList.AllowSort = True
|
|
Me.PartnerList.AllowUpdate = False
|
|
Me.PartnerList.AllowUpdateOnBlur = False
|
|
Me.PartnerList.AlternatingRows = True
|
|
Me.PartnerList.CaptionHeight = 17
|
|
Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
|
Me.PartnerList.CollapseColor = System.Drawing.Color.Black
|
|
Me.PartnerList.ContextMenu = Me.CTMenuErsteller
|
|
Me.PartnerList.DataChanged = False
|
|
Me.PartnerList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.PartnerList.Dock = System.Windows.Forms.DockStyle.Bottom
|
|
Me.PartnerList.ExpandColor = System.Drawing.Color.Black
|
|
Me.PartnerList.FetchRowStyles = True
|
|
Me.PartnerList.FilterBar = True
|
|
Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.PartnerList.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
|
Me.PartnerList.Location = New System.Drawing.Point(0, 104)
|
|
Me.PartnerList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
|
Me.PartnerList.Name = "PartnerList"
|
|
Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.PartnerList.PreviewInfo.ZoomFactor = 75
|
|
Me.PartnerList.PrintInfo.ShowOptionsDialog = False
|
|
Me.PartnerList.RecordSelectorWidth = 16
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.PartnerList.RowDivider = GridLines1
|
|
Me.PartnerList.RowHeight = 15
|
|
Me.PartnerList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.PartnerList.ScrollTips = False
|
|
Me.PartnerList.Size = New System.Drawing.Size(376, 400)
|
|
Me.PartnerList.TabIndex = 17
|
|
Me.PartnerList.Text = "C1TrueDBGrid1"
|
|
Me.PartnerList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Style1{}OddRow{BackColor:Silver;}RecordSelector{AlignImage:Center" & _
|
|
";}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:Contro" & _
|
|
"lText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style1" & _
|
|
"3{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" Altern" & _
|
|
"atingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHei" & _
|
|
"ght=""17"" FetchRowStyles=""True"" FilterBar=""True"" MarqueeStyle=""DottedCellBorder"" " & _
|
|
"RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalS" & _
|
|
"crollGroup=""1""><ClientRect>0, 0, 372, 396</ClientRect><BorderSide>0</BorderSide>" & _
|
|
"<CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""St" & _
|
|
"yle5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""Fil" & _
|
|
"terBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle pa" & _
|
|
"rent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLi" & _
|
|
"ghtRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive""" & _
|
|
" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle p" & _
|
|
"arent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style" & _
|
|
"6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Spli" & _
|
|
"ts><NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Headin" & _
|
|
"g"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" " & _
|
|
"/><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /" & _
|
|
"><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /" & _
|
|
"><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Sty" & _
|
|
"le parent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" " & _
|
|
"/><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><" & _
|
|
"horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRec" & _
|
|
"SelWidth><ClientArea>0, 0, 372, 396</ClientArea></Blob>"
|
|
'
|
|
'btnPartnersuche
|
|
'
|
|
Me.btnPartnersuche.Image = CType(resources.GetObject("btnPartnersuche.Image"), System.Drawing.Bitmap)
|
|
Me.btnPartnersuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|
Me.btnPartnersuche.Location = New System.Drawing.Point(288, 32)
|
|
Me.btnPartnersuche.Name = "btnPartnersuche"
|
|
Me.btnPartnersuche.Size = New System.Drawing.Size(72, 40)
|
|
Me.btnPartnersuche.TabIndex = 16
|
|
Me.btnPartnersuche.Text = "&Suchen"
|
|
Me.btnPartnersuche.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.Location = New System.Drawing.Point(8, 64)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label3.TabIndex = 15
|
|
Me.Label3.Text = "Freitext"
|
|
'
|
|
'TextBox3
|
|
'
|
|
Me.TextBox3.Location = New System.Drawing.Point(88, 64)
|
|
Me.TextBox3.Name = "TextBox3"
|
|
Me.TextBox3.Size = New System.Drawing.Size(160, 20)
|
|
Me.TextBox3.TabIndex = 14
|
|
Me.TextBox3.Text = ""
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(8, 40)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label2.TabIndex = 13
|
|
Me.Label2.Text = "Kurzname"
|
|
'
|
|
'TextBox2
|
|
'
|
|
Me.TextBox2.Location = New System.Drawing.Point(88, 40)
|
|
Me.TextBox2.Name = "TextBox2"
|
|
Me.TextBox2.Size = New System.Drawing.Size(160, 20)
|
|
Me.TextBox2.TabIndex = 12
|
|
Me.TextBox2.Text = ""
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 16)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label1.TabIndex = 11
|
|
Me.Label1.Text = "Partner-Nr."
|
|
'
|
|
'TextBox1
|
|
'
|
|
Me.TextBox1.Location = New System.Drawing.Point(88, 16)
|
|
Me.TextBox1.Name = "TextBox1"
|
|
Me.TextBox1.Size = New System.Drawing.Size(160, 20)
|
|
Me.TextBox1.TabIndex = 10
|
|
Me.TextBox1.Text = ""
|
|
'
|
|
'Panel3
|
|
'
|
|
Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBGrid1})
|
|
Me.Panel3.Location = New System.Drawing.Point(224, 8)
|
|
Me.Panel3.Name = "Panel3"
|
|
Me.Panel3.Size = New System.Drawing.Size(368, 496)
|
|
Me.Panel3.TabIndex = 2
|
|
Me.Panel3.Visible = False
|
|
'
|
|
'C1TrueDBGrid1
|
|
'
|
|
Me.C1TrueDBGrid1.AllowFilter = True
|
|
Me.C1TrueDBGrid1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.C1TrueDBGrid1.AllowSort = True
|
|
Me.C1TrueDBGrid1.AlternatingRows = True
|
|
Me.C1TrueDBGrid1.CaptionHeight = 17
|
|
Me.C1TrueDBGrid1.CollapseColor = System.Drawing.Color.Black
|
|
Me.C1TrueDBGrid1.ContextMenu = Me.CTMenuVerantwortlicher
|
|
Me.C1TrueDBGrid1.DataChanged = False
|
|
Me.C1TrueDBGrid1.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.C1TrueDBGrid1.ExpandColor = System.Drawing.Color.Black
|
|
Me.C1TrueDBGrid1.FilterBar = True
|
|
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
|
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
|
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
|
|
Me.C1TrueDBGrid1.PrintInfo.ShowOptionsDialog = False
|
|
Me.C1TrueDBGrid1.RecordSelectorWidth = 16
|
|
GridLines2.Color = System.Drawing.Color.DarkGray
|
|
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.C1TrueDBGrid1.RowDivider = GridLines2
|
|
Me.C1TrueDBGrid1.RowHeight = 15
|
|
Me.C1TrueDBGrid1.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.C1TrueDBGrid1.ScrollTips = False
|
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(368, 496)
|
|
Me.C1TrueDBGrid1.TabIndex = 0
|
|
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
|
|
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
|
":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
|
|
":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
|
"}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
|
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
|
"oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorW" & _
|
|
"idth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1"">" & _
|
|
"<ClientRect>0, 0, 364, 492</ClientRect><BorderSide>0</BorderSide><CaptionStyle p" & _
|
|
"arent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRo" & _
|
|
"wStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Sty" & _
|
|
"le13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me" & _
|
|
"=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle par" & _
|
|
"ent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" />" & _
|
|
"<OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSe" & _
|
|
"lector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style par" & _
|
|
"ent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles" & _
|
|
"><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style par" & _
|
|
"ent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent" & _
|
|
"=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=" & _
|
|
"""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=" & _
|
|
"""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Head" & _
|
|
"ing"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent" & _
|
|
"=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</h" & _
|
|
"orzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Clien" & _
|
|
"tArea>0, 0, 364, 492</ClientArea></Blob>"
|
|
'
|
|
'TreeView1
|
|
'
|
|
Me.TreeView1.ContextMenu = Me.ctmenu1
|
|
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
|
|
Me.TreeView1.FullRowSelect = True
|
|
Me.TreeView1.ImageList = Me.ImageList2
|
|
Me.TreeView1.Name = "TreeView1"
|
|
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Dokument", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Daten"), New System.Windows.Forms.TreeNode("Dokumentart"), New System.Windows.Forms.TreeNode("Dokumentstatus"), New System.Windows.Forms.TreeNode("Partner")}), New System.Windows.Forms.TreeNode("Ersteller", 8, 8, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Kostenstelle"), New System.Windows.Forms.TreeNode("Marktbereich"), New System.Windows.Forms.TreeNode("Mitarbeiter"), New System.Windows.Forms.TreeNode("Niederlassung"), New System.Windows.Forms.TreeNode("Team")}), New System.Windows.Forms.TreeNode("Mutierer", 9, 9, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Kostenstelle"), New System.Windows.Forms.TreeNode("Marktbereich"), New System.Windows.Forms.TreeNode("Mitarbeiter"), New System.Windows.Forms.TreeNode("Niederlassung"), New System.Windows.Forms.TreeNode("Team")}), New System.Windows.Forms.TreeNode("Verantwortlich", 7, 7, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Kostenstelle"), New System.Windows.Forms.TreeNode("Marktbereich"), New System.Windows.Forms.TreeNode("Mitarbeiter"), New System.Windows.Forms.TreeNode("Niederlassung"), New System.Windows.Forms.TreeNode("Team")})})
|
|
Me.TreeView1.Size = New System.Drawing.Size(216, 518)
|
|
Me.TreeView1.TabIndex = 0
|
|
'
|
|
'ImageList2
|
|
'
|
|
Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'ImageList3
|
|
'
|
|
Me.ImageList3.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList3.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'SqlConnection3
|
|
'
|
|
Me.SqlConnection3.ConnectionString = "data source=pc120;initial catalog=edoka;password=sqlsa;persist security info=True" & _
|
|
";user id=sa;workstation id=PC120;packet size=4096"
|
|
'
|
|
'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", "ProfilDokAuswertung", 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("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"), New System.Data.Common.DataColumnMapping("vmb", "vmb"), New System.Data.Common.DataColumnMapping("vnl", "vnl"), New System.Data.Common.DataColumnMapping("vkost", "vkost"), New System.Data.Common.DataColumnMapping("vteam", "vteam"), New System.Data.Common.DataColumnMapping("vma", "vma"), New System.Data.Common.DataColumnMapping("mmb", "mmb"), New System.Data.Common.DataColumnMapping("mnl", "mnl"), New System.Data.Common.DataColumnMapping("mkost", "mkost"), New System.Data.Common.DataColumnMapping("mteam", "mteam"), New System.Data.Common.DataColumnMapping("mma", "mma"), New System.Data.Common.DataColumnMapping("emb", "emb"), New System.Data.Common.DataColumnMapping("enl", "enl"), New System.Data.Common.DataColumnMapping("ekost", "ekost"), New System.Data.Common.DataColumnMapping("eteam", "eteam"), New System.Data.Common.DataColumnMapping("ema", "ema"), New System.Data.Common.DataColumnMapping("dpartner", "dpartner"), New System.Data.Common.DataColumnMapping("ddokart", "ddokart"), New System.Data.Common.DataColumnMapping("ddokstatus", "ddokstatus"), New System.Data.Common.DataColumnMapping("datum1", "datum1"), New System.Data.Common.DataColumnMapping("datum2", "datum2"), New System.Data.Common.DataColumnMapping("datum3", "datum3"), New System.Data.Common.DataColumnMapping("datum4", "datum4"), New System.Data.Common.DataColumnMapping("datum5", "datum5"), New System.Data.Common.DataColumnMapping("datum6", "datum6"), New System.Data.Common.DataColumnMapping("datum7", "datum7"), New System.Data.Common.DataColumnMapping("datum8", "datum8"), New System.Data.Common.DataColumnMapping("erstaelterals", "erstaelterals"), New System.Data.Common.DataColumnMapping("mutaelterasl", "mutaelterasl"), New System.Data.Common.DataColumnMapping("team", "team"), New System.Data.Common.DataColumnMapping("sort", "sort"), New System.Data.Common.DataColumnMapping("aktive", "aktive"), New System.Data.Common.DataColumnMapping("profiltyp", "profiltyp"), New System.Data.Common.DataColumnMapping("doktyp", "doktyp"), New System.Data.Common.DataColumnMapping("inklmavip", "inklmavip"), New System.Data.Common.DataColumnMapping("inklalt", "inklalt"), New System.Data.Common.DataColumnMapping("hostpartner", "hostpartner"), New System.Data.Common.DataColumnMapping("hostdokart", "hostdokart"), New System.Data.Common.DataColumnMapping("hostdoktyp", "hostdoktyp"), New System.Data.Common.DataColumnMapping("hosttag1", "hosttag1"), New System.Data.Common.DataColumnMapping("hostdatum1", "hostdatum1"), New System.Data.Common.DataColumnMapping("hosttag2", "hosttag2"), New System.Data.Common.DataColumnMapping("hostdatum2", "hostdatum2"), New System.Data.Common.DataColumnMapping("hosttag3", "hosttag3"), New System.Data.Common.DataColumnMapping("hostdatum3", "hostdatum3"), New System.Data.Common.DataColumnMapping("inklhostmavip", "inklhostmavip"), New System.Data.Common.DataColumnMapping("Expr1", "Expr1")})})
|
|
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[pv_ProfilDokAuswertung_delete]"
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection3
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profilnr", 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(0, Byte), CType(0, Byte), "mitarbeiternr", 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_aktive", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktive", 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.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum2", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum3", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum4", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum5", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum6", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum7", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum8", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokart", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokstatus", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokstatus", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_doktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktyp", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dpartner", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ekost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ekost", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ema", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ema", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_emb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emb", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_enl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "enl", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstaelterals", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstaelterals", 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_eteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eteam", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum1", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum2", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum2", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum3", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum3", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokart", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdoktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdoktyp", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostpartner", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag1", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag2", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag2", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag3", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag3", 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(0, 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(0, 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(0, 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(0, 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(0, 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(0, 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(0, 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(0, 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(0, 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(0, 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(0, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklalt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklhostmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklhostmavip", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklmavip", 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(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Expr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mkost", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mma", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mmb", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mnl", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mteam", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutaelterasl", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutaelterasl", 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(0, Byte), CType(0, Byte), "mutierer", 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_profiltyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profiltyp", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sort", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sort", 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.Int, 4, 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(0, 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(0, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vkost", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vma", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vmb", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vnl", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vteam", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[pv_ProfilDokAuswertung_insert]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection3
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, "profilnr"))
|
|
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, "mandantnr"))
|
|
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, "mutierer"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.VarChar, 50, "color1"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.VarChar, 50, "color2"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.VarChar, 50, "color3"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.VarChar, 50, "color4"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.VarChar, 50, "color5"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.VarChar, 50, "color6"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.VarChar, 50, "color7"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.VarChar, 50, "color8"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, "unterschriftlinks"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, "unterschriftrechts"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, "hw1"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, "hw2"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, "hw3"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, "hw4"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, "hw5"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, "hw6"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, "hw7"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, "hw8"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, "hw9"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, "hw10"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, "hw11"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vmb", System.Data.SqlDbType.VarChar, 255, "vmb"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vnl", System.Data.SqlDbType.VarChar, 255, "vnl"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vkost", System.Data.SqlDbType.VarChar, 255, "vkost"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vteam", System.Data.SqlDbType.VarChar, 255, "vteam"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vma", System.Data.SqlDbType.VarChar, 255, "vma"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mmb", System.Data.SqlDbType.VarChar, 255, "mmb"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mnl", System.Data.SqlDbType.VarChar, 255, "mnl"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mkost", System.Data.SqlDbType.VarChar, 255, "mkost"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mteam", System.Data.SqlDbType.VarChar, 255, "mteam"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mma", System.Data.SqlDbType.VarChar, 255, "mma"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@emb", System.Data.SqlDbType.VarChar, 255, "emb"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@enl", System.Data.SqlDbType.VarChar, 255, "enl"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ekost", System.Data.SqlDbType.VarChar, 255, "ekost"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eteam", System.Data.SqlDbType.VarChar, 255, "eteam"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ema", System.Data.SqlDbType.VarChar, 255, "ema"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dpartner", System.Data.SqlDbType.VarChar, 255, "dpartner"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokart", System.Data.SqlDbType.VarChar, 255, "ddokart"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokstatus", System.Data.SqlDbType.VarChar, 255, "ddokstatus"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum1", System.Data.SqlDbType.VarChar, 50, "datum1"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum2", System.Data.SqlDbType.VarChar, 50, "datum2"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum3", System.Data.SqlDbType.VarChar, 50, "datum3"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum4", System.Data.SqlDbType.VarChar, 50, "datum4"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum5", System.Data.SqlDbType.VarChar, 50, "datum5"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum6", System.Data.SqlDbType.VarChar, 50, "datum6"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum7", System.Data.SqlDbType.VarChar, 50, "datum7"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum8", System.Data.SqlDbType.VarChar, 50, "datum8"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstaelterals", System.Data.SqlDbType.VarChar, 50, "erstaelterals"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutaelterasl", System.Data.SqlDbType.VarChar, 50, "mutaelterasl"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.Int, 4, "team"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.VarChar, 1024, "sort"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktive", System.Data.SqlDbType.Bit, 1, "aktive"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profiltyp", System.Data.SqlDbType.Int, 4, "profiltyp"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@doktyp", System.Data.SqlDbType.VarChar, 255, "doktyp"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklmavip", System.Data.SqlDbType.Bit, 1, "inklmavip"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklalt", System.Data.SqlDbType.Bit, 1, "inklalt"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostpartner", System.Data.SqlDbType.VarChar, 255, "hostpartner"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokart", System.Data.SqlDbType.VarChar, 255, "hostdokart"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdoktyp", System.Data.SqlDbType.VarChar, 255, "hostdoktyp"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag1", System.Data.SqlDbType.VarChar, 255, "hosttag1"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum1", System.Data.SqlDbType.VarChar, 255, "hostdatum1"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag2", System.Data.SqlDbType.VarChar, 255, "hosttag2"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum2", System.Data.SqlDbType.VarChar, 255, "hostdatum2"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag3", System.Data.SqlDbType.VarChar, 255, "hosttag3"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum3", System.Data.SqlDbType.VarChar, 255, "hostdatum3"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklhostmavip", System.Data.SqlDbType.Bit, 1, "inklhostmavip"))
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[pv_ProfilDokAuswertung_select]"
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection3
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "Expr1"))
|
|
'
|
|
'SqlUpdateCommand1
|
|
'
|
|
Me.SqlUpdateCommand1.CommandText = "[pv_ProfilDokAuswertung_update]"
|
|
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand1.Connection = Me.SqlConnection3
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, "profilnr"))
|
|
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, "mandantnr"))
|
|
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, "mutierer"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.VarChar, 50, "color1"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.VarChar, 50, "color2"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.VarChar, 50, "color3"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.VarChar, 50, "color4"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.VarChar, 50, "color5"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.VarChar, 50, "color6"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.VarChar, 50, "color7"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.VarChar, 50, "color8"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, "unterschriftlinks"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, "unterschriftrechts"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, "hw1"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, "hw2"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, "hw3"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, "hw4"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, "hw5"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, "hw6"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, "hw7"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, "hw8"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, "hw9"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, "hw10"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, "hw11"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vmb", System.Data.SqlDbType.VarChar, 255, "vmb"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vnl", System.Data.SqlDbType.VarChar, 255, "vnl"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vkost", System.Data.SqlDbType.VarChar, 255, "vkost"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vteam", System.Data.SqlDbType.VarChar, 255, "vteam"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vma", System.Data.SqlDbType.VarChar, 255, "vma"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mmb", System.Data.SqlDbType.VarChar, 255, "mmb"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mnl", System.Data.SqlDbType.VarChar, 255, "mnl"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mkost", System.Data.SqlDbType.VarChar, 255, "mkost"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mteam", System.Data.SqlDbType.VarChar, 255, "mteam"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mma", System.Data.SqlDbType.VarChar, 255, "mma"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@emb", System.Data.SqlDbType.VarChar, 255, "emb"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@enl", System.Data.SqlDbType.VarChar, 255, "enl"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ekost", System.Data.SqlDbType.VarChar, 255, "ekost"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eteam", System.Data.SqlDbType.VarChar, 255, "eteam"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ema", System.Data.SqlDbType.VarChar, 255, "ema"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dpartner", System.Data.SqlDbType.VarChar, 255, "dpartner"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokart", System.Data.SqlDbType.VarChar, 255, "ddokart"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokstatus", System.Data.SqlDbType.VarChar, 255, "ddokstatus"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum1", System.Data.SqlDbType.VarChar, 50, "datum1"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum2", System.Data.SqlDbType.VarChar, 50, "datum2"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum3", System.Data.SqlDbType.VarChar, 50, "datum3"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum4", System.Data.SqlDbType.VarChar, 50, "datum4"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum5", System.Data.SqlDbType.VarChar, 50, "datum5"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum6", System.Data.SqlDbType.VarChar, 50, "datum6"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum7", System.Data.SqlDbType.VarChar, 50, "datum7"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum8", System.Data.SqlDbType.VarChar, 50, "datum8"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstaelterals", System.Data.SqlDbType.VarChar, 50, "erstaelterals"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutaelterasl", System.Data.SqlDbType.VarChar, 50, "mutaelterasl"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.Int, 4, "team"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.VarChar, 1024, "sort"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktive", System.Data.SqlDbType.Bit, 1, "aktive"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profiltyp", System.Data.SqlDbType.Int, 4, "profiltyp"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@doktyp", System.Data.SqlDbType.VarChar, 255, "doktyp"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklmavip", System.Data.SqlDbType.Bit, 1, "inklmavip"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklalt", System.Data.SqlDbType.Bit, 1, "inklalt"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostpartner", System.Data.SqlDbType.VarChar, 255, "hostpartner"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokart", System.Data.SqlDbType.VarChar, 255, "hostdokart"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdoktyp", System.Data.SqlDbType.VarChar, 255, "hostdoktyp"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag1", System.Data.SqlDbType.VarChar, 255, "hosttag1"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum1", System.Data.SqlDbType.VarChar, 255, "hostdatum1"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag2", System.Data.SqlDbType.VarChar, 255, "hosttag2"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum2", System.Data.SqlDbType.VarChar, 255, "hostdatum2"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag3", System.Data.SqlDbType.VarChar, 255, "hosttag3"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum3", System.Data.SqlDbType.VarChar, 255, "hostdatum3"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklhostmavip", System.Data.SqlDbType.Bit, 1, "inklhostmavip"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profilnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktive", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktive", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum2", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum3", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum4", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum5", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum6", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum7", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum8", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokart", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokstatus", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokstatus", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_doktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktyp", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dpartner", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ekost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ekost", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ema", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ema", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_emb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emb", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_enl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "enl", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstaelterals", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstaelterals", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eteam", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum1", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum2", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum2", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum3", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum3", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokart", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdoktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdoktyp", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostpartner", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag1", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag2", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag2", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag3", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag3", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklalt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklhostmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklhostmavip", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklmavip", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Expr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mkost", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mma", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mmb", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mnl", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mteam", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutaelterasl", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutaelterasl", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profiltyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profiltyp", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sort", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sort", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_team", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "team", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vkost", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vma", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vmb", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vnl", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vteam", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'frmProfilDokAuswertung
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(792, 577)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1, Me.Splitter1, Me.Button4, Me.Panel2, Me.Panel1, Me.ToolBar1})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Menu = Me.MainMenu1
|
|
Me.Name = "frmProfilDokAuswertung"
|
|
Me.Text = "Profile Dokumentauswertung"
|
|
Me.Panel2.ResumeLayout(False)
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.TabControl1.ResumeLayout(False)
|
|
Me.TabPage1.ResumeLayout(False)
|
|
Me.pnlhostdiv.ResumeLayout(False)
|
|
Me.PnlDokumentDaten.ResumeLayout(False)
|
|
Me.PnlDokumentart.ResumeLayout(False)
|
|
Me.PnlPartner.ResumeLayout(False)
|
|
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.Panel3.ResumeLayout(False)
|
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Deklarationen"
|
|
|
|
Dim m_sDatenherkunft As String
|
|
Dim m_sDislpayResult As String
|
|
Dim m_sNavigationResult As String
|
|
|
|
Dim Profil_Ungueltig As Boolean
|
|
Dim savenode As TreeNode
|
|
Dim lbentry(1) As Object
|
|
Dim i As Integer
|
|
Dim m_profilnr As Integer
|
|
Dim changes As Boolean
|
|
|
|
|
|
Dim m_profile_geaendert As Boolean
|
|
Property Profile_Geaendert() As Boolean
|
|
Get
|
|
Return m_profile_geaendert
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_profile_geaendert = Value
|
|
End Set
|
|
End Property
|
|
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
|
|
Dim checkchanges As Boolean
|
|
Dim Profname As String
|
|
|
|
Dim NodeText As String
|
|
Dim colconv As New ColorConverter()
|
|
|
|
Dim WithEvents mcbunterschriftlinks As New MultiComboBox()
|
|
Dim WithEvents mcbunterschriftrechts As New MultiComboBox()
|
|
Dim WithEvents mcbTeam As New MultiComboBox()
|
|
|
|
Dim li As ListViewItem
|
|
Dim ActiveList As Integer
|
|
Dim first As Boolean = True
|
|
Dim tmb As DataTable
|
|
Dim tnl As DataTable
|
|
Dim tko As DataTable
|
|
Dim tte As DataTable
|
|
Dim tpe As DataTable
|
|
Dim tst As DataTable
|
|
Dim tda As DataTable
|
|
Dim tdt As DataTable
|
|
Dim tdh As DataTable
|
|
|
|
Dim mypartner As New edokadb.clsMyPartner()
|
|
Dim partner As DataTable
|
|
Dim dokumentart As New edokadb.clsMyDokumentart()
|
|
Friend selectPoint As New System.Drawing.Point()
|
|
Dim FirstNodeWithData As TreeNode
|
|
#End Region
|
|
|
|
#Region " Property "
|
|
Property Datenherkunft() As String
|
|
' Werte dienen für die Anziege
|
|
Get
|
|
Return m_sDatenherkunft
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_sDatenherkunft = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property NavigationResult() As String
|
|
' Werte dienen für die Steuerung
|
|
Get
|
|
Return m_sNavigationResult
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_sNavigationResult = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property DislpayResult() As String
|
|
Get
|
|
Return m_sDislpayResult
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_sDislpayResult = Value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Formularhandling"
|
|
|
|
Private Sub frmProfilDokAuswertung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
Me.SqlConnection2.ConnectionString = Globals.sConnectionString
|
|
Me.SqlConnection3.ConnectionString = Globals.sConnectionString
|
|
On_Load = True
|
|
Me.Profile.BeginUpdate()
|
|
checkchanges = False
|
|
changes = False
|
|
Me.Profile.Nodes.Clear()
|
|
Me.DataSet1.Clear()
|
|
'Personendaten
|
|
Dim tn, tn1 As TreeNode
|
|
If first Then
|
|
init_treeview1()
|
|
tmb = Generic_Select(3)
|
|
tnl = Generic_Select(4)
|
|
tko = Generic_Select(5)
|
|
tte = Generic_Select(6)
|
|
tst = Generic_Select(2)
|
|
tpe = Generic_Select(1)
|
|
tdt = Generic_Select(7)
|
|
tdh = Generic_Select(8)
|
|
|
|
Me.mcbTeam.DisplayColumnName = "Bezeichnung"
|
|
Me.mcbTeam.ValueColumnName = "teamnr"
|
|
Me.mcbTeam.Fill_Data(tte, True)
|
|
Me.mcbTeam.Visible = True
|
|
Me.mcbTeam.CheckNullValue = False
|
|
|
|
End If
|
|
|
|
Dim hdata As New edokadb.clsMyDokumentart()
|
|
hdata.cpMainConnectionProvider = conn
|
|
tda = hdata.SelectHierarchy_Parametrisierung_By_Root(1)
|
|
hdata.Dispose()
|
|
|
|
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)
|
|
|
|
|
|
If Me.DataSet1.Tables(0).Rows.Count = 0 Then
|
|
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim key As Long
|
|
dbkey.cpMainConnectionProvider = conn
|
|
conn.OpenConnection()
|
|
key = dbkey.get_dbkey("ProfilDokAuswertung")
|
|
conn.CloseConnection(True)
|
|
dbkey.Dispose()
|
|
Dim objProfilDokauswertung As New edokadb.clsProfilDokAuswertung()
|
|
objProfilDokauswertung.iProfilnr = New SqlInt32(CType(0, Int32))
|
|
objProfilDokauswertung.cpMainConnectionProvider = conn
|
|
objProfilDokauswertung.SelectOne()
|
|
objProfilDokauswertung.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
objProfilDokauswertung.iProfilnr = New SqlInt32(CType(key, Int32))
|
|
objProfilDokauswertung.sBezeichnung = New SqlString(CType("Standard", String))
|
|
conn.OpenConnection()
|
|
objProfilDokauswertung.Insert()
|
|
conn.CloseConnection(True)
|
|
Me.DataSet1.Clear()
|
|
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
|
Me.ProfilNr = Me.DataSet1.Tables(0).Rows(0).Item("ProfilNr")
|
|
End If
|
|
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.BackColor = System.Drawing.Color.LightBlue
|
|
If Me.ProfilNr = 0 Then Me.ProfilNr = tn.Tag
|
|
Else
|
|
tn.BackColor = System.Drawing.Color.White
|
|
End If
|
|
Next
|
|
If Me.DataSet1.Tables(0).Rows.Count > 0 And Me.ProfilNr = 0 Then
|
|
Me.ProfilNr = Me.DataSet1.Tables(0).Rows(0).Item("ProfilNr")
|
|
End If
|
|
first = False
|
|
Load_Profil(Me.ProfilNr)
|
|
checkchanges = False
|
|
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
|
|
Me.TreeView1.ExpandAll()
|
|
Profil_Colors()
|
|
checkchanges = True
|
|
Me.Profile.EndUpdate()
|
|
Profname = ""
|
|
Activate_Details()
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub Activate_Details()
|
|
Me.TreeView1.SelectedNode = Nothing
|
|
If Me.FirstNodeWithData Is Nothing Then
|
|
DivFnkt.Searchnode1(Me.TreeView1, 42, 99)
|
|
If DivFnkt.found Then
|
|
If colconv.ConvertToString(DivFnkt.FoundNode.ForeColor) = colconv.ConvertToString(System.Drawing.Color.Blue) Then
|
|
Me.TreeView1.SelectedNode = DivFnkt.FoundNode
|
|
Me.PnlDokumentart.Visible = True
|
|
End If
|
|
End If
|
|
Else
|
|
Me.TreeView1.SelectedNode = Me.FirstNodeWithData
|
|
End If
|
|
End Sub
|
|
|
|
Private Function init_treeview1()
|
|
Me.TreeView1.Nodes.Clear()
|
|
Dim tn, tn1 As TreeNode
|
|
TreeView1.BeginUpdate()
|
|
Me.TreeView1.Nodes.Clear()
|
|
tn = Me.TreeView1.Nodes.Add("Verantwortlich")
|
|
tn.ImageIndex = 7
|
|
tn.SelectedImageIndex = 7
|
|
tn.Tag = 1
|
|
tn1 = tn.Nodes.Add("Marktbereich")
|
|
tn1.Tag = 11
|
|
tn1.SelectedImageIndex = 4
|
|
tn1.ImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Niederlassung")
|
|
tn1.Tag = 12
|
|
tn1.SelectedImageIndex = 4
|
|
tn1.ImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Kostenstelle")
|
|
tn1.Tag = 13
|
|
tn1.SelectedImageIndex = 4
|
|
tn1.ImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Team")
|
|
tn1.Tag = 14
|
|
tn1.SelectedImageIndex = 4
|
|
tn1.ImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Mitarbeiter")
|
|
tn1.Tag = 15
|
|
tn1.SelectedImageIndex = 4
|
|
tn1.ImageIndex = 4
|
|
|
|
tn = Me.TreeView1.Nodes.Add("Ersteller")
|
|
tn.ImageIndex = 8
|
|
tn.SelectedImageIndex = 8
|
|
tn.Tag = 2
|
|
tn1.SelectedImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Marktbereich")
|
|
tn1.Tag = 21
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Niederlassung")
|
|
tn1.Tag = 22
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Kostenstelle")
|
|
tn1.Tag = 23
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Team")
|
|
tn1.Tag = 24
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Mitarbeiter")
|
|
tn1.Tag = 25
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
|
|
tn = Me.TreeView1.Nodes.Add("Mutierer")
|
|
tn.ImageIndex = 9
|
|
tn.SelectedImageIndex = 9
|
|
tn.Tag = 3
|
|
tn1 = tn.Nodes.Add("Marktbereich")
|
|
tn1.SelectedImageIndex = 4
|
|
tn1.Tag = 31
|
|
tn1.ImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Niederlassung")
|
|
tn1.SelectedImageIndex = 4
|
|
tn1.Tag = 32
|
|
tn1.ImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Kostenstelle")
|
|
tn1.Tag = 33
|
|
tn1.ImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Team")
|
|
tn1.Tag = 34
|
|
tn1.ImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Mitarbeiter")
|
|
tn1.Tag = 35
|
|
tn1.ImageIndex = 4
|
|
|
|
tn = Me.TreeView1.Nodes.Add("EDOKA-Dokumente")
|
|
tn.ImageIndex = 6
|
|
tn.SelectedImageIndex = 6
|
|
tn.Tag = 4
|
|
tn1 = tn.Nodes.Add("Partner")
|
|
tn1.Tag = 41
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Dokumentart")
|
|
tn1.Tag = 42
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
|
|
tn1 = tn.Nodes.Add("Dokumenttyp")
|
|
tn1.Tag = 43
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
|
|
tn1 = tn.Nodes.Add("Dokumentstatus")
|
|
tn1.Tag = 44
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
tn1 = tn.Nodes.Add("Diverse")
|
|
tn1.Tag = 45
|
|
tn1.ImageIndex = 4
|
|
tn1.SelectedImageIndex = 4
|
|
|
|
' tn = Me.TreeView1.Nodes.Add("Host-Dokumente")
|
|
' tn.ImageIndex = 6
|
|
' tn.SelectedImageIndex = 6
|
|
' tn.Tag = 5
|
|
' tn1 = tn.Nodes.Add("Partner")
|
|
' tn1.Tag = 51
|
|
' tn1.ImageIndex = 4
|
|
' tn1.SelectedImageIndex = 4
|
|
' tn1 = tn.Nodes.Add("Dokumentart")
|
|
' tn1.Tag = 52
|
|
' tn1.ImageIndex = 4
|
|
' tn1.SelectedImageIndex = 4
|
|
|
|
' tn1 = tn.Nodes.Add("Dokumenttyp")
|
|
'tn1.Tag = 53
|
|
' t() n1.ImageIndex = 4
|
|
' tn1.SelectedImageIndex = 4
|
|
|
|
' tn1 = tn.Nodes.Add("Dokumentstatus")
|
|
' tn1.Tag = 54
|
|
' tn1.ImageIndex = 4
|
|
' tn1.SelectedImageIndex = 4
|
|
|
|
' tn1 = tn.Nodes.Add("Diverse")
|
|
' tn1.Tag = 55
|
|
' tn1.ImageIndex = 4
|
|
' tn1.SelectedImageIndex = 4
|
|
|
|
Me.TVDokart.Nodes.Clear()
|
|
dokumentart.LoadTreeMenu(Me.TVDokart, 2)
|
|
Me.TVDokart.CollapseAll()
|
|
|
|
Me.TVHostDok.Nodes.Clear()
|
|
dokumentart.LoadTreeMenu(Me.TVHostDok, 3)
|
|
Me.TVHostDok.ExpandAll()
|
|
|
|
Me.TreeView1.EndUpdate()
|
|
End Function
|
|
|
|
Private Function Profil_Colors()
|
|
Dim tn As TreeNode
|
|
Me.Profile.BeginUpdate()
|
|
tn = Me.Profile.Nodes(0)
|
|
Do Until tn Is Nothing
|
|
If colconv.ConvertToString(tn.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Then
|
|
tn.BackColor = System.Drawing.Color.LightBlue
|
|
Else
|
|
tn.BackColor = System.Drawing.Color.White
|
|
End If
|
|
tn = tn.NextNode
|
|
Loop
|
|
Try
|
|
Me.Profile.SelectedNode.BackColor = System.Drawing.Color.Silver
|
|
Me.Profile.EndUpdate()
|
|
Catch
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
|
|
#Region "MenuHandling"
|
|
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
Try
|
|
If Me.TreeView1.SelectedNode.Tag = 42 Then
|
|
Me.TVDokart.BeginUpdate()
|
|
Me.TVDokart.SelectedNode.ExpandAll()
|
|
Me.TVDokart.EndUpdate()
|
|
Else
|
|
Me.TVHostDok.BeginUpdate()
|
|
Me.TVHostDok.SelectedNode.ExpandAll()
|
|
Me.TVHostDok.EndUpdate()
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
|
|
If Me.TreeView1.SelectedNode.Tag = 42 Then
|
|
Me.TVDokart.SelectedNode.Collapse()
|
|
Else
|
|
Me.TVHostDok.SelectedNode.Collapse()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
|
Case 0
|
|
Me.MenuItem5_Click(sender, e) 'Schliessen
|
|
Case 1
|
|
Case 2 'Save
|
|
Save_Profile()
|
|
If Me.Profil_Ungueltig = True Then MyMsg.show_standardmessage(104, MsgBoxStyle.Critical)
|
|
Case Else
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
|
|
Try
|
|
Dim tn As TreeNode
|
|
Dim p As New edokadb.clsProfilDokAuswertung()
|
|
p.cpMainConnectionProvider = conn
|
|
Me.Profile.BeginUpdate()
|
|
tn = Me.Profile.Nodes(0)
|
|
Do Until tn Is Nothing
|
|
If colconv.ConvertToString(tn.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Then
|
|
conn.OpenConnection()
|
|
p.iProfilnr = New SqlInt32(CType(tn.Tag, Int32))
|
|
p.SelectOne()
|
|
p.bStandard = New SqlBoolean(CType(False, Boolean))
|
|
p.Update()
|
|
conn.CloseConnection(True)
|
|
End If
|
|
tn.BackColor = System.Drawing.Color.White
|
|
tn = tn.NextNode
|
|
Loop
|
|
conn.OpenConnection()
|
|
p.iProfilnr = New SqlInt32(CType(Me.Profile.SelectedNode.Tag, Int32))
|
|
p.SelectOne()
|
|
p.bStandard = New SqlBoolean(CType(True, Boolean))
|
|
p.Update()
|
|
conn.CloseConnection(True)
|
|
p.Dispose()
|
|
Me.Profile.SelectedNode.BackColor = System.Drawing.Color.LightBlue
|
|
Me.Profile.EndUpdate()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
|
|
Try
|
|
Dim a As String
|
|
a = InputBox(MyTxt.gettext(501))
|
|
If a <> "" Then
|
|
Me.Profile_Geaendert = True
|
|
Me.Profile.SelectedNode.Text = a
|
|
Me.Profname = a
|
|
If checkchanges Then changes = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
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.clsProfilDokAuswertung()
|
|
p.cpMainConnectionProvider = conn
|
|
Me.Profile_Geaendert = True
|
|
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
|
|
frmProfilDokAuswertung_Load(sender, e)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
|
'Schliessen
|
|
m_sDislpayResult = "Profilname = " & Profile.SelectedNode.Text
|
|
m_sNavigationResult = Profile.SelectedNode.Tag
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
|
|
check_changes()
|
|
Dim a As String
|
|
a = InputBox(MyTxt.gettext(501))
|
|
If a <> "" Then
|
|
Me.Profile_Geaendert = True
|
|
Dim p As New edokadb.clsProfilDokAuswertung()
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim key As Int32
|
|
dbkey.cpMainConnectionProvider = conn
|
|
p.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("profildokauswertung")
|
|
conn.OpenConnection()
|
|
p.iProfilnr = New SqlInt32(CType(0, Int32))
|
|
p.SelectOne()
|
|
p.bAktiv = New SqlBoolean(CType(True, 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.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
p.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
p.sVma = New SqlString(CType(Globals.MitarbeiterNr, String))
|
|
|
|
p.Insert()
|
|
conn.CloseConnection(True)
|
|
p.Dispose()
|
|
dbkey.Dispose()
|
|
Me.ProfilNr = key
|
|
Me.frmProfilDokAuswertung_Load(sender, e)
|
|
End If
|
|
End Sub
|
|
Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
|
|
Dim a As String
|
|
a = InputBox(MyTxt.gettext(501))
|
|
If a <> "" Then
|
|
Me.Profile_Geaendert = True
|
|
Dim p As New edokadb.clsProfilDokAuswertung()
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim key As Int32
|
|
dbkey.cpMainConnectionProvider = conn
|
|
p.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("ProfilDokAuswertung")
|
|
conn.OpenConnection()
|
|
p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32))
|
|
p.SelectOne()
|
|
p.sBezeichnung = New SqlString(CType(a, String))
|
|
p.iProfilnr = New SqlInt32(CType(key, Int32))
|
|
p.Insert()
|
|
conn.CloseConnection(True)
|
|
p.Dispose()
|
|
dbkey.Dispose()
|
|
Me.ProfilNr = key
|
|
Me.frmProfilDokAuswertung_Load(sender, e)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub MnuSelectDokumentart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSelectDokumentart.Click
|
|
If Me.TreeView1.SelectedNode.Tag = 42 Then
|
|
Me.TVDokart.SelectedNode.ImageIndex = 1
|
|
Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Red
|
|
Else
|
|
Me.TVHostDok.SelectedNode.ImageIndex = 1
|
|
Me.TVHostDok.SelectedNode.ForeColor = System.Drawing.Color.Red
|
|
End If
|
|
changes = True
|
|
End Sub
|
|
|
|
Private Sub MnuDeleteDokumentart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteDokumentart.Click
|
|
If Me.TreeView1.SelectedNode.Tag = 42 Then
|
|
Me.TVDokart.SelectedNode.ImageIndex = 2
|
|
Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Black
|
|
Else
|
|
Me.TVHostDok.SelectedNode.ImageIndex = 2
|
|
Me.TVHostDok.SelectedNode.ForeColor = System.Drawing.Color.Black
|
|
End If
|
|
changes = True
|
|
End Sub
|
|
|
|
Private Sub MnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDel.Click
|
|
Try
|
|
Dim tn As TreeNode
|
|
tn = TreeView1.SelectedNode
|
|
tn.Remove()
|
|
changes = True
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub CTmenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctmenu1.Popup
|
|
Try
|
|
Dim tn As TreeNode
|
|
tn = TreeView1.SelectedNode
|
|
If tn.Tag = 1 Or tn.Tag = 2 Or tn.Tag = 3 Or tn.Tag = 4 Then
|
|
Me.MnuDel.Enabled = False
|
|
End If
|
|
If tn.Parent.Tag <> 1 And tn.Parent.Tag <> 2 And tn.Parent.Tag <> 3 And tn.Parent.Tag <> 4 Then
|
|
Me.MnuDel.Enabled = True
|
|
Else
|
|
Me.MnuDel.Enabled = False
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Datenhandling"
|
|
Private Sub mcb_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbunterschriftlinks.SelectedValueChanged, mcbunterschriftrechts.SelectedValueChanged, mcbTeam.SelectedValueChanged
|
|
If checkchanges Then
|
|
changes = True
|
|
End If
|
|
End Sub
|
|
|
|
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 7
|
|
scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp"
|
|
Case 8
|
|
scmCmdToExecute.CommandText = "dbo.SP_Profil_DokumenttypHost"
|
|
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 Set_Values(ByVal data As String, ByVal ds As DataTable, ByVal node As Integer)
|
|
Dim splitter
|
|
Dim i As Integer
|
|
Dim s As String
|
|
Dim tn As TreeNode
|
|
Dim dv As New DataTable()
|
|
Dim i1 As Integer
|
|
Dim v As Double
|
|
If node = 11 Or node = 21 Or node = 31 Then
|
|
dv = Me.tmb
|
|
End If
|
|
If node = 12 Or node = 22 Or node = 32 Then
|
|
dv = Me.tnl
|
|
End If
|
|
If node = 13 Or node = 23 Or node = 33 Then
|
|
dv = Me.tko
|
|
End If
|
|
If node = 14 Or node = 24 Or node = 34 Then
|
|
dv = Me.tte
|
|
End If
|
|
If node = 15 Or node = 25 Or node = 35 Then
|
|
dv = Me.tpe
|
|
End If
|
|
If node = 43 Then dv = Me.tdt
|
|
If node = 53 Then dv = Me.tdh
|
|
If node = 44 Then dv = Me.tst
|
|
s = data
|
|
splitter = Microsoft.VisualBasic.Split(s, ";")
|
|
i = 0
|
|
Try
|
|
Do Until splitter(i) Is Nothing
|
|
If node <> 41 And node <> 42 And node <> 51 Then
|
|
For i1 = 0 To dv.Rows.Count - 1
|
|
v = Val(splitter(i))
|
|
If dv.Rows(i1).Item(0) = splitter(i) Then
|
|
DivFnkt.Searchnode1(Me.TreeView1, node, 99)
|
|
If DivFnkt.found Then
|
|
If Me.FirstNodeWithData Is Nothing Then
|
|
Me.FirstNodeWithData = DivFnkt.FoundNode
|
|
End If
|
|
Me.TreeView1.SelectedNode = DivFnkt.FoundNode
|
|
tn = Me.TreeView1.SelectedNode
|
|
tn = tn.Nodes.Add(dv.Rows(i1).Item(1))
|
|
tn.Tag = dv.Rows(i1).Item(0)
|
|
tn.ImageIndex = 4
|
|
tn.SelectedImageIndex = 4
|
|
If dv.Rows(i1).Item(2) = False Then
|
|
tn.ForeColor = System.Drawing.Color.Gray
|
|
Else
|
|
tn.ForeColor = System.Drawing.Color.Red
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
Next
|
|
i = i + 1
|
|
End If
|
|
If node = 41 Or node = 51 Then
|
|
Dim p As New edokadb.clsPartner()
|
|
Try
|
|
DivFnkt.Searchnode1(Me.TreeView1, node, 0)
|
|
If DivFnkt.found Then
|
|
Me.TreeView1.SelectedNode = DivFnkt.FoundNode
|
|
tn = Me.TreeView1.SelectedNode
|
|
p.cpMainConnectionProvider = conn
|
|
p.iNRPAR00 = New SqlInt32(CType(splitter(i), Int32))
|
|
p.SelectOne()
|
|
tn = tn.Nodes.Add(splitter(i) + " - " + p.sBKPAR00.Value)
|
|
tn.Tag = splitter(i)
|
|
If Me.FirstNodeWithData Is Nothing Then
|
|
Me.FirstNodeWithData = DivFnkt.FoundNode
|
|
End If
|
|
tn.ImageIndex = 4
|
|
tn.SelectedImageIndex = 4
|
|
tn.ForeColor = System.Drawing.Color.Red
|
|
End If
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message)
|
|
Finally
|
|
p.Dispose()
|
|
i = i + 1
|
|
End Try
|
|
End If
|
|
If node = 42 Then
|
|
Try
|
|
DivFnkt.Searchnode(Me.TVDokart, splitter(i), 0)
|
|
If DivFnkt.found Then
|
|
DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red
|
|
DivFnkt.FoundNode.ImageIndex = 1
|
|
If Not DivFnkt.FoundNode.Parent.IsExpanded Then DivFnkt.FoundNode.Parent.ExpandAll()
|
|
End If
|
|
Catch
|
|
End Try
|
|
i = i + 1
|
|
End If
|
|
If node = 52 Then
|
|
Try
|
|
DivFnkt.Searchnode(Me.TVHostDok, splitter(i), 0)
|
|
If DivFnkt.found Then
|
|
DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red
|
|
DivFnkt.FoundNode.ImageIndex = 1
|
|
If Not DivFnkt.FoundNode.Parent.IsExpanded Then DivFnkt.FoundNode.Parent.ExpandAll()
|
|
End If
|
|
Catch
|
|
End Try
|
|
End If
|
|
Loop
|
|
Catch ex As Exception
|
|
' MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Load_Profil(ByVal profilnr As Long)
|
|
Me.FirstNodeWithData = Nothing
|
|
checkchanges = False
|
|
Me.TreeView1.BeginUpdate()
|
|
Me.TVDokart.BeginUpdate()
|
|
Dim p As New edokadb.clsProfilDokAuswertung()
|
|
Dim ma As New edokadb.clsMitarbeiter()
|
|
Dim s As String
|
|
Dim splitter
|
|
Dim i As Integer
|
|
p.cpMainConnectionProvider = conn
|
|
conn.OpenConnection()
|
|
p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32))
|
|
p.SelectOne()
|
|
init_treeview1()
|
|
|
|
'Selektion
|
|
Try
|
|
Set_Values(p.sVmb.Value, Me.tmb, 11)
|
|
Set_Values(p.sVnl.Value, Me.tnl, 12)
|
|
Set_Values(p.sVkost.Value, Me.tko, 13)
|
|
Set_Values(p.sVteam.Value, Me.tte, 14)
|
|
Set_Values(p.sVma.Value, Me.tpe, 15)
|
|
|
|
Set_Values(p.sEmb.Value, Me.tmb, 21)
|
|
Set_Values(p.sEnl.Value, Me.tnl, 22)
|
|
Set_Values(p.sEkost.Value, Me.tko, 23)
|
|
Set_Values(p.sEteam.Value, Me.tte, 24)
|
|
Set_Values(p.sEma.Value, Me.tpe, 25)
|
|
|
|
Set_Values(p.sMmb.Value, Me.tmb, 31)
|
|
Set_Values(p.sMnl.Value, Me.tnl, 32)
|
|
Set_Values(p.sMkost.Value, Me.tko, 33)
|
|
Set_Values(p.sMteam.Value, Me.tte, 34)
|
|
Set_Values(p.sMma.Value, Me.tpe, 35)
|
|
Set_Values(p.sDpartner.Value, Me.tpe, 41)
|
|
Set_Values(p.sDdokstatus.Value, Me.tst, 44)
|
|
Set_Values(p.sDoktyp.Value, Me.tdt, 43)
|
|
Set_Values(p.sDdokart.Value, Me.tst, 42)
|
|
|
|
Set_Values(p.sHostpartner.Value, Me.tpe, 51)
|
|
Set_Values(p.sHostdokart.Value, Me.tpe, 52)
|
|
Set_Values(p.sHostdoktyp.Value, Me.tdh, 53)
|
|
|
|
DivFnkt.Searchnode(Me.TreeView1, 42, 0)
|
|
If DivFnkt.found Then
|
|
If p.sDdokart.Value <> "" Then
|
|
DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
|
|
Me.FirstNodeWithData = DivFnkt.FoundNode
|
|
Else
|
|
DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
|
|
End If
|
|
End If
|
|
|
|
DivFnkt.Searchnode(Me.TreeView1, 52, 0)
|
|
If DivFnkt.found Then
|
|
If p.sHostdokart.Value <> "" Then
|
|
DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
|
|
Me.FirstNodeWithData = DivFnkt.FoundNode
|
|
Else
|
|
DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
|
|
End If
|
|
End If
|
|
'Unterschriften/Hinweise
|
|
|
|
Me.mcbunterschriftlinks.SelectedValue = p.iUnterschriftlinks.Value
|
|
Me.mcbunterschriftrechts.SelectedValue = p.iUnterschriftrechts.Value
|
|
Me.mcbTeam.SelectedValue = p.iTeam.Value
|
|
' If p.iHw1.IsNull Then p.iHw1 = 0
|
|
' If p.iHw2.IsNull Then p.iHw2 = 0
|
|
' If p.iHw3.IsNull Then Me.cb3 = 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.iHw5.IsNull Then Me.cb5.Checked = False Else Me.cb5.Checked = p.iHw5.Value'
|
|
|
|
|
|
'Darstellung/Sortierung
|
|
Try
|
|
'Me.colbtn1.BackColor = colconv.ConvertFromString(p.sColor1.Value)
|
|
'Me.colbtn2.BackColor = colconv.ConvertFromString(p.sColor2.Value)
|
|
'Me.colbtn3.BackColor = colconv.ConvertFromString(p.sColor3.Value)
|
|
'Me.colbtn4.BackColor = colconv.ConvertFromString(p.sColor4.Value)
|
|
'Me.colbtn5.BackColor = colconv.ConvertFromString(p.sColor5.Value)
|
|
'Me.colbtn6.BackColor = colconv.ConvertFromString(p.sColor6.Value)
|
|
Catch
|
|
End Try
|
|
|
|
'Me.lbselect.Items.Clear()
|
|
s = p.sSort.Value
|
|
Try
|
|
splitter = Microsoft.VisualBasic.Split(s, ";")
|
|
i = 0
|
|
Do Until splitter(i) Is Nothing
|
|
If splitter(i) <> "" Then
|
|
'Me.lbselect.Items.Add(splitter(i))
|
|
End If
|
|
i = i + 1
|
|
Loop
|
|
Catch
|
|
End Try
|
|
|
|
|
|
|
|
Me.cbtag1.Text = p.sDatum2.Value
|
|
Me.cbtag2.Text = p.sDatum4.Value
|
|
Me.cbtag3.Text = p.sDatum6.Value
|
|
Me.txtdatum1.Text = p.sDatum1.Value
|
|
Me.txtdatum3.Text = p.sDatum3.Value
|
|
Me.txtdatum5.Text = p.sDatum5.Value
|
|
|
|
Me.HostDatum1.Text = p.sHostdatum1.Value
|
|
Me.HostDatum2.Text = p.sHostdatum2.Value
|
|
Me.HostDatum3.Text = p.sHostdatum3.Value
|
|
Me.HostTag1.Text = p.sHosttag1.Value
|
|
Me.HostTag2.Text = p.sHosttag2.Value
|
|
Me.HostTag3.Text = p.sHosttag3.Value
|
|
Me.hostinklmavip.Checked = p.bInklhostmavip.Value = True
|
|
|
|
If Me.cbtag1.Text <> "" Or Me.cbtag2.Text <> "" Or Me.cbtag3.Text <> "" Or Me.txtdatum1.Text <> "(heute)" Or _
|
|
Me.txtdatum3.Text <> "(heute)" Or Me.txtdatum5.Text <> "(heute)" Or Me.hostinklmavip.Checked = True Then
|
|
DivFnkt.Searchnode(Me.TreeView1, 45, 0)
|
|
If DivFnkt.found Then
|
|
DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
|
|
DivFnkt.FoundNode.ImageIndex = 4
|
|
If Me.FirstNodeWithData Is Nothing Then
|
|
Me.FirstNodeWithData = DivFnkt.FoundNode
|
|
End If
|
|
End If
|
|
End If
|
|
If Me.HostTag1.Text <> "" Or Me.HostTag2.Text <> "" Or Me.HostTag3.Text <> "" Or Me.HostDatum1.Text <> "(heute)" Or _
|
|
Me.HostDatum2.Text <> "(heute)" Or Me.HostDatum3.Text <> "(heute)" Then
|
|
DivFnkt.Searchnode(Me.TreeView1, 55, 0)
|
|
If DivFnkt.found Then
|
|
' DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
|
|
DivFnkt.FoundNode.ImageIndex = 4
|
|
If Me.FirstNodeWithData Is Nothing Then
|
|
Me.FirstNodeWithData = DivFnkt.FoundNode
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Me.cbmavip.Checked = p.bInklmavip.Value = True
|
|
Me.cinklalt.Checked = p.bInklalt.Value = True
|
|
|
|
p.Dispose()
|
|
|
|
'Profilunabhängige Daten
|
|
ma.cpMainConnectionProvider = conn
|
|
ma.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
ma.SelectOne()
|
|
Try
|
|
' Me.FirstNodeWithData.ForeColor = System.Drawing.Color.Blue
|
|
Catch
|
|
End Try
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message)
|
|
End Try
|
|
conn.CloseConnection(True)
|
|
Me.TreeView1.EndUpdate()
|
|
Me.TVDokart.EndUpdate()
|
|
checkchanges = True
|
|
End Sub
|
|
|
|
Private Sub Save_Profile()
|
|
Dim p As New edokadb.clsProfilDokAuswertung()
|
|
Dim tn As TreeNode
|
|
Dim d As DataTable
|
|
Dim tmptreeview As New TreeView()
|
|
p.cpMainConnectionProvider = conn
|
|
p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32))
|
|
p.SelectOne()
|
|
|
|
'Selektion
|
|
Dim s As String
|
|
|
|
Dim i As Integer
|
|
Me.TreeView1.BeginUpdate()
|
|
p.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
p.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
|
|
p.sVmb = New SqlString(CType(GetNodeDatastring(11), String))
|
|
p.sVnl = New SqlString(CType(GetNodeDatastring(12), String))
|
|
p.sVkost = New SqlString(CType(GetNodeDatastring(13), String))
|
|
p.sVteam = New SqlString(CType(GetNodeDatastring(14), String))
|
|
p.sVma = New SqlString(CType(GetNodeDatastring(15), String))
|
|
|
|
p.sEmb = New SqlString(CType(GetNodeDatastring(21), String))
|
|
p.sEnl = New SqlString(CType(GetNodeDatastring(22), String))
|
|
p.sEkost = New SqlString(CType(GetNodeDatastring(23), String))
|
|
p.sEteam = New SqlString(CType(GetNodeDatastring(24), String))
|
|
p.sEma = New SqlString(CType(GetNodeDatastring(25), String))
|
|
|
|
p.sMmb = New SqlString(CType(GetNodeDatastring(31), String))
|
|
p.sMnl = New SqlString(CType(GetNodeDatastring(32), String))
|
|
p.sMkost = New SqlString(CType(GetNodeDatastring(33), String))
|
|
p.sMteam = New SqlString(CType(GetNodeDatastring(34), String))
|
|
p.sMma = New SqlString(CType(GetNodeDatastring(35), String))
|
|
|
|
p.sDpartner = New SqlString(CType(GetNodeDatastring(41), String))
|
|
p.sDoktyp = New SqlString(CType(GetNodeDatastring(43), String))
|
|
p.sDdokstatus = New SqlString(CType(GetNodeDatastring(44), String))
|
|
|
|
p.sHostpartner = New SqlString(CType(GetNodeDatastring(51), String))
|
|
p.sHostdoktyp = New SqlString(CType(GetNodeDatastring(53), String))
|
|
p.bInklhostmavip = New SqlBoolean(CType(Me.hostinklmavip.Checked, Boolean))
|
|
|
|
tmptreeview = Me.TVDokart
|
|
s = ""
|
|
DivFnkt.Searchnode2(tmptreeview, 0, 0)
|
|
While DivFnkt.found
|
|
s = s + ";" + DivFnkt.FoundNode.Tag
|
|
DivFnkt.FoundNode.ImageIndex = 0
|
|
DivFnkt.Searchnode2(tmptreeview, 0, 0)
|
|
End While
|
|
'tmptreeview.Dispose()
|
|
p.sDdokart = New SqlString(CType(s, String))
|
|
|
|
tmptreeview = Me.TVHostDok
|
|
s = ""
|
|
DivFnkt.Searchnode2(tmptreeview, 0, 0)
|
|
While DivFnkt.found
|
|
s = s + ";" + DivFnkt.FoundNode.Tag
|
|
DivFnkt.FoundNode.ImageIndex = 0
|
|
DivFnkt.Searchnode2(tmptreeview, 0, 0)
|
|
End While
|
|
p.sHostdokart = New SqlString(CType(s, String))
|
|
|
|
p.bInklmavip = New SqlBoolean(CType(Me.cbmavip.Checked, Boolean))
|
|
p.bInklalt = New SqlBoolean(CType(Me.cinklalt.Checked, Boolean))
|
|
|
|
p.sSort = New SqlString(CType(s, String))
|
|
|
|
If Me.mcbTeam.SelectedText = Nothing Then
|
|
p.iTeam = New SqlInt32(CType(0, Int32))
|
|
Else
|
|
p.iTeam = New SqlInt32(CType(Me.mcbTeam.SelectedValue, Int32))
|
|
End If
|
|
|
|
|
|
If colconv.ConvertToString(Me.Profile.SelectedNode.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Or p.bStandard.Value = True Then
|
|
p.bStandard = New SqlBoolean(CType(True, Boolean))
|
|
Else
|
|
p.bStandard = New SqlBoolean(CType(False, Boolean))
|
|
End If
|
|
|
|
|
|
p.sDatum1 = New SqlString(CType(Me.txtdatum1.Text, String))
|
|
p.sDatum3 = New SqlString(CType(Me.txtdatum3.Text, String))
|
|
p.sDatum5 = New SqlString(CType(Me.txtdatum5.Text, String))
|
|
p.sDatum2 = New SqlString(CType(Me.cbtag1.Text, String))
|
|
p.sDatum4 = New SqlString(CType(Me.cbtag2.Text, String))
|
|
p.sDatum6 = New SqlString(CType(Me.cbtag3.Text, String))
|
|
|
|
p.sHostdatum1 = New SqlString(CType(Me.HostDatum1.Text, String))
|
|
p.sHostdatum2 = New SqlString(CType(Me.HostDatum2.Text, String))
|
|
p.sHostdatum3 = New SqlString(CType(Me.HostDatum3.Text, String))
|
|
p.sHosttag1 = New SqlString(CType(Me.HostTag1.Text, String))
|
|
p.sHosttag2 = New SqlString(CType(Me.HostTag2.Text, String))
|
|
p.sHosttag3 = New SqlString(CType(Me.HostTag3.Text, String))
|
|
|
|
Dim s1 As String
|
|
Dim s2 As String
|
|
|
|
' s1 = p.sHostdatum1.Value + p.sHostdatum2.Value + p.sHostdatum3.Value + p.sHostdokart.Value + p.sHostdoktyp.Value + p.sHostpartner.Value + p.sHosttag1.Value + p.sHosttag2.Value + p.sHosttag3.Value
|
|
' s2 = p.sVmb.Value + p.sVnl.Value + p.sVkost.Value + p.sVteam.Value + p.sVma.Value + _
|
|
' p.sEmb.Value + p.sEnl.Value + p.sEkost.Value + p.sEteam.Value + p.sEma.Value + _
|
|
' p.sMmb.Value + p.sMnl.Value + p.sMkost.Value + p.sMteam.Value + p.sMma.Value + _
|
|
' p.sDpartner.Value + p.sDoktyp.Value + p.sDdokart.Value + p.sDdokstatus.Value + p.sDatum1.Value + p.sDatum2.Value + p.sDatum3.Value + p.sDatum4.Value + p.sDatum5.Value
|
|
|
|
' If s1 = "(heute)(heute)(heute)" And s2 = "(heute)(heute)(heute)" Then
|
|
' MyMsg.show_standardmessage(91, MsgBoxStyle.Critical)
|
|
' p.Dispose()
|
|
' Me.TreeView1.EndUpdate()
|
|
' Exit Sub
|
|
' End If
|
|
' If s1 <> "" And s2 <> "" Then
|
|
' Dim a As Integer
|
|
' a = MyMsg.Show_MessageYesNoCancel(90)
|
|
' If a = MsgBoxResult.Cancel Then
|
|
' p.Dispose()
|
|
' Me.TreeView1.EndUpdate()
|
|
' Exit Sub
|
|
' End If
|
|
'' If a = MsgBoxResult.Yes Then
|
|
' p.sHostpartner = New SqlString(CType("", String))
|
|
' p.sHostdokart = New SqlString(CType("", String))
|
|
' p.sHostdoktyp = New SqlString(CType("", String))
|
|
' p.sHostdatum1 = New SqlString(CType("", String))
|
|
' p.sHostdatum2 = New SqlString(CType("", String))
|
|
' p.sHostdatum3 = New SqlString(CType("", String))
|
|
' p.bInklhostmavip = New SqlBoolean(CType(False, Boolean))
|
|
'' If plausi_edoka(p) = False Then
|
|
' p.Dispose()
|
|
' Me.TreeView1.EndUpdate()
|
|
' Exit Sub
|
|
' End If
|
|
' Else
|
|
' p.sVmb = New SqlString(CType("", String))
|
|
' p.sVnl = New SqlString(CType("", String))
|
|
' p.sVkost = New SqlString(CType("", String))
|
|
' p.sVteam = New SqlString(CType("", String))
|
|
' p.sVma = New SqlString(CType("0", String))
|
|
'
|
|
' p.sEmb = New SqlString(CType("", String))
|
|
' p.sEnl = New SqlString(CType("", String))
|
|
' p.sEkost = New SqlString(CType("", String))
|
|
' p.sEteam = New SqlString(CType("", String))
|
|
' p.sEma = New SqlString(CType("", String))
|
|
'
|
|
' p.sMmb = New SqlString(CType("", String))
|
|
' p.sMnl = New SqlString(CType("", String))
|
|
' p.sMkost = New SqlString(CType("", String))
|
|
' p.sMteam = New SqlString(CType("", String))
|
|
' p.sMma = New SqlString(CType("", String))
|
|
'
|
|
' p.sDpartner = New SqlString(CType("", String))
|
|
' p.sDoktyp = New SqlString(CType("", String))
|
|
' p.sDdokstatus = New SqlString(CType("", String))
|
|
' p.bInklmavip = New SqlBoolean(CType(False, Boolean))
|
|
' p.bInklalt = New SqlBoolean(CType(False, Boolean))
|
|
' If plausi_host(p) = False Then
|
|
' p.Dispose()
|
|
' Me.TreeView1.EndUpdate()
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
'End If
|
|
|
|
|
|
If Me.Profname <> "" Then p.sBezeichnung = New SqlString(CType(Profname, String))
|
|
conn.OpenConnection()
|
|
p.Update()
|
|
|
|
conn.CloseConnection(True)
|
|
p.Dispose()
|
|
Me.TreeView1.EndUpdate()
|
|
changes = False
|
|
Me.Load_Profil(Me.ProfilNr)
|
|
Me.TreeView1.ExpandAll()
|
|
Me.Profil_Ungueltig = False
|
|
If Me.FirstNodeWithData Is Nothing Then
|
|
Me.Profil_Ungueltig = True
|
|
Exit Sub
|
|
End If
|
|
End Sub
|
|
|
|
Public Function plausi_edoka(ByVal p As edokadb.clsProfilDokAuswertung) As Boolean
|
|
Dim ma As String
|
|
Dim te As String
|
|
Dim mb As String
|
|
Dim nl As String
|
|
Dim ko As String
|
|
|
|
Dim d1 As Date
|
|
Dim d2 As Date
|
|
Dim d3 As Date
|
|
Dim t1 As Integer
|
|
Dim t2 As Integer
|
|
Dim t3 As Integer
|
|
|
|
If p.sDpartner.Value <> "" Then Return True
|
|
ma = p.sVma.Value + p.sMma.Value + p.sEma.Value
|
|
te = p.sVteam.Value + p.sMteam.Value + p.sEteam.Value
|
|
mb = p.sMmb.Value + p.sVmb.Value + p.sEmb.Value
|
|
nl = p.sVnl.Value + p.sMnl.Value + p.sEnl.Value
|
|
ko = p.sVkost.Value + p.sMkost.Value + p.sEkost.Value
|
|
|
|
If p.sDatum1.Value = "(heute)" Then d1 = Now Else d1 = p.sDatum1.Value
|
|
If p.sDatum3.Value = "(heute)" Then d2 = Now Else d2 = p.sDatum3.Value
|
|
If p.sDatum5.Value = "(heute)" Then d3 = Now Else d3 = p.sDatum5.Value
|
|
|
|
If Me.lbldatum1.Text <> "" Then t1 = DateDiff(DateInterval.Day, d1, CType(Me.lbldatum1.Text, Date)) Else t1 = DateDiff(DateInterval.Day, d1, CType("01.07.2003", Date))
|
|
If Me.lbldatum2.Text <> "" Then t2 = DateDiff(DateInterval.Day, d2, CType(Me.lbldatum2.Text, Date)) Else t2 = DateDiff(DateInterval.Day, d2, CType("01.07.2003", Date))
|
|
If Me.lbldatum3.Text <> "" Then t3 = DateDiff(DateInterval.Day, d3, CType(Me.lbldatum3.Text, Date)) Else t3 = DateDiff(DateInterval.Day, d3, CType("01.07.2003", Date))
|
|
|
|
If ma <> "" And te = "" And mb = "" And nl = "" Then
|
|
If t1 <= 365 And t2 <= 365 And t3 <> 365 Then
|
|
Return True
|
|
Else
|
|
MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
|
|
Return False
|
|
End If
|
|
End If
|
|
|
|
If te <> "" Or ko <> "" Then
|
|
If t1 <= 90 And t2 <= 90 And t3 <= 90 Then
|
|
Return True
|
|
Else
|
|
MyMsg.show_standardmessage(93, MsgBoxStyle.Critical)
|
|
Return False
|
|
End If
|
|
End If
|
|
|
|
If nl <> "" Then
|
|
If t1 <= 30 And t2 <= 30 And t3 <= 30 Then
|
|
Return True
|
|
Else
|
|
MyMsg.show_standardmessage(94, MsgBoxStyle.Critical)
|
|
End If
|
|
End If
|
|
|
|
If mb <> "" Then
|
|
If t1 <= 7 And t2 <= 7 And t3 <= 7 Then
|
|
Return True
|
|
Else
|
|
MyMsg.show_standardmessage(94, MsgBoxStyle.Critical)
|
|
End If
|
|
End If
|
|
|
|
If p.sDdokart.Value <> "" Then
|
|
If t1 <= 30 And t2 <= 30 And t3 <= 30 Then
|
|
Return True
|
|
Else
|
|
MyMsg.show_standardmessage(96, MsgBoxStyle.Critical)
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
|
|
End Function
|
|
|
|
Public Function plausi_host(ByVal p As edokadb.clsProfilDokAuswertung) As Boolean
|
|
End Function
|
|
|
|
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
|
|
|
|
Private Function GetNodeData(ByVal tnParent As TreeNode, ByRef iParent As Integer) As String
|
|
Dim tn As TreeNode
|
|
If tnParent.GetNodeCount(True) > 0 Then
|
|
tn = tnParent.Nodes(0)
|
|
Else
|
|
tn = Nothing
|
|
End If
|
|
Do Until tn Is Nothing
|
|
Try
|
|
If tn.Parent.Tag = iParent Then
|
|
Me.NodeText = Me.NodeText & ";" & tn.Tag
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
If tn.GetNodeCount(True) > 0 Then
|
|
Call GetNodeData(tn, iParent)
|
|
End If
|
|
tn = tn.NextNode
|
|
Loop
|
|
End Function
|
|
|
|
Private Function GetNodeDatastring(ByVal iparent As Integer) As String
|
|
Me.NodeText = ""
|
|
DivFnkt.Searchnode1(Me.TreeView1, iparent, 0)
|
|
If DivFnkt.found Then
|
|
GetNodeData(DivFnkt.FoundNode, iparent)
|
|
Try
|
|
Me.NodeText = Microsoft.VisualBasic.Right(Me.NodeText, Len(Me.NodeText) - 1)
|
|
Catch
|
|
Me.NodeText = ""
|
|
End Try
|
|
End If
|
|
Return Me.NodeText
|
|
End Function
|
|
|
|
Private Sub check_changes()
|
|
If On_Load Then Exit Sub
|
|
If changes Then
|
|
If Me.FirstNodeWithData Is Nothing Then
|
|
Me.Profil_Ungueltig = True
|
|
End If
|
|
If MyMsg.Show_MessageYesNo(2) = MsgBoxResult.Yes Then
|
|
Me.Save_Profile()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Diverses"
|
|
|
|
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()
|
|
If Me.Profil_Ungueltig Then
|
|
Me.Profile.SelectedNode = Me.savenode
|
|
MyMsg.show_standardmessage(105, MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
Me.savenode = Me.Profile.SelectedNode
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
check_changes()
|
|
Me.ProfilNr = Me.Profile.SelectedNode.Tag
|
|
init_treeview1()
|
|
frmProfilDokAuswertung_Load(sender, e)
|
|
Me.TreeView1.SelectedNode = Nothing
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
End Sub
|
|
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim cName As String = CType(sender, System.Windows.Forms.Button).Name
|
|
If Me.ColorDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub
|
|
|
|
End Sub
|
|
|
|
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
|
|
If On_Load Then Exit Sub
|
|
|
|
Me.PnlDokumentDaten.Visible = False
|
|
Me.Panel3.Visible = False
|
|
Me.PnlPartner.Visible = False
|
|
Me.PnlDokumentart.Visible = False
|
|
Me.TVDokart.Visible = False
|
|
Me.TVHostDok.Visible = False
|
|
Me.pnlhostdiv.Visible = False
|
|
|
|
Try
|
|
If Me.TreeView1.SelectedNode.ImageIndex < 6 Then
|
|
Me.TreeView1.SelectedNode.ImageIndex = 4
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 4
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 11 Or Me.TreeView1.SelectedNode.Tag = 21 Or Me.TreeView1.SelectedNode.Tag = 31 Then
|
|
Me.C1TrueDBGrid1.DataSource = tmb
|
|
Me.Panel3.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 12 Or Me.TreeView1.SelectedNode.Tag = 22 Or Me.TreeView1.SelectedNode.Tag = 32 Then
|
|
Me.C1TrueDBGrid1.DataSource = tnl
|
|
Me.Panel3.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 13 Or Me.TreeView1.SelectedNode.Tag = 23 Or Me.TreeView1.SelectedNode.Tag = 33 Then
|
|
Me.C1TrueDBGrid1.DataSource = tko
|
|
Me.Panel3.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 14 Or Me.TreeView1.SelectedNode.Tag = 24 Or Me.TreeView1.SelectedNode.Tag = 34 Then
|
|
Me.C1TrueDBGrid1.DataSource = tte
|
|
Me.Panel3.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 15 Or Me.TreeView1.SelectedNode.Tag = 25 Or Me.TreeView1.SelectedNode.Tag = 35 Then
|
|
Me.C1TrueDBGrid1.DataSource = tpe
|
|
Me.Panel3.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 42 Then
|
|
Me.PnlDokumentart.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 43 Then
|
|
Me.C1TrueDBGrid1.DataSource = tdt
|
|
Me.Panel3.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 44 Then
|
|
Me.C1TrueDBGrid1.DataSource = tst
|
|
Me.Panel3.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 45 Then
|
|
Me.Panel3.Visible = False
|
|
Me.PnlDokumentDaten.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
'Edoka-Dokument
|
|
If Me.TreeView1.SelectedNode.Tag = 41 Then
|
|
Me.Panel3.Visible = False
|
|
Me.PnlDokumentDaten.Visible = False
|
|
Me.PnlPartner.Visible = True
|
|
Me.TextBox1.Focus()
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
'Host-Partner
|
|
If Me.TreeView1.SelectedNode.Tag = 51 Then
|
|
Me.Panel3.Visible = False
|
|
Me.PnlDokumentDaten.Visible = False
|
|
Me.PnlPartner.Visible = True
|
|
Me.TextBox1.Focus()
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 42 Then
|
|
Me.TVDokart.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 52 Then
|
|
Me.TVHostDok.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 53 Then
|
|
Me.C1TrueDBGrid1.DataSource = tdh
|
|
Me.Panel3.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 55 Then
|
|
Me.pnlhostdiv.Visible = True
|
|
Me.TreeView1.SelectedNode.SelectedImageIndex = 5
|
|
End If
|
|
Dim i As Integer
|
|
For i = 0 To Me.C1TrueDBGrid1.Columns.Count - 1
|
|
If i <> 1 And i <> 2 Then
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Visible = False
|
|
Else
|
|
If i = 1 Then
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = Me.C1TrueDBGrid1.Width - 150
|
|
Else
|
|
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = 100
|
|
End If
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
Try
|
|
Me.C1TrueDBGrid1.Columns(2).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.C1TrueDBGrid1.Columns(2).FilterText = True
|
|
Catch
|
|
End Try
|
|
|
|
'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Visible = False
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Partnersuche"
|
|
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown
|
|
If e.KeyCode = Keys.Return Then btnPartnersuche_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub btnPartnersuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnersuche.Click
|
|
Me.PartnerList.DataSource = Nothing
|
|
Me.PartnerList.DataMember = Nothing
|
|
If Me.TextBox1.Text <> "" Then
|
|
Try
|
|
Dim d As Double
|
|
d = Val(Me.TextBox1.Text)
|
|
If d = 0 Then
|
|
MyMsg.show_standardmessage(20, MsgBoxStyle.Critical)
|
|
Me.TextBox1.Focus()
|
|
Exit Sub
|
|
End If
|
|
partner = mypartner.search_partner(d, 50, 0)
|
|
Catch
|
|
MyMsg.show_standardmessage(20, MsgBoxStyle.Critical)
|
|
Me.TextBox1.Focus()
|
|
Exit Sub
|
|
End Try
|
|
Else
|
|
If Me.TextBox2.Text <> "" Then
|
|
partner = mypartner.search_partner(Me.TextBox2.Text, 50, 1)
|
|
Else
|
|
partner = mypartner.search_partner(Me.TextBox3.Text, 50, 2)
|
|
End If
|
|
End If
|
|
If partner.Rows.Count = 0 Then
|
|
MyMsg.show_standardmessage(204, MsgBoxStyle.Exclamation)
|
|
Else
|
|
Me.PartnerList.DataSource = partner
|
|
Me.PartnerList.DataMember = "Partner"
|
|
SpaltenTitel_Aktualisieren()
|
|
Dim i As Long
|
|
Dim ii As Long
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub SpaltenTitel_Aktualisieren()
|
|
'Spaltentitel setzen
|
|
Dim titel As New EDOKA.MySpaltenTitel()
|
|
Dim ts As New EDOKA.Tabellenspalte()
|
|
Dim i As Integer
|
|
Dim t As New DataTable()
|
|
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
|
Dim s As String
|
|
|
|
t = partner
|
|
ts.Tabelle = "Partner"
|
|
For i = 0 To Me.PartnerList.Columns.Count - 1
|
|
s = Me.PartnerList.Columns(i).DataField
|
|
ts.Feld = s
|
|
ts.getspalte()
|
|
Me.PartnerList.Columns(i).Caption = ts.spaltenname
|
|
If Me.PartnerList.Columns(i).Caption = "" Then
|
|
Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
|
|
Else
|
|
Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
End If
|
|
' If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
|
|
If ts.locked Then
|
|
Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True
|
|
End If
|
|
|
|
If ts.AlsHacken Then
|
|
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
End If
|
|
|
|
'Präsentation von aktiv
|
|
If Me.PartnerList.Columns(i).DataField = "aktiv" Then
|
|
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.PartnerList.Columns(i).ValueItems.DefaultItem = True
|
|
Me.PartnerList.Columns(i).DefaultValue = True
|
|
Me.PartnerList.Columns(i).FilterText = True
|
|
End If
|
|
If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then
|
|
Me.PartnerList.Columns(i).DefaultValue = Now
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub PartnerList_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles PartnerList.FetchRowStyle
|
|
If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then
|
|
e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Datenselektion"
|
|
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick, PartnerList.DoubleClick
|
|
Dim tn As New TreeNode()
|
|
If Me.TreeView1.SelectedNode.Tag < 10 Then
|
|
MsgBox("Bitte wählen Sie einen Knoten aus, der das Hinzufügen von Selektionskriterien erlaubt.")
|
|
Exit Sub
|
|
End If
|
|
If Me.TreeView1.SelectedNode.Tag = 41 Or Me.TreeView1.SelectedNode.Tag = 51 Then
|
|
tn = Me.TreeView1.SelectedNode
|
|
tn = tn.Nodes.Add(Str(Me.PartnerList.Columns(0).Value) + " - " + Me.PartnerList.Columns(1).Value)
|
|
tn.Tag = Me.PartnerList.Columns(0).Value
|
|
tn.ForeColor = System.Drawing.Color.Red
|
|
tn.ImageIndex = 4
|
|
tn.SelectedImageIndex = 4
|
|
Me.TreeView1.SelectedNode.ExpandAll()
|
|
If checkchanges Then changes = True
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
tn = Me.TreeView1.SelectedNode
|
|
tn = tn.Nodes.Add(Me.C1TrueDBGrid1.Columns(1).Value)
|
|
tn.Tag = Me.C1TrueDBGrid1.Columns(0).Value
|
|
If Me.C1TrueDBGrid1.Columns(2).Value = False Then
|
|
tn.ForeColor = System.Drawing.Color.Gray
|
|
Else
|
|
tn.ForeColor = System.Drawing.Color.Red
|
|
End If
|
|
tn.ImageIndex = 4
|
|
tn.SelectedImageIndex = 4
|
|
Me.TreeView1.SelectedNode.ExpandAll()
|
|
If checkchanges Then changes = True
|
|
Catch
|
|
End Try
|
|
Exit Sub
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Hanlde Treeview_Mousebuttons"
|
|
Private Sub TVDokart_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TVDokart.DoubleClick
|
|
' If Me.TVDokart.SelectedNode.ImageIndex <> 1 Then
|
|
' Me.TVDokart.SelectedNode.ImageIndex = 1
|
|
' Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Red
|
|
' Else
|
|
' Me.TVDokart.SelectedNode.ImageIndex = 2
|
|
' Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Black
|
|
' End If
|
|
End Sub
|
|
|
|
Private Sub TVDokart_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TVDokart.MouseDown
|
|
Try
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
Try
|
|
TVDokart.SelectedNode = TVDokart.GetNodeAt(selectPoint)
|
|
Catch
|
|
End Try
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Treeview1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
|
|
Try
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
Try
|
|
TreeView1.SelectedNode = TreeView1.GetNodeAt(selectPoint)
|
|
Catch
|
|
End Try
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Profile_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Profile.MouseDown
|
|
Try
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
Try
|
|
Profile.SelectedNode = Profile.GetNodeAt(selectPoint)
|
|
Catch
|
|
End Try
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Datumhandling"
|
|
Private Sub cbtag1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbtag1.TextChanged, txtdatum1.TextChanged
|
|
Dim d As Date
|
|
Dim i As Integer
|
|
Me.lbldatum1.Text = ""
|
|
Try
|
|
i = Val(Me.cbtag1.Text) * -1
|
|
Catch
|
|
Exit Sub
|
|
End Try
|
|
Try
|
|
d = Me.txtdatum1.Text
|
|
Catch
|
|
d = Today
|
|
End Try
|
|
Me.lbldatum1.Text = DateAdd(DateInterval.Day, i, d)
|
|
If Me.txtdatum1.Text = "" Then Me.txtdatum1.Text = "(heute)"
|
|
If Me.cbtag1.Text = "" Then Me.lbldatum1.Text = ""
|
|
End Sub
|
|
|
|
Private Sub cbtag2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbtag2.TextChanged, txtdatum3.TextChanged
|
|
Dim d As Date
|
|
Dim i As Integer
|
|
Me.lbldatum2.Text = ""
|
|
Try
|
|
i = Val(Me.cbtag2.Text) * -1
|
|
Catch
|
|
Exit Sub
|
|
End Try
|
|
Try
|
|
d = Me.txtdatum3.Text
|
|
Catch
|
|
d = Today
|
|
End Try
|
|
Me.lbldatum2.Text = DateAdd(DateInterval.Day, i, d)
|
|
If Me.txtdatum3.Text = "" Then Me.txtdatum3.Text = "(heute)"
|
|
If Me.cbtag2.Text = "" Then Me.lbldatum2.Text = ""
|
|
End Sub
|
|
Private Sub cbtag3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbtag3.TextChanged, txtdatum5.TextChanged
|
|
Dim d As Date
|
|
Dim i As Integer
|
|
Me.lbldatum3.Text = ""
|
|
Try
|
|
i = Val(Me.cbtag3.Text) * -1
|
|
Catch
|
|
Exit Sub
|
|
End Try
|
|
Try
|
|
d = Me.txtdatum5.Text
|
|
Catch
|
|
d = Today
|
|
End Try
|
|
Me.lbldatum3.Text = DateAdd(DateInterval.Day, i, d)
|
|
If Me.txtdatum5.Text = "" Then Me.txtdatum5.Text = "(heute)"
|
|
If Me.cbtag3.Text = "" Then Me.lbldatum3.Text = ""
|
|
End Sub
|
|
|
|
Private Sub hosttag1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HostTag1.TextChanged, HostDatum1.TextChanged
|
|
Dim d As Date
|
|
Dim i As Integer
|
|
Me.lblhostdatum1.Text = ""
|
|
Try
|
|
i = Val(Me.HostTag1.Text) * -1
|
|
Catch
|
|
Exit Sub
|
|
End Try
|
|
Try
|
|
d = Me.HostDatum1.Text
|
|
Catch
|
|
d = Today
|
|
End Try
|
|
Me.lblhostdatum1.Text = DateAdd(DateInterval.Day, i, d)
|
|
If Me.HostDatum1.Text = "" Then Me.HostDatum1.Text = "(heute)"
|
|
If Me.HostTag1.Text = "" Then Me.lblhostdatum1.Text = ""
|
|
End Sub
|
|
Private Sub hosttag2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HostTag2.TextChanged, HostDatum2.TextChanged
|
|
Dim d As Date
|
|
Dim i As Integer
|
|
Me.lblhostdatum2.Text = ""
|
|
Try
|
|
i = Val(Me.HostTag2.Text) * -1
|
|
Catch
|
|
Exit Sub
|
|
End Try
|
|
Try
|
|
d = Me.HostDatum2.Text
|
|
Catch
|
|
d = Today
|
|
End Try
|
|
Me.lblhostdatum2.Text = DateAdd(DateInterval.Day, i, d)
|
|
If Me.HostDatum2.Text = "" Then Me.HostDatum2.Text = "(heute)"
|
|
If Me.HostTag2.Text = "" Then Me.lblhostdatum2.Text = ""
|
|
End Sub
|
|
Private Sub hosttag3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HostTag3.TextChanged, HostDatum3.TextChanged
|
|
Dim d As Date
|
|
Dim i As Integer
|
|
Me.lblhostdatum3.Text = ""
|
|
Try
|
|
i = Val(Me.HostTag3.Text) * -1
|
|
Catch
|
|
Exit Sub
|
|
End Try
|
|
Try
|
|
d = Me.HostDatum3.Text
|
|
Catch
|
|
d = Today
|
|
End Try
|
|
Me.lblhostdatum3.Text = DateAdd(DateInterval.Day, i, d)
|
|
If Me.HostDatum3.Text = "" Then Me.HostDatum3.Text = "(heute)"
|
|
If Me.HostTag3.Text = "" Then Me.lblhostdatum3.Text = ""
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Me.txtdatum1.Text = ""
|
|
changes = True
|
|
End Sub
|
|
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
Me.txtdatum3.Text = ""
|
|
changes = True
|
|
End Sub
|
|
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
|
Me.txtdatum5.Text = ""
|
|
changes = True
|
|
End Sub
|
|
Private Function CutDate(ByVal s As String) As String
|
|
Dim i As Integer
|
|
i = Microsoft.VisualBasic.InStr(s, " ")
|
|
CutDate = Microsoft.VisualBasic.Left(s, i - 1)
|
|
End Function
|
|
|
|
Private Sub DateTimePicker1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
|
|
Me.txtdatum1.Text = CutDate(Me.DateTimePicker1.Value)
|
|
changes = True
|
|
End Sub
|
|
Private Sub DateTimePicker2_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
|
|
Me.txtdatum2.Text = CutDate(Me.DateTimePicker2.Value)
|
|
changes = True
|
|
End Sub
|
|
Private Sub DateTimePicker3_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker3.ValueChanged
|
|
Me.txtdatum3.Text = CutDate(Me.DateTimePicker3.Value)
|
|
changes = True
|
|
End Sub
|
|
Private Sub DateTimePicker4_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker4.ValueChanged
|
|
Me.txtdatum4.Text = CutDate(Me.DateTimePicker4.Value)
|
|
changes = True
|
|
End Sub
|
|
Private Sub DateTimePicker5_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker5.ValueChanged
|
|
Me.txtdatum5.Text = CutDate(Me.DateTimePicker5.Value)
|
|
changes = True
|
|
End Sub
|
|
Private Sub DateTimePicker6_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker6.ValueChanged
|
|
Me.txtdatum6.Text = CutDate(Me.DateTimePicker6.Value)
|
|
changes = True
|
|
End Sub
|
|
|
|
Private Sub DateTimePicker9_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker9.ValueChanged
|
|
Me.HostDatum1.Text = CutDate(Me.DateTimePicker9.Value)
|
|
changes = True
|
|
End Sub
|
|
Private Sub DateTimePicker8_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker8.ValueChanged
|
|
Me.HostDatum2.Text = CutDate(Me.DateTimePicker8.Value)
|
|
changes = True
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub frmProfil_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
check_changes()
|
|
If Me.Profil_Ungueltig Then
|
|
MyMsg.show_standardmessage(104, MsgBoxStyle.Critical)
|
|
e.Cancel = True
|
|
Else
|
|
e.Cancel = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
|
|
Try
|
|
Me.C1TrueDBGrid1_DoubleClick(sender, e)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
|
|
Try
|
|
If Me.PartnerList.Columns(0).Value > 91000000 Then
|
|
Dim f As New frmInteressent()
|
|
f.Partnernr = Me.PartnerList.Columns(0).Value
|
|
f.Display = True
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
Else
|
|
Dim f As New frmPartnerDetails()
|
|
f.Partnernr = Me.PartnerList.Columns(0).Value
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
End If
|
|
Catch
|
|
Finally
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
|
|
Try
|
|
C1TrueDBGrid1_DoubleClick(sender, e)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MnuListe_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MnuListe.Popup
|
|
Dim i As Integer
|
|
If Me.Profil_Ungueltig = True Then
|
|
For i = 0 To Me.MnuListe.MenuItems.Count - 1
|
|
Me.MnuListe.MenuItems(i).Enabled = False
|
|
Next
|
|
Else
|
|
For i = 0 To Me.MnuListe.MenuItems.Count - 1
|
|
Me.MnuListe.MenuItems(i).Enabled = True
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub pnlhostdiv_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pnlhostdiv.Paint
|
|
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
|