shu/AssesmentMgmt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

235
SW/AssessmentMgmt/Massnahmen/MassnahmeDetailBearbeitung.Designer.vb generated Normal file
View File

@@ -0,0 +1,235 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class MassnahmeDetailBearbeitung
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MassnahmeDetailBearbeitung))
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.TSBtnSave = New System.Windows.Forms.ToolStripButton()
Me.GrpResultate = New System.Windows.Forms.GroupBox()
Me.GrpBeschreibung = New System.Windows.Forms.GroupBox()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.GrpStatus = New System.Windows.Forms.GroupBox()
Me.btnPruefungabgeschlossen = New System.Windows.Forms.Button()
Me.cbboxStatus = New System.Windows.Forms.ComboBox()
Me.GrpDokumente = New System.Windows.Forms.GroupBox()
Me.DokumenteAllgemein = New ThemenDokumente.Dokumente()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.GrpResultate.SuspendLayout()
Me.GrpBeschreibung.SuspendLayout()
Me.GrpStatus.SuspendLayout()
Me.GrpDokumente.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
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(724, 24)
Me.MenuStrip1.TabIndex = 9
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.TSBtnSave})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
Me.ToolStrip1.Size = New System.Drawing.Size(724, 25)
Me.ToolStrip1.TabIndex = 10
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"
'
'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"
'
'GrpResultate
'
Me.GrpResultate.Controls.Add(Me.GrpBeschreibung)
Me.GrpResultate.Controls.Add(Me.GrpStatus)
Me.GrpResultate.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpResultate.Location = New System.Drawing.Point(0, 49)
Me.GrpResultate.Name = "GrpResultate"
Me.GrpResultate.Size = New System.Drawing.Size(374, 435)
Me.GrpResultate.TabIndex = 11
Me.GrpResultate.TabStop = False
Me.GrpResultate.Text = "Resultat der Prüfung"
'
'GrpBeschreibung
'
Me.GrpBeschreibung.Controls.Add(Me.txtBeschreibung)
Me.GrpBeschreibung.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpBeschreibung.Location = New System.Drawing.Point(3, 61)
Me.GrpBeschreibung.Name = "GrpBeschreibung"
Me.GrpBeschreibung.Size = New System.Drawing.Size(368, 371)
Me.GrpBeschreibung.TabIndex = 1
Me.GrpBeschreibung.TabStop = False
Me.GrpBeschreibung.Text = "Beschreibung"
'
'txtBeschreibung
'
Me.txtBeschreibung.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtBeschreibung.Location = New System.Drawing.Point(3, 16)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.Size = New System.Drawing.Size(362, 352)
Me.txtBeschreibung.TabIndex = 3
'
'GrpStatus
'
Me.GrpStatus.Controls.Add(Me.btnPruefungabgeschlossen)
Me.GrpStatus.Controls.Add(Me.cbboxStatus)
Me.GrpStatus.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpStatus.Location = New System.Drawing.Point(3, 16)
Me.GrpStatus.Name = "GrpStatus"
Me.GrpStatus.Size = New System.Drawing.Size(368, 45)
Me.GrpStatus.TabIndex = 3
Me.GrpStatus.TabStop = False
Me.GrpStatus.Text = "Status"
'
'btnPruefungabgeschlossen
'
Me.btnPruefungabgeschlossen.Location = New System.Drawing.Point(9, 14)
Me.btnPruefungabgeschlossen.Name = "btnPruefungabgeschlossen"
Me.btnPruefungabgeschlossen.Size = New System.Drawing.Size(157, 23)
Me.btnPruefungabgeschlossen.TabIndex = 1
Me.btnPruefungabgeschlossen.Text = "Prüfung abgeschlossen"
Me.btnPruefungabgeschlossen.UseVisualStyleBackColor = True
'
'cbboxStatus
'
Me.cbboxStatus.FormattingEnabled = True
Me.cbboxStatus.Location = New System.Drawing.Point(10, 16)
Me.cbboxStatus.Name = "cbboxStatus"
Me.cbboxStatus.Size = New System.Drawing.Size(94, 21)
Me.cbboxStatus.TabIndex = 0
Me.cbboxStatus.Visible = False
'
'GrpDokumente
'
Me.GrpDokumente.Controls.Add(Me.DokumenteAllgemein)
Me.GrpDokumente.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpDokumente.Location = New System.Drawing.Point(374, 49)
Me.GrpDokumente.Name = "GrpDokumente"
Me.GrpDokumente.Size = New System.Drawing.Size(350, 435)
Me.GrpDokumente.TabIndex = 12
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(344, 416)
Me.DokumenteAllgemein.TabIndex = 33
Me.DokumenteAllgemein.TempFilePath = Nothing
Me.DokumenteAllgemein.ThemaNr = 0
'
'MassnahmeDetailBearbeitung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(724, 484)
Me.Controls.Add(Me.GrpDokumente)
Me.Controls.Add(Me.GrpResultate)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "MassnahmeDetailBearbeitung"
Me.Text = "MassnahmeDetailBearbeitung"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.GrpResultate.ResumeLayout(False)
Me.GrpBeschreibung.ResumeLayout(False)
Me.GrpBeschreibung.PerformLayout()
Me.GrpStatus.ResumeLayout(False)
Me.GrpDokumente.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NeuAnmeldenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents TSBtnQuit As ToolStripButton
Friend WithEvents TSBtnSave As ToolStripButton
Friend WithEvents GrpResultate As GroupBox
Friend WithEvents GrpBeschreibung As GroupBox
Friend WithEvents txtBeschreibung As TextBox
Friend WithEvents GrpStatus As GroupBox
Friend WithEvents btnPruefungabgeschlossen As Button
Friend WithEvents cbboxStatus As ComboBox
Friend WithEvents GrpDokumente As GroupBox
Friend WithEvents DokumenteAllgemein As ThemenDokumente.Dokumente
End Class

162
SW/AssessmentMgmt/Massnahmen/MassnahmeDetailBearbeitung.resx Normal file
View File

@@ -0,0 +1,162 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKQSURBVDhPrY/JTxNRAIdf0kQPJoZ4MOFEUNwoWLbSllUg
KAFKy6JSFFDABUwQLxz4B0iaECImGA9owo14aCXFUFot2MJAC5zdN+hCaaEFSUQoP997DFSJRyf5kpnM
7/veDPkvl06n22hpaoZlfAoL3hUs+lbhXlqFxx+CdzkMXyAMfyCE5WAI43YBba1teHC/Y0PUCWmob0Aj
xTE9hwX/2l8sLq/DHViHJ7gO38oPTLvmwQ67e/sORJ2Qm403wBCc89iO7Bwggq3tCH5tbePn5hY9ZJZv
bzW3RAP1166D8UZw4dtSaBdfCF8pX+jvfPau4pNnBR/dQdgcM3zLIqJOSF2tDgzLhAAv/dQ9PIE1+vns
N8L47g/z4Khtkm9ZRNQJuVJzGYwRqx1zH7yYp8y9Z3gwS3G9o7x1Y4bywjzBt3VXa6OB6soqMB49eQbD
6ASGLQ6YXk1h5LUAE2XYOgmj2Y7nL214+Pgp37KIqBOiVVfgn1Roohx4V62tjAbUpWX4E025GlUaLR/V
0NMY7JmJ6rLy/Y2oE1JSfBGM0kslsNlscLlcHKfTyWH3giAgS6GEQi7f34o6IYV5+WAUFxbBarUiPzcP
ykwFHA4H7HY7j46NjSE/JxfZqiwU0G3RhYJoIFupAiMvKxsWOkxPSUWyVAqz2QyTyQSDwYChoSGoaFSR
IUcOi9BDRJ2QjNS0TXlqGh8YjUacPpmAE/HxXBocHMTAwAD6+/shS0qGTJqEzLR0KGlI1AmJORpzL/lc
YiRdlsLHe1JfXx96enqg1+vR3d2NMzR8NuEUzidKWWiHqkd2C4Qck0gkpXFxcVVdXV1NVGjt7e1tp3TQ
QDt77uzsbIw9Hqs9JJFoGHRfQAg5/BslsRWFgJrRJAAAAABJRU5ErkJggg==
</value>
</data>
</root>

280
SW/AssessmentMgmt/Massnahmen/MassnahmeDetailBearbeitung.vb Normal file
View File

@@ -0,0 +1,280 @@
Public Class MassnahmeDetailBearbeitung
#Region "Deklarationen"
Dim OnRefresh_Findings As Boolean = False
Dim m_MassnahmeNr As Integer
Property Massnahmenr As Integer
Get
Return m_MassnahmeNr
End Get
Set(value As Integer)
m_MassnahmeNr = value
End Set
End Property
Dim m_handler As Integer
Property Handler As Integer
Get
Return m_handler
End Get
Set(value As Integer)
m_handler = value
End Set
End Property
Dim m_readonly As Boolean
Property IsReadonly As Boolean
Get
Return m_readonly
End Get
Set(value As Boolean)
m_readonly = value
End Set
End Property
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
Dim sec As New Utils.MySecurity
Dim msg As New Utils.MyMessage
Dim FormReadonly As Boolean = False
Dim FormDataChanged As Boolean = False
Dim status As New clsStatus
Dim massnahme As New clsMassnahme
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Schliessen des Formulars
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Me.FormReadonly = True Then Exit Sub
If Check_Changes() = False Then
e.Cancel = True
Else
Me.Dispose()
End If
End Sub
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.FormDataChanged Then
msgres = msg.Show_MessageYesNoCancel(3)
Select Case msgres
Case MsgBoxResult.Yes
save_data()
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.FormDataChanged = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
If TypeOf c Is DateTimePicker Then
Dim ctl As DateTimePicker = c
AddHandler ctl.ValueChanged, evh
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
If UCase(sender.name) = "TXTFINDINGBEZEICHNUNG" Or UCase(sender.NAME) = "TXTFINDINGBESCHREIBUNG" Then Exit Sub
If UCase(sender.name) = "TXTMASSNAHMEBEZEICHNUNG" Or UCase(sender.NAME) = "TXTMASSNAHMEBESCHREIBUNG" Then Exit Sub
Me.FormDataChanged = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.FormDataChanged = True
End Sub
Private Sub generalhandler()
Me.FormDataChanged = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
Private Sub MassnahmeDetailBearbeitung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.massnahme.Get_Data(Me.Massnahmenr)
If massnahme.iAktueller_Verantwortlicher.Value <> Globals.clsmitarbeiter.iMitarbeiternr.Value Then Me.IsReadonly = True
Refresh_Details()
status.Get_Mögliche_Status(massnahme.iStatusNr, cbboxStatus)
AddChanges(Me)
If Me.IsReadonly = True Then
sec.Set_Form_Readonly(Me)
Me.DokumenteAllgemein.Show_Toolbar = False
End If
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteAllgemein.Doktype = 8
Me.DokumenteAllgemein.ThemaNr = Me.Massnahmenr
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
Me.DokumenteAllgemein.Refresh()
End Sub
Private Sub Refresh_Details()
Me.txtBeschreibung.Text = Me.massnahme.sMassnahmeResultat.Value
Me.DokumenteAllgemein.Refresh_Dokumente()
End Sub
Private Sub TSBtnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
save_data
End Sub
Private Sub Save_Data()
Me.massnahme.sMassnahmeResultat = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
Me.massnahme.Save_Data()
massnahme.Get_Data(Me.Massnahmenr)
If massnahme.iStatusNr.Value <> 2 Then
massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(2, Int32))
massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
massnahme.Save_Data()
End If
Me.FormDataChanged = False
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub btnPruefungabgeschlossen_Click(sender As Object, e As EventArgs) Handles btnPruefungabgeschlossen.Click
If MsgBox("Haben Sie die Prüfung abgeschlossen und das Resultat festgehlaten?", vbYesNo + vbQuestion) = vbYes Then
massnahme.Get_Data(Me.Massnahmenr)
massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(8, Int32))
massnahme.Save_Data()
If massnahme.iVerantwortlichNr.Value = massnahme.iAktueller_Verantwortlicher.Value Then
massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(3, Int32))
Else
massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(massnahme.iVerantwortlichNr.Value, Int32))
massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(3, Int32))
End If
massnahme.Save_Data()
Me.Close()
End If
End Sub
#End Region
End Class

204
SW/AssessmentMgmt/Massnahmen/clsMassnahme.vb Normal file
View File

