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.
2562 lines
137 KiB
2562 lines
137 KiB
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.IO
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Color
|
|
|
|
Public Class frmDokumentinformationen
|
|
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 TabControl1 As System.Windows.Forms.TabControl
|
|
Friend WithEvents TabPageAllgemein As System.Windows.Forms.TabPage
|
|
Friend WithEvents pnlzensur1 As System.Windows.Forms.Panel
|
|
Friend WithEvents lblzensur1 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox18 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label19 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox14 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label15 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox13 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label14 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox12 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label12 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox11 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents TabPageStatus As System.Windows.Forms.TabPage
|
|
Friend WithEvents Statuslist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
|
Friend WithEvents RBStatusHistory As System.Windows.Forms.RadioButton
|
|
Friend WithEvents RBStatusAktuell As System.Windows.Forms.RadioButton
|
|
Friend WithEvents TabPageDokumentwerte As System.Windows.Forms.TabPage
|
|
Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
|
|
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
|
Friend WithEvents pnlzensur2 As System.Windows.Forms.Panel
|
|
Friend WithEvents ColdList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents Splitter2 As System.Windows.Forms.Splitter
|
|
Friend WithEvents lblzensur2 As System.Windows.Forms.Label
|
|
Friend WithEvents ColdListDokumente As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
|
|
Friend WithEvents TextBox17 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label18 As System.Windows.Forms.Label
|
|
Friend WithEvents TextBox16 As System.Windows.Forms.TextBox
|
|
Friend WithEvents TextBox15 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label17 As System.Windows.Forms.Label
|
|
Friend WithEvents Label16 As System.Windows.Forms.Label
|
|
Friend WithEvents TabPageZuordnung As System.Windows.Forms.TabPage
|
|
Friend WithEvents pnlzensur4 As System.Windows.Forms.Panel
|
|
Friend WithEvents lblzensur4 As System.Windows.Forms.Label
|
|
Friend WithEvents Zuordnungslist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents TabPageNotizen As System.Windows.Forms.TabPage
|
|
Friend WithEvents pnlzensur5 As System.Windows.Forms.Panel
|
|
Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
|
Friend WithEvents lblzensur5 As System.Windows.Forms.Label
|
|
Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents TabPageInfomeldung As System.Windows.Forms.TabPage
|
|
Friend WithEvents pnlzensur3 As System.Windows.Forms.Panel
|
|
Friend WithEvents lblzensur3 As System.Windows.Forms.Label
|
|
Friend WithEvents InfoMeldungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents TabPageBerechtigung As System.Windows.Forms.TabPage
|
|
Friend WithEvents DokumentFunktionenList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
|
Friend WithEvents pnlzensur6 As System.Windows.Forms.Panel
|
|
Friend WithEvents lblzensur6 As System.Windows.Forms.Label
|
|
Friend WithEvents ErsetzteDokumenteList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
|
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents TabControl3 As System.Windows.Forms.TabControl
|
|
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
|
|
Friend WithEvents Label13 As System.Windows.Forms.Label
|
|
Friend WithEvents Label20 As System.Windows.Forms.Label
|
|
Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtPartnerZusteller As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label21 As System.Windows.Forms.Label
|
|
Friend WithEvents Label22 As System.Windows.Forms.Label
|
|
Friend WithEvents txtvvextern1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtvvextern2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtErstelltAm As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label23 As System.Windows.Forms.Label
|
|
Friend WithEvents txtValuta As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label24 As System.Windows.Forms.Label
|
|
Friend WithEvents txtisin As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtvalor As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label25 As System.Windows.Forms.Label
|
|
Friend WithEvents Label26 As System.Windows.Forms.Label
|
|
Friend WithEvents txtnachvollziehbarkeit As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label27 As System.Windows.Forms.Label
|
|
Friend WithEvents txtReferenzzeile2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtReferenzzeile1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label28 As System.Windows.Forms.Label
|
|
Friend WithEvents Label29 As System.Windows.Forms.Label
|
|
Friend WithEvents txtanzahlseiten As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label30 As System.Windows.Forms.Label
|
|
Friend WithEvents txtDokumentid As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label31 As System.Windows.Forms.Label
|
|
Friend WithEvents txtDokumenttyp As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label32 As System.Windows.Forms.Label
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDokumentinformationen))
|
|
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines4 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines5 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines6 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines7 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines8 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines9 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines10 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
|
Me.TabPageAllgemein = New System.Windows.Forms.TabPage()
|
|
Me.pnlzensur1 = New System.Windows.Forms.Panel()
|
|
Me.lblzensur1 = New System.Windows.Forms.Label()
|
|
Me.TextBox18 = New System.Windows.Forms.TextBox()
|
|
Me.Label19 = New System.Windows.Forms.Label()
|
|
Me.TextBox14 = New System.Windows.Forms.TextBox()
|
|
Me.Label15 = New System.Windows.Forms.Label()
|
|
Me.TextBox13 = New System.Windows.Forms.TextBox()
|
|
Me.Label14 = New System.Windows.Forms.Label()
|
|
Me.TextBox12 = New System.Windows.Forms.TextBox()
|
|
Me.Label12 = New System.Windows.Forms.Label()
|
|
Me.TextBox11 = New System.Windows.Forms.TextBox()
|
|
Me.Label11 = New System.Windows.Forms.Label()
|
|
Me.TextBox10 = New System.Windows.Forms.TextBox()
|
|
Me.Label10 = New System.Windows.Forms.Label()
|
|
Me.TextBox9 = New System.Windows.Forms.TextBox()
|
|
Me.Label9 = New System.Windows.Forms.Label()
|
|
Me.TextBox8 = New System.Windows.Forms.TextBox()
|
|
Me.Label8 = New System.Windows.Forms.Label()
|
|
Me.TextBox7 = New System.Windows.Forms.TextBox()
|
|
Me.Label7 = New System.Windows.Forms.Label()
|
|
Me.TextBox6 = New System.Windows.Forms.TextBox()
|
|
Me.Label6 = New System.Windows.Forms.Label()
|
|
Me.TextBox5 = New System.Windows.Forms.TextBox()
|
|
Me.Label5 = New System.Windows.Forms.Label()
|
|
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
|
Me.Label4 = New System.Windows.Forms.Label()
|
|
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.TabPageStatus = New System.Windows.Forms.TabPage()
|
|
Me.Statuslist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.Panel2 = New System.Windows.Forms.Panel()
|
|
Me.RBStatusHistory = New System.Windows.Forms.RadioButton()
|
|
Me.RBStatusAktuell = New System.Windows.Forms.RadioButton()
|
|
Me.TabPageDokumentwerte = New System.Windows.Forms.TabPage()
|
|
Me.TabControl2 = New System.Windows.Forms.TabControl()
|
|
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
|
Me.pnlzensur2 = New System.Windows.Forms.Panel()
|
|
Me.ColdList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.Splitter2 = New System.Windows.Forms.Splitter()
|
|
Me.lblzensur2 = New System.Windows.Forms.Label()
|
|
Me.ColdListDokumente = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
|
Me.TextBox17 = New System.Windows.Forms.TextBox()
|
|
Me.Label18 = New System.Windows.Forms.Label()
|
|
Me.TextBox16 = New System.Windows.Forms.TextBox()
|
|
Me.TextBox15 = New System.Windows.Forms.TextBox()
|
|
Me.Label17 = New System.Windows.Forms.Label()
|
|
Me.Label16 = New System.Windows.Forms.Label()
|
|
Me.TabPageZuordnung = New System.Windows.Forms.TabPage()
|
|
Me.pnlzensur4 = New System.Windows.Forms.Panel()
|
|
Me.lblzensur4 = New System.Windows.Forms.Label()
|
|
Me.Zuordnungslist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.TabPageNotizen = New System.Windows.Forms.TabPage()
|
|
Me.pnlzensur5 = New System.Windows.Forms.Panel()
|
|
Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
|
Me.lblzensur5 = New System.Windows.Forms.Label()
|
|
Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.TabPageInfomeldung = New System.Windows.Forms.TabPage()
|
|
Me.pnlzensur3 = New System.Windows.Forms.Panel()
|
|
Me.lblzensur3 = New System.Windows.Forms.Label()
|
|
Me.InfoMeldungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.TabPageBerechtigung = New System.Windows.Forms.TabPage()
|
|
Me.DokumentFunktionenList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
|
Me.pnlzensur6 = New System.Windows.Forms.Panel()
|
|
Me.lblzensur6 = New System.Windows.Forms.Label()
|
|
Me.ErsetzteDokumenteList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
|
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.TabControl3 = New System.Windows.Forms.TabControl()
|
|
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
|
Me.txtDokumenttyp = New System.Windows.Forms.TextBox()
|
|
Me.Label32 = New System.Windows.Forms.Label()
|
|
Me.txtDokumentid = New System.Windows.Forms.TextBox()
|
|
Me.Label31 = New System.Windows.Forms.Label()
|
|
Me.txtanzahlseiten = New System.Windows.Forms.TextBox()
|
|
Me.Label30 = New System.Windows.Forms.Label()
|
|
Me.txtReferenzzeile2 = New System.Windows.Forms.TextBox()
|
|
Me.txtReferenzzeile1 = New System.Windows.Forms.TextBox()
|
|
Me.Label28 = New System.Windows.Forms.Label()
|
|
Me.Label29 = New System.Windows.Forms.Label()
|
|
Me.txtnachvollziehbarkeit = New System.Windows.Forms.TextBox()
|
|
Me.Label27 = New System.Windows.Forms.Label()
|
|
Me.txtisin = New System.Windows.Forms.TextBox()
|
|
Me.txtvalor = New System.Windows.Forms.TextBox()
|
|
Me.Label25 = New System.Windows.Forms.Label()
|
|
Me.Label26 = New System.Windows.Forms.Label()
|
|
Me.txtValuta = New System.Windows.Forms.TextBox()
|
|
Me.Label24 = New System.Windows.Forms.Label()
|
|
Me.txtErstelltAm = New System.Windows.Forms.TextBox()
|
|
Me.Label23 = New System.Windows.Forms.Label()
|
|
Me.txtvvextern2 = New System.Windows.Forms.TextBox()
|
|
Me.txtvvextern1 = New System.Windows.Forms.TextBox()
|
|
Me.Label22 = New System.Windows.Forms.Label()
|
|
Me.Label21 = New System.Windows.Forms.Label()
|
|
Me.txtPartnerZusteller = New System.Windows.Forms.TextBox()
|
|
Me.txtPartnerInhaber = New System.Windows.Forms.TextBox()
|
|
Me.Label20 = New System.Windows.Forms.Label()
|
|
Me.Label13 = New System.Windows.Forms.Label()
|
|
Me.TabControl1.SuspendLayout()
|
|
Me.TabPageAllgemein.SuspendLayout()
|
|
Me.pnlzensur1.SuspendLayout()
|
|
Me.TabPageStatus.SuspendLayout()
|
|
CType(Me.Statuslist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.Panel2.SuspendLayout()
|
|
Me.TabPageDokumentwerte.SuspendLayout()
|
|
Me.TabControl2.SuspendLayout()
|
|
Me.TabPage1.SuspendLayout()
|
|
CType(Me.ColdList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.ColdListDokumente, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.TabPage3.SuspendLayout()
|
|
Me.TabPageZuordnung.SuspendLayout()
|
|
Me.pnlzensur4.SuspendLayout()
|
|
CType(Me.Zuordnungslist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.TabPageNotizen.SuspendLayout()
|
|
Me.pnlzensur5.SuspendLayout()
|
|
CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.TabPageInfomeldung.SuspendLayout()
|
|
Me.pnlzensur3.SuspendLayout()
|
|
CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.TabPageBerechtigung.SuspendLayout()
|
|
CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.TabPage2.SuspendLayout()
|
|
Me.pnlzensur6.SuspendLayout()
|
|
CType(Me.ErsetzteDokumenteList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.TabControl3.SuspendLayout()
|
|
Me.TabPage4.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'TabControl1
|
|
'
|
|
Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPageAllgemein, Me.TabPageStatus, Me.TabPageDokumentwerte, Me.TabPageZuordnung, Me.TabPageNotizen, Me.TabPageInfomeldung, Me.TabPageBerechtigung, Me.TabPage2})
|
|
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.TabControl1.Location = New System.Drawing.Point(0, 25)
|
|
Me.TabControl1.Name = "TabControl1"
|
|
Me.TabControl1.SelectedIndex = 0
|
|
Me.TabControl1.Size = New System.Drawing.Size(786, 248)
|
|
Me.TabControl1.TabIndex = 13
|
|
'
|
|
'TabPageAllgemein
|
|
'
|
|
Me.TabPageAllgemein.BackColor = System.Drawing.Color.Transparent
|
|
Me.TabPageAllgemein.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlzensur1, Me.TextBox18, Me.Label19, Me.TextBox14, Me.Label15, Me.TextBox13, Me.Label14, Me.TextBox12, Me.Label12, Me.TextBox11, Me.Label11, Me.TextBox10, Me.Label10, Me.TextBox9, Me.Label9, Me.TextBox8, Me.Label8, Me.TextBox7, Me.Label7, Me.TextBox6, Me.Label6, Me.TextBox5, Me.Label5, Me.TextBox4, Me.Label4, Me.TextBox3, Me.Label3, Me.TextBox2, Me.Label2, Me.TextBox1, Me.Label1})
|
|
Me.TabPageAllgemein.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPageAllgemein.Name = "TabPageAllgemein"
|
|
Me.TabPageAllgemein.Size = New System.Drawing.Size(778, 222)
|
|
Me.TabPageAllgemein.TabIndex = 0
|
|
Me.TabPageAllgemein.Text = "Allgemein"
|
|
'
|
|
'pnlzensur1
|
|
'
|
|
Me.pnlzensur1.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblzensur1})
|
|
Me.pnlzensur1.Location = New System.Drawing.Point(96, 184)
|
|
Me.pnlzensur1.Name = "pnlzensur1"
|
|
Me.pnlzensur1.Size = New System.Drawing.Size(512, 32)
|
|
Me.pnlzensur1.TabIndex = 30
|
|
'
|
|
'lblzensur1
|
|
'
|
|
Me.lblzensur1.Location = New System.Drawing.Point(0, 8)
|
|
Me.lblzensur1.Name = "lblzensur1"
|
|
Me.lblzensur1.Size = New System.Drawing.Size(650, 23)
|
|
Me.lblzensur1.TabIndex = 0
|
|
Me.lblzensur1.Text = "Label21"
|
|
'
|
|
'TextBox18
|
|
'
|
|
Me.TextBox18.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox18.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox18.Location = New System.Drawing.Point(96, 64)
|
|
Me.TextBox18.Name = "TextBox18"
|
|
Me.TextBox18.ReadOnly = True
|
|
Me.TextBox18.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox18.TabIndex = 29
|
|
Me.TextBox18.Text = ""
|
|
'
|
|
'Label19
|
|
'
|
|
Me.Label19.Location = New System.Drawing.Point(8, 64)
|
|
Me.Label19.Name = "Label19"
|
|
Me.Label19.Size = New System.Drawing.Size(88, 16)
|
|
Me.Label19.TabIndex = 28
|
|
Me.Label19.Text = "Barcodekleber"
|
|
'
|
|
'TextBox14
|
|
'
|
|
Me.TextBox14.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox14.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox14.Location = New System.Drawing.Point(392, 160)
|
|
Me.TextBox14.Name = "TextBox14"
|
|
Me.TextBox14.ReadOnly = True
|
|
Me.TextBox14.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox14.TabIndex = 27
|
|
Me.TextBox14.Text = ""
|
|
'
|
|
'Label15
|
|
'
|
|
Me.Label15.Location = New System.Drawing.Point(312, 160)
|
|
Me.Label15.Name = "Label15"
|
|
Me.Label15.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label15.TabIndex = 26
|
|
Me.Label15.Text = "Termin"
|
|
'
|
|
'TextBox13
|
|
'
|
|
Me.TextBox13.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox13.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox13.Location = New System.Drawing.Point(96, 160)
|
|
Me.TextBox13.Name = "TextBox13"
|
|
Me.TextBox13.ReadOnly = True
|
|
Me.TextBox13.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox13.TabIndex = 25
|
|
Me.TextBox13.Text = ""
|
|
'
|
|
'Label14
|
|
'
|
|
Me.Label14.Location = New System.Drawing.Point(8, 160)
|
|
Me.Label14.Name = "Label14"
|
|
Me.Label14.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label14.TabIndex = 24
|
|
Me.Label14.Text = "Verantwortlich"
|
|
'
|
|
'TextBox12
|
|
'
|
|
Me.TextBox12.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox12.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox12.Location = New System.Drawing.Point(96, 192)
|
|
Me.TextBox12.Multiline = True
|
|
Me.TextBox12.Name = "TextBox12"
|
|
Me.TextBox12.ReadOnly = True
|
|
Me.TextBox12.Size = New System.Drawing.Size(504, 24)
|
|
Me.TextBox12.TabIndex = 23
|
|
Me.TextBox12.Text = ""
|
|
'
|
|
'Label12
|
|
'
|
|
Me.Label12.Location = New System.Drawing.Point(8, 192)
|
|
Me.Label12.Name = "Label12"
|
|
Me.Label12.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label12.TabIndex = 22
|
|
Me.Label12.Text = "Bemerkung"
|
|
'
|
|
'TextBox11
|
|
'
|
|
Me.TextBox11.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox11.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox11.Location = New System.Drawing.Point(96, 136)
|
|
Me.TextBox11.Name = "TextBox11"
|
|
Me.TextBox11.ReadOnly = True
|
|
Me.TextBox11.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox11.TabIndex = 21
|
|
Me.TextBox11.Text = ""
|
|
'
|
|
'Label11
|
|
'
|
|
Me.Label11.Location = New System.Drawing.Point(8, 136)
|
|
Me.Label11.Name = "Label11"
|
|
Me.Label11.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label11.TabIndex = 20
|
|
Me.Label11.Text = "Dokumentstatus"
|
|
'
|
|
'TextBox10
|
|
'
|
|
Me.TextBox10.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox10.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox10.Location = New System.Drawing.Point(392, 88)
|
|
Me.TextBox10.Name = "TextBox10"
|
|
Me.TextBox10.ReadOnly = True
|
|
Me.TextBox10.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox10.TabIndex = 19
|
|
Me.TextBox10.Text = ""
|
|
'
|
|
'Label10
|
|
'
|
|
Me.Label10.Location = New System.Drawing.Point(312, 88)
|
|
Me.Label10.Name = "Label10"
|
|
Me.Label10.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label10.TabIndex = 18
|
|
Me.Label10.Text = "Mutiert durch"
|
|
'
|
|
'TextBox9
|
|
'
|
|
Me.TextBox9.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox9.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox9.Location = New System.Drawing.Point(392, 64)
|
|
Me.TextBox9.Name = "TextBox9"
|
|
Me.TextBox9.ReadOnly = True
|
|
Me.TextBox9.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox9.TabIndex = 17
|
|
Me.TextBox9.Text = ""
|
|
'
|
|
'Label9
|
|
'
|
|
Me.Label9.Location = New System.Drawing.Point(312, 64)
|
|
Me.Label9.Name = "Label9"
|
|
Me.Label9.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label9.TabIndex = 16
|
|
Me.Label9.Text = "Mutiert am"
|
|
'
|
|
'TextBox8
|
|
'
|
|
Me.TextBox8.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox8.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox8.Location = New System.Drawing.Point(392, 136)
|
|
Me.TextBox8.Name = "TextBox8"
|
|
Me.TextBox8.ReadOnly = True
|
|
Me.TextBox8.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox8.TabIndex = 15
|
|
Me.TextBox8.Text = ""
|
|
'
|
|
'Label8
|
|
'
|
|
Me.Label8.Location = New System.Drawing.Point(312, 136)
|
|
Me.Label8.Name = "Label8"
|
|
Me.Label8.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label8.TabIndex = 14
|
|
Me.Label8.Text = "Gesperrt durch"
|
|
'
|
|
'TextBox7
|
|
'
|
|
Me.TextBox7.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox7.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox7.Location = New System.Drawing.Point(392, 112)
|
|
Me.TextBox7.Name = "TextBox7"
|
|
Me.TextBox7.ReadOnly = True
|
|
Me.TextBox7.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox7.TabIndex = 13
|
|
Me.TextBox7.Text = ""
|
|
'
|
|
'Label7
|
|
'
|
|
Me.Label7.Location = New System.Drawing.Point(312, 112)
|
|
Me.Label7.Name = "Label7"
|
|
Me.Label7.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label7.TabIndex = 12
|
|
Me.Label7.Text = "Gesperrt am"
|
|
'
|
|
'TextBox6
|
|
'
|
|
Me.TextBox6.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox6.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox6.Location = New System.Drawing.Point(392, 40)
|
|
Me.TextBox6.Name = "TextBox6"
|
|
Me.TextBox6.ReadOnly = True
|
|
Me.TextBox6.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox6.TabIndex = 11
|
|
Me.TextBox6.Text = ""
|
|
'
|
|
'Label6
|
|
'
|
|
Me.Label6.Location = New System.Drawing.Point(312, 40)
|
|
Me.Label6.Name = "Label6"
|
|
Me.Label6.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label6.TabIndex = 10
|
|
Me.Label6.Text = "Erstellt durch"
|
|
'
|
|
'TextBox5
|
|
'
|
|
Me.TextBox5.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox5.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox5.Location = New System.Drawing.Point(392, 16)
|
|
Me.TextBox5.Name = "TextBox5"
|
|
Me.TextBox5.ReadOnly = True
|
|
Me.TextBox5.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox5.TabIndex = 9
|
|
Me.TextBox5.Text = ""
|
|
'
|
|
'Label5
|
|
'
|
|
Me.Label5.Location = New System.Drawing.Point(312, 16)
|
|
Me.Label5.Name = "Label5"
|
|
Me.Label5.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label5.TabIndex = 8
|
|
Me.Label5.Text = "Erstellt am"
|
|
'
|
|
'TextBox4
|
|
'
|
|
Me.TextBox4.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox4.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox4.Location = New System.Drawing.Point(96, 112)
|
|
Me.TextBox4.Name = "TextBox4"
|
|
Me.TextBox4.ReadOnly = True
|
|
Me.TextBox4.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox4.TabIndex = 7
|
|
Me.TextBox4.Text = ""
|
|
'
|
|
'Label4
|
|
'
|
|
Me.Label4.Location = New System.Drawing.Point(8, 112)
|
|
Me.Label4.Name = "Label4"
|
|
Me.Label4.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label4.TabIndex = 6
|
|
Me.Label4.Text = "Bezeichnung"
|
|
'
|
|
'TextBox3
|
|
'
|
|
Me.TextBox3.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox3.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox3.Location = New System.Drawing.Point(96, 88)
|
|
Me.TextBox3.Name = "TextBox3"
|
|
Me.TextBox3.ReadOnly = True
|
|
Me.TextBox3.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox3.TabIndex = 5
|
|
Me.TextBox3.Text = ""
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.Location = New System.Drawing.Point(8, 88)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label3.TabIndex = 4
|
|
Me.Label3.Text = "Dokumentart"
|
|
'
|
|
'TextBox2
|
|
'
|
|
Me.TextBox2.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox2.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox2.Location = New System.Drawing.Point(96, 16)
|
|
Me.TextBox2.Name = "TextBox2"
|
|
Me.TextBox2.ReadOnly = True
|
|
Me.TextBox2.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox2.TabIndex = 3
|
|
Me.TextBox2.Text = ""
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(8, 16)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label2.TabIndex = 2
|
|
Me.Label2.Text = "Partner"
|
|
'
|
|
'TextBox1
|
|
'
|
|
Me.TextBox1.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.TextBox1.ForeColor = System.Drawing.Color.Black
|
|
Me.TextBox1.Location = New System.Drawing.Point(96, 40)
|
|
Me.TextBox1.Name = "TextBox1"
|
|
Me.TextBox1.ReadOnly = True
|
|
Me.TextBox1.Size = New System.Drawing.Size(208, 20)
|
|
Me.TextBox1.TabIndex = 1
|
|
Me.TextBox1.Text = ""
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 40)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(88, 23)
|
|
Me.Label1.TabIndex = 0
|
|
Me.Label1.Text = "Dokument-ID"
|
|
'
|
|
'TabPageStatus
|
|
'
|
|
Me.TabPageStatus.Controls.AddRange(New System.Windows.Forms.Control() {Me.Statuslist, Me.Panel2})
|
|
Me.TabPageStatus.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPageStatus.Name = "TabPageStatus"
|
|
Me.TabPageStatus.Size = New System.Drawing.Size(896, 222)
|
|
Me.TabPageStatus.TabIndex = 1
|
|
Me.TabPageStatus.Text = "Dokumentstatus"
|
|
Me.TabPageStatus.Visible = False
|
|
'
|
|
'Statuslist
|
|
'
|
|
Me.Statuslist.AllowArrows = False
|
|
Me.Statuslist.AllowFilter = True
|
|
Me.Statuslist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.Statuslist.AllowSort = True
|
|
Me.Statuslist.BackColor = System.Drawing.Color.White
|
|
Me.Statuslist.BorderStyle = System.Windows.Forms.BorderStyle.None
|
|
Me.Statuslist.CaptionHeight = 17
|
|
Me.Statuslist.CollapseColor = System.Drawing.Color.Transparent
|
|
Me.Statuslist.DataChanged = False
|
|
Me.Statuslist.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.Statuslist.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Statuslist.ExpandColor = System.Drawing.Color.Transparent
|
|
Me.Statuslist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.Statuslist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
|
Me.Statuslist.Location = New System.Drawing.Point(0, 32)
|
|
Me.Statuslist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.Statuslist.Name = "Statuslist"
|
|
Me.Statuslist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.Statuslist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.Statuslist.PreviewInfo.ZoomFactor = 75
|
|
Me.Statuslist.PrintInfo.ShowOptionsDialog = False
|
|
Me.Statuslist.RecordSelectorWidth = 16
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.Statuslist.RowDivider = GridLines1
|
|
Me.Statuslist.RowHeight = 15
|
|
Me.Statuslist.RowSubDividerColor = System.Drawing.Color.Transparent
|
|
Me.Statuslist.ScrollTips = False
|
|
Me.Statuslist.Size = New System.Drawing.Size(896, 190)
|
|
Me.Statuslist.TabIndex = 3
|
|
Me.Statuslist.Text = "C1TrueDBGrid1"
|
|
Me.Statuslist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
|
|
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
|
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
|
|
"er;}Normal{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highl" & _
|
|
"ight;}Style9{}OddRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;AlignV" & _
|
|
"ert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}St" & _
|
|
"yle8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data></Styles" & _
|
|
"><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" CaptionHeight=""17"" ColumnCaption" & _
|
|
"Height=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelect" & _
|
|
"orWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""" & _
|
|
"1""><ClientRect>0, 0, 896, 190</ClientRect><BorderSide>0</BorderSide><CaptionStyl" & _
|
|
"e parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><Eve" & _
|
|
"nRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""" & _
|
|
"Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group""" & _
|
|
" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle " & _
|
|
"parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4""" & _
|
|
" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""Recor" & _
|
|
"dSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style " & _
|
|
"parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedSty" & _
|
|
"les><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style " & _
|
|
"parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style par" & _
|
|
"ent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style pare" & _
|
|
"nt=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style pare" & _
|
|
"nt=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""H" & _
|
|
"eading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style par" & _
|
|
"ent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1" & _
|
|
"</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Cl" & _
|
|
"ientArea>0, 0, 896, 190</ClientArea></Blob>"
|
|
'
|
|
'Panel2
|
|
'
|
|
Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.RBStatusHistory, Me.RBStatusAktuell})
|
|
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Panel2.Name = "Panel2"
|
|
Me.Panel2.Size = New System.Drawing.Size(896, 32)
|
|
Me.Panel2.TabIndex = 1
|
|
'
|
|
'RBStatusHistory
|
|
'
|
|
Me.RBStatusHistory.Location = New System.Drawing.Point(88, 6)
|
|
Me.RBStatusHistory.Name = "RBStatusHistory"
|
|
Me.RBStatusHistory.Size = New System.Drawing.Size(64, 24)
|
|
Me.RBStatusHistory.TabIndex = 4
|
|
Me.RBStatusHistory.Text = "History"
|
|
'
|
|
'RBStatusAktuell
|
|
'
|
|
Me.RBStatusAktuell.Checked = True
|
|
Me.RBStatusAktuell.Location = New System.Drawing.Point(16, 6)
|
|
Me.RBStatusAktuell.Name = "RBStatusAktuell"
|
|
Me.RBStatusAktuell.Size = New System.Drawing.Size(56, 24)
|
|
Me.RBStatusAktuell.TabIndex = 3
|
|
Me.RBStatusAktuell.TabStop = True
|
|
Me.RBStatusAktuell.Text = "Aktuell"
|
|
'
|
|
'TabPageDokumentwerte
|
|
'
|
|
Me.TabPageDokumentwerte.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl2})
|
|
Me.TabPageDokumentwerte.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPageDokumentwerte.Name = "TabPageDokumentwerte"
|
|
Me.TabPageDokumentwerte.Size = New System.Drawing.Size(896, 222)
|
|
Me.TabPageDokumentwerte.TabIndex = 2
|
|
Me.TabPageDokumentwerte.Text = "Dokumentwerte"
|
|
Me.TabPageDokumentwerte.Visible = False
|
|
'
|
|
'TabControl2
|
|
'
|
|
Me.TabControl2.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage3})
|
|
Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TabControl2.Name = "TabControl2"
|
|
Me.TabControl2.SelectedIndex = 0
|
|
Me.TabControl2.Size = New System.Drawing.Size(896, 222)
|
|
Me.TabControl2.TabIndex = 0
|
|
'
|
|
'TabPage1
|
|
'
|
|
Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlzensur2, Me.ColdList, Me.Splitter2, Me.lblzensur2, Me.ColdListDokumente})
|
|
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage1.Name = "TabPage1"
|
|
Me.TabPage1.Size = New System.Drawing.Size(677, 196)
|
|
Me.TabPage1.TabIndex = 0
|
|
Me.TabPage1.Text = "Dokumentarchivierung"
|
|
'
|
|
'pnlzensur2
|
|
'
|
|
Me.pnlzensur2.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.pnlzensur2.Location = New System.Drawing.Point(339, 0)
|
|
Me.pnlzensur2.Name = "pnlzensur2"
|
|
Me.pnlzensur2.Size = New System.Drawing.Size(338, 196)
|
|
Me.pnlzensur2.TabIndex = 19
|
|
'
|
|
'ColdList
|
|
'
|
|
Me.ColdList.AllowFilter = True
|
|
Me.ColdList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.ColdList.AllowSort = True
|
|
Me.ColdList.AllowUpdate = False
|
|
Me.ColdList.AllowUpdateOnBlur = False
|
|
Me.ColdList.AlternatingRows = True
|
|
Me.ColdList.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.ColdList.CaptionHeight = 17
|
|
Me.ColdList.CollapseColor = System.Drawing.Color.Black
|
|
Me.ColdList.DataChanged = False
|
|
Me.ColdList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.ColdList.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.ColdList.ExpandColor = System.Drawing.Color.Black
|
|
Me.ColdList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.ColdList.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
|
Me.ColdList.Location = New System.Drawing.Point(339, 0)
|
|
Me.ColdList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.ColdList.Name = "ColdList"
|
|
Me.ColdList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.ColdList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.ColdList.PreviewInfo.ZoomFactor = 75
|
|
Me.ColdList.PrintInfo.ShowOptionsDialog = False
|
|
Me.ColdList.RecordSelectorWidth = 16
|
|
GridLines2.Color = System.Drawing.Color.DarkGray
|
|
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.ColdList.RowDivider = GridLines2
|
|
Me.ColdList.RowHeight = 15
|
|
Me.ColdList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.ColdList.ScrollTips = False
|
|
Me.ColdList.Size = New System.Drawing.Size(338, 196)
|
|
Me.ColdList.TabIndex = 18
|
|
Me.ColdList.Text = "C1TrueDBGrid1"
|
|
Me.ColdList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{BackColor:224, 224, 224;}HighlightRow{ForeCo" & _
|
|
"lor:HighlightText;BackColor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}R" & _
|
|
"ecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Border:Rais" & _
|
|
"ed,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz" & _
|
|
":Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1True" & _
|
|
"DBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCap" & _
|
|
"tionHeight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSe" & _
|
|
"lectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGro" & _
|
|
"up=""1""><ClientRect>0, 0, 334, 192</ClientRect><BorderSide>0</BorderSide><Caption" & _
|
|
"Style parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" />" & _
|
|
"<EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" " & _
|
|
"me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Gr" & _
|
|
"oup"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowSt" & _
|
|
"yle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Sty" & _
|
|
"le4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""R" & _
|
|
"ecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><St" & _
|
|
"yle parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><Name" & _
|
|
"dStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><St" & _
|
|
"yle parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style" & _
|
|
" parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style " & _
|
|
"parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style " & _
|
|
"parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style paren" & _
|
|
"t=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style" & _
|
|
" parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSpli" & _
|
|
"ts>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth" & _
|
|
"><ClientArea>0, 0, 334, 192</ClientArea></Blob>"
|
|
'
|
|
'Splitter2
|
|
'
|
|
Me.Splitter2.Location = New System.Drawing.Point(336, 0)
|
|
Me.Splitter2.Name = "Splitter2"
|
|
Me.Splitter2.Size = New System.Drawing.Size(3, 196)
|
|
Me.Splitter2.TabIndex = 17
|
|
Me.Splitter2.TabStop = False
|
|
'
|
|
'lblzensur2
|
|
'
|
|
Me.lblzensur2.Location = New System.Drawing.Point(8, 8)
|
|
Me.lblzensur2.Name = "lblzensur2"
|
|
Me.lblzensur2.Size = New System.Drawing.Size(624, 23)
|
|
Me.lblzensur2.TabIndex = 16
|
|
Me.lblzensur2.Text = "Label21"
|
|
'
|
|
'ColdListDokumente
|
|
'
|
|
Me.ColdListDokumente.AllowFilter = True
|
|
Me.ColdListDokumente.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.ColdListDokumente.AllowSort = True
|
|
Me.ColdListDokumente.AllowUpdate = False
|
|
Me.ColdListDokumente.AllowUpdateOnBlur = False
|
|
Me.ColdListDokumente.BackColor = System.Drawing.Color.White
|
|
Me.ColdListDokumente.CaptionHeight = 17
|
|
Me.ColdListDokumente.CollapseColor = System.Drawing.Color.Black
|
|
Me.ColdListDokumente.Cursor = System.Windows.Forms.Cursors.Default
|
|
Me.ColdListDokumente.DataChanged = False
|
|
Me.ColdListDokumente.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.Hierarchical
|
|
Me.ColdListDokumente.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.ColdListDokumente.Dock = System.Windows.Forms.DockStyle.Left
|
|
Me.ColdListDokumente.ExpandColor = System.Drawing.Color.Black
|
|
Me.ColdListDokumente.FlatStyle = C1.Win.C1TrueDBGrid.FlatModeEnum.Popup
|
|
Me.ColdListDokumente.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.ColdListDokumente.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
|
|
Me.ColdListDokumente.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.ColdListDokumente.Name = "ColdListDokumente"
|
|
Me.ColdListDokumente.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.ColdListDokumente.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.ColdListDokumente.PreviewInfo.ZoomFactor = 75
|
|
Me.ColdListDokumente.PrintInfo.ShowOptionsDialog = False
|
|
Me.ColdListDokumente.RecordSelectorWidth = 16
|
|
GridLines3.Color = System.Drawing.Color.Transparent
|
|
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.None
|
|
Me.ColdListDokumente.RowDivider = GridLines3
|
|
Me.ColdListDokumente.RowHeight = 15
|
|
Me.ColdListDokumente.RowSubDividerColor = System.Drawing.Color.Transparent
|
|
Me.ColdListDokumente.ScrollTips = False
|
|
Me.ColdListDokumente.Size = New System.Drawing.Size(336, 196)
|
|
Me.ColdListDokumente.TabIndex = 13
|
|
Me.ColdListDokumente.Text = "C1TrueDBGrid1"
|
|
Me.ColdListDokumente.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style13{}EvenRow{BackColor:White;}Selected{ForeColor:HighlightText;BackCo" & _
|
|
"lor:Highlight;}Heading{Wrap:True;BackColor:Control;Border:Flat,ControlDark,0, 1," & _
|
|
" 0, 1;ForeColor:ControlText;AlignVert:Center;}Inactive{ForeColor:InactiveCaption" & _
|
|
"Text;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}OddRow{BackCo" & _
|
|
"lor:224, 224, 224;}Footer{}Caption{AlignHorz:Center;}Style25{}Normal{BackColor:W" & _
|
|
"hite;}Style26{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style24" & _
|
|
"{}Style23{AlignHorz:Near;}Style22{}Style21{}Style20{}RecordSelector{AlignImage:C" & _
|
|
"enter;}Style18{}Style19{}Style14{}Style15{}Style16{}Style17{}</Data></Styles><Sp" & _
|
|
"lits><C1.Win.C1TrueDBGrid.HierarchicalView DefRecSelWidth=""16"" Name="""" CaptionHe" & _
|
|
"ight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedC" & _
|
|
"ellBorder"" RecordSelectorWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGrou" & _
|
|
"p=""1""><ClientRect>0, 0, 332, 192</ClientRect><CaptionStyle parent=""Heading"" me=""" & _
|
|
"Style23"" /><EditorStyle parent=""Editor"" me=""Style15"" /><EvenRowStyle parent=""Eve" & _
|
|
"nRow"" me=""Style21"" /><FilterBarStyle parent=""FilterBar"" me=""Style26"" /><FooterSt" & _
|
|
"yle parent=""Footer"" me=""Style17"" /><GroupStyle parent=""Group"" me=""Style25"" /><He" & _
|
|
"adingStyle parent=""Heading"" me=""Style16"" /><HighLightRowStyle parent=""HighlightR" & _
|
|
"ow"" me=""Style20"" /><InactiveStyle parent=""Inactive"" me=""Style19"" /><OddRowStyle " & _
|
|
"parent=""OddRow"" me=""Style22"" /><RecordSelectorStyle parent=""RecordSelector"" me=""" & _
|
|
"Style24"" /><SelectedStyle parent=""Selected"" me=""Style18"" /><Style parent=""Normal" & _
|
|
""" me=""Style14"" /></C1.Win.C1TrueDBGrid.HierarchicalView></Splits><NamedStyles><S" & _
|
|
"tyle parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent" & _
|
|
"=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""H" & _
|
|
"eading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""No" & _
|
|
"rmal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""No" & _
|
|
"rmal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading" & _
|
|
""" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""C" & _
|
|
"aption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horz" & _
|
|
"Splits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientAr" & _
|
|
"ea>0, 0, 332, 192</ClientArea></Blob>"
|
|
'
|
|
'TabPage3
|
|
'
|
|
Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox17, Me.Label18, Me.TextBox16, Me.TextBox15, Me.Label17, Me.Label16})
|
|
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage3.Name = "TabPage3"
|
|
Me.TabPage3.Size = New System.Drawing.Size(677, 196)
|
|
Me.TabPage3.TabIndex = 2
|
|
Me.TabPage3.Text = "Diverse"
|
|
Me.TabPage3.Visible = False
|
|
'
|
|
'TextBox17
|
|
'
|
|
Me.TextBox17.BackColor = System.Drawing.SystemColors.HighlightText
|
|
Me.TextBox17.Location = New System.Drawing.Point(104, 72)
|
|
Me.TextBox17.Name = "TextBox17"
|
|
Me.TextBox17.ReadOnly = True
|
|
Me.TextBox17.Size = New System.Drawing.Size(296, 20)
|
|
Me.TextBox17.TabIndex = 5
|
|
Me.TextBox17.Text = ""
|
|
'
|
|
'Label18
|
|
'
|
|
Me.Label18.Location = New System.Drawing.Point(8, 72)
|
|
Me.Label18.Name = "Label18"
|
|
Me.Label18.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label18.TabIndex = 4
|
|
Me.Label18.Text = "Zuständig"
|
|
'
|
|
'TextBox16
|
|
'
|
|
Me.TextBox16.BackColor = System.Drawing.SystemColors.HighlightText
|
|
Me.TextBox16.Location = New System.Drawing.Point(104, 32)
|
|
Me.TextBox16.Name = "TextBox16"
|
|
Me.TextBox16.ReadOnly = True
|
|
Me.TextBox16.Size = New System.Drawing.Size(296, 20)
|
|
Me.TextBox16.TabIndex = 3
|
|
Me.TextBox16.Text = ""
|
|
'
|
|
'TextBox15
|
|
'
|
|
Me.TextBox15.BackColor = System.Drawing.SystemColors.HighlightText
|
|
Me.TextBox15.Location = New System.Drawing.Point(104, 8)
|
|
Me.TextBox15.Name = "TextBox15"
|
|
Me.TextBox15.ReadOnly = True
|
|
Me.TextBox15.Size = New System.Drawing.Size(296, 20)
|
|
Me.TextBox15.TabIndex = 2
|
|
Me.TextBox15.Text = ""
|
|
'
|
|
'Label17
|
|
'
|
|
Me.Label17.Location = New System.Drawing.Point(8, 32)
|
|
Me.Label17.Name = "Label17"
|
|
Me.Label17.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label17.TabIndex = 1
|
|
Me.Label17.Text = "Unterschrift rechts"
|
|
'
|
|
'Label16
|
|
'
|
|
Me.Label16.Location = New System.Drawing.Point(8, 8)
|
|
Me.Label16.Name = "Label16"
|
|
Me.Label16.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label16.TabIndex = 0
|
|
Me.Label16.Text = "Unterschrift links"
|
|
'
|
|
'TabPageZuordnung
|
|
'
|
|
Me.TabPageZuordnung.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlzensur4, Me.Zuordnungslist})
|
|
Me.TabPageZuordnung.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPageZuordnung.Name = "TabPageZuordnung"
|
|
Me.TabPageZuordnung.Size = New System.Drawing.Size(896, 222)
|
|
Me.TabPageZuordnung.TabIndex = 6
|
|
Me.TabPageZuordnung.Text = "Dokumentzuordnungen"
|
|
Me.TabPageZuordnung.Visible = False
|
|
'
|
|
'pnlzensur4
|
|
'
|
|
Me.pnlzensur4.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblzensur4})
|
|
Me.pnlzensur4.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.pnlzensur4.Name = "pnlzensur4"
|
|
Me.pnlzensur4.Size = New System.Drawing.Size(896, 222)
|
|
Me.pnlzensur4.TabIndex = 15
|
|
'
|
|
'lblzensur4
|
|
'
|
|
Me.lblzensur4.Location = New System.Drawing.Point(8, 8)
|
|
Me.lblzensur4.Name = "lblzensur4"
|
|
Me.lblzensur4.Size = New System.Drawing.Size(640, 23)
|
|
Me.lblzensur4.TabIndex = 0
|
|
Me.lblzensur4.Text = "Label21"
|
|
'
|
|
'Zuordnungslist
|
|
'
|
|
Me.Zuordnungslist.AllowFilter = True
|
|
Me.Zuordnungslist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.Zuordnungslist.AllowSort = True
|
|
Me.Zuordnungslist.AllowUpdate = False
|
|
Me.Zuordnungslist.AllowUpdateOnBlur = False
|
|
Me.Zuordnungslist.AlternatingRows = True
|
|
Me.Zuordnungslist.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.Zuordnungslist.CaptionHeight = 17
|
|
Me.Zuordnungslist.CollapseColor = System.Drawing.Color.Black
|
|
Me.Zuordnungslist.DataChanged = False
|
|
Me.Zuordnungslist.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.Zuordnungslist.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Zuordnungslist.ExpandColor = System.Drawing.Color.Black
|
|
Me.Zuordnungslist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.Zuordnungslist.Images.Add(CType(resources.GetObject("resource.Images3"), System.Drawing.Bitmap))
|
|
Me.Zuordnungslist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.Zuordnungslist.Name = "Zuordnungslist"
|
|
Me.Zuordnungslist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.Zuordnungslist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.Zuordnungslist.PreviewInfo.ZoomFactor = 75
|
|
Me.Zuordnungslist.PrintInfo.ShowOptionsDialog = False
|
|
Me.Zuordnungslist.RecordSelectorWidth = 16
|
|
GridLines4.Color = System.Drawing.Color.DarkGray
|
|
GridLines4.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.Zuordnungslist.RowDivider = GridLines4
|
|
Me.Zuordnungslist.RowHeight = 15
|
|
Me.Zuordnungslist.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.Zuordnungslist.ScrollTips = False
|
|
Me.Zuordnungslist.Size = New System.Drawing.Size(896, 222)
|
|
Me.Zuordnungslist.TabIndex = 14
|
|
Me.Zuordnungslist.Text = "C1TrueDBGrid1"
|
|
Me.Zuordnungslist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{BackColor:224, 224, 224;}HighlightRow{ForeCo" & _
|
|
"lor:HighlightText;BackColor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}R" & _
|
|
"ecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Border:Rais" & _
|
|
"ed,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz" & _
|
|
":Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1True" & _
|
|
"DBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCap" & _
|
|
"tionHeight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSe" & _
|
|
"lectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGro" & _
|
|
"up=""1""><ClientRect>0, 0, 892, 218</ClientRect><BorderSide>0</BorderSide><Caption" & _
|
|
"Style parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" />" & _
|
|
"<EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" " & _
|
|
"me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Gr" & _
|
|
"oup"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowSt" & _
|
|
"yle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Sty" & _
|
|
"le4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""R" & _
|
|
"ecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><St" & _
|
|
"yle parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><Name" & _
|
|
"dStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><St" & _
|
|
"yle parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style" & _
|
|
" parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style " & _
|
|
"parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style " & _
|
|
"parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style paren" & _
|
|
"t=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style" & _
|
|
" parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSpli" & _
|
|
"ts>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth" & _
|
|
"><ClientArea>0, 0, 892, 218</ClientArea></Blob>"
|
|
'
|
|
'TabPageNotizen
|
|
'
|
|
Me.TabPageNotizen.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlzensur5, Me.Notizlist})
|
|
Me.TabPageNotizen.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPageNotizen.Name = "TabPageNotizen"
|
|
Me.TabPageNotizen.Size = New System.Drawing.Size(896, 222)
|
|
Me.TabPageNotizen.TabIndex = 5
|
|
Me.TabPageNotizen.Text = "Notizen"
|
|
Me.TabPageNotizen.Visible = False
|
|
'
|
|
'pnlzensur5
|
|
'
|
|
Me.pnlzensur5.Controls.AddRange(New System.Windows.Forms.Control() {Me.drpMiatarbeiter, Me.lblzensur5})
|
|
Me.pnlzensur5.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.pnlzensur5.Name = "pnlzensur5"
|
|
Me.pnlzensur5.Size = New System.Drawing.Size(896, 222)
|
|
Me.pnlzensur5.TabIndex = 14
|
|
'
|
|
'drpMiatarbeiter
|
|
'
|
|
Me.drpMiatarbeiter.AllowColMove = True
|
|
Me.drpMiatarbeiter.AllowColSelect = True
|
|
Me.drpMiatarbeiter.AllowFilter = True
|
|
Me.drpMiatarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.drpMiatarbeiter.AllowSort = True
|
|
Me.drpMiatarbeiter.AlternatingRows = True
|
|
Me.drpMiatarbeiter.CaptionHeight = 17
|
|
Me.drpMiatarbeiter.ColumnCaptionHeight = 17
|
|
Me.drpMiatarbeiter.ColumnFooterHeight = 17
|
|
Me.drpMiatarbeiter.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.drpMiatarbeiter.FetchRowStyles = False
|
|
Me.drpMiatarbeiter.Images.Add(CType(resources.GetObject("resource.Images4"), System.Drawing.Bitmap))
|
|
Me.drpMiatarbeiter.LayoutFileName = ""
|
|
Me.drpMiatarbeiter.LayoutName = ""
|
|
Me.drpMiatarbeiter.LayoutURL = ""
|
|
Me.drpMiatarbeiter.Location = New System.Drawing.Point(322, 71)
|
|
Me.drpMiatarbeiter.Name = "drpMiatarbeiter"
|
|
GridLines5.Color = System.Drawing.Color.DarkGray
|
|
GridLines5.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.drpMiatarbeiter.RowDivider = GridLines5
|
|
Me.drpMiatarbeiter.RowHeight = 15
|
|
Me.drpMiatarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.drpMiatarbeiter.ScrollTips = False
|
|
Me.drpMiatarbeiter.Size = New System.Drawing.Size(40, 80)
|
|
Me.drpMiatarbeiter.TabIndex = 3
|
|
Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1"
|
|
Me.drpMiatarbeiter.Visible = False
|
|
Me.drpMiatarbeiter.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cen" & _
|
|
"ter;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style9{}O" & _
|
|
"ddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
|
|
"ue;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Co" & _
|
|
"ntrol;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data" & _
|
|
"></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="""" AlternatingRowStyle=" & _
|
|
"""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" Marqu" & _
|
|
"eeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" RecordSelectors=""False"" Vert" & _
|
|
"icalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 36, 76</ClientRe" & _
|
|
"ct><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=" & _
|
|
"""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""" & _
|
|
"FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle" & _
|
|
" parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><Hig" & _
|
|
"hLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inacti" & _
|
|
"ve"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyl" & _
|
|
"e parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""St" & _
|
|
"yle6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.DropdownView>" & _
|
|
"</Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""" & _
|
|
"Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Cap" & _
|
|
"tion"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selec" & _
|
|
"ted"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""Highlight" & _
|
|
"Row"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" " & _
|
|
"/><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""Filte" & _
|
|
"rBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSp" & _
|
|
"lits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</Defa" & _
|
|
"ultRecSelWidth><ClientArea>0, 0, 36, 76</ClientArea></Blob>"
|
|
'
|
|
'lblzensur5
|
|
'
|
|
Me.lblzensur5.Location = New System.Drawing.Point(8, 8)
|
|
Me.lblzensur5.Name = "lblzensur5"
|
|
Me.lblzensur5.Size = New System.Drawing.Size(648, 23)
|
|
Me.lblzensur5.TabIndex = 0
|
|
Me.lblzensur5.Text = "Label21"
|
|
'
|
|
'Notizlist
|
|
'
|
|
Me.Notizlist.AllowFilter = True
|
|
Me.Notizlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.Notizlist.AllowSort = True
|
|
Me.Notizlist.AllowUpdate = False
|
|
Me.Notizlist.AllowUpdateOnBlur = False
|
|
Me.Notizlist.AlternatingRows = True
|
|
Me.Notizlist.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.Notizlist.CaptionHeight = 17
|
|
Me.Notizlist.CollapseColor = System.Drawing.Color.Black
|
|
Me.Notizlist.DataChanged = False
|
|
Me.Notizlist.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.Notizlist.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Notizlist.ExpandColor = System.Drawing.Color.Black
|
|
Me.Notizlist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.Notizlist.Images.Add(CType(resources.GetObject("resource.Images5"), System.Drawing.Bitmap))
|
|
Me.Notizlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.Notizlist.Name = "Notizlist"
|
|
Me.Notizlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.Notizlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.Notizlist.PreviewInfo.ZoomFactor = 75
|
|
Me.Notizlist.PrintInfo.ShowOptionsDialog = False
|
|
Me.Notizlist.RecordSelectorWidth = 16
|
|
GridLines6.Color = System.Drawing.Color.DarkGray
|
|
GridLines6.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.Notizlist.RowDivider = GridLines6
|
|
Me.Notizlist.RowHeight = 15
|
|
Me.Notizlist.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.Notizlist.ScrollTips = False
|
|
Me.Notizlist.Size = New System.Drawing.Size(896, 222)
|
|
Me.Notizlist.TabIndex = 13
|
|
Me.Notizlist.Text = "C1TrueDBGrid1"
|
|
Me.Notizlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{BackColor:224, 224, 224;}HighlightRow{ForeCo" & _
|
|
"lor:HighlightText;BackColor:Highlight;}Style9{}OddRow{BackColor:224, 224, 224;}R" & _
|
|
"ecordSelector{AlignImage:Center;}Heading{Wrap:True;AlignVert:Center;Border:Raise" & _
|
|
"d,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}Style10{AlignHorz" & _
|
|
":Near;}Style11{}Style12{}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1True" & _
|
|
"DBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCap" & _
|
|
"tionHeight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSe" & _
|
|
"lectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGro" & _
|
|
"up=""1""><ClientRect>0, 0, 892, 218</ClientRect><BorderSide>0</BorderSide><Caption" & _
|
|
"Style parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" />" & _
|
|
"<EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" " & _
|
|
"me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Gr" & _
|
|
"oup"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowSt" & _
|
|
"yle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Sty" & _
|
|
"le4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""R" & _
|
|
"ecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><St" & _
|
|
"yle parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><Name" & _
|
|
"dStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><St" & _
|
|
"yle parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style" & _
|
|
" parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style " & _
|
|
"parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style " & _
|
|
"parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style paren" & _
|
|
"t=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style" & _
|
|
" parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSpli" & _
|
|
"ts>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth" & _
|
|
"><ClientArea>0, 0, 892, 218</ClientArea></Blob>"
|
|
'
|
|
'TabPageInfomeldung
|
|
'
|
|
Me.TabPageInfomeldung.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlzensur3, Me.InfoMeldungList})
|
|
Me.TabPageInfomeldung.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPageInfomeldung.Name = "TabPageInfomeldung"
|
|
Me.TabPageInfomeldung.Size = New System.Drawing.Size(896, 222)
|
|
Me.TabPageInfomeldung.TabIndex = 4
|
|
Me.TabPageInfomeldung.Text = "Informationsmeldungen"
|
|
Me.TabPageInfomeldung.Visible = False
|
|
'
|
|
'pnlzensur3
|
|
'
|
|
Me.pnlzensur3.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblzensur3})
|
|
Me.pnlzensur3.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.pnlzensur3.Name = "pnlzensur3"
|
|
Me.pnlzensur3.Size = New System.Drawing.Size(896, 222)
|
|
Me.pnlzensur3.TabIndex = 13
|
|
'
|
|
'lblzensur3
|
|
'
|
|
Me.lblzensur3.Location = New System.Drawing.Point(8, 8)
|
|
Me.lblzensur3.Name = "lblzensur3"
|
|
Me.lblzensur3.Size = New System.Drawing.Size(624, 23)
|
|
Me.lblzensur3.TabIndex = 0
|
|
Me.lblzensur3.Text = "Label21"
|
|
'
|
|
'InfoMeldungList
|
|
'
|
|
Me.InfoMeldungList.AllowFilter = True
|
|
Me.InfoMeldungList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.InfoMeldungList.AllowSort = True
|
|
Me.InfoMeldungList.AllowUpdate = False
|
|
Me.InfoMeldungList.AllowUpdateOnBlur = False
|
|
Me.InfoMeldungList.AlternatingRows = True
|
|
Me.InfoMeldungList.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.InfoMeldungList.CaptionHeight = 17
|
|
Me.InfoMeldungList.CollapseColor = System.Drawing.Color.Black
|
|
Me.InfoMeldungList.DataChanged = False
|
|
Me.InfoMeldungList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.InfoMeldungList.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.InfoMeldungList.ExpandColor = System.Drawing.Color.Black
|
|
Me.InfoMeldungList.FetchRowStyles = True
|
|
Me.InfoMeldungList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.InfoMeldungList.Images.Add(CType(resources.GetObject("resource.Images6"), System.Drawing.Bitmap))
|
|
Me.InfoMeldungList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.InfoMeldungList.Name = "InfoMeldungList"
|
|
Me.InfoMeldungList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.InfoMeldungList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.InfoMeldungList.PreviewInfo.ZoomFactor = 75
|
|
Me.InfoMeldungList.PrintInfo.ShowOptionsDialog = False
|
|
Me.InfoMeldungList.RecordSelectorWidth = 16
|
|
GridLines7.Color = System.Drawing.Color.DarkGray
|
|
GridLines7.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.InfoMeldungList.RowDivider = GridLines7
|
|
Me.InfoMeldungList.RowHeight = 15
|
|
Me.InfoMeldungList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.InfoMeldungList.ScrollTips = False
|
|
Me.InfoMeldungList.Size = New System.Drawing.Size(896, 222)
|
|
Me.InfoMeldungList.TabIndex = 12
|
|
Me.InfoMeldungList.Text = "C1TrueDBGrid1"
|
|
Me.InfoMeldungList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{BackColor:224, 224, 224;}HighlightRow{ForeCo" & _
|
|
"lor:HighlightText;BackColor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}R" & _
|
|
"ecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Border:Rais" & _
|
|
"ed,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz" & _
|
|
":Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1True" & _
|
|
"DBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCap" & _
|
|
"tionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" MarqueeStyle=""Dott" & _
|
|
"edCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""" & _
|
|
"1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 892, 218</ClientRect><BorderSide>" & _
|
|
"0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""" & _
|
|
"Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarSty" & _
|
|
"le parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" />" & _
|
|
"<GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Sty" & _
|
|
"le2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle par" & _
|
|
"ent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordS" & _
|
|
"electorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selec" & _
|
|
"ted"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.Me" & _
|
|
"rgeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Norm" & _
|
|
"al"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading""" & _
|
|
" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" m" & _
|
|
"e=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""H" & _
|
|
"ighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""" & _
|
|
"OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" m" & _
|
|
"e=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1" & _
|
|
"</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>" & _
|
|
"16</DefaultRecSelWidth><ClientArea>0, 0, 892, 218</ClientArea></Blob>"
|
|
'
|
|
'TabPageBerechtigung
|
|
'
|
|
Me.TabPageBerechtigung.Controls.AddRange(New System.Windows.Forms.Control() {Me.DokumentFunktionenList})
|
|
Me.TabPageBerechtigung.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPageBerechtigung.Name = "TabPageBerechtigung"
|
|
Me.TabPageBerechtigung.Size = New System.Drawing.Size(896, 222)
|
|
Me.TabPageBerechtigung.TabIndex = 7
|
|
Me.TabPageBerechtigung.Text = "Berechtigungseinschränkung"
|
|
Me.TabPageBerechtigung.Visible = False
|
|
'
|
|
'DokumentFunktionenList
|
|
'
|
|
Me.DokumentFunktionenList.AllowFilter = True
|
|
Me.DokumentFunktionenList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.DokumentFunktionenList.AllowSort = True
|
|
Me.DokumentFunktionenList.AllowUpdate = False
|
|
Me.DokumentFunktionenList.AllowUpdateOnBlur = False
|
|
Me.DokumentFunktionenList.AlternatingRows = True
|
|
Me.DokumentFunktionenList.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.DokumentFunktionenList.CaptionHeight = 17
|
|
Me.DokumentFunktionenList.CollapseColor = System.Drawing.Color.Black
|
|
Me.DokumentFunktionenList.DataChanged = False
|
|
Me.DokumentFunktionenList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.DokumentFunktionenList.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.DokumentFunktionenList.ExpandColor = System.Drawing.Color.Black
|
|
Me.DokumentFunktionenList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.DokumentFunktionenList.Images.Add(CType(resources.GetObject("resource.Images7"), System.Drawing.Bitmap))
|
|
Me.DokumentFunktionenList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.DokumentFunktionenList.Name = "DokumentFunktionenList"
|
|
Me.DokumentFunktionenList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.DokumentFunktionenList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.DokumentFunktionenList.PreviewInfo.ZoomFactor = 75
|
|
Me.DokumentFunktionenList.PrintInfo.ShowOptionsDialog = False
|
|
Me.DokumentFunktionenList.RecordSelectorWidth = 16
|
|
GridLines8.Color = System.Drawing.Color.DarkGray
|
|
GridLines8.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.DokumentFunktionenList.RowDivider = GridLines8
|
|
Me.DokumentFunktionenList.RowHeight = 15
|
|
Me.DokumentFunktionenList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.DokumentFunktionenList.ScrollTips = False
|
|
Me.DokumentFunktionenList.Size = New System.Drawing.Size(896, 222)
|
|
Me.DokumentFunktionenList.TabIndex = 14
|
|
Me.DokumentFunktionenList.Text = "C1TrueDBGrid1"
|
|
Me.DokumentFunktionenList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{BackColor:224, 224, 224;}HighlightRow{ForeCo" & _
|
|
"lor:HighlightText;BackColor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}R" & _
|
|
"ecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Border:Rais" & _
|
|
"ed,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz" & _
|
|
":Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1True" & _
|
|
"DBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCap" & _
|
|
"tionHeight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSe" & _
|
|
"lectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGro" & _
|
|
"up=""1""><ClientRect>0, 0, 892, 218</ClientRect><BorderSide>0</BorderSide><Caption" & _
|
|
"Style parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" />" & _
|
|
"<EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" " & _
|
|
"me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Gr" & _
|
|
"oup"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowSt" & _
|
|
"yle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Sty" & _
|
|
"le4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""R" & _
|
|
"ecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><St" & _
|
|
"yle parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><Name" & _
|
|
"dStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><St" & _
|
|
"yle parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style" & _
|
|
" parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style " & _
|
|
"parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style " & _
|
|
"parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style paren" & _
|
|
"t=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style" & _
|
|
" parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSpli" & _
|
|
"ts>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth" & _
|
|
"><ClientArea>0, 0, 892, 218</ClientArea></Blob>"
|
|
'
|
|
'TabPage2
|
|
'
|
|
Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlzensur6, Me.ErsetzteDokumenteList})
|
|
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage2.Name = "TabPage2"
|
|
Me.TabPage2.Size = New System.Drawing.Size(896, 222)
|
|
Me.TabPage2.TabIndex = 8
|
|
Me.TabPage2.Text = "Ersetzte Dokumente"
|
|
Me.TabPage2.Visible = False
|
|
'
|
|
'pnlzensur6
|
|
'
|
|
Me.pnlzensur6.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblzensur6})
|
|
Me.pnlzensur6.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.pnlzensur6.Name = "pnlzensur6"
|
|
Me.pnlzensur6.Size = New System.Drawing.Size(896, 222)
|
|
Me.pnlzensur6.TabIndex = 14
|
|
'
|
|
'lblzensur6
|
|
'
|
|
Me.lblzensur6.Location = New System.Drawing.Point(16, 16)
|
|
Me.lblzensur6.Name = "lblzensur6"
|
|
Me.lblzensur6.Size = New System.Drawing.Size(616, 23)
|
|
Me.lblzensur6.TabIndex = 0
|
|
Me.lblzensur6.Text = "Label21"
|
|
'
|
|
'ErsetzteDokumenteList
|
|
'
|
|
Me.ErsetzteDokumenteList.AllowFilter = True
|
|
Me.ErsetzteDokumenteList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.ErsetzteDokumenteList.AllowSort = True
|
|
Me.ErsetzteDokumenteList.AllowUpdate = False
|
|
Me.ErsetzteDokumenteList.AllowUpdateOnBlur = False
|
|
Me.ErsetzteDokumenteList.AlternatingRows = True
|
|
Me.ErsetzteDokumenteList.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.ErsetzteDokumenteList.CaptionHeight = 17
|
|
Me.ErsetzteDokumenteList.CollapseColor = System.Drawing.Color.Black
|
|
Me.ErsetzteDokumenteList.DataChanged = False
|
|
Me.ErsetzteDokumenteList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.ErsetzteDokumenteList.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.ErsetzteDokumenteList.ExpandColor = System.Drawing.Color.Black
|
|
Me.ErsetzteDokumenteList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.ErsetzteDokumenteList.Images.Add(CType(resources.GetObject("resource.Images8"), System.Drawing.Bitmap))
|
|
Me.ErsetzteDokumenteList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.ErsetzteDokumenteList.Name = "ErsetzteDokumenteList"
|
|
Me.ErsetzteDokumenteList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.ErsetzteDokumenteList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.ErsetzteDokumenteList.PreviewInfo.ZoomFactor = 75
|
|
Me.ErsetzteDokumenteList.PrintInfo.ShowOptionsDialog = False
|
|
Me.ErsetzteDokumenteList.RecordSelectorWidth = 16
|
|
GridLines9.Color = System.Drawing.Color.DarkGray
|
|
GridLines9.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.ErsetzteDokumenteList.RowDivider = GridLines9
|
|
Me.ErsetzteDokumenteList.RowHeight = 15
|
|
Me.ErsetzteDokumenteList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.ErsetzteDokumenteList.ScrollTips = False
|
|
Me.ErsetzteDokumenteList.Size = New System.Drawing.Size(896, 222)
|
|
Me.ErsetzteDokumenteList.TabIndex = 13
|
|
Me.ErsetzteDokumenteList.Text = "C1TrueDBGrid1"
|
|
Me.ErsetzteDokumenteList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
|
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
|
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
|
"r{}Caption{AlignHorz:Center;}Normal{BackColor:224, 224, 224;}HighlightRow{ForeCo" & _
|
|
"lor:HighlightText;BackColor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}R" & _
|
|
"ecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Border:Rais" & _
|
|
"ed,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz" & _
|
|
":Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1True" & _
|
|
"DBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCap" & _
|
|
"tionHeight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSe" & _
|
|
"lectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGro" & _
|
|
"up=""1""><ClientRect>0, 0, 892, 218</ClientRect><BorderSide>0</BorderSide><Caption" & _
|
|
"Style parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" />" & _
|
|
"<EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" " & _
|
|
"me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Gr" & _
|
|
"oup"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowSt" & _
|
|
"yle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Sty" & _
|
|
"le4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""R" & _
|
|
"ecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><St" & _
|
|
"yle parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><Name" & _
|
|
"dStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><St" & _
|
|
"yle parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style" & _
|
|
" parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style " & _
|
|
"parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style " & _
|
|
"parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style paren" & _
|
|
"t=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style" & _
|
|
" parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSpli" & _
|
|
"ts>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth" & _
|
|
"><ClientArea>0, 0, 892, 218</ClientArea></Blob>"
|
|
'
|
|
'DokList
|
|
'
|
|
Me.DokList.AllowFilter = True
|
|
Me.DokList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.DokList.AllowSort = True
|
|
Me.DokList.AllowUpdateOnBlur = False
|
|
Me.DokList.AlternatingRows = True
|
|
Me.DokList.CaptionHeight = 17
|
|
Me.DokList.CollapseColor = System.Drawing.Color.Black
|
|
Me.DokList.Cursor = System.Windows.Forms.Cursors.Default
|
|
Me.DokList.DataChanged = False
|
|
Me.DokList.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.DokList.ExpandColor = System.Drawing.Color.Black
|
|
Me.DokList.FetchRowStyles = True
|
|
Me.DokList.FilterBar = True
|
|
Me.DokList.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.DokList.Images.Add(CType(resources.GetObject("resource.Images9"), System.Drawing.Bitmap))
|
|
Me.DokList.Location = New System.Drawing.Point(576, 48)
|
|
Me.DokList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.DokList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
|
Me.DokList.Name = "DokList"
|
|
Me.DokList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.DokList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.DokList.PreviewInfo.ZoomFactor = 75
|
|
Me.DokList.PrintInfo.ShowOptionsDialog = False
|
|
Me.DokList.RecordSelectorWidth = 16
|
|
GridLines10.Color = System.Drawing.Color.DarkGray
|
|
GridLines10.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.DokList.RowDivider = GridLines10
|
|
Me.DokList.RowHeight = 15
|
|
Me.DokList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.DokList.ScrollTips = True
|
|
Me.DokList.Size = New System.Drawing.Size(208, 48)
|
|
Me.DokList.TabIndex = 26
|
|
Me.DokList.Text = "C1TrueDBGrid1"
|
|
Me.DokList.Visible = False
|
|
Me.DokList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
|
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
|
"True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
|
|
":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
|
"rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
|
|
"ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
|
|
"or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
|
|
"Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
|
|
", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
|
|
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
|
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
|
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
|
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 204," & _
|
|
" 44</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""Sty" & _
|
|
"le10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRow" & _
|
|
""" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle p" & _
|
|
"arent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingS" & _
|
|
"tyle parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me=" & _
|
|
"""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""O" & _
|
|
"ddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /" & _
|
|
"><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Style" & _
|
|
"1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""" & _
|
|
"Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foot" & _
|
|
"er"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactiv" & _
|
|
"e"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /" & _
|
|
"><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" " & _
|
|
"/><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelecto" & _
|
|
"r"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" " & _
|
|
"/></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modi" & _
|
|
"fied</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 204, 4" & _
|
|
"4</ClientArea></Blob>"
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
|
|
Me.ToolBar1.DropDownArrows = True
|
|
Me.ToolBar1.ImageList = Me.ImageList1
|
|
Me.ToolBar1.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(786, 25)
|
|
Me.ToolBar1.TabIndex = 27
|
|
'
|
|
'ToolBarButton1
|
|
'
|
|
Me.ToolBarButton1.ImageIndex = 0
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'TabControl3
|
|
'
|
|
Me.TabControl3.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage4})
|
|
Me.TabControl3.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.TabControl3.Location = New System.Drawing.Point(0, 273)
|
|
Me.TabControl3.Name = "TabControl3"
|
|
Me.TabControl3.SelectedIndex = 0
|
|
Me.TabControl3.Size = New System.Drawing.Size(786, 248)
|
|
Me.TabControl3.TabIndex = 28
|
|
'
|
|
'TabPage4
|
|
'
|
|
Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtDokumenttyp, Me.Label32, Me.txtDokumentid, Me.Label31, Me.txtanzahlseiten, Me.Label30, Me.txtReferenzzeile2, Me.txtReferenzzeile1, Me.Label28, Me.Label29, Me.txtnachvollziehbarkeit, Me.Label27, Me.txtisin, Me.txtvalor, Me.Label25, Me.Label26, Me.txtValuta, Me.Label24, Me.txtErstelltAm, Me.Label23, Me.txtvvextern2, Me.txtvvextern1, Me.Label22, Me.Label21, Me.txtPartnerZusteller, Me.txtPartnerInhaber, Me.Label20, Me.Label13})
|
|
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
|
|
Me.TabPage4.Name = "TabPage4"
|
|
Me.TabPage4.Size = New System.Drawing.Size(778, 222)
|
|
Me.TabPage4.TabIndex = 0
|
|
Me.TabPage4.Text = "Allgemein"
|
|
'
|
|
'txtDokumenttyp
|
|
'
|
|
Me.txtDokumenttyp.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtDokumenttyp.ForeColor = System.Drawing.Color.Black
|
|
Me.txtDokumenttyp.Location = New System.Drawing.Point(104, 8)
|
|
Me.txtDokumenttyp.Name = "txtDokumenttyp"
|
|
Me.txtDokumenttyp.ReadOnly = True
|
|
Me.txtDokumenttyp.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtDokumenttyp.TabIndex = 29
|
|
Me.txtDokumenttyp.Text = ""
|
|
'
|
|
'Label32
|
|
'
|
|
Me.Label32.Location = New System.Drawing.Point(8, 8)
|
|
Me.Label32.Name = "Label32"
|
|
Me.Label32.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label32.TabIndex = 28
|
|
Me.Label32.Text = "Dokumenttyp"
|
|
'
|
|
'txtDokumentid
|
|
'
|
|
Me.txtDokumentid.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtDokumentid.ForeColor = System.Drawing.Color.Black
|
|
Me.txtDokumentid.Location = New System.Drawing.Point(496, 152)
|
|
Me.txtDokumentid.Name = "txtDokumentid"
|
|
Me.txtDokumentid.ReadOnly = True
|
|
Me.txtDokumentid.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtDokumentid.TabIndex = 27
|
|
Me.txtDokumentid.Text = ""
|
|
'
|
|
'Label31
|
|
'
|
|
Me.Label31.Location = New System.Drawing.Point(392, 152)
|
|
Me.Label31.Name = "Label31"
|
|
Me.Label31.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label31.TabIndex = 26
|
|
Me.Label31.Text = "Dokument-ID"
|
|
'
|
|
'txtanzahlseiten
|
|
'
|
|
Me.txtanzahlseiten.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtanzahlseiten.ForeColor = System.Drawing.Color.Black
|
|
Me.txtanzahlseiten.Location = New System.Drawing.Point(496, 128)
|
|
Me.txtanzahlseiten.Name = "txtanzahlseiten"
|
|
Me.txtanzahlseiten.ReadOnly = True
|
|
Me.txtanzahlseiten.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtanzahlseiten.TabIndex = 25
|
|
Me.txtanzahlseiten.Text = ""
|
|
'
|
|
'Label30
|
|
'
|
|
Me.Label30.Location = New System.Drawing.Point(392, 128)
|
|
Me.Label30.Name = "Label30"
|
|
Me.Label30.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label30.TabIndex = 24
|
|
Me.Label30.Text = "Anzahl Seiten"
|
|
'
|
|
'txtReferenzzeile2
|
|
'
|
|
Me.txtReferenzzeile2.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtReferenzzeile2.ForeColor = System.Drawing.Color.Black
|
|
Me.txtReferenzzeile2.Location = New System.Drawing.Point(496, 32)
|
|
Me.txtReferenzzeile2.Name = "txtReferenzzeile2"
|
|
Me.txtReferenzzeile2.ReadOnly = True
|
|
Me.txtReferenzzeile2.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtReferenzzeile2.TabIndex = 23
|
|
Me.txtReferenzzeile2.Text = ""
|
|
'
|
|
'txtReferenzzeile1
|
|
'
|
|
Me.txtReferenzzeile1.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtReferenzzeile1.ForeColor = System.Drawing.Color.Black
|
|
Me.txtReferenzzeile1.Location = New System.Drawing.Point(496, 8)
|
|
Me.txtReferenzzeile1.Name = "txtReferenzzeile1"
|
|
Me.txtReferenzzeile1.ReadOnly = True
|
|
Me.txtReferenzzeile1.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtReferenzzeile1.TabIndex = 22
|
|
Me.txtReferenzzeile1.Text = ""
|
|
'
|
|
'Label28
|
|
'
|
|
Me.Label28.Location = New System.Drawing.Point(392, 32)
|
|
Me.Label28.Name = "Label28"
|
|
Me.Label28.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label28.TabIndex = 21
|
|
Me.Label28.Text = "Referenzzeile 1"
|
|
'
|
|
'Label29
|
|
'
|
|
Me.Label29.Location = New System.Drawing.Point(392, 8)
|
|
Me.Label29.Name = "Label29"
|
|
Me.Label29.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label29.TabIndex = 20
|
|
Me.Label29.Text = "Referenzzeile 1"
|
|
'
|
|
'txtnachvollziehbarkeit
|
|
'
|
|
Me.txtnachvollziehbarkeit.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtnachvollziehbarkeit.ForeColor = System.Drawing.Color.Black
|
|
Me.txtnachvollziehbarkeit.Location = New System.Drawing.Point(496, 104)
|
|
Me.txtnachvollziehbarkeit.Name = "txtnachvollziehbarkeit"
|
|
Me.txtnachvollziehbarkeit.ReadOnly = True
|
|
Me.txtnachvollziehbarkeit.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtnachvollziehbarkeit.TabIndex = 19
|
|
Me.txtnachvollziehbarkeit.Text = ""
|
|
'
|
|
'Label27
|
|
'
|
|
Me.Label27.Location = New System.Drawing.Point(392, 104)
|
|
Me.Label27.Name = "Label27"
|
|
Me.Label27.Size = New System.Drawing.Size(104, 23)
|
|
Me.Label27.TabIndex = 18
|
|
Me.Label27.Text = "Nachvollziehbarkeit"
|
|
'
|
|
'txtisin
|
|
'
|
|
Me.txtisin.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtisin.ForeColor = System.Drawing.Color.Black
|
|
Me.txtisin.Location = New System.Drawing.Point(496, 80)
|
|
Me.txtisin.Name = "txtisin"
|
|
Me.txtisin.ReadOnly = True
|
|
Me.txtisin.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtisin.TabIndex = 17
|
|
Me.txtisin.Text = ""
|
|
'
|
|
'txtvalor
|
|
'
|
|
Me.txtvalor.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtvalor.ForeColor = System.Drawing.Color.Black
|
|
Me.txtvalor.Location = New System.Drawing.Point(496, 56)
|
|
Me.txtvalor.Name = "txtvalor"
|
|
Me.txtvalor.ReadOnly = True
|
|
Me.txtvalor.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtvalor.TabIndex = 16
|
|
Me.txtvalor.Text = ""
|
|
'
|
|
'Label25
|
|
'
|
|
Me.Label25.Location = New System.Drawing.Point(392, 80)
|
|
Me.Label25.Name = "Label25"
|
|
Me.Label25.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label25.TabIndex = 15
|
|
Me.Label25.Text = "ISIN-Nr"
|
|
'
|
|
'Label26
|
|
'
|
|
Me.Label26.Location = New System.Drawing.Point(392, 56)
|
|
Me.Label26.Name = "Label26"
|
|
Me.Label26.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label26.TabIndex = 14
|
|
Me.Label26.Text = "Valorennr"
|
|
'
|
|
'txtValuta
|
|
'
|
|
Me.txtValuta.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtValuta.ForeColor = System.Drawing.Color.Black
|
|
Me.txtValuta.Location = New System.Drawing.Point(104, 104)
|
|
Me.txtValuta.Name = "txtValuta"
|
|
Me.txtValuta.ReadOnly = True
|
|
Me.txtValuta.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtValuta.TabIndex = 13
|
|
Me.txtValuta.Text = ""
|
|
'
|
|
'Label24
|
|
'
|
|
Me.Label24.Location = New System.Drawing.Point(8, 104)
|
|
Me.Label24.Name = "Label24"
|
|
Me.Label24.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label24.TabIndex = 12
|
|
Me.Label24.Text = "Valutadatum"
|
|
'
|
|
'txtErstelltAm
|
|
'
|
|
Me.txtErstelltAm.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtErstelltAm.ForeColor = System.Drawing.Color.Black
|
|
Me.txtErstelltAm.Location = New System.Drawing.Point(104, 80)
|
|
Me.txtErstelltAm.Name = "txtErstelltAm"
|
|
Me.txtErstelltAm.ReadOnly = True
|
|
Me.txtErstelltAm.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtErstelltAm.TabIndex = 11
|
|
Me.txtErstelltAm.Text = ""
|
|
'
|
|
'Label23
|
|
'
|
|
Me.Label23.Location = New System.Drawing.Point(8, 80)
|
|
Me.Label23.Name = "Label23"
|
|
Me.Label23.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label23.TabIndex = 10
|
|
Me.Label23.Text = "Erstellt am"
|
|
'
|
|
'txtvvextern2
|
|
'
|
|
Me.txtvvextern2.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtvvextern2.ForeColor = System.Drawing.Color.Black
|
|
Me.txtvvextern2.Location = New System.Drawing.Point(104, 176)
|
|
Me.txtvvextern2.Name = "txtvvextern2"
|
|
Me.txtvvextern2.ReadOnly = True
|
|
Me.txtvvextern2.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtvvextern2.TabIndex = 9
|
|
Me.txtvvextern2.Text = ""
|
|
'
|
|
'txtvvextern1
|
|
'
|
|
Me.txtvvextern1.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtvvextern1.ForeColor = System.Drawing.Color.Black
|
|
Me.txtvvextern1.Location = New System.Drawing.Point(104, 152)
|
|
Me.txtvvextern1.Name = "txtvvextern1"
|
|
Me.txtvvextern1.ReadOnly = True
|
|
Me.txtvvextern1.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtvvextern1.TabIndex = 8
|
|
Me.txtvvextern1.Text = ""
|
|
'
|
|
'Label22
|
|
'
|
|
Me.Label22.Location = New System.Drawing.Point(8, 176)
|
|
Me.Label22.Name = "Label22"
|
|
Me.Label22.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label22.TabIndex = 7
|
|
Me.Label22.Text = "VV Extern 2"
|
|
'
|
|
'Label21
|
|
'
|
|
Me.Label21.Location = New System.Drawing.Point(8, 152)
|
|
Me.Label21.Name = "Label21"
|
|
Me.Label21.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label21.TabIndex = 6
|
|
Me.Label21.Text = "VV Extern 1"
|
|
'
|
|
'txtPartnerZusteller
|
|
'
|
|
Me.txtPartnerZusteller.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtPartnerZusteller.ForeColor = System.Drawing.Color.Black
|
|
Me.txtPartnerZusteller.Location = New System.Drawing.Point(104, 56)
|
|
Me.txtPartnerZusteller.Name = "txtPartnerZusteller"
|
|
Me.txtPartnerZusteller.ReadOnly = True
|
|
Me.txtPartnerZusteller.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtPartnerZusteller.TabIndex = 5
|
|
Me.txtPartnerZusteller.Text = ""
|
|
'
|
|
'txtPartnerInhaber
|
|
'
|
|
Me.txtPartnerInhaber.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
|
|
Me.txtPartnerInhaber.ForeColor = System.Drawing.Color.Black
|
|
Me.txtPartnerInhaber.Location = New System.Drawing.Point(104, 32)
|
|
Me.txtPartnerInhaber.Name = "txtPartnerInhaber"
|
|
Me.txtPartnerInhaber.ReadOnly = True
|
|
Me.txtPartnerInhaber.Size = New System.Drawing.Size(256, 20)
|
|
Me.txtPartnerInhaber.TabIndex = 4
|
|
Me.txtPartnerInhaber.Text = ""
|
|
'
|
|
'Label20
|
|
'
|
|
Me.Label20.Location = New System.Drawing.Point(8, 56)
|
|
Me.Label20.Name = "Label20"
|
|
Me.Label20.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label20.TabIndex = 1
|
|
Me.Label20.Text = "Partner Zusteller"
|
|
'
|
|
'Label13
|
|
'
|
|
Me.Label13.Location = New System.Drawing.Point(8, 32)
|
|
Me.Label13.Name = "Label13"
|
|
Me.Label13.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label13.TabIndex = 0
|
|
Me.Label13.Text = "Partner Inhaber"
|
|
'
|
|
'frmDokumentinformationen
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(786, 269)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl3, Me.TabControl1, Me.ToolBar1, Me.DokList})
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
|
Me.Name = "frmDokumentinformationen"
|
|
Me.Text = "Dokumentinformationen"
|
|
Me.TabControl1.ResumeLayout(False)
|
|
Me.TabPageAllgemein.ResumeLayout(False)
|
|
Me.pnlzensur1.ResumeLayout(False)
|
|
Me.TabPageStatus.ResumeLayout(False)
|
|
CType(Me.Statuslist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.Panel2.ResumeLayout(False)
|
|
Me.TabPageDokumentwerte.ResumeLayout(False)
|
|
Me.TabControl2.ResumeLayout(False)
|
|
Me.TabPage1.ResumeLayout(False)
|
|
CType(Me.ColdList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.ColdListDokumente, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.TabPage3.ResumeLayout(False)
|
|
Me.TabPageZuordnung.ResumeLayout(False)
|
|
Me.pnlzensur4.ResumeLayout(False)
|
|
CType(Me.Zuordnungslist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.TabPageNotizen.ResumeLayout(False)
|
|
Me.pnlzensur5.ResumeLayout(False)
|
|
CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.TabPageInfomeldung.ResumeLayout(False)
|
|
Me.pnlzensur3.ResumeLayout(False)
|
|
CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.TabPageBerechtigung.ResumeLayout(False)
|
|
CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.TabPage2.ResumeLayout(False)
|
|
Me.pnlzensur6.ResumeLayout(False)
|
|
CType(Me.ErsetzteDokumenteList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.TabControl3.ResumeLayout(False)
|
|
Me.TabPage4.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Dim m_dokumentid As String
|
|
Property Dokumentid() As String
|
|
Get
|
|
Return m_dokumentid
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_dokumentid = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_typ As Integer
|
|
Property Typ() As Integer
|
|
Get
|
|
Return m_typ
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_typ = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Sub New(ByVal dokumentid As String, ByVal typ As Integer)
|
|
MyBase.New()
|
|
InitializeComponent()
|
|
Me.Dokumentid = dokumentid
|
|
Me.Typ = typ
|
|
If Me.Typ = 0 Then
|
|
Me.TabControl1.Visible = True
|
|
Me.TabControl3.Visible = False
|
|
Else
|
|
Me.TabControl1.Visible = False
|
|
Me.TabControl3.Visible = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub frmDokumentinformationen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim d As New DataTable()
|
|
d = get_dokumentinfo()
|
|
If Me.Typ = 0 Then
|
|
Me.DokList.DataSource = d
|
|
Me.DokList.DataMember = d.TableName
|
|
Me.Update_DetailInformation()
|
|
Else
|
|
Me.txtDokumenttyp.Text = d.Rows(0).Item("dokumenttyp")
|
|
Me.txtPartnerInhaber.Text = d.Rows(0).Item("partnernr_inhaber") + " " + d.Rows(0).Item("partnername_inhaber")
|
|
Me.txtPartnerZusteller.Text = d.Rows(0).Item("partnernr_zusteller") + " " + d.Rows(0).Item("partnername_zusteller")
|
|
Me.txtReferenzzeile1.Text = d.Rows(0).Item("referenzzeile1")
|
|
Me.txtReferenzzeile2.Text = d.Rows(0).Item("referenzzeile2")
|
|
Me.txtErstelltAm.Text = d.Rows(0).Item("valutadatum")
|
|
Me.txtValuta.Text = d.Rows(0).Item("valutadatum1")
|
|
Me.txtvalor.Text = d.Rows(0).Item("valorennr")
|
|
Me.txtisin.Text = d.Rows(0).Item("isinnr")
|
|
Me.txtDokumentid.Text = d.Rows(0).Item("dokumentid")
|
|
Me.txtanzahlseiten.Text = d.Rows(0).Item("anzahlseiten")
|
|
Me.txtnachvollziehbarkeit.Text = d.Rows(0).Item("nachvollziehbarkeit")
|
|
Me.txtvvextern1.Text = d.Rows(0).Item("vvextern1")
|
|
Me.txtvvextern2.Text = d.Rows(0).Item("vvextern2")
|
|
End If
|
|
End Sub
|
|
|
|
Private Function get_dokumentinfo() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_dokumentinfo"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Typ))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click
|
|
|
|
Me.Update_DetailInformation()
|
|
End Sub
|
|
|
|
#Region "Detail-Informationen"
|
|
|
|
Dim colornotset As Boolean = False
|
|
Dim bcknr As Integer
|
|
Dim m_ExpandColdListDokumente As Integer = 0 'koe Anzahl der Expandet Spalten in Grid ColdListDokumente
|
|
Dim m_ColdListDokumenteDefaultWidth As Integer = 336 ' Breite des Grid ColdListDokumente
|
|
Dim statushistory As Boolean
|
|
Dim m_DTMitarbeiter As DataTable 'koe 28.07.2004
|
|
|
|
|
|
Private Sub Update_DetailInformation()
|
|
Globals.PerfMon.insert_entry("'-- Begin Dokumentdetails")
|
|
Me.Notizlist.Enabled = False
|
|
Me.InfoMeldungList.Enabled = False
|
|
Me.Zuordnungslist.Enabled = False
|
|
Me.DokumentFunktionenList.Enabled = False
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Select Case Me.TabControl1.SelectedTab.Name
|
|
Case "TabPageAllgemein"
|
|
Update_Details()
|
|
Case "TabPageDokumentwerte"
|
|
Update_Coldindex()
|
|
Case "TabPageArchivierung"
|
|
'update_archivierung()
|
|
Case "TabPageInfomeldung"
|
|
Update_DokumentInfoMeldung()
|
|
Case "TabPageZuordnung"
|
|
Update_Dokumentzuordnung()
|
|
Case "TabPageStatus"
|
|
Update_Status()
|
|
Case "TabPageNotizen"
|
|
Update_Notizen()
|
|
Case "TabPageBerechtigung"
|
|
Update_Dokumentfunktionen()
|
|
Case "TabPage2"
|
|
Update_Ersetzte_Dokumente()
|
|
End Select
|
|
Me.Notizlist.Enabled = True
|
|
Me.InfoMeldungList.Enabled = True
|
|
Me.Zuordnungslist.Enabled = True
|
|
Me.DokumentFunktionenList.Enabled = True
|
|
Me.Cursor = Cursors.Default
|
|
Update_Details()
|
|
|
|
Dim d As DataTable
|
|
Dim I As Integer
|
|
Try
|
|
d = DivFnkt.Berechtigte_Mitarbeiter(Me.DokList.Columns("dokumenttypnr").Value, Globals.MitarbeiterNr, Me.DokList.Columns("partnernr").Value, Me.DokList.Columns("dokumentid").Value, 0, 0, 0, Me.DokList.Columns("vertraulich").Value, "")
|
|
If Me.DokList.Columns("verantwortlich").Value <> Globals.MitarbeiterNr Then
|
|
If d.Rows.Count = 0 And Globals.stv = 0 Then
|
|
Me.pnlzensur1.Visible = True
|
|
Me.pnlzensur2.Visible = True
|
|
Me.pnlzensur3.Visible = True
|
|
Me.pnlzensur4.Visible = True
|
|
Me.pnlzensur5.Visible = True
|
|
Me.pnlzensur6.Visible = True
|
|
Me.lblzensur1.Visible = True
|
|
Me.lblzensur2.Visible = True
|
|
Me.lblzensur3.Visible = True
|
|
Me.lblzensur4.Visible = True
|
|
Me.lblzensur5.Visible = True
|
|
Me.lblzensur6.Visible = True
|
|
Me.ColdListDokumente.Visible = False
|
|
' Me.DokList.Columns("Bemerkung").Value = ""
|
|
Me.TabControl1.Visible = True
|
|
Exit Sub
|
|
End If
|
|
If d.Rows(0).Item("anzeigen") = 0 Then
|
|
Me.pnlzensur1.Visible = True
|
|
Me.pnlzensur2.Visible = True
|
|
Me.pnlzensur3.Visible = True
|
|
Me.pnlzensur4.Visible = True
|
|
Me.pnlzensur5.Visible = True
|
|
Me.pnlzensur6.Visible = True
|
|
Me.lblzensur1.Visible = True
|
|
Me.lblzensur2.Visible = True
|
|
Me.lblzensur3.Visible = True
|
|
Me.lblzensur4.Visible = True
|
|
Me.lblzensur5.Visible = True
|
|
Me.lblzensur6.Visible = True
|
|
Me.ColdListDokumente.Visible = False
|
|
' Me.DokList.Columns("Bemerkung").Value = ""
|
|
Me.TabControl1.Visible = True
|
|
Exit Sub
|
|
End If
|
|
d.Dispose()
|
|
'
|
|
Me.pnlzensur1.Visible = False
|
|
Me.pnlzensur2.Visible = False
|
|
Me.pnlzensur3.Visible = False
|
|
Me.pnlzensur4.Visible = False
|
|
Me.pnlzensur5.Visible = False
|
|
Me.pnlzensur6.Visible = False
|
|
Me.lblzensur1.Visible = False
|
|
Me.lblzensur2.Visible = False
|
|
Me.lblzensur3.Visible = False
|
|
Me.lblzensur4.Visible = False
|
|
Me.lblzensur5.Visible = False
|
|
Me.lblzensur6.Visible = False
|
|
Me.ColdListDokumente.Visible = True
|
|
' Me.DokList.Columns("Bemerkung").Value = ""
|
|
Me.TabControl1.Visible = True
|
|
Else
|
|
Me.pnlzensur1.Visible = False
|
|
Me.pnlzensur2.Visible = False
|
|
Me.pnlzensur3.Visible = False
|
|
Me.pnlzensur4.Visible = False
|
|
Me.pnlzensur5.Visible = False
|
|
Me.pnlzensur6.Visible = False
|
|
Me.lblzensur1.Visible = False
|
|
Me.lblzensur2.Visible = False
|
|
Me.lblzensur3.Visible = False
|
|
Me.lblzensur4.Visible = False
|
|
Me.lblzensur5.Visible = False
|
|
Me.lblzensur6.Visible = False
|
|
Me.ColdListDokumente.Visible = True
|
|
' Me.DokList.Columns("Bemerkung").Value = ""
|
|
Me.TabControl1.Visible = True
|
|
End If
|
|
Catch
|
|
Me.TabControl1.Visible = False
|
|
End Try
|
|
Globals.PerfMon.insert_entry("'-- Ende Dokumentdetails")
|
|
End Sub
|
|
|
|
Dim ttip As New ToolTip()
|
|
|
|
Private Sub Update_Details()
|
|
Try
|
|
Dim xbck As String
|
|
|
|
Me.TextBox1.Text = Me.DokList.Columns("Dokumentid").Value
|
|
If Me.DokList.Columns("Bemerkung").Text Is System.DBNull.Value Then
|
|
Me.TextBox12.Text = ""
|
|
Else
|
|
Me.TextBox12.Text = Me.DokList.Columns("Bemerkung").Value
|
|
ttip.SetToolTip(Me.TextBox12, Me.TextBox12.Text)
|
|
End If
|
|
|
|
|
|
If isbck() Then
|
|
xbck = LTrim(Str(Me.bcknr))
|
|
While Len(xbck) < 10
|
|
xbck = "0" + xbck
|
|
End While
|
|
Me.TextBox18.Text = xbck
|
|
Else
|
|
Me.TextBox18.Text = ""
|
|
End If
|
|
Me.TextBox2.Text = Str(Me.DokList.Columns("PartnerNr").Value) + " " + Me.DokList.Columns("Partnerkurzbezeichnung").Value
|
|
Me.TextBox3.Text = Me.DokList.Columns("Dokumentart").Value
|
|
Me.TextBox4.Text = Me.DokList.Columns("Bezeichnung").Value
|
|
Me.TextBox5.Text = Me.DokList.Columns("Erstellungsdatum").Value
|
|
Me.TextBox6.Text = Me.DokList.Columns("DokErsteller").Value
|
|
If Me.DokList.Columns("Sperrdatum").Value Is System.DBNull.Value Then Me.TextBox7.Text = "" Else Me.TextBox7.Text = Me.DokList.Columns("Sperrdatum").Value
|
|
If Me.DokList.Columns("DokSperrung").Value Is System.DBNull.Value Then
|
|
Me.TextBox8.Text = ""
|
|
Me.TextBox7.Text = ""
|
|
Else
|
|
Me.TextBox8.Text = Me.DokList.Columns("DokSperrung").Value
|
|
End If
|
|
Me.TextBox9.Text = Me.DokList.Columns("Mutationsdatum").Value
|
|
Me.TextBox10.Text = Me.DokList.Columns("DokMutierer").Value
|
|
Me.TextBox11.Text = Me.DokList.Columns("Status").Value
|
|
Me.TextBox13.Text = Me.DokList.Columns("DokVerantwortlich").Value
|
|
Me.TextBox14.Text = ""
|
|
If (Me.DokList.Columns("termin").Value Is System.DBNull.Value) Or (Year(Me.DokList.Columns("termin").Value) = 1900) Then Me.TextBox14.Text = "" Else Me.TextBox14.Text = Me.DokList.Columns("Termin").Value
|
|
' If Me.DokList.Columns("termin").Value Is System.DBNull.Value Then Me.TextBox14.Text = "" Else Me.TextBox14.Text = Me.DokList.Columns("Termin").Value
|
|
Me.TabControl1.Visible = True
|
|
Catch ex As Exception
|
|
' MsgBox(ex.Message)
|
|
' Me.TabControl1.Visible = False
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Statuslist_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles Statuslist.FetchRowStyle
|
|
|
|
If Me.Statuslist.Columns("bezeichnung").CellValue(e.Row) = Me.TextBox11.Text Then
|
|
If colornotset Then
|
|
e.CellStyle.ForeColor = Red
|
|
colornotset = False
|
|
End If
|
|
Else
|
|
e.CellStyle.ForeColor = Black
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Update_Status()
|
|
Try
|
|
colornotset = True
|
|
Dim st As DataTable
|
|
st = Status_lesen()
|
|
Me.Statuslist.FetchRowStyles = True
|
|
Me.Statuslist.DataSource = Nothing
|
|
Me.Statuslist.DataSource = st
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.Statuslist, st, "statushistory")
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Update_Coldindex()
|
|
Me.ColdListDokumente.Enabled = False
|
|
Me.ColdList.Enabled = False
|
|
Dim ds As New DataSet()
|
|
Dim cd As DataTable
|
|
Dim cdHierarchie As DataTable
|
|
|
|
Dim iCnt As Integer
|
|
Try
|
|
|
|
Me.ColdListDokumente.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.Normal
|
|
cd = Cold_Index_lesen(0, 1)
|
|
cdHierarchie = Cold_Index_lesen(0, 0)
|
|
'----------------------------------------------
|
|
ds.Tables.Add(cd)
|
|
ds.Tables.Add(cdHierarchie)
|
|
|
|
|
|
Dim dr As DataRelation
|
|
Dim dc1 As DataColumn = cd.Columns("TreeID")
|
|
Dim dc2 As DataColumn = cdHierarchie.Columns("SubTreeID")
|
|
Dim rel As New DataRelation("RelColdIndex", dc1, dc2)
|
|
Try
|
|
Me.ColdListDokumente.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.Hierarchical
|
|
Catch ex As System.ArgumentException
|
|
' MsgBox(ex.Message)
|
|
End Try
|
|
|
|
|
|
ds.Relations.Add(rel)
|
|
Me.ColdListDokumente.SetDataBinding(ds, ds.Tables(0).TableName)
|
|
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdListDokumente, cd, "coldlistdokumente")
|
|
If m_ExpandColdListDokumente < 0 Then m_ExpandColdListDokumente = 0
|
|
If m_ExpandColdListDokumente < 1 Then
|
|
For iCnt = 0 To ColdListDokumente.Splits(0).DisplayColumns.Count - 1
|
|
Select Case UCase(ColdListDokumente.Splits(0).DisplayColumns(iCnt).DataColumn.DataField)
|
|
Case "STATUSALT", "ARCHIVDATUMALT"
|
|
ColdListDokumente.Splits(0).DisplayColumns(iCnt).Visible = False
|
|
End Select
|
|
Next
|
|
End If
|
|
|
|
Update_ColdListDokumente_Detail(False)
|
|
Me.ColdListDokumente.Enabled = True
|
|
Me.ColdList.Enabled = True
|
|
Catch ex As Exception
|
|
' MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Update_DokumentInfoMeldung()
|
|
Dim dokumentinfomeldung As DataTable
|
|
dokumentinfomeldung = Dokumentinfomeldungen_laden()
|
|
Me.InfoMeldungList.DataSource = dokumentinfomeldung
|
|
Me.InfoMeldungList.Columns("aktiv").FilterText = True
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.InfoMeldungList, dokumentinfomeldung, "Dokumentinfomeldung")
|
|
End Sub
|
|
|
|
Private Function Dokumentinfomeldungen_laden()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Trefferliste_Dokumentinfomeldung_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokList.Columns("dokumentid").Value))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumentinfomeldung_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub Update_Notizen()
|
|
Dim Notizen As DataTable
|
|
Notizen = Notizen_Laden()
|
|
Me.Notizlist.DataSource = Notizen
|
|
Mitarbeiter_Laden() 'koe 28.07.2004
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Notizen, "notizen")
|
|
End Sub
|
|
|
|
Private Function Notizen_Laden() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").Value))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub Update_Dokumentzuordnung()
|
|
Dim dokumentzuordnungen As DataTable
|
|
Dim i As Integer
|
|
dokumentzuordnungen = Dokumentzuordnungen_Laden()
|
|
Me.Zuordnungslist.DataSource = dokumentzuordnungen
|
|
Me.Zuordnungslist.Columns("zuordnungnr").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
|
|
|
Dim dxx As New SqlDataAdapter("Select zuordnungnr, bezeichnung from zuordnung", Globals.sConnectionString)
|
|
Dim dh As New DataSet()
|
|
dxx.Fill(dh, "dd")
|
|
Dim vv(100)
|
|
For i = 0 To dh.Tables(0).Rows.Count - 1
|
|
vv(i) = New C1.Win.C1TrueDBGrid.ValueItem()
|
|
vv(i).DisplayValue = dh.Tables(0).Rows(i).Item("bezeichnung")
|
|
vv(i).Value = dh.Tables(0).Rows(i).Item("zuordnungnr")
|
|
Me.Zuordnungslist.Columns("zuordnungnr").ValueItems.Values.Add(vv(i))
|
|
Me.Zuordnungslist.Columns("zuordnungnr").ValueItems.Translate = True
|
|
Next
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.Zuordnungslist, dokumentzuordnungen, "dokumentzuordnungentr")
|
|
|
|
End Sub
|
|
|
|
Private Function Dokumentzuordnungen_Laden()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Trefferliste_Dokumentzuordnungen_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").Value))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub Update_Dokumentfunktionen()
|
|
Dim Dokumentfunktionen As DataTable
|
|
Dokumentfunktionen = Dokumentfunktionen_Laden()
|
|
Me.DokumentFunktionenList.DataSource = Dokumentfunktionen
|
|
Me.DokumentFunktionenList.DataMember = Dokumentfunktionen.TableName
|
|
Me.DokumentFunktionenList.Columns("aktiv").FilterText = True
|
|
Me.DokumentFunktionenList.FilterBar = False
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.DokumentFunktionenList, Dokumentfunktionen, "berechtigungseinschraenkung")
|
|
End Sub
|
|
|
|
Private Function Dokumentfunktionen_Laden() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "sp_dokumentfunktion_zugewiesen"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").Value))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub Update_Ersetzte_Dokumente()
|
|
Dim ed As DataTable
|
|
ed = ErsetzteDokumente_Laden()
|
|
Me.ErsetzteDokumenteList.DataSource = ed
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.ErsetzteDokumenteList, ed, "ersetztedokumente")
|
|
End Sub
|
|
|
|
Private Function ErsetzteDokumente_Laden() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_trefferliste_ersetztedokumente"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").Value))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function isbck() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "sp_check_bck"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").Value))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isbck", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bcknr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
If scmCmdToExecute.Parameters("@isbck").Value = 1 Then
|
|
isbck = True
|
|
Me.bcknr = scmCmdToExecute.Parameters("@bcknr").Value
|
|
Else
|
|
isbck = False
|
|
Me.bcknr = 0
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("CheckBCK:" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Status_lesen() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Trefferliste_Select_Status"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokList.Columns("dokumentid").Value))
|
|
If Me.statushistory = True Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Cold_Index_lesen(ByVal indextyp As Integer, ByVal iRoot As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Trefferliste_Select_Coldindex"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokList.Columns("dokumentid").Value))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Root", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, iRoot))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Dokumentwert_lesen() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.SP_Trefferliste_Select_Dokumentwert"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokList.Columns("dokumentid").Value))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub Update_ColdListDokumente_Detail(ByVal doenable As Boolean)
|
|
Try
|
|
Dim cd As DataTable
|
|
If doenable Then Me.ColdList.Enabled = False
|
|
cd = Cold_Index_lesen(Me.ColdListDokumente.Columns("indextypnr").Value, 0)
|
|
Me.ColdList.DataSource = cd
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, cd, "coldlist")
|
|
Me.TextBox15.Text = Me.DokList.Columns("dokunterschriftlinks").Text
|
|
Me.TextBox16.Text = Me.DokList.Columns("dokunterschriftrechts").Text
|
|
Me.TextBox17.Text = Me.DokList.Columns("dokzustaendig").Text
|
|
Me.ColdList.Enabled = True
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Mitarbeiter_Laden()
|
|
'===============================================================================
|
|
'Description: Mitarbeiter in DRP Laden DropDown an Grid Binden und Mutierer übersetzen
|
|
'Date : koe 28.07.2004
|
|
'Modified :
|
|
'===============================================================================
|
|
conn.OpenConnection()
|
|
If m_DTMitarbeiter Is Nothing Then
|
|
m_DTMitarbeiter = Generic_Select(17)
|
|
End If
|
|
|
|
Me.drpMiatarbeiter.DataSource = m_DTMitarbeiter
|
|
Me.drpMiatarbeiter.ListField = "FullName"
|
|
Me.drpMiatarbeiter.DataField = "mitarbeiternr"
|
|
Me.drpMiatarbeiter.ValueTranslate = True
|
|
Me.Notizlist.Columns("mutierer").DropDown = Me.drpMiatarbeiter
|
|
conn.CloseConnection(True)
|
|
|
|
End Sub
|
|
|
|
Private Function Generic_Select(ByVal typ As Integer) As DataTable
|
|
'===============================================================================
|
|
'Description: Dynamische Datenherkuft
|
|
'Input : Typ
|
|
'Output : Datatable
|
|
'Date : koe 28.07.2004
|
|
'Modified :
|
|
'===============================================================================
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
|
Select Case typ
|
|
Case 17
|
|
'Mitarbeiter
|
|
scmCmdToExecute.CommandText = "dbo.SP_ValueSelect"
|
|
Case Else
|
|
End Select
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
Select Case typ
|
|
Case 17
|
|
'Mitarbeiter
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "&AlleMitarbeiter&"))
|
|
Case Else
|
|
End Select
|
|
If typ = 1 Then
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Trefferliste::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
|
|
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
Me.Close()
|
|
End Sub
|
|
End Class
|