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.
1349 lines
161 KiB
1349 lines
161 KiB
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Color
|
|
Imports System.ComponentModel
|
|
|
|
Public Class frmRolleDokumentTyp
|
|
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 ToolBar1 As System.Windows.Forms.ToolBar
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
|
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
|
|
Friend WithEvents Splitter2 As System.Windows.Forms.Splitter
|
|
Friend WithEvents TBLeft As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GrpFocus As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents FokusRight As System.Windows.Forms.RadioButton
|
|
Friend WithEvents FokusLeft As System.Windows.Forms.RadioButton
|
|
Friend WithEvents GrpRight As System.Windows.Forms.GroupBox
|
|
Friend WithEvents GrpLeft As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
|
Friend WithEvents TBRight As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents Panel4 As System.Windows.Forms.Panel
|
|
Friend WithEvents Panel5 As System.Windows.Forms.Panel
|
|
Friend WithEvents GrpBottom As System.Windows.Forms.GroupBox
|
|
Friend WithEvents BtnConnect As System.Windows.Forms.Button
|
|
Friend WithEvents ToolBarBtnSave As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
|
|
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox
|
|
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
|
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
Friend WithEvents DataSet3 As System.Data.DataSet
|
|
Friend WithEvents DataSet2 As System.Data.DataSet
|
|
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents DataSet4 As System.Data.DataSet
|
|
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDataAdapter4 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlDataAdapter5 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlSelectCommand5 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand5 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand5 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand5 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents DataSet5 As System.Data.DataSet
|
|
Friend WithEvents SqlSelectCommand4 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand4 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand4 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand4 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents TBBottom As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRolleDokumentTyp))
|
|
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
|
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarBtnSave = New System.Windows.Forms.ToolBarButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|
Me.Panel2 = New System.Windows.Forms.Panel()
|
|
Me.GrpRight = New System.Windows.Forms.GroupBox()
|
|
Me.TBRight = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.Splitter1 = New System.Windows.Forms.Splitter()
|
|
Me.GrpLeft = New System.Windows.Forms.GroupBox()
|
|
Me.TBLeft = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.Splitter2 = New System.Windows.Forms.Splitter()
|
|
Me.GrpFocus = New System.Windows.Forms.GroupBox()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.FokusRight = New System.Windows.Forms.RadioButton()
|
|
Me.FokusLeft = New System.Windows.Forms.RadioButton()
|
|
Me.Panel3 = New System.Windows.Forms.Panel()
|
|
Me.GrpBottom = New System.Windows.Forms.GroupBox()
|
|
Me.TBBottom = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
|
Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox()
|
|
Me.Panel5 = New System.Windows.Forms.Panel()
|
|
Me.BtnConnect = New System.Windows.Forms.Button()
|
|
Me.Panel4 = New System.Windows.Forms.Panel()
|
|
Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components)
|
|
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.DataSet1 = New System.Data.DataSet()
|
|
Me.DataSet3 = New System.Data.DataSet()
|
|
Me.DataSet2 = New System.Data.DataSet()
|
|
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.DataSet4 = New System.Data.DataSet()
|
|
Me.SqlDataAdapter4 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand4 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand4 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand4 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand4 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlDataAdapter5 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand5 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand5 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand5 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand5 = New System.Data.SqlClient.SqlCommand()
|
|
Me.DataSet5 = New System.Data.DataSet()
|
|
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.Panel2.SuspendLayout()
|
|
Me.GrpRight.SuspendLayout()
|
|
CType(Me.TBRight, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GrpLeft.SuspendLayout()
|
|
CType(Me.TBLeft, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GrpFocus.SuspendLayout()
|
|
Me.Panel3.SuspendLayout()
|
|
Me.GrpBottom.SuspendLayout()
|
|
CType(Me.TBBottom, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox1.SuspendLayout()
|
|
Me.Panel5.SuspendLayout()
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet5, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarBtnSave})
|
|
Me.ToolBar1.DropDownArrows = True
|
|
Me.ToolBar1.ImageList = Me.ImageList1
|
|
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
|
|
Me.ToolBar1.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(640, 28)
|
|
Me.ToolBar1.TabIndex = 0
|
|
'
|
|
'ToolBarButton1
|
|
'
|
|
Me.ToolBarButton1.ImageIndex = 0
|
|
Me.ToolBarButton1.Name = "ToolBarButton1"
|
|
'
|
|
'ToolBarBtnSave
|
|
'
|
|
Me.ToolBarBtnSave.ImageIndex = 1
|
|
Me.ToolBarBtnSave.Name = "ToolBarBtnSave"
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
Me.ImageList1.Images.SetKeyName(0, "")
|
|
Me.ImageList1.Images.SetKeyName(1, "")
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Panel1.Location = New System.Drawing.Point(0, 28)
|
|
Me.Panel1.Name = "Panel1"
|
|
Me.Panel1.Size = New System.Drawing.Size(640, 16)
|
|
Me.Panel1.TabIndex = 1
|
|
'
|
|
'Panel2
|
|
'
|
|
Me.Panel2.Controls.Add(Me.GrpRight)
|
|
Me.Panel2.Controls.Add(Me.Splitter1)
|
|
Me.Panel2.Controls.Add(Me.GrpLeft)
|
|
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Panel2.Location = New System.Drawing.Point(0, 44)
|
|
Me.Panel2.Name = "Panel2"
|
|
Me.Panel2.Size = New System.Drawing.Size(640, 199)
|
|
Me.Panel2.TabIndex = 2
|
|
'
|
|
'GrpRight
|
|
'
|
|
Me.GrpRight.Controls.Add(Me.TBRight)
|
|
Me.GrpRight.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.GrpRight.Location = New System.Drawing.Point(315, 0)
|
|
Me.GrpRight.Name = "GrpRight"
|
|
Me.GrpRight.Size = New System.Drawing.Size(325, 199)
|
|
Me.GrpRight.TabIndex = 2
|
|
Me.GrpRight.TabStop = False
|
|
Me.GrpRight.Text = "GroupBox2"
|
|
'
|
|
'TBRight
|
|
'
|
|
Me.TBRight.AllowUpdate = False
|
|
Me.TBRight.AlternatingRows = True
|
|
Me.TBRight.BackColor = System.Drawing.Color.Gray
|
|
Me.TBRight.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TBRight.FilterBar = True
|
|
Me.TBRight.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.TBRight.Images.Add(CType(resources.GetObject("TBRight.Images"), System.Drawing.Image))
|
|
Me.TBRight.Location = New System.Drawing.Point(3, 16)
|
|
Me.TBRight.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
|
Me.TBRight.Name = "TBRight"
|
|
Me.TBRight.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.TBRight.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.TBRight.PreviewInfo.ZoomFactor = 75.0R
|
|
Me.TBRight.PrintInfo.PageSettings = CType(resources.GetObject("TBRight.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.TBRight.Size = New System.Drawing.Size(319, 180)
|
|
Me.TBRight.TabIndex = 8
|
|
Me.TBRight.Text = "C1TrueDBGrid1"
|
|
Me.TBRight.PropBag = resources.GetString("TBRight.PropBag")
|
|
'
|
|
'Splitter1
|
|
'
|
|
Me.Splitter1.Location = New System.Drawing.Point(312, 0)
|
|
Me.Splitter1.Name = "Splitter1"
|
|
Me.Splitter1.Size = New System.Drawing.Size(3, 199)
|
|
Me.Splitter1.TabIndex = 1
|
|
Me.Splitter1.TabStop = False
|
|
'
|
|
'GrpLeft
|
|
'
|
|
Me.GrpLeft.Controls.Add(Me.TBLeft)
|
|
Me.GrpLeft.Dock = System.Windows.Forms.DockStyle.Left
|
|
Me.GrpLeft.Location = New System.Drawing.Point(0, 0)
|
|
Me.GrpLeft.Name = "GrpLeft"
|
|
Me.GrpLeft.Size = New System.Drawing.Size(312, 199)
|
|
Me.GrpLeft.TabIndex = 0
|
|
Me.GrpLeft.TabStop = False
|
|
Me.GrpLeft.Text = "GroupBox1"
|
|
'
|
|
'TBLeft
|
|
'
|
|
Me.TBLeft.AllowUpdate = False
|
|
Me.TBLeft.AlternatingRows = True
|
|
Me.TBLeft.BackColor = System.Drawing.Color.Gray
|
|
Me.TBLeft.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TBLeft.FilterBar = True
|
|
Me.TBLeft.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.TBLeft.Images.Add(CType(resources.GetObject("TBLeft.Images"), System.Drawing.Image))
|
|
Me.TBLeft.Location = New System.Drawing.Point(3, 16)
|
|
Me.TBLeft.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
|
Me.TBLeft.Name = "TBLeft"
|
|
Me.TBLeft.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.TBLeft.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.TBLeft.PreviewInfo.ZoomFactor = 75.0R
|
|
Me.TBLeft.PrintInfo.PageSettings = CType(resources.GetObject("TBLeft.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.TBLeft.Size = New System.Drawing.Size(306, 180)
|
|
Me.TBLeft.TabIndex = 8
|
|
Me.TBLeft.Text = "C1TrueDBGrid1"
|
|
Me.TBLeft.PropBag = resources.GetString("TBLeft.PropBag")
|
|
'
|
|
'Splitter2
|
|
'
|
|
Me.Splitter2.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Splitter2.Location = New System.Drawing.Point(0, 243)
|
|
Me.Splitter2.Name = "Splitter2"
|
|
Me.Splitter2.Size = New System.Drawing.Size(640, 3)
|
|
Me.Splitter2.TabIndex = 3
|
|
Me.Splitter2.TabStop = False
|
|
'
|
|
'GrpFocus
|
|
'
|
|
Me.GrpFocus.Controls.Add(Me.Label1)
|
|
Me.GrpFocus.Controls.Add(Me.FokusRight)
|
|
Me.GrpFocus.Controls.Add(Me.FokusLeft)
|
|
Me.GrpFocus.Location = New System.Drawing.Point(216, 0)
|
|
Me.GrpFocus.Name = "GrpFocus"
|
|
Me.GrpFocus.Size = New System.Drawing.Size(200, 32)
|
|
Me.GrpFocus.TabIndex = 17
|
|
Me.GrpFocus.TabStop = False
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(78, 13)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(48, 16)
|
|
Me.Label1.TabIndex = 2
|
|
Me.Label1.Text = "Fokus"
|
|
'
|
|
'FokusRight
|
|
'
|
|
Me.FokusRight.Location = New System.Drawing.Point(176, 12)
|
|
Me.FokusRight.Name = "FokusRight"
|
|
Me.FokusRight.Size = New System.Drawing.Size(16, 16)
|
|
Me.FokusRight.TabIndex = 1
|
|
'
|
|
'FokusLeft
|
|
'
|
|
Me.FokusLeft.Location = New System.Drawing.Point(9, 13)
|
|
Me.FokusLeft.Name = "FokusLeft"
|
|
Me.FokusLeft.Size = New System.Drawing.Size(104, 16)
|
|
Me.FokusLeft.TabIndex = 0
|
|
'
|
|
'Panel3
|
|
'
|
|
Me.Panel3.Controls.Add(Me.GrpBottom)
|
|
Me.Panel3.Controls.Add(Me.Panel5)
|
|
Me.Panel3.Controls.Add(Me.Panel4)
|
|
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Panel3.Location = New System.Drawing.Point(0, 246)
|
|
Me.Panel3.Name = "Panel3"
|
|
Me.Panel3.Size = New System.Drawing.Size(640, 267)
|
|
Me.Panel3.TabIndex = 18
|
|
'
|
|
'GrpBottom
|
|
'
|
|
Me.GrpBottom.Controls.Add(Me.TBBottom)
|
|
Me.GrpBottom.Controls.Add(Me.GroupBox1)
|
|
Me.GrpBottom.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.GrpBottom.Location = New System.Drawing.Point(0, 40)
|
|
Me.GrpBottom.Name = "GrpBottom"
|
|
Me.GrpBottom.Size = New System.Drawing.Size(640, 187)
|
|
Me.GrpBottom.TabIndex = 2
|
|
Me.GrpBottom.TabStop = False
|
|
Me.GrpBottom.Text = "GroupBox1"
|
|
'
|
|
'TBBottom
|
|
'
|
|
Me.TBBottom.AlternatingRows = True
|
|
Me.TBBottom.BackColor = System.Drawing.Color.Gray
|
|
Me.TBBottom.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TBBottom.FilterBar = True
|
|
Me.TBBottom.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.TBBottom.Images.Add(CType(resources.GetObject("TBBottom.Images"), System.Drawing.Image))
|
|
Me.TBBottom.Location = New System.Drawing.Point(3, 16)
|
|
Me.TBBottom.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
|
Me.TBBottom.Name = "TBBottom"
|
|
Me.TBBottom.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.TBBottom.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.TBBottom.PreviewInfo.ZoomFactor = 75.0R
|
|
Me.TBBottom.PrintInfo.PageSettings = CType(resources.GetObject("TBBottom.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.TBBottom.Size = New System.Drawing.Size(402, 168)
|
|
Me.TBBottom.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
|
Me.TBBottom.TabIndex = 11
|
|
Me.TBBottom.Text = "C1TrueDBGrid1"
|
|
Me.TBBottom.PropBag = resources.GetString("TBBottom.PropBag")
|
|
'
|
|
'GroupBox1
|
|
'
|
|
Me.GroupBox1.Controls.Add(Me.CheckedListBox1)
|
|
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Right
|
|
Me.GroupBox1.Location = New System.Drawing.Point(405, 16)
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|
Me.GroupBox1.Size = New System.Drawing.Size(232, 168)
|
|
Me.GroupBox1.TabIndex = 10
|
|
Me.GroupBox1.TabStop = False
|
|
Me.GroupBox1.Text = "GroupBox1"
|
|
'
|
|
'CheckedListBox1
|
|
'
|
|
Me.CheckedListBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.CheckedListBox1.Location = New System.Drawing.Point(3, 16)
|
|
Me.CheckedListBox1.Name = "CheckedListBox1"
|
|
Me.CheckedListBox1.Size = New System.Drawing.Size(226, 149)
|
|
Me.CheckedListBox1.TabIndex = 0
|
|
'
|
|
'Panel5
|
|
'
|
|
Me.Panel5.Controls.Add(Me.BtnConnect)
|
|
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Panel5.Location = New System.Drawing.Point(0, 0)
|
|
Me.Panel5.Name = "Panel5"
|
|
Me.Panel5.Size = New System.Drawing.Size(640, 40)
|
|
Me.Panel5.TabIndex = 1
|
|
'
|
|
'BtnConnect
|
|
'
|
|
Me.BtnConnect.Location = New System.Drawing.Point(288, 8)
|
|
Me.BtnConnect.Name = "BtnConnect"
|
|
Me.BtnConnect.Size = New System.Drawing.Size(75, 23)
|
|
Me.BtnConnect.TabIndex = 0
|
|
Me.BtnConnect.Text = "&Verbinden"
|
|
'
|
|
'Panel4
|
|
'
|
|
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
|
|
Me.Panel4.Location = New System.Drawing.Point(0, 227)
|
|
Me.Panel4.Name = "Panel4"
|
|
Me.Panel4.Size = New System.Drawing.Size(640, 40)
|
|
Me.Panel4.TabIndex = 0
|
|
'
|
|
'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.MenuItem3, Me.MenuItem2})
|
|
Me.MenuItem1.MergeOrder = 1
|
|
Me.MenuItem1.MergeType = System.Windows.Forms.MenuMerge.Replace
|
|
Me.MenuItem1.Shortcut = System.Windows.Forms.Shortcut.F4
|
|
Me.MenuItem1.Text = "&Datei"
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Index = 0
|
|
Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlF5
|
|
Me.MenuItem3.Text = "&Daten sichern"
|
|
'
|
|
'MenuItem2
|
|
'
|
|
Me.MenuItem2.Index = 1
|
|
Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.AltF4
|
|
Me.MenuItem2.Text = "&Schliessen"
|
|
'
|
|
'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", "rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("rollelevel", "rollelevel"), New System.Data.Common.DataColumnMapping("sysadminrolle", "sysadminrolle"), New System.Data.Common.DataColumnMapping("zugehoerigkeit", "zugehoerigkeit"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
|
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[pv_rolle_delete]"
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zugehoerigkeit", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'SqlConnection1
|
|
'
|
|
Me.SqlConnection1.ConnectionString = "Data Source=shu00;Initial Catalog=EDOKA;Integrated Security=True"
|
|
Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[pv_rolle_insert]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"), New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"), New System.Data.SqlClient.SqlParameter("@zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, "zugehoerigkeit"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer")})
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[pv_rolle_select]"
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")})
|
|
'
|
|
'SqlUpdateCommand1
|
|
'
|
|
Me.SqlUpdateCommand1.CommandText = "[pv_rolle_update]"
|
|
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"), New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"), New System.Data.SqlClient.SqlParameter("@zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, "zugehoerigkeit"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zugehoerigkeit", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
'
|
|
'DataSet3
|
|
'
|
|
Me.DataSet3.DataSetName = "NewDataSet"
|
|
'
|
|
'DataSet2
|
|
'
|
|
Me.DataSet2.DataSetName = "NewDataSet"
|
|
'
|
|
'SqlDataAdapter2
|
|
'
|
|
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand3
|
|
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand3
|
|
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand3
|
|
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "pv_berechtigung_aktiv_select", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("berechtigungnr", "berechtigungnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
|
|
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand3
|
|
'
|
|
'SqlDeleteCommand3
|
|
'
|
|
Me.SqlDeleteCommand3.CommandText = "[pv_berechtigung_aktiv_delete]"
|
|
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'SqlInsertCommand3
|
|
'
|
|
Me.SqlInsertCommand3.CommandText = "[pv_berechtigung_aktiv_insert]"
|
|
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung")})
|
|
'
|
|
'SqlSelectCommand3
|
|
'
|
|
Me.SqlSelectCommand3.CommandText = "[pv_berechtigung_aktiv_select]"
|
|
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
|
|
'
|
|
'SqlUpdateCommand3
|
|
'
|
|
Me.SqlUpdateCommand3.CommandText = "[pv_berechtigung_aktiv_update]"
|
|
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand3.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255)})
|
|
'
|
|
'DataSet4
|
|
'
|
|
Me.DataSet4.DataSetName = "NewDataSet"
|
|
'
|
|
'SqlDataAdapter4
|
|
'
|
|
Me.SqlDataAdapter4.DeleteCommand = Me.SqlDeleteCommand4
|
|
Me.SqlDataAdapter4.InsertCommand = Me.SqlInsertCommand4
|
|
Me.SqlDataAdapter4.SelectCommand = Me.SqlSelectCommand4
|
|
Me.SqlDataAdapter4.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "dokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("zu_vercolden", "zu_vercolden"), New System.Data.Common.DataColumnMapping("zu_retournieren", "zu_retournieren"), New System.Data.Common.DataColumnMapping("eingang_ersetzt_ausgang", "eingang_ersetzt_ausgang"), New System.Data.Common.DataColumnMapping("wird_importiert", "wird_importiert"), New System.Data.Common.DataColumnMapping("anzahl_tage", "anzahl_tage"), New System.Data.Common.DataColumnMapping("dbearbeitungszeit", "dbearbeitungszeit"), New System.Data.Common.DataColumnMapping("tage_mutation", "tage_mutation"), New System.Data.Common.DataColumnMapping("partnersaldierung_statusalt", "partnersaldierung_statusalt"), New System.Data.Common.DataColumnMapping("wird_nicht_geloescht", "wird_nicht_geloescht"), New System.Data.Common.DataColumnMapping("vertrauliches_dokument", "vertrauliches_dokument"), New System.Data.Common.DataColumnMapping("unterschrift_links", "unterschrift_links"), New System.Data.Common.DataColumnMapping("unterschrift_rechts", "unterschrift_rechts"), New System.Data.Common.DataColumnMapping("monate_bis_zur_archivierung", "monate_bis_zur_archivierung"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_elektronisch", "aufbewahrungsfrist_elektronisch"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_physisch", "aufbewahrungsfrist_physisch"), 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("office_vorlagenr", "office_vorlagenr"), New System.Data.Common.DataColumnMapping("dokumentart_kundendossier", "dokumentart_kundendossier"), New System.Data.Common.DataColumnMapping("dokumentart_neuerstellung", "dokumentart_neuerstellung"), New System.Data.Common.DataColumnMapping("dokumentart_retournierung", "dokumentart_retournierung"), New System.Data.Common.DataColumnMapping("dokumentart_coldausgang", "dokumentart_coldausgang"), New System.Data.Common.DataColumnMapping("dokumentart_coldeingang", "dokumentart_coldeingang"), New System.Data.Common.DataColumnMapping("dokumentart_host", "dokumentart_host"), New System.Data.Common.DataColumnMapping("dokumentart_weitere", "dokumentart_weitere"), New System.Data.Common.DataColumnMapping("prozessnr", "prozessnr"), New System.Data.Common.DataColumnMapping("prozessnr1", "prozessnr1"), New System.Data.Common.DataColumnMapping("amsdokument", "amsdokument"), New System.Data.Common.DataColumnMapping("hostdokument", "hostdokument"), New System.Data.Common.DataColumnMapping("hostdokumenttyp", "hostdokumenttyp"), New System.Data.Common.DataColumnMapping("cold_folder", "cold_folder"), New System.Data.Common.DataColumnMapping("physisches_archiv", "physisches_archiv"), New System.Data.Common.DataColumnMapping("dokumentstatus", "dokumentstatus"), New System.Data.Common.DataColumnMapping("Dokument_wird_erstellt", "Dokument_wird_erstellt"), New System.Data.Common.DataColumnMapping("Dokument_wird_retourniert", "Dokument_wird_retourniert")})})
|
|
Me.SqlDataAdapter4.UpdateCommand = Me.SqlUpdateCommand4
|
|
'
|
|
'SqlDeleteCommand4
|
|
'
|
|
Me.SqlDeleteCommand4.CommandText = "[pv_dokumenttyp_delete]"
|
|
Me.SqlDeleteCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand4.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand4.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", System.Data.DataRowVersion.Original, Nothing), 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), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'SqlInsertCommand4
|
|
'
|
|
Me.SqlInsertCommand4.CommandText = "[pv_dokumenttyp_insert]"
|
|
Me.SqlInsertCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand4.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand4.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"), New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"), New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"), New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"), New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"), New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"), New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"), New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"), New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"), New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"), New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"), New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"), New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"), New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"), New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"), New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"), New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"), New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"), New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"), New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"), New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"), New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"), New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"), New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"), New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"), New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"), New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"), New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"), New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"), New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"), New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"), New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert")})
|
|
'
|
|
'SqlSelectCommand4
|
|
'
|
|
Me.SqlSelectCommand4.CommandText = "[pv_dokumenttyp_select]"
|
|
Me.SqlSelectCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand4.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand4.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")})
|
|
'
|
|
'SqlUpdateCommand4
|
|
'
|
|
Me.SqlUpdateCommand4.CommandText = "[pv_dokumenttyp_update]"
|
|
Me.SqlUpdateCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand4.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand4.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"), New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"), New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"), New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"), New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"), New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"), New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"), New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"), New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"), New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"), New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"), New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"), New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"), New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"), New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"), New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"), New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"), New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"), New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"), New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"), New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"), New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"), New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"), New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"), New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"), New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"), New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"), New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"), New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"), New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"), New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"), New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", System.Data.DataRowVersion.Original, Nothing), 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), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'SqlDataAdapter5
|
|
'
|
|
Me.SqlDataAdapter5.DeleteCommand = Me.SqlDeleteCommand5
|
|
Me.SqlDataAdapter5.InsertCommand = Me.SqlInsertCommand5
|
|
Me.SqlDataAdapter5.SelectCommand = Me.SqlSelectCommand5
|
|
Me.SqlDataAdapter5.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "dokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("zu_vercolden", "zu_vercolden"), New System.Data.Common.DataColumnMapping("zu_retournieren", "zu_retournieren"), New System.Data.Common.DataColumnMapping("eingang_ersetzt_ausgang", "eingang_ersetzt_ausgang"), New System.Data.Common.DataColumnMapping("wird_importiert", "wird_importiert"), New System.Data.Common.DataColumnMapping("anzahl_tage", "anzahl_tage"), New System.Data.Common.DataColumnMapping("dbearbeitungszeit", "dbearbeitungszeit"), New System.Data.Common.DataColumnMapping("tage_mutation", "tage_mutation"), New System.Data.Common.DataColumnMapping("partnersaldierung_statusalt", "partnersaldierung_statusalt"), New System.Data.Common.DataColumnMapping("wird_nicht_geloescht", "wird_nicht_geloescht"), New System.Data.Common.DataColumnMapping("vertrauliches_dokument", "vertrauliches_dokument"), New System.Data.Common.DataColumnMapping("unterschrift_links", "unterschrift_links"), New System.Data.Common.DataColumnMapping("unterschrift_rechts", "unterschrift_rechts"), New System.Data.Common.DataColumnMapping("monate_bis_zur_archivierung", "monate_bis_zur_archivierung"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_elektronisch", "aufbewahrungsfrist_elektronisch"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_physisch", "aufbewahrungsfrist_physisch"), 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("office_vorlagenr", "office_vorlagenr"), New System.Data.Common.DataColumnMapping("dokumentart_kundendossier", "dokumentart_kundendossier"), New System.Data.Common.DataColumnMapping("dokumentart_neuerstellung", "dokumentart_neuerstellung"), New System.Data.Common.DataColumnMapping("dokumentart_retournierung", "dokumentart_retournierung"), New System.Data.Common.DataColumnMapping("dokumentart_coldausgang", "dokumentart_coldausgang"), New System.Data.Common.DataColumnMapping("dokumentart_coldeingang", "dokumentart_coldeingang"), New System.Data.Common.DataColumnMapping("dokumentart_host", "dokumentart_host"), New System.Data.Common.DataColumnMapping("dokumentart_weitere", "dokumentart_weitere"), New System.Data.Common.DataColumnMapping("prozessnr", "prozessnr"), New System.Data.Common.DataColumnMapping("prozessnr1", "prozessnr1"), New System.Data.Common.DataColumnMapping("amsdokument", "amsdokument"), New System.Data.Common.DataColumnMapping("hostdokument", "hostdokument"), New System.Data.Common.DataColumnMapping("hostdokumenttyp", "hostdokumenttyp"), New System.Data.Common.DataColumnMapping("cold_folder", "cold_folder"), New System.Data.Common.DataColumnMapping("physisches_archiv", "physisches_archiv"), New System.Data.Common.DataColumnMapping("dokumentstatus", "dokumentstatus"), New System.Data.Common.DataColumnMapping("Dokument_wird_erstellt", "Dokument_wird_erstellt"), New System.Data.Common.DataColumnMapping("Dokument_wird_retourniert", "Dokument_wird_retourniert")})})
|
|
Me.SqlDataAdapter5.UpdateCommand = Me.SqlUpdateCommand5
|
|
'
|
|
'SqlDeleteCommand5
|
|
'
|
|
Me.SqlDeleteCommand5.CommandText = "[pv_dokumenttyp_delete]"
|
|
Me.SqlDeleteCommand5.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand5.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand5.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", System.Data.DataRowVersion.Original, Nothing), 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), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'SqlInsertCommand5
|
|
'
|
|
Me.SqlInsertCommand5.CommandText = "[pv_dokumenttyp_insert]"
|
|
Me.SqlInsertCommand5.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand5.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand5.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"), New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"), New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"), New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"), New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"), New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"), New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"), New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"), New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"), New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"), New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"), New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"), New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"), New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"), New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"), New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"), New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"), New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"), New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"), New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"), New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"), New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"), New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"), New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"), New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"), New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"), New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"), New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"), New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"), New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"), New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"), New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert")})
|
|
'
|
|
'SqlSelectCommand5
|
|
'
|
|
Me.SqlSelectCommand5.CommandText = "[pv_dokumenttyp_select]"
|
|
Me.SqlSelectCommand5.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand5.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand5.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")})
|
|
'
|
|
'SqlUpdateCommand5
|
|
'
|
|
Me.SqlUpdateCommand5.CommandText = "[pv_dokumenttyp_update]"
|
|
Me.SqlUpdateCommand5.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand5.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand5.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"), New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"), New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"), New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"), New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"), New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"), New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"), New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"), New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"), New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"), New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"), New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"), New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"), New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"), New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"), New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"), New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"), New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"), New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"), New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"), New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"), New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"), New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"), New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"), New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"), New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"), New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"), New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"), New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"), New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"), New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"), New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", System.Data.DataRowVersion.Original, Nothing), 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), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'DataSet5
|
|
'
|
|
Me.DataSet5.DataSetName = "NewDataSet"
|
|
'
|
|
'SqlDataAdapter3
|
|
'
|
|
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand2
|
|
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand2
|
|
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand2
|
|
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle_dokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rolle_dokumenttyp_nr", "rolle_dokumenttyp_nr"), New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("berechtigungnr", "berechtigungnr"), New System.Data.Common.DataColumnMapping("ausschluss", "ausschluss"), New System.Data.Common.DataColumnMapping("normal", "normal"), New System.Data.Common.DataColumnMapping("vertraulich_gestattet", "vertraulich_gestattet"), New System.Data.Common.DataColumnMapping("mitarbeiter_gestattet", "mitarbeiter_gestattet"), New System.Data.Common.DataColumnMapping("chiffre_gestattet", "chiffre_gestattet"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("anzeigen", "anzeigen"), New System.Data.Common.DataColumnMapping("erstellen", "erstellen"), New System.Data.Common.DataColumnMapping("bearbeiten", "bearbeiten"), New System.Data.Common.DataColumnMapping("loeschen", "loeschen"), New System.Data.Common.DataColumnMapping("abschliessen", "abschliessen"), New System.Data.Common.DataColumnMapping("Boersenkotiert_gestattet", "Boersenkotiert_gestattet")})})
|
|
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand2
|
|
'
|
|
'SqlDeleteCommand2
|
|
'
|
|
Me.SqlDeleteCommand2.CommandText = "dbo.pv_rolle_dokumenttyp_delete"
|
|
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_rolle_dokumenttyp_nr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolle_dokumenttyp_nr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_rollenr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_berechtigungnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ausschluss", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ausschluss", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ausschluss", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausschluss", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_normal", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "normal", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_normal", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "normal", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_vertraulich_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "vertraulich_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_vertraulich_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertraulich_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mitarbeiter_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mitarbeiter_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiter_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiter_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_chiffre_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "chiffre_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_chiffre_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "chiffre_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_aktiv", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_anzeigen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "anzeigen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_anzeigen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzeigen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_bearbeiten", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bearbeiten", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_bearbeiten", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bearbeiten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_loeschen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "loeschen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_loeschen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loeschen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_abschliessen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "abschliessen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_abschliessen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "abschliessen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Boersenkotiert_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Boersenkotiert_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Boersenkotiert_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Boersenkotiert_gestattet", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'SqlInsertCommand2
|
|
'
|
|
Me.SqlInsertCommand2.CommandText = "dbo.pv_rolle_dokumenttyp_insert"
|
|
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@rolle_dokumenttyp_nr", System.Data.SqlDbType.Int, 0, "rolle_dokumenttyp_nr"), New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 0, "rollenr"), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 0, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 0, "berechtigungnr"), New System.Data.SqlClient.SqlParameter("@ausschluss", System.Data.SqlDbType.Bit, 0, "ausschluss"), New System.Data.SqlClient.SqlParameter("@normal", System.Data.SqlDbType.Bit, 0, "normal"), New System.Data.SqlClient.SqlParameter("@vertraulich_gestattet", System.Data.SqlDbType.Bit, 0, "vertraulich_gestattet"), New System.Data.SqlClient.SqlParameter("@mitarbeiter_gestattet", System.Data.SqlDbType.Bit, 0, "mitarbeiter_gestattet"), New System.Data.SqlClient.SqlParameter("@chiffre_gestattet", System.Data.SqlDbType.Bit, 0, "chiffre_gestattet"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 0, "aktiv"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 0, "mandantnr"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 0, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 0, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 0, "mutierer"), New System.Data.SqlClient.SqlParameter("@anzeigen", System.Data.SqlDbType.Bit, 0, "anzeigen"), New System.Data.SqlClient.SqlParameter("@erstellen", System.Data.SqlDbType.Bit, 0, "erstellen"), New System.Data.SqlClient.SqlParameter("@bearbeiten", System.Data.SqlDbType.Bit, 0, "bearbeiten"), New System.Data.SqlClient.SqlParameter("@loeschen", System.Data.SqlDbType.Bit, 0, "loeschen"), New System.Data.SqlClient.SqlParameter("@abschliessen", System.Data.SqlDbType.Bit, 0, "abschliessen"), New System.Data.SqlClient.SqlParameter("@Boersenkotiert_gestattet", System.Data.SqlDbType.Bit, 0, "Boersenkotiert_gestattet")})
|
|
'
|
|
'SqlSelectCommand2
|
|
'
|
|
Me.SqlSelectCommand2.CommandText = "dbo.sp_rolle_dokumenttyp_select"
|
|
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
|
|
'
|
|
'SqlUpdateCommand2
|
|
'
|
|
Me.SqlUpdateCommand2.CommandText = "dbo.pv_rolle_dokumenttyp_update"
|
|
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand2.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@rolle_dokumenttyp_nr", System.Data.SqlDbType.Int, 0, "rolle_dokumenttyp_nr"), New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 0, "rollenr"), New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 0, "dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 0, "berechtigungnr"), New System.Data.SqlClient.SqlParameter("@ausschluss", System.Data.SqlDbType.Bit, 0, "ausschluss"), New System.Data.SqlClient.SqlParameter("@normal", System.Data.SqlDbType.Bit, 0, "normal"), New System.Data.SqlClient.SqlParameter("@vertraulich_gestattet", System.Data.SqlDbType.Bit, 0, "vertraulich_gestattet"), New System.Data.SqlClient.SqlParameter("@mitarbeiter_gestattet", System.Data.SqlDbType.Bit, 0, "mitarbeiter_gestattet"), New System.Data.SqlClient.SqlParameter("@chiffre_gestattet", System.Data.SqlDbType.Bit, 0, "chiffre_gestattet"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 0, "aktiv"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 0, "mandantnr"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 0, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 0, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 0, "mutierer"), New System.Data.SqlClient.SqlParameter("@anzeigen", System.Data.SqlDbType.Bit, 0, "anzeigen"), New System.Data.SqlClient.SqlParameter("@erstellen", System.Data.SqlDbType.Bit, 0, "erstellen"), New System.Data.SqlClient.SqlParameter("@bearbeiten", System.Data.SqlDbType.Bit, 0, "bearbeiten"), New System.Data.SqlClient.SqlParameter("@loeschen", System.Data.SqlDbType.Bit, 0, "loeschen"), New System.Data.SqlClient.SqlParameter("@abschliessen", System.Data.SqlDbType.Bit, 0, "abschliessen"), New System.Data.SqlClient.SqlParameter("@Boersenkotiert_gestattet", System.Data.SqlDbType.Bit, 0, "Boersenkotiert_gestattet"), New System.Data.SqlClient.SqlParameter("@Original_rolle_dokumenttyp_nr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolle_dokumenttyp_nr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_rollenr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_berechtigungnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_ausschluss", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ausschluss", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_ausschluss", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausschluss", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_normal", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "normal", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_normal", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "normal", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_vertraulich_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "vertraulich_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_vertraulich_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertraulich_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mitarbeiter_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mitarbeiter_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mitarbeiter_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiter_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_chiffre_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "chiffre_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_chiffre_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "chiffre_gestattet", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_aktiv", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_anzeigen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "anzeigen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_anzeigen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzeigen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_erstellen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "erstellen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_erstellen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_bearbeiten", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bearbeiten", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_bearbeiten", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bearbeiten", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_loeschen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "loeschen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_loeschen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loeschen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_abschliessen", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "abschliessen", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_abschliessen", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "abschliessen", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Boersenkotiert_gestattet", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Boersenkotiert_gestattet", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Boersenkotiert_gestattet", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Boersenkotiert_gestattet", System.Data.DataRowVersion.Original, Nothing)})
|
|
'
|
|
'frmRolleDokumentTyp
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(640, 513)
|
|
Me.Controls.Add(Me.Panel3)
|
|
Me.Controls.Add(Me.GrpFocus)
|
|
Me.Controls.Add(Me.Splitter2)
|
|
Me.Controls.Add(Me.Panel2)
|
|
Me.Controls.Add(Me.Panel1)
|
|
Me.Controls.Add(Me.ToolBar1)
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Menu = Me.MainMenu1
|
|
Me.Name = "frmRolleDokumentTyp"
|
|
Me.Text = "frmRelEditor"
|
|
Me.Panel2.ResumeLayout(False)
|
|
Me.GrpRight.ResumeLayout(False)
|
|
CType(Me.TBRight, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GrpLeft.ResumeLayout(False)
|
|
CType(Me.TBLeft, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GrpFocus.ResumeLayout(False)
|
|
Me.Panel3.ResumeLayout(False)
|
|
Me.GrpBottom.ResumeLayout(False)
|
|
CType(Me.TBBottom, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox1.ResumeLayout(False)
|
|
Me.Panel5.ResumeLayout(False)
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet5, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Dim m_TableNameLeft As String
|
|
Dim m_TableNameRight As String
|
|
Dim m_TableNameBottom As String
|
|
Dim m_KeyLeft As Long
|
|
Dim m_KeyRight As Long
|
|
Dim m_Eintrag As String
|
|
Dim m_Eintragnr As Long
|
|
|
|
Dim hierarchie As DataTable
|
|
Dim Set_Selected_Values As Boolean
|
|
|
|
#Region "Properties"
|
|
|
|
Property TableNameLeft() As String
|
|
Get
|
|
Return m_TableNameLeft
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_TableNameLeft = Value
|
|
End Set
|
|
End Property
|
|
Property TableNameRight() As String
|
|
Get
|
|
Return m_TableNameRight
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_TableNameRight = Value
|
|
End Set
|
|
End Property
|
|
Property TableNameBottom() As String
|
|
Get
|
|
Return m_TableNameBottom
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_TableNameBottom = Value
|
|
End Set
|
|
End Property
|
|
Property KeyLeft() As Long
|
|
Get
|
|
Return m_KeyLeft
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_KeyLeft = Value
|
|
End Set
|
|
End Property
|
|
Property KeyRight() As Long
|
|
Get
|
|
Return m_KeyRight
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_KeyRight = Value
|
|
End Set
|
|
End Property
|
|
Property Eintrag() As String
|
|
Get
|
|
Return m_Eintrag
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_Eintrag = Value
|
|
End Set
|
|
End Property
|
|
Property Eintragnr() As Long
|
|
Get
|
|
Return m_Eintragnr
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_Eintragnr = Value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
#Region "Spalten-Formatierung"
|
|
Public Sub SpaltenTitel_Aktualisieren(ByVal tblnr As Integer, ByVal tblname As String, ByVal ds As DataSet)
|
|
'Spaltentitel setzen
|
|
Dim titel As New EDOKA.MySpaltenTitel()
|
|
Dim ts As New EDOKA.Tabellenspalte()
|
|
Dim i As Integer
|
|
Dim t As New DataTable()
|
|
t = ds.Tables(0)
|
|
If tblnr = 1 Then
|
|
ts.Tabelle = tblname
|
|
For i = 0 To Me.TBLeft.Columns.Count - 1
|
|
Dim s As String
|
|
s = Me.TBLeft.Columns(i).DataField
|
|
ts.Feld = s
|
|
ts.getspalte()
|
|
If ts.spaltenname <> "" Then
|
|
Me.TBLeft.Columns(i).Caption = ts.spaltenname
|
|
If Me.TBLeft.Columns(i).Caption = "" Then
|
|
Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
|
|
Else
|
|
Me.TBLeft.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
End If
|
|
If ts.locked Then
|
|
Me.TBLeft.Splits(0).DisplayColumns(i).Locked = True
|
|
End If
|
|
If ts.AlsHacken Then
|
|
Me.TBLeft.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
End If
|
|
'Präsentation von aktiv
|
|
If Me.TBLeft.Columns(i).DataField = "aktiv" Then
|
|
Me.TBLeft.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBLeft.Columns(i).ValueItems.DefaultItem = True
|
|
Me.TBLeft.Columns(i).DefaultValue = True
|
|
Me.TBLeft.Columns(i).FilterText = True
|
|
End If
|
|
If Me.TBLeft.Columns(i).DataField = "erstellt_am" Then
|
|
Me.TBLeft.Columns(i).DefaultValue = Now
|
|
End If
|
|
Else
|
|
Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
|
|
End If
|
|
Next
|
|
End If
|
|
If tblnr = 2 Then
|
|
ts.Tabelle = tblname
|
|
For i = 0 To Me.TBRight.Columns.Count - 1
|
|
Dim s As String
|
|
s = Me.TBRight.Columns(i).DataField
|
|
ts.Feld = s
|
|
ts.getspalte()
|
|
Me.TBRight.Columns(i).Caption = ts.spaltenname
|
|
If Me.TBRight.Columns(i).Caption = "" Then
|
|
Me.TBRight.Splits(0).DisplayColumns(i).Width = 0
|
|
Else
|
|
Me.TBRight.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
End If
|
|
If ts.locked Then
|
|
Me.TBRight.Splits(0).DisplayColumns(i).Locked = True
|
|
End If
|
|
If ts.AlsHacken Then
|
|
Me.TBRight.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
End If
|
|
|
|
'Präsentation von aktiv
|
|
If Me.TBRight.Columns(i).DataField = "aktiv" Then
|
|
Me.TBRight.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBRight.Columns(i).ValueItems.DefaultItem = True
|
|
Me.TBRight.Columns(i).DefaultValue = True
|
|
Me.TBRight.Columns(i).FilterText = True
|
|
End If
|
|
If Me.TBRight.Columns(i).DataField = "erstellt_am" Then
|
|
Me.TBRight.Columns(i).DefaultValue = Now
|
|
End If
|
|
Next
|
|
End If
|
|
If tblnr = 3 Then
|
|
ts.Tabelle = tblname
|
|
For i = 0 To Me.TBBottom.Columns.Count - 1
|
|
Dim s As String
|
|
s = Me.TBBottom.Columns(i).DataField
|
|
ts.Feld = s
|
|
ts.getspalte()
|
|
Me.TBBottom.Columns(i).Caption = ts.spaltenname
|
|
If Me.TBBottom.Columns(i).Caption = "" Then
|
|
Me.TBBottom.Splits(0).DisplayColumns(i).Width = 0
|
|
Else
|
|
Me.TBBottom.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
End If
|
|
If ts.locked Then
|
|
Me.TBBottom.Splits(0).DisplayColumns(i).Locked = True
|
|
End If
|
|
If ts.AlsHacken Then
|
|
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
End If
|
|
|
|
|
|
'Präsentation von aktiv
|
|
If Me.TBBottom.Columns(i).DataField = "aktiv" Then
|
|
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
|
Me.TBBottom.Columns(i).DefaultValue = True
|
|
Me.TBBottom.Columns(i).FilterText = True
|
|
End If
|
|
If Me.TBBottom.Columns(i).DataField = "erstellt_am" Then
|
|
Me.TBBottom.Columns(i).DefaultValue = Now
|
|
End If
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub TBBottom_Format()
|
|
Dim i As Integer
|
|
For i = 0 To Me.TBBottom.Columns.Count - 1
|
|
'Präsentation von aktiv
|
|
If Me.TBBottom.Columns(i).DataField = "aktiv" Then
|
|
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBBottom.Columns(i).DefaultValue = True
|
|
Me.TBBottom.Splits(0).DisplayColumns(i).Locked = False
|
|
End If
|
|
If Me.TBBottom.Columns(i).DataField = "zwingend" Then
|
|
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
|
Me.TBBottom.Columns(i).DefaultValue = True
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "UpdateGrpText"
|
|
Public Sub UpdateGrpText(ByVal w1 As Integer, ByVal w2 As Integer, ByVal w3 As Integer)
|
|
Me.GrpLeft.Text = Globals.MyTxt.gettext(w1)
|
|
Me.GrpRight.Text = Globals.MyTxt.gettext(w2)
|
|
Me.GrpBottom.Text = Globals.MyTxt.gettext(w3)
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Formhandling"
|
|
|
|
Private Sub frmVerbEditor_Layout(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LayoutEventArgs) Handles MyBase.Layout
|
|
Me.GrpLeft.Width = Me.ClientSize.Width / 2
|
|
Me.GrpFocus.Left = Me.Splitter1.Left - (Me.GrpFocus.Width / 2)
|
|
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
|
Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
|
|
End Sub
|
|
|
|
Private Sub Splitter1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter1.SplitterMoved
|
|
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
|
End Sub
|
|
|
|
Private Sub Splitter2_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter2.SplitterMoved
|
|
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
|
Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
|
|
End Sub
|
|
|
|
Private Sub frmVerbEditor_WndChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
|
Me.GrpLeft.Width = Me.ClientSize.Width / 2
|
|
Me.GrpFocus.Left = Me.Splitter1.Left - (Me.GrpFocus.Width / 2)
|
|
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
|
Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
|
|
End Sub
|
|
|
|
Public Sub FormSize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim ds As New edokadb.clsSysadminfunktion()
|
|
Try
|
|
ds.cpMainConnectionProvider = conn
|
|
ds.iSysadminfnktnr = New SqlInt32(CType(m_Eintragnr, Int32))
|
|
ds.SelectOne()
|
|
If ds.iFleft.Value <> 0 Then Me.Left = ds.iFleft.Value
|
|
If ds.iFtop.Value <> 0 Then Me.Top = ds.iFtop.Value
|
|
If ds.iFwidth.Value <> 0 Then Me.Width = ds.iFwidth.Value
|
|
If ds.iFheight.Value <> 0 Then Me.Height = ds.iFheight.Value
|
|
Me.MenuItem1.Text = Me.Eintrag
|
|
Catch
|
|
' MsgBox("Error Resizing Form")
|
|
Finally
|
|
End Try
|
|
ds.Dispose()
|
|
Me.Text = Me.Eintrag
|
|
Try
|
|
Globals.WinPos.Get_Position(Me)
|
|
Catch
|
|
Finally
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub frmVerbEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.FokusLeft.Checked = True
|
|
Me.FokusRight.Checked = False
|
|
Me.Text = Me.Eintrag
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "FormularFunktionen"
|
|
|
|
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.TableNameLeft = "rolle"
|
|
Me.TableNameRight = "dokumenttyp"
|
|
Me.TableNameBottom = "rolle_dokumenttyp"
|
|
LoadData()
|
|
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
|
'Me.TBLeft.Columns("rollelevel").FilterText = 3
|
|
Me.TBLeft.ScrollTips = True
|
|
Me.TBBottom.ScrollTips = True
|
|
Me.TBRight.ScrollTips = True
|
|
End Sub
|
|
|
|
Private Sub TBBottom_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBBottom.FetchScrollTips
|
|
Select Case e.ScrollBar
|
|
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
|
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBBottom.Splits(0).Rows.Count)
|
|
End Select
|
|
e.TipStyle.ForeColor = Color.Blue
|
|
End Sub
|
|
Private Sub TBLeft_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBLeft.FetchScrollTips
|
|
Select Case e.ScrollBar
|
|
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
|
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBLeft.Splits(0).Rows.Count)
|
|
End Select
|
|
e.TipStyle.ForeColor = Color.Blue
|
|
End Sub
|
|
Private Sub TBRight_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBRight.FetchScrollTips
|
|
Select Case e.ScrollBar
|
|
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
|
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBRight.Splits(0).Rows.Count)
|
|
End Select
|
|
e.TipStyle.ForeColor = Color.Blue
|
|
End Sub
|
|
Private Sub frmRolle_SysadminFunktion_Close(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
|
Try
|
|
Globals.WinPos.Set_Position(Me)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
|
Insert_TBBottom()
|
|
End Sub
|
|
|
|
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
|
Dim msg As MsgBoxResult
|
|
If Me.DataSet3.HasChanges Then
|
|
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
|
If msg = MsgBoxResult.No Then
|
|
e.Cancel = False
|
|
End If
|
|
If msg = MsgBoxResult.Yes Then
|
|
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
|
End If
|
|
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
|
End If
|
|
End Sub
|
|
Private Sub check_changes()
|
|
Dim msg As MsgBoxResult
|
|
If Me.DataSet3.HasChanges Then
|
|
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
|
If msg = MsgBoxResult.Yes Then
|
|
Save_Data()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MnuGesamt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Try
|
|
Me.DataSet2.Tables.Clear()
|
|
Catch
|
|
End Try
|
|
Dim hdata As New edokadb.clsMyDokumentart()
|
|
hdata.cpMainConnectionProvider = conn
|
|
hierarchie = hdata.SelectHierarchy_Parametrisierung_By_Root(1)
|
|
Me.TBRight.DataSource = hierarchie
|
|
Me.DataSet2.Tables.Add(hierarchie)
|
|
SpaltenTitel_Aktualisieren(2, "dokumentart", Me.DataSet2)
|
|
End Sub
|
|
|
|
Private Sub MnuKundendossier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Try
|
|
Me.DataSet2.Tables.Clear()
|
|
Catch
|
|
End Try
|
|
Dim hdata As New edokadb.clsMyDokumentart()
|
|
hdata.cpMainConnectionProvider = conn
|
|
hierarchie = hdata.SelectHierarchy_Parametrisierung_By_Root(2)
|
|
Me.TBRight.DataSource = hierarchie
|
|
Me.DataSet2.Tables.Add(hierarchie)
|
|
SpaltenTitel_Aktualisieren(2, "dokumentart", Me.DataSet2)
|
|
End Sub
|
|
|
|
Private Sub MnuErstellung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Try
|
|
Me.DataSet2.Tables.Clear()
|
|
Catch
|
|
End Try
|
|
Dim hdata As New edokadb.clsMyDokumentart()
|
|
hdata.cpMainConnectionProvider = conn
|
|
hierarchie = hdata.SelectHierarchy_Parametrisierung_By_Root(4)
|
|
Me.TBRight.DataSource = hierarchie
|
|
Me.DataSet2.Tables.Add(hierarchie)
|
|
SpaltenTitel_Aktualisieren(2, "dokumentart", Me.DataSet2)
|
|
|
|
End Sub
|
|
|
|
Private Sub MnuHost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Try
|
|
Me.DataSet2.Tables.Clear()
|
|
Catch
|
|
End Try
|
|
Dim hdata As New edokadb.clsMyDokumentart()
|
|
hdata.cpMainConnectionProvider = conn
|
|
hierarchie = hdata.SelectHierarchy_Parametrisierung_By_Root(3)
|
|
Me.TBRight.DataSource = hierarchie
|
|
Me.DataSet2.Tables.Add(hierarchie)
|
|
SpaltenTitel_Aktualisieren(2, "dokumentart", Me.DataSet2)
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
Save_Data()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Datahandling"
|
|
Public Sub LoadData()
|
|
Dim dbconn As New EDOKA.DB_Connection()
|
|
Dim t As DataTable
|
|
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
Me.SqlConnection1.Open()
|
|
|
|
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
|
|
|
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
|
Me.TBLeft.DataSource = Me.DataSet1
|
|
Me.TBLeft.DataMember = Me.TableNameLeft
|
|
UpdateGrpText(5032, 5033, 5034)
|
|
Me.GroupBox1.Text = Globals.MyTxt.gettext(5041)
|
|
|
|
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
|
Me.SqlDataAdapter5.SelectCommand.Parameters.Clear()
|
|
Me.SqlDataAdapter5.SelectCommand.Parameters.Add("@mandantnr", Globals.MandantNr)
|
|
|
|
Me.SqlDataAdapter5.Fill(Me.DataSet5)
|
|
Me.TBRight.DataSource = Me.DataSet5
|
|
Me.TBRight.DataMember = Me.TableNameRight
|
|
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet5)
|
|
|
|
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
|
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
|
Me.SqlDataAdapter2.Fill(Me.DataSet4)
|
|
Me.CheckedListBox1.DataSource = Me.DataSet4.Tables(0)
|
|
Me.CheckedListBox1.ValueMember = "berechtigungnr"
|
|
Me.CheckedListBox1.DisplayMember = "bezeichnung"
|
|
End Sub
|
|
|
|
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
|
check_changes()
|
|
Refresh_TBBottom()
|
|
End Sub
|
|
|
|
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
|
check_changes()
|
|
Refresh_TBBottom()
|
|
End Sub
|
|
|
|
Private Sub TBBottom_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBBottom.RowColChange
|
|
check_changes()
|
|
CheckedListbox1_Selectedvalues()
|
|
End Sub
|
|
|
|
Public Sub Refresh_TBBottom()
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
|
If Me.FokusLeft.Checked Then
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
|
Else
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
|
End If
|
|
Try
|
|
Me.DataSet3.Clear()
|
|
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Me.TBBottom.DataSource = Me.DataSet3
|
|
Me.TBBottom.DataMember = Me.TableNameBottom
|
|
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
|
TBBottom_Format()
|
|
CheckedListbox1_Selectedvalues()
|
|
End Sub
|
|
|
|
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
Dim i As Integer
|
|
For i = 0 To Me.TBBottom.Columns.Count - 1
|
|
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
|
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub Insert_TBBottom()
|
|
Dim iLeft As Integer
|
|
Dim iRigth As Integer
|
|
Dim ic, i As Integer
|
|
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
|
Dim vdata As New edokadb.clsRolle_dokumenttyp()
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim Currentsel As Boolean
|
|
Dim key As Long
|
|
|
|
iLeft = Me.TBLeft.SelectedRows.Count
|
|
iRigth = Me.TBRight.SelectedRows.Count
|
|
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
|
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
End If
|
|
If Me.FokusLeft.Checked Then
|
|
ic = iRigth
|
|
colRows = Me.TBRight.SelectedRows
|
|
Else
|
|
ic = iLeft
|
|
colRows = Me.TBLeft.SelectedRows
|
|
End If
|
|
If ic = 0 Then
|
|
ic = ic + 1
|
|
Currentsel = True
|
|
End If
|
|
For i = 0 To ic - 1
|
|
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
|
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
If Me.FokusLeft.Checked Then
|
|
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
|
If Currentsel Then
|
|
vdata.iDokumenttypnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
|
Else
|
|
vdata.iDokumenttypnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
|
End If
|
|
Else
|
|
If Currentsel Then
|
|
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
|
Else
|
|
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
|
End If
|
|
|
|
vdata.iDokumenttypnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
|
End If
|
|
vdata.bAbschliessen = New SqlBoolean(CType(False, Boolean))
|
|
vdata.bAnzeigen = New SqlBoolean(CType(False, Boolean))
|
|
vdata.bErstellen = New SqlBoolean(CType(False, Boolean))
|
|
vdata.bBearbeiten = New SqlBoolean(CType(False, Boolean))
|
|
vdata.bLoeschen = New SqlBoolean(CType(False, Boolean))
|
|
|
|
vdata.bAusschluss = New SqlBoolean(CType(False, Boolean))
|
|
vdata.bMitarbeiter_gestattet = New SqlBoolean(CType(False, Boolean))
|
|
vdata.bVertraulich_gestattet = New SqlBoolean(CType(False, Boolean))
|
|
vdata.bChiffre_gestattet = New SqlBoolean(CType(False, Boolean))
|
|
dbkey.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("rolle_dokumenttyp")
|
|
vdata.iRolle_dokumenttyp_nr = New SqlInt32(CType(key, Int32))
|
|
vdata.cpMainConnectionProvider = conn
|
|
conn.OpenConnection()
|
|
vdata.Insert()
|
|
conn.CloseConnection(True)
|
|
Next
|
|
vdata.Dispose()
|
|
Refresh_TBBottom()
|
|
End Sub
|
|
|
|
Private Function Save_Data() As Boolean
|
|
Save_Data = True
|
|
Try
|
|
SqlDataAdapter3.Update(Me.DataSet3)
|
|
Catch ex As Exception
|
|
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
|
Save_Data = False
|
|
End Try
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
#Region "Toolbar"
|
|
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 'close button
|
|
Me.Close()
|
|
Case 1 'Speichern
|
|
Save_Data()
|
|
Case Else
|
|
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
|
End Select
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "CheckedListbox"
|
|
#End Region
|
|
|
|
Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
|
|
Dim i As Integer
|
|
Dim bm As Long
|
|
If Set_Selected_Values Then Exit Sub
|
|
Select Case Me.CheckedListBox1.SelectedValue
|
|
Case 1
|
|
For i = 0 To TBBottom.Columns.Count - 1
|
|
If Me.TBBottom.Columns(i).DataField = "anzeigen" Then
|
|
Me.TBBottom.Columns(i).Value = e.NewValue
|
|
End If
|
|
Next
|
|
Case 2
|
|
For i = 0 To TBBottom.Columns.Count - 1
|
|
If Me.TBBottom.Columns(i).DataField = "erstellen" Then
|
|
Me.TBBottom.Columns(i).Value = e.NewValue
|
|
End If
|
|
Next
|
|
Case 3
|
|
For i = 0 To TBBottom.Columns.Count - 1
|
|
If Me.TBBottom.Columns(i).DataField = "bearbeiten" Then
|
|
Me.TBBottom.Columns(i).Value = e.NewValue
|
|
End If
|
|
Next
|
|
Case 4
|
|
For i = 0 To TBBottom.Columns.Count - 1
|
|
If Me.TBBottom.Columns(i).DataField = "loeschen" Then
|
|
Me.TBBottom.Columns(i).Value = e.NewValue
|
|
End If
|
|
Next
|
|
Case 5
|
|
For i = 0 To TBBottom.Columns.Count - 1
|
|
If Me.TBBottom.Columns(i).DataField = "abschliessen" Then
|
|
Me.TBBottom.Columns(i).Value = e.NewValue
|
|
End If
|
|
Next
|
|
End Select
|
|
For i = 0 To Me.TBBottom.Columns.Count - 1
|
|
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
|
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub CheckedListbox1_Selectedvalues()
|
|
Dim i As Integer
|
|
Set_Selected_Values = True
|
|
Me.CheckedListBox1.SetItemChecked(0, False)
|
|
Me.CheckedListBox1.SetItemChecked(1, False)
|
|
Me.CheckedListBox1.SetItemChecked(2, False)
|
|
Me.CheckedListBox1.SetItemChecked(3, False)
|
|
Me.CheckedListBox1.SetItemChecked(4, False)
|
|
Try
|
|
For i = 0 To TBBottom.Columns.Count - 1
|
|
If Me.TBBottom.Columns(i).DataField = "anzeigen" Then
|
|
Me.CheckedListBox1.SetItemChecked(0, Me.TBBottom.Columns(i).Text)
|
|
End If
|
|
If Me.TBBottom.Columns(i).DataField = "erstellen" Then
|
|
Me.CheckedListBox1.SetItemChecked(1, Me.TBBottom.Columns(i).Text)
|
|
End If
|
|
If Me.TBBottom.Columns(i).DataField = "bearbeiten" Then
|
|
Me.CheckedListBox1.SetItemChecked(2, Me.TBBottom.Columns(i).Text)
|
|
End If
|
|
If Me.TBBottom.Columns(i).DataField = "loeschen" Then
|
|
Me.CheckedListBox1.SetItemChecked(3, Me.TBBottom.Columns(i).Text)
|
|
End If
|
|
If Me.TBBottom.Columns(i).DataField = "abschliessen" Then
|
|
Me.CheckedListBox1.SetItemChecked(4, Me.TBBottom.Columns(i).Text)
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
Set_Selected_Values = False
|
|
End Sub
|
|
|
|
End Class
|