Initial commit

.svn/pristine/a7/a709d91dcdab0153a36ac74e95e41fc8637f4cfd.svn-base

@@ -0,0 +1,692 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMassnahmeplan
+    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(frmMassnahmeplan))
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.NeuAnmeldenToolStripMenuItem = 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.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.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.Label1 = New System.Windows.Forms.Label()
+        Me.lblVerantwortlich = 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.MassnahmeGenerierenToolStripMenuItem = 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.NeuAnmeldenToolStripMenuItem})
+        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(152, 22)
+        Me.BeendenToolStripMenuItem.Text = "&Beenden"
+        '
+        'NeuAnmeldenToolStripMenuItem
+        '
+        Me.NeuAnmeldenToolStripMenuItem.Name = "NeuAnmeldenToolStripMenuItem"
+        Me.NeuAnmeldenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
+        Me.NeuAnmeldenToolStripMenuItem.Text = "&Neu anmelden"
+        '
+        '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 = "Anwendung beenden"
+        '
+        '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, 537)
+        Me.SplitContainer1.SplitterDistance = 274
+        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, 249)
+        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.MassnahmeGenerierenToolStripMenuItem})
+        Me.ctxMenuDetails.Name = "ctxMenuDetails"
+        Me.ctxMenuDetails.Size = New System.Drawing.Size(227, 120)
+        '
+        'DetailsAnzeigenBearbeitenToolStripMenuItem
+        '
+        Me.DetailsAnzeigenBearbeitenToolStripMenuItem.Name = "DetailsAnzeigenBearbeitenToolStripMenuItem"
+        Me.DetailsAnzeigenBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(226, 22)
+        Me.DetailsAnzeigenBearbeitenToolStripMenuItem.Text = "Details anzeigen / bearbeiten"
+        '
+        'NeueDefinitionErfassenToolStripMenuItem
+        '
+        Me.NeueDefinitionErfassenToolStripMenuItem.Name = "NeueDefinitionErfassenToolStripMenuItem"
+        Me.NeueDefinitionErfassenToolStripMenuItem.Size = New System.Drawing.Size(226, 22)
+        Me.NeueDefinitionErfassenToolStripMenuItem.Text = "Neu Massnahme erfassen"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(223, 6)
+        '
+        'VorgabeAnzeigenToolStripMenuItem
+        '
+        Me.VorgabeAnzeigenToolStripMenuItem.Name = "VorgabeAnzeigenToolStripMenuItem"
+        Me.VorgabeAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(226, 22)
+        Me.VorgabeAnzeigenToolStripMenuItem.Text = "Vorgabe anzeigen"
+        '
+        '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(441, 0)
+        Me.GrpDokumente.Name = "GrpDokumente"
+        Me.GrpDokumente.Size = New System.Drawing.Size(517, 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(511, 385)
+        Me.DokumenteAllgemein.TabIndex = 32
+        Me.DokumenteAllgemein.TempFilePath = Nothing
+        Me.DokumenteAllgemein.ThemaNr = 0
+        '
+        'grpDetails
+        '
+        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.Label1)
+        Me.grpDetails.Controls.Add(Me.lblVerantwortlich)
+        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(441, 404)
+        Me.grpDetails.TabIndex = 68
+        Me.grpDetails.TabStop = False
+        Me.grpDetails.Text = "Details"
+        '
+        'txtGueltigbis
+        '
+        Me.txtGueltigbis.Location = New System.Drawing.Point(106, 230)
+        Me.txtGueltigbis.Name = "txtGueltigbis"
+        Me.txtGueltigbis.ReadOnly = True
+        Me.txtGueltigbis.Size = New System.Drawing.Size(82, 20)
+        Me.txtGueltigbis.TabIndex = 84
+        '
+        'lblGueltigbis
+        '
+        Me.lblGueltigbis.AutoSize = True
+        Me.lblGueltigbis.Location = New System.Drawing.Point(7, 233)
+        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(319, 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(72, 13)
+        Me.lblBezeichnung.TabIndex = 81
+        Me.lblBezeichnung.Text = "Beschreibung"
+        '
+        '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(320, 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(301, 230)
+        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(301, 204)
+        Me.txtVerantwortlich.Name = "txtVerantwortlich"
+        Me.txtVerantwortlich.ReadOnly = True
+        Me.txtVerantwortlich.Size = New System.Drawing.Size(125, 20)
+        Me.txtVerantwortlich.TabIndex = 77
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(203, 233)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(92, 13)
+        Me.Label1.TabIndex = 76
+        Me.Label1.Text = "Verantwortung ISI"
+        '
+        'lblVerantwortlich
+        '
+        Me.lblVerantwortlich.AutoSize = True
+        Me.lblVerantwortlich.Location = New System.Drawing.Point(202, 207)
+        Me.lblVerantwortlich.Name = "lblVerantwortlich"
+        Me.lblVerantwortlich.Size = New System.Drawing.Size(74, 13)
+        Me.lblVerantwortlich.TabIndex = 75
+        Me.lblVerantwortlich.Text = "Verantwortlich"
+        '
+        'txtZeitpunkt
+        '
+        Me.txtZeitpunkt.Location = New System.Drawing.Point(106, 204)
+        Me.txtZeitpunkt.Name = "txtZeitpunkt"
+        Me.txtZeitpunkt.ReadOnly = True
+        Me.txtZeitpunkt.Size = New System.Drawing.Size(82, 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(301, 178)
+        Me.txtPeriodizitaet.Name = "txtPeriodizitaet"
+        Me.txtPeriodizitaet.ReadOnly = True
+        Me.txtPeriodizitaet.Size = New System.Drawing.Size(125, 20)
+        Me.txtPeriodizitaet.TabIndex = 72
+        '
+        'lblPeriodizitaet
+        '
+        Me.lblPeriodizitaet.AutoSize = True
+        Me.lblPeriodizitaet.Location = New System.Drawing.Point(203, 181)
+        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, 178)
+        Me.txtPrioritaet.Name = "txtPrioritaet"
+        Me.txtPrioritaet.ReadOnly = True
+        Me.txtPrioritaet.Size = New System.Drawing.Size(82, 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(320, 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"
+        '
+        'MassnahmeGenerierenToolStripMenuItem
+        '
+        Me.MassnahmeGenerierenToolStripMenuItem.Name = "MassnahmeGenerierenToolStripMenuItem"
+        Me.MassnahmeGenerierenToolStripMenuItem.Size = New System.Drawing.Size(226, 22)
+        Me.MassnahmeGenerierenToolStripMenuItem.Text = "Massnahme generieren"
+        '
+        'frmMassnahmeplan
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(958, 586)
+        Me.Controls.Add(Me.SplitContainer1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Name = "frmMassnahmeplan"
+        Me.Text = "Massnahmen"
+        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 NeuAnmeldenToolStripMenuItem 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 lblVerantwortlich As Label
+    Friend WithEvents Label1 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 MassnahmeGenerierenToolStripMenuItem As ToolStripMenuItem
+End Class

.svn/pristine/a7/a77c94adf78a80f07350c31b10a5d939b870366e.svn-base

@@ -0,0 +1,470 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'DokumentAblageTyp'
+' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 5. Januar 2013, 10:18:05
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace DB
+	''' <summary>
+	''' Purpose: Data Access class for the table 'DokumentAblageTyp'.
+	''' </summary>
+	Public Class clsDokumentAblageTyp
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iMandantNr, m_iMutierer, m_iDokumentAblageTypNr As SqlInt32
+		Private 		m_sBezeichnung As SqlString
+
+#End Region
+
+
+		''' <summary>
+		''' Purpose: Class constructor.
+		''' </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		''' <summary>
+		''' Purpose: Insert method. This method will insert one new row into the database.
+		''' </summary>
+		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iDokumentAblageTypNr</LI>
+		'''		 <LI>sBezeichnung. May be SqlString.Null</LI>
+		'''		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		'''		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		'''		 <LI>iMandantNr. May be SqlInt32.Null</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageTyp_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentAblageTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentAblageTypNr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantNr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_DokumentAblageTyp_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsDokumentAblageTyp::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: Update method. This method will Update one existing row in the database.
+		''' </summary>
+		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iDokumentAblageTypNr</LI>
+		'''		 <LI>sBezeichnung. May be SqlString.Null</LI>
+		'''		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		'''		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		'''		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		'''		 <LI>iMandantNr. May be SqlInt32.Null</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageTyp_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentAblageTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentAblageTypNr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantNr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_DokumentAblageTyp_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsDokumentAblageTyp::Update::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+		''' </summary>
+		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iDokumentAblageTypNr</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function Delete() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageTyp_Delete]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentAblageTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentAblageTypNr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_DokumentAblageTyp_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsDokumentAblageTyp::Delete::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		''' </summary>
+		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties needed for this method: 
+		''' <UL>
+		'''		 <LI>iDokumentAblageTypNr</LI>
+		''' </UL>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''		 <LI>iDokumentAblageTypNr</LI>
+		'''		 <LI>sBezeichnung</LI>
+		'''		 <LI>daErstellt_am</LI>
+		'''		 <LI>daMutiert_am</LI>
+		'''		 <LI>iMutierer</LI>
+		'''		 <LI>bAktiv</LI>
+		'''		 <LI>iMandantNr</LI>
+		'''</UL>
+		''' Will fill all properties corresponding with a field in the table with the value of the row selected.
+		''' </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageTyp_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("DokumentAblageTyp")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iDokumentAblageTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentAblageTypNr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_DokumentAblageTyp_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				If dtToReturn.Rows.Count > 0 Then
+					m_iDokumentAblageTypNr = New SqlInt32(CType(dtToReturn.Rows(0)("DokumentAblageTypNr"), Integer))
+					If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
+						m_sBezeichnung = SqlString.Null
+					Else
+						m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
+					End If
+					If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
+						m_daErstellt_am = SqlDateTime.Null
+					Else
+						m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
+					End If
+					If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
+						m_daMutiert_am = SqlDateTime.Null
+					Else
+						m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
+					End If
+					If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
+						m_iMutierer = SqlInt32.Null
+					Else
+						m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
+					End If
+					If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
+						m_bAktiv = SqlBoolean.Null
+					Else
+						m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
+					End If
+					If dtToReturn.Rows(0)("MandantNr") Is System.DBNull.Value Then
+						m_iMandantNr = SqlInt32.Null
+					Else
+						m_iMandantNr = New SqlInt32(CType(dtToReturn.Rows(0)("MandantNr"), Integer))
+					End If
+				End If
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsDokumentAblageTyp::SelectOne::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+		''' <summary>
+		''' Purpose: SelectAll method. This method will Select all rows from the table.
+		''' </summary>
+		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		''' <remarks>
+		''' Properties set after a succesful call of this method: 
+		''' <UL>
+		'''		 <LI>iErrorCode</LI>
+		'''</UL>
+		''' </remarks>
+		Overrides Public Function SelectAll() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageTyp_SelectAll]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("DokumentAblageTyp")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_DokumentAblageTyp_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsDokumentAblageTyp::SelectAll::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iDokumentAblageTypNr]() As SqlInt32
+			Get
+				Return m_iDokumentAblageTypNr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iDokumentAblageTypNrTmp As SqlInt32 = Value
+				If iDokumentAblageTypNrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iDokumentAblageTypNr", "iDokumentAblageTypNr can't be NULL")
+				End If
+				m_iDokumentAblageTypNr = Value
+			End Set
+		End Property
+
+
+		Public Property [sBezeichnung]() As SqlString
+			Get
+				Return m_sBezeichnung
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sBezeichnung = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantNr]() As SqlInt32
+			Get
+				Return m_iMandantNr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantNr = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace