Initial commit

.svn/pristine/fd/fd55850da99339e7edf9f301eaba16ebd3773d35.svn-base

@@ -0,0 +1,771 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmPPlan
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPPlan))
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.lblSearchStruktur_Definition = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
+        Me.tsTxtSearch = New System.Windows.Forms.ToolStripTextBox()
+        Me.tsBtnSearchStruktur_Definition = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnFilterAufheben = New System.Windows.Forms.ToolStripButton()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.ctxMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.DetailsAnzeigenBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.NeueDefinitionErfassenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.VorgabeAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PrüfschrittGenerierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnAddNew = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnDelete = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnSetSecurityObject = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnReport = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtncopy1 = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnCopy2 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.GrpDokumente = New System.Windows.Forms.GroupBox()
+        Me.DokumenteAllgemein = New ThemenDokumente.Dokumente()
+        Me.grpDetails = New System.Windows.Forms.GroupBox()
+        Me.cbSelbstkontrolle = New System.Windows.Forms.CheckBox()
+        Me.cbKeinMail = New System.Windows.Forms.CheckBox()
+        Me.lblSelbstkontrolle = New System.Windows.Forms.Label()
+        Me.lblKeinMail = New System.Windows.Forms.Label()
+        Me.txtVerantwortlichPlan = New System.Windows.Forms.TextBox()
+        Me.lblVerantwortlichPlan = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtGueltigbis = New System.Windows.Forms.TextBox()
+        Me.lblGueltigbis = New System.Windows.Forms.Label()
+        Me.txtBezeichnung = New System.Windows.Forms.TextBox()
+        Me.lblBezeichnung = New System.Windows.Forms.Label()
+        Me.txtBeschreibung = New System.Windows.Forms.TextBox()
+        Me.lblKontrollaktivität = New System.Windows.Forms.Label()
+        Me.txtVerantwortungISI = New System.Windows.Forms.TextBox()
+        Me.txtVerantwortlich = New System.Windows.Forms.TextBox()
+        Me.lblVerantwortlichISI = New System.Windows.Forms.Label()
+        Me.lblVerantwortlichDurchführung = New System.Windows.Forms.Label()
+        Me.txtZeitpunkt = New System.Windows.Forms.TextBox()
+        Me.lblZeitpunkt = New System.Windows.Forms.Label()
+        Me.txtPeriodizitaet = New System.Windows.Forms.TextBox()
+        Me.lblPeriodizitaet = New System.Windows.Forms.Label()
+        Me.txtPrioritaet = New System.Windows.Forms.TextBox()
+        Me.lblPrioritaet = New System.Windows.Forms.Label()
+        Me.lblPruefgegenstand = New System.Windows.Forms.Label()
+        Me.txtPruefgegenstand = New System.Windows.Forms.TextBox()
+        Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.DefinitionAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MenuStrip1.SuspendLayout()
+        Me.ToolStrip1.SuspendLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.Panel2.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ctxMenuDetails.SuspendLayout()
+        Me.ToolStrip2.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.GrpDokumente.SuspendLayout()
+        Me.grpDetails.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(32, 32)
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(958, 24)
+        Me.MenuStrip1.TabIndex = 4
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'DateiToolStripMenuItem
+        '
+        Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
+        Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Text = "&Datei"
+        '
+        'BeendenToolStripMenuItem
+        '
+        Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
+        Me.BeendenToolStripMenuItem.Text = "&Schliessen"
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1, Me.lblSearchStruktur_Definition, Me.ToolStripButton3, Me.tsTxtSearch, Me.tsBtnSearchStruktur_Definition, Me.tsbtnFilterAufheben})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(958, 25)
+        Me.ToolStrip1.TabIndex = 5
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "ToolStripButton1"
+        Me.ToolStripButton1.Visible = False
+        '
+        'lblSearchStruktur_Definition
+        '
+        Me.lblSearchStruktur_Definition.Name = "lblSearchStruktur_Definition"
+        Me.lblSearchStruktur_Definition.Size = New System.Drawing.Size(46, 22)
+        Me.lblSearchStruktur_Definition.Text = "Suchen"
+        '
+        'ToolStripButton3
+        '
+        Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
+        Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton3.Name = "ToolStripButton3"
+        Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton3.Text = "ToolStripButton1"
+        Me.ToolStripButton3.Visible = False
+        '
+        'tsTxtSearch
+        '
+        Me.tsTxtSearch.Name = "tsTxtSearch"
+        Me.tsTxtSearch.Size = New System.Drawing.Size(100, 25)
+        '
+        'tsBtnSearchStruktur_Definition
+        '
+        Me.tsBtnSearchStruktur_Definition.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsBtnSearchStruktur_Definition.Image = CType(resources.GetObject("tsBtnSearchStruktur_Definition.Image"), System.Drawing.Image)
+        Me.tsBtnSearchStruktur_Definition.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsBtnSearchStruktur_Definition.Name = "tsBtnSearchStruktur_Definition"
+        Me.tsBtnSearchStruktur_Definition.Size = New System.Drawing.Size(23, 22)
+        Me.tsBtnSearchStruktur_Definition.Text = "Suchen"
+        '
+        'tsbtnFilterAufheben
+        '
+        Me.tsbtnFilterAufheben.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnFilterAufheben.Image = CType(resources.GetObject("tsbtnFilterAufheben.Image"), System.Drawing.Image)
+        Me.tsbtnFilterAufheben.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnFilterAufheben.Name = "tsbtnFilterAufheben"
+        Me.tsbtnFilterAufheben.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnFilterAufheben.Text = "Filter aufheben"
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 49)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.C1Daten)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStrip2)
+        '
+        'SplitContainer1.Panel2
+        '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1)
+        Me.SplitContainer1.Size = New System.Drawing.Size(958, 623)
+        Me.SplitContainer1.SplitterDistance = 316
+        Me.SplitContainer1.TabIndex = 6
+        '
+        'C1Daten
+        '
+        Me.C1Daten.AllowUpdate = False
+        Me.C1Daten.AlternatingRows = True
+        Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
+        Me.C1Daten.ContextMenuStrip = Me.ctxMenuDetails
+        Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1Daten.FilterBar = True
+        Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
+        Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
+        Me.C1Daten.Location = New System.Drawing.Point(0, 25)
+        Me.C1Daten.Name = "C1Daten"
+        Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
+        Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.C1Daten.Size = New System.Drawing.Size(958, 291)
+        Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
+        Me.C1Daten.TabIndex = 9
+        Me.C1Daten.Text = "C1TrueDBGrid1"
+        Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
+        Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
+        '
+        'ctxMenuDetails
+        '
+        Me.ctxMenuDetails.ImageScalingSize = New System.Drawing.Size(32, 32)
+        Me.ctxMenuDetails.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenBearbeitenToolStripMenuItem, Me.NeueDefinitionErfassenToolStripMenuItem, Me.ToolStripMenuItem1, Me.VorgabeAnzeigenToolStripMenuItem, Me.PrüfschrittGenerierenToolStripMenuItem})
+        Me.ctxMenuDetails.Name = "ctxMenuDetails"
+        Me.ctxMenuDetails.Size = New System.Drawing.Size(246, 98)
+        '
+        'DetailsAnzeigenBearbeitenToolStripMenuItem
+        '
+        Me.DetailsAnzeigenBearbeitenToolStripMenuItem.Name = "DetailsAnzeigenBearbeitenToolStripMenuItem"
+        Me.DetailsAnzeigenBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(245, 22)
+        Me.DetailsAnzeigenBearbeitenToolStripMenuItem.Text = "Details anzeigen / bearbeiten"
+        '
+        'NeueDefinitionErfassenToolStripMenuItem
+        '
+        Me.NeueDefinitionErfassenToolStripMenuItem.Name = "NeueDefinitionErfassenToolStripMenuItem"
+        Me.NeueDefinitionErfassenToolStripMenuItem.Size = New System.Drawing.Size(245, 22)
+        Me.NeueDefinitionErfassenToolStripMenuItem.Text = "Neuer Assessment-Plan erfassen"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(242, 6)
+        '
+        'VorgabeAnzeigenToolStripMenuItem
+        '
+        Me.VorgabeAnzeigenToolStripMenuItem.Name = "VorgabeAnzeigenToolStripMenuItem"
+        Me.VorgabeAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(245, 22)
+        Me.VorgabeAnzeigenToolStripMenuItem.Text = "Vorgabe anzeigen"
+        '
+        'PrüfschrittGenerierenToolStripMenuItem
+        '
+        Me.PrüfschrittGenerierenToolStripMenuItem.Name = "PrüfschrittGenerierenToolStripMenuItem"
+        Me.PrüfschrittGenerierenToolStripMenuItem.Size = New System.Drawing.Size(245, 22)
+        Me.PrüfschrittGenerierenToolStripMenuItem.Text = "Assessment generieren"
+        '
+        'ToolStrip2
+        '
+        Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnSave, Me.TSBtnAddNew, Me.TSBtnDelete, Me.TSBtnSetSecurityObject, Me.tsbtnReport, Me.tsbtncopy1, Me.tsbtnCopy2, Me.ToolStripButton2})
+        Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip2.Name = "ToolStrip2"
+        Me.ToolStrip2.Size = New System.Drawing.Size(958, 25)
+        Me.ToolStrip2.TabIndex = 10
+        Me.ToolStrip2.Text = "ToolStrip2"
+        '
+        'TSBtnSave
+        '
+        Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
+        Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnSave.Name = "TSBtnSave"
+        Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnSave.Text = "Speichern"
+        Me.TSBtnSave.Visible = False
+        '
+        'TSBtnAddNew
+        '
+        Me.TSBtnAddNew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnAddNew.Image = CType(resources.GetObject("TSBtnAddNew.Image"), System.Drawing.Image)
+        Me.TSBtnAddNew.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnAddNew.Name = "TSBtnAddNew"
+        Me.TSBtnAddNew.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnAddNew.Text = "Neu"
+        '
+        'TSBtnDelete
+        '
+        Me.TSBtnDelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnDelete.Image = CType(resources.GetObject("TSBtnDelete.Image"), System.Drawing.Image)
+        Me.TSBtnDelete.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnDelete.Name = "TSBtnDelete"
+        Me.TSBtnDelete.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnDelete.Text = "Löschen"
+        '
+        'TSBtnSetSecurityObject
+        '
+        Me.TSBtnSetSecurityObject.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnSetSecurityObject.Image = CType(resources.GetObject("TSBtnSetSecurityObject.Image"), System.Drawing.Image)
+        Me.TSBtnSetSecurityObject.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnSetSecurityObject.Name = "TSBtnSetSecurityObject"
+        Me.TSBtnSetSecurityObject.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnSetSecurityObject.Text = "SecurityObjekte generieren"
+        Me.TSBtnSetSecurityObject.Visible = False
+        '
+        'tsbtnReport
+        '
+        Me.tsbtnReport.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnReport.Image = CType(resources.GetObject("tsbtnReport.Image"), System.Drawing.Image)
+        Me.tsbtnReport.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnReport.Name = "tsbtnReport"
+        Me.tsbtnReport.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnReport.Text = "Auswertung"
+        Me.tsbtnReport.Visible = False
+        '
+        'tsbtncopy1
+        '
+        Me.tsbtncopy1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtncopy1.Image = CType(resources.GetObject("tsbtncopy1.Image"), System.Drawing.Image)
+        Me.tsbtncopy1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtncopy1.Name = "tsbtncopy1"
+        Me.tsbtncopy1.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtncopy1.Text = "In Zwischenablage kopieren"
+        Me.tsbtncopy1.Visible = False
+        '
+        'tsbtnCopy2
+        '
+        Me.tsbtnCopy2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnCopy2.Image = CType(resources.GetObject("tsbtnCopy2.Image"), System.Drawing.Image)
+        Me.tsbtnCopy2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnCopy2.Name = "tsbtnCopy2"
+        Me.tsbtnCopy2.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnCopy2.Text = "In Zwischenablage kopieren"
+        Me.tsbtnCopy2.Visible = False
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton2.Text = "Bearbeiten"
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.GrpDokumente)
+        Me.Panel1.Controls.Add(Me.grpDetails)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(958, 404)
+        Me.Panel1.TabIndex = 0
+        '
+        'GrpDokumente
+        '
+        Me.GrpDokumente.Controls.Add(Me.DokumenteAllgemein)
+        Me.GrpDokumente.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GrpDokumente.Location = New System.Drawing.Point(484, 0)
+        Me.GrpDokumente.Name = "GrpDokumente"
+        Me.GrpDokumente.Size = New System.Drawing.Size(474, 404)
+        Me.GrpDokumente.TabIndex = 69
+        Me.GrpDokumente.TabStop = False
+        Me.GrpDokumente.Text = "Dokumente"
+        '
+        'DokumenteAllgemein
+        '
+        Me.DokumenteAllgemein.ConnectionString = Nothing
+        Me.DokumenteAllgemein.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DokumenteAllgemein.Doktype = 0
+        Me.DokumenteAllgemein.Location = New System.Drawing.Point(3, 16)
+        Me.DokumenteAllgemein.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
+        Me.DokumenteAllgemein.Mitarbeiternr = 0
+        Me.DokumenteAllgemein.Name = "DokumenteAllgemein"
+        Me.DokumenteAllgemein.Pruefschrittnr = 0
+        Me.DokumenteAllgemein.Size = New System.Drawing.Size(468, 385)
+        Me.DokumenteAllgemein.TabIndex = 32
+        Me.DokumenteAllgemein.TempFilePath = Nothing
+        Me.DokumenteAllgemein.ThemaNr = 0
+        '
+        'grpDetails
+        '
+        Me.grpDetails.Controls.Add(Me.cbSelbstkontrolle)
+        Me.grpDetails.Controls.Add(Me.cbKeinMail)
+        Me.grpDetails.Controls.Add(Me.lblSelbstkontrolle)
+        Me.grpDetails.Controls.Add(Me.lblKeinMail)
+        Me.grpDetails.Controls.Add(Me.txtVerantwortlichPlan)
+        Me.grpDetails.Controls.Add(Me.lblVerantwortlichPlan)
+        Me.grpDetails.Controls.Add(Me.Label2)
+        Me.grpDetails.Controls.Add(Me.txtGueltigbis)
+        Me.grpDetails.Controls.Add(Me.lblGueltigbis)
+        Me.grpDetails.Controls.Add(Me.txtBezeichnung)
+        Me.grpDetails.Controls.Add(Me.lblBezeichnung)
+        Me.grpDetails.Controls.Add(Me.txtBeschreibung)
+        Me.grpDetails.Controls.Add(Me.lblKontrollaktivität)
+        Me.grpDetails.Controls.Add(Me.txtVerantwortungISI)
+        Me.grpDetails.Controls.Add(Me.txtVerantwortlich)
+        Me.grpDetails.Controls.Add(Me.lblVerantwortlichISI)
+        Me.grpDetails.Controls.Add(Me.lblVerantwortlichDurchführung)
+        Me.grpDetails.Controls.Add(Me.txtZeitpunkt)
+        Me.grpDetails.Controls.Add(Me.lblZeitpunkt)
+        Me.grpDetails.Controls.Add(Me.txtPeriodizitaet)
+        Me.grpDetails.Controls.Add(Me.lblPeriodizitaet)
+        Me.grpDetails.Controls.Add(Me.txtPrioritaet)
+        Me.grpDetails.Controls.Add(Me.lblPrioritaet)
+        Me.grpDetails.Controls.Add(Me.lblPruefgegenstand)
+        Me.grpDetails.Controls.Add(Me.txtPruefgegenstand)
+        Me.grpDetails.Dock = System.Windows.Forms.DockStyle.Left
+        Me.grpDetails.Location = New System.Drawing.Point(0, 0)
+        Me.grpDetails.Name = "grpDetails"
+        Me.grpDetails.Size = New System.Drawing.Size(484, 404)
+        Me.grpDetails.TabIndex = 68
+        Me.grpDetails.TabStop = False
+        Me.grpDetails.Text = "Details"
+        '
+        'cbSelbstkontrolle
+        '
+        Me.cbSelbstkontrolle.AutoSize = True
+        Me.cbSelbstkontrolle.Enabled = False
+        Me.cbSelbstkontrolle.Location = New System.Drawing.Point(316, 281)
+        Me.cbSelbstkontrolle.Name = "cbSelbstkontrolle"
+        Me.cbSelbstkontrolle.Size = New System.Drawing.Size(15, 14)
+        Me.cbSelbstkontrolle.TabIndex = 91
+        Me.cbSelbstkontrolle.UseVisualStyleBackColor = True
+        '
+        'cbKeinMail
+        '
+        Me.cbKeinMail.AutoSize = True
+        Me.cbKeinMail.Enabled = False
+        Me.cbKeinMail.Location = New System.Drawing.Point(106, 280)
+        Me.cbKeinMail.Name = "cbKeinMail"
+        Me.cbKeinMail.Size = New System.Drawing.Size(15, 14)
+        Me.cbKeinMail.TabIndex = 90
+        Me.cbKeinMail.UseVisualStyleBackColor = True
+        '
+        'lblSelbstkontrolle
+        '
+        Me.lblSelbstkontrolle.AutoSize = True
+        Me.lblSelbstkontrolle.Location = New System.Drawing.Point(229, 281)
+        Me.lblSelbstkontrolle.Name = "lblSelbstkontrolle"
+        Me.lblSelbstkontrolle.Size = New System.Drawing.Size(76, 13)
+        Me.lblSelbstkontrolle.TabIndex = 89
+        Me.lblSelbstkontrolle.Text = "Selbstkontrolle"
+        '
+        'lblKeinMail
+        '
+        Me.lblKeinMail.AutoSize = True
+        Me.lblKeinMail.Location = New System.Drawing.Point(7, 281)
+        Me.lblKeinMail.Name = "lblKeinMail"
+        Me.lblKeinMail.Size = New System.Drawing.Size(50, 13)
+        Me.lblKeinMail.TabIndex = 88
+        Me.lblKeinMail.Text = "Kein Mail"
+        '
+        'txtVerantwortlichPlan
+        '
+        Me.txtVerantwortlichPlan.Location = New System.Drawing.Point(316, 204)
+        Me.txtVerantwortlichPlan.Name = "txtVerantwortlichPlan"
+        Me.txtVerantwortlichPlan.ReadOnly = True
+        Me.txtVerantwortlichPlan.Size = New System.Drawing.Size(125, 20)
+        Me.txtVerantwortlichPlan.TabIndex = 87
+        '
+        'lblVerantwortlichPlan
+        '
+        Me.lblVerantwortlichPlan.AutoSize = True
+        Me.lblVerantwortlichPlan.Location = New System.Drawing.Point(229, 207)
+        Me.lblVerantwortlichPlan.Name = "lblVerantwortlichPlan"
+        Me.lblVerantwortlichPlan.Size = New System.Drawing.Size(28, 13)
+        Me.lblVerantwortlichPlan.TabIndex = 86
+        Me.lblVerantwortlichPlan.Text = "Plan"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(229, 181)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(74, 13)
+        Me.Label2.TabIndex = 85
+        Me.Label2.Text = "Verantwortlich"
+        '
+        'txtGueltigbis
+        '
+        Me.txtGueltigbis.Location = New System.Drawing.Point(106, 253)
+        Me.txtGueltigbis.Name = "txtGueltigbis"
+        Me.txtGueltigbis.ReadOnly = True
+        Me.txtGueltigbis.Size = New System.Drawing.Size(103, 20)
+        Me.txtGueltigbis.TabIndex = 84
+        '
+        'lblGueltigbis
+        '
+        Me.lblGueltigbis.AutoSize = True
+        Me.lblGueltigbis.Location = New System.Drawing.Point(9, 256)
+        Me.lblGueltigbis.Name = "lblGueltigbis"
+        Me.lblGueltigbis.Size = New System.Drawing.Size(50, 13)
+        Me.lblGueltigbis.TabIndex = 83
+        Me.lblGueltigbis.Text = "Gültig bis"
+        '
+        'txtBezeichnung
+        '
+        Me.txtBezeichnung.Location = New System.Drawing.Point(106, 13)
+        Me.txtBezeichnung.Name = "txtBezeichnung"
+        Me.txtBezeichnung.ReadOnly = True
+        Me.txtBezeichnung.Size = New System.Drawing.Size(354, 20)
+        Me.txtBezeichnung.TabIndex = 82
+        '
+        'lblBezeichnung
+        '
+        Me.lblBezeichnung.AutoSize = True
+        Me.lblBezeichnung.Location = New System.Drawing.Point(7, 16)
+        Me.lblBezeichnung.Name = "lblBezeichnung"
+        Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
+        Me.lblBezeichnung.TabIndex = 81
+        Me.lblBezeichnung.Text = "Bezeichnung"
+        '
+        'txtBeschreibung
+        '
+        Me.txtBeschreibung.Location = New System.Drawing.Point(106, 45)
+        Me.txtBeschreibung.Multiline = True
+        Me.txtBeschreibung.Name = "txtBeschreibung"
+        Me.txtBeschreibung.ReadOnly = True
+        Me.txtBeschreibung.Size = New System.Drawing.Size(355, 59)
+        Me.txtBeschreibung.TabIndex = 80
+        '
+        'lblKontrollaktivität
+        '
+        Me.lblKontrollaktivität.AutoSize = True
+        Me.lblKontrollaktivität.Location = New System.Drawing.Point(7, 45)
+        Me.lblKontrollaktivität.Name = "lblKontrollaktivität"
+        Me.lblKontrollaktivität.Size = New System.Drawing.Size(72, 13)
+        Me.lblKontrollaktivität.TabIndex = 79
+        Me.lblKontrollaktivität.Text = "Beschreibung"
+        '
+        'txtVerantwortungISI
+        '
+        Me.txtVerantwortungISI.Location = New System.Drawing.Point(316, 253)
+        Me.txtVerantwortungISI.Name = "txtVerantwortungISI"
+        Me.txtVerantwortungISI.ReadOnly = True
+        Me.txtVerantwortungISI.Size = New System.Drawing.Size(125, 20)
+        Me.txtVerantwortungISI.TabIndex = 78
+        '
+        'txtVerantwortlich
+        '
+        Me.txtVerantwortlich.Location = New System.Drawing.Point(316, 228)
+        Me.txtVerantwortlich.Name = "txtVerantwortlich"
+        Me.txtVerantwortlich.ReadOnly = True
+        Me.txtVerantwortlich.Size = New System.Drawing.Size(125, 20)
+        Me.txtVerantwortlich.TabIndex = 77
+        '
+        'lblVerantwortlichISI
+        '
+        Me.lblVerantwortlichISI.AutoSize = True
+        Me.lblVerantwortlichISI.Location = New System.Drawing.Point(229, 256)
+        Me.lblVerantwortlichISI.Name = "lblVerantwortlichISI"
+        Me.lblVerantwortlichISI.Size = New System.Drawing.Size(48, 13)
+        Me.lblVerantwortlichISI.TabIndex = 76
+        Me.lblVerantwortlichISI.Text = "Kontrolle"
+        '
+        'lblVerantwortlichDurchführung
+        '
+        Me.lblVerantwortlichDurchführung.AutoSize = True
+        Me.lblVerantwortlichDurchführung.Location = New System.Drawing.Point(229, 231)
+        Me.lblVerantwortlichDurchführung.Name = "lblVerantwortlichDurchführung"
+        Me.lblVerantwortlichDurchführung.Size = New System.Drawing.Size(72, 13)
+        Me.lblVerantwortlichDurchführung.TabIndex = 75
+        Me.lblVerantwortlichDurchführung.Text = "Durchführung"
+        '
+        'txtZeitpunkt
+        '
+        Me.txtZeitpunkt.Location = New System.Drawing.Point(106, 178)
+        Me.txtZeitpunkt.Name = "txtZeitpunkt"
+        Me.txtZeitpunkt.ReadOnly = True
+        Me.txtZeitpunkt.Size = New System.Drawing.Size(103, 20)
+        Me.txtZeitpunkt.TabIndex = 74
+        '
+        'lblZeitpunkt
+        '
+        Me.lblZeitpunkt.AutoSize = True
+        Me.lblZeitpunkt.Location = New System.Drawing.Point(7, 181)
+        Me.lblZeitpunkt.Name = "lblZeitpunkt"
+        Me.lblZeitpunkt.Size = New System.Drawing.Size(52, 13)
+        Me.lblZeitpunkt.TabIndex = 73
+        Me.lblZeitpunkt.Text = "Zeitpunkt"
+        '
+        'txtPeriodizitaet
+        '
+        Me.txtPeriodizitaet.Location = New System.Drawing.Point(106, 228)
+        Me.txtPeriodizitaet.Name = "txtPeriodizitaet"
+        Me.txtPeriodizitaet.ReadOnly = True
+        Me.txtPeriodizitaet.Size = New System.Drawing.Size(103, 20)
+        Me.txtPeriodizitaet.TabIndex = 72
+        '
+        'lblPeriodizitaet
+        '
+        Me.lblPeriodizitaet.AutoSize = True
+        Me.lblPeriodizitaet.Location = New System.Drawing.Point(8, 231)
+        Me.lblPeriodizitaet.Name = "lblPeriodizitaet"
+        Me.lblPeriodizitaet.Size = New System.Drawing.Size(58, 13)
+        Me.lblPeriodizitaet.TabIndex = 71
+        Me.lblPeriodizitaet.Text = "Periodizität"
+        '
+        'txtPrioritaet
+        '
+        Me.txtPrioritaet.Location = New System.Drawing.Point(106, 204)
+        Me.txtPrioritaet.Name = "txtPrioritaet"
+        Me.txtPrioritaet.ReadOnly = True
+        Me.txtPrioritaet.Size = New System.Drawing.Size(103, 20)
+        Me.txtPrioritaet.TabIndex = 70
+        '
+        'lblPrioritaet
+        '
+        Me.lblPrioritaet.AutoSize = True
+        Me.lblPrioritaet.Location = New System.Drawing.Point(7, 207)
+        Me.lblPrioritaet.Name = "lblPrioritaet"
+        Me.lblPrioritaet.Size = New System.Drawing.Size(42, 13)
+        Me.lblPrioritaet.TabIndex = 69
+        Me.lblPrioritaet.Text = "Priorität"
+        '
+        'lblPruefgegenstand
+        '
+        Me.lblPruefgegenstand.AutoSize = True
+        Me.lblPruefgegenstand.Location = New System.Drawing.Point(7, 110)
+        Me.lblPruefgegenstand.Name = "lblPruefgegenstand"
+        Me.lblPruefgegenstand.Size = New System.Drawing.Size(82, 13)
+        Me.lblPruefgegenstand.TabIndex = 68
+        Me.lblPruefgegenstand.Text = "Prüfgegenstand"
+        '
+        'txtPruefgegenstand
+        '
+        Me.txtPruefgegenstand.Location = New System.Drawing.Point(106, 110)
+        Me.txtPruefgegenstand.Multiline = True
+        Me.txtPruefgegenstand.Name = "txtPruefgegenstand"
+        Me.txtPruefgegenstand.ReadOnly = True
+        Me.txtPruefgegenstand.Size = New System.Drawing.Size(355, 59)
+        Me.txtPruefgegenstand.TabIndex = 66
+        '
+        'ElementStyle1
+        '
+        Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.ElementStyle1.Name = "ElementStyle1"
+        Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "No Title #6.png")
+        Me.ImageList1.Images.SetKeyName(1, "Abort.png")
+        Me.ImageList1.Images.SetKeyName(2, "Stop.png")
+        Me.ImageList1.Images.SetKeyName(3, "Restore.png")
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(32, 32)
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DefinitionAnzeigenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(177, 26)
+        '
+        'DefinitionAnzeigenToolStripMenuItem
+        '
+        Me.DefinitionAnzeigenToolStripMenuItem.Name = "DefinitionAnzeigenToolStripMenuItem"
+        Me.DefinitionAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.DefinitionAnzeigenToolStripMenuItem.Text = "Definition anzeigen"
+        '
+        'frmPPlan
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(958, 672)
+        Me.Controls.Add(Me.SplitContainer1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmPPlan"
+        Me.Text = "Assessment-Plan"
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.PerformLayout()
+        Me.SplitContainer1.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ctxMenuDetails.ResumeLayout(False)
+        Me.ToolStrip2.ResumeLayout(False)
+        Me.ToolStrip2.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        Me.GrpDokumente.ResumeLayout(False)
+        Me.grpDetails.ResumeLayout(False)
+        Me.grpDetails.PerformLayout()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
+    Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents ctxMenuDetails As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents DetailsAnzeigenBearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents NeueDefinitionErfassenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
+    Friend WithEvents txtPruefgegenstand As TextBox
+    Friend WithEvents lblPruefgegenstand As Label
+    Friend WithEvents lblPrioritaet As Label
+    Friend WithEvents txtPrioritaet As TextBox
+    Friend WithEvents lblPeriodizitaet As Label
+    Friend WithEvents txtPeriodizitaet As TextBox
+    Friend WithEvents lblZeitpunkt As Label
+    Friend WithEvents txtZeitpunkt As TextBox
+    Friend WithEvents lblVerantwortlichDurchführung As Label
+    Friend WithEvents lblVerantwortlichISI As Label
+    Friend WithEvents txtVerantwortlich As TextBox
+    Friend WithEvents txtVerantwortungISI As TextBox
+    Friend WithEvents lblKontrollaktivität As Label
+    Friend WithEvents txtBeschreibung As TextBox
+    Friend WithEvents grpDetails As GroupBox
+    Friend WithEvents DokumenteAllgemein As ThemenDokumente.Dokumente
+    Friend WithEvents GrpDokumente As GroupBox
+    Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents ToolStripButton2 As ToolStripButton
+    Friend WithEvents tsbtnCopy2 As ToolStripButton
+    Friend WithEvents tsbtncopy1 As ToolStripButton
+    Friend WithEvents tsbtnReport As ToolStripButton
+    Friend WithEvents TSBtnSetSecurityObject As ToolStripButton
+    Friend WithEvents TSBtnDelete As ToolStripButton
+    Friend WithEvents TSBtnAddNew As ToolStripButton
+    Friend WithEvents TSBtnSave As ToolStripButton
+    Friend WithEvents ToolStrip2 As ToolStrip
+    Friend WithEvents ImageList1 As ImageList
+    Friend WithEvents lblSearchStruktur_Definition As ToolStripLabel
+    Friend WithEvents ToolStripButton3 As ToolStripButton
+    Friend WithEvents tsTxtSearch As ToolStripTextBox
+    Friend WithEvents tsBtnSearchStruktur_Definition As ToolStripButton
+    Friend WithEvents tsbtnFilterAufheben As ToolStripButton
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents DefinitionAnzeigenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
+    Friend WithEvents VorgabeAnzeigenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents txtBezeichnung As TextBox
+    Friend WithEvents lblBezeichnung As Label
+    Friend WithEvents txtGueltigbis As TextBox
+    Friend WithEvents lblGueltigbis As Label
+    Friend WithEvents PrüfschrittGenerierenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Label2 As Label
+    Friend WithEvents txtVerantwortlichPlan As TextBox
+    Friend WithEvents lblVerantwortlichPlan As Label
+    Friend WithEvents cbSelbstkontrolle As CheckBox
+    Friend WithEvents cbKeinMail As CheckBox
+    Friend WithEvents lblSelbstkontrolle As Label
+    Friend WithEvents lblKeinMail As Label
+End Class

.svn/pristine/fd/fd904f70aa126ab2fa78fa9d48e26bfe2958b6de.svn-base

@@ -0,0 +1,297 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmKategorie
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKategorie))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.lblBezeichnung = New System.Windows.Forms.Label()
+        Me.txtKategorie = New System.Windows.Forms.TextBox()
+        Me.lblBeschreibung = New System.Windows.Forms.Label()
+        Me.txtBeschreibung = New System.Windows.Forms.TextBox()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.lblkategorie1 = New System.Windows.Forms.Label()
+        Me.lblkategorie2 = New System.Windows.Forms.Label()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.btnAbbruch = New System.Windows.Forms.Button()
+        Me.txtStrukturNr = New System.Windows.Forms.TextBox()
+        Me.lblStrukturNr = New System.Windows.Forms.Label()
+        Me.TreeKategorie = New DevComponents.AdvTree.AdvTree()
+        Me.Node1 = New DevComponents.AdvTree.Node()
+        Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
+        Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
+        Me.chkroot = New System.Windows.Forms.CheckBox()
+        Me.ToolStrip1.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
+        CType(Me.TreeKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(466, 25)
+        Me.ToolStrip1.TabIndex = 6
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "ToolStripButton1"
+        Me.ToolStripButton1.ToolTipText = "Neue Kategorie"
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(466, 24)
+        Me.MenuStrip1.TabIndex = 5
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'DateiToolStripMenuItem
+        '
+        Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
+        Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Text = "&Datei"
+        '
+        'BeendenToolStripMenuItem
+        '
+        Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
+        Me.BeendenToolStripMenuItem.Text = "&Schliessen"
+        '
+        'lblBezeichnung
+        '
+        Me.lblBezeichnung.AutoSize = True
+        Me.lblBezeichnung.Location = New System.Drawing.Point(22, 88)
+        Me.lblBezeichnung.Name = "lblBezeichnung"
+        Me.lblBezeichnung.Size = New System.Drawing.Size(52, 13)
+        Me.lblBezeichnung.TabIndex = 7
+        Me.lblBezeichnung.Text = "Kategorie"
+        '
+        'txtKategorie
+        '
+        Me.txtKategorie.Location = New System.Drawing.Point(97, 85)
+        Me.txtKategorie.Name = "txtKategorie"
+        Me.txtKategorie.Size = New System.Drawing.Size(349, 20)
+        Me.txtKategorie.TabIndex = 1
+        '
+        'lblBeschreibung
+        '
+        Me.lblBeschreibung.AutoSize = True
+        Me.lblBeschreibung.Location = New System.Drawing.Point(22, 111)
+        Me.lblBeschreibung.Name = "lblBeschreibung"
+        Me.lblBeschreibung.Size = New System.Drawing.Size(69, 13)
+        Me.lblBeschreibung.TabIndex = 9
+        Me.lblBeschreibung.Text = "Bezeichnung"
+        '
+        'txtBeschreibung
+        '
+        Me.txtBeschreibung.Location = New System.Drawing.Point(97, 111)
+        Me.txtBeschreibung.Multiline = True
+        Me.txtBeschreibung.Name = "txtBeschreibung"
+        Me.txtBeschreibung.Size = New System.Drawing.Size(349, 84)
+        Me.txtBeschreibung.TabIndex = 2
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "Finma.jpg")
+        '
+        'lblkategorie1
+        '
+        Me.lblkategorie1.AutoSize = True
+        Me.lblkategorie1.Location = New System.Drawing.Point(22, 201)
+        Me.lblkategorie1.Name = "lblkategorie1"
+        Me.lblkategorie1.Size = New System.Drawing.Size(41, 13)
+        Me.lblkategorie1.TabIndex = 12
+        Me.lblkategorie1.Text = "Parent-"
+        '
+        'lblkategorie2
+        '
+        Me.lblkategorie2.AutoSize = True
+        Me.lblkategorie2.Location = New System.Drawing.Point(22, 214)
+        Me.lblkategorie2.Name = "lblkategorie2"
+        Me.lblkategorie2.Size = New System.Drawing.Size(45, 13)
+        Me.lblkategorie2.TabIndex = 13
+        Me.lblkategorie2.Text = "Element"
+        '
+        'btnSave
+        '
+        Me.btnSave.Location = New System.Drawing.Point(96, 549)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(75, 23)
+        Me.btnSave.TabIndex = 5
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'btnAbbruch
+        '
+        Me.btnAbbruch.Location = New System.Drawing.Point(371, 549)
+        Me.btnAbbruch.Name = "btnAbbruch"
+        Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
+        Me.btnAbbruch.TabIndex = 6
+        Me.btnAbbruch.Text = "Abbruch"
+        Me.btnAbbruch.UseVisualStyleBackColor = True
+        '
+        'txtStrukturNr
+        '
+        Me.txtStrukturNr.Location = New System.Drawing.Point(96, 59)
+        Me.txtStrukturNr.Name = "txtStrukturNr"
+        Me.txtStrukturNr.Size = New System.Drawing.Size(99, 20)
+        Me.txtStrukturNr.TabIndex = 0
+        '
+        'lblStrukturNr
+        '
+        Me.lblStrukturNr.AutoSize = True
+        Me.lblStrukturNr.Location = New System.Drawing.Point(22, 62)
+        Me.lblStrukturNr.Name = "lblStrukturNr"
+        Me.lblStrukturNr.Size = New System.Drawing.Size(68, 13)
+        Me.lblStrukturNr.TabIndex = 17
+        Me.lblStrukturNr.Text = "Kat.-Nummer"
+        '
+        'TreeKategorie
+        '
+        Me.TreeKategorie.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
+        Me.TreeKategorie.AllowDrop = True
+        Me.TreeKategorie.BackColor = System.Drawing.SystemColors.Window
+        '
+        '
+        '
+        Me.TreeKategorie.BackgroundStyle.Class = "TreeBorderKey"
+        Me.TreeKategorie.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.TreeKategorie.ImageList = Me.ImageList1
+        Me.TreeKategorie.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
+        Me.TreeKategorie.Location = New System.Drawing.Point(97, 201)
+        Me.TreeKategorie.Name = "TreeKategorie"
+        Me.TreeKategorie.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
+        Me.TreeKategorie.NodesConnector = Me.NodeConnector1
+        Me.TreeKategorie.NodeStyle = Me.ElementStyle1
+        Me.TreeKategorie.PathSeparator = ";"
+        Me.TreeKategorie.Size = New System.Drawing.Size(349, 296)
+        Me.TreeKategorie.Styles.Add(Me.ElementStyle1)
+        Me.TreeKategorie.TabIndex = 3
+        Me.TreeKategorie.Text = "AdvTree1"
+        '
+        'Node1
+        '
+        Me.Node1.Expanded = True
+        Me.Node1.Name = "Node1"
+        Me.Node1.Text = "Node1"
+        '
+        'NodeConnector1
+        '
+        Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
+        '
+        'ElementStyle1
+        '
+        Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.ElementStyle1.Name = "ElementStyle1"
+        Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
+        '
+        'chkroot
+        '
+        Me.chkroot.AutoSize = True
+        Me.chkroot.Location = New System.Drawing.Point(97, 503)
+        Me.chkroot.Name = "chkroot"
+        Me.chkroot.Size = New System.Drawing.Size(156, 17)
+        Me.chkroot.TabIndex = 4
+        Me.chkroot.Text = "Struktur auf oberster Ebene"
+        Me.chkroot.UseVisualStyleBackColor = True
+        '
+        'frmKategorie
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(466, 584)
+        Me.Controls.Add(Me.chkroot)
+        Me.Controls.Add(Me.TreeKategorie)
+        Me.Controls.Add(Me.txtStrukturNr)
+        Me.Controls.Add(Me.lblStrukturNr)
+        Me.Controls.Add(Me.btnAbbruch)
+        Me.Controls.Add(Me.btnSave)
+        Me.Controls.Add(Me.lblkategorie2)
+        Me.Controls.Add(Me.lblkategorie1)
+        Me.Controls.Add(Me.txtBeschreibung)
+        Me.Controls.Add(Me.lblBeschreibung)
+        Me.Controls.Add(Me.txtKategorie)
+        Me.Controls.Add(Me.lblBezeichnung)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Name = "frmKategorie"
+        Me.Text = "Kategorie"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        CType(Me.TreeKategorie, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
+    Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents lblBezeichnung As System.Windows.Forms.Label
+    Friend WithEvents txtKategorie As System.Windows.Forms.TextBox
+    Friend WithEvents lblBeschreibung As System.Windows.Forms.Label
+    Friend WithEvents txtBeschreibung As System.Windows.Forms.TextBox
+    Friend WithEvents lblkategorie1 As System.Windows.Forms.Label
+    Friend WithEvents lblkategorie2 As System.Windows.Forms.Label
+    Friend WithEvents btnSave As System.Windows.Forms.Button
+    Friend WithEvents btnAbbruch As System.Windows.Forms.Button
+    Friend WithEvents txtStrukturNr As System.Windows.Forms.TextBox
+    Friend WithEvents lblStrukturNr As System.Windows.Forms.Label
+    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+    Friend WithEvents TreeKategorie As DevComponents.AdvTree.AdvTree
+    Friend WithEvents Node1 As DevComponents.AdvTree.Node
+    Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
+    Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
+    Friend WithEvents chkroot As System.Windows.Forms.CheckBox
+End Class

.svn/pristine/fd/fdc9797419b6ce0e91ca192735da12eb13424bb9.svn-base

@@ -0,0 +1,431 @@
+Imports C1.Win.C1TrueDBGrid
+Imports System
+Imports System.IO
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports System.Diagnostics
+
+'
+Namespace Utils
+    ''' <summary>
+    ''' Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank
+    ''' </summary>
+    ''' <remarks>
+    ''' Es werden folgende Datebanktabellen berücksichtigt:
+    ''' <list type="bullet">
+    ''' <item>
+    ''' <description>Dokument Attribut DocImage</description></item>
+    ''' <item>
+    ''' <description>Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der  
+    ''' Vertragsübersicht|Vertragselemente</description></item></list>
+    ''' </remarks>
+    ''' <includesource>yes</includesource>
+    Public Class MyDocMgmt
+        ''' <summary>
+        ''' Grid-Layoutfile speichern
+        ''' </summary>
+        ''' <param name="c1data">C1Truedbgrind, von welchem das Layout gespeichert werden soll</param>
+        ''' <param name="GriddNo">Nummer des Grids: 1=Vertragsübersicht...</param>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Save_LayoutFile(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
+            Dim filename As String = Globals.TmpFilepath(+Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt")
+            c1data.SaveLayout(filename)
+
+            Dim Connection As New SqlConnection()
+            Dim DA As New SqlDataAdapter("select * from profil where profilnr = " & Str(Profilnr), Connection)
+            'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
+            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+            Dim ds As New DataSet()
+            Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
+            Dim mydata(fs.Length) As Byte
+            fs.Read(mydata, 0, fs.Length)
+            fs.Close()
+            Try
+                Connection.ConnectionString = Globals.sConnectionString
+                Connection.Open()
+                DA.Fill(ds, "profil")
+                Dim myRow As DataRow
+                If ds.Tables(0).Rows.Count = 0 Then
+                    ' Neues Profil sepeichern
+                    myRow = ds.Tables(0).NewRow
+                    myRow.Item(1) = Globals.Mitarbeiternr
+                    myRow.Item(2) = ""
+                    Select Case GridNo
+                        Case 1
+                            myRow.Item(3) = mydata
+                    End Select
+                    ds.Tables(0).Rows.Add(myRow)
+                    DA.Update(ds, "profil")
+                Else
+                    myRow = ds.Tables(0).Rows(0)
+                    Select Case GridNo
+                        Case 1
+                            myRow.Item(3) = mydata
+                    End Select
+                    DA.Update(ds, "profil")
+                End If
+            Catch ex As Exception
+                MsgBox(ex.Message)
+                Return False
+            End Try
+            fs = Nothing
+            cb = Nothing
+            ds = Nothing
+            DA = Nothing
+            Connection.Close()
+            Connection = Nothing
+            Return True
+
+        End Function
+
+        Private Function Get_Layoutfile_from_db(ByVal filename As String, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
+            'Exit Function
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("Select * From profil where profilnr=" & Str(Profilnr), connection)
+            'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
+            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
+            Dim ds As New DataSet()
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.Fill(ds, "docs")
+                Dim myRow As DataRow
+                myRow = ds.Tables(0).Rows(0)
+                Dim MyData() As Byte
+                Select Case GridNo
+                    Case 1
+                        MyData = myRow.Item(3)
+
+                End Select
+
+                Dim K As Long
+                K = UBound(MyData)
+                Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
+                fs.Write(MyData, 0, K)
+                fs.Close()
+                fs = Nothing
+                Return True
+            Catch ex As Exception
+                Return False
+            End Try
+            CB = Nothing
+            ds = Nothing
+            da = Nothing
+            connection.Close()
+            connection = Nothing
+            Return True
+        End Function
+
+        Public Function Get_Layout(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
+            Dim filename As String = Globals.TmpFilepath + Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt"
+            If File.Exists(filename) Then
+                c1data.LoadLayout(filename)
+                Return True
+            End If
+            If Get_Layoutfile_from_db(filename, GridNo, Profilnr) Then
+                c1data.LoadLayout(filename)
+                Return True
+            End If
+            Return False
+        End Function
+
+        ''' <summary>
+        ''' Dokument in der Tabelle Dokument speichern
+        ''' </summary>
+        ''' <param name="Dokumentnr">Nummer des Dokument-Datensatzes</param>
+        ''' <param name="Filename">Zu speichender Dateiname</param>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+
+        Public Function Save_Document(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
+            Dim Connection As New SqlConnection()
+            Dim DA As New SqlDataAdapter("select * from dokument where dokumentnr =" + Str(Dokumentnr), Connection)
+            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+            Dim ds As New DataSet()
+            Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
+            Dim mydata(fs.Length) As Byte
+            fs.Read(mydata, 0, fs.Length)
+            fs.Close()
+            Try
+                Connection.ConnectionString = Globals.sConnectionString
+                Connection.Open()
+                DA.Fill(ds, "Dokument")
+                Dim myRow As DataRow
+                If ds.Tables(0).Rows.Count = 0 Then
+                    Return False
+                Else
+                    myRow = ds.Tables(0).Rows(0)
+                    myRow.Item(16) = mydata
+                    DA.Update(ds, "Dokument")
+                End If
+            Catch ex As Exception
+                MsgBox(ex.Message)
+                Return False
+            End Try
+            fs = Nothing
+            cb = Nothing
+            ds = Nothing
+            DA = Nothing
+            Connection.Close()
+            Connection = Nothing
+            Return True
+        End Function
+
+        ''' <summary>
+        ''' Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab
+        ''' </summary>
+        ''' <param name="DokumentNr"></param>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Dokument(ByVal DokumentNr As Integer) As String
+            Dim Filename As String = Globals.TmpFilepath
+            If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
+
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("Select * From Dokument where DokumentNr=" + Str(DokumentNr), connection)
+            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
+            Dim ds As New DataSet()
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.Fill(ds, "Dokument")
+                Dim myRow As DataRow
+                myRow = ds.Tables(0).Rows(0)
+                Select Case myRow.Item("Speichertypnr")
+                    Case 1
+                        Dim MyData() As Byte
+                        MyData = myRow.Item(16)
+
+                        Dim K As Long
+                        K = UBound(MyData)
+                        Filename = Filename + myRow.Item(6)
+                        Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
+                        fs.Write(MyData, 0, K)
+                        fs.Close()
+                        fs = Nothing
+                    Case 2
+                        Filename = myRow.Item("OriginalFilename_incl_Path")
+                    Case 3
+                        Filename = myRow.Item("OriginalFilename_incl_Path")
+                    Case Else
+                        Filename = myRow.Item("OriginalFilename_incl_Path")
+                End Select
+                
+            Catch ex As Exception
+                ''MsgBox(ex.Message, MsgBoxStyle.Critical)
+                Return ""
+            Finally
+                connection.Close()
+                connection = Nothing
+            End Try
+            CB = Nothing
+            ds = Nothing
+            da = Nothing
+            Return Filename
+        End Function
+
+        Public Function Show_Document(ByVal Dokumentnr As Integer) As Boolean
+            Dim tmpfilename As String = ""
+            Try
+                tmpfilename = Me.Get_Dokument(Dokumentnr)
+            Catch
+                Return False
+            End Try
+
+            If tmpfilename <> "" Then
+                    OpenSystemFile(tmpfilename)
+                    Return True
+                End If
+                Return False
+        End Function
+
+        Public Function OpenSystemFile(ByVal sFileName As String) As Boolean
+            If Len(sFileName) > 0 Then
+                System.Diagnostics.Process.Start(sFileName)
+                '
+                '               ShellExecute(GetDesktopWindow(), vbNullString, sFileName, vbNullString, vbNullString, vbNormalFocus)
+                Return True
+            End If
+        End Function
+
+        Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal AuswertungName As String) As String
+            Dim filename As String = AuswertungName
+            Dim Connection As New SqlConnection()
+            Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), Connection)
+            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+            Dim ds As New DataSet()
+            Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
+            Dim mydata(fs.Length) As Byte
+            fs.Read(mydata, 0, fs.Length)
+            fs.Close()
+            Try
+                Connection.ConnectionString = Globals.sConnectionString
+                Connection.Open()
+                DA.Fill(ds, "RptFile")
+                Dim myRow As DataRow
+                If ds.Tables(0).Rows.Count = 0 Then
+                    ' Neues Datei speichern
+                    myRow = ds.Tables(0).NewRow
+                    myRow.Item(0) = Auswertungnr
+                    myRow.Item(1) = AuswertungName
+                    myRow.Item(2) = RptName(AuswertungName)
+                    myRow.Item(3) = mydata
+                    myRow.Item(4) = Now
+                    myRow.Item(5) = Now
+                    myRow.Item(6) = Globals.Mitarbeiternr
+                    ds.Tables(0).Rows.Add(myRow)
+                    DA.Update(ds, "RptFile")
+                Else
+                    myRow = ds.Tables(0).Rows(0)
+                    myRow.Item(1) = AuswertungName
+                    myRow.Item(2) = RptName(AuswertungName)
+                    myRow.Item(3) = mydata
+                    myRow.Item(5) = Now
+                    myRow.Item(6) = Globals.Mitarbeiternr
+                    DA.Update(ds, "RptFile")
+                End If
+            Catch ex As Exception
+                MsgBox(ex.Message)
+                Return False
+            End Try
+            fs = Nothing
+            cb = Nothing
+            ds = Nothing
+            DA = Nothing
+            Connection.Close()
+            Connection = Nothing
+            Return RptName(AuswertungName)
+        End Function
+
+        Public Function RptName(ByVal path As String) As String
+            Dim i As Integer
+            Dim file As String = path
+            i = InStrRev(file.Trim, "\")
+            If i = 0 Then
+                Return file.Trim
+            Else
+                Return Right(file.Trim, Len(file.Trim) - i)
+            End If
+        End Function
+
+        Public Function Get_RptDatei(ByVal Auswertungnr As String, Optional ByVal fname As String = "") As String
+            Dim connection As New SqlConnection()
+            Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), connection)
+            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
+            Dim ds As New DataSet()
+            Dim Filename As String = ""
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                DA.Fill(ds, "RptFile")
+                Dim myRow As DataRow
+                myRow = ds.Tables(0).Rows(0)
+                Dim MyData() As Byte
+                Filename = Globals.TmpFilepath + "\" + myRow.Item(2).ToString
+                If fname <> "" Then
+                    Filename = fname
+                End If
+                MyData = myRow.Item(3)
+                Dim K As Long
+                K = UBound(MyData)
+                Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
+                fs.Write(MyData, 0, K)
+                fs.Close()
+                fs = Nothing
+            Catch ex As Exception
+                Return ""
+            End Try
+            CB = Nothing
+            ds = Nothing
+            DA = Nothing
+            connection.Close()
+            connection = Nothing
+            Return Filename
+        End Function
+
+        Public Function Save_Architekturfile(ByVal Applikationnr As Integer, ByVal iFilename As String)
+            Dim filename As String = iFilename
+            Dim Connection As New SqlConnection()
+            Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), Connection)
+            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+            Dim ds As New DataSet()
+            Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
+            Dim mydata(fs.Length) As Byte
+            fs.Read(mydata, 0, fs.Length)
+            fs.Close()
+            Try
+                Connection.ConnectionString = Globals.sConnectionString
+                Connection.Open()
+                DA.Fill(ds, "RptFile")
+                Dim myRow As DataRow
+                If ds.Tables(0).Rows.Count = 0 Then
+                    ' Neues Datei speichern
+                    myRow = ds.Tables(0).NewRow
+                    myRow.Item(0) = Applikationnr
+                    myRow.Item(1) = mydata
+                    '                    myRow.Item(4) = Now
+                    '                   myRow.Item(5) = Now
+                    '                  myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
+                    ds.Tables(0).Rows.Add(myRow)
+                    DA.Update(ds, "RptFile")
+                Else
+                    myRow = ds.Tables(0).Rows(0)
+                    myRow.Item(1) = mydata
+                    '                    myRow.Item(2) = RptName(AuswertungName)
+                    '                   myRow.Item(3) = mydata
+                    '                  myRow.Item(5) = Now
+                    '                 myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
+                    DA.Update(ds, "RptFile")
+                End If
+            Catch ex As Exception
+                MsgBox(ex.Message)
+                Return False
+            End Try
+            fs = Nothing
+            cb = Nothing
+            ds = Nothing
+            DA = Nothing
+            Connection.Close()
+            Connection = Nothing
+        End Function
+
+        Public Function Get_Architekturfile(ByVal Applikationnr As String, Optional ByVal fname As String = "") As String
+            Dim connection As New SqlConnection()
+            Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), connection)
+            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
+            Dim ds As New DataSet()
+            Dim Filename As String = ""
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                DA.Fill(ds, "RptFile")
+                Dim myRow As DataRow
+                myRow = ds.Tables(0).Rows(0)
+                Dim MyData() As Byte
+                Filename = Globals.TmpFilepath + "\architekturfile.xml"
+                If fname <> "" Then
+                    Filename = fname
+                End If
+                MyData = myRow.Item(1)
+                Dim K As Long
+                K = UBound(MyData)
+                Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
+                fs.Write(MyData, 0, K)
+                fs.Close()
+                fs = Nothing
+            Catch ex As Exception
+                Return ""
+            End Try
+            CB = Nothing
+            ds = Nothing
+            DA = Nothing
+            connection.Close()
+            connection = Nothing
+            Return Filename
+        End Function
+
+    End Class
+
+End Namespace