@@ -0,0 +1,204 @@
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class clsMassnahme
Inherits DB.clsMassnahme
#Region "Deklarationen"
Public daten As New DataTable
Public Neuer_Datensatz As Boolean = False
Public Mitarbeiterdaten As New DataTable
Dim stammdaten As New DB.clsStammdaten
Dim SpaltenTitel As New Utils.Tabellenspalte
Public Status As DataTable
Dim mMutierer As String
Property MutiererText() As String
Get
Return mMutierer
End Get
Set(ByVal value As String)
mMutierer = value
End Set
End Property
#End Region
Sub New()
MyBase.New()
Status = stammdaten.Get_Stammdaten("pruefschrittstatus", "")
End Sub
Public Overloads Sub dispose()
MyBase.Dispose()
Try
Me.stammdaten = Nothing
Me.Status.Dispose()
Catch
End Try
End Sub
''' <summary>
''' Mutierer auslesen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Mutierer(ByVal nr As Integer) As String
Try
Dim ma As New DB.clsMitarbeiter
Dim dt As New DataTable
Dim Retvalue As String
ma.cpMainConnectionProvider = Globals.conn
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
dt = ma.SelectOne()
If dt.Rows.Count = 0 Then
Retvalue = ("{" + nr.ToString + "}")
Else
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
End If
ma.Dispose()
dt.Dispose()
Return Retvalue
Catch
Return ""
End Try
End Function
Public Function Get_Data(ByVal Nr As Integer)
Me.cpMainConnectionProvider = Globals.conn
Me.iMassnahmeNr = New SqlInt32(CType(Nr, Int32))
Globals.conn.OpenConnection()
Me.daten = Me.SelectOne()
Globals.conn.CloseConnection(True)
Try
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
Catch ex As Exception
Me.MutiererText = ""
End Try
End Function
Public Function Save_Data() As Integer
Me.cpMainConnectionProvider = Globals.conn
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Löschen eines Datensatzes erstellen.
''' </summary>
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
If bAktiv.Value = False Then Exit Function
Me.cpMainConnectionProvider = Globals.conn
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
MyBase.Delete()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Neue Person einfügen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Add_New() As Integer
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Massnahme")
db.Dispose()
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.cpMainConnectionProvider = Globals.conn
Try
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Neuer_Datensatz = True
Return Me.iMassnahmeNr.Value
End Function
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Mitarbeiternr As Integer, ByRef tree As DevComponents.AdvTree.AdvTree)
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_massnahmen"
sqlcmd.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Dim status As New clsStatus
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Massnahme", ds.Tables(0))
Dim intarray(Me.Status.Rows.Count) As Integer
For i As Integer = 1 To Me.Status.Rows.Count
intarray(i) = 0
Next
For Each r As DataRow In ds.Tables(0).Rows
intarray(r.Item("StatusNr")) = intarray(r.Item("StatusNr")) + 1
Next
For Each n As DevComponents.AdvTree.Node In tree.Nodes
n.Text = n.Text + " (" + intarray(n.Tag).ToString + ")"
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
End Class

466
SW/AssessmentMgmt/Massnahmen/clsMassnahmeplan.vb Normal file
View File

@@ -0,0 +1,466 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports DevComponents
Imports DropDownControls
Public Class clsMassnahmeplan
Inherits DB.clsMassnahmeplan
#Region "Deklarationen"
Public daten As New DataTable
Public Neuer_Datensatz As Boolean = False
Public Mitarbeiterdaten As New DataTable
Public Zeitpunkt As New DataTable
Public Periodizitaet As New DataTable
Public Prioritaet As New DataTable
Public VerantwortungISI As New DataTable
Public Verantwortung As New DataTable
Dim stammdaten As New DB.clsStammdaten
Dim SpaltenTitel As New Utils.Tabellenspalte
Dim Definition_Massnahmeplan As New DataTable
Dim clsDefinition_Massnahmeplan As New DB.clsDefinition_massnahmeplan
Public Terminierung As New DataTable
Dim mMutierer As String
Property MutiererText() As String
Get
Return mMutierer
End Get
Set(ByVal value As String)
mMutierer = value
End Set
End Property
#End Region
Sub New()
MyBase.New()
Zeitpunkt = stammdaten.Get_Stammdaten("Zeitpunkt", "Beschreibung")
Periodizitaet = stammdaten.Get_Stammdaten("Periodizitaet", "Bezeichnung")
Prioritaet = stammdaten.Get_Stammdaten("Prioritaet", "Bezeichnung")
VerantwortungISI = stammdaten.Get_Stammdaten("VerantwortungIsi", "Bezeichnung")
Verantwortung = stammdaten.Get_Stammdaten("Verantwortung", "Bezeichnung")
Terminierung = stammdaten.Get_Stammdaten("Terminierung", "Bezeichnung")
End Sub
Public Overloads Sub dispose()
MyBase.Dispose()
Try
Me.Zeitpunkt.Dispose()
Me.Periodizitaet.Dispose()
Me.Prioritaet.Dispose()
Me.VerantwortungISI.Dispose()
Me.Verantwortung.Dispose()
Me.stammdaten = Nothing
Me.Definition_Massnahmeplan.Dispose()
Catch
End Try
End Sub
''' <summary>
''' Mutierer auslesen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Mutierer(ByVal nr As Integer) As String
Try
Dim ma As New DB.clsMitarbeiter
Dim dt As New DataTable
Dim Retvalue As String
ma.cpMainConnectionProvider = Globals.conn
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
dt = ma.SelectOne()
If dt.Rows.Count = 0 Then
Retvalue = ("{" + nr.ToString + "}")
Else
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
End If
ma.Dispose()
dt.Dispose()
Return Retvalue
Catch
Return ""
End Try
End Function
Public Function Get_Data(ByVal Nr As Integer)
Me.cpMainConnectionProvider = Globals.conn
Me.iMassnahmeplanNr = New SqlInt32(CType(Nr, Int32))
Globals.conn.OpenConnection()
Me.daten = Me.SelectOne()
Globals.conn.CloseConnection(True)
Try
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
Catch ex As Exception
Me.MutiererText = ""
End Try
End Function
Public Function Save_Data() As Integer
Me.cpMainConnectionProvider = Globals.conn
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Massnahmeplan")
db.Dispose()
Me.cpMainConnectionProvider = Globals.conn
Me.iMassnahmeplanNr = New SqlInt32(CType(newkey, Int32))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = True
Return newkey
End Function
''' <summary>
''' Löschen eines Datensatzes erstellen.
''' </summary>
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
If bAktiv.Value = False Then Exit Function
Me.cpMainConnectionProvider = Globals.conn
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
MyBase.Delete()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Neue Person einfügen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Add_New() As Integer
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("massnahmeplan")
db.Dispose()
Me.iMassnahmeplanNr = New SqlInt32(CType(newkey, Int32))
Me.daGueltig_Bis = New SqlDateTime(CType("31.12.2099", DateTime))
Me.iPrioritaetNr = New SqlInt32(CType(0, Int32))
Me.iPeriodizitaetNr = New SqlInt32(CType(0, Int32))
Me.iZeitpunktNr = New SqlInt32(CType(0, Int32))
Me.sBeschreibung = New SqlString(CType("", String))
Me.sPruefgegenstand = New SqlString(CType("", String))
Me.sHilfsmittel = New SqlString(CType("", String))
Me.sMassnahmen = New SqlString(CType("", String))
Me.iVerantwortungISINr = New SqlInt32(CType(0, Int32))
Me.sBeschreibung = New SqlString(CType("", String))
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daErstmals_am = New SqlDateTime(CType(DateAdd(DateInterval.Day, 1, Now), DateTime))
Me.iTerminierungID = New SqlInt32(CType(0, Int32))
Me.cpMainConnectionProvider = Globals.conn
Try
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Neuer_Datensatz = True
Return Me.iMassnahmeplanNr.Value
End Function
Public Function Get_massnahmeplan(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer)
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_massnahmenplan"
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "massnahmeplan", ds.Tables(0))
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer, Optional Searchstring As String = "")
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_massnahmeplan"
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.Parameters.Add(New SqlParameter("@Searchstring", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Searchstring))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "massnahmeplan", ds.Tables(0))
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Get_Definition_Massnahmeplan(ByVal Key As Integer, ByRef cb As CheckedListBox)
Me.Definition_Massnahmeplan.Rows.Clear()
Try
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_definition_Massnahmeplan"
sqlcmd.Parameters.Add(New SqlParameter("@massnahmeplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(Me.Definition_Massnahmeplan)
For Each r As DataRow In Definition_Massnahmeplan.Rows
cb.Items.Add(r.Item("Bezeichnung"), True)
Next
'cb.DataSource = Definition_massnahmeplan
'cb.ValueMember = "Definition_massnahmeplanNr"
'cb.DisplayMember = "Bezeichnung"
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Add_new_Zuordnung(ByVal massnahmeplannr As Integer, DefinitionNr As Integer, nodetext As String, ByRef chkcb As CheckedListBox)
For Each r As DataRow In Me.Definition_Massnahmeplan.Rows
If r.Item(1) = DefinitionNr Then
MsgBox("Die Beziehung zu '" + nodetext + "' ist bereits vorhanden", vbExclamation)
Exit Function
End If
Next
Dim dr As DataRow = Me.Definition_Massnahmeplan.NewRow
dr.Item(1) = DefinitionNr
dr.Item(2) = massnahmeplannr
dr.Item(3) = "31.12.2099"
dr.Item(4) = True
dr.Item(5) = Now
dr.Item(6) = Now
dr.Item(7) = Globals.clsmitarbeiter.iMitarbeiternr.Value
dr.Item(8) = nodetext
Me.Definition_Massnahmeplan.Rows.Add(dr)
chkcb.Items.Add(nodetext + " | " + dr.Item(3).ToString, True)
End Function
Public Function Get_Definition_massnahmeplan(ByVal Key As Integer, ByRef tree As AdvTree.AdvTree)
Me.Definition_Massnahmeplan.Rows.Clear()
Try
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_definition_massnahmeplan"
sqlcmd.Parameters.Add(New SqlParameter("@massnahmeplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(Me.Definition_Massnahmeplan)
Set_Zuordnungnodes(Definition_Massnahmeplan, tree)
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Add_new_Zuordnung(ByVal Massnahmeplannr As Integer, DefinitionNr As Integer, nodetext As String, ByRef tree As AdvTree.AdvTree)
For Each r As DataRow In Me.Definition_Massnahmeplan.Rows
If r.Item(1) = DefinitionNr And (r(4) = True Or r(3) < Now) Then
MsgBox("Die Beziehung zu '" + nodetext + "' ist bereits vorhanden", vbExclamation)
Exit Function
End If
Next
Dim dr As DataRow = Me.Definition_Massnahmeplan.NewRow
dr.Item(0) = Format(Now, "ddhhmmss")
dr.Item(1) = DefinitionNr
dr.Item(2) = Massnahmeplannr
dr.Item(3) = "31.12.2099"
dr.Item(4) = True
dr.Item(5) = Now
dr.Item(6) = Now
dr.Item(7) = Globals.clsmitarbeiter.iMitarbeiternr.Value
dr.Item(8) = nodetext
Me.Definition_Massnahmeplan.Rows.Add(dr)
Set_Zuordnungnodes(Definition_Massnahmeplan, tree)
End Function
Sub Set_Zuordnungnodes(data As DataTable, ByRef tree As AdvTree.AdvTree)
tree.Nodes.Clear()
For Each r As DataRow In data.Rows
Dim tn As New AdvTree.Node
tn.Tag = r(0)
tn.Text = r(8)
tree.Nodes.Add(tn)
Dim tn1 As New AdvTree.Node
tn1.Text = r(3)
tn1.Tag = r(4)
tn.Nodes.Add(tn1)
tn.ImageIndex = 0
If r(3) < "31.12.2099" And r(3) > Now Then tn.ImageIndex = 3
If r(3) < Now Then tn.ImageIndex = 2
If r(4) = False Then tn.ImageIndex = 1
Next
End Sub
Public Sub Update_Zuordnung(ByVal ID As Integer, Aktiv As Boolean, gueltig As DateTime)
For Each r As DataRow In Me.Definition_Massnahmeplan.Rows
If r.Item(0) = ID Then
r(4) = Aktiv
r(3) = gueltig
End If
Next
End Sub
Public Function Save_Definition_massnahmeplan(ByRef tree As AdvTree.AdvTree)
clsDefinition_Massnahmeplan.sConnectionString = Globals.sConnectionString
For Each n As AdvTree.Node In tree.Nodes
For Each r As DataRow In Definition_Massnahmeplan.Rows
If r(0) = n.Tag Then
If r(0) > 100000 Then
clsDefinition_Massnahmeplan.iDefinitionNr = New SqlInt32(CType(r(1), Int32))
clsDefinition_Massnahmeplan.imassnahmeplanNr = New SqlInt32(CType(r(2), Int32))
clsDefinition_Massnahmeplan.daGueltig_Bis = New SqlDateTime(CType(r(3), DateTime))
clsDefinition_Massnahmeplan.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Massnahmeplan.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Massnahmeplan.bAktiv = New SqlBoolean(CType(True, Boolean))
clsDefinition_Massnahmeplan.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
conn.OpenConnection()
clsDefinition_Massnahmeplan.Insert()
conn.CloseConnection(True)
Else
clsDefinition_Massnahmeplan.iDefinition_massnahmeplanNr = New SqlInt32(CType(r(0), Int32))
clsDefinition_Massnahmeplan.cpMainConnectionProvider = Globals.conn
clsDefinition_Massnahmeplan.SelectOne()
Dim tn1 As New AdvTree.Node
tn1 = n.Nodes(0)
If tn1.Tag <> clsDefinition_Massnahmeplan.bAktiv.Value Or tn1.Text <> clsDefinition_Massnahmeplan.daGueltig_Bis.Value Then
clsDefinition_Massnahmeplan.iDefinition_massnahmeplanNr = New SqlInt32(CType(r(0), Int32))
clsDefinition_Massnahmeplan.cpMainConnectionProvider = Globals.conn
clsDefinition_Massnahmeplan.SelectOne()
clsDefinition_Massnahmeplan.iDefinitionNr = New SqlInt32(CType(r(1), Int32))
clsDefinition_Massnahmeplan.imassnahmeplanNr = New SqlInt32(CType(r(2), Int32))
clsDefinition_Massnahmeplan.daGueltig_Bis = New SqlDateTime(CType(r(3), DateTime))
clsDefinition_Massnahmeplan.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Massnahmeplan.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Massnahmeplan.bAktiv = New SqlBoolean(CType(tn1.Tag, Boolean))
clsDefinition_Massnahmeplan.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
conn.OpenConnection()
clsDefinition_Massnahmeplan.Update()
conn.CloseConnection(True)
End If
End If
End If
Next
Next
End Function
End Class

995
SW/AssessmentMgmt/Massnahmen/frmMassnahmenplanDetail.Designer.vb generated Normal file
View File

@@ -0,0 +1,995 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMassnahmeplanDetail
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(frmMassnahmeplanDetail))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.TSBtnSave = 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.NeuAnmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.grpPruefgegenstand = New System.Windows.Forms.GroupBox()
Me.GrpStruktur = New System.Windows.Forms.GroupBox()
Me.TreeStruktur = New DevComponents.AdvTree.AdvTree()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Node1 = New DevComponents.AdvTree.Node()
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.ToolStripTree = New System.Windows.Forms.ToolStrip()
Me.tslabelFilter = New System.Windows.Forms.ToolStripLabel()
Me.tsCbxFilter = New System.Windows.Forms.ToolStripComboBox()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.lblSuche = New System.Windows.Forms.ToolStripLabel()
Me.tstxtSuche = New System.Windows.Forms.ToolStripTextBox()
Me.TSBtnSuche = New System.Windows.Forms.ToolStripButton()
Me.TSBtnFilterAufheben = New System.Windows.Forms.ToolStripButton()
Me.TSBtnFirst = New System.Windows.Forms.ToolStripButton()
Me.TSBtnPrevious = New System.Windows.Forms.ToolStripButton()
Me.TSBtnNext = New System.Windows.Forms.ToolStripButton()
Me.TSBtnLast = New System.Windows.Forms.ToolStripButton()
Me.txtHilfsmittel = New System.Windows.Forms.TextBox()
Me.lblHilfsmittel = New System.Windows.Forms.Label()
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
Me.lblBezeichnung = New System.Windows.Forms.Label()
Me.lblKontrollaktivität = New System.Windows.Forms.Label()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.lblBeschreibung = New System.Windows.Forms.Label()
Me.lblEreignisse2 = New System.Windows.Forms.Label()
Me.lblMassnahmen2 = New System.Windows.Forms.Label()
Me.txtEreignisse = New System.Windows.Forms.TextBox()
Me.lblEreignisse = New System.Windows.Forms.Label()
Me.txtMassnahmen = New System.Windows.Forms.TextBox()
Me.lblMassnahmen1 = New System.Windows.Forms.Label()
Me.txtPruefgegenstand = New System.Windows.Forms.TextBox()
Me.lblPruefgegenstand = New System.Windows.Forms.Label()
Me.cbAktiv = New System.Windows.Forms.CheckBox()
Me.lblAktiv = New System.Windows.Forms.Label()
Me.txtMutierer = New System.Windows.Forms.TextBox()
Me.txtMutiertam = New System.Windows.Forms.TextBox()
Me.txtErstelltam = New System.Windows.Forms.TextBox()
Me.lblMutierer = New System.Windows.Forms.Label()
Me.lblErstelltam = New System.Windows.Forms.Label()
Me.lblMutiertam = New System.Windows.Forms.Label()
Me.GrpLeft = New System.Windows.Forms.GroupBox()
Me.GrpPlanung = New System.Windows.Forms.GroupBox()
Me.cbboxTerminierung = New System.Windows.Forms.ComboBox()
Me.lblTerminierung = New System.Windows.Forms.Label()
Me.dtGueltigBis = New System.Windows.Forms.DateTimePicker()
Me.lblGueltigBis = New System.Windows.Forms.Label()
Me.dtErstmalsam = New System.Windows.Forms.DateTimePicker()
Me.Label2 = New System.Windows.Forms.Label()
Me.cbboxZeitpunkt = New System.Windows.Forms.ComboBox()
Me.lblPrioritaet = New System.Windows.Forms.Label()
Me.lblZeitpunkt = New System.Windows.Forms.Label()
Me.cbboxPrioritaet = New System.Windows.Forms.ComboBox()
Me.lblPeriodizitaet = New System.Windows.Forms.Label()
Me.cbboxPeriodizitaet = New System.Windows.Forms.ComboBox()
Me.GrpVerantwortung = New System.Windows.Forms.GroupBox()
Me.cbboxVerantwortungISI = New System.Windows.Forms.ComboBox()
Me.cbboxVerantwortlich = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblVerantwortlich = New System.Windows.Forms.Label()
Me.GrpDefinitionZuordnung = New System.Windows.Forms.GroupBox()
Me.TreeZuordnung = New DevComponents.AdvTree.AdvTree()
Me.ctxMenuZurodnung = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.EintragBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NeuerEintragHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Node2 = New DevComponents.AdvTree.Node()
Me.NodeConnector2 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
Me.btnNeueZuordnung = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.DokumenteAllgemein = New ThemenDokumente.Dokumente()
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.grpPruefgegenstand.SuspendLayout()
Me.GrpStruktur.SuspendLayout()
CType(Me.TreeStruktur, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripTree.SuspendLayout()
Me.GrpLeft.SuspendLayout()
Me.GrpPlanung.SuspendLayout()
Me.GrpVerantwortung.SuspendLayout()
Me.GrpDefinitionZuordnung.SuspendLayout()
CType(Me.TreeZuordnung, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ctxMenuZurodnung.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave, Me.ToolStripButton1})
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 = 10
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"
'
'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"
'
'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"
'
'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 = 9
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"
'
'grpPruefgegenstand
'
Me.grpPruefgegenstand.Controls.Add(Me.GrpStruktur)
Me.grpPruefgegenstand.Controls.Add(Me.txtHilfsmittel)
Me.grpPruefgegenstand.Controls.Add(Me.lblHilfsmittel)
Me.grpPruefgegenstand.Controls.Add(Me.txtBezeichnung)
Me.grpPruefgegenstand.Controls.Add(Me.lblBezeichnung)
Me.grpPruefgegenstand.Controls.Add(Me.lblKontrollaktivität)
Me.grpPruefgegenstand.Controls.Add(Me.txtBeschreibung)
Me.grpPruefgegenstand.Controls.Add(Me.lblBeschreibung)
Me.grpPruefgegenstand.Controls.Add(Me.lblEreignisse2)
Me.grpPruefgegenstand.Controls.Add(Me.lblMassnahmen2)
Me.grpPruefgegenstand.Controls.Add(Me.txtEreignisse)
Me.grpPruefgegenstand.Controls.Add(Me.lblEreignisse)
Me.grpPruefgegenstand.Controls.Add(Me.txtMassnahmen)
Me.grpPruefgegenstand.Controls.Add(Me.lblMassnahmen1)
Me.grpPruefgegenstand.Controls.Add(Me.txtPruefgegenstand)
Me.grpPruefgegenstand.Controls.Add(Me.lblPruefgegenstand)
Me.grpPruefgegenstand.Dock = System.Windows.Forms.DockStyle.Left
Me.grpPruefgegenstand.Location = New System.Drawing.Point(239, 49)
Me.grpPruefgegenstand.Name = "grpPruefgegenstand"
Me.grpPruefgegenstand.Size = New System.Drawing.Size(543, 573)
Me.grpPruefgegenstand.TabIndex = 0
Me.grpPruefgegenstand.TabStop = False
Me.grpPruefgegenstand.Text = "Prüfgegenstand"
'
'GrpStruktur
'
Me.GrpStruktur.Controls.Add(Me.TreeStruktur)
Me.GrpStruktur.Controls.Add(Me.ToolStripTree)
Me.GrpStruktur.Location = New System.Drawing.Point(327, 33)
Me.GrpStruktur.Name = "GrpStruktur"
Me.GrpStruktur.Size = New System.Drawing.Size(225, 208)
Me.GrpStruktur.TabIndex = 52
Me.GrpStruktur.TabStop = False
Me.GrpStruktur.Text = "Struktur"
Me.GrpStruktur.Visible = False
'
'TreeStruktur
'
Me.TreeStruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.TreeStruktur.AllowDrop = True
Me.TreeStruktur.AllowExternalDrop = False
Me.TreeStruktur.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.TreeStruktur.BackgroundStyle.Class = "TreeBorderKey"
Me.TreeStruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.TreeStruktur.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeStruktur.DragDropNodeCopyEnabled = False
Me.TreeStruktur.ImageList = Me.ImageList1
Me.TreeStruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.TreeStruktur.Location = New System.Drawing.Point(3, 55)
Me.TreeStruktur.Name = "TreeStruktur"
Me.TreeStruktur.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
Me.TreeStruktur.NodesConnector = Me.NodeConnector1
Me.TreeStruktur.NodeStyle = Me.ElementStyle1
Me.TreeStruktur.PathSeparator = ";"
Me.TreeStruktur.Size = New System.Drawing.Size(219, 150)
Me.TreeStruktur.Styles.Add(Me.ElementStyle1)
Me.TreeStruktur.TabIndex = 3
Me.TreeStruktur.Text = "AdvTree1"
'
'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")
'
'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
'
'ToolStripTree
'
Me.ToolStripTree.ImageScalingSize = New System.Drawing.Size(32, 32)
Me.ToolStripTree.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslabelFilter, Me.tsCbxFilter, Me.ToolStripSeparator1, Me.lblSuche, Me.tstxtSuche, Me.TSBtnSuche, Me.TSBtnFilterAufheben, Me.TSBtnFirst, Me.TSBtnPrevious, Me.TSBtnNext, Me.TSBtnLast})
Me.ToolStripTree.Location = New System.Drawing.Point(3, 16)
Me.ToolStripTree.Name = "ToolStripTree"
Me.ToolStripTree.Size = New System.Drawing.Size(219, 39)
Me.ToolStripTree.TabIndex = 2
Me.ToolStripTree.Text = "ToolStrip2"
'
'tslabelFilter
'
Me.tslabelFilter.Name = "tslabelFilter"
Me.tslabelFilter.Size = New System.Drawing.Size(33, 36)
Me.tslabelFilter.Text = "Filter"
'
'tsCbxFilter
'
Me.tsCbxFilter.Name = "tsCbxFilter"
Me.tsCbxFilter.Size = New System.Drawing.Size(75, 39)
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39)
'
'lblSuche
'
Me.lblSuche.Name = "lblSuche"
Me.lblSuche.Size = New System.Drawing.Size(46, 36)
Me.lblSuche.Text = "Suchen"
'
'tstxtSuche
'
Me.tstxtSuche.Name = "tstxtSuche"
Me.tstxtSuche.Size = New System.Drawing.Size(52, 23)
'
'TSBtnSuche
'
Me.TSBtnSuche.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnSuche.Image = CType(resources.GetObject("TSBtnSuche.Image"), System.Drawing.Image)
Me.TSBtnSuche.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnSuche.Name = "TSBtnSuche"
Me.TSBtnSuche.Size = New System.Drawing.Size(36, 36)
Me.TSBtnSuche.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(36, 36)
Me.TSBtnFilterAufheben.Text = "Filter aufheben"
'
'TSBtnFirst
'
Me.TSBtnFirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnFirst.Image = CType(resources.GetObject("TSBtnFirst.Image"), System.Drawing.Image)
Me.TSBtnFirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnFirst.Name = "TSBtnFirst"
Me.TSBtnFirst.Size = New System.Drawing.Size(36, 36)
Me.TSBtnFirst.Text = "Erster Datensatz"
'
'TSBtnPrevious
'
Me.TSBtnPrevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnPrevious.Image = CType(resources.GetObject("TSBtnPrevious.Image"), System.Drawing.Image)
Me.TSBtnPrevious.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnPrevious.Name = "TSBtnPrevious"
Me.TSBtnPrevious.Size = New System.Drawing.Size(36, 36)
Me.TSBtnPrevious.Text = "Vorheriger Datensatz"
'
'TSBtnNext
'
Me.TSBtnNext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnNext.Image = CType(resources.GetObject("TSBtnNext.Image"), System.Drawing.Image)
Me.TSBtnNext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnNext.Name = "TSBtnNext"
Me.TSBtnNext.Size = New System.Drawing.Size(36, 36)
Me.TSBtnNext.Text = "Nächster Datensatz"
'
'TSBtnLast
'
Me.TSBtnLast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnLast.Image = CType(resources.GetObject("TSBtnLast.Image"), System.Drawing.Image)
Me.TSBtnLast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnLast.Name = "TSBtnLast"
Me.TSBtnLast.Size = New System.Drawing.Size(36, 36)
Me.TSBtnLast.Text = "Letzter Datensatz"
'
'txtHilfsmittel
'
Me.txtHilfsmittel.Location = New System.Drawing.Point(104, 263)
Me.txtHilfsmittel.Multiline = True
Me.txtHilfsmittel.Name = "txtHilfsmittel"
Me.txtHilfsmittel.Size = New System.Drawing.Size(427, 96)
Me.txtHilfsmittel.TabIndex = 55
'
'lblHilfsmittel
'
Me.lblHilfsmittel.AutoSize = True
Me.lblHilfsmittel.Location = New System.Drawing.Point(15, 265)
Me.lblHilfsmittel.Name = "lblHilfsmittel"
Me.lblHilfsmittel.Size = New System.Drawing.Size(51, 13)
Me.lblHilfsmittel.TabIndex = 54
Me.lblHilfsmittel.Text = "Hilfsmittel"
'
'txtBezeichnung
'
Me.txtBezeichnung.Location = New System.Drawing.Point(104, 30)
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Size = New System.Drawing.Size(427, 20)
Me.txtBezeichnung.TabIndex = 0
'
'lblBezeichnung
'
Me.lblBezeichnung.AutoSize = True
Me.lblBezeichnung.Location = New System.Drawing.Point(16, 33)
Me.lblBezeichnung.Name = "lblBezeichnung"
Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
Me.lblBezeichnung.TabIndex = 53
Me.lblBezeichnung.Text = "Bezeichnung"
'
'lblKontrollaktivität
'
Me.lblKontrollaktivität.AutoSize = True
Me.lblKontrollaktivität.Location = New System.Drawing.Point(16, 75)
Me.lblKontrollaktivität.Name = "lblKontrollaktivität"
Me.lblKontrollaktivität.Size = New System.Drawing.Size(79, 13)
Me.lblKontrollaktivität.TabIndex = 51
Me.lblKontrollaktivität.Text = "Kontrollaktivität"
'
'txtBeschreibung
'
Me.txtBeschreibung.Location = New System.Drawing.Point(104, 62)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.Size = New System.Drawing.Size(427, 96)
Me.txtBeschreibung.TabIndex = 1
'
'lblBeschreibung
'
Me.lblBeschreibung.AutoSize = True
Me.lblBeschreibung.Location = New System.Drawing.Point(16, 62)
Me.lblBeschreibung.Name = "lblBeschreibung"
Me.lblBeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblBeschreibung.TabIndex = 49
Me.lblBeschreibung.Text = "Beschreibung"
'
'lblEreignisse2
'
Me.lblEreignisse2.AutoSize = True
Me.lblEreignisse2.Location = New System.Drawing.Point(14, 468)
Me.lblEreignisse2.Name = "lblEreignisse2"
Me.lblEreignisse2.Size = New System.Drawing.Size(74, 13)
Me.lblEreignisse2.TabIndex = 34
Me.lblEreignisse2.Text = "Info / Rapport"
'
'lblMassnahmen2
'
Me.lblMassnahmen2.AutoSize = True
Me.lblMassnahmen2.Location = New System.Drawing.Point(15, 379)
Me.lblMassnahmen2.Name = "lblMassnahmen2"
Me.lblMassnahmen2.Size = New System.Drawing.Size(83, 13)
Me.lblMassnahmen2.TabIndex = 33
Me.lblMassnahmen2.Text = "bei Abweichung"
'
'txtEreignisse
'
Me.txtEreignisse.Location = New System.Drawing.Point(104, 465)
Me.txtEreignisse.Multiline = True
Me.txtEreignisse.Name = "txtEreignisse"
Me.txtEreignisse.Size = New System.Drawing.Size(427, 96)
Me.txtEreignisse.TabIndex = 4
'
'lblEreignisse
'
Me.lblEreignisse.AutoSize = True
Me.lblEreignisse.Location = New System.Drawing.Point(15, 392)
Me.lblEreignisse.Name = "lblEreignisse"
Me.lblEreignisse.Size = New System.Drawing.Size(55, 13)
Me.lblEreignisse.TabIndex = 31
Me.lblEreignisse.Text = "Ereignisse"
'
'txtMassnahmen
'
Me.txtMassnahmen.Location = New System.Drawing.Point(104, 363)
Me.txtMassnahmen.Multiline = True
Me.txtMassnahmen.Name = "txtMassnahmen"
Me.txtMassnahmen.Size = New System.Drawing.Size(427, 96)
Me.txtMassnahmen.TabIndex = 3
'
'lblMassnahmen1
'
Me.lblMassnahmen1.AutoSize = True
Me.lblMassnahmen1.Location = New System.Drawing.Point(14, 366)
Me.lblMassnahmen1.Name = "lblMassnahmen1"
Me.lblMassnahmen1.Size = New System.Drawing.Size(70, 13)
Me.lblMassnahmen1.TabIndex = 29
Me.lblMassnahmen1.Text = "Massnahmen"
'
'txtPruefgegenstand
'
Me.txtPruefgegenstand.Location = New System.Drawing.Point(104, 164)
Me.txtPruefgegenstand.Multiline = True
Me.txtPruefgegenstand.Name = "txtPruefgegenstand"
Me.txtPruefgegenstand.Size = New System.Drawing.Size(427, 96)
Me.txtPruefgegenstand.TabIndex = 2
'
'lblPruefgegenstand
'
Me.lblPruefgegenstand.AutoSize = True
Me.lblPruefgegenstand.Location = New System.Drawing.Point(16, 164)
Me.lblPruefgegenstand.Name = "lblPruefgegenstand"
Me.lblPruefgegenstand.Size = New System.Drawing.Size(82, 13)
Me.lblPruefgegenstand.TabIndex = 27
Me.lblPruefgegenstand.Text = "Prüfgegenstand"
'
'cbAktiv
'
Me.cbAktiv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbAktiv.AutoSize = True
Me.cbAktiv.Location = New System.Drawing.Point(65, 91)
Me.cbAktiv.Name = "cbAktiv"
Me.cbAktiv.Size = New System.Drawing.Size(15, 14)
Me.cbAktiv.TabIndex = 46
Me.cbAktiv.UseVisualStyleBackColor = True
'
'lblAktiv
'
Me.lblAktiv.AutoSize = True
Me.lblAktiv.Location = New System.Drawing.Point(7, 91)
Me.lblAktiv.Name = "lblAktiv"
Me.lblAktiv.Size = New System.Drawing.Size(31, 13)
Me.lblAktiv.TabIndex = 45
Me.lblAktiv.Text = "Aktiv"
'
'txtMutierer
'
Me.txtMutierer.Location = New System.Drawing.Point(68, 63)
Me.txtMutierer.Name = "txtMutierer"
Me.txtMutierer.ReadOnly = True
Me.txtMutierer.Size = New System.Drawing.Size(159, 20)
Me.txtMutierer.TabIndex = 44
'
'txtMutiertam
'
Me.txtMutiertam.Location = New System.Drawing.Point(68, 38)
Me.txtMutiertam.Name = "txtMutiertam"
Me.txtMutiertam.ReadOnly = True
Me.txtMutiertam.Size = New System.Drawing.Size(159, 20)
Me.txtMutiertam.TabIndex = 43
'
'txtErstelltam
'
Me.txtErstelltam.Location = New System.Drawing.Point(68, 12)
Me.txtErstelltam.Name = "txtErstelltam"
Me.txtErstelltam.ReadOnly = True
Me.txtErstelltam.Size = New System.Drawing.Size(159, 20)
Me.txtErstelltam.TabIndex = 42
'
'lblMutierer
'
Me.lblMutierer.AutoSize = True
Me.lblMutierer.Location = New System.Drawing.Point(7, 66)
Me.lblMutierer.Name = "lblMutierer"
Me.lblMutierer.Size = New System.Drawing.Size(45, 13)
Me.lblMutierer.TabIndex = 41
Me.lblMutierer.Text = "Mutierer"
'
'lblErstelltam
'
Me.lblErstelltam.AutoSize = True
Me.lblErstelltam.Location = New System.Drawing.Point(7, 15)
Me.lblErstelltam.Name = "lblErstelltam"
Me.lblErstelltam.Size = New System.Drawing.Size(55, 13)
Me.lblErstelltam.TabIndex = 39
Me.lblErstelltam.Text = "Erstellt am"
'
'lblMutiertam
'
Me.lblMutiertam.AutoSize = True
Me.lblMutiertam.Location = New System.Drawing.Point(7, 41)
Me.lblMutiertam.Name = "lblMutiertam"
Me.lblMutiertam.Size = New System.Drawing.Size(56, 13)
Me.lblMutiertam.TabIndex = 40
Me.lblMutiertam.Text = "Mutiert am"
'
'GrpLeft
'
Me.GrpLeft.Controls.Add(Me.GrpPlanung)
Me.GrpLeft.Controls.Add(Me.GrpVerantwortung)
Me.GrpLeft.Controls.Add(Me.GrpDefinitionZuordnung)
Me.GrpLeft.Controls.Add(Me.Panel1)
Me.GrpLeft.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpLeft.Location = New System.Drawing.Point(0, 49)
Me.GrpLeft.Name = "GrpLeft"
Me.GrpLeft.Size = New System.Drawing.Size(239, 573)
Me.GrpLeft.TabIndex = 11
Me.GrpLeft.TabStop = False
'
'GrpPlanung
'
Me.GrpPlanung.Controls.Add(Me.cbboxTerminierung)
Me.GrpPlanung.Controls.Add(Me.lblTerminierung)
Me.GrpPlanung.Controls.Add(Me.dtGueltigBis)
Me.GrpPlanung.Controls.Add(Me.lblGueltigBis)
Me.GrpPlanung.Controls.Add(Me.dtErstmalsam)
Me.GrpPlanung.Controls.Add(Me.Label2)
Me.GrpPlanung.Controls.Add(Me.cbboxZeitpunkt)
Me.GrpPlanung.Controls.Add(Me.lblPrioritaet)
Me.GrpPlanung.Controls.Add(Me.lblZeitpunkt)
Me.GrpPlanung.Controls.Add(Me.cbboxPrioritaet)
Me.GrpPlanung.Controls.Add(Me.lblPeriodizitaet)
Me.GrpPlanung.Controls.Add(Me.cbboxPeriodizitaet)
Me.GrpPlanung.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpPlanung.Location = New System.Drawing.Point(3, 253)
Me.GrpPlanung.Name = "GrpPlanung"
Me.GrpPlanung.Size = New System.Drawing.Size(233, 196)
Me.GrpPlanung.TabIndex = 2
Me.GrpPlanung.TabStop = False
Me.GrpPlanung.Text = "Planung"
'
'cbboxTerminierung
'
Me.cbboxTerminierung.FormattingEnabled = True
Me.cbboxTerminierung.Location = New System.Drawing.Point(68, 134)
Me.cbboxTerminierung.Name = "cbboxTerminierung"
Me.cbboxTerminierung.Size = New System.Drawing.Size(108, 21)
Me.cbboxTerminierung.TabIndex = 4
'
'lblTerminierung
'
Me.lblTerminierung.AutoSize = True
Me.lblTerminierung.Location = New System.Drawing.Point(6, 137)
Me.lblTerminierung.Name = "lblTerminierung"
Me.lblTerminierung.Size = New System.Drawing.Size(39, 13)
Me.lblTerminierung.TabIndex = 37
Me.lblTerminierung.Text = "Termin"
'
'dtGueltigBis
'
Me.dtGueltigBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtGueltigBis.Location = New System.Drawing.Point(68, 160)
Me.dtGueltigBis.Name = "dtGueltigBis"
Me.dtGueltigBis.Size = New System.Drawing.Size(108, 20)
Me.dtGueltigBis.TabIndex = 5
'
'lblGueltigBis
'
Me.lblGueltigBis.AutoSize = True
Me.lblGueltigBis.Location = New System.Drawing.Point(6, 161)
Me.lblGueltigBis.Name = "lblGueltigBis"
Me.lblGueltigBis.Size = New System.Drawing.Size(50, 13)
Me.lblGueltigBis.TabIndex = 35
Me.lblGueltigBis.Text = "Gültig bis"
'
'dtErstmalsam
'
Me.dtErstmalsam.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtErstmalsam.Location = New System.Drawing.Point(69, 108)
Me.dtErstmalsam.Name = "dtErstmalsam"
Me.dtErstmalsam.Size = New System.Drawing.Size(108, 20)
Me.dtErstmalsam.TabIndex = 3
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 114)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(63, 13)
Me.Label2.TabIndex = 33
Me.Label2.Text = "Erstmals am"
'
'cbboxZeitpunkt
'
Me.cbboxZeitpunkt.FormattingEnabled = True
Me.cbboxZeitpunkt.Location = New System.Drawing.Point(69, 78)
Me.cbboxZeitpunkt.Name = "cbboxZeitpunkt"
Me.cbboxZeitpunkt.Size = New System.Drawing.Size(108, 21)
Me.cbboxZeitpunkt.TabIndex = 2
'
'lblPrioritaet
'
Me.lblPrioritaet.AutoSize = True
Me.lblPrioritaet.Location = New System.Drawing.Point(6, 25)
Me.lblPrioritaet.Name = "lblPrioritaet"
Me.lblPrioritaet.Size = New System.Drawing.Size(42, 13)
Me.lblPrioritaet.TabIndex = 27
Me.lblPrioritaet.Text = "Priorität"
'
'lblZeitpunkt
'
Me.lblZeitpunkt.AutoSize = True
Me.lblZeitpunkt.Location = New System.Drawing.Point(5, 81)
Me.lblZeitpunkt.Name = "lblZeitpunkt"
Me.lblZeitpunkt.Size = New System.Drawing.Size(52, 13)
Me.lblZeitpunkt.TabIndex = 31
Me.lblZeitpunkt.Text = "Zeitpunkt"
'
'cbboxPrioritaet
'
Me.cbboxPrioritaet.FormattingEnabled = True
Me.cbboxPrioritaet.Location = New System.Drawing.Point(69, 22)
Me.cbboxPrioritaet.Name = "cbboxPrioritaet"
Me.cbboxPrioritaet.Size = New System.Drawing.Size(108, 21)
Me.cbboxPrioritaet.TabIndex = 0
'
'lblPeriodizitaet
'
Me.lblPeriodizitaet.AutoSize = True
Me.lblPeriodizitaet.Location = New System.Drawing.Point(6, 53)
Me.lblPeriodizitaet.Name = "lblPeriodizitaet"
Me.lblPeriodizitaet.Size = New System.Drawing.Size(58, 13)
Me.lblPeriodizitaet.TabIndex = 29
Me.lblPeriodizitaet.Text = "Periodizität"
'
'cbboxPeriodizitaet
'
Me.cbboxPeriodizitaet.FormattingEnabled = True
Me.cbboxPeriodizitaet.Location = New System.Drawing.Point(69, 50)
Me.cbboxPeriodizitaet.Name = "cbboxPeriodizitaet"
Me.cbboxPeriodizitaet.Size = New System.Drawing.Size(108, 21)
Me.cbboxPeriodizitaet.TabIndex = 1
'
'GrpVerantwortung
'
Me.GrpVerantwortung.Controls.Add(Me.cbboxVerantwortungISI)
Me.GrpVerantwortung.Controls.Add(Me.cbboxVerantwortlich)
Me.GrpVerantwortung.Controls.Add(Me.Label1)
Me.GrpVerantwortung.Controls.Add(Me.lblVerantwortlich)
Me.GrpVerantwortung.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpVerantwortung.Location = New System.Drawing.Point(3, 170)
Me.GrpVerantwortung.Name = "GrpVerantwortung"
Me.GrpVerantwortung.Size = New System.Drawing.Size(233, 83)
Me.GrpVerantwortung.TabIndex = 1
Me.GrpVerantwortung.TabStop = False
Me.GrpVerantwortung.Text = "Verantwortung"
'
'cbboxVerantwortungISI
'
Me.cbboxVerantwortungISI.FormattingEnabled = True
Me.cbboxVerantwortungISI.Location = New System.Drawing.Point(102, 47)
Me.cbboxVerantwortungISI.Name = "cbboxVerantwortungISI"
Me.cbboxVerantwortungISI.Size = New System.Drawing.Size(125, 21)
Me.cbboxVerantwortungISI.TabIndex = 1
'
'cbboxVerantwortlich
'
Me.cbboxVerantwortlich.FormattingEnabled = True
Me.cbboxVerantwortlich.Location = New System.Drawing.Point(102, 14)
Me.cbboxVerantwortlich.Name = "cbboxVerantwortlich"
Me.cbboxVerantwortlich.Size = New System.Drawing.Size(125, 21)
Me.cbboxVerantwortlich.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(6, 50)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(92, 13)
Me.Label1.TabIndex = 34
Me.Label1.Text = "Verantwortung ISI"
'
'lblVerantwortlich
'
Me.lblVerantwortlich.AutoSize = True
Me.lblVerantwortlich.Location = New System.Drawing.Point(6, 22)
Me.lblVerantwortlich.Name = "lblVerantwortlich"
Me.lblVerantwortlich.Size = New System.Drawing.Size(74, 13)
Me.lblVerantwortlich.TabIndex = 33
Me.lblVerantwortlich.Text = "Verantwortlich"
'
'GrpDefinitionZuordnung
'
Me.GrpDefinitionZuordnung.Controls.Add(Me.TreeZuordnung)
Me.GrpDefinitionZuordnung.Controls.Add(Me.btnNeueZuordnung)
Me.GrpDefinitionZuordnung.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpDefinitionZuordnung.Location = New System.Drawing.Point(3, 16)
Me.GrpDefinitionZuordnung.Name = "GrpDefinitionZuordnung"
Me.GrpDefinitionZuordnung.Size = New System.Drawing.Size(233, 154)
Me.GrpDefinitionZuordnung.TabIndex = 0
Me.GrpDefinitionZuordnung.TabStop = False
Me.GrpDefinitionZuordnung.Text = "Zuordnung"
'
'TreeZuordnung
'
Me.TreeZuordnung.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.TreeZuordnung.AllowDrop = True
Me.TreeZuordnung.AllowExternalDrop = False
Me.TreeZuordnung.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.TreeZuordnung.BackgroundStyle.Class = "TreeBorderKey"
Me.TreeZuordnung.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.TreeZuordnung.ContextMenuStrip = Me.ctxMenuZurodnung
Me.TreeZuordnung.ImageList = Me.ImageList1
Me.TreeZuordnung.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.TreeZuordnung.Location = New System.Drawing.Point(6, 46)
Me.TreeZuordnung.Name = "TreeZuordnung"
Me.TreeZuordnung.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node2})
Me.TreeZuordnung.NodesConnector = Me.NodeConnector2
Me.TreeZuordnung.NodeStyle = Me.ElementStyle2
Me.TreeZuordnung.PathSeparator = ";"
Me.TreeZuordnung.Size = New System.Drawing.Size(217, 100)
Me.TreeZuordnung.Styles.Add(Me.ElementStyle2)
Me.TreeZuordnung.TabIndex = 1
Me.TreeZuordnung.Text = "AdvTree1"
'
'ctxMenuZurodnung
'
Me.ctxMenuZurodnung.ImageScalingSize = New System.Drawing.Size(32, 32)
Me.ctxMenuZurodnung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EintragBearbeitenToolStripMenuItem, Me.NeuerEintragHinzufügenToolStripMenuItem})
Me.ctxMenuZurodnung.Name = "ctxMenuZurodnung"
Me.ctxMenuZurodnung.Size = New System.Drawing.Size(210, 48)
'
'EintragBearbeitenToolStripMenuItem
'
Me.EintragBearbeitenToolStripMenuItem.Name = "EintragBearbeitenToolStripMenuItem"
Me.EintragBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.EintragBearbeitenToolStripMenuItem.Text = "Eintrag bearbeiten"
'
'NeuerEintragHinzufügenToolStripMenuItem
'
Me.NeuerEintragHinzufügenToolStripMenuItem.Name = "NeuerEintragHinzufügenToolStripMenuItem"
Me.NeuerEintragHinzufügenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.NeuerEintragHinzufügenToolStripMenuItem.Text = "Neuer Eintrag hinzufügen"
'
'Node2
'
Me.Node2.Expanded = True
Me.Node2.Name = "Node2"
Me.Node2.Text = "Node2"
'
'NodeConnector2
'
Me.NodeConnector2.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle2
'
Me.ElementStyle2.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle2.Name = "ElementStyle2"
Me.ElementStyle2.TextColor = System.Drawing.SystemColors.ControlText
'
'btnNeueZuordnung
'
Me.btnNeueZuordnung.Location = New System.Drawing.Point(6, 17)
Me.btnNeueZuordnung.Name = "btnNeueZuordnung"
Me.btnNeueZuordnung.Size = New System.Drawing.Size(217, 23)
Me.btnNeueZuordnung.TabIndex = 0
Me.btnNeueZuordnung.Text = "Struktur anzeigen"
Me.btnNeueZuordnung.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.Controls.Add(Me.txtMutierer)
Me.Panel1.Controls.Add(Me.txtErstelltam)
Me.Panel1.Controls.Add(Me.lblMutierer)
Me.Panel1.Controls.Add(Me.cbAktiv)
Me.Panel1.Controls.Add(Me.txtMutiertam)
Me.Panel1.Controls.Add(Me.lblErstelltam)
Me.Panel1.Controls.Add(Me.lblAktiv)
Me.Panel1.Controls.Add(Me.lblMutiertam)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(3, 458)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(233, 112)
Me.Panel1.TabIndex = 47
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.DokumenteAllgemein)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox1.Location = New System.Drawing.Point(782, 49)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(176, 573)
Me.GroupBox1.TabIndex = 13
Me.GroupBox1.TabStop = False
Me.GroupBox1.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(170, 554)
Me.DokumenteAllgemein.TabIndex = 0
Me.DokumenteAllgemein.TempFilePath = Nothing
Me.DokumenteAllgemein.ThemaNr = 0
'
'frmMassnahmeplanDetail
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(958, 622)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.grpPruefgegenstand)
Me.Controls.Add(Me.GrpLeft)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "frmMassnahmeplanDetail"
Me.Text = "Massnahmeplan Detail"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.grpPruefgegenstand.ResumeLayout(False)
Me.grpPruefgegenstand.PerformLayout()
Me.GrpStruktur.ResumeLayout(False)
Me.GrpStruktur.PerformLayout()
CType(Me.TreeStruktur, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripTree.ResumeLayout(False)
Me.ToolStripTree.PerformLayout()
Me.GrpLeft.ResumeLayout(False)
Me.GrpPlanung.ResumeLayout(False)
Me.GrpPlanung.PerformLayout()
Me.GrpVerantwortung.ResumeLayout(False)
Me.GrpVerantwortung.PerformLayout()
Me.GrpDefinitionZuordnung.ResumeLayout(False)
CType(Me.TreeZuordnung, System.ComponentModel.ISupportInitialize).EndInit()
Me.ctxMenuZurodnung.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
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 NeuAnmeldenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents grpPruefgegenstand As System.Windows.Forms.GroupBox
Friend WithEvents lblEreignisse2 As System.Windows.Forms.Label
Friend WithEvents lblMassnahmen2 As System.Windows.Forms.Label
Friend WithEvents txtEreignisse As System.Windows.Forms.TextBox
Friend WithEvents lblEreignisse As System.Windows.Forms.Label
Friend WithEvents txtMassnahmen As System.Windows.Forms.TextBox
Friend WithEvents lblMassnahmen1 As System.Windows.Forms.Label
Friend WithEvents txtPruefgegenstand As System.Windows.Forms.TextBox
Friend WithEvents lblPruefgegenstand As System.Windows.Forms.Label
Friend WithEvents GrpLeft As System.Windows.Forms.GroupBox
Friend WithEvents cbboxZeitpunkt As System.Windows.Forms.ComboBox
Friend WithEvents lblZeitpunkt As System.Windows.Forms.Label
Friend WithEvents cbboxPeriodizitaet As System.Windows.Forms.ComboBox
Friend WithEvents lblPeriodizitaet As System.Windows.Forms.Label
Friend WithEvents cbboxPrioritaet As System.Windows.Forms.ComboBox
Friend WithEvents lblPrioritaet As System.Windows.Forms.Label
Friend WithEvents GrpVerantwortung As System.Windows.Forms.GroupBox
Friend WithEvents cbboxVerantwortungISI As System.Windows.Forms.ComboBox
Friend WithEvents cbboxVerantwortlich As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblVerantwortlich As System.Windows.Forms.Label
Friend WithEvents GrpPlanung As System.Windows.Forms.GroupBox
Friend WithEvents cbAktiv As System.Windows.Forms.CheckBox
Friend WithEvents lblAktiv As System.Windows.Forms.Label
Friend WithEvents txtMutierer As System.Windows.Forms.TextBox
Friend WithEvents txtMutiertam As System.Windows.Forms.TextBox
Friend WithEvents txtErstelltam As System.Windows.Forms.TextBox
Friend WithEvents lblMutierer As System.Windows.Forms.Label
Friend WithEvents lblErstelltam As System.Windows.Forms.Label
Friend WithEvents lblMutiertam As System.Windows.Forms.Label
Friend WithEvents dtErstmalsam As System.Windows.Forms.DateTimePicker
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents DokumenteAllgemein As ThemenDokumente.Dokumente
Friend WithEvents lblKontrollaktivität As System.Windows.Forms.Label
Friend WithEvents txtBeschreibung As System.Windows.Forms.TextBox
Friend WithEvents lblBeschreibung As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents TSBtnSave As ToolStripButton
Friend WithEvents GrpStruktur As GroupBox
Friend WithEvents GrpDefinitionZuordnung As GroupBox
Friend WithEvents btnNeueZuordnung As Button
Friend WithEvents TreeStruktur 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 ToolStripTree As ToolStrip
Friend WithEvents tslabelFilter As ToolStripLabel
Friend WithEvents tsCbxFilter As ToolStripComboBox
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents lblSuche As ToolStripLabel
Friend WithEvents tstxtSuche As ToolStripTextBox
Friend WithEvents TSBtnSuche As ToolStripButton
Friend WithEvents TSBtnFilterAufheben As ToolStripButton
Friend WithEvents TSBtnFirst As ToolStripButton
Friend WithEvents TSBtnPrevious As ToolStripButton
Friend WithEvents TSBtnNext As ToolStripButton
Friend WithEvents TSBtnLast As ToolStripButton
Friend WithEvents txtBezeichnung As TextBox
Friend WithEvents lblBezeichnung As Label
Friend WithEvents dtGueltigBis As DateTimePicker
Friend WithEvents lblGueltigBis As Label
Friend WithEvents TreeZuordnung As DevComponents.AdvTree.AdvTree
Friend WithEvents Node2 As DevComponents.AdvTree.Node
Friend WithEvents NodeConnector2 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle2 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents ImageList1 As ImageList
Friend WithEvents cbboxTerminierung As ComboBox
Friend WithEvents lblTerminierung As Label
Friend WithEvents ctxMenuZurodnung As ContextMenuStrip
Friend WithEvents EintragBearbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NeuerEintragHinzufügenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents txtHilfsmittel As TextBox
Friend WithEvents lblHilfsmittel As Label
End Class

335
SW/AssessmentMgmt/Massnahmen/frmMassnahmenplanDetail.resx Normal file
View File

@@ -0,0 +1,335 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>793, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKQSURBVDhPrY/JTxNRAIdf0kQPJoZ4MOFEUNwoWLbSllUg
KAFKy6JSFFDABUwQLxz4B0iaECImGA9owo14aCXFUFot2MJAC5zdN+hCaaEFSUQoP997DFSJRyf5kpnM
7/veDPkvl06n22hpaoZlfAoL3hUs+lbhXlqFxx+CdzkMXyAMfyCE5WAI43YBba1teHC/Y0PUCWmob0Aj
xTE9hwX/2l8sLq/DHViHJ7gO38oPTLvmwQ67e/sORJ2Qm403wBCc89iO7Bwggq3tCH5tbePn5hY9ZJZv
bzW3RAP1166D8UZw4dtSaBdfCF8pX+jvfPau4pNnBR/dQdgcM3zLIqJOSF2tDgzLhAAv/dQ9PIE1+vns
N8L47g/z4Khtkm9ZRNQJuVJzGYwRqx1zH7yYp8y9Z3gwS3G9o7x1Y4bywjzBt3VXa6OB6soqMB49eQbD
6ASGLQ6YXk1h5LUAE2XYOgmj2Y7nL214+Pgp37KIqBOiVVfgn1Roohx4V62tjAbUpWX4E025GlUaLR/V
0NMY7JmJ6rLy/Y2oE1JSfBGM0kslsNlscLlcHKfTyWH3giAgS6GEQi7f34o6IYV5+WAUFxbBarUiPzcP
ykwFHA4H7HY7j46NjSE/JxfZqiwU0G3RhYJoIFupAiMvKxsWOkxPSUWyVAqz2QyTyQSDwYChoSGoaFSR
IUcOi9BDRJ2QjNS0TXlqGh8YjUacPpmAE/HxXBocHMTAwAD6+/shS0qGTJqEzLR0KGlI1AmJORpzL/lc
YiRdlsLHe1JfXx96enqg1+vR3d2NMzR8NuEUzidKWWiHqkd2C4Qck0gkpXFxcVVdXV1NVGjt7e1tp3TQ
QDt77uzsbIw9Hqs9JJFoGHRfQAg5/BslsRWFgJrRJAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>900, 17</value>
</metadata>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>177, 56</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAm
CwAAAk1TRnQBSQFMAgEBBAEAAWABAAFgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ACQAB/wEH
BHEBcgH0CAAB/wGTBEYBbwH0CAAB/wGTBEYBbwH0CAAB/wGZBFMBdAH0BwAB8QNyBnEB/wUAAfIJRgH/
BQABGglGAf8FAAEbCFMBUgH/BAABCAOXAnIGcQH/AwABGgNMCEYB/wMAARoDTAhGAf8DAAEaAlkFUwGa
A1MB/wIAAfQElwEIAZcCcgVxAgAB9AIXAW8BGgFMBEYBvQNGAgAB9AIXAW8CTAhGAgAB/wRZCFMBUgIA
BJcBCAL/AZcCcgRxAfQBAAJvARcB9AH/AfMBTAJGAv8BlAJGAfQBAAJvAhcBbwJMB0YB9AEABlkEUwH2
A1MB9AH/A5cBCAH/AfQC/wGXAnIDcQFyAf8EbwL/AfMBTAL/ARsDRgFvAf8DbwIXAW8CTAZGAW8B/whZ
AlMB/wNTAXQB8QKXAQgB/wH0ApcC/wGXA3ICcQEaAeMEbwT/Ab0FRgEaAeMCbweUARYBbwNGARsDWQX/
AVkBUwH/AZoDUwEHAXgBlwH/AfQElwL/ApcCcgFxAQcC4wRvA/8BTAVGAQcC4wHzCf8DRgGZA1kE/wH2
AVkBmgH/ARoDUwEIApgHlwL/ApcCcgEaA+MCbwT/AfMBTAEXA0YBGgLjARYBvQMaBL0BlANGARoDWQj/
AZoDUwH0A5gBeAaXAv8ClwFyAfQBFgPjAv8BGwFvAv8B8wJMAkYB9AEWA+MEbwIXA0wCRgH0A1kI/wJZ
AlMB/wEIA5gBeAaXAf8ClwEHAf8BlAEWAeMB8wH/AfMDbwL/AZQCTAGTAf8BlAEWA+MEbwIXAW8CTAGT
Af8BmgJZAf8B9gX/AXoDWQGZAQABBwWYCJcB/wEAAZMCFgHjAb0B4wRvAZQBFwFvAUwB/wEAAZMCFgPj
BG8CFwFvAUwB/wEAAZkFWQGgAcMBmgVZAf8BAAH/AQgFmAF4BZcB8QIAAf8BlAMWAuMEbwIXAfICAAH/
AZQDFgLjBG8CFwEaAgAB/wGaC1kBGwMAAf8BCAWYAXgClwGYAQgEAAH/AZQDFgPjA28BGgQAAf8BlAMW
A+MDbwEaBAAB/wGaCVkBGgUAAf8BBwEIBpgB9AYAAf8BkwG9AhYC4wEWAW8B9AYAAf8BkwG9AhYC4wEW
AW8B9AYAAf8BmQGgAXoDWQF6AVkB/wgAAf8B9AIIAfEB/woAAf8B9AEaAQcBGgH/CgAB/wH0ARoBBwEa
Af8KAAH/AfQBGgGZARsB/wUAAUIBTQE+BwABPgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYAA/+BAAHw
AQ8B8AEPAfABDwHwAQ8B4AEDAeABAwHgAQMB4AEDAcABAQHAAQEBwAEBAcABAQGAAQEBgAEBAYABAQGA
AQEBgAEAAYABAAGAAQABgDEAAYABAAGAAQABgAEAAYABAAGAAQEBgAEBAYABAQGAAQEBwAEDAcABAwHA
AQMBwAEDAeABBwHgAQcB4AEHAeABBwH4AR8B+AEfAfgBHwH4AR8L
</value>
</data>
<metadata name="ToolStripTree.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1015, 17</value>
</metadata>
<data name="TSBtnSuche.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACpSURBVFhH7ZLhCoQwDIP36Hu0vdl5DU7GbFx6KtyPfhBQ
26aBWpIkEfhMYqh9YVRjtS+Maqz2hVGN1T6Z2RCqtULfZzC8M/0GMx2+d45QZCYMjFprzPCkvnwxIwMT
Qw1g6iG82i4ZKYCwcJYMjFcneDXAS5Lxhp+QzOoEDNQvTiMDg4ufkIG6BSfhZf4jwJ0T3A5gIstNjKMn
GPyENzyK4fWOSpIkcShlA/2ShGAugX0dAAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnFilterAufheben.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVFhH7ZJbEoMwCEVduktzZy0XIRKCkSbt9CdnPIyG
R+LotlhkedFlleUUo30NdlB22EiPB02sDlE5e4FnK0KvPg0aWR2kcvYCz0XkrSgYBc1FDLOiQMA9qzmV
sxNgQBEDrSgQcN/LfwyaGylU7vvORjnpGUOHerFON5XRmun5GB54HEd5My+FrlEPmeZ8I2LkAFG9mObx
AJBCdmM1DW/c+wSQwu8O8CSF0KjWmCZqZil0jXqMacJPQMFvhuDXuOfm06XhAfYnpOA3KvgcDn7z/6Sp
DoChVqkp+PzXDoAhGGhF7iy5sHmovVMHgBQqdR0FHq1Rg81hmmoYxJqxATXWc6kxB1X6YY+M9ITMDJrp
bZqhpNLM9i8Wf2Lb3g1pbK07+OH0AAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnFirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK9SURBVDhPfVNtSFNRGL53OmHsQ93mds3pnUkR/VCIojDF
SoxULOpXmh+VEFb0IZmpQQlGmSnkx0yaTQ3SsnLOhHD50ZaSWX8KUSE/CiLQsj/9CFrep3PONjSyHng5
5z3v87z3vO97LrcKEjmlrkUWlzQjS8nzyHYTI3t6xmL/gY5X6+3y1EJJdbEH2spB6Gvc0Fe7EHrFCVVx
F+R7zkqE0025XskyDDLDhklNgQ0RN4Yg3nQjqmYIkVUDMF11IqLiKSLKe2Es6YIq1wKZIWaKarxSAl4t
9GtPtkGsH4FY64a5YQTRTWOItr5hZm4cZcnCy7ohFD9CcFYdeLWx3yfn9qkzSn3iF4zMxKuYWDcM4cJj
GM60Q7njFKiW45WCg16TXlusHUbGg7coGZyGmSYkAr/l9Uwg0z5OSnsOw+l70OU3g1eSfgRt3LXgrzmq
egiuuUVQJDS/ZH5yyxhcHxYhSRLcZKVn4WV26I/ZIDfFz3Oa5ByJik3XnKRhfXDPfmUJ0myjuPP6I37+
WmI+BY1RDm2o7qgVitikJU6TkivRBq253MvMPf2FkdtezbF1JWiM8S49gS6viSRIlzj55vR52oPwUjsE
MibX+3lGTqzuQ2nnGL59/8F8ChqjHOH8Q2izGxG0LnGBCwwTHXTOdDzGwg44xz+xejeVO5i/vug+rM53
8JBSBiY+s7Ow420IPVgPXiM42Bj1hyvZDWgg9lw79laQJhW0Mp8a3W8tbkd8WSfztdkWqHb6xkjAB4aZ
BoSiDu94jliJ3f6n0auHHKgiD0l4RsV+GAMi46YMp8hXT9yFNucWtJkNf1oWXesRsv86Agwxk0Sz/JR9
0PMaoyM4rVDSF7Swh8ISHbIQsYXUXAfl9nyJV+q6CPevn2klknhlaGvA2m2zCjHNoxBTPQHmLTO8QmMj
sQQvxQ+O+w0UG9zYwCvIHAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TSBtnPrevious.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK5SURBVDhPfVJbSFRRFL13xqnMcfTOjHced5xH9lGSUVGQ
kRmFiUqkEFimTRlhiZVC2VhkgWbmA1LzUVIzSg+iHBs1SnEyK1EjP6JA+1A/+kmFPgI/QpjVOediZgxt
WGzO3Wuts8/elwsSCZwguRWbkicVSc4FxT6CLclT5JuH1HbJlOCh4wWpU5VSBPXlLmgr/dDXDkJX/QZC
WS/Cir1QJReCcJ4Trl6WLIVBIcWNh+fdg1T9GtZbb2GtHUD0zX5YKnohlb2E+VoPRJcX6pxGKMTYCaqR
pRzH84KlX8j3wFb/HjYitjUMwd4yCkfrRwZ74zAx88N0qRPGC08RkVUPPtLip1pqkB6+3yWL697B3jQC
BxUHAeUYL3ZAPPcIqxMLQLUcL9h8UkUfa5saMKO/EHdnBKWDU9jQMsy6s9YMQDz7ELoTreA1ko9bEbtn
9s+ba8j7CYFmOzm7+r5ibv4XAoEAnB2fEF3lZzVTSSd0J+9DFbNzhgvfmx2gYgvpwnK9l+WM9g/48v0n
Ey7C+WQMUvkrxqED1eW2YlVcaoDTJB0N0Gmbr/YQdLP87cf8MjFFzoNRmK90wVxKOCRrnS0I3ZgW4NRb
02boqkwlXhhdHQRebCvvRvfY9DKDbPcQjMXP2BDpJrRHGrHCFj/HhVjX+eieaVEsfAyxiIBmMqj06hf4
PD3LDDKb5eHRWtTpNgiHGshP5fCxNeqPVbIO9KTwL0QyrIM3fDDnk3OeG/pTHna7evcZusYD1IBXmdb6
DeflW3XH7/4X2uwmRGZUkdst/VRLDWgYVsZsnhALPIjKb4c2pxnC4YblyLrNckR6JZTi+nGiEWXpUuhD
9FafJrWQtOlma6JGtF0tFWfWIWxHLvl5DF7C1cmS4JGo1BjalGvip0JtqQuhtpQFpWP7JB8mukktQaYs
Bsf9BvJ9y/Q7+ip/AAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnNext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKfSURBVDhPfVNbSBRRGJ7ZdYVlL7qzs7tjro4mQUjkS0FU
YheMVCLqqcxbSaKJlVCWBiUUaeZCXnbd2lg1KB8yddOKNi95A7EL9LRSaiREKNRLj4vzdc7MrBeUPviY
M+f/vp///P85zCZIZwzWdk1axpwmszCsOUJI1nRPjv0HVtbE9+qyKiXjjZfg6ofBu8bAN47CcicIY1UP
dEcvS0TTR7WKZRV2jX17yFzqR/z9EYgPxpDoGkFCwxCcd4OIv/0G8bUDcFzvgbHADY09ZYZ6FCsBaxIG
ufJOiC2TEJvGkNQ6iWTvNJJ9H2UmeabkZHE1fRCquhGT2wzW5BhU7cxx07Fq1Twui2XzJhSbJyBcewH7
pWcwHKgA9TKsQQjQMmnZYtOELCp7PYMvi39R8iok/69lous97Befwlr8GKyB9CM69dBS5MyJjQq9HxYQ
wfiPP8jsnF6JUcbV9IIv8UPn3LvImA/nS9TsrAuShr2V6Z36rtoVhJeX0fFpAamuYTlOG2o954N+Z8Yy
Y84skGiDttwaWGHb5JxqXQ/PxKyiudkPa6GXJMiRGN2unEXag7jqXghkTJSe0a+qRYEkSeiemsWO2oCi
ufocXJ4H0dvSl5gomxigc6bjcVR2yXQPh1Qr8PnbL2TX9cudj8RtZZ2wnGoBaxYC8hj5onq5AhqgLPON
YP7nb5S7g7Cd96/sR8jluWE8qI6RgI2yOYeEK13KeM76wBU9hOWMm6wfbSAtPfZkA7lIwjtqjsChTUib
sVd0wHbhCbj8NnCnW9czl35bEHviHrT2lBDxrF5lFTxrdgRisislvrRdvihyIlIJl+smZ26GYV+xxBqs
PUS74TGtRQZrsHRot+6Z14vZYb2YFdYm7Z5j9WY/ie1XJBEwzD9i2NfQid+uMAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TSBtnLast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK7SURBVDhPfVNtSFNRGL53OmHsQ93mds3pnUkR/UiIojDF
SoxULOpXmh+VEFZYSWZqUIJRZgr5MZNmU4O0rJwzIVx+tKVk1p9CVMiPggi07E8/gpb36ZyzDY2sBx7O
fc/7PGfved8zbhUkcEpdiyw2cUaWnOuR7SEk33SP5f4DHa/W2+UphZLqYg+0lYPQ17ihr3Yh9IoTquIu
yPeelYimm2q9lmUYZIYNk5p8GyJuDEG86UZUzRAiqwZguupERMVTRJT3wljSBVWOBTJDzBT1eK0EvFro
155qg1g/ArHWDXPDCKKbxhBtfcNobhxlh4WXdUMofoTgzDrwamO/z87tV6eX+swvmJiZV6FYNwzhwmMY
zrRDubMA1MvxSsFBy6Rli7XDyLCPI7dngon9NJPDSwankf7gLbnacxhO34Murxm8kvQjaOPuBf+do6qH
4P6wCEmS4CJrUssY24tvfgkK19wii8PL7NAft0FuipvnNEnZEjWbrjlJw/rgnv3KxBQ/fy3hzuuPSLWN
spjmqIY2VHfMCsWmxCVOk5wj0QatudzL6J7+wsQr0fZqjq00x3SXnkCX20QOSJM4+Za0edqD8FI7BDIm
1/t5Jqb49v0HSjvHkFDdx2Kaoxrh/ENosxoRtC5hgQsMEx10znQ8xsIODEx8hoeUbnW+w/qi+2xvc7mD
9cU5/onFYSfaEHqoHrxGcLAx6o9UsgpoIq6sE9uK26HPb2UxJf3eV2FH7Ll2FmuzLFDt8o2RgA8MMw0I
RR3e8Ry1Et7+J2npIQeryEMSnlGzH8aAyNgpQwH51ZN3oc2+BW1Gw5/MpGs9Qg5cR4AhZpJ4lp+yD3pe
Y3QEpxZK+vwW9lDYQYctxGwhd66DckeexCt1XUT7159pJRJ5ZWhrwNrtswox1aMQUzwB5q0zvEJjI7l4
r8QPjvsNWSfc2bvcdIgAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ctxMenuZurodnung.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>89</value>
</metadata>
</root>

489
SW/AssessmentMgmt/Massnahmen/frmMassnahmenplanDetail.vb Normal file
View File

@@ -0,0 +1,489 @@
Public Class frmMassnahmeplanDetail
#Region "Deklarationen"
Dim m_massnahmeplanhandler As Integer
Property massnahmeplanHandler As Integer
Get
Return m_massnahmeplanhandler
End Get
Set(value As Integer)
m_massnahmeplanhandler = value
End Set
End Property
Dim m_massnahmeplannr As Integer
Property massnahmeplannr As Integer
Get
Return m_massnahmeplannr
End Get
Set(value As Integer)
m_massnahmeplannr = value
End Set
End Property
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
Dim sec As New Utils.MySecurity
Dim msg As New Utils.MyMessage
Dim FormReadonly As Boolean = False
Dim FormDataChanged As Boolean = False
Dim massnahmeplan As New clsMassnahmeplan
Dim massnahmeplanStruktur As New clsPlanTree
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Schliessen des Formulars
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Me.FormReadonly = True Then Exit Sub
If Check_Changes() = False Then
e.Cancel = True
Else
evh.massnahmeplandetail_close(Me.massnahmeplanHandler, Me.massnahmeplannr)
massnahmeplan.dispose()
Me.Dispose()
End If
End Sub
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.FormDataChanged Then
msgres = msg.Show_MessageYesNoCancel(3)
Select Case msgres
Case MsgBoxResult.Yes
Save_data()
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.FormDataChanged = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
If TypeOf c Is DateTimePicker Then
Dim ctl As DateTimePicker = c
AddHandler ctl.ValueChanged, evh
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
Me.FormDataChanged = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.FormDataChanged = True
End Sub
Private Sub generalhandler()
Me.FormDataChanged = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Formular"
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.ImageList1 = Globals.GueltigImages
Me.TreeStruktur.ImageList = Globals.GueltigImages
Me.TreeZuordnung.ImageList = Globals.GueltigImages
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmMassnahmeplanDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteAllgemein.Doktype = 7
Me.DokumenteAllgemein.ThemaNr = Me.massnahmeplannr
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
Me.DokumenteAllgemein.Refresh()
Me.cbboxPrioritaet.DataSource = massnahmeplan.Prioritaet
Me.cbboxPrioritaet.DisplayMember = "Bezeichnung"
Me.cbboxPrioritaet.ValueMember = "Prioritaetnr"
Me.cbboxPeriodizitaet.DataSource = massnahmeplan.Periodizitaet
Me.cbboxPeriodizitaet.DisplayMember = "Bezeichnung"
Me.cbboxPeriodizitaet.ValueMember = "PeriodizitaetNr"
Me.cbboxZeitpunkt.DataSource = massnahmeplan.Zeitpunkt
Me.cbboxZeitpunkt.DisplayMember = "Bezeichnung"
Me.cbboxZeitpunkt.ValueMember = "Zeitpunktnr"
Me.cbboxVerantwortungISI.DataSource = massnahmeplan.VerantwortungISI
Me.cbboxVerantwortungISI.DisplayMember = "Bezeichnung"
Me.cbboxVerantwortungISI.ValueMember = "VerantwortungISINr"
Me.cbboxVerantwortlich.DataSource = massnahmeplan.Verantwortung
Me.cbboxVerantwortlich.DisplayMember = "Bezeichnung"
Me.cbboxVerantwortlich.ValueMember = "Verantwortungnr"
Me.cbboxTerminierung.DataSource = massnahmeplan.Terminierung
Me.cbboxTerminierung.DisplayMember = "Bezeichnung"
Me.cbboxTerminierung.ValueMember = "id"
If massnahmeplannr > 0 Then
massnahmeplan.Get_Definition_massnahmeplan(Me.massnahmeplannr, Me.TreeZuordnung)
get_data()
Else
massnahmeplan.Get_Definition_massnahmeplan(Me.massnahmeplannr, Me.TreeZuordnung)
Me.dtGueltigBis.Value = "31.12.2099"
End If
Me.txtBezeichnung.SelectAll()
Me.txtBezeichnung.Focus()
AddChanges(Me)
End Sub
Private Sub get_data()
massnahmeplan.Get_Data(Me.massnahmeplannr)
Me.cbboxPeriodizitaet.SelectedValue = massnahmeplan.iPeriodizitaetNr.Value
Me.cbboxPrioritaet.SelectedValue = massnahmeplan.iPrioritaetNr.Value
Me.cbboxZeitpunkt.SelectedValue = massnahmeplan.iZeitpunktNr.Value
Me.dtErstmalsam.Value = massnahmeplan.daErstmals_am.Value
Me.cbboxVerantwortlich.SelectedValue = massnahmeplan.iVerantwortlichNr.Value
Me.cbboxVerantwortungISI.SelectedValue = massnahmeplan.iVerantwortungISINr.Value
Me.txtBeschreibung.Text = massnahmeplan.sBeschreibung.Value
Me.txtBezeichnung.Text = massnahmeplan.sBezeichnung.Value
Me.txtHilfsmittel.Text = massnahmeplan.sHilfsmittel.Value
'Me.txtBezeichnung.Text = massnahmeplan.sBezeichnung.Value
'Me.txtBeschreibung.Text = massnahmeplan.sBezeichnung.Value
Me.txtPruefgegenstand.Text = massnahmeplan.sPruefgegenstand.Value
Me.txtEreignisse.Text = massnahmeplan.sErgebnisse.Value
Me.txtMassnahmen.Text = massnahmeplan.sMassnahmen.Value
Me.txtErstelltam.Text = massnahmeplan.daErstellt_am.ToSqlString
Me.txtMutiertam.Text = massnahmeplan.daMutiert_am
Me.txtMutierer.Text = massnahmeplan.MutiererText
Me.cbAktiv.Checked = massnahmeplan.bAktiv.Value
Me.dtGueltigBis.Value = massnahmeplan.daGueltig_Bis.Value
Me.cbAktiv.Checked = massnahmeplan.bAktiv.Value = True
Me.cbboxTerminierung.SelectedValue = massnahmeplan.iTerminierungID.Value
End Sub
Private Sub Update_Data()
massnahmeplan.iPeriodizitaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPeriodizitaet.SelectedValue, Int32))
massnahmeplan.iPrioritaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPrioritaet.SelectedValue, Int32))
massnahmeplan.iZeitpunktNr = New SqlTypes.SqlInt32(CType(Me.cbboxZeitpunkt.SelectedValue, Int32))
massnahmeplan.iVerantwortlichNr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortlich.SelectedValue, Int32))
massnahmeplan.iVerantwortungISINr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortungISI.SelectedValue, Int32))
massnahmeplan.daErstmals_am = New SqlTypes.SqlDateTime(CType(Me.dtErstmalsam.Value, DateTime))
massnahmeplan.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
massnahmeplan.sPruefgegenstand = New SqlTypes.SqlString(CType(Me.txtPruefgegenstand.Text, String))
massnahmeplan.sMassnahmen = New SqlTypes.SqlString(CType(Me.txtMassnahmen.Text, String))
massnahmeplan.sErgebnisse = New SqlTypes.SqlString(CType(Me.txtEreignisse.Text, String))
massnahmeplan.sHilfsmittel = New SqlTypes.SqlString(CType(Me.txtHilfsmittel.Text, String))
massnahmeplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
massnahmeplan.sBezeichnung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
massnahmeplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
massnahmeplan.daGueltig_Bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigBis.Value, DateTime))
massnahmeplan.iTerminierungID = New SqlTypes.SqlInt32(CType(Me.cbboxTerminierung.SelectedValue, Int32))
massnahmeplan.Save_Data()
massnahmeplan.Save_Definition_massnahmeplan(Me.TreeZuordnung)
massnahmeplan.Get_Definition_massnahmeplan(Me.massnahmeplannr, Me.TreeZuordnung)
End Sub
#End Region
#Region "Toolbar"
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
Save_data()
End Sub
Sub Save_data()
DialogResult = Windows.Forms.DialogResult.OK
If Me.massnahmeplannr = 0 Then
Dim newkey As Integer = massnahmeplan.Add_New()
Me.massnahmeplannr = newkey
massnahmeplan.Get_Data(newkey)
Me.cbAktiv.Checked = True
Else
massnahmeplan.Get_Data(Me.massnahmeplannr)
End If
Update_Data()
evh.massnahmeplandetail_save(Me.massnahmeplanHandler, Me.massnahmeplannr)
FormDataChanged = False
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub tsCbxFilter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tsCbxFilter.SelectedIndexChanged
massnahmeplanStruktur.Load_Treeview(Me.TreeStruktur)
If tsCbxFilter.Text = "-- Alle --" Then Exit Sub
Try
For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.Nodes
If Trim(n.Text) <> Trim(tsCbxFilter.Text) Then
n.Remove()
End If
Next
Catch
End Try
End Sub
#End Region
#Region "Zuordnung"
Private Sub btnNeueZuordnung_Click(sender As Object, e As EventArgs) Handles btnNeueZuordnung.Click
If Me.FormDataChanged = True Then Me.Save_data()
If Me.massnahmeplannr = 0 Then Me.Save_data()
If Me.GrpStruktur.Visible = False Then
Me.GrpStruktur.Visible = True
Me.GrpStruktur.Dock = DockStyle.Fill
massnahmeplanStruktur.Load_Treeview(TreeStruktur)
massnahmeplanStruktur.Refresh_Filter(Me.tsCbxFilter)
Me.btnNeueZuordnung.Text = "Struktur verbergen"
Else
Me.GrpStruktur.Visible = False
End If
End Sub
#End Region
#Region "Tree"
Private Sub TreeStruktur_DoubleClick(sender As Object, e As EventArgs) Handles TreeStruktur.DoubleClick
Try
If TreeStruktur.SelectedNode.Nodes.Count > 0 Then
MsgBox("Für die Zuordnung können nur Elemente der untersten Stufe (Definitionen) verwendet werden.", vbExclamation)
Exit Sub
End If
Dim key As Integer = Me.TreeStruktur.SelectedNode.Tag / 1000000
' massnahmeplan.Add_new_Zuordnung(Me.massnahmeplannr, key, Me.TreeStruktur.SelectedNode.Text, Me.chklbDefinitionZuordnung)
massnahmeplan.Add_new_Zuordnung(Me.massnahmeplannr, key, Me.TreeStruktur.SelectedNode.Text, Me.TreeZuordnung)
Me.FormDataChanged = True
Catch
End Try
End Sub
Private Sub TreeZuordnung_DoubleClick(sender As Object, e As EventArgs) Handles TreeZuordnung.DoubleClick
If IsDate(Me.TreeZuordnung.SelectedNode.Text) Then
TreeZuordnung.SelectedNode = Me.TreeZuordnung.SelectedNode.Parent
End If
Dim f As New FrmDefinition_Pruefplan
f.Aktiv = TreeZuordnung.SelectedNode.Nodes(0).Tag
f.Gueltig_Bis = TreeZuordnung.SelectedNode.Nodes(0).Text
f.ShowDialog()
Dim save_date As String = TreeZuordnung.SelectedNode.Nodes(0).Text
Dim save_aktiv As String = TreeZuordnung.SelectedNode.Nodes(0).Tag
Dim TN As New DevComponents.AdvTree.Node
Dim DoSave As Boolean = True
TN = Me.TreeZuordnung.SelectedNode
TreeZuordnung.SelectedNode.Nodes(0).Tag = f.Aktiv
TreeZuordnung.SelectedNode.Nodes(0).Text = f.Gueltig_Bis
TreeZuordnung.SelectedNode.ImageIndex = 0
For Each n As DevComponents.AdvTree.Node In Me.TreeZuordnung.Nodes
If n.Tag <> Me.TreeZuordnung.SelectedNode.Tag Then
If n.Text = Me.TreeZuordnung.SelectedNode.Text Then
If (TreeZuordnung.SelectedNode.ImageIndex = 0 Or TreeZuordnung.SelectedNode.ImageIndex = 3) And n.ImageIndex <> 2 And n.ImageIndex <> 1 Then
MsgBox("Es können nicht 2 aktive Verbindungen hergestellt werden")
TreeZuordnung.SelectedNode.Nodes(0).Text = save_date
TreeZuordnung.SelectedNode.Nodes(0).Tag = save_aktiv
DoSave = False
Exit For
End If
End If
End If
Next
If TreeZuordnung.SelectedNode.Nodes(0).Text < "31.12.2099" And TreeZuordnung.SelectedNode.Text > Now.ToString Then TreeZuordnung.SelectedNode.ImageIndex = 3
If TreeZuordnung.SelectedNode.Nodes(0).Text < Now Then TreeZuordnung.SelectedNode.ImageIndex = 2
If TreeZuordnung.SelectedNode.Nodes(0).Tag = False Then TreeZuordnung.SelectedNode.ImageIndex = 1
If DoSave Then
massnahmeplan.Update_Zuordnung(Me.TreeZuordnung.SelectedNode.Tag, f.Aktiv, f.Gueltig_Bis)
Me.FormDataChanged = True
End If
End Sub
Private Sub TSBtnSuche_Click(sender As Object, e As EventArgs) Handles TSBtnSuche.Click
Me.massnahmeplanStruktur.Init_Search()
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.SearchNode(Me.TreeStruktur, Trim(Me.tstxtSuche.Text))
Me.TreeStruktur.SelectedNode.EnsureVisible()
End Sub
Private Sub TSBtnFilterAufheben_Click(sender As Object, e As EventArgs) Handles TSBtnFilterAufheben.Click
Me.tstxtSuche.Text = ""
Me.massnahmeplanStruktur.Init_Search()
End Sub
Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.FindFirst(Me.TreeStruktur)
End Sub
Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.FindPrevNode(Me.TreeStruktur)
End Sub
Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.FindNextNode(Me.TreeStruktur)
End Sub
Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.FindLastNode(Me.TreeStruktur)
End Sub
Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
Try
Me.TreeZuordnung_DoubleClick(sender, e)
Catch ex As Exception
End Try
End Sub
Private Sub NeuerEintragHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragHinzufügenToolStripMenuItem.Click
If btnNeueZuordnung.Text <> "Struktur verbergen" Then Me.btnNeueZuordnung_Click(sender, e)
End Sub
#End Region
End Class

692
SW/AssessmentMgmt/Massnahmen/frmMassnahmeplan.Designer.vb generated Normal file
View File

@@ -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

424
SW/AssessmentMgmt/Massnahmen/frmMassnahmeplan.resx Normal file
View File

@@ -0,0 +1,424 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>234, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="tsBtnSearchStruktur_Definition.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACpSURBVFhH7ZLhCoQwDIP36Hu0vdl5DU7GbFx6KtyPfhBQ
26aBWpIkEfhMYqh9YVRjtS+Maqz2hVGN1T6Z2RCqtULfZzC8M/0GMx2+d45QZCYMjFprzPCkvnwxIwMT
Qw1g6iG82i4ZKYCwcJYMjFcneDXAS5Lxhp+QzOoEDNQvTiMDg4ufkIG6BSfhZf4jwJ0T3A5gIstNjKMn
GPyENzyK4fWOSpIkcShlA/2ShGAugX0dAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnFilterAufheben.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVFhH7ZJbEoMwCEVduktzZy0XIRKCkSbt9CdnPIyG
R+LotlhkedFlleUUo30NdlB22EiPB02sDlE5e4FnK0KvPg0aWR2kcvYCz0XkrSgYBc1FDLOiQMA9qzmV
sxNgQBEDrSgQcN/LfwyaGylU7vvORjnpGUOHerFON5XRmun5GB54HEd5My+FrlEPmeZ8I2LkAFG9mObx
AJBCdmM1DW/c+wSQwu8O8CSF0KjWmCZqZil0jXqMacJPQMFvhuDXuOfm06XhAfYnpOA3KvgcDn7z/6Sp
DoChVqkp+PzXDoAhGGhF7iy5sHmovVMHgBQqdR0FHq1Rg81hmmoYxJqxATXWc6kxB1X6YY+M9ITMDJrp
bZqhpNLM9i8Wf2Lb3g1pbK07+OH0AAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ctxMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>492, 14</value>
</metadata>
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 956, 247&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 956, 247&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>633, 17</value>
</metadata>
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKQSURBVDhPrY/JTxNRAIdf0kQPJoZ4MOFEUNwoWLbSllUg
KAFKy6JSFFDABUwQLxz4B0iaECImGA9owo14aCXFUFot2MJAC5zdN+hCaaEFSUQoP997DFSJRyf5kpnM
7/veDPkvl06n22hpaoZlfAoL3hUs+lbhXlqFxx+CdzkMXyAMfyCE5WAI43YBba1teHC/Y0PUCWmob0Aj
xTE9hwX/2l8sLq/DHViHJ7gO38oPTLvmwQ67e/sORJ2Qm403wBCc89iO7Bwggq3tCH5tbePn5hY9ZJZv
bzW3RAP1166D8UZw4dtSaBdfCF8pX+jvfPau4pNnBR/dQdgcM3zLIqJOSF2tDgzLhAAv/dQ9PIE1+vns
N8L47g/z4Khtkm9ZRNQJuVJzGYwRqx1zH7yYp8y9Z3gwS3G9o7x1Y4bywjzBt3VXa6OB6soqMB49eQbD
6ASGLQ6YXk1h5LUAE2XYOgmj2Y7nL214+Pgp37KIqBOiVVfgn1Roohx4V62tjAbUpWX4E025GlUaLR/V
0NMY7JmJ6rLy/Y2oE1JSfBGM0kslsNlscLlcHKfTyWH3giAgS6GEQi7f34o6IYV5+WAUFxbBarUiPzcP
ykwFHA4H7HY7j46NjSE/JxfZqiwU0G3RhYJoIFupAiMvKxsWOkxPSUWyVAqz2QyTyQSDwYChoSGoaFSR
IUcOi9BDRJ2QjNS0TXlqGh8YjUacPpmAE/HxXBocHMTAwAD6+/shS0qGTJqEzLR0KGlI1AmJORpzL/lc
YiRdlsLHe1JfXx96enqg1+vR3d2NMzR8NuEUzidKWWiHqkd2C4Qck0gkpXFxcVVdXV1NVGjt7e1tp3TQ
QDt77uzsbIw9Hqs9JJFoGHRfQAg5/BslsRWFgJrRJAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TSBtnAddNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="TSBtnDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="TSBtnSetSecurityObject.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKvSURBVDhPvY5bSJNhHMa/XFk3JgaVgQRBWOl3lWgnw4tA
xKLwwopCVBQty2zaTjZ7PW3aZvp52Oemm8aWqZubq0lqa31WTNQZik5J3Zzm+UKY1EVH/23jM1kHuusH
78XzPv8fPNh/JYIbGs3tuv0mTBa2jf7yRq1W+w4ODSVZLJYao9FU3NraGuIpEOZztikyIEIQnMKiUtdi
G8MDT+oP+Xm6DYxGo/+odczS19f3yfiSemUwdDnatO1fpNL6S4cFQfi9t+nLaCTBiVDiOm/g4soFzSkT
FoVtpXUM6++3EBRFreh0umB3dq1hkLWyBpH4gTPk6v6Q0HSGLFri9yKD2v35KIshP5DocxeLxxge2Y3J
ZJpu0+kL6eiBw+H4s1i80wCwRchMiYkq8UviW3c4D2Zi2+mTTTQavUMubyig409GtbLwmW5N70KnCoTC
uKfHWbvqvKZvQJJSiUhUtZyZiXa6s0VVvs/+XP2QMmm+L+llsKCphikSfUyNiwjyCL/C4wn2stn5a8ws
JjH5rJnr6NB+WDYoYLFNAvPNFTCnug+zDcUwXMF5RCu/oxALGq2GJljpVMKilgQxMx1KbyTB+0YhzNYX
gKM2DwoQZ70nL+0ErWzSUYMCrU/Qt6V2KSyoq2C+qQyqbiVDbOQxGCU44JDkgr2SDZNlTOjJTW6mNW9G
FCV184/LYU5ZCrOKIpiRIYgJCwXVzctgK8+BsZLEr7381MoO7pUAWvHGLM7ZYyWQc6Yu3zWXD9PVXLBV
3IEJURYMoLSuHnbCEfr071hE2dl2l2gnWDDlmjtYeG3iNTf5HF3/GzWK9x0syng3jK47zfyUHHemqz9j
s9lws9mMGwwGXKlU4iRJ4rJC/nkij3cGIQHufgKBGBcTBE7K5XhLixbvpih8fHwcX11dxX8ABQxYcg9+
rfgAAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnReport.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHHSURBVDhPfc9fa9NQGAbwfQPv/AS79Xv4FUq98MYbqV64
P0Iv540iTJg3KwwHaQWROu3SNrPtXHPSRCptT7JBjbFLaekfKO1X2OP7hjopJ/bAj3PI+5wnycbftVgs
DubzuVwnmUw+XsbVxQEqwTqpVOomkUjEl0Rv8T5iUXv2X/svtrC7s3WTTqfVktlsJkfl57h+dXctzkwm
k9/La//WdDqV458WBo2jtTgTWzAejyUBO6y00fZDBL1rtL2ryGg0imZLasFgMJDD4RDs0WEZX2wP/q8A
LfcyQvNoxvr9vlrQ6/VkGIYw7A6evj3BbuYUPzouitX6rappgzNELQiCQBJU6g1ixToXDjjj+75a0O12
JYF7eQXD6USf7XqrPJpxhqgFnudJAnb/5SccGzZM+zs+G9WI67rRjNFZLWi1WpIgfybw8PUHPDnI45to
4KRcvaVXzsGZZrOpFjiOIwkuTPrfC4FaXdB5VV0IcEYIoRaYpikty8LpWRUF+uQ4+tcaOLNSkMlk7uRy
uXuFQuF9qVQKi8Xi0DCMWRyecUbX9Tzf4bsbmqZtZrPZB/Rgm+zReZ/2N7Qf0f6OLc/8jGd7ZJvvaJq2
+QcsIGo4Kn9/QwAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtncopy1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIYSURBVDhPjZNLbxJhFIaJunHhwoVrd8a40X+A8Q/ohoVL
3FFhMTWEuJrKYLnMAMI0rTMU5DLTyzHVVuTS0gZakLZYTOuqJhrc6cKNcWUaTzwDH/lqQOOzmjlz3uc7
ZzJj+xeiKJ5xOp2XPB7PNZ/vwU2Xy3WRPfo7drv9XLNZfn98vPO11+ueaE8lNApR1LUAArzoeL3eC6x1
PA6H42y9Xv8FZhRhIYaw+ARhKYH5vILhcARfV6oNQRDOs3aOLAdvmWbKXVxbCh4d1b/HoyIqsoi0BqZT
05jPyf1rSRIxk9E0FuN092qtwalxPPn5+YN1KiwnMRSaGkj06f4kVq3T2XjJYpxOu7oJhoJDyXB0RZZQ
VWf6ksz8QHL4bnuZxTi7jWIRCjJyyWB/bU7C2Vk/jR3CBK1l1d7u1QosxmlurT2HXATHSYajq3ESUG1/
dyPNYpyt6koBsiGEXBghb4lOS2glkqgxElDtzU55jsU4m2XQ4VkQRyQGl6jWClRrN0sJFuOsv1pMQuYx
jkqslUhixlBVSEC1Rm1VZjFOacWIQJq+tr6E3vYYyUGr8qXbrqwbOf02i3FWIeuHlIQwT5L0UELTnJIE
AuIN1j4KGKmHoD/CPyQZktBKJt33Pu7/mJy8f4W1j5LVkgJoU5hNiPjpcPvbQatUqxYXIvpM/K7b7b5q
/ZmsdTw+QbiuhP13JibuXWal/8Bm+w1UaLTHl412eAAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnCopy2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGSSURBVDhPjVPLasJAFM22u0KX1mWzsJv+lh+h31A/Qqhr
P8CNVqhUYzQRpa6kFKSal/ERH7f3DJkhk1rohcOEzD2PeRlcNwzzn7hn/CrTDwJaex5hDMKQwiiiaLOh
DRDHCtVqtZ5ytDI9z6fv1UoTiVhECsQpKpVKE/0ZIL1hBkzyfJ8wCiI3b7db2u12tN/vFezRSKXBXCpi
mIgsXNkxTomHw4GSJNEwSgWQRhNAVJDhCidJOB6PGhzHUWlgoARAhLMkS8LpdKLz+azguq4mrgQQR8bO
Ey+Xi8JkMlHzgBKQkaRyloh/4jQYY16CFAaUAMh5d5CxWfP5nCzLEhv41uspYUATkO4QwCS+F4sFTadT
do9oYA2ECfYLR62dwrX4aMCah8Mh9fvvYoOXy6VIYts2vTQaH8y9EwIJE/PxITpgcue1I+ZCvifdblf0
tNvtr2Kx+AgySntM5XK5CRec+Ww2U6JwZyK1Wq3PUqn0BOLV4vtex3JAzCZardf0XKuNC4XCQ9r6Z+HJ
qkQ53DIyZRg/yW2pDIFIxosAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pdyuFRWVeJF1Z
0AeGKckIIpBGdzaU8KIoeB2tK7sI+gC7GLXvNmufzelW24rZTQhaSK41wmntbTO3uYs28v33DJ7L3s1+
8Oc8zzn/c87zMJshwLKud21tN+n1/5ju6Xl4n2Ggq6tDUCb7+FYur6el6ggLjzvnEzF4bt/FPTJkXCLB
i8ZGzLJsN7VU5vfcjXR2sgOp2BPEF3mM72XxoKYGbqn0FrWIsxHX6n8FziLlasWyicFK4BRiP9J4pR76
Ri3iCAntmWxYiZRHQQbIsDwhRdrXju+2LUjMPW+ltn8T86m38qGrRZ5szkydQNK+A6tTXWSQHH8CEjW1
ibMxPxzkvQqsTp8mLzhINncg7T+OvG9XlFrEEWLXVRlfJ356j2AtpARPvrD2pg9e7oDwyVZfS23ilBYe
JXlvOwrvryE9eQy58CVkyHYhvP8CtVSm+PkpsotOZGfvIPe6l2w/j1L46AQtV2Zs7LIEvBP5Ly+xvhRC
IRlEIdq9TsvVaW7erbjY14XcVw+KfBQoxW35lQ87abk6TS0t57Ztr8WehgZ3ZmmmiaY3RyQS2cdx3KhG
o9HqTSalTvdswGw2DzocjpGynE7nIJGK6Irb7e53uVwn/X6/nLYzjN1uP2SxWHpJ04DBYBgyGo0jJI6S
yJVFz+XcMJFKr9f3W63WwwzDMH8BFZskKY4KBWEAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>740, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAm
CwAAAk1TRnQBSQFMAgEBBAEAAVABAQFQAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ACQAB/wEH
BHEBcgH0CAAB/wGTBEYBbwH0CAAB/wGTBEYBbwH0CAAB/wGZBFMBdAH0BwAB8QNyBnEB/wUAAfIJRgH/
BQABGglGAf8FAAEbCFMBUgH/BAABCAOXAnIGcQH/AwABGgNMCEYB/wMAARoDTAhGAf8DAAEaAlkFUwGa
A1MB/wIAAfQElwEIAZcCcgVxAgAB9AIXAW8BGgFMBEYBvQNGAgAB9AIXAW8CTAhGAgAB/wRZCFMBUgIA
BJcBCAL/AZcCcgRxAfQBAAJvARcB9AH/AfMBTAJGAv8BlAJGAfQBAAJvAhcBbwJMB0YB9AEABlkEUwH2
A1MB9AH/A5cBCAH/AfQC/wGXAnIDcQFyAf8EbwL/AfMBTAL/ARsDRgFvAf8DbwIXAW8CTAZGAW8B/whZ
AlMB/wNTAXQB8QKXAQgB/wH0ApcC/wGXA3ICcQEaAeMEbwT/Ab0FRgEaAeMCbweUARYBbwNGARsDWQX/
AVkBUwH/AZoDUwEHAXgBlwH/AfQElwL/ApcCcgFxAQcC4wRvA/8BTAVGAQcC4wHzCf8DRgGZA1kE/wH2
AVkBmgH/ARoDUwEIApgHlwL/ApcCcgEaA+MCbwT/AfMBTAEXA0YBGgLjARYBvQMaBL0BlANGARoDWQj/
AZoDUwH0A5gBeAaXAv8ClwFyAfQBFgPjAv8BGwFvAv8B8wJMAkYB9AEWA+MEbwIXA0wCRgH0A1kI/wJZ
AlMB/wEIA5gBeAaXAf8ClwEHAf8BlAEWAeMB8wH/AfMDbwL/AZQCTAGTAf8BlAEWA+MEbwIXAW8CTAGT
Af8BmgJZAf8B9gX/AXoDWQGZAQABBwWYCJcB/wEAAZMCFgHjAb0B4wRvAZQBFwFvAUwB/wEAAZMCFgPj
BG8CFwFvAUwB/wEAAZkFWQGgAcMBmgVZAf8BAAH/AQgFmAF4BZcB8QIAAf8BlAMWAuMEbwIXAfICAAH/
AZQDFgLjBG8CFwEaAgAB/wGaC1kBGwMAAf8BCAWYAXgClwGYAQgEAAH/AZQDFgPjA28BGgQAAf8BlAMW
A+MDbwEaBAAB/wGaCVkBGgUAAf8BBwEIBpgB9AYAAf8BkwG9AhYC4wEWAW8B9AYAAf8BkwG9AhYC4wEW
AW8B9AYAAf8BmQGgAXoDWQF6AVkB/wgAAf8B9AIIAfEB/woAAf8B9AEaAQcBGgH/CgAB/wH0ARoBBwEa
Af8KAAH/AfQBGgGZARsB/wUAAUIBTQE+BwABPgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYAA/+BAAHw
AQ8B8AEPAfABDwHwAQ8B4AEDAeABAwHgAQMB4AEDAcABAQHAAQEBwAEBAcABAQGAAQEBgAEBAYABAQGA
AQEBgAEAAYABAAGAAQABgDEAAYABAAGAAQABgAEAAYABAAGAAQEBgAEBAYABAQGAAQEBwAEDAcABAwHA
AQMBwAEDAeABBwHgAQcB4AEHAeABBwH4AR8B+AEfAfgBHwH4AR8L
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>341, 17</value>
</metadata>
</root>

422
SW/AssessmentMgmt/Massnahmen/frmMassnahmeplan.vb Normal file
View File

@@ -0,0 +1,422 @@
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class frmMassnahmeplan
#Region "Deklarationen"
Dim sec As New Utils.MySecurity
Dim msg As New Utils.MyMessage
Dim FormReadonly As Boolean = False
Dim FormDataChanged As Boolean = False
Private Anzeige As Boolean = False
Dim OnGetData As Boolean
Dim c1bookmark
Dim c2bookmark
Dim massnahmeplan As New clsMassnahmeplan
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Schliessen des Formulars
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.FormReadonly = True
If Me.FormReadonly = True Then Exit Sub
If Check_Changes() = False Then
e.Cancel = True
Else
massnahmeplan.dispose()
Me.Dispose()
End If
End Sub
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.FormDataChanged Then
msgres = msg.Show_MessageYesNoCancel(3)
Select Case msgres
Case MsgBoxResult.Yes
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.FormDataChanged = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
Me.FormDataChanged = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.FormDataChanged = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Form"
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.ImageList1 = Globals.GueltigImages
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmPPlan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_List()
End Sub
Sub Refresh_List(Optional searchstring As String = "")
Me.massnahmeplan.Get_Eintraege(Me.C1Daten, 0, Me.tsTxtSearch.Text)
Dim bmp0 As New Bitmap(Me.ImageList1.Images(0))
Dim bmp1 As New Bitmap(Me.ImageList1.Images(1))
Dim bmp2 As New Bitmap(Me.ImageList1.Images(2))
Dim bmp3 As New Bitmap(Me.ImageList1.Images(3))
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
v0.DisplayValue = bmp0
v0.Value = 0
v1.DisplayValue = bmp1
v1.Value = 1
v2.DisplayValue = bmp2
v2.Value = 2
v3.DisplayValue = bmp3
v3.Value = 3
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v0)
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v1)
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v2)
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v3)
Me.C1Daten.Columns("Icon").ValueItems.Translate = True
Me.C1Daten.Splits(0).DisplayColumns("icon").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
End Sub
#End Region
#Region "C1Daten"
Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
End Sub
Private Sub C1Daten_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Daten.RowColChange
Refresh_Details()
End Sub
#End Region
Sub Refresh_Details()
Try
Me.txtPruefgegenstand.Text = ""
Me.txtPrioritaet.Text = ""
Me.txtPeriodizitaet.Text = ""
Me.txtZeitpunkt.Text = ""
Me.txtVerantwortlich.Text = ""
Me.txtVerantwortungISI.Text = ""
Me.txtBeschreibung.Text = ""
Me.txtBezeichnung.Text = ""
Me.txtGueltigbis.Text = ""
Me.txtPruefgegenstand.Text = C1Daten.Columns("Pruefgegenstand").Value
Me.txtPeriodizitaet.Text = C1Daten.Columns("Periodizitaet").Value
Me.txtPrioritaet.Text = C1Daten.Columns("Prioritaet").Value
Me.txtZeitpunkt.Text = C1Daten.Columns("Zeitpunkt").Value
Me.txtVerantwortlich.Text = C1Daten.Columns("Verantwortung").Value
Me.txtVerantwortungISI.Text = C1Daten.Columns("Verantwortung_ISI").Value
Me.txtBeschreibung.Text = C1Daten.Columns("Beschreibung").Value
Me.txtBezeichnung.Text = C1Daten.Columns("Bezeichnung").Value
Me.txtGueltigbis.Text = C1Daten.Columns("Gueltig_bis").Value
Me.DokumenteAllgemein.Show_Toolbar = False
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteAllgemein.Doktype = 7
Me.DokumenteAllgemein.ThemaNr = C1Daten.Columns("massnahmeplannr").Value
Me.DokumenteAllgemein.Refresh()
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Sub
Private Sub TSBtnAddNew_Click(sender As Object, e As EventArgs) Handles TSBtnAddNew.Click
Dim f As New frmMassnahmeplanDetail()
f.massnahmeplanHandler = Me.Handle
f.MdiParent = Me.MdiParent
f.Show()
End Sub
Private Sub DetailsAnzeigenBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailsAnzeigenBearbeitenToolStripMenuItem.Click
Try
c1bookmark = C1Daten.Bookmark
Dim f As New frmMassnahmeplanDetail
f.massnahmeplannr = Me.C1Daten.Columns("massnahmeplannr").Value
f.MdiParent = Me.MdiParent
f.massnahmeplanHandler = Me.Handle
f.Show()
Catch ex As Exception
End Try
End Sub
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
Try
DetailsAnzeigenBearbeitenToolStripMenuItem_Click(sender, e)
Catch ex As Exception
End Try
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub evh_Pruefplandetail_Saved(handler As Integer, key As Integer) Handles evh.MassnahmeplanDetail_Saveed, evh.MassnahmeplanDetail_Closed
Try
If handler = Me.Handle Then
Me.Refresh_List()
For i = 0 To Me.C1Daten.Splits(0).Rows.Count - 1
If C1Daten.Columns("massnahmeplannr").CellValue(i) = key Then
Me.C1Daten.Bookmark = i
Refresh_Details()
End If
Next
End If
Catch
End Try
End Sub
Private Sub tsBtnSearchStruktur_Definition_Click(sender As Object, e As EventArgs) Handles tsBtnSearchStruktur_Definition.Click
Refresh_List(Me.tsTxtSearch.Text)
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles tsbtnFilterAufheben.Click
Me.tsTxtSearch.Text = ""
Refresh_List(Me.tsTxtSearch.Text)
End Sub
Private Sub tsTxtSearch_KeyDown(sender As Object, e As KeyEventArgs) Handles tsTxtSearch.KeyDown
If e.KeyCode = Keys.Enter Then
tsBtnSearchStruktur_Definition_Click(sender, e)
End If
End Sub
Private Sub DefinitionAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DefinitionAnzeigenToolStripMenuItem.Click
Dim f As New frmVorgabeDefinition
f.Key = Me.C1Daten.Columns("VorgabeDefinitionNr").Value
f.ShowDialog()
End Sub
Private Sub NeueDefinitionErfassenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueDefinitionErfassenToolStripMenuItem.Click
TSBtnAddNew_Click(sender, e)
End Sub
Private Sub VorgabeAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorgabeAnzeigenToolStripMenuItem.Click
Dim f As New frmVorgabe(Me.C1Daten.Columns("massnahmeplannr").Value, True)
f.MdiParent = Me.MdiParent
f.Show()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
DetailsAnzeigenBearbeitenToolStripMenuItem_Click(sender, e)
End Sub
Private Sub TSBtnDelete_Click(sender As Object, e As EventArgs) Handles TSBtnDelete.Click
Try
Dim i As Integer = Me.massnahmeplan.Get_Data(Me.C1Daten.Columns("Massnahmeplannr").Value)
If MsgBox("Massnahme löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Me.massnahmeplan.Get_Data(Me.C1Daten.Columns("massnahmeplannr").Value)
Me.massnahmeplan.Delete_Data()
Me.Refresh_List()
End If
Catch ex As Exception
End Try
End Sub
Private Sub MassnahmeGenerierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MassnahmeGenerierenToolStripMenuItem.Click
Generate_Action()
End Sub
Public Function Generate_Action()
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "generate_massnahme"
'sqlcmd.CommandText = "generate_pruefschritt"
sqlcmd.Parameters.Add(New SqlParameter("@massnahmeplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.C1Daten.Columns("massnahmeplannr").Value))
sqlcmd.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
sqlcmd.ExecuteNonQuery()
MsgBox("Generierung abgeschlossen")
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
#Region "Toolbar"
#End Region
End Class

1092
SW/AssessmentMgmt/Massnahmen/frmMassnahmeuebersicht.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

448
SW/AssessmentMgmt/Massnahmen/frmMassnahmeuebersicht.resx Normal file
View File

@@ -0,0 +1,448 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>242, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="tsBtnSearchStruktur_Definition.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACpSURBVFhH7ZLhCoQwDIP36Hu0vdl5DU7GbFx6KtyPfhBQ
26aBWpIkEfhMYqh9YVRjtS+Maqz2hVGN1T6Z2RCqtULfZzC8M/0GMx2+d45QZCYMjFprzPCkvnwxIwMT
Qw1g6iG82i4ZKYCwcJYMjFcneDXAS5Lxhp+QzOoEDNQvTiMDg4ufkIG6BSfhZf4jwJ0T3A5gIstNjKMn
GPyENzyK4fWOSpIkcShlA/2ShGAugX0dAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnFilterAufheben.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVFhH7ZJbEoMwCEVduktzZy0XIRKCkSbt9CdnPIyG
R+LotlhkedFlleUUo30NdlB22EiPB02sDlE5e4FnK0KvPg0aWR2kcvYCz0XkrSgYBc1FDLOiQMA9qzmV
sxNgQBEDrSgQcN/LfwyaGylU7vvORjnpGUOHerFON5XRmun5GB54HEd5My+FrlEPmeZ8I2LkAFG9mObx
AJBCdmM1DW/c+wSQwu8O8CSF0KjWmCZqZil0jXqMacJPQMFvhuDXuOfm06XhAfYnpOA3KvgcDn7z/6Sp
DoChVqkp+PzXDoAhGGhF7iy5sHmovVMHgBQqdR0FHq1Rg81hmmoYxJqxATXWc6kxB1X6YY+M9ITMDJrp
bZqhpNLM9i8Wf2Lb3g1pbK07+OH0AAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALMSURBVDhPjZJtSFNxFMbXRwMpEJ2bU3Fuq80N3cgXHCbY
G0QYIX0IBBMtY/rBVxL9oHOzZFaubSLiXLLtoptM53JmWE5NiXQ5a82cW+ocmkGLhMoI6nT/10sSVvSD
h3M4z3kO/wuX8if0a6dysGAOplvLWNQGjr1TerjsMj0ngbT/zcD26ccafwyovJGgWqbiioLb64yw7iAf
9FvC0P2vZ3LJ1T0qTBlhqPa9z55SLkWAejkaFw00fjq0+6muLj//LDqEpPHFgDl03DnwMTORCCN6P4km
9METzjseKrS9jiHUscEw35ijpiNfu87vQ0c1PjqofdHoZW+MIaaYCCOUq3GjzS4G3FyIJ6TwxrWTFkHP
FpsIolepvNHQE0xaJa1dZB7uaN0MB5Bqn7CgcyX3ImkhDnRs0IpaF6hR0mcxP5RLdFB6adDuS8kkfQql
clo0VjqSDBJc1+wCqJpOhXJLFo20f6EJxGKt7lhQvGSANsSrJMcUisSRWZHfL+yXPEi9XD+bFUuO99EZ
FOuanPEgf54AygCrlhxTKLVj9Ii+rZMKXVC00vtWPE+OCYa/pzc7dhpYqJe7knfqZthQ//QISOc554kF
RMMog9WGf9etV3RQuCNBFxAvTn5uSWuwnTuo9rGDTV7aN/OHq4ckD9me8kdJUD0lADK6hzrIkcmciSBz
MkE6Fw+NszRodQugCX+udDYOWl4ItttcBYevjKR4q+bSG8nY78gW+cqaSR7UTCBxodpxFGocXKKvHGfj
R3Lc5OrfKR7mpUjGheaSMcFm0TDvS7FNBEU2IZTYBJtlU8l7P8//UGhJvZA/lATFtrRScrQfrVYbbrfb
BTabLdtqtebiNc9isRYOmIYKuo1dFZ2YqsxkMF0yY5bCwcHBPHInG2XwPpyCYRjTYDAUGI3G67jkeH8X
r0q83jPqsR4MF9HvzpAnR7sog2EY8ydmsnwsDSspOwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ctxMenuPruefschritt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>349, 17</value>
</metadata>
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 837, 175&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 837, 175&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACk
DAAAAk1TRnQBSQFMAgEBBQEAAXABAQFwAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wYAAf8BBwJyAZIB8wH/
NwAB/wFyAi4DLwIuAfM1AAH/Bi4DLwEuAQczAAH/BS4GLwEuAfMyAAG8BC4BKAgvMgADLgEvAygBVwJW
BC8B9DAAAf8CLgEvAygCLwNXAVYCLwHvMAAB/wEuAi8BKAEuAXkBVwJWAXkCVwFWAS8BczAAAf8CLwJX
AnkBmQF5AlcBeQJXAVABHDEAAS8BNgFXAnkBmQKfAXkBVwFWAXgBVwFQAfAxAAFRATYBVwF5AZkBnwEa
ARsBwgF5AVcBLgFXAVYB/zEAAf8BNgFXAXkBmQGfAcICGwGfAXgBeQFXARwzAAEHATYCeQGfARoBwgEa
AZ8BmQF4AVc1AAG8AVgBeQGZA58BmQF5AXgB/zYAAf8GeQHxOwAC/z4AAfQBUgsAAfQFeAFQAQcIAAH0
BJEBkAGLAbsIAAH/BeMBbwG2CAABMQF5AQACMQEaAfQBMQEbBgABmQR4AVEEUAH0BQABtASRAYsBkQOL
AfQFAAGUBeMEbwH0BgAIUgEbBQAFeAdQAfQDAAG0BZEB/wGRBIsB9AMAARYE4wdvAfQCAAH0AfMBGwhS
AXQC8wIAAQgEeAFQAQgB/wZQAgABvASRAYsC/wH0AZEEiwIAARoE4wGTAv8BGgVvAgABGg1SAgADeAGZ
Af8BmAEbAQgCGwH/A1ABBwEAA5EBtQG0AYsBtAH/AZEB/wG8A4sBuwEABOMB/wRvAfMBkwNvAZMCAAxT
AfMBAAEbBHgB/wGZA/8BmQEbBFAB8gORAf8DiwG7AZEBiwH0AZEDiwHzA+MB9AZvAfMEbwEAAf8BUwHD
AVMBwwF6AsMBUwF6A1MBGgEAAZkDeAFQAXgB/wF4AVAB8wH/ARsEUAG1ApEBtAG8B4sB/wOLAZQD4wEb
AZMF/wFvARoDbwGZAlMB/wGaAf8BmgJTAZoB9gIaAlMBUgN4ARsB/wEIAfMDUAH/AQgB/wNQA5EBuwG1
B4sB/wOLA+MBFgKTBRsBbwH/A28BAAF6AVMB/wGaAf8BmgFSAVMB9gGaARoB/wJTAfQEeAEbAZkB/wJQ
AXgB/wEbAZkCUAF4A5ECuweLAf8BiwGQAZEBFgPjAbYBbwH0A/8CbwH/Am8B4wIAAVMBeQFTAXkBUwN5
AlMBdQFTAgABCAR4AQgC/wHzAf8BmQGYAVABUQJ4AbsDkQH/BosBkQH0A5EBGgPjAf8CbwL/A28BkwPj
AQAB/wxTAXkBAAH/A3gBmQH/AQgBmQEIAXgC/wR4Af8DkQG7AfMBiwH/AbUCiwH/BJEB/wPjAZQBGgVv
Af8E4wEAAXoNUwIABHgBmQF4ARsB/wFQAXgBmQN4AfQBAASRAbsB/wHyAf8BkQGQBJEB9AEABOMBlAH/
AbYBkwEbAfQE4wH/BAAIUwEbBAAB/wZ4ARsFeAGZAgAB/wWRAbQB/wG0BJEBtAIAAf8G4wEWBeMBlAUA
AlMBegVTARsFAAH0C3gEAAH0BJEB/wWRAbQEAAH0CuMBFgYAAXoCAAF6AVMB/wEAAfMB9AYAAf8IeAEI
BgAB/wiRAbwGAAH/COMBGgsAARoMAAH/AQgCeAGZARsKAAH/AbsCkQG1AfIKAAH/ARoBFgHjAZQB8wUA
AUIBTQE+BwABPgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYAA/8BAAH4AQ8GAAHgAQcGAAHAAQMGAAGA
AQEGAAGAAQEGAAGAHwABgAcAAYAHAAGAAQEGAAHAAQMGAAHgAQMGAAHwAQ8GAAH+AX8GAAH+AX8B8AEP
AfABDwHwAQ8B8gEHAeABAwHgAQMB4AEDAfABBwHAAQEBwAEBAcABAQGAAQEBgAEBAYABAQGAAQEBgAEB
AYABAAGAAQABgAEAAcABAQYAAYABAQ4AAYAHAAHAAQMGAAGAAQEGAAGAAQEBgAEAAYABAAGAAQAB8AEH
AYABAQGAAQEBgAEBAfABBwHAAQMBwAEDAcABAwH2AScB4AEHAeABBwHgAQcB/wF/AfgBHwH4AR8B+AEf
Cw==
</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>504, 17</value>
</metadata>
<data name="tsbtnNeuesFinding.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnPruefschrittbearbeiten.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFc7Su9CLoA+xi1L7brH02p1ttK1c3IWgh+bZGOM29vjO3uYs2cv+ewXPZu9kP
/pznOed/znkeZisEJBLX+5aW2/T6f0x1dT16wDDQ1dQgKJV+fieT1dJSZYrzT9rn4iw8d+9jlAwZE4nw
sr4eMxJJJ7WU5/fsLT490YYk+xSxBQ5j+yV4WFUFt1h8h1qE2Yxp9b8C55F0NWPJxGA5cAbsCo/XqoEf
1CJMMa49lw4rkPTIyQAplsbF4H2t+Gnbhvjsi2Zq+zesT7WdC13Pc2RzavIUEvZdWJvsIINk+BMQqahN
mM25wSDnlWNt6ix5wWGyuQ28/ySyvj1RahGmyN5UpnztWPUew3pIAY58Yf1tD6ZHDxW/2GqrqU2Ywvzj
BOdtRe7jDfATJ5AJX0GKbC+GD16ilvLkvz5DesGJ9Mw9ZN50k+0XUQgfH6fl8oyMXBWBcyL77RU2FkPI
JYLIRTs3aLkyjY175Zd7OpD57kGeiwKFmC27/Gk3LVemoanpwo6d1dhXV+dOLX5ooOmtEYlEDqjV6mGN
RqPVm0wKne55n9ls7nc4HEMlOZ3OfiIl0TW3293rcrlO+/1+GW1nGLvdfsRisXSTpj6DwTBgNBqHSBwm
UV0SPZdyg0RKvV7fa7VajzIMw/wFTEUkRqq1mZcAAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnFindingDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="C1Notiz.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Notiz.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Notiz.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 764, 130&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 764, 130&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="C1History.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1History.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1History.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1053, 285&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1053, 285&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

289
SW/AssessmentMgmt/Massnahmen/frmMassnahmeuebersicht.vb Normal file
View File

@@ -0,0 +1,289 @@
Imports System.ComponentModel
Imports C1.Win.C1TrueDBGrid
Imports DevComponents.AdvTree
Public Class frmMassnahmenuebersicht
#Region "Deklarationen"
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
Dim sec As New Utils.MySecurity
Dim msg As New Utils.MyMessage
Dim FormReadonly As Boolean = False
Dim FormDataChanged As Boolean = False
Dim Massnahme As New clsMassnahme
#End Region
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.ImageList1 = Globals.StatusImages
Me.TreeUebersicht.ImageList = Me.ImageList1
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmPruefschrittUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_All()
End Sub
Sub Load_Status()
Me.DokumenteAllgemein.Show_Toolbar = False
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteAllgemein.Doktype = 7
'Me.DokumenteAllgemein.ThemaNr = 0
'Me.DokumenteAllgemein.Refresh()
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
Me.TreeUebersicht.Nodes.Clear()
Dim i As Integer = 0
For Each r As DataRow In Massnahme.Status.Rows
Dim tn As New DevComponents.AdvTree.Node
tn.Text = r("Bezeichnung")
tn.Tag = r(0)
tn.ImageIndex = i
i = i + 1
Me.TreeUebersicht.Nodes.Add(tn)
Next
End Sub
Private Sub TreeUebersicht_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles TreeUebersicht.AfterNodeSelect
Try
Me.C1Daten.Columns("StatusNr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
Catch
End Try
Me.DokumenteAllgemein.Pruefschrittnr = -1
Try
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Massnahmenr").Value
Catch
End Try
End Sub
Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
Me.DokumenteAllgemein.Init()
Me.C1Notiz.DataSource = Nothing
Try
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Massnahmenr").Value
Refresh_notizen()
Refresh_History()
Catch
End Try
Refresh_Details()
End Sub
Sub Refresh_notizen()
Dim notizen As New clsPruefschrittNotiz
Try
notizen.Get_Eintraege(Me.C1Notiz, Me.C1Daten.Columns("Massnahmenr").Value)
Catch
End Try
End Sub
Sub Refresh_History()
Dim history As New clsHistory
Try
history.Get_Eintraege(Me.C1History, Me.C1Daten.Columns("Massnahmenr").Value)
Catch
End Try
End Sub
Sub Refresh_All()
Load_Status()
Massnahme.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
End Sub
Sub Refresh_Details()
Try
Me.txtBezeichnung.Text = ""
Me.txtBeschreibung.Text = ""
Me.txtPruefgegenstand.Text = ""
Me.txtMassnahmen.Text = ""
Me.txtEreignisse.Text = ""
Me.txtHilfsmittel.Text = ""
Me.txtVerantwortlich.Text = ""
Me.txtVerantwortungISI.Text = ""
Me.txtAktuellVerantwortlich.Text = ""
Me.txtTermin.Text = ""
Me.txtZugewiesen.Text = ""
Me.txtErstelltam.Text = ""
Me.txtMutiertam.Text = ""
Me.txtMutierer.Text = ""
Me.txtBezeichnung.Text = Me.C1Daten.Columns("Bezeichnung").Value
Me.txtBeschreibung.Text = Me.C1Daten.Columns("Beschreibung").Value
Me.txtPruefgegenstand.Text = Me.C1Daten.Columns("Pruefgegenstand").Value
Me.txtMassnahmen.Text = Me.C1Daten.Columns("Massnahmen").Value
Me.txtEreignisse.Text = Me.C1Daten.Columns("Ergebnisse").Value
Me.txtHilfsmittel.Text = Me.C1Daten.Columns("Hilfsmittel").Value
Me.txtVerantwortlich.Text = Me.C1Daten.Columns("Hauptverantwortung").Value
Me.txtAktuellVerantwortlich.Text = Me.C1Daten.Columns("aktuell_verantwortlich").Value
Me.txtVerantwortungISI.Text = Me.C1Daten.Columns("Verantwortung_isi").Value
Me.txtZugewiesen.Text = Me.C1Daten.Columns("Zugewiesen").Value
Me.txtErstelltam.Text = Me.C1Daten.Columns("erstellt_am").Value
Me.txtMutiertam.Text = Me.C1Daten.Columns("mutiert_am").Value
Me.txtMutierer.Text = Me.C1Daten.Columns("mutierer").Value
Me.txtTermin.Text = Me.C1Daten.Columns("Termin").Value
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub WeiterleitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WeiterleitenToolStripMenuItem.Click
Try
Dim f As New frmWeitergabe(Me.C1Daten.Columns("MassnahmeNr").Value)
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim clsnotiz As New clsPruefschrittNotiz
clsnotiz.Add_New()
clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("MassnahmeNr").Value, Int32))
clsnotiz.Save_Data()
clsnotiz = Nothing
Dim History As New clsHistory
History.Insert_History(C1Daten.Columns("massnahmenr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
History.Dispose()
Me.Massnahme.Get_Data(C1Daten.Columns("MassnahmeNr").Value)
Me.Massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
Me.Massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(2, Int32))
Me.Massnahme.Save_Data()
Refresh_All()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Refresh_All()
End Sub
Private Sub C1Notiz_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Notiz.RowColChange
Me.txtnotiz.Text = ""
Try
Me.txtnotiz.Text = Me.C1Notiz.Columns("Notiz").Value
Catch ex As Exception
End Try
End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
Dim f As New MassnahmeDetailBearbeitung
f.Massnahmenr = C1Daten.Columns("massnahmenr").Value
f.MdiParent = Me.MdiParent
f.Handler = Me.Handle
f.Show()
End Sub
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
Try
BearbeitenToolStripMenuItem_Click(sender, e)
Catch ex As Exception
End Try
End Sub
Private Sub tsbtnFindingBearbeiten_Click(sender As Object, e As EventArgs) Handles tsbtnPruefschrittbearbeiten.Click
Try
Me.C1Daten_DoubleClick(sender, e)
Catch
End Try
End Sub
Private Sub evh_pruefschrittresultat_closed(handler As Integer, key As Integer) Handles evh.pruefschrittresultat_closed
Try
If Me.Handle = handler Then Refresh_All()
Catch
End Try
End Sub
Private Sub evh_Pruefschrittresultat_saved(handler As Integer, key As Integer) Handles evh.Pruefschrittresultat_saved
Try
If Me.Handle = handler Then Refresh_All()
Catch
End Try
End Sub
Private Sub ctxMenuPruefschritt_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuPruefschritt.Opening
If Me.C1Daten.Splits(0).Rows.Count < 1 Then
Me.ctxMenuPruefschritt.Visible = False
Else
Me.ctxMenuPruefschritt.Visible = True
End If
Me.BearbeitenToolStripMenuItem.Enabled = False
Me.WeiterleitenToolStripMenuItem.Enabled = False
Me.AbschliessenToolStripMenuItem.Enabled = False
'Prüfung abgeschlossen
If Me.TreeUebersicht.SelectedNode.Tag < 4 Then
Me.BearbeitenToolStripMenuItem.Enabled = True
Me.WeiterleitenToolStripMenuItem.Enabled = True
Me.AbschliessenToolStripMenuItem.Enabled = True
End If
End Sub
Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
Dim f As New MassnahmeDetailBearbeitung
f.Massnahmenr = C1Daten.Columns("massnahmenr").Value
f.MdiParent = Me.MdiParent
f.Handler = Me.Handle
f.IsReadonly = True
f.Show()
End Sub
Private Sub AbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschliessenToolStripMenuItem.Click
If MsgBox("Ist die Massnahme definitiv abgeschlossen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Massnahme.Get_Data(Me.C1Daten.Columns("PruefschrittNr").Value)
Dim f As New frmWeitergabe(Me.Massnahme.iMassnahmeNr, Me.Massnahme.iVerantwortungIsINr)
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.Massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
Me.Massnahme.iStatusNr = 5
Me.Massnahme.Save_Data()
Dim History As New clsHistory
History.Insert_History(C1Daten.Columns("massnahmenr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
History.Dispose()
Me.Refresh_All()
End If
End If
End Sub
Private Sub tsBtnSearchStruktur_Definition_Click(sender As Object, e As EventArgs) Handles tsBtnSearchStruktur_Definition.Click
End Sub
End Class

1092
SW/AssessmentMgmt/Massnahmen/frmPruefschrittUebersicht.Designer.vb.bak Normal file
View File

File diff suppressed because it is too large Load Diff