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

1
.svn/entries Normal file
View File

@@ -0,0 +1 @@
12

1
.svn/format Normal file
View File

@@ -0,0 +1 @@
12

258
.svn/pristine/00/002299ca4417921c99f879816c67b4ec2147d6ee.svn-base Normal file
View File

@@ -0,0 +1,258 @@
-- ================================================================================================================
-- Stored Procedures generated by LLBLGen v1.21.2003.712 Final on Mittwoch, 30. November 2016, 11:18:45
-- For the Low Level Business Logic Layer for the database 'assessmentmgmt'
-- ================================================================================================================
SET NOCOUNT ON
GO
USE [assessmentmgmt]
GO
-- ========================================================================================================
-- [Stored Procedures generated for table: PruefSchrittResultat]
GO
-- //// Insert Stored procedure.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_PruefSchrittResultat_Insert]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_PruefSchrittResultat_Insert]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will insert 1 row in the table 'PruefSchrittResultat'
-- Gets: @iPruefSchrittResultatNr int
-- Gets: @iPruefschrittNr int
-- Gets: @iPruefschrittResultatStatusNr int
-- Gets: @sKurzbeschreibung varchar(1024)
-- Gets: @sBeschreibung varchar(4096)
-- Gets: @bAktiv bit
-- Gets: @daErstellt_am datetime
-- Gets: @daMutiert_am datetime
-- Gets: @iMutierer int
-- Gets: @iAnzahl_Pruefungen int
-- Gets: @iFindings_niedrig int
-- Gets: @iFindings_mittel int
-- Gets: @iFindings_hoch int
-- Gets: @iFinding_kein int
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_PruefSchrittResultat_Insert]
@iPruefSchrittResultatNr int,
@iPruefschrittNr int,
@iPruefschrittResultatStatusNr int,
@sKurzbeschreibung varchar(1024),
@sBeschreibung varchar(4096),
@bAktiv bit,
@daErstellt_am datetime,
@daMutiert_am datetime,
@iMutierer int,
@iAnzahl_Pruefungen int,
@iFindings_niedrig int,
@iFindings_mittel int,
@iFindings_hoch int,
@iFinding_kein int,
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- INSERT a new row in the table.
INSERT [dbo].[PruefSchrittResultat]
(
[PruefSchrittResultatNr],
[PruefschrittNr],
[PruefschrittResultatStatusNr],
[Kurzbeschreibung],
[Beschreibung],
[Aktiv],
[Erstellt_am],
[Mutiert_am],
[Mutierer],
[Anzahl_Pruefungen],
[Findings_niedrig],
[Findings_mittel],
[Findings_hoch],
[Finding_kein]
)
VALUES
(
@iPruefSchrittResultatNr,
@iPruefschrittNr,
@iPruefschrittResultatStatusNr,
@sKurzbeschreibung,
@sBeschreibung,
@bAktiv,
@daErstellt_am,
@daMutiert_am,
@iMutierer,
@iAnzahl_Pruefungen,
@iFindings_niedrig,
@iFindings_mittel,
@iFindings_hoch,
@iFinding_kein
)
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- //// Update Stored procedure for updating one single row.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_PruefSchrittResultat_Update]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_PruefSchrittResultat_Update]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will update an existing row in the table 'PruefSchrittResultat'
-- Gets: @iPruefSchrittResultatNr int
-- Gets: @iPruefschrittNr int
-- Gets: @iPruefschrittResultatStatusNr int
-- Gets: @sKurzbeschreibung varchar(1024)
-- Gets: @sBeschreibung varchar(4096)
-- Gets: @bAktiv bit
-- Gets: @daErstellt_am datetime
-- Gets: @daMutiert_am datetime
-- Gets: @iMutierer int
-- Gets: @iAnzahl_Pruefungen int
-- Gets: @iFindings_niedrig int
-- Gets: @iFindings_mittel int
-- Gets: @iFindings_hoch int
-- Gets: @iFinding_kein int
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_PruefSchrittResultat_Update]
@iPruefSchrittResultatNr int,
@iPruefschrittNr int,
@iPruefschrittResultatStatusNr int,
@sKurzbeschreibung varchar(1024),
@sBeschreibung varchar(4096),
@bAktiv bit,
@daErstellt_am datetime,
@daMutiert_am datetime,
@iMutierer int,
@iAnzahl_Pruefungen int,
@iFindings_niedrig int,
@iFindings_mittel int,
@iFindings_hoch int,
@iFinding_kein int,
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- UPDATE an existing row in the table.
UPDATE [dbo].[PruefSchrittResultat]
SET
[PruefschrittNr] = @iPruefschrittNr,
[PruefschrittResultatStatusNr] = @iPruefschrittResultatStatusNr,
[Kurzbeschreibung] = @sKurzbeschreibung,
[Beschreibung] = @sBeschreibung,
[Aktiv] = @bAktiv,
[Erstellt_am] = @daErstellt_am,
[Mutiert_am] = @daMutiert_am,
[Mutierer] = @iMutierer,
[Anzahl_Pruefungen] = @iAnzahl_Pruefungen,
[Findings_niedrig] = @iFindings_niedrig,
[Findings_mittel] = @iFindings_mittel,
[Findings_hoch] = @iFindings_hoch,
[Finding_kein] = @iFinding_kein
WHERE
[PruefSchrittResultatNr] = @iPruefSchrittResultatNr
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- //// Delete Stored procedure using Primary Key.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_PruefSchrittResultat_Delete]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_PruefSchrittResultat_Delete]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will delete an existing row from the table 'PruefSchrittResultat'
-- using the Primary Key.
-- Gets: @iPruefSchrittResultatNr int
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_PruefSchrittResultat_Delete]
@iPruefSchrittResultatNr int,
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- DELETE an existing row from the table.
DELETE FROM [dbo].[PruefSchrittResultat]
WHERE
[PruefSchrittResultatNr] = @iPruefSchrittResultatNr
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- //// Select Stored procedure, based on Primary Key.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_PruefSchrittResultat_SelectOne]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_PruefSchrittResultat_SelectOne]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will select an existing row from the table 'PruefSchrittResultat'
-- based on the Primary Key.
-- Gets: @iPruefSchrittResultatNr int
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_PruefSchrittResultat_SelectOne]
@iPruefSchrittResultatNr int,
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- SELECT an existing row from the table.
SELECT
[PruefSchrittResultatNr],
[PruefschrittNr],
[PruefschrittResultatStatusNr],
[Kurzbeschreibung],
[Beschreibung],
[Aktiv],
[Erstellt_am],
[Mutiert_am],
[Mutierer],
[Anzahl_Pruefungen],
[Findings_niedrig],
[Findings_mittel],
[Findings_hoch],
[Finding_kein]
FROM [dbo].[PruefSchrittResultat]
WHERE
[PruefSchrittResultatNr] = @iPruefSchrittResultatNr
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- //// Select All Stored procedure.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_PruefSchrittResultat_SelectAll]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_PruefSchrittResultat_SelectAll]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will select all rows from the table 'PruefSchrittResultat'
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_PruefSchrittResultat_SelectAll]
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- SELECT all rows from the table.
SELECT
[PruefSchrittResultatNr],
[PruefschrittNr],
[PruefschrittResultatStatusNr],
[Kurzbeschreibung],
[Beschreibung],
[Aktiv],
[Erstellt_am],
[Mutiert_am],
[Mutierer],
[Anzahl_Pruefungen],
[Findings_niedrig],
[Findings_mittel],
[Findings_hoch],
[Finding_kein]
FROM [dbo].[PruefSchrittResultat]
ORDER BY
[PruefSchrittResultatNr] ASC
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- [End of Stored Procedures for table: PruefSchrittResultat]
-- ========================================================================================================
GO

BIN
.svn/pristine/00/0048f45d3406af9e0d1a1d146d6d43efff33d993.svn-base Normal file
View File

Binary file not shown.

412
.svn/pristine/00/004d6758e6a292fee4a3c5e2f0d743765167a40b.svn-base Normal file
View File

@@ -0,0 +1,412 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports DevComponents
Imports DropDownControls
Public Class clsISIUebersicht
Dim SpaltenTitel As New Utils.Tabellenspalte
Dim daten As New DataTable
Public Sub Get_Data(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Typ 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_isidata"
sqlcmd.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Typ))
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, "Pruefschritt", 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 Sub
End Class
Public Class IsiTree
#Region "Deklarationen"
Dim treedata As New DataSet
Dim TreeaufbauSuche As Boolean = False
Dim TreeaufbauNr As Integer = 0
Dim FoundNode As Integer = 0
Dim Searchstring As String = ""
Public Treesearch As New AdvTree.AdvTree
#End Region
#Region "Tree"
Public Sub Load_Treeview(ByRef tree As DevComponents.AdvTree.AdvTree)
tree.Nodes.Clear()
TreeaufbauNr = -1
Load_Treedata("")
If Not (treedata Is Nothing) Then
Dim oView As DataView = treedata.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation",
oDS.Tables(0).Columns("id"),
oDS.Tables(0).Columns("Parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView(oDS, tree)
oDS.Dispose()
oDS = Nothing
tree.ExpandAll()
End If
End Sub
Public Function Load_Treedata(ByVal datatype As String) As DataTable
treedata.Tables.Clear()
Dim selectcommand As New SqlCommand
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
selectcommand.CommandText = "sp_get_Isi_Struktur"
selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
selectcommand.Parameters(0).Value = datatype
selectcommand.CommandType = CommandType.StoredProcedure
selectcommand.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = selectcommand
da.Fill(treedata, "Tree")
If treedata_for_search.Rows.Count < 1 Then
For Each c As DataColumn In treedata.Tables(0).Columns
If c.ColumnName = "ErweiterteSuche" Then
Dim dc As New DataColumn
dc.ColumnName = "ErweiterteSuche"
dc.DataType = System.Type.GetType("System.String")
dc.DefaultValue = " "
Try
Globals.treedata_for_search.Columns.Add(dc)
Catch
End Try
Else
Try
Globals.treedata_for_search.Columns.Add(c.ColumnName)
Catch
End Try
End If
Next
End If
For Each row As DataRow In treedata.Tables(0).Rows
Globals.treedata_for_search.ImportRow(row)
Next
Catch ex As Exception
'MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
selectcommand.Dispose()
End Try
End Function
Protected Function GetAllNodes(ByVal treestruktur As DevComponents.AdvTree.AdvTree) As List(Of TreeNode)
Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
' start recursion for each root node of the treeview
For i As Integer = 0 To treestruktur.Nodes.Count - 1
GetAllNodes(treestruktur.Nodes(i), allNodes)
Next
Return allNodes
End Function
Protected Sub GetAllNodes(ByVal subRoot As DevComponents.AdvTree.Node, ByVal allNodes As List(Of TreeNode))
' check for null (this can be removed since within th
If (subRoot Is Nothing) Then
Exit Sub
End If
' add subroot
Dim r As DataRow
r = treedata_for_search.NewRow
r.Item(0) = subRoot.Tag
Try
r.Item(1) = subRoot.Parent.Tag
Catch
r.Item(1) = 0
End Try
r.Item(2) = subRoot.Text
r.Item(3) = subRoot.ImageIndex
treedata_for_search.Rows.Add(r)
'allNodes.Add(subRoot)
' add all it's children
For i As Integer = 0 To subRoot.Nodes.Count - 1
GetAllNodes(subRoot.Nodes(i), allNodes)
Next
End Sub
''' <summary>
''' Tree aufbauen
''' </summary>
''' <param name="oDS"></param>
''' <param name="oTreeview"></param>
''' <remarks></remarks>
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As DevComponents.AdvTree.AdvTree)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
'If oDataRow.IsNull("Parentid") Then
Dim oNode As New DevComponents.AdvTree.Node
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
Try
'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
Catch
End Try
oNode.Tag = oDataRow("id").ToString
oNode.ImageIndex = oDataRow("ImageIndex")
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New DevComponents.AdvTree.Node
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
oChildNode.Tag = oChildRow("id").ToString()
oChildNode.ImageIndex = oChildRow("ImageIndex")
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree(oChildRow, oChildNode)
Next oChildRow
End Sub
Public Function FindNode(ByVal _nodeCollection As AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As AdvTree.Node
Dim tmpNode As AdvTree.Node
For Each _child As AdvTree.Node In _nodeCollection
If _child.Tag = SearchVal Then
Return _child
End If
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
' Return _child
' End If
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
If Not tmpNode Is Nothing Then
Return tmpNode
End If
Next
Return Nothing
End Function
Public Function Init_Search()
FoundNode = 0
Searchstring = ""
Me.Treesearch.Nodes.Clear()
End Function
Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
'Return tree.FindNodeByCellText(SearchString)
Me.Treesearch.Nodes.Clear()
For Each dr As DataRow In treedata_for_search.Rows
'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
Dim tn As New AdvTree.Node
tn.Text = dr.Item("Bezeichnung")
tn.Tag = dr.Item("id")
Treesearch.Nodes.Add(tn)
End If
Next
Return FindFirst(tree)
End Function
Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
Try
If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch
End Try
End Function
Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
Try
Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
If Treesearch.SelectedNode Is Nothing Then
Return FindFirst(tree)
End If
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch ex As Exception
End Try
End Function
Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
Try
Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
If Treesearch.SelectedNode Is Nothing Then
Return FindLastNode(tree)
End If
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch ex As Exception
End Try
End Function
Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
Try
Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch ex As Exception
End Try
End Function
#End Region
#Region "ComboboxTree"
Public Sub Load_ComboboxTree(ByRef tree As Object)
tree.Nodes.Clear()
TreeaufbauNr = -1
Load_Treedata("")
If Not (treedata Is Nothing) Then
Dim oView As DataView = treedata.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation",
oDS.Tables(0).Columns("id"),
oDS.Tables(0).Columns("Parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView1(oDS, tree)
oDS.Dispose()
oDS = Nothing
tree.ExpandAll()
End If
End Sub
Private Sub LoadTreeView1(ByVal oDS As DataSet, ByRef oTreeview As Object)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
'If oDataRow.IsNull("Parentid") Then
Dim oNode As New ComboTreeNode
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
Try
'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
Catch
End Try
oNode.Tag = oDataRow("id").ToString
oNode.ImageIndex = oDataRow("ImageIndex")
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree1(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree1(ByVal oDataRow As DataRow, ByRef oNode As ComboTreeNode)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New ComboTreeNode
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
oChildNode.Tag = oChildRow("id").ToString()
oChildNode.ImageIndex = oChildRow("ImageIndex")
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree1(oChildRow, oChildNode)
Next oChildRow
End Sub
Public Function ComboboxTree_FindNode(ByVal _nodeCollection As ComboTreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As ComboTreeNode
Dim tmpNode As ComboTreeNode
For Each _child As ComboTreeNode In _nodeCollection
If _child.Tag = SearchVal Then
Return _child
End If
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
' Return _child
' End If
tmpNode = ComboboxTree_FindNode(_child.Nodes, SearchVal, SearchString)
If Not tmpNode Is Nothing Then
Return tmpNode
End If
Next
Return Nothing
End Function
#End Region
End Class

3503
.svn/pristine/00/0078788ce228eb0b83e76da5d21686f9b9e4208c.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

199
.svn/pristine/01/015312912ac9b381a228c8a4832e28cc95f80c2e.svn-base Normal file
View File

@@ -0,0 +1,199 @@
<?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>349, 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
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLdS1NhHMcfCPoDuummi+i6KwcWlYjb3Obx
7MzN1eY5Z9tJV86Mit5AS3v3rUwtrchhKhVFpVZGWfaiaKQoZiHWiuoivCiiCKSLgk9HjcUu6wcfeH4P
PB+e7+95xP/Ul9eDwZn34z879mTyZ2uhrlTm9nQdyqXnyBxSku7DElcr7DyO7+DzVB+fJm/z/c0Al8qs
qYLuSpm01XZWrbWxOuMv6WutrLSsYzbRR6LnAGMtfr4mnnBlvyNV0FUuk2l1YrNL2B2uJNZsJ+nrbLzq
iDB2XmfkTJDPL+9x/WBOqsDRKJCqF5Fj9yG5FKQcN5Ik43LJZFglptoNRs6FeNocZGasez7qn6NC2GoE
iZlOnKYkN0vD7QygSH4U2Yvs9pDlcPMiHma4RWegsYD3Q5e5U6UsCGzVgskPrbQPCDKrBPZ6gfOUQC5f
ilcJ4snzk53rY/y8xkCTzuzd5Uz3t3Gv1otw1QmevasiPixoHTLXb4sYfRdh4mN4XrLeEyY/P4jkCTB6
RuVRg8aPvhW8vNNCf71/QfAwsZv4uCA+Jmh7IWifEjz/FsHRJAjmF7EhEMKdrzHcHKD/ZJDW3U4mumt4
0hiYj2CxmxF6pzfRmRBkzUU4LnA0CPIqlqGrUVTdwBc0GGz0c//Eem4cUnh2uZKhZjU5REt2raDnrQ/n
SYER2ImhlWKEizGMKBGjkEAoyqN6L3frfPRWexm8sIuRs6GUZ7Q4zSsrdYuJGtuIFpVQFC2ep9BE2xjj
QZ2H3qo8bh710NcSY7w1kiIQHaVr2FxSSklsOyVbtiaJmRQWb+N+rcytYwpdR9zcOhFisq0Qoes6uhZC
08Ko6hzmWtXMXk2imv2GAp29sQAXKxXzB8pcO5zHVOemhSH+K+V6etnpfWt+vb4YS43wD7XEJE0IYfkN
WuDCfcAVxNMAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIPSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKgAV4rbN70Xmn5332lEWiA
ER4D6hmYzBdq2fiss7EPgGLLPjUn302WH7qulv/vuFLy33me3m37+doOPuss7D2A2GWdib3BImUrsH7h
Ak6T3BPJ//uuNv2feL3h/6Sbdf+n3Kr5330j73/H9cz/rdfS/3dez/3ffb3of9uVgv8NF/P+V57L/h+w
1/U/Xxy7MoNYLqdFFVCg/3otUHPV/ym3K/5PvVP6v/1m3P+2m9H/W25G/O+6lfy/52bW//br6f8bLqf+
rzyf/D/soPN/3hA2dQahDBaLiB2C/9MOCf/PPSn0v/CM0P+CM4L/a66Z/W+/4/O/9Y7n//LLOv/zT/P/
zwPirOP8/5MO8P333coFNIBBnYHTiUFaMp5hs2wywzbFNIZtyulAGojTjkj87Hxg+7/9gdX/sM3iH0Bi
MAxSKx7PsIHPgkEIHA5AwIiC7RlYwg8xval7zPG/7jHXf/flTKBYQFUDwTgAMBoTzzG86XjF8B+EfdYw
kJ4Oci8IvFnwSf7//I/y/8M28pJuQNJe3TdzHnr8B+GAReokGsDAwCSVy7DDsI3hBgiLxTPMg4qTBFgY
VBjYwZiBgRkihA4YGADF/vNbfFD3FAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>456, 17</value>
</metadata>
<data name="C1TrueDBGrid1.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="C1TrueDBGrid1.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="C1TrueDBGrid1.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:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}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{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" 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, 238, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&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, 238, 148&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

59
.svn/pristine/01/01853eee56a827897e7ead5dcc651448fcd880f9.svn-base Normal file
View File

@@ -0,0 +1,59 @@
Public Class frmWeitergabe
Dim Pruefschrittnr As Integer
Dim clsNotiz As New clsPruefschrittNotiz
Dim clsmitarbeiter As New clsMitarbeiter
Dim Verantwortlich As Integer = 0
Dim empfaenger As Integer
Sub New(ByVal Pruefschrittnr As Integer)
InitializeComponent()
Me.Pruefschrittnr = Pruefschrittnr
End Sub
Sub New(ByVal Pruefschrittnr As Integer, verantwortungnr As Integer)
InitializeComponent()
Me.Pruefschrittnr = Pruefschrittnr
Me.Verantwortlich = verantwortungnr
End Sub
Sub New(ByVal Pruefschrittnr As Integer, verantwortungnr As Integer, AlsEmpfaenger As Boolean)
InitializeComponent()
Me.Pruefschrittnr = Pruefschrittnr
If AlsEmpfaenger = True Then Me.empfaenger = verantwortungnr
End Sub
Private Sub frmWeitergabe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.cbboxmitarbeiter.DataSource = clsmitarbeiter.Mitarbeiterdaten
Me.cbboxmitarbeiter.DisplayMember = "Bezeichnung"
Me.cbboxmitarbeiter.ValueMember = "Mitarbeiternr"
If Me.Verantwortlich <> 0 Then
Me.cbboxmitarbeiter.DataSource = Nothing
Me.cbboxmitarbeiter.DataSource = clsmitarbeiter.VerantwortlichISIdaten
Me.cbboxmitarbeiter.DisplayMember = "Bezeichnung"
Me.cbboxmitarbeiter.ValueMember = "verantwortungisinr"
Me.cbboxmitarbeiter.SelectedValue = Me.Verantwortlich
Me.cbboxmitarbeiter.Enabled = False
End If
If Me.empfaenger <> 0 Then
Me.cbboxmitarbeiter.SelectedValue = Me.empfaenger
Me.cbboxmitarbeiter.Enabled = False
End If
End Sub
Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub btnabbruch_Click(sender As Object, e As EventArgs) Handles btnabbruch.Click
Me.DialogResult = DialogResult.Cancel
Me.Close()
End Sub
End Class

510
.svn/pristine/02/025054901ad36bebc2a89342d6ac12060fee0761.svn-base Normal file
View File

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

886
.svn/pristine/03/032963b0cca49fbc1138ff042a0d2eff2ce8d297.svn-base Normal file
View File

@@ -0,0 +1,886 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class PruefschrittDetailsBearbeitung
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(PruefschrittDetailsBearbeitung))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.TSBtnSave = 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.GrpResultate = New System.Windows.Forms.GroupBox()
Me.GrpDokumente = New System.Windows.Forms.GroupBox()
Me.DokumenteAllgemein = New ThemenDokumente.Dokumente()
Me.GrpTypAnzahl_Massen = New System.Windows.Forms.GroupBox()
Me.lblFindingsKein = New System.Windows.Forms.Label()
Me.txtFindingsKein = New System.Windows.Forms.NumericUpDown()
Me.lblFindingsHoch = New System.Windows.Forms.Label()
Me.lblFindingsMittel = New System.Windows.Forms.Label()
Me.lblFidingsTief = New System.Windows.Forms.Label()
Me.txtFindingsHoch = New System.Windows.Forms.NumericUpDown()
Me.txtFindingsMittel = New System.Windows.Forms.NumericUpDown()
Me.txtFindingsTief = New System.Windows.Forms.NumericUpDown()
Me.txtAnzahlPruefungen = New System.Windows.Forms.NumericUpDown()
Me.lblAnzPruefungen = New System.Windows.Forms.Label()
Me.GrpBeschreibung = New System.Windows.Forms.GroupBox()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.GrpKurzbeschreibung = New System.Windows.Forms.GroupBox()
Me.txtKurzbeschreibung = New System.Windows.Forms.TextBox()
Me.GrpStatus = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbboxResultatText = New System.Windows.Forms.ComboBox()
Me.btnPruefungabgeschlossen = New System.Windows.Forms.Button()
Me.cbboxStatus = New System.Windows.Forms.ComboBox()
Me.grpFindings = New System.Windows.Forms.GroupBox()
Me.GrpMassnahmen = New System.Windows.Forms.GroupBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.DokumenteMassnahmen = New ThemenDokumente.Dokumente()
Me.GrpMassnahmenList = New System.Windows.Forms.GroupBox()
Me.txtMassnahmeResultat = New System.Windows.Forms.TextBox()
Me.lblMassnahmeResultat = New System.Windows.Forms.Label()
Me.txtMassnahmebeschreibung = New System.Windows.Forms.TextBox()
Me.txtMassnahmeBezeichnung = New System.Windows.Forms.TextBox()
Me.lblMassnahmeBezeichnung = New System.Windows.Forms.Label()
Me.lblMassnahmeBeschreibung = New System.Windows.Forms.Label()
Me.C1Massnahmen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStripMassnahmen = New System.Windows.Forms.ToolStrip()
Me.tsbtnMassnahmeerfassen = New System.Windows.Forms.ToolStripButton()
Me.tsbtnMassnahmeEdit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnMassnahmeLoeschen = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton()
Me.GrpFinding = New System.Windows.Forms.GroupBox()
Me.GrpFindingDokumente = New System.Windows.Forms.GroupBox()
Me.DokumenteFindings = New ThemenDokumente.Dokumente()
Me.GrpFindingList = New System.Windows.Forms.GroupBox()
Me.txtFindingBeschreibung = New System.Windows.Forms.TextBox()
Me.C1Findings = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStripFindings = New System.Windows.Forms.ToolStrip()
Me.tsbtnNeuesFinding = New System.Windows.Forms.ToolStripButton()
Me.tsbtnFindingBearbeiten = New System.Windows.Forms.ToolStripButton()
Me.tsbtnFindingDelete = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.txtFindingBezeichnung = New System.Windows.Forms.TextBox()
Me.lblFindingBezeichnung = New System.Windows.Forms.Label()
Me.lblFindingBeschreibung = New System.Windows.Forms.Label()
Me.ImageListFindings = New System.Windows.Forms.ImageList(Me.components)
Me.ImageListeMassnahmen = New System.Windows.Forms.ImageList(Me.components)
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.GrpResultate.SuspendLayout()
Me.GrpDokumente.SuspendLayout()
Me.GrpTypAnzahl_Massen.SuspendLayout()
CType(Me.txtFindingsKein, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFindingsHoch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFindingsMittel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFindingsTief, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahlPruefungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpBeschreibung.SuspendLayout()
Me.GrpKurzbeschreibung.SuspendLayout()
Me.GrpStatus.SuspendLayout()
Me.grpFindings.SuspendLayout()
Me.GrpMassnahmen.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GrpMassnahmenList.SuspendLayout()
CType(Me.C1Massnahmen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripMassnahmen.SuspendLayout()
Me.GrpFinding.SuspendLayout()
Me.GrpFindingDokumente.SuspendLayout()
Me.GrpFindingList.SuspendLayout()
CType(Me.C1Findings, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripFindings.SuspendLayout()
Me.SuspendLayout()
'
'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(1185, 25)
Me.ToolStrip1.TabIndex = 7
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "ToolStripButton1"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'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"
'
'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(1185, 24)
Me.MenuStrip1.TabIndex = 8
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
Me.BeendenToolStripMenuItem.Text = "&Schliessen"
'
'GrpResultate
'
Me.GrpResultate.Controls.Add(Me.GrpDokumente)
Me.GrpResultate.Controls.Add(Me.GrpTypAnzahl_Massen)
Me.GrpResultate.Controls.Add(Me.GrpBeschreibung)
Me.GrpResultate.Controls.Add(Me.GrpKurzbeschreibung)
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, 689)
Me.GrpResultate.TabIndex = 9
Me.GrpResultate.TabStop = False
Me.GrpResultate.Text = "Resultat der Prüfung"
'
'GrpDokumente
'
Me.GrpDokumente.Controls.Add(Me.DokumenteAllgemein)
Me.GrpDokumente.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpDokumente.Location = New System.Drawing.Point(3, 445)
Me.GrpDokumente.Name = "GrpDokumente"
Me.GrpDokumente.Size = New System.Drawing.Size(368, 241)
Me.GrpDokumente.TabIndex = 2
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(362, 222)
Me.DokumenteAllgemein.TabIndex = 33
Me.DokumenteAllgemein.TempFilePath = Nothing
Me.DokumenteAllgemein.ThemaNr = 0
'
'GrpTypAnzahl_Massen
'
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblFindingsKein)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtFindingsKein)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblFindingsHoch)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblFindingsMittel)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblFidingsTief)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtFindingsHoch)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtFindingsMittel)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtFindingsTief)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtAnzahlPruefungen)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblAnzPruefungen)
Me.GrpTypAnzahl_Massen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpTypAnzahl_Massen.Location = New System.Drawing.Point(3, 323)
Me.GrpTypAnzahl_Massen.Name = "GrpTypAnzahl_Massen"
Me.GrpTypAnzahl_Massen.Size = New System.Drawing.Size(368, 122)
Me.GrpTypAnzahl_Massen.TabIndex = 6
Me.GrpTypAnzahl_Massen.TabStop = False
Me.GrpTypAnzahl_Massen.Text = "Anzahl Prüfungen"
'
'lblFindingsKein
'
Me.lblFindingsKein.AutoSize = True
Me.lblFindingsKein.Location = New System.Drawing.Point(194, 23)
Me.lblFindingsKein.Name = "lblFindingsKein"
Me.lblFindingsKein.Size = New System.Drawing.Size(75, 13)
Me.lblFindingsKein.TabIndex = 9
Me.lblFindingsKein.Text = "keine Findings"
'
'txtFindingsKein
'
Me.txtFindingsKein.Location = New System.Drawing.Point(273, 21)
Me.txtFindingsKein.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtFindingsKein.Name = "txtFindingsKein"
Me.txtFindingsKein.Size = New System.Drawing.Size(75, 20)
Me.txtFindingsKein.TabIndex = 8
'
'lblFindingsHoch
'
Me.lblFindingsHoch.AutoSize = True
Me.lblFindingsHoch.Location = New System.Drawing.Point(194, 100)
Me.lblFindingsHoch.Name = "lblFindingsHoch"
Me.lblFindingsHoch.Size = New System.Drawing.Size(73, 13)
Me.lblFindingsHoch.TabIndex = 7
Me.lblFindingsHoch.Text = "Findings hoch"
'
'lblFindingsMittel
'
Me.lblFindingsMittel.AutoSize = True
Me.lblFindingsMittel.Location = New System.Drawing.Point(194, 74)
Me.lblFindingsMittel.Name = "lblFindingsMittel"
Me.lblFindingsMittel.Size = New System.Drawing.Size(73, 13)
Me.lblFindingsMittel.TabIndex = 6
Me.lblFindingsMittel.Text = "Findings mittel"
'
'lblFidingsTief
'
Me.lblFidingsTief.AutoSize = True
Me.lblFidingsTief.Location = New System.Drawing.Point(194, 48)
Me.lblFidingsTief.Name = "lblFidingsTief"
Me.lblFidingsTief.Size = New System.Drawing.Size(63, 13)
Me.lblFidingsTief.TabIndex = 5
Me.lblFidingsTief.Text = "Findings tief"
'
'txtFindingsHoch
'
Me.txtFindingsHoch.Location = New System.Drawing.Point(273, 98)
Me.txtFindingsHoch.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtFindingsHoch.Name = "txtFindingsHoch"
Me.txtFindingsHoch.Size = New System.Drawing.Size(75, 20)
Me.txtFindingsHoch.TabIndex = 4
'
'txtFindingsMittel
'
Me.txtFindingsMittel.Location = New System.Drawing.Point(273, 72)
Me.txtFindingsMittel.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtFindingsMittel.Name = "txtFindingsMittel"
Me.txtFindingsMittel.Size = New System.Drawing.Size(75, 20)
Me.txtFindingsMittel.TabIndex = 3
'
'txtFindingsTief
'
Me.txtFindingsTief.Location = New System.Drawing.Point(273, 46)
Me.txtFindingsTief.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtFindingsTief.Name = "txtFindingsTief"
Me.txtFindingsTief.Size = New System.Drawing.Size(75, 20)
Me.txtFindingsTief.TabIndex = 2
'
'txtAnzahlPruefungen
'
Me.txtAnzahlPruefungen.Location = New System.Drawing.Point(95, 19)
Me.txtAnzahlPruefungen.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtAnzahlPruefungen.Name = "txtAnzahlPruefungen"
Me.txtAnzahlPruefungen.Size = New System.Drawing.Size(75, 20)
Me.txtAnzahlPruefungen.TabIndex = 1
'
'lblAnzPruefungen
'
Me.lblAnzPruefungen.AutoSize = True
Me.lblAnzPruefungen.Location = New System.Drawing.Point(9, 21)
Me.lblAnzPruefungen.Name = "lblAnzPruefungen"
Me.lblAnzPruefungen.Size = New System.Drawing.Size(80, 13)
Me.lblAnzPruefungen.TabIndex = 0
Me.lblAnzPruefungen.Text = "Anz. Prüfungen"
'
'GrpBeschreibung
'
Me.GrpBeschreibung.Controls.Add(Me.txtBeschreibung)
Me.GrpBeschreibung.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpBeschreibung.Location = New System.Drawing.Point(3, 102)
Me.GrpBeschreibung.Name = "GrpBeschreibung"
Me.GrpBeschreibung.Size = New System.Drawing.Size(368, 221)
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, 202)
Me.txtBeschreibung.TabIndex = 3
'
'GrpKurzbeschreibung
'
Me.GrpKurzbeschreibung.Controls.Add(Me.txtKurzbeschreibung)
Me.GrpKurzbeschreibung.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpKurzbeschreibung.Location = New System.Drawing.Point(3, 92)
Me.GrpKurzbeschreibung.Name = "GrpKurzbeschreibung"
Me.GrpKurzbeschreibung.Size = New System.Drawing.Size(368, 10)
Me.GrpKurzbeschreibung.TabIndex = 0
Me.GrpKurzbeschreibung.TabStop = False
Me.GrpKurzbeschreibung.Text = "Kurzbeschreibung"
Me.GrpKurzbeschreibung.Visible = False
'
'txtKurzbeschreibung
'
Me.txtKurzbeschreibung.Dock = System.Windows.Forms.DockStyle.Bottom
Me.txtKurzbeschreibung.Location = New System.Drawing.Point(3, -4)
Me.txtKurzbeschreibung.Name = "txtKurzbeschreibung"
Me.txtKurzbeschreibung.ReadOnly = True
Me.txtKurzbeschreibung.Size = New System.Drawing.Size(362, 20)
Me.txtKurzbeschreibung.TabIndex = 4
'
'GrpStatus
'
Me.GrpStatus.Controls.Add(Me.Label1)
Me.GrpStatus.Controls.Add(Me.cbboxResultatText)
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, 76)
Me.GrpStatus.TabIndex = 3
Me.GrpStatus.TabStop = False
Me.GrpStatus.Text = "Abschluss"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 19)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Prüfresultat"
'
'cbboxResultatText
'
Me.cbboxResultatText.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbboxResultatText.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxResultatText.FormattingEnabled = True
Me.cbboxResultatText.Location = New System.Drawing.Point(78, 16)
Me.cbboxResultatText.Name = "cbboxResultatText"
Me.cbboxResultatText.Size = New System.Drawing.Size(284, 21)
Me.cbboxResultatText.TabIndex = 2
'
'btnPruefungabgeschlossen
'
Me.btnPruefungabgeschlossen.Location = New System.Drawing.Point(9, 43)
Me.btnPruefungabgeschlossen.Name = "btnPruefungabgeschlossen"
Me.btnPruefungabgeschlossen.Size = New System.Drawing.Size(130, 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
'
'grpFindings
'
Me.grpFindings.Controls.Add(Me.GrpMassnahmen)
Me.grpFindings.Controls.Add(Me.GrpFinding)
Me.grpFindings.Dock = System.Windows.Forms.DockStyle.Fill
Me.grpFindings.Location = New System.Drawing.Point(374, 49)
Me.grpFindings.Name = "grpFindings"
Me.grpFindings.Size = New System.Drawing.Size(811, 689)
Me.grpFindings.TabIndex = 10
Me.grpFindings.TabStop = False
Me.grpFindings.Text = "Feststellungen und Massnahmen"
'
'GrpMassnahmen
'
Me.GrpMassnahmen.Controls.Add(Me.GroupBox2)
Me.GrpMassnahmen.Controls.Add(Me.GrpMassnahmenList)
Me.GrpMassnahmen.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpMassnahmen.Location = New System.Drawing.Point(3, 332)
Me.GrpMassnahmen.Name = "GrpMassnahmen"
Me.GrpMassnahmen.Size = New System.Drawing.Size(805, 354)
Me.GrpMassnahmen.TabIndex = 1
Me.GrpMassnahmen.TabStop = False
Me.GrpMassnahmen.Text = "Massnahmen"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.DokumenteMassnahmen)
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox2.Location = New System.Drawing.Point(548, 16)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(254, 335)
Me.GroupBox2.TabIndex = 13
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Dokumente"
'
'DokumenteMassnahmen
'
Me.DokumenteMassnahmen.ConnectionString = Nothing
Me.DokumenteMassnahmen.Dock = System.Windows.Forms.DockStyle.Fill
Me.DokumenteMassnahmen.Doktype = 0
Me.DokumenteMassnahmen.Location = New System.Drawing.Point(3, 16)
Me.DokumenteMassnahmen.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.DokumenteMassnahmen.Mitarbeiternr = 0
Me.DokumenteMassnahmen.Name = "DokumenteMassnahmen"
Me.DokumenteMassnahmen.Pruefschrittnr = 0
Me.DokumenteMassnahmen.Size = New System.Drawing.Size(248, 316)
Me.DokumenteMassnahmen.TabIndex = 33
Me.DokumenteMassnahmen.TempFilePath = Nothing
Me.DokumenteMassnahmen.ThemaNr = 0
'
'GrpMassnahmenList
'
Me.GrpMassnahmenList.Controls.Add(Me.txtMassnahmeResultat)
Me.GrpMassnahmenList.Controls.Add(Me.lblMassnahmeResultat)
Me.GrpMassnahmenList.Controls.Add(Me.txtMassnahmebeschreibung)
Me.GrpMassnahmenList.Controls.Add(Me.txtMassnahmeBezeichnung)
Me.GrpMassnahmenList.Controls.Add(Me.lblMassnahmeBezeichnung)
Me.GrpMassnahmenList.Controls.Add(Me.lblMassnahmeBeschreibung)
Me.GrpMassnahmenList.Controls.Add(Me.C1Massnahmen)
Me.GrpMassnahmenList.Controls.Add(Me.ToolStripMassnahmen)
Me.GrpMassnahmenList.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpMassnahmenList.Location = New System.Drawing.Point(3, 16)
Me.GrpMassnahmenList.Name = "GrpMassnahmenList"
Me.GrpMassnahmenList.Size = New System.Drawing.Size(545, 335)
Me.GrpMassnahmenList.TabIndex = 14
Me.GrpMassnahmenList.TabStop = False
'
'txtMassnahmeResultat
'
Me.txtMassnahmeResultat.BackColor = System.Drawing.Color.White
Me.txtMassnahmeResultat.Location = New System.Drawing.Point(251, 196)
Me.txtMassnahmeResultat.Multiline = True
Me.txtMassnahmeResultat.Name = "txtMassnahmeResultat"
Me.txtMassnahmeResultat.ReadOnly = True
Me.txtMassnahmeResultat.Size = New System.Drawing.Size(288, 94)
Me.txtMassnahmeResultat.TabIndex = 21
'
'lblMassnahmeResultat
'
Me.lblMassnahmeResultat.AutoSize = True
Me.lblMassnahmeResultat.Location = New System.Drawing.Point(251, 181)
Me.lblMassnahmeResultat.Name = "lblMassnahmeResultat"
Me.lblMassnahmeResultat.Size = New System.Drawing.Size(46, 13)
Me.lblMassnahmeResultat.TabIndex = 20
Me.lblMassnahmeResultat.Text = "Resultat"
'
'txtMassnahmebeschreibung
'
Me.txtMassnahmebeschreibung.BackColor = System.Drawing.Color.White
Me.txtMassnahmebeschreibung.Location = New System.Drawing.Point(2, 235)
Me.txtMassnahmebeschreibung.Multiline = True
Me.txtMassnahmebeschreibung.Name = "txtMassnahmebeschreibung"
Me.txtMassnahmebeschreibung.ReadOnly = True
Me.txtMassnahmebeschreibung.Size = New System.Drawing.Size(243, 55)
Me.txtMassnahmebeschreibung.TabIndex = 19
'
'txtMassnahmeBezeichnung
'
Me.txtMassnahmeBezeichnung.BackColor = System.Drawing.Color.White
Me.txtMassnahmeBezeichnung.Location = New System.Drawing.Point(2, 196)
Me.txtMassnahmeBezeichnung.Name = "txtMassnahmeBezeichnung"
Me.txtMassnahmeBezeichnung.ReadOnly = True
Me.txtMassnahmeBezeichnung.Size = New System.Drawing.Size(243, 20)
Me.txtMassnahmeBezeichnung.TabIndex = 18
'
'lblMassnahmeBezeichnung
'
Me.lblMassnahmeBezeichnung.AutoSize = True
Me.lblMassnahmeBezeichnung.Location = New System.Drawing.Point(3, 181)
Me.lblMassnahmeBezeichnung.Name = "lblMassnahmeBezeichnung"
Me.lblMassnahmeBezeichnung.Size = New System.Drawing.Size(69, 13)
Me.lblMassnahmeBezeichnung.TabIndex = 16
Me.lblMassnahmeBezeichnung.Text = "Bezeichnung"
'
'lblMassnahmeBeschreibung
'
Me.lblMassnahmeBeschreibung.AutoSize = True
Me.lblMassnahmeBeschreibung.Location = New System.Drawing.Point(3, 219)
Me.lblMassnahmeBeschreibung.Name = "lblMassnahmeBeschreibung"
Me.lblMassnahmeBeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblMassnahmeBeschreibung.TabIndex = 17
Me.lblMassnahmeBeschreibung.Text = "Beschreibung"
'
'C1Massnahmen
'
Me.C1Massnahmen.AllowUpdate = False
Me.C1Massnahmen.AlternatingRows = True
Me.C1Massnahmen.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.C1Massnahmen.Dock = System.Windows.Forms.DockStyle.Top
Me.C1Massnahmen.FilterBar = True
Me.C1Massnahmen.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Massnahmen.Images.Add(CType(resources.GetObject("C1Massnahmen.Images"), System.Drawing.Image))
Me.C1Massnahmen.Location = New System.Drawing.Point(3, 41)
Me.C1Massnahmen.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.C1Massnahmen.Name = "C1Massnahmen"
Me.C1Massnahmen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Massnahmen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Massnahmen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Massnahmen.PrintInfo.PageSettings = CType(resources.GetObject("C1Massnahmen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Massnahmen.Size = New System.Drawing.Size(539, 128)
Me.C1Massnahmen.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Massnahmen.TabIndex = 11
Me.C1Massnahmen.Text = "C1TrueDBGrid1"
Me.C1Massnahmen.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
Me.C1Massnahmen.PropBag = resources.GetString("C1Massnahmen.PropBag")
'
'ToolStripMassnahmen
'
Me.ToolStripMassnahmen.AllowDrop = True
Me.ToolStripMassnahmen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnMassnahmeerfassen, Me.tsbtnMassnahmeEdit, Me.tsbtnMassnahmeLoeschen, Me.ToolStripButton8})
Me.ToolStripMassnahmen.Location = New System.Drawing.Point(3, 16)
Me.ToolStripMassnahmen.Name = "ToolStripMassnahmen"
Me.ToolStripMassnahmen.Size = New System.Drawing.Size(539, 25)
Me.ToolStripMassnahmen.TabIndex = 1
Me.ToolStripMassnahmen.Text = "ToolStrip3"
'
'tsbtnMassnahmeerfassen
'
Me.tsbtnMassnahmeerfassen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnMassnahmeerfassen.Image = CType(resources.GetObject("tsbtnMassnahmeerfassen.Image"), System.Drawing.Image)
Me.tsbtnMassnahmeerfassen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnMassnahmeerfassen.Name = "tsbtnMassnahmeerfassen"
Me.tsbtnMassnahmeerfassen.Size = New System.Drawing.Size(23, 22)
Me.tsbtnMassnahmeerfassen.Text = "Neue Massnahme"
'
'tsbtnMassnahmeEdit
'
Me.tsbtnMassnahmeEdit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnMassnahmeEdit.Image = CType(resources.GetObject("tsbtnMassnahmeEdit.Image"), System.Drawing.Image)
Me.tsbtnMassnahmeEdit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnMassnahmeEdit.Name = "tsbtnMassnahmeEdit"
Me.tsbtnMassnahmeEdit.Size = New System.Drawing.Size(23, 22)
Me.tsbtnMassnahmeEdit.Text = "Massnahme bearbeiten"
'
'tsbtnMassnahmeLoeschen
'
Me.tsbtnMassnahmeLoeschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnMassnahmeLoeschen.Image = CType(resources.GetObject("tsbtnMassnahmeLoeschen.Image"), System.Drawing.Image)
Me.tsbtnMassnahmeLoeschen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnMassnahmeLoeschen.Name = "tsbtnMassnahmeLoeschen"
Me.tsbtnMassnahmeLoeschen.Size = New System.Drawing.Size(23, 22)
Me.tsbtnMassnahmeLoeschen.Text = "Massnahme löschen"
'
'ToolStripButton8
'
Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image)
Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton8.Name = "ToolStripButton8"
Me.ToolStripButton8.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton8.Text = "Dokument anzeigen"
Me.ToolStripButton8.Visible = False
'
'GrpFinding
'
Me.GrpFinding.Controls.Add(Me.GrpFindingDokumente)
Me.GrpFinding.Controls.Add(Me.GrpFindingList)
Me.GrpFinding.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpFinding.Location = New System.Drawing.Point(3, 16)
Me.GrpFinding.Name = "GrpFinding"
Me.GrpFinding.Size = New System.Drawing.Size(805, 316)
Me.GrpFinding.TabIndex = 0
Me.GrpFinding.TabStop = False
Me.GrpFinding.Text = "Feststellung"
'
'GrpFindingDokumente
'
Me.GrpFindingDokumente.Controls.Add(Me.DokumenteFindings)
Me.GrpFindingDokumente.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpFindingDokumente.Location = New System.Drawing.Point(384, 16)
Me.GrpFindingDokumente.Name = "GrpFindingDokumente"
Me.GrpFindingDokumente.Size = New System.Drawing.Size(418, 297)
Me.GrpFindingDokumente.TabIndex = 12
Me.GrpFindingDokumente.TabStop = False
Me.GrpFindingDokumente.Text = "Dokumente"
'
'DokumenteFindings
'
Me.DokumenteFindings.ConnectionString = Nothing
Me.DokumenteFindings.Dock = System.Windows.Forms.DockStyle.Fill
Me.DokumenteFindings.Doktype = 0
Me.DokumenteFindings.Location = New System.Drawing.Point(3, 16)
Me.DokumenteFindings.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.DokumenteFindings.Mitarbeiternr = 0
Me.DokumenteFindings.Name = "DokumenteFindings"
Me.DokumenteFindings.Pruefschrittnr = 0
Me.DokumenteFindings.Size = New System.Drawing.Size(412, 278)
Me.DokumenteFindings.TabIndex = 33
Me.DokumenteFindings.TempFilePath = Nothing
Me.DokumenteFindings.ThemaNr = 0
'
'GrpFindingList
'
Me.GrpFindingList.Controls.Add(Me.txtFindingBeschreibung)
Me.GrpFindingList.Controls.Add(Me.C1Findings)
Me.GrpFindingList.Controls.Add(Me.ToolStripFindings)
Me.GrpFindingList.Controls.Add(Me.txtFindingBezeichnung)
Me.GrpFindingList.Controls.Add(Me.lblFindingBezeichnung)
Me.GrpFindingList.Controls.Add(Me.lblFindingBeschreibung)
Me.GrpFindingList.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpFindingList.Location = New System.Drawing.Point(3, 16)
Me.GrpFindingList.Name = "GrpFindingList"
Me.GrpFindingList.Size = New System.Drawing.Size(381, 297)
Me.GrpFindingList.TabIndex = 13
Me.GrpFindingList.TabStop = False
'
'txtFindingBeschreibung
'
Me.txtFindingBeschreibung.BackColor = System.Drawing.Color.White
Me.txtFindingBeschreibung.Location = New System.Drawing.Point(5, 236)
Me.txtFindingBeschreibung.Multiline = True
Me.txtFindingBeschreibung.Name = "txtFindingBeschreibung"
Me.txtFindingBeschreibung.ReadOnly = True
Me.txtFindingBeschreibung.Size = New System.Drawing.Size(362, 55)
Me.txtFindingBeschreibung.TabIndex = 15
'
'C1Findings
'
Me.C1Findings.AllowUpdate = False
Me.C1Findings.AlternatingRows = True
Me.C1Findings.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.C1Findings.Dock = System.Windows.Forms.DockStyle.Top
Me.C1Findings.FilterBar = True
Me.C1Findings.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Findings.Images.Add(CType(resources.GetObject("C1Findings.Images"), System.Drawing.Image))
Me.C1Findings.Location = New System.Drawing.Point(3, 41)
Me.C1Findings.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.C1Findings.Name = "C1Findings"
Me.C1Findings.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Findings.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Findings.PreviewInfo.ZoomFactor = 75.0R
Me.C1Findings.PrintInfo.PageSettings = CType(resources.GetObject("C1Findings.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Findings.Size = New System.Drawing.Size(375, 138)
Me.C1Findings.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Findings.TabIndex = 11
Me.C1Findings.Text = "C1TrueDBGrid1"
Me.C1Findings.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
Me.C1Findings.PropBag = resources.GetString("C1Findings.PropBag")
'
'ToolStripFindings
'
Me.ToolStripFindings.AllowDrop = True
Me.ToolStripFindings.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnNeuesFinding, Me.tsbtnFindingBearbeiten, Me.tsbtnFindingDelete, Me.ToolStripButton3})
Me.ToolStripFindings.Location = New System.Drawing.Point(3, 16)
Me.ToolStripFindings.Name = "ToolStripFindings"
Me.ToolStripFindings.Size = New System.Drawing.Size(375, 25)
Me.ToolStripFindings.TabIndex = 1
Me.ToolStripFindings.Text = "ToolStrip2"
'
'tsbtnNeuesFinding
'
Me.tsbtnNeuesFinding.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnNeuesFinding.Image = CType(resources.GetObject("tsbtnNeuesFinding.Image"), System.Drawing.Image)
Me.tsbtnNeuesFinding.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnNeuesFinding.Name = "tsbtnNeuesFinding"
Me.tsbtnNeuesFinding.Size = New System.Drawing.Size(23, 22)
Me.tsbtnNeuesFinding.Text = "Neue Feststellung erfassen"
'
'tsbtnFindingBearbeiten
'
Me.tsbtnFindingBearbeiten.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnFindingBearbeiten.Image = CType(resources.GetObject("tsbtnFindingBearbeiten.Image"), System.Drawing.Image)
Me.tsbtnFindingBearbeiten.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnFindingBearbeiten.Name = "tsbtnFindingBearbeiten"
Me.tsbtnFindingBearbeiten.Size = New System.Drawing.Size(23, 22)
Me.tsbtnFindingBearbeiten.Text = "Feststellung bearbeiten"
'
'tsbtnFindingDelete
'
Me.tsbtnFindingDelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnFindingDelete.Image = CType(resources.GetObject("tsbtnFindingDelete.Image"), System.Drawing.Image)
Me.tsbtnFindingDelete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnFindingDelete.Name = "tsbtnFindingDelete"
Me.tsbtnFindingDelete.Size = New System.Drawing.Size(23, 22)
Me.tsbtnFindingDelete.Text = "Feststellung löschen"
'
'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 = "Dokument anzeigen"
Me.ToolStripButton3.Visible = False
'
'txtFindingBezeichnung
'
Me.txtFindingBezeichnung.BackColor = System.Drawing.Color.White
Me.txtFindingBezeichnung.Location = New System.Drawing.Point(5, 197)
Me.txtFindingBezeichnung.Name = "txtFindingBezeichnung"
Me.txtFindingBezeichnung.ReadOnly = True
Me.txtFindingBezeichnung.Size = New System.Drawing.Size(362, 20)
Me.txtFindingBezeichnung.TabIndex = 14
'
'lblFindingBezeichnung
'
Me.lblFindingBezeichnung.AutoSize = True
Me.lblFindingBezeichnung.Location = New System.Drawing.Point(6, 182)
Me.lblFindingBezeichnung.Name = "lblFindingBezeichnung"
Me.lblFindingBezeichnung.Size = New System.Drawing.Size(69, 13)
Me.lblFindingBezeichnung.TabIndex = 12
Me.lblFindingBezeichnung.Text = "Bezeichnung"
'
'lblFindingBeschreibung
'
Me.lblFindingBeschreibung.AutoSize = True
Me.lblFindingBeschreibung.Location = New System.Drawing.Point(6, 220)
Me.lblFindingBeschreibung.Name = "lblFindingBeschreibung"
Me.lblFindingBeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblFindingBeschreibung.TabIndex = 13
Me.lblFindingBeschreibung.Text = "Beschreibung"
'
'ImageListFindings
'
Me.ImageListFindings.ImageStream = CType(resources.GetObject("ImageListFindings.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageListFindings.TransparentColor = System.Drawing.Color.Transparent
Me.ImageListFindings.Images.SetKeyName(0, "Keine.png")
Me.ImageListFindings.Images.SetKeyName(1, "Tief.png")
Me.ImageListFindings.Images.SetKeyName(2, "Mittel.png")
Me.ImageListFindings.Images.SetKeyName(3, "Hoch.png")
'
'ImageListeMassnahmen
'
Me.ImageListeMassnahmen.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageListeMassnahmen.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageListeMassnahmen.TransparentColor = System.Drawing.Color.Transparent
'
'PruefschrittDetailsBearbeitung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1185, 738)
Me.Controls.Add(Me.grpFindings)
Me.Controls.Add(Me.GrpResultate)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "PruefschrittDetailsBearbeitung"
Me.Text = "Assessment-Detail"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.GrpResultate.ResumeLayout(False)
Me.GrpDokumente.ResumeLayout(False)
Me.GrpTypAnzahl_Massen.ResumeLayout(False)
Me.GrpTypAnzahl_Massen.PerformLayout()
CType(Me.txtFindingsKein, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFindingsHoch, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFindingsMittel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFindingsTief, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahlPruefungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpBeschreibung.ResumeLayout(False)
Me.GrpBeschreibung.PerformLayout()
Me.GrpKurzbeschreibung.ResumeLayout(False)
Me.GrpKurzbeschreibung.PerformLayout()
Me.GrpStatus.ResumeLayout(False)
Me.GrpStatus.PerformLayout()
Me.grpFindings.ResumeLayout(False)
Me.GrpMassnahmen.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GrpMassnahmenList.ResumeLayout(False)
Me.GrpMassnahmenList.PerformLayout()
CType(Me.C1Massnahmen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripMassnahmen.ResumeLayout(False)
Me.ToolStripMassnahmen.PerformLayout()
Me.GrpFinding.ResumeLayout(False)
Me.GrpFindingDokumente.ResumeLayout(False)
Me.GrpFindingList.ResumeLayout(False)
Me.GrpFindingList.PerformLayout()
CType(Me.C1Findings, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripFindings.ResumeLayout(False)
Me.ToolStripFindings.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents TSBtnQuit As ToolStripButton
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GrpResultate As GroupBox
Friend WithEvents GrpDokumente As GroupBox
Friend WithEvents GrpBeschreibung As GroupBox
Friend WithEvents txtBeschreibung As TextBox
Friend WithEvents GrpKurzbeschreibung As GroupBox
Friend WithEvents txtKurzbeschreibung As TextBox
Friend WithEvents grpFindings As GroupBox
Friend WithEvents GrpMassnahmen As GroupBox
Friend WithEvents GrpFinding As GroupBox
Friend WithEvents ToolStripMassnahmen As ToolStrip
Friend WithEvents tsbtnMassnahmeerfassen As ToolStripButton
Friend WithEvents tsbtnMassnahmeEdit As ToolStripButton
Friend WithEvents tsbtnMassnahmeLoeschen As ToolStripButton
Friend WithEvents ToolStripButton8 As ToolStripButton
Friend WithEvents ToolStripFindings As ToolStrip
Friend WithEvents tsbtnNeuesFinding As ToolStripButton
Friend WithEvents tsbtnFindingBearbeiten As ToolStripButton
Friend WithEvents tsbtnFindingDelete As ToolStripButton
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents C1Massnahmen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents C1Findings As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents GrpFindingDokumente As GroupBox
Friend WithEvents txtFindingBeschreibung As TextBox
Friend WithEvents txtFindingBezeichnung As TextBox
Friend WithEvents lblFindingBeschreibung As Label
Friend WithEvents lblFindingBezeichnung As Label
Friend WithEvents GrpFindingList As GroupBox
Friend WithEvents GrpMassnahmenList As GroupBox
Friend WithEvents txtMassnahmebeschreibung As TextBox
Friend WithEvents txtMassnahmeBezeichnung As TextBox
Friend WithEvents lblMassnahmeBezeichnung As Label
Friend WithEvents lblMassnahmeBeschreibung As Label
Friend WithEvents TSBtnSave As ToolStripButton
Friend WithEvents DokumenteAllgemein As ThemenDokumente.Dokumente
Friend WithEvents DokumenteMassnahmen As ThemenDokumente.Dokumente
Friend WithEvents DokumenteFindings As ThemenDokumente.Dokumente
Friend WithEvents ImageListFindings As ImageList
Friend WithEvents ImageListeMassnahmen As ImageList
Friend WithEvents GrpStatus As GroupBox
Friend WithEvents cbboxStatus As ComboBox
Friend WithEvents btnPruefungabgeschlossen As Button
Friend WithEvents txtMassnahmeResultat As TextBox
Friend WithEvents lblMassnahmeResultat As Label
Friend WithEvents cbboxResultatText As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents GrpTypAnzahl_Massen As GroupBox
Friend WithEvents lblFindingsHoch As Label
Friend WithEvents lblFindingsMittel As Label
Friend WithEvents lblFidingsTief As Label
Friend WithEvents txtFindingsHoch As NumericUpDown
Friend WithEvents txtFindingsMittel As NumericUpDown
Friend WithEvents txtFindingsTief As NumericUpDown
Friend WithEvents txtAnzahlPruefungen As NumericUpDown
Friend WithEvents lblAnzPruefungen As Label
Friend WithEvents lblFindingsKein As Label
Friend WithEvents txtFindingsKein As NumericUpDown
End Class

427
.svn/pristine/03/033422b2a1a2c6fb85c25319bee5aecf1dfa056a.svn-base Normal file
View File

@@ -0,0 +1,427 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<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="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pdyuFRWVeJF1Z
0AeGKckIIpBGdzaU8KIomKN1ZRdBH2AXo/btZu2zOd1qWzG7CUELybc1ymntbVtucxdt5PvvGTyXbbMf
/DnPc87/nPM8zGbws6zzbVvbTXr9P2Z6eh7eZxho6+oQkEg+vJFK62mpOsLi486FGAf37bu4R4aMi0R4
3tiIOZbtppbK/J6/kcxMdSDBPUF0icf4XhYPamrgEotvUUt5NqIa3S//WSScrVgxMlj1nwL3I4mXyqGv
1FIeIaY5kwnJkXDLyAAJVibFSHrb8d26BbH5iVZq+zecV7k1Hbxa4Mnm1PQJxG07kJ7uIoOk+OMXKamt
PBsLwwHeI0N65jR5wUGyuQNJ33HkvLsi1FIegbuuSHk78dNzBGtBOXjyhbXXffg2cUD4aK2vpbbyFBcf
xXlPO/LvriE5dQzZ0CWkyHYhtP8CtVSm8OkpMksOZObuIPuql2w/j2Lo6CQtV2Zs7LIIvAO5zy+wvhxE
Ph5APtK9TsvVaW7eLbvY14XsFzcKfAQoRq251fc7abk6TS0t57Ztr8WehgZXanm2iaY3Rzgc3qdSqUbV
arVGZzTKtdpnAyaTadBut4+U5HA4BokURFdcLle/0+k86fP5pLSdYWw22yGz2dxLmgb0ev2QwWAYIXGU
RFVJ9FzKDRMpdDpdv8ViOcwwDPMXw2okhLGDTtQAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton2.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>
<metadata name="ImageListeDocIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>202, 13</value>
</metadata>
<data name="ImageListeDocIcon.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACs
EAAAAk1TRnQBSQFMAgEBCAEAATwBAQE8AQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
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/AP8ACwAB/wLz
Af8YAAH0Ae8I9wHvAfQKAAH0Af8KAAG8AbMD0wHaAbQBvBUAAf8BbQHzCPQB8wFtAf8HAAH/AbwB6wHw
Av8HAAG0AtMDsgGsARsBCQG0AwABBwbsBgMBAQEDAgAB8wH3Cv8B9wHzBQAB/wHzAe8BBwGSAe8B8gH0
Av8EAAG0AdME1AHTAfIB9gHzAfEBswIABwcI+wIAAfMB9wr/AfcB8wQAAfQB8QHsAesB7AHtAUMBvAL0
Av8CAAEZBtQBswEZAv8B9gEHARkBAA4HAfsCAAHzAfcK/wH3AfMCAAH/AfIBvAEHAfcC7wH3AW0B7AH0
Av8DAALUAdUD2wG7ARkB2wEJAdwB1AGyAdMBAA0HAvsCAAHzAe8K/wHvAfMBAAH0AbwB7AH3AbwFBwEU
AfEEAAHzAdQB1QPbAfYBCQHbAbsBugHUAdMBsgHNAfMHBwHsAQMDBwP7AgAB8wHvCv8B7wHzAQAB/wHx
Au0BvAEHA+8BBwL3Af8DAAEZAdUB2wLcAfMB/wLyAtsC1AHTAc0BCQEHA/8FBwEDBAcB+wIAAfMB7wr/
Ae8B8wIAAfQBkgESAfcB7wFtAfcB7wEHAe8B6wHzAwABCQHbAtwBCQT/AfMC2wHUAdMBrAHzAQcD/wYH
AQMDBwH7AgAB8wHvCvQB9wHzAgAB/wG8AQcB8AJKAXIB7QEcAZIB6gHrAf8CAAHyAdsB3AEJARkD/wHz
Af8B3AHbAtQBswHzAQcC/wIHA/8DBwEDAgcB+wIAAfMB7wn0AfMBkgHzAwAB9AG8AfQBmQJzAe8BvAHw
Ae0BQwHxAgAB9AHbAdwCGQP/ARkB/wH0AdsB1QHUAdUB9AEHAf8CBwb/AgcBAwEHAfsCAAHzAe8H9AHz
AfIBvAHsAfMDAAH/AbwBBwHxAbwBBwG8AvAB7wEVAeoB/wIAAdsB3AIZA/8BCQH0AdwB2wHVAdMB8wEA
AwcI/wIHAQMB+wIAAfMB7wfzAfEC8gFtAf8EAAHzAe8BkgEHAfEB8AGSAewBkgFtAUMB8QIAAfQB3AEZ
Av8B9AHyAfMBCQH/AQkB1AEJAfMBAAIHCv8CBwEDAgAB8wHvBvMB8AHzAfIB7AHzBQAB/wEHAewB7wG8
AfcC6wHsAfcB7QHxAf8CAAEZAdwB8wIZAQkBGQL/AdsBtAH0AgABBw3/AQcCAAHzAe8F8gHwAbwB8wHs
AfQHAAHxAe8B7QH3Ae0C6wFtAewB9AUAAfQB/wTcAdsB1QEJAfQUAAH/AesB8wL0AfMB8gG8Ae8B7AH0
CAAB9AHvAQcB7wEHAbwB8QHzAfQB/wYAAf8B8wIJAdwBCQHyAf8WAAH0Ae8F9wGSAfQJAAH/AvQB/xgA
ARAODgEQAwAK/wYACv8IAAP/AgcD7AH/AQcBAAERAbQICQG7AQkCtQG0AREBAAH0ARIEKAFJBUgBEgH0
AgAB9AHqCiQB6gH0BgAB/wH5AgcC7AEHAewBAgHsAQABEQG1Bv8D8wH/AbwCtAERAQAB6wJWB1UBTwJO
AW0CAAHrDCwB6wYAAv8BBwH/AQcB7AH/AewC/wEAAUMBtQHzCP8B8wH/AbQBtQFDAQABSQFWAfEI/wHx
AU4BSQIAAUQBMgEaCP8BGgEsAUQGAAP/AvkC/wHsAQcB/wEAAUMBtQEJAf8CCQHzAf8CCQP/AbsBtQFD
AQABSQFWBf8B9gGfAX4BGwH/AU8BSQIAAUQBMgH2CMMB9gEsAUQGAAX/AgcD/wEAAUMBtQEJAf8BrQGs
AQkBGQKsAfMC/wHdAbUBQwEAAUkBNQH/ARsCVwEbAX4BNgFXAv8BVQFJAgABSgEyAfYBegFZAZoBegM4
AXoB9gEsAUQGAAT/AewBBwT/AQABQwG7AQkBGQKsAbQBCQKsAQkC/wHwAbsBQwEAAUkBNgL/AZ8BNgFX
ATUBVwEbAv8BVQFJAgABSgEyAfYBegHDAfYBwwJZAnoB9gEsAUQGAAT/AQcF/wEAAUMBuwEJAbsBsgKz
AbQBswGsAbQDCQG7AUMBAAFKATYB9gL/AX0CVgGfAv8B9gFVAUkCAAFKATIB9gJ6AcMBMgE4AVkCegH2
ASwBRAYABP8B+QX/AQABQwG7Ad0BtAGyAQkBsgGzAbQBrQG0AwkBuwFDAQABSgE6AfYC/wNWAXgC/wH2
AVUBSQIAAUoBMgH2AXoEMgFZAnoB9gEsAUQGAAQHAfkBBwT/AQABQwEJARkBswGyARkBsgGsAbsBswGt
AwkBuwFDAQABSgE6AfYB/wGXAVUBlwFWAVUBmAH/AfYBVQFJAgABSgEyAfYBegb2AZoB9gEsAUQBAAsB
Af8DBwEAAUMBCQHzArMB8wGyAawBCQGtAawC8wEZAQkBQwEAAUoBOgH2AfQCmALzApgB9AH2AVYBSQIA
AUoBMgH2AcMGGgHDAfYBLAFEAQABAQL5Af8B+QP/A/kBBwLsAf8BAAFDAQkB9AGzAboB9AG0AbMBGQKt
ARkC9AEJAUMBAAFKATsB9gj/AfYBVgFJAgABSgE4AfYI/wH2ASwBRAEAA/kF/wP5AQcC/wIAARIBugz/
AQkBQwEAAUoBOwFdB34BfQF4AVYBSQIAAUoBOAFZCHoBUwEsAUQBAAv5AQcB/wMAAe8BiwG7CxkBCQFD
AQABbQE2AzsDOgM2ATUBVgFtAgAB6wEyAjgIMgEsAesGAAX/AgcEAAH/AREBiwGtCbMCrQEUAQAB9AES
AUgIKAFJARIB9AIAAfQB6gMkBCoDJAHqAfQSAAH0AesKDwIOAZIDAAr/BgAK/wMAAUIBTQE+BwABPgMA
ASgDAAFAAwABMAMAAQEBAAEBBQABgAEBFgAD/4EAAfwBPwL/AcABAwH/AT8B8AEPAgABgAEBAfwBDwHg
AQcCAAGAAQEB8AEDAcABAwIAAYABAQHgAQEBgAEBAgABgAEBAYABAwGAAQECAAGAAQEBAAEPBAABgAEB
AQABBwQAAYABAQGAAQcEAAGAAQEBgAEDBAABgAEBAcABAwQAAYABAQHAAQEBgAEBAgABgAEBAeABAQGA
AQECAAGAAQMB4AEAAcABAwIAAYABBwHwAQMB4AEHAv8BgAEPAfABAwHwAQ8C/wHAAR8B8AH/AfgDAAHg
AQcB4AEHAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGA
AQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBBAABgAEBAYABAQQAAYABAQGA
AQEBAAEBAgABgAEBAYABAQEAAQMCAAGAAQEBgAEBAQABBwIAAYABAQGAAQEB+AEPAgABgAEBAYABAQL/
AYABAAHgAQcB4AEHCw==
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>652, 13</value>
</metadata>
<data name="NeuesDokumentToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAkRJREFUOE9j
oAmQDORlDJzvsr/5cM39psPV9/2mOS6BShEHBF05mINWe7+Ze2Pu/9nXZ/93n2R/DipFHBBwY2P2X+36
ZvKVif8nXOn77zzJ6jxUijgg5MfGHLDO/k3vlZb/3Vca/ztPMcVtgEKHEJPFQk0b73XW9v7rbe0DN9jY
W/WpOQVvsfzQdbX8f8eVkv+u8/RvO87TcfDdYGHvtd7C3mWdqb3BQmUrsAGi+ZwmuSeS//ddbfo/8XrD
/0k36/5PuVXzv/tG3v+O65n/W6+l/++8nvu/+3rR/7YrBf8bLub9rzyX/T9gr+t/gQQOZQbxPC6LKqBA
//VaoOaq/1NuV/yfeqf0f/vNuP9tN6P/t9yM+N91K/l/z82s/+3X0/83XE79X3k++X/YQef/AuFs6gzC
GSwWETsE/6cdEv6fe1Lof+EZof8FZwT/11wz+99+x+d/6x3P/+WXdf7nn+b/nwfEWcf5/ycd4Pvvu5Xr
P38QkzoDlwODtGQCw2b5FIZtimkM25TTGbYpAXHaKbmfnQ9s/7c/sPoftlP8A0hMKQOoBkjLpTJsE09g
2MBlwyAEDgdGAQZGJkEEFrRhYIk8zvSm7jHH/7rHXP/dV7KcF/VmRFHDKMTACNaMDUhFMzAnnmN40/GK
4T8I+6xjIC0dSEezMOdeEniz4JP8//kf5f+HbeIjzQCRQFbmpL26b+Y89PgPwgGLNUgzgNOSgUk6j2GH
YQfDDRAWT2SYB5UiHjCJMrAwCTOwg7E4AzNUGA0wMAAArFD2cSOev3YAAAAASUVORK5CYII=
</value>
</data>
<data name="DokumentInformationenBearbeitenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAgtJREFUOE+V
j19IU1Ecx8+DFLX1YJbE0v5dy8GiMh+SnizoD0VTkhH0Io7eTPrnQ1Ewh9lTD0EZ2IP9W9y41+LeuzXb
nF5LR/WSaBG6Nsm2ardtualEK+a3MziP3c0+8IFzzu97fr9zyFIY5Dh51Gy+xLb/h/+Y9dYNQtBbWooh
jns3YjavZaXi5Ca76yamQ3Bf6cJ12qTHYMATkwljHHeERQqzOH4xke6vRTx0B+EpDT2btuBmSQmUsrLL
LKIPwtce/Bg4jLhcjdgjgi8DBxD6lsCztgufWEQfRLoOpYdtiLsttAGHWN9qJLw1+CosQ+S9WM1i/2bG
17r81+tTWY1OTvr2ISquQspXTxtVIRcwtrGYPpg4F9A8FqT8B+kLttPJtUg834s5b3mQRfRB6Lw96a3D
d88uzKo2aPQLs0ONSHq2LU7z5UYW0yf3oTuqeWqw8Oo0Ev17kBk+iSSdjpdbj7NIYbKT95CekpB+24nM
YAOdbsWfF7v7WLkwtztbDNAkzH18ivnPKhaiAfwMWudZuTgbN5gsJxrrkYm4kdWCwO+wkIy9WcPKxamo
rDy6YqURFaZ1SmpmZD07Xhqqqm52OBwdTqfz6kOXy9Z7934zzz9ulSSpnZlf22VZbqE2KYqy3+/3V7Hr
hIiiuIPn+QZqs8vlOkNtp3ZQHcz8On92lmqnNgmCsJMQQv4C9p8lKbOOqd0AAAAASUVORK5CYII=
</value>
</data>
<data name="DokumentLöschenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAnRJREFUOE91
k81PGmEQxvfkN4KKgCBg+EYU/MKPGI0m6sHEaIL6D3jRmxr/D67eOLdV19YaXLBY7e4ipvWlNbHVXkza
eGnTQ9Okx6fzrmCx2EnmsvCbZ56ZeYVi5JeW4mexmLhrNhsKn8pCbGkxnM7Nicr0dLzw6S4uVlYSt5ub
eDs/j1QoxHYtlrIiBZh92tiAPDiIdDCY0H7gyhoci0EdH4cyOgopEGAc0P5AsWO1GrIcXl+HEo1C7unR
MuX3xwXeNlcuwsrwMOShIUg+H9uhIvfw2hqU3l4oXV33eeDxiMJz8szbLoXl/n7IfX048HpZdnaWXa2u
QiVFNRKBGg4jSyl5PGybimstcs+87VJYIYCrfFxeRra7W4NOKXOdnZDcbrZtsz2cE/fM2y6FuaISCEBu
a4PidEKlTBG89S9cDO6Zty2T0rHdjkx9PV5TnhgMUJqacGCxsK3W1sdhHnxgytQUYzMzeFVXp8FvGhqg
Go3ImUxI2Wzs2f8KcHWZ4PziIg4JPCqBz8xmvLNa8d7hQMbhYE/t9nL/8uQkyy8sIE3KGcpjvV5rO0fw
uc2GD+T/0uXCldeLY5frb5EizAiWamuRrqnBkU6nqXPPaWqbK1+63fjs9+MmFMIXmpFCA3/icBgEeWJC
PKdDSlZXQ6qqwiEV4d6TJpM2MO4543Sya58PNx0duKWVfqNr/E7rzgaDonA0MBDfr6xEsqICKSrCh7ff
3PxgVbzdE1rfV1orB3/Swf0aGUE+HL57VC90ukSxwEujsfxIKHgR1e9nP+gh/R4bw3U0eveYirGn18f3
GhvF+/N8JLjnXHu7eBGJFJ6zIPwB3CdvHrP2ebIAAAAASUVORK5CYII=
</value>
</data>
<data name="DokumentanzeigenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAldJREFUOE+N
kktPE1Ecxbtxq0vjTuPSmLhwY2Ji4spoAn4CP4ExxrgwMTC0tENLC7SNpVgLaYViEQ0h1D6ERpQm2IqB
dminQqHvTnnU9EVa6eJ4ZzoEJ2D0JCeZzP2f351z58qORMmVZ7ooxW2Fku7sValPWN5Ld/YoVNfFcanI
wtnRMVu4WCyiVqv91Vtb2xgcMtrF2LF65KqHjUYDrVbrn47Hf0DRS18Vo20ZjCaq2Wzi2L9weHgomH/+
cy2XL0CjHbwlRtvSE0D94AC8a/U6WLKLKxCCd3lF2PFojXc6kz0JGDK8oCqVqtAzGmPxYNKPayYv7tsX
ofGFwLJxVKs18DPbyRTU/QNSADkYqlT6iXK5glHfEi4N+9AxvoS5aA6mQBzvF5cFAD+zuZlAn0YnBegG
DVRxZxf7pRJM7s+4aPbhhsUP+fw6Hs1+h2MhgHKlAn6Gr0f3aaUA7YCe4g9nZ3cPq0wUN0dcOG9w47LR
gw6rG1FSgQ/zM8x6DEq6Xwogh0IlU1nwzmRyWAkz0HsCMHqWwG4khN7hCIN8gcPqGgOlSiMFkEOhEltJ
HDmbyxNYGql0Rgg5p6YxMzsHr28eDPnC4RGLFECrdRQb3yT9TjqVzmLO5Yb99SQBLAgQ8qeUYrQtcs+7
mXWW9DvdicQ2ATgw7nDC99GPD24vOI67J8ZlsidPn93xf/pCekZPdYSJCXfBZLZgwjGF6XczpGauW4y3
9bxL/tj80rrxymrjTrPNPsF9DYaqb5xvEQx+qxY47ooY/X+thSPnyG28u7e3f6H9Rib7DQvCar0nm0FH
AAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Dokumente.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="C1Dokumente.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
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="C1Dokumente.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;}Style4{}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{BackColor:255, 255, 192;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}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" FetchRowStyles="True" FilterBar="True" 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, 623, 292&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&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, 623, 292&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ImageListPruefschritt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>419, 13</value>
</metadata>
<data name="ImageListPruefschritt.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADe
CQAAAk1TRnQBSQFMAgEBAwEAARgBAAEYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
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/wUAAfQC/w0AAfQC/w0A
AfQC/x0AAf8B7wL0BP8IAAH/Ae8C9AT/CAAB/wHvAvQE/xkAAZIC8gLzAvQB/wgAAZIC8gLzAvQB/wgA
AZIC8gLzAvQB/xgAAe8B8gG2AmgBvAH0Af8IAAHvAfEBuwKzAbwB9AH/CAAB7wHwAXgCLwEHAfQB/xcA
Af8BsQGPAWkBYgE/AWkF/wQAAf8B3AHbAboCswG0Bf8EAAH/AVgCVwIvAVAF/xMAAfMBtwGxAY8CaQE/
AWgE/wQAAfQB4QHcAdsBugGzAZABswT/BAABGwF+AVgCVwIvAVAE/xQAA7cBsQFpAj8BjggAAhkB4QHb
AboBkAGLAboIAAKfAX4CVwEvASkBeBgAAbcB8wK3AY8CaAkAAeEB4gEZAeEB2wGzAbQJAAF+AcMBnwF+
AVcBLwFQGQAB/wG9AbcBvQGxAWkBPwkAAf8DGQHcAboBswkAAf8DnwFYAVYBLxwAArcBiAJpAfEKAALh
AdsBswG0AfIKAAF5AX4BVwEvAVAB8RoAAf8BsQGPAmkBiAFpCQAB/wHhAdsEugkAAfYBfgVXGQABvQK3
A7EBjwkAAhkC4QHcAtsJAAKfAn4BWAJXGQABvQG3AdIDsQG3CQABGQLhA9wBGQkAAZ8CfgF5AVcBeQGZ
GQACtwOxAfQKAAPhAtwB9AoAAn4BeQFXAVgB9BoAAf8BvQHyAf8MAAH/ARkB8wH/DAAB/wIbAf9WAAFC
AU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQAB8QH/AfEB/wHxAf8CAAHwAQ8B8AEP
AfABDwIAAfgBBwH4AQcB+AEHAgAB+AEHAfgBBwH4AQcCAAHwAQAB8AEAAfADAAHgAQEB4AEBAeABAQIA
AeABHwHgAR8B4AEfAgAB4AE/AeABPwHgAT8CAAHgAT8B4AE/AeABPwIAAfwBDwH8AQ8B/AEPAgAB/AEH
AfwBBwH8AQcCAAH8AQcB/AEHAfwBBwIAAfwBBwH8AQcB/AEHAgAB/AEPAfwBDwH8AQ8CAAH8AT8B/AE/
AfwBPwIABv8CAAs=
</value>
</data>
<metadata name="C1CommandHolder1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>809, 13</value>
</metadata>
</root>

59
.svn/pristine/03/03ad7c996dd0c99d05b1b811d60aca7e27d2dc45.svn-base Normal file
View File

@@ -0,0 +1,59 @@
Imports System.IO
Namespace DB
''' <summary>
''' Dynamische Datenbank-Verbindung aufbauen. Verwendet wird standardmässig Vertragsverwaltung.cfg.
''' Sollen Datenbank-Verbindungen zur Auswahl angezeigt werden, werden sämntliche Datenbank-Verbindungsdateien
''' mit dem Namen "Vertragsverwaltung....cfg" berücksichtigt
''' </summary>
''' <remarks></remarks>
Public Class DB_Connection
''' <summary>
''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
'''
''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
''' </summary>
''' <remarks></remarks>
Shared Sub New()
Dim fc As Integer = 0
If Globals.ConnectionFileName.Length = 0 Then
Dim Dir As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
Try
Dim f As New frmDatenbankauswahl()
Dim ChildFile As FileInfo
For Each ChildFile In Dir.GetFiles()
If UCase(Left(ChildFile.Name, 14)) = "ASSESSMENTMGMT" And UCase(ChildFile.Extension) = ".CFG" Then
f.ListBox1.Items.Add(ChildFile.Name)
fc = fc + 1
End If
Next
If fc > 1 Then
f.ListBox1.SelectedIndex = 0
f.ListBox1.Select()
f.ShowDialog()
Globals.ConnectionFileName = f.ListBox1.SelectedItem
f.Dispose()
End If
Catch except As Exception
fc = 0
Exit Sub
End Try
End If
If fc < 2 Then Globals.ConnectionFileName = "Assessmentmgmt.cfg"
Dim ofile As System.IO.File
Dim oread As System.IO.StreamReader
oread = ofile.OpenText(Application.StartupPath + "\" + Globals.ConnectionFileName)
sConnectionString = oread.ReadLine
sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
Globals.sConnectionString = sConnectionString
Globals.conn.sConnectionString = sConnectionString
oread.Close()
End Sub
End Class
End Namespace

BIN
.svn/pristine/04/04bcebcf35a7916d5949184acf6f805fe09fefe9.svn-base Normal file
View File

Binary file not shown.

252
.svn/pristine/04/04da27dfd92490569cb7c119c760ac1dfc1a1d7c.svn-base Normal file
View File

@@ -0,0 +1,252 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports C1.Win.C1TrueDBGrid
Namespace DMS
Public Class clsDok
Inherits DB.clsDokument
#Region "Deklarationen"
Private Dokumenttyp As New DB.clsDokumenttyp
Private Speichertyp As New DB.clsSpeicherTyp
Public Dokumenttypdaten As DataTable
Public Speichertypdaten As New DataTable
Private DocMgmt As New Utils.MyDocMgmt
Public Dokumente As New DataTable
Public Neuer_Datensatz As Boolean = False
Public Stammdaten As New DB.clsStammdaten
#End Region
''' <summary>
''' Dokument laden
''' </summary>
''' <param name="Nr">PersonNr</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Dokument(ByVal Nr As Integer)
Me.cpMainConnectionProvider = Globals.conn
Me.iDokumentNr = New SqlInt32(CType(Nr, Int32))
Globals.conn.OpenConnection()
Me.SelectOne()
Globals.conn.CloseConnection(True)
End Function
''' <summary>
''' Person sichern
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Save_Data() As Integer
Me.cpMainConnectionProvider = Globals.conn
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
Return Me.iDokumentNr.Value
End Function
''' <summary>
''' Kopie 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 Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Dokument(Basenr)
End If
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Dokument")
db.Dispose()
Me.cpMainConnectionProvider = Globals.conn
Me.iDokumentNr = 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.Mitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = True
Return newkey
End Function
''' <summary>
''' Datensatz inaktivieren
''' </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_Dokument(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Dokument(Basenr)
End If
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.Mitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Datensatz physisch löschen
''' </summary>
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Dokument(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(ByVal Elementnr As Integer, ByVal doktype As Integer) As Integer
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Dokument")
db.Dispose()
Me.iDokumentNr = New SqlInt32(CType(newkey, Int32))
Me.iKeyValue = New SqlInt32(CType(Elementnr, Int32))
Me.iDokType = New SqlInt32(CType(doktype, Int32))
Me.iDokumenttypNr = New SqlInt32(CType(2, Int32))
Me.sBezeichnung = New SqlString(CType("", String))
Me.sBeschreibung = New SqlString(CType("", String))
Me.sFilename = New SqlString(CType("", String))
Me.sOriginalFilename_incl_Path = New SqlString(CType("", String))
Me.sVersion = New SqlString(CType("", String))
Me.daVersionsdatum = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
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.Mitarbeiternr, Int32))
Me.iSpeichertypNr = New SqlInt32(CType(1, Int32))
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = True
Return newkey
End Function
''' <summary>
''' Dokumenttypen laden und in der Datatable Dokumenttypdaten bereit stellen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Dokumenttypen() As DataTable
Me.Dokumenttyp.cpMainConnectionProvider = Globals.conn
Me.Dokumenttypdaten = Stammdaten.Get_Stammdaten("Dokumenttyp", "Bezeichnung")
End Function
Public Function Get_Speichertypen() As DataTable
Me.speichertyp.cpMainConnectionProvider = Globals.conn
Me.Speichertypdaten = Stammdaten.Get_Stammdaten("Speichertyp", "Bezeichnung")
End Function
''' <summary>
''' Datei im Dokument speichern
''' </summary>
''' <param name="DokumentNr"></param>
''' <param name="Filename"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Save_File(ByVal DokumentNr As Integer, ByVal Filename As String) As Boolean
If Filename = "" Then Return True
If Me.DocMgmt.Save_Document(DokumentNr, Filename) = False Then
Return False
Else
Return True
End If
End Function
Public Function Show_Doc(ByVal dokumentnr As Integer) As Boolean
Return Me.DocMgmt.Show_Document(dokumentnr)
End Function
Public Function Get_Dokumente(ByVal Keyvalue As Integer, ByVal Doktype As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_get_dokumente"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@keyvalue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Keyvalue))
scmCmdToExecute.Parameters.Add(New SqlParameter("@doktype", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Doktype))
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("clsDok::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Get_Dokumente_pruefschritt(ByVal Keyvalue As Integer, ByVal Doktype As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_get_dokumente_Pruefschritt"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@keyvalue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Keyvalue))
scmCmdToExecute.Parameters.Add(New SqlParameter("@doktype", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
Throw New Exception("clsDok::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Exists_Testdrehbuch(ByVal Applikationnr As Integer) As Integer
Dim tmpdata As New DataTable
tmpdata = Get_Dokumente(Applikationnr, 2)
If tmpdata.Rows.Count = 0 Then
tmpdata.Dispose()
Return -1
Else
Return tmpdata.Rows(0).Item("Dokumentnr")
tmpdata.Dispose()
End If
End Function
#Region "Dokumentablageorte"
Public Dokumentablageort As TKB.VV.Sysadmin.DomainTable
Public Function Get_Ablageorte(ByVal c1data As C1TrueDBGrid, ByVal Dokumentnr As Integer)
Dokumentablageort = New TKB.VV.Sysadmin.DomainTable("Dokumentablageort", Str(Dokumentnr), Globals.Mitarbeiternr)
c1data.DataSource = Dokumentablageort.Tabledata
c1data.DataMember = Dokumentablageort.Tabledata.Tables(0).TableName
End Function
#End Region
End Class
End Namespace

BIN
.svn/pristine/04/04eed117c0906d8a21722a8aa93225566a48d78a.svn-base Normal file
View File

Binary file not shown.

BIN
.svn/pristine/04/04fdc880ac51c56069a8c39371d90bdf60385271.svn-base Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.5 KiB

530
.svn/pristine/05/05130ee3650330328df15cdc82db74b23b28def3.svn-base Normal file
View File

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

489
.svn/pristine/05/0527a1f2bae1f067dae729faf34314a08cacaa2c.svn-base 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

527
.svn/pristine/05/059da58bab49a5a4e0181475f95bf6907802b5fe.svn-base Normal file
View File

@@ -0,0 +1,527 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDokument
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(frmDokument))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
Me.TSBtnCopy = New System.Windows.Forms.ToolStripButton()
Me.TSBtnNew = New System.Windows.Forms.ToolStripButton()
Me.TSBtnDelete = New System.Windows.Forms.ToolStripButton()
Me.TSBtnSuche = New System.Windows.Forms.ToolStripButton()
Me.lblBeschreibung = New System.Windows.Forms.Label()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.txtMutierer = New System.Windows.Forms.TextBox()
Me.txtMutiert_am = New System.Windows.Forms.TextBox()
Me.txtErstellt_am = New System.Windows.Forms.TextBox()
Me.lblMutierer = New System.Windows.Forms.Label()
Me.lblMutiert_am = New System.Windows.Forms.Label()
Me.lblErstelltam = New System.Windows.Forms.Label()
Me.cbaktiv = New System.Windows.Forms.CheckBox()
Me.dtPickerVersionsdatum = New System.Windows.Forms.DateTimePicker()
Me.txtVersionsdatum = New System.Windows.Forms.MaskedTextBox()
Me.lblVersionsdatum = New System.Windows.Forms.Label()
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
Me.txtVersion = New System.Windows.Forms.TextBox()
Me.lblVersion = New System.Windows.Forms.Label()
Me.lblBezeichnung = New System.Windows.Forms.Label()
Me.lblDokumenttyp = New System.Windows.Forms.Label()
Me.txtFilename = New System.Windows.Forms.TextBox()
Me.lbldatei = New System.Windows.Forms.Label()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.txtDateiname = New System.Windows.Forms.TextBox()
Me.txtOriginalFilename_incl_path = New System.Windows.Forms.TextBox()
Me.brnFileOpen = New System.Windows.Forms.Button()
Me.btnDokumentAnzeigen = New System.Windows.Forms.Button()
Me.lblEx = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtHyperlink = New System.Windows.Forms.TextBox()
Me.lblHyperlink = New System.Windows.Forms.Label()
Me.pnlDokument = New System.Windows.Forms.Panel()
Me.pnlHyperlink = New System.Windows.Forms.Panel()
Me.cboxDokumenttyp = New System.Windows.Forms.ComboBox()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.pnlDokument.SuspendLayout()
Me.pnlHyperlink.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(583, 24)
Me.MenuStrip1.TabIndex = 5
Me.MenuStrip1.Tag = ""
Me.MenuStrip1.Text = "Hauptmenu"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Tag = ""
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
Me.BeendenToolStripMenuItem.Tag = ""
Me.BeendenToolStripMenuItem.Text = "&Beenden"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave, Me.TSBtnCopy, Me.TSBtnNew, Me.TSBtnDelete, Me.TSBtnSuche})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(583, 25)
Me.ToolStrip1.TabIndex = 6
Me.ToolStrip1.Text = "Toolstrip Vertragspartner"
'
'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 = "Fenster schliessen"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'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 = "Daten speichern"
Me.TSBtnSave.ToolTipText = "Daten speichern"
'
'TSBtnCopy
'
Me.TSBtnCopy.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnCopy.Image = CType(resources.GetObject("TSBtnCopy.Image"), System.Drawing.Image)
Me.TSBtnCopy.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnCopy.Name = "TSBtnCopy"
Me.TSBtnCopy.Size = New System.Drawing.Size(23, 22)
Me.TSBtnCopy.Text = "Datensatz kopieren"
Me.TSBtnCopy.ToolTipText = "Datensatz kopieren"
Me.TSBtnCopy.Visible = False
'
'TSBtnNew
'
Me.TSBtnNew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnNew.Image = CType(resources.GetObject("TSBtnNew.Image"), System.Drawing.Image)
Me.TSBtnNew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnNew.Name = "TSBtnNew"
Me.TSBtnNew.Size = New System.Drawing.Size(23, 22)
Me.TSBtnNew.Text = "Neuer Datensatz"
Me.TSBtnNew.ToolTipText = "Neuer Datensatz"
'
'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 = "Datensatz inaktivieren"
Me.TSBtnDelete.ToolTipText = "Datensatz inaktivieren"
'
'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(23, 22)
Me.TSBtnSuche.Text = "ToolStripButton1"
Me.TSBtnSuche.Visible = False
'
'lblBeschreibung
'
Me.lblBeschreibung.AccessibleDescription = "Name"
Me.lblBeschreibung.AutoSize = True
Me.lblBeschreibung.Location = New System.Drawing.Point(9, 33)
Me.lblBeschreibung.Name = "lblBeschreibung"
Me.lblBeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblBeschreibung.TabIndex = 155
Me.lblBeschreibung.Text = "Beschreibung"
'
'txtBeschreibung
'
Me.txtBeschreibung.Location = New System.Drawing.Point(98, 32)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.Size = New System.Drawing.Size(268, 73)
Me.txtBeschreibung.TabIndex = 2
'
'txtMutierer
'
Me.txtMutierer.BackColor = System.Drawing.SystemColors.InactiveBorder
Me.txtMutierer.Location = New System.Drawing.Point(463, 56)
Me.txtMutierer.Name = "txtMutierer"
Me.txtMutierer.ReadOnly = True
Me.txtMutierer.Size = New System.Drawing.Size(97, 20)
Me.txtMutierer.TabIndex = 153
'
'txtMutiert_am
'
Me.txtMutiert_am.BackColor = System.Drawing.SystemColors.InactiveBorder
Me.txtMutiert_am.Location = New System.Drawing.Point(463, 32)
Me.txtMutiert_am.Name = "txtMutiert_am"
Me.txtMutiert_am.ReadOnly = True
Me.txtMutiert_am.Size = New System.Drawing.Size(97, 20)
Me.txtMutiert_am.TabIndex = 152
'
'txtErstellt_am
'
Me.txtErstellt_am.BackColor = System.Drawing.SystemColors.InactiveBorder
Me.txtErstellt_am.Location = New System.Drawing.Point(463, 6)
Me.txtErstellt_am.Name = "txtErstellt_am"
Me.txtErstellt_am.ReadOnly = True
Me.txtErstellt_am.Size = New System.Drawing.Size(97, 20)
Me.txtErstellt_am.TabIndex = 151
'
'lblMutierer
'
Me.lblMutierer.AccessibleDescription = "Name"
Me.lblMutierer.AutoSize = True
Me.lblMutierer.Location = New System.Drawing.Point(392, 59)
Me.lblMutierer.Name = "lblMutierer"
Me.lblMutierer.Size = New System.Drawing.Size(72, 13)
Me.lblMutierer.TabIndex = 150
Me.lblMutierer.Text = "Mutiert durch:"
'
'lblMutiert_am
'
Me.lblMutiert_am.AccessibleDescription = "Name"
Me.lblMutiert_am.AutoSize = True
Me.lblMutiert_am.Location = New System.Drawing.Point(393, 35)
Me.lblMutiert_am.Name = "lblMutiert_am"
Me.lblMutiert_am.Size = New System.Drawing.Size(59, 13)
Me.lblMutiert_am.TabIndex = 149
Me.lblMutiert_am.Text = "Mutiert am:"
'
'lblErstelltam
'
Me.lblErstelltam.AccessibleDescription = "Name"
Me.lblErstelltam.AutoSize = True
Me.lblErstelltam.Location = New System.Drawing.Point(392, 9)
Me.lblErstelltam.Name = "lblErstelltam"
Me.lblErstelltam.Size = New System.Drawing.Size(58, 13)
Me.lblErstelltam.TabIndex = 148
Me.lblErstelltam.Text = "Erstellt am:"
'
'cbaktiv
'
Me.cbaktiv.Location = New System.Drawing.Point(390, 85)
Me.cbaktiv.Name = "cbaktiv"
Me.cbaktiv.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.cbaktiv.Size = New System.Drawing.Size(87, 17)
Me.cbaktiv.TabIndex = 10
Me.cbaktiv.Text = "Aktiv"
Me.cbaktiv.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.cbaktiv.UseVisualStyleBackColor = True
'
'dtPickerVersionsdatum
'
Me.dtPickerVersionsdatum.Location = New System.Drawing.Point(343, 3)
Me.dtPickerVersionsdatum.Name = "dtPickerVersionsdatum"
Me.dtPickerVersionsdatum.Size = New System.Drawing.Size(21, 20)
Me.dtPickerVersionsdatum.TabIndex = 5
Me.dtPickerVersionsdatum.TabStop = False
'
'txtVersionsdatum
'
Me.txtVersionsdatum.Location = New System.Drawing.Point(280, 3)
Me.txtVersionsdatum.Mask = "00/00/0000"
Me.txtVersionsdatum.Name = "txtVersionsdatum"
Me.txtVersionsdatum.Size = New System.Drawing.Size(66, 20)
Me.txtVersionsdatum.TabIndex = 4
Me.txtVersionsdatum.ValidatingType = GetType(Date)
'
'lblVersionsdatum
'
Me.lblVersionsdatum.AutoSize = True
Me.lblVersionsdatum.Location = New System.Drawing.Point(189, 6)
Me.lblVersionsdatum.Name = "lblVersionsdatum"
Me.lblVersionsdatum.Size = New System.Drawing.Size(76, 13)
Me.lblVersionsdatum.TabIndex = 159
Me.lblVersionsdatum.Text = "Versionsdatum"
'
'txtBezeichnung
'
Me.txtBezeichnung.Location = New System.Drawing.Point(98, 7)
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Size = New System.Drawing.Size(268, 20)
Me.txtBezeichnung.TabIndex = 0
'
'txtVersion
'
Me.txtVersion.Location = New System.Drawing.Point(98, 3)
Me.txtVersion.Name = "txtVersion"
Me.txtVersion.Size = New System.Drawing.Size(84, 20)
Me.txtVersion.TabIndex = 3
'
'lblVersion
'
Me.lblVersion.AutoSize = True
Me.lblVersion.Location = New System.Drawing.Point(9, 6)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(42, 13)
Me.lblVersion.TabIndex = 162
Me.lblVersion.Text = "Version"
'
'lblBezeichnung
'
Me.lblBezeichnung.AutoSize = True
Me.lblBezeichnung.Location = New System.Drawing.Point(9, 10)
Me.lblBezeichnung.Name = "lblBezeichnung"
Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
Me.lblBezeichnung.TabIndex = 161
Me.lblBezeichnung.Text = "Bezeichnung"
'
'lblDokumenttyp
'
Me.lblDokumenttyp.AutoSize = True
Me.lblDokumenttyp.Location = New System.Drawing.Point(7, 114)
Me.lblDokumenttyp.Name = "lblDokumenttyp"
Me.lblDokumenttyp.Size = New System.Drawing.Size(70, 13)
Me.lblDokumenttyp.TabIndex = 166
Me.lblDokumenttyp.Text = "Dokumenttyp"
'
'txtFilename
'
Me.txtFilename.Location = New System.Drawing.Point(98, 56)
Me.txtFilename.Name = "txtFilename"
Me.txtFilename.Size = New System.Drawing.Size(268, 20)
Me.txtFilename.TabIndex = 8
'
'lbldatei
'
Me.lbldatei.AutoSize = True
Me.lbldatei.Location = New System.Drawing.Point(9, 58)
Me.lbldatei.Name = "lbldatei"
Me.lbldatei.Size = New System.Drawing.Size(32, 13)
Me.lbldatei.TabIndex = 168
Me.lbldatei.Text = "Datei"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'txtDateiname
'
Me.txtDateiname.Location = New System.Drawing.Point(98, 29)
Me.txtDateiname.Name = "txtDateiname"
Me.txtDateiname.Size = New System.Drawing.Size(268, 20)
Me.txtDateiname.TabIndex = 6
'
'txtOriginalFilename_incl_path
'
Me.txtOriginalFilename_incl_path.Location = New System.Drawing.Point(393, 6)
Me.txtOriginalFilename_incl_path.Name = "txtOriginalFilename_incl_path"
Me.txtOriginalFilename_incl_path.Size = New System.Drawing.Size(169, 20)
Me.txtOriginalFilename_incl_path.TabIndex = 12
Me.txtOriginalFilename_incl_path.Visible = False
'
'brnFileOpen
'
Me.brnFileOpen.Image = CType(resources.GetObject("brnFileOpen.Image"), System.Drawing.Image)
Me.brnFileOpen.Location = New System.Drawing.Point(363, 55)
Me.brnFileOpen.Name = "brnFileOpen"
Me.brnFileOpen.Size = New System.Drawing.Size(24, 24)
Me.brnFileOpen.TabIndex = 9
Me.brnFileOpen.UseVisualStyleBackColor = True
'
'btnDokumentAnzeigen
'
Me.btnDokumentAnzeigen.Image = CType(resources.GetObject("btnDokumentAnzeigen.Image"), System.Drawing.Image)
Me.btnDokumentAnzeigen.Location = New System.Drawing.Point(363, 26)
Me.btnDokumentAnzeigen.Name = "btnDokumentAnzeigen"
Me.btnDokumentAnzeigen.Size = New System.Drawing.Size(24, 24)
Me.btnDokumentAnzeigen.TabIndex = 7
Me.btnDokumentAnzeigen.UseVisualStyleBackColor = True
'
'lblEx
'
Me.lblEx.AutoSize = True
Me.lblEx.Location = New System.Drawing.Point(9, 32)
Me.lblEx.Name = "lblEx"
Me.lblEx.Size = New System.Drawing.Size(59, 13)
Me.lblEx.TabIndex = 173
Me.lblEx.Text = "Best. Datei"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cboxDokumenttyp)
Me.Panel1.Controls.Add(Me.cbaktiv)
Me.Panel1.Controls.Add(Me.lblErstelltam)
Me.Panel1.Controls.Add(Me.lblMutiert_am)
Me.Panel1.Controls.Add(Me.lblMutierer)
Me.Panel1.Controls.Add(Me.txtErstellt_am)
Me.Panel1.Controls.Add(Me.txtMutiert_am)
Me.Panel1.Controls.Add(Me.lblDokumenttyp)
Me.Panel1.Controls.Add(Me.txtMutierer)
Me.Panel1.Controls.Add(Me.txtBeschreibung)
Me.Panel1.Controls.Add(Me.lblBeschreibung)
Me.Panel1.Controls.Add(Me.lblBezeichnung)
Me.Panel1.Controls.Add(Me.txtBezeichnung)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 49)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(583, 140)
Me.Panel1.TabIndex = 175
'
'txtHyperlink
'
Me.txtHyperlink.Location = New System.Drawing.Point(96, 0)
Me.txtHyperlink.Name = "txtHyperlink"
Me.txtHyperlink.Size = New System.Drawing.Size(268, 20)
Me.txtHyperlink.TabIndex = 176
'
'lblHyperlink
'
Me.lblHyperlink.AutoSize = True
Me.lblHyperlink.Location = New System.Drawing.Point(7, 2)
Me.lblHyperlink.Name = "lblHyperlink"
Me.lblHyperlink.Size = New System.Drawing.Size(51, 13)
Me.lblHyperlink.TabIndex = 177
Me.lblHyperlink.Text = "Hyperlink"
'
'pnlDokument
'
Me.pnlDokument.Controls.Add(Me.txtOriginalFilename_incl_path)
Me.pnlDokument.Controls.Add(Me.txtVersion)
Me.pnlDokument.Controls.Add(Me.lblVersion)
Me.pnlDokument.Controls.Add(Me.lblVersionsdatum)
Me.pnlDokument.Controls.Add(Me.lblEx)
Me.pnlDokument.Controls.Add(Me.txtVersionsdatum)
Me.pnlDokument.Controls.Add(Me.btnDokumentAnzeigen)
Me.pnlDokument.Controls.Add(Me.dtPickerVersionsdatum)
Me.pnlDokument.Controls.Add(Me.lbldatei)
Me.pnlDokument.Controls.Add(Me.txtFilename)
Me.pnlDokument.Controls.Add(Me.txtDateiname)
Me.pnlDokument.Controls.Add(Me.brnFileOpen)
Me.pnlDokument.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlDokument.Location = New System.Drawing.Point(0, 189)
Me.pnlDokument.Name = "pnlDokument"
Me.pnlDokument.Size = New System.Drawing.Size(583, 95)
Me.pnlDokument.TabIndex = 178
'
'pnlHyperlink
'
Me.pnlHyperlink.Controls.Add(Me.lblHyperlink)
Me.pnlHyperlink.Controls.Add(Me.txtHyperlink)
Me.pnlHyperlink.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlHyperlink.Location = New System.Drawing.Point(0, 284)
Me.pnlHyperlink.Name = "pnlHyperlink"
Me.pnlHyperlink.Size = New System.Drawing.Size(583, 46)
Me.pnlHyperlink.TabIndex = 179
'
'cboxDokumenttyp
'
Me.cboxDokumenttyp.FormattingEnabled = True
Me.cboxDokumenttyp.Location = New System.Drawing.Point(98, 111)
Me.cboxDokumenttyp.Name = "cboxDokumenttyp"
Me.cboxDokumenttyp.Size = New System.Drawing.Size(268, 21)
Me.cboxDokumenttyp.TabIndex = 167
'
'frmDokument
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(583, 341)
Me.Controls.Add(Me.pnlHyperlink)
Me.Controls.Add(Me.pnlDokument)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmDokument"
Me.Text = "Dokument"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.pnlDokument.ResumeLayout(False)
Me.pnlDokument.PerformLayout()
Me.pnlHyperlink.ResumeLayout(False)
Me.pnlHyperlink.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnSave As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnCopy As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnNew As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnDelete As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnSuche As System.Windows.Forms.ToolStripButton
Friend WithEvents lblBeschreibung As System.Windows.Forms.Label
Friend WithEvents txtBeschreibung As System.Windows.Forms.TextBox
Friend WithEvents txtMutierer As System.Windows.Forms.TextBox
Friend WithEvents txtMutiert_am As System.Windows.Forms.TextBox
Friend WithEvents txtErstellt_am As System.Windows.Forms.TextBox
Friend WithEvents lblMutierer As System.Windows.Forms.Label
Friend WithEvents lblMutiert_am As System.Windows.Forms.Label
Friend WithEvents lblErstelltam As System.Windows.Forms.Label
Friend WithEvents cbaktiv As System.Windows.Forms.CheckBox
Friend WithEvents dtPickerVersionsdatum As System.Windows.Forms.DateTimePicker
Friend WithEvents txtVersionsdatum As System.Windows.Forms.MaskedTextBox
Friend WithEvents lblVersionsdatum As System.Windows.Forms.Label
Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox
Friend WithEvents txtVersion As System.Windows.Forms.TextBox
Friend WithEvents lblVersion As System.Windows.Forms.Label
Friend WithEvents lblBezeichnung As System.Windows.Forms.Label
Friend WithEvents lblDokumenttyp As System.Windows.Forms.Label
Friend WithEvents txtFilename As System.Windows.Forms.TextBox
Friend WithEvents lbldatei As System.Windows.Forms.Label
Friend WithEvents brnFileOpen As System.Windows.Forms.Button
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents txtDateiname As System.Windows.Forms.TextBox
Friend WithEvents txtOriginalFilename_incl_path As System.Windows.Forms.TextBox
Friend WithEvents btnDokumentAnzeigen As System.Windows.Forms.Button
Friend WithEvents lblEx As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents txtHyperlink As System.Windows.Forms.TextBox
Friend WithEvents lblHyperlink As System.Windows.Forms.Label
Friend WithEvents pnlDokument As System.Windows.Forms.Panel
Friend WithEvents pnlHyperlink As System.Windows.Forms.Panel
Friend WithEvents cboxDokumenttyp As System.Windows.Forms.ComboBox
End Class

BIN
.svn/pristine/06/06beafca7c4339c72e8f4c8b9d345b500be40b01.svn-base Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.5 KiB

11102
.svn/pristine/06/06da4c0106ff63389b629bde5f42663ad79c1dd9.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

373
.svn/pristine/07/075c20a961ff455981de4bbcd878b2ba7fa55da4.svn-base Normal file
View File

@@ -0,0 +1,373 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
Public Class clsTerminierung
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
Private m_iMutierer, m_iID As SqlInt32
Private m_sBezeichnung, m_sBeschreibung As SqlString
#End Region
Public Sub New()
' // Nothing for now.
End Sub
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iID))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Terminierung_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsTerminierung::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iID))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Terminierung_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsTerminierung::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iID))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Terminierung_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsTerminierung::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Terminierung")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iID))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Terminierung_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iID = New SqlInt32(CType(dtToReturn.Rows(0)("ID"), Integer))
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
m_sBezeichnung = SqlString.Null
Else
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
End If
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
m_sBeschreibung = SqlString.Null
Else
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
End If
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsTerminierung::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Terminierung")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Terminierung_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsTerminierung::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iID]() As SqlInt32
Get
Return m_iID
End Get
Set(ByVal Value As SqlInt32)
Dim iIDTmp As SqlInt32 = Value
If iIDTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iID", "iID can't be NULL")
End If
m_iID = Value
End Set
End Property
Public Property [sBezeichnung]() As SqlString
Get
Return m_sBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sBezeichnung = Value
End Set
End Property
Public Property [sBeschreibung]() As SqlString
Get
Return m_sBeschreibung
End Get
Set(ByVal Value As SqlString)
m_sBeschreibung = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

BIN
.svn/pristine/07/07818ca4bb5b68d35789b6154e78b7be3dad73dc.svn-base Normal file
View File

Binary file not shown.

34
.svn/pristine/07/07823ef022a810424e1bce42c2ba0dc690526d31.svn-base Normal file
View File

@@ -0,0 +1,34 @@
Module Crypto
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
strPwd = UCase$(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
strPwd = UCase$(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function
End Module

560
.svn/pristine/09/09c8c0313204dc083f891a762ebe507041aa42c1.svn-base Normal file
View File

@@ -0,0 +1,560 @@
alter table pruefschritthistory alter column beschreibung varchar(1024)
go
alter table pruefschritthistory add HistoryArt varchar(255)
go
update pruefschritthistory set historyart=''
go
/****** Object: Table [dbo].[ErrinnerungsMail] Script Date: 04.06.2017 10:14:51 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[ErrinnerungsMail](
[Eintragnr] [INT] IDENTITY(1,1) NOT NULL,
[mitarbeiternr] [INT] NOT NULL,
[Mailtyp1] [INT] NULL,
[Mailtyp2] [INT] NULL,
[Mailtyp3] [INT] NULL,
[Mailtyp4] [INT] NULL,
[erstellt_am] [DATETIME] NULL,
[mutiert_am] [DATETIME] NULL,
[mutierer] [INT] NULL,
[aktiv] [BIT] NULL,
CONSTRAINT [PK_ErrinnerungsMail_1] PRIMARY KEY CLUSTERED
(
[Eintragnr] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
Go
DROP VIEW [dbo].[View_Pruefschritt]
GO
/****** Object: View [dbo].[View_Pruefschritt] Script Date: 04.06.2017 09:53:53 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo].[View_Pruefschritt]
AS
SELECT DISTINCT
dbo.Pruefschritt.PruefschrittNr, dbo.Pruefschritt.PruefplanNr, dbo.Pruefplan.Bezeichnung, dbo.PruefSchrittStatus.Bezeichnung AS Status, dbo.PruefSchrittStatus.PruefschrittStatusNr,
mitarbeiter_1.name + ' ' + mitarbeiter_1.vorname AS Hauptverantwortung, dbo.mitarbeiter.name + ' ' + dbo.mitarbeiter.vorname AS Verantwortung_ISI,
mitarbeiter_2.name + ' ' + mitarbeiter_2.vorname AS Aktuell_Verantwortlich, dbo.Pruefschritt.Termin, dbo.Pruefschritt.Aktiv, dbo.Pruefschritt.Erstellt_am, dbo.Pruefschritt.Mutiert_am,
mitarbeiter_4.name + ' ' + mitarbeiter_4.vorname + ', ' + mitarbeiter_4.tgnummer AS Mutierer, dbo.mitarbeiter.mitarbeiternr AS VerantwortungIsiNr, mitarbeiter_1.mitarbeiternr AS VerantwortungNr,
mitarbeiter_2.mitarbeiternr AS Aktuelle_VerantwortungNr, dbo.Pruefplan.Beschreibung, dbo.Pruefplan.Pruefgegenstand, dbo.Pruefplan.Hilfsmittel, dbo.Pruefplan.Massnahmen, dbo.Pruefplan.Ergebnisse,
dbo.Pruefschritt.Zugewiesen, mitarbeiter_3.name + ' ' + mitarbeiter_3.vorname AS VerantwortungPlan
FROM dbo.Pruefschritt INNER JOIN
dbo.Pruefplan ON dbo.Pruefschritt.PruefplanNr = dbo.Pruefplan.PruefplanNr INNER JOIN
dbo.PruefSchrittStatus ON dbo.Pruefschritt.Statusnr = dbo.PruefSchrittStatus.PruefschrittStatusNr INNER JOIN
dbo.mitarbeiter ON dbo.Pruefschritt.VeramtwortungISINr = dbo.mitarbeiter.mitarbeiternr INNER JOIN
dbo.mitarbeiter AS mitarbeiter_1 ON dbo.Pruefschritt.VerantwortlichNr = mitarbeiter_1.mitarbeiternr INNER JOIN
dbo.mitarbeiter AS mitarbeiter_2 ON dbo.Pruefschritt.Aktueller_Verantwortlicher = mitarbeiter_2.mitarbeiternr INNER JOIN
dbo.mitarbeiter AS mitarbeiter_3 ON dbo.Pruefplan.VerantwortungPlanNr = mitarbeiter_3.mitarbeiternr LEFT OUTER JOIN
dbo.mitarbeiter AS mitarbeiter_4 ON dbo.Pruefschritt.Mutierer = mitarbeiter_4.mitarbeiternr
WHERE (dbo.Pruefschritt.Aktiv = 1)
GO
/****** Object: StoredProcedure [dbo].[sp_get_Pruefschritthistory] Script Date: 04.06.2017 09:54:39 ******/
DROP PROCEDURE [dbo].[sp_get_Pruefschritthistory]
GO
/****** Object: StoredProcedure [dbo].[sp_get_Pruefschritthistory] Script Date: 04.06.2017 09:54:39 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
CREATE PROCEDURE [dbo].[sp_get_Pruefschritthistory]
@key INT
AS
BEGIN
SELECT TOP (100) PERCENT dbo.PruefSchrittHistory.PruefSchrittHistoryNr, dbo.PruefSchrittHistory.PruefschrittNr, dbo.PruefSchrittHistory.Eintragdatum, dbo.PruefSchrittHistory.Beschreibung,
dbo.PruefSchrittHistory.Aktiv, dbo.PruefSchrittHistory.Erstellt_am, dbo.PruefSchrittHistory.Mutiert_am, dbo.PruefSchrittHistory.HistoryArt,
dbo.mitarbeiter.name + ' ' + dbo.mitarbeiter.vorname + ', ' + dbo.mitarbeiter.tgnummer AS Mutierer
FROM dbo.PruefSchrittHistory INNER JOIN
dbo.mitarbeiter ON dbo.PruefSchrittHistory.Mutierer = dbo.mitarbeiter.mitarbeiternr
WHERE (dbo.PruefSchrittHistory.Aktiv = 1) AND (dbo.PruefSchrittHistory.PruefschrittNr = @key)
END
GO
/****** Object: StoredProcedure [dbo].[sp_get_pruefschrittfinding] Script Date: 04.06.2017 09:54:58 ******/
DROP PROCEDURE [dbo].[sp_get_pruefschrittfinding]
GO
/****** Object: StoredProcedure [dbo].[sp_get_pruefschrittfinding] Script Date: 04.06.2017 09:54:58 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
CREATE PROCEDURE [dbo].[sp_get_pruefschrittfinding]
@key INT
AS
BEGIN
--SELECT * FROM pruefschrittfinding
SELECT dbo.PruefschrittFinding.PruefschrittfindingNr, dbo.PruefschrittFinding.Pruefschrittresultatnr, dbo.PruefschrittFinding.Bezeichnung, dbo.PruefschrittFinding.Beschreibung, dbo.PruefschrittFinding.Aktiv,
dbo.PruefschrittFinding.Erstellt_am, dbo.PruefschrittFinding.Mutiert_am, dbo.PruefschrittFinding.Wichtigkeitnr, dbo.PruefschrittFinding.Kritikalitaetnr, dbo.PruefschrittFinding.Auswirkungnr,
dbo.mitarbeiter.name + ' ' + dbo.mitarbeiter.vorname + ', ' + dbo.mitarbeiter.tgnummer AS Mutierer
FROM dbo.PruefschrittFinding INNER JOIN
dbo.mitarbeiter ON dbo.PruefschrittFinding.Mutierer = dbo.mitarbeiter.mitarbeiternr
WHERE Pruefschrittresultatnr=@key
END
GO
/****** Object: StoredProcedure [dbo].[sp_get_pruefschrittmassnahme] Script Date: 04.06.2017 09:55:14 ******/
DROP PROCEDURE [dbo].[sp_get_pruefschrittmassnahme]
GO
/****** Object: StoredProcedure [dbo].[sp_get_pruefschrittmassnahme] Script Date: 04.06.2017 09:55:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
CREATE PROCEDURE [dbo].[sp_get_pruefschrittmassnahme]
@key INT
AS
BEGIN
--SELECT * FROM dbo.PruefSchrittMassnahme
SELECT dbo.PruefSchrittMassnahme.PruefschrittmassnahmeNr, dbo.PruefSchrittMassnahme.Pruefschrittfindingnr, dbo.PruefSchrittMassnahme.Kurzbeschreibung, dbo.PruefSchrittMassnahme.Beschreibung,
dbo.PruefSchrittMassnahme.MassnahmeResultat, dbo.PruefSchrittMassnahme.MassnahmeStatusNr, dbo.PruefSchrittMassnahme.Termin, dbo.PruefSchrittMassnahme.VerantwortungNr,
dbo.PruefSchrittMassnahme.Aktiv, dbo.PruefSchrittMassnahme.Erstellt_am, dbo.PruefSchrittMassnahme.Mutiert_am, dbo.PruefSchrittMassnahme.Verantwortung,
dbo.PruefSchrittMassnahme.VerantwortungIsI, dbo.PruefSchrittMassnahme.Aktueller_Verantwortlicher, dbo.mitarbeiter.name + ' ' + dbo.mitarbeiter.vorname + ', ' + dbo.mitarbeiter.tgnummer AS Mutierer
FROM dbo.PruefSchrittMassnahme INNER JOIN
dbo.mitarbeiter ON dbo.PruefSchrittMassnahme.Mutierer = dbo.mitarbeiter.mitarbeiternr WHERE Pruefschrittfindingnr=@key
END
GO
/****** Object: Trigger [dbo].[update_pruefschrittresultat] Script Date: 04.06.2017 09:56:02 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
CREATE TRIGGER [dbo].[update_pruefschrittresultat] ON [dbo].[PruefSchrittResultat]
FOR UPDATE
AS
DECLARE @pruefschrittnr INT
DECLARE @pruefschrittresultatnr INT
DECLARE @beschreibung_alt VARCHAR(MAX)
DECLARE @beschreibung_neu VARCHAR(MAX)
DECLARE @mutierer INT
DECLARE @mutiereralt INT
SELECT @mutierer=mutierer,@pruefschrittresultatnr=Inserted.PruefSchrittResultatNr,@pruefschrittnr=Inserted.PruefschrittNr,@beschreibung_neu=Beschreibung FROM Inserted
SELECT @mutiereralt=mutierer,@beschreibung_alt=beschreibung FROM Deleted
IF @beschreibung_alt<>@beschreibung_neu BEGIN
DECLARE @dbkey INT, @ierrorcode INT
EXECUTE sp_get_dbkey 'Pruefschritthistory', @dbkey OUTPUT, @ierrorcode OUTPUT
INSERT dbo.PruefSchrittHistory
( PruefSchrittHistoryNr ,
PruefschrittNr ,
Eintragdatum ,
Beschreibung ,
Aktiv ,
Erstellt_am ,
Mutiert_am ,
Mutierer,
HistoryArt
)
VALUES ( @dbkey , -- PruefSchrittHistoryNr - int
@pruefschrittnr , -- PruefschrittNr - int
GETDATE() , -- Eintragdatum - datetime
@beschreibung_alt , -- Beschreibung - varchar(1024)
1 , -- Aktiv - bit
GETDATE() , -- Erstellt_am - datetime
GETDATE() , -- Mutiert_am - datetime
@mutiereralt, -- Mutierer - int
'Ursprüngliche Beschreibung'
)
END
GO
update spalten set breite=100 where eintragnr=323
go
INSERT dbo.spalten
( eintragnr ,
tabelle ,
tabellenspalte ,
spalte ,
Readonly ,
alsHacken ,
Breite ,
Reihenfolge ,
tiptext ,
aktiv ,
erstellt_am ,
mutiert_am ,
mutierer ,
mandantnr ,
NumberFormat
)
VALUES ( 431 , -- eintragnr - int
'PruefSchrittHistory' , -- tabelle - varchar(255)
'HistoryArt' , -- tabellenspalte - varchar(255)
'Art' , -- spalte - varchar(255)
1 , -- Readonly - bit
0 , -- alsHacken - bit
130 , -- Breite - int
2 , -- Reihenfolge - int
'' , -- tiptext - varchar(255)
1 , -- aktiv - bit
GETDATE() , -- erstellt_am - datetime
GETDATE() , -- mutiert_am - datetime
1 , -- mutierer - int
1 , -- mandantnr - int
'' -- NumberFormat - varchar(255)
)
go
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
CREATE PROCEDURE [dbo].[sp_erinnerungsmail]
@fnkt INT ,
@param1 VARCHAR(255) = '' ,
@param2 VARCHAR(255) = '' ,
@param3 VARCHAR(255) = '' ,
@param4 VARCHAR(255) = ''
AS
BEGIN
SET NOCOUNT ON;
DECLARE @rc INT;
IF @fnkt = 1
BEGIN
SELECT @rc = COUNT(*)
FROM dbo.ErrinnerungsMail
WHERE aktiv = 1
AND mitarbeiternr = @param1;
IF @rc = 0
BEGIN
INSERT dbo.ErrinnerungsMail
( mitarbeiternr ,
Mailtyp1 ,
Mailtyp2 ,
Mailtyp3 ,
Mailtyp4 ,
erstellt_am ,
mutiert_am ,
mutierer ,
aktiv
)
VALUES ( @param1 , -- mitarbeiternr - int
0 , -- Mailtyp1 - int
0 , -- Mailtyp2 - int
0 , -- Mailtyp3 - int
0 , -- Mailtyp4 - int
GETDATE() , -- erstellt_am - datetime
GETDATE() , -- mutiert_am - datetime
@param1 , -- mutierer - int,
1 -- aktiv
);
END;
SELECT *
FROM dbo.ErrinnerungsMail
WHERE aktiv = 1
AND mitarbeiternr = @param1;
END;
IF @fnkt = 2
BEGIN
UPDATE dbo.ErrinnerungsMail
SET Mailtyp1 = @param2 ,
Mailtyp2 = @param3 ,
mutiert_am = GETDATE() ,
mutierer = @param1
WHERE mitarbeiternr = @param1;
END;
END;
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[ErrinnerungsMail](
[Eintragnr] [INT] IDENTITY(1,1) NOT NULL,
[mitarbeiternr] [INT] NOT NULL,
[Mailtyp1] [INT] NULL,
[Mailtyp2] [INT] NULL,
[Mailtyp3] [INT] NULL,
[Mailtyp4] [INT] NULL,
[erstellt_am] [DATETIME] NULL,
[mutiert_am] [DATETIME] NULL,
[mutierer] [INT] NULL,
[aktiv] [BIT] NULL,
CONSTRAINT [PK_ErrinnerungsMail_1] PRIMARY KEY CLUSTERED
(
[Eintragnr] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [Dat_1]
GO
/****** Object: UserDefinedFunction [dbo].[Check_Sendmail] Script Date: 04.06.2017 20:22:20 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date, ,>
-- Description: <Description, ,>
-- =============================================
CREATE FUNCTION [dbo].[Check_Sendmail]
(
@date DATE,
@verantwortlich INT,
@datum DATE,
@aktuell_verantwortlich INT
)
RETURNS INT
AS
BEGIN
DECLARE @mailtyp1 INT
DECLARE @mailtyp2 INT
DECLARE @datediff INT
DECLARE @result INT
SELECT @mailtyp1=mailtyp1, @mailtyp2=mailtyp2 FROM ErrinnerungsMail WHERE aktiv=1 AND mitarbeiternr=@verantwortlich
SET @datediff=DATEDIFF(DAY,@date,@datum)
SET @result=0
IF @datediff=@mailtyp1 AND @verantwortlich<>@aktuell_verantwortlich SET @result=1
IF @datediff=@mailtyp2 AND @verantwortlich= @aktuell_verantwortlich SET @result=2
RETURN @result
END
GO
/****** Object: StoredProcedure [dbo].[sp_erinnerungsmails] Script Date: 04.06.2017 20:22:55 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
CREATE PROCEDURE [dbo].[sp_erinnerungsmails]
-- Add the parameters for the stored procedure here
@datum DATE = '2099-12-31' ,
@demo INT = 0
AS
BEGIN
IF @datum = '2099-12-31'
SET @datum = GETDATE();
SELECT TOP ( 100 ) PERCENT
dbo.Pruefschritt.PruefschrittNr ,
dbo.Pruefplan.Bezeichnung ,
dbo.Pruefschritt.Statusnr ,
dbo.Pruefschritt.VerantwortlichNr ,
dbo.mitarbeiter.name + ' ' + dbo.mitarbeiter.vorname AS Verantwortlich ,
dbo.Pruefschritt.Aktueller_Verantwortlicher ,
mitarbeiter_1.NAME + ' ' + mitarbeiter_1.vorname AS Aktuell_Verantwortlich ,
dbo.Pruefschritt.Termin ,
dbo.Check_Sendmail(@datum, dbo.Pruefschritt.VerantwortlichNr,
dbo.Pruefschritt.Termin,
dbo.Pruefschritt.Aktueller_Verantwortlicher) AS SendTyp
INTO #tmp1
FROM dbo.Pruefschritt
INNER JOIN dbo.Pruefplan ON dbo.Pruefschritt.PruefplanNr = dbo.Pruefplan.PruefplanNr
INNER JOIN dbo.mitarbeiter ON dbo.Pruefschritt.VerantwortlichNr = dbo.mitarbeiter.mitarbeiternr
INNER JOIN dbo.mitarbeiter AS mitarbeiter_1 ON dbo.Pruefschritt.Aktueller_Verantwortlicher = mitarbeiter_1.mitarbeiternr
WHERE ( dbo.Pruefschritt.Statusnr = 1 )
AND ( dbo.Pruefschritt.Termin < CONVERT(DATETIME, '2099-12-31 00:00:00', 102) )
OR ( dbo.Pruefschritt.Statusnr = 2 )
OR ( dbo.Pruefschritt.Statusnr = 4 )
ORDER BY dbo.Pruefschritt.Termin;
DELETE FROM #tmp1
WHERE Sendtyp = 0;
-- SELECT *
-- FROM #tmp1;
IF @demo = 1
BEGIN
SELECT sendtyp ,
Bezeichnung ,
Termin ,
CASE sendtyp
WHEN 1
THEN 'Assessment bei ' + Aktuell_Verantwortlich
+ ': Mail an ' + verantwortlich
ELSE 'Assessment bei ' + verantwortlich
+ ': Mail an ' + verantwortlich
END AS Aktion
FROM #tmp1;
END;
ELSE
BEGIN
DECLARE @verantwortlichnr AS INTEGER;
DECLARE @aktuell_verantwortlich VARCHAR(255);
DECLARE @bezeichnung VARCHAR(255);
DECLARE @termin DATE;
DECLARE @sendtyp INT;
DECLARE @receiver VARCHAR(255);
DECLARE @subject VARCHAR(255);
DECLARE @body VARCHAR(255);
DECLARE @crlf VARCHAR(2);
SET @crlf = CHAR(13) + CHAR(10);
DECLARE xc CURSOR
FOR
SELECT sendtyp ,
bezeichnung ,
aktuell_verantwortlich ,
VerantwortlichNr ,
@termin
FROM #tmp1;
OPEN xc;
FETCH NEXT FROM xc INTO @sendtyp, @bezeichnung,
@aktuell_verantwortlich, @verantwortlichnr, @termin;
WHILE @@FETCH_STATUS = 0
BEGIN
SELECT @receiver = email
FROM mitarbeiter
WHERE mitarbeiternr = @aktuell_verantwortlich;
IF @sendtyp = 1
BEGIN
SET @subject = 'Termin Assessment: '
+ @bezeichnung;
SET @body = 'Guten Tag ' + @crlf + @crlf;
SET @body = @body
+ 'Mit diesem E-Mail möchten wir Sie an folgenden Termin erinnern:'
+ @crlf + @crlf;
SET @body = @body + 'Assessment:'
+ @bezeichnung + @crlf;
SET @body = @body + 'Termin:'
+ CONVERT(VARCHAR(10), @termin) + @crlf;
SET @body = @body + 'Verantwortlich: '
+ @aktuell_verantwortlich + @crlf + @crlf;
SET @body = @body + 'Freundliche Grüsse<br>';
SET @body = @body
+ '----------------------------------<br>';
SET @body = @body
+ 'Diese Nachricht wurde automatisch erstellt.';
END;
ELSE
BEGIN
SET @subject = 'Termin Assessment: '
+ @bezeichnung;
SET @body = 'Guten Tag ' + @crlf + @crlf;
SET @body = @body
+ 'Mit diesem E-Mail möchten wir Sie an folgenden Termin erinnern:'
+ @crlf + @crlf;
SET @body = @body + 'Assessment:'
+ @bezeichnung + @crlf;
SET @body = @body + 'Termin:'
+ CONVERT(VARCHAR(10), @termin) + @crlf;
SET @body = @body + 'Verantwortlich: '
+ @aktuell_verantwortlich + @crlf + @crlf;
SET @body = @body + 'Freundliche Grüsse<br>';
SET @body = @body
+ '----------------------------------<br>';
SET @body = @body
+ 'Diese Nachricht wurde automatisch erstellt.';
END;
EXEC dbo.sp_sendmail @receiver, @subject, @body;
FETCH NEXT FROM xc INTO @sendtyp, @bezeichnung,
@aktuell_verantwortlich, @verantwortlichnr,
@termin;
END;
CLOSE xc;
DEALLOCATE xc;
END;
END;
GO

138
.svn/pristine/0a/0a21efe4a739136161d870390127de8a4478ab65.svn-base Normal file
View File

@@ -0,0 +1,138 @@
<?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>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd3d3d3cAAAAAAAAAAAAACIiIiIiHcAAA
AAAAAAAAAI//////iHAAAAAAAAAAAACIiIiP//hwAAAAAAAAAAAAd3d3d3d4cAAAAAAAAAAAAIiIiIj/
+HAAAAAAAAAAAAAAAAiI//hwAAAAAAAGZmZmZmZgd3d4cAAAAAAACOjo6OjoYIiP+HAAAAAAAA6Ojo6O
joYIj/hwAAAAAAAA6Ojo6OjmB3d4cAAAAAAAAI6Ojo6OjmCI+HAAAAAAAAAI6Ojo6OhgiPhwAAAAAAAA
Do4AAACOhgd4cAAAAAAAAADo6Ojo6OYIiHAAAAAAAAAAjoAAAA6IYIhwAAAAAAAAAAjo6Ojo6GCIcAAA
AAAAAAAOjo6Ojo6GCHAAAAAAAAAAAOjo6Ojo5ghwAAAAAAAAAACAjg6Ajg5gAAAAAAAAAAAADwDwDwDw
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD////////////////////////wA///
4AH//8AA//+AAP//gAD//4AA//+AAO/gAADnwAAA48AAAAHAAAAA4AAAAGAAAADwAAAB8AAA4/gAAOf4
AADv/AAA//wAAP/+AAD//gAB//8AA///kk///////////////////////////w==
</value>
</data>
</root>

3527
.svn/pristine/0b/0b135feedfadadce7fda0a9ffe5737b6859e8bdf.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
.svn/pristine/0b/0b9c8a835a20226edb4d1dcffa5f607263467206.svn-base Normal file
View File

Binary file not shown.

208
.svn/pristine/0b/0bd16c9f9a5a5ce30d576ab9aacb3bfc72158c7b.svn-base Normal file
View File

@@ -0,0 +1,208 @@
' //////////////////////////////////////////////////////////////////////////////////////////
' // Description: Base class for Database Interaction.
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
' // Because this class implements IDisposable, derived classes shouldn't do so.
' //////////////////////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Namespace DB
' /// <summary>
' /// Purpose: Error Enums used by this LLBL library.
' /// </summary>
Public Enum LLBLError
AllOk
' // Add more here (check the comma's!)
End Enum
' /// <summary>
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
' /// </summary>
Public Interface ICommonDBAccess
Function Insert() As Boolean
Function Update() As Boolean
Function Delete() As Boolean
Function SelectOne() As DataTable
Function SelectAll() As DataTable
End Interface
' /// <summary>
' /// Purpose: Abstract base class for Database Interaction classes.
' /// </summary>
Public MustInherit Class clsDBInteractionBase
Implements IDisposable
Implements ICommonDBAccess
#Region " Class Member Declarations "
Protected m_scoMainConnection As SqlConnection
Protected m_iRowsAffected As Integer
Protected m_iErrorCode As SqlInt32
Protected m_bMainConnectionIsCreatedLocal As Boolean
Protected m_cpMainConnectionProvider As clsConnectionProvider
Private m_sConnectionString As String
Private m_bIsDisposed As Boolean
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Initialize the class' members.
InitClass()
End Sub
' /// <summary>
' /// Purpose: Initializes class members.
' /// </summary>
Private Sub InitClass()
' // create all the objects and initialize other members.
m_scoMainConnection = new SqlConnection()
m_bMainConnectionIsCreatedLocal = True
m_cpMainConnectionProvider = Nothing
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
m_bIsDisposed = False
End Sub
' /// <summary>
' /// Purpose: Implements the IDispose' method Dispose.
' /// </summary>
Overloads Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
' /// <summary>
' /// Purpose: Implements the Dispose functionality.
' /// </summary>
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
' // Check to see if Dispose has already been called.
If Not m_bIsDisposed Then
If bIsDisposing Then
' // Dispose managed resources.
If m_bMainConnectionIsCreatedLocal Then
' // Object is created in this class, so destroy it here.
m_scoMainConnection.Close()
m_scoMainConnection.Dispose()
m_bMainConnectionIsCreatedLocal = True
End If
m_cpMainConnectionProvider = Nothing
m_scoMainConnection = Nothing
End If
End If
m_bIsDisposed = True
End Sub
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
' /// </summary>
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
' /// </summary>
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.Update() method.
' /// </summary>
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
' /// </summary>
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
' /// </summary>
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
#Region " Class Property Declarations "
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
Set(ByVal Value As clsConnectionProvider)
If Value Is Nothing Then
' // Invalid value
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
End If
' // A connection provider object is passed to this class.
' // Retrieve the SqlConnection object, if present and create a
' // reference to it. If there is already a MainConnection object
' // referenced by the membervar, destroy that one or simply
' // remove the reference, based on the flag.
If Not (m_scoMainConnection Is Nothing) Then
' // First get rid of current connection object. Caller is responsible
If m_bMainConnectionIsCreatedLocal Then
' // Is local created object, close it and dispose it.
m_scoMainConnection.Close()
m_scoMainConnection.Dispose()
End If
' // Remove reference.
m_scoMainConnection = Nothing
End If
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
m_bMainConnectionIsCreatedLocal = False
End Set
End Property
Public ReadOnly Property iErrorCode() As SqlInt32
Get
Return m_iErrorCode
End Get
End Property
Public Property sConnectionString() As String
Get
Return m_sConnectionString
End Get
Set (ByVal Value As String)
m_sConnectionString = Value
m_scoMainConnection.ConnectionString = m_sConnectionString
End Set
End Property
Public Readonly Property iRowsAffected() As Integer
Get
Return m_iRowsAffected
End Get
End Property
#End Region
End Class
End Namespace

61
.svn/pristine/0c/0c3feb2a0019fa5b27cc1062e6ed30a8730e0d0f.svn-base Normal file
View File

@@ -0,0 +1,61 @@
Imports System.IO
Imports System.Reflection
Module Globals
''' <summary>
''' Applikationsversion
''' </summary>
''' <remarks></remarks>
Public Version As String = "1.1"
Public Versionsdatum As String = "23. Juli 2017"
''' <summary>
''' Applikationsdaten
''' </summary>
''' <remarks></remarks>
Public Applikationsdaten As DataTable
Public AppldataRow As Integer
'Public TTContextMenuStrip As New ContextMenuStrip
''' <summary>
''' Angemelderter Mitarbeiter
''' </summary>
''' <remarks></remarks>
Public clsmitarbeiter As New DB.clsMitarbeiter
''' <summary>
''' Applikationsparameter
''' </summary>
''' <remarks></remarks>
Public clsapplication As New DB.clsApplication
''' <summary>
''' DB-Verbindungsklasse
''' </summary>
''' <remarks></remarks>
Public sConnectionString As String
Public conn As New DB.clsConnectionProvider
Public ConnectionFileName As String = ""
Public dbconn As New DB.DB_Connection
Public SecurityDaten As New DataSet
Public Spaltendaten As New DataTable
Public ToolTipDaten As New DataSet
Public Set_ToolTips As Boolean = False
Public treedata_for_search As New DataTable
Public GueltigImages As New ImageList
Public StatusImages As New ImageList
''' <summary>
''' Aktueller Applikationspfad
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function ApplicationPath() As String
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
End Function
Public WithEvents MyEventHanlder As New MyGenericEventHandler
End Module

BIN
.svn/pristine/0d/0d3dc5ad1b8b1c0f0c76f26cc7db574a97705ade.svn-base Normal file
View File

Binary file not shown.

BIN
.svn/pristine/0d/0d66ac0695f927578d9c3864caf4e8047d496bc4.svn-base Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

762
.svn/pristine/0d/0dc698bcdae3d40e5c3fef2acf054252bca0c0d9.svn-base Normal file
View File

@@ -0,0 +1,762 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports DevComponents
Imports DropDownControls
Public Class clspruefplan
Inherits DB.clsPruefplan
#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 VerantwortungPlan As New DataTable
Public Verantwortung As New DataTable
Dim stammdaten As New DB.clsStammdaten
Dim SpaltenTitel As New Utils.Tabellenspalte
Dim Definition_Pruefplan As New DataTable
Dim clsDefinition_Pruefplan As New DB.clsDefinition_Pruefplan
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")
VerantwortungPlan = stammdaten.Get_Stammdaten("VerantwortungIsi", "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_Pruefplan.Dispose()
Me.VerantwortungPlan.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.iPruefplanNr = 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("Pruefplan")
db.Dispose()
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefplanNr = 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("Pruefplan")
db.Dispose()
Me.iPruefplanNr = 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.iPruefplanNr.Value
End Function
Public Function Get_Pruefplan(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_pruefplan"
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, "Pruefplan", 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_pruefplan"
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, "Pruefplan", 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_Pruefplan(ByVal Key As Integer, ByRef cb As CheckedListBox)
Me.Definition_Pruefplan.Rows.Clear()
Try
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_definition_pruefplan"
sqlcmd.Parameters.Add(New SqlParameter("@pruefplannr", 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_Pruefplan)
For Each r As DataRow In Definition_Pruefplan.Rows
cb.Items.Add(r.Item("Bezeichnung"), True)
Next
'cb.DataSource = Definition_Pruefplan
'cb.ValueMember = "Definition_PruefplanNr"
'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 Pruefplannr As Integer, DefinitionNr As Integer, nodetext As String, ByRef chkcb As CheckedListBox)
For Each r As DataRow In Me.Definition_Pruefplan.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_Pruefplan.NewRow
dr.Item(1) = DefinitionNr
dr.Item(2) = Pruefplannr
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_Pruefplan.Rows.Add(dr)
chkcb.Items.Add(nodetext + " | " + dr.Item(3).ToString, True)
End Function
Public Function Get_Definition_Pruefplan(ByVal Key As Integer, ByRef tree As AdvTree.AdvTree)
Me.Definition_Pruefplan.Rows.Clear()
Try
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_definition_pruefplan"
sqlcmd.Parameters.Add(New SqlParameter("@pruefplannr", 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_Pruefplan)
Set_Zuordnungnodes(Definition_Pruefplan, 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 Pruefplannr As Integer, DefinitionNr As Integer, nodetext As String, ByRef tree As AdvTree.AdvTree)
For Each r As DataRow In Me.Definition_Pruefplan.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_Pruefplan.NewRow
dr.Item(0) = Format(Now, "ddhhmmss")
dr.Item(1) = DefinitionNr
dr.Item(2) = Pruefplannr
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_Pruefplan.Rows.Add(dr)
Set_Zuordnungnodes(Definition_Pruefplan, 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_Pruefplan.Rows
If r.Item(0) = ID Then
r(4) = Aktiv
r(3) = gueltig
End If
Next
End Sub
Public Function Save_Definition_Pruefplan(ByRef tree As AdvTree.AdvTree)
clsDefinition_Pruefplan.sConnectionString = Globals.sConnectionString
For Each n As AdvTree.Node In tree.Nodes
For Each r As DataRow In Definition_Pruefplan.Rows
If r(0) = n.Tag Then
If r(0) > 100000 Then
clsDefinition_Pruefplan.iDefinitionNr = New SqlInt32(CType(r(1), Int32))
clsDefinition_Pruefplan.iPruefplanNr = New SqlInt32(CType(r(2), Int32))
clsDefinition_Pruefplan.daGueltig_Bis = New SqlDateTime(CType(r(3), DateTime))
clsDefinition_Pruefplan.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Pruefplan.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Pruefplan.bAktiv = New SqlBoolean(CType(True, Boolean))
clsDefinition_Pruefplan.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
conn.OpenConnection()
clsDefinition_Pruefplan.Insert()
conn.CloseConnection(True)
Else
clsDefinition_Pruefplan.iDefinition_PruefplanNr = New SqlInt32(CType(r(0), Int32))
clsDefinition_Pruefplan.cpMainConnectionProvider = Globals.conn
clsDefinition_Pruefplan.SelectOne()
Dim tn1 As New AdvTree.Node
tn1 = n.Nodes(0)
If tn1.Tag <> clsDefinition_Pruefplan.bAktiv.Value Or tn1.Text <> clsDefinition_Pruefplan.daGueltig_Bis.Value Then
clsDefinition_Pruefplan.iDefinition_PruefplanNr = New SqlInt32(CType(r(0), Int32))
clsDefinition_Pruefplan.cpMainConnectionProvider = Globals.conn
clsDefinition_Pruefplan.SelectOne()
clsDefinition_Pruefplan.iDefinitionNr = New SqlInt32(CType(r(1), Int32))
clsDefinition_Pruefplan.iPruefplanNr = New SqlInt32(CType(r(2), Int32))
clsDefinition_Pruefplan.daGueltig_Bis = New SqlDateTime(CType(r(3), DateTime))
clsDefinition_Pruefplan.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Pruefplan.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Pruefplan.bAktiv = New SqlBoolean(CType(tn1.Tag, Boolean))
clsDefinition_Pruefplan.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
conn.OpenConnection()
clsDefinition_Pruefplan.Update()
conn.CloseConnection(True)
End If
End If
End If
Next
Next
End Function
End Class
Public Class clsPlanTree
#Region "Deklarationen"
Dim treedata As New DataSet
Dim TreeaufbauSuche As Boolean = False
Dim TreeaufbauNr As Integer = 0
Dim FoundNode As Integer = 0
Dim Searchstring As String = ""
Public Treesearch As New AdvTree.AdvTree
#End Region
#Region "Tree"
Public Sub Load_Treeview(ByRef tree As DevComponents.AdvTree.AdvTree)
tree.Nodes.Clear()
TreeaufbauNr = -1
Load_Treedata("")
If Not (treedata Is Nothing) Then
Dim oView As DataView = treedata.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation",
oDS.Tables(0).Columns("id"),
oDS.Tables(0).Columns("Parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView(oDS, tree)
oDS.Dispose()
oDS = Nothing
tree.ExpandAll()
End If
End Sub
Public Function Load_Treedata(ByVal datatype As String) As DataTable
treedata.Tables.Clear()
Dim selectcommand As New SqlCommand
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
selectcommand.CommandText = "sp_get_PruefplanStruktur"
selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
selectcommand.Parameters(0).Value = datatype
selectcommand.CommandType = CommandType.StoredProcedure
selectcommand.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = selectcommand
da.Fill(treedata, "Tree")
If treedata_for_search.Rows.Count < 1 Then
For Each c As DataColumn In treedata.Tables(0).Columns
If c.ColumnName = "ErweiterteSuche" Then
Dim dc As New DataColumn
dc.ColumnName = "ErweiterteSuche"
dc.DataType = System.Type.GetType("System.String")
dc.DefaultValue = " "
Try
Globals.treedata_for_search.Columns.Add(dc)
Catch
End Try
Else
Try
Globals.treedata_for_search.Columns.Add(c.ColumnName)
Catch
End Try
End If
Next
End If
For Each row As DataRow In treedata.Tables(0).Rows
Globals.treedata_for_search.ImportRow(row)
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
selectcommand.Dispose()
End Try
End Function
Protected Function GetAllNodes(ByVal treestruktur As DevComponents.AdvTree.AdvTree) As List(Of TreeNode)
Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
' start recursion for each root node of the treeview
For i As Integer = 0 To treestruktur.Nodes.Count - 1
GetAllNodes(treestruktur.Nodes(i), allNodes)
Next
Return allNodes
End Function
Protected Sub GetAllNodes(ByVal subRoot As DevComponents.AdvTree.Node, ByVal allNodes As List(Of TreeNode))
' check for null (this can be removed since within th
If (subRoot Is Nothing) Then
Exit Sub
End If
' add subroot
Dim r As DataRow
r = treedata_for_search.NewRow
r.Item(0) = subRoot.Tag
Try
r.Item(1) = subRoot.Parent.Tag
Catch
r.Item(1) = 0
End Try
r.Item(2) = subRoot.Text
r.Item(3) = subRoot.ImageIndex
treedata_for_search.Rows.Add(r)
'allNodes.Add(subRoot)
' add all it's children
For i As Integer = 0 To subRoot.Nodes.Count - 1
GetAllNodes(subRoot.Nodes(i), allNodes)
Next
End Sub
''' <summary>
''' Tree aufbauen
''' </summary>
''' <param name="oDS"></param>
''' <param name="oTreeview"></param>
''' <remarks></remarks>
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As DevComponents.AdvTree.AdvTree)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
'If oDataRow.IsNull("Parentid") Then
Dim oNode As New DevComponents.AdvTree.Node
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
Try
'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
Catch
End Try
oNode.Tag = oDataRow("id").ToString
oNode.ImageIndex = oDataRow("ImageIndex")
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New DevComponents.AdvTree.Node
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
oChildNode.Tag = oChildRow("id").ToString()
oChildNode.ImageIndex = oChildRow("ImageIndex")
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree(oChildRow, oChildNode)
Next oChildRow
End Sub
Public Function FindNode(ByVal _nodeCollection As AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As AdvTree.Node
Dim tmpNode As AdvTree.Node
For Each _child As AdvTree.Node In _nodeCollection
If _child.Tag = SearchVal Then
Return _child
End If
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
' Return _child
' End If
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
If Not tmpNode Is Nothing Then
Return tmpNode
End If
Next
Return Nothing
End Function
Public Function Init_Search()
FoundNode = 0
Searchstring = ""
Me.Treesearch.Nodes.Clear()
End Function
Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
'Return tree.FindNodeByCellText(SearchString)
Me.Treesearch.Nodes.Clear()
For Each dr As DataRow In treedata_for_search.Rows
'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
Dim tn As New AdvTree.Node
tn.Text = dr.Item("Bezeichnung")
tn.Tag = dr.Item("id")
Treesearch.Nodes.Add(tn)
End If
Next
Return FindFirst(tree)
End Function
Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
Try
If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch
End Try
End Function
Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
Try
Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
If Treesearch.SelectedNode Is Nothing Then
Return FindFirst(tree)
End If
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch ex As Exception
End Try
End Function
Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
Try
Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
If Treesearch.SelectedNode Is Nothing Then
Return FindLastNode(tree)
End If
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch ex As Exception
End Try
End Function
Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
Try
Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch ex As Exception
End Try
End Function
#End Region
#Region "ComboboxFilter"
Public Sub Refresh_Filter(ByRef cbx As ToolStripComboBox)
Dim s As String
s = cbx.SelectedText.ToString
cbx.Items.Clear()
cbx.Items.Add("-- Alle --")
For Each r As DataRow In treedata.Tables(0).Rows
Try
If r("Parentid") = 0 Then
cbx.Items.Add(r("bezeichnung"))
End If
Catch
End Try
Next
If s <> "" Then cbx.Text = s
End Sub
#End Region
End Class

174
.svn/pristine/0e/0e344e6eea3f9e24e1be2b41097de993439e048f.svn-base Normal file
View File

@@ -0,0 +1,174 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDomainEditor
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(frmDomainEditor))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStripAuswertung = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ReportdateiDBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ReportdateiFilesystemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStripAuswertung.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.AllowMerge = False
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(556, 24)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
Me.BeendenToolStripMenuItem.Text = "&Beenden"
'
'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.Size = New System.Drawing.Size(556, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "ToolStripButton1"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'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 = "ToolStripButton1"
Me.TSBtnSave.ToolTipText = "Daten speichern"
'
'C1Daten
'
Me.C1Daten.AllowAddNew = True
Me.C1Daten.AlternatingRows = True
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
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, 49)
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(556, 270)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 4
Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
'
'ContextMenuStripAuswertung
'
Me.ContextMenuStripAuswertung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ReportdateiDBToolStripMenuItem, Me.ReportdateiFilesystemToolStripMenuItem})
Me.ContextMenuStripAuswertung.Name = "ContextMenuStripAuswertung"
Me.ContextMenuStripAuswertung.Size = New System.Drawing.Size(210, 48)
'
'ReportdateiDBToolStripMenuItem
'
Me.ReportdateiDBToolStripMenuItem.Name = "ReportdateiDBToolStripMenuItem"
Me.ReportdateiDBToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.ReportdateiDBToolStripMenuItem.Text = "Reportdatei -> DB"
'
'ReportdateiFilesystemToolStripMenuItem
'
Me.ReportdateiFilesystemToolStripMenuItem.Name = "ReportdateiFilesystemToolStripMenuItem"
Me.ReportdateiFilesystemToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.ReportdateiFilesystemToolStripMenuItem.Text = "Reportdatei -> Filesystem"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'frmDomainEditor
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(556, 319)
Me.Controls.Add(Me.C1Daten)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "frmDomainEditor"
Me.Text = "frmDomainEditor"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStripAuswertung.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnSave As System.Windows.Forms.ToolStripButton
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenuStripAuswertung As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ReportdateiDBToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ReportdateiFilesystemToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
End Class

941
.svn/pristine/0f/0f01fcef5f9ab0fae0412492f9726f673179baee.svn-base Normal file
View File

@@ -0,0 +1,941 @@
<?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>229, 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
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TSBtnExcelExport.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABBaSURBVGhDrVp7dFXVmb+v3HvzfpBEwM44Ol1dqx0rUtHR
iMgSREjAtGUcsXnfPIlRRGg7C2ZkoJYqOkyXtbNmrU4fqJCAY2sVCA+XTrvsGhYIOoWEynswBAhJ7vu8
7r35ze/bNwkJJkwk/eO3zjn37LPP9/v2t7/vt/e5tlc/qMXK1mK0vFWK5dsfRcvWR/HU1iVY3rYYTdsX
4unW+Vixbd6E8PQ1aGkbH0+2fh5X78/HM1sXYuXrJVixtZj3FqG5rRhNYlPbo2gUvPUwXj3kg02Mz3vc
hqxqO9KrbciuIiptyOC5x2dHis89cVS7huES1LrHhy8FzhrXVfB65P2UOjvcdTYebXDVj4b8lkUbW7bN
ha2prQQZNNpOY53NDjgabXA08JpHeyOv6/iiCULajoS9fhJosCs7BE4aLXAMQs6zfTY8uX2BEFiivC0N
bS122Jbz2OCETYyodykvTBQptVfhEvBF40EZxWdGYnQbO+Gkt2kDR8dTy5Gtc8AlhIg02rx8RzFsT7eW
quFwNNFwGu/0OZFTm4OCykLkVxUiqyYPmb4bQ8YkkF5bgMy6qciqnYaMmkKk+3LgrPXQuXbYWxzwcgQa
31wM24ptpSrm1QjUO5BZnYkf7luPnUd/jd2ftGPPH393Q2gndh+9cbQffQ97ju0l9mDnsXexaf8LKCjP
Q6rMFZJIrbGhSQg0b1+iJq/EvIRNYdVN2NX5G4SsK9CiQRiGcUPQJwlD1xV0U0Mg5sfeznbc8sTNSK1g
SDFS0kmgeYcQ2LEInhrGvkxYxlxeZQH2dexTxlumDi0WHYQ2fB6NRRCJhxGORxEiwrwXIaJWEpql86jz
vjaMCNtFh/tKnoelHwVeDz4r/ai+TBOaEYdmJtDLZ9/t3I/c8qlwNno5cW3wco6pObCi7WGk1CSziKSn
TMb83qO/J3tDGaqzM8MyYFrmIOgVMUIZriMYMxG0LIRNCxFCMwg9xmOM7XjkMwKd7QwB+9JjhBhrhWlo
lB5nnwbb6PKs9GEOk7CMBPuPYHfnbuRX5is7bY2c4LS16U0SeEYRcKsbkklk8g0RCCfCCA1EECaiiaTR
Bo0XmINeC5NQiMcQXxjkb0MIqTYREg7T2EiS8ADvEf4BhgWPYd5TJNSRI8FjOCYIIcR3R00DMRIIDRIo
+KIEQokICdA4eRmhMRRMGhujZ+L0tMU2usGQIcSTEhIhIhiPIBAPkWiYHg8xZJIEIgn2RQQGSDo+9Cwd
YZJALMjnAzwKeM4QnTSBaJwTyRpgHDIUOPy6hBKHN67FMRAZQDwqJBhWWvJ3mXxRTryoPMvzCEMnRCO0
mMVnLdVn3IrBiophMZhRhhmfjxocZSOoiOg8N3UNOp01eQI0Jh4d4Hmcw03v0StBDq3Ep8bOxeNBDrea
oMwWUU1nzMaRMAYQ0wYQNOMckTjnUkI5Ic45YUUiGNCjJMH5RTIROik0wLAhgoYfFknHIhZHmu+fLAGd
Wcikl8P0ysngSfwx8D/4KPgRcRiHg5/gUPAIz3kMHMGnvN9n9atYjmo0UCajRQIMtzDDpd/yozvShe7o
OZyPnsD/aqdxRv8Mp/RzOKGf4vEkzkZOw2/2KeM1S5wy2RGQCWYE0BPrxtJ1pSh8LA/ZT2Qis4z4Tja8
ZRnwlmcia1kebiv/a6x5Yy26jPOM/z6GQIihEIbFeXRF78aBcx9i8dpizFwxE7d/9+u4ffUdmLnqHty5
+i7M+O4M3LV6Ju5tvht7Onahz+xFhHNv0gQ0yQZGH7oTXZjZNAsFNdPxtXUzqEMyKQAzqVFSKQKdLPF8
tsqLKWX5eHH/Szgf70Y/CWiM6b5YDw72HMB93/9bpJalwlPvgb2WmoaywMt+XHx3SpMLnsoUFHwnDy/8
ehP8NDj4xUYgWQfcLA6jRoBZRFLblUQfStc9hr+o+TJ+dnYLHvrXBciuyIW3Ko2q00nl6ICNz7p9HtxU
NR0v738VZ81LuBzrxSc9RzH/nxYgrSKDlZ7tlGQhalk8Sd7WRPDaQxu+1vJVHLx8BAHOvQiTxuQJ0At6
3EIvY/tg10E8vGoeZq28Cz8/8wss+OkilvV0eOs5CiKwWB2d9GxqZRoKy6ZjffuPcKDnEB783kPIqcin
galJ40WyCAGqTZvId1Z/b3Uqbqu/FW93vs1w7WVRZAZjkZw0AckQUUmhPAaMK+i8fBjfXFOMou8X4d/+
9DM88gpJVHqV5BWjHE3suJHhUO1Bri8fX332b5BVlQtnlYQJlaQYrzQXjRcylO8pdamYVvElvPbha7gS
v8KQDal0HZloGl3BJaMQcIjevpaApEsrAZMkDMazRu8cv/IxStcswT2r7sfPO3+JRT9eiHTGv5trB7uQ
YOd2GuhqZJ9cadnZr/I2ySVHQO47qGnkfSRaXYCXdm5GX9zPd1A6iMNY3SOs/CMJ7OrchfyKKRxl9scR
l/VG4/ZFSQKy/JMXfZ6ACC8az3RosvOoEYafGaazrwOPP/cE5q6ai9dPbMEjm+chrdIDT4ObspyGisHq
SIOHwkbQxDlAye6geHRXuRhaeVi943s4b3UpWRKX+sE6Irrp+gS44FEEFv4/BCgJJHykkkZZkIIkEeSo
9Jl+nOk/Dd/zVZi78gG0nn4D8zY9BG8FMwuzjJNx7WxIhtVV0PM03smlayqXjDnlGah/pZ75/xT8CT+L
JmsHC59JROm0cGL0HLghAmGmQvFEOGFQhMXo/TjnAn+nhokwVs8GTqHupRrMYTi9cfp1PLx5PlLL0+Dm
HFCxyjhNIhk2Dk5yLxfs3nIXijfOx2k+H2CBC5lBCj9RujLaCVW55Z0TInC9SSxiLjhCzIUlpFhVRReF
ZbERjqErfBGV/16FO9fdiS0ciUc2FGMKQ8NZzUU5PZ0ic0HCiUTcjWlIZf2Y9ew38EnvIZXlNFZ7XXQR
DTW1BAzqI4vXsv4YcxKz5kw4C4mkFfkrxkepInW+0BAJrVFwJTjU1C0d/k8x7+V59LobM9fOwm8+ewez
nytCej2zE2GvllTJEWDKdDekwVORhqbWRhwzP8Y58wzOECfN0zhlnMV5swuXjR4E9QA11BdSo2MTEEk7
ZLxBj8RZEyIRVlgSCeghnPCfRskPSuDm85I+Myqzce8/3I+2rlbMev4b8LDQSY73sG+HhFGDkyPiQTpJ
3FJ3M/6q7i8xvXEaCp8swE3NhbjVdys2796M/kS/Eo5/FgKykBGvW8zNMYZPhOm0n4XtT70nUfr8N5FB
Y1KkmjIuU6vTkFdWgPvWFeG1C79C0ctz4V7mQdpQmmU7OzNRCuM41edWxFV4NXNNvtxOeZKO9W9vQG+s
H1GuGSZNIMJhlEVMVBOdzgUJFyd98V4c9R/F0g2PUdClc3Jykg6mSRfj08NJnFWejbs33I0tMhLP3YM8
Cj5vhWxWMY1KKqXRMqFVQZPtHCHAMCuoKsDLv93MSsx3qUQh8pwTmiO++/iNEGAaDVFKWwydKL3QT03U
EepAycbFyC7PUZ5UKVIMIRxMnVIQPTVe1oU0zFpfhDfOb8WcdfchtyKLWolzgil2VI0gJEN5KlNxx/IZ
ON53nAWNqVuK2eQJSCGT9QC9wZE4EzmHv9v4GDKqs5J5nt5zUJSJonQwJOwi7JjrpRK7+VsmXzj7n+eg
9cwWzN3wACt2Jt9D7cTslKzOJEAiomRva/yy0kIXrQvMcKwLsk6eGIGklJAbnytksmPAKizF60TwDJa9
WIbccqZIMb6FL2fYpLCqeqr4bDX7YFgM7V26fPSqLx3ZVdl48AdF+NWp/0DRD2fT2HQ42F5EnDwvZL3U
U7evugP7L3yAS4lLikCYcy3KkRACQ3NA7UqoOjBIYMeglJCXj6WFZBg1Vt9L8X7U/LQB6eX0PL0snlPq
k8OfQk8OQfYznSNgf5IgwTQa+OALs/FqxyuY/tQ0vtylnCDrAhlBJ+GgDV9ZNQPvfLofAZOZTgnJq5P4
upV4PAKy+SQPd9ErX6+7M7kGYBxLWvTINni9aB/PMOzUQsPgvRRfCtcMFGxMr/llubjtqVuQ3ZBBIccw
k3kgISSQDeVmOqAxC1+q+wreobf7BxhGkyUgezRSUC4melC5yYe5ax5C0drZKPrHIszm8f619/P8Olj7
AOasmcM1wRw8sFqeuRdT6wvgrROSko1kziRDUYi4SDy9OhdL/+Xv0TPQ+wUISD5mCryWgOzKaZQMAcbj
Ja4HzpsXWT27eezGBeMSevSL6NO6R+DCMHp53aVfZjtBNz7jWrkzfAzF6xdiyrJcZC7LRtbjechamo70
b7MuPO6GZ6kXN5VNxYyq23E5cVERGDUHuDAangNCQOZAMguNvSaWdDagDSiZKyIrQrElW4hRSl5Do+zV
ZV/HGhNqi1BPKMh1lHUkGPMzTXbi4JWPcKj3CA5f/hhHLhzAR12/x393vY8/dP8O/3X2PRw++wdW4n61
dWPx+Qmk0XG2VfhggkbGabBlUmjRGzo7NCi6rCgJ8TpAmT0WgsxeYrwINFOjytTEIdRRZoQKNIwA5UlQ
9BVHN8YCaSSC/L1fqVP5TZMiOnECY9cB2ZUwKCd0kRSyt8mQkg0uQXIvM6IK3FiQe0E+J3MoTAOjhDgk
FA2qDbMAc3wgzhGkkXFKdFPIMWn4WThj/D2gyU5dkoAKoePtY2/uPrutmNlCqijTGXNyBteye469B1Pk
MkPIiAU5FwQkEpPd6iRk39OiUXGmvCHEuEYYgsVr2RvSCF0cIV6mZw2OgMlwUnuidIhIFFPnb6w5Jhfy
ptozpQN4DMtqkAucAN+18/g+5FVOU9lNpId8hlIEVm1drLbV5eOe5PiM2qnY27GPzKUGyPBR+1PI/TkQ
iXOpOARZU4zRZghBWQXKepxrgxDJt3fu5zrjZhbAawg8s22QgEpNLmT5hMDeZLzGBjiZBBxGIiiQ+B4H
Q+2G24+6P/j8ID7XVjCifYSI0fsDumwq+7G/Yw+mlk2jzpLaQ1uHQuiptmJ1IeXfXeNiHi7Azo53OWz9
VJ6ysGZMc0iHIdfjYWS7sdoanEujIL+NwIi2QZk7hMaJ7Y9f4Bz4LQrV/pJLeV+crgg0t5WoT5cO/uD2
OZFel4cX923kPNhNIvvw/rF2fMDzieB9hV3DGKvNEK5tK9dX77ejne9u73wP++j5XRR5P/pgI7Lqcuho
52C02NAghUz+UjBEQL7DOuo8kK+B8kEtp2IacqrzJ4zsqimjMFabkRjVvnp0++yqaSrmp7KwieczfNRh
sjkm0bLcwYJGAm2KQKn6bCkLExFn8nXey7SaWsFy3+RlypK0xeo3EYhKHYmx2ozE9drKHhMlh8hyCW3Z
gxXp7WihEGS2VCMgBJpIIEVuDBJQH7uZkdzMtbL8c1HfyxfzCUF23EZgzDbDuKbtqPbUSUrgJW0R++To
4LJTlGsqyXjkQ3crCdT/ZzEyyqnJy2xIq0nekM/4GTXJb7HyN4QbRSaRXpXEWPevhzS+WyDfsOVajmKX
HDPZX94yJ1ZuLYFt04E6NLYtwPK3StHw1rfge7MUtTseRf2OEjTsKFbH8bGYWDIuGt5cjDr2IZDzsfsY
D9fvu2lbCX7yoQ//B4xxLcfzFcCVAAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnPrint.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIESURBVDhPrZI/bxNBEMXnI/BR+AiUlNdBeVVEeWXKaxLR
RDoJRUKI4gQUqdBFKYgQSCslkYxsiU0IxMHG3iSYc/wnPkxD95iZ80JsE0RxI/3s9d695zezSz+mE1QJ
Tb9PUCU0La5QJVRMRriJ45MuMmP/yaKGiqsh/sbxpy6Ojs6wVD8B1y+Q7VoEYYx2uzOno8l4gEXyb7kK
pIqigKlZRfayzMA2HcIoxr2V9SUtjUd9LPKmfqop5oqTsTes+5Nu6+XrJS2Nh7y4Rsc5pJxCSkzn0vHM
rOV0D2I1TB5nSNJsTk+jQQ7PXq2hZqbm1FBS+WSOPxynS7eMmsVJqu/K+roHDS97EPbr77Hx7BW/ZFUk
30lqWJghilOeWaLiIIx0fpIsepjqnvcQaND/CkHEhSS6oeSZJJVDklHEbBauln/iPQS6zM8hxDwPvVs8
K2lFEsieCKM40YR+dsH9qNzj33d47T0EynsOgrS2dLKzknTy7BZIoZRmI4hw+26oeg/1LjoQ1jZ39H4t
lh4IH4ZplobZzDCQdEFp6D0EujhrQdjefYvNJzucZJZIjHht2SizfLqmUCOPtCpmK6vrqvfQefczhIOD
PaxtvIDheybz+x/EsNGoq95D7ssJPPu1d9pKeT3KKyJJFG7Pt+h59PT5b62HOq2PqBJqn35AlVCreYjq
OMQvjpZMWrGxmEkAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAD5CSURBVHhe7X0FQBXL9z9goqJidwcgiAq2Pp/dYnd397MV
u7u7u1BUTARFEFvRZ7eomKCE+eb8z2d293K53iuo4Hv/35fxfd7u7F12Z+fzOefMbMyYxaf4FJ/iU3yK
T/EpPsWn+BSf4lN8ik+xl3Ix6jAGMuYyNsQjRkBdoc5Qd6jD/2+SOSMHYxjDn/GW8ZUh4vFT+MJAHaIu
hzJQt6jj/1xCoewZqxgRDFKBi9DW4/O/nkfdLmbYMf4zQrBijGe8YcT2BcfnjedR16hz1P2/mmwZcE//
ML4tsLmZME9sTgnTJyZLxxRkVdFapKpoTakrppZIUym1SFspFQHpK6eiDJVTioyVU1KmKikpcxUrylLF
SmStakXZqqaQyFE1hchZLTkBuasnpzzVkwkG5WPkr5GMCtSwFAVrWJJNTUuyZdjVTCoK1UpK9gyHWkmo
cO0kwrF2EipSOzEVrSMhiilLuY1/E7wPOTDwN/y3wo6XtjWTymPysQWfg89lKc+ZVz0/ypJLKZfgMlJ2
tbxcdsHXIK8F18TXJvga5bWmU65bpOGltVofXDciJddPsqJWss647gTXYWR9Rq1f1Lkfw4bxr6Q/Gc8Y
KFQUmFtaiCRFUwrrPrlEljmFRK5NRUTezUVE/i2OwnZrYVFom4MovM1eFN1eSDjtsBMldtqK0rtsRdnd
NuKP3QVFRbcCovKe/KLa3nyihns+UXtfXlFvfx5Rf39u0ehALtHUI6docTCHaHUou2h7OLvocCSb6HQ0
q+h6NIvocSyz6OWZSfT1yiQGeGcUg05kEENOpBfDfdKJkT5pxZhTaYSrL8MPsBZjT1vLpdzGv406lVaM
4H2HnkwvBvPfDuRj9PPKKHrzMXvysbsdyyI687k68jnbHc4mWnMZWh7KIZodzCkae+QSDQ7kFi5c1jr7
8oia7nlFdb6GKnvzy2uq4FZQlOPrK73LRpTka3beaSfroPB2e2HPdYK6KbClsMi32VHk5jrLynWXhusQ
dYk6NVbXDHAALn5rqsJ4zUABIhVqYSaSlEtD1lNsKeOWYpR1YzGRfWdRys3Iu6sISQG4FaZCexyo8F57
kgJwt6MS++yo9H5bkgLwKEgVPQpQ5UP5SQrgcD6qfSQv1Tuah+pz5TbyzEVNPXNSi+M5SArAOzt1OJGN
Op3MSlIAPpmp16nM1M8vE0kB+GegIWfS0/Cz6UgK4FxaGnc+LU28kIZA/JSL1jSJ18cjDwHw7yN436H8
N1IApzPKY/X2zUQ9PVkAPlmoM5+rI59TCoDP39IrBzU7npOkAI7lJhcuax0usxQAl78KX0vFgwVICuCA
DV+rDZXk65UCcC8k68Ke60QKYLcj5WPk3lmEcmwsKrLtKEaZthajNFynXLeC6ziyviPrH1yAk9+SijCe
MvQLQBbsslL8lV+k3eRM6bc5U6btTvECiCUBZOa6zMB1mm6Ns7D6K7+sa8P6ZzxhODLiNFkzAhhRCpDA
xoqs5juS9driIu3W4kYFgIsqvIPd/r5C5LyfST/ApO9mt+9hQ38cZNIPMenuBUTVI/mpxhEm/Wheqnsg
j3DxzE0Nj+emxl65qNmhnKKldw5qfSI7tTvJxB/LJjr7ZKVup7JQD98s1Nsrs+h7OhP1Z9IGnWHifTKI
YefS08hz6Wg0kw63P/5iGpp0yZqmMMafSS2mX0lNUy9b02TOu55OI8bx72N435Hn09HwU+nFkLMsBD7W
AH8Wgncm0ZvF0NM3M3Xnc3bx5FDgk43ac1nacJlaHs4hmnvnpCZc1kZc5voeuUW9Y3mo9rG8VONoPqq2
L7+ofJjFwNf6x6GCVM7NRpT2sKWSB2ypONdJsZ2FhKO7PeU3JYB1ziLNluJkNc9R1rlW/3oAN+AoztIs
Bk6qg4WNlUg+t5hIuaaEkAJYV1ykX+8sMm9wEn/stxE9/LOKKbetxbpnycT2l0nE9ldJxA4dEoudKna9
VrBbhdvrRDrseaNgrw4JhbuKfW8V7FdxQIcEwgMITiAOqjikg4U4rCEkcl37XdsffyuPwdCOq51Hnhfn
1ysLyoXyaeXdo3cN2nVp1wlo1456QH2gblBHqKvJt6xl3ZXnOszChpRhvZOQAuA6TsV1jTpH3RvywQBH
cZKKM0IZOsWZO1rtSjwwX0DSFc4BVpuKB6RkZNrgdMVur11Aw9M5A6Y9SBOwNyRxgFeE+RX/r2YBwOmv
5gE+n82vYJvPF15XcZzzwInPFgGAZ4RFwOFwiyuHwpX1Y4xDjP1hyjasAx5hFgH73llcwdKDt7vz0j3E
ImB3SOIr7nxu9zAgCeeTXNkVnOTKzpAkARq2vk1K24KT0o4QS4ltby1p02tL2sLYGmxJmzm/+Y0lrX2V
gtYwlgamEKtfWtEqxkrGwsdWYsULK1rOWBZkRfMepRRLglLSkucpaTFj9oNUYuGzVLTwaSpawJhxP5WY
9zQ1zQtMTXMZU+9ai9lPrGkWY+Zja5p4J43Ab/j7TW+S0d7gRML7UwIuUzJqeSYXZd9cTHqAVFtKkNXm
kpR0WlFhnjmpvgeAAMCRMyNWU0LGNgZOoJwssQVZdMoZkGSmIyVfX4JScYGysauC1Q+8mpmW80XsC01M
Xh8syCvcTPh9NSfA96sFeYZbiKNhFuLEFwuS+GxBh0LZAhnH+YKBox8S0r7ghOJQWEI6wuuHGQfDE5Hb
20Rif2giOhCeWML9fWKCBe19n4T2hiahPbxkomkLW9KukKS0611S2vmOiX2ZVGx4kVRsZaK3hiRjgpPR
hpcKNr9NTpsYG14np9VByWnNyxS07nUKWssA0XMCrWn2kzQ0mQma+TgNTX+clqY94rbE7TRiysO0NJkx
6QGHmJtpxYT76Wg8Y9y99OR6Pb1wvZuextzNQKPuZKCRVzOIEbcz0nDGsFsZaWhARjHkZiYazBh0IxMN
vMQ9l+uZqT+j399ZqO/FLAL7QUSHIhLRuueWoqpXAbJWBZBsdSmReISd5ELlReMHXIGzWEsOjPcMnQDM
K2akxHOKBCRdrRQm754i1MAnL427nlbseZeEfL+Y05l/zMjvsxl5hZmLU5w/xWT7MED+YSbb63MCAkC4
xzt2tYxjHxNK8nHBe+B2meyDvO7B5O8PS0w72XXuZdLdmWwQvpvPJclmojWyYckbgizFNrbibSrZ64KS
iTXPkwlY1sY3TDYDZAOSbLbw1Uz8sqds0c8VC1/xIiUtDUolyZ/FmMQC0Mifyhh7K43QyJ8IAdxIKzTy
x0IAf6cXOvIZI1gAOvJvZaIhVzIKHfk3MtOAS5mFjnxGnwtZRK9rWanX1axy2xT2GKiXflezUBpua0EA
STaUJouKGQwFAK7AWaylyQwcXIFlApFgSjGReEXpgOTrS1I+tyLU1KsUzTxXmTZdLCb2XLOjvddsae/f
tuR21Y52XHIQHnec6OSLSnQ6uAadfFlLAKdDatPpdwxeer+sLQDf4DrkG1yXfN7WJc+guuLEa16X+Xp0
gnH0eT3h9boeeb9xIS+G5ysXOvTMRXi+qk+er+vTMV4eeeFCBwJdBJZHXtanwwz3Jy7C7VE9sfthDVp7
pTQtO1eMFvkVlVh8ppjE0nPFac21CrTqUT5axiJY+iwlLQxMJS0f5E9gix/PgOWDfNebQFoFN9IJ1+sa
2PJB/rX0YtS1DEJaPshnix8Gq2fiJfmXM4lBDGn5IP9iZtGPrR6WL8m/kFX0PK+g+7lsotvZbHK/9Szu
cXxOa25vJVlVWiScXEyYJfnmPgE4i5WUiKG1/HFgMiudjhKuK01J1xQPyMFxqfWpnGKuX22xastcmj57
JI0Z35dGj+1NYyf0o/GTB9GUGcNp+ZrZdOLsUQq4e5FuPAigWw+v0q1H1+j2ExWPFdx58jfjehTcDbxO
957eiCF438C/6R4fRy7xtwwc+9r9S3Ti3DFavGoGTZg6lFwnDpIYM2EgjZ00iKbOGkUbdy1ggdSixU9S
0iLGvMCUHJ8Vtw/yYfma2wfxsHzN7YN8afma2wf5sHzN7TP50vI1tw/yYfma2wf5sHxYPUOSfzUbdQ/I
Rt0YXVkAXa5kp66MVeytIDKrLSUlF+bMiY4fBeAM3P1yysbAEz3dCcz7FKREG8pQ9i1FAlqczkWruAG0
9VxpGj9xJHXv2o1aNGtOLZo2o04dOlKvnr1o8KDBNGfufPK7cJUePHtNz169p6A3YRT0moGlEbx8a4hw
ehkcTq+Dw+h1SDi9MYLgdxEU8j4S70I/6BD8LpzPF0LnL/9Ns+fOo0EDB1HvXr0Zvag3l7EPLwf2H0BT
p4+nxb6V2AOw+2cs4sZbzGM+W/8vxnyNfLh9afka+Ux6lzPZRefL2anT5RzU5Uo22QhtfS4Xc8ECYE40
flSAM3D3y8mFoR1UmFklIvNZTlTAvQjVP5E3YMGT1OTFMXz7maI0+K/ekvz69VzIpU5dasnrXTp1pn59
+9HM2XPJ/9Lf9OTlO3oV8oFev/vIy+iB/d5EwQd68/4jvWUEM0LCPunwTsX78E8UGvGZwvSA/BsWyMWA
GzRz1hzq16efFGv3rl116NWjJ412HUpzvctzqz6VjP9owZuO+eniLOZLy4fb18hndGIBgPyOl3JQe0Zn
zqN3UsDdkSyYEzOrhPoCAMDdL6fBDBxYQbZkwmJpaTGJrWHug5QBB8MSycbe1tNFaODAnor1M5o2bkKt
W7Skzh07Ud8+fVUB3KBAFsDT16H0KOg9PQx6Rw+ev5NLY3jwPEQusa8xPH7xngUVFYGMp+xhnvE5NMCj
QDjwHBcggJmzZZm6denK6KJDz+7daeTov2iOVzm2/lTcHePuG7cBfjXmS8v/yZgv3T6IZ3T0V9DeP4do
dzqHaOuXQ+6LMiRgTsBNFK4U7n45zWZEegD71FRwvyOd5K6bZzj34T9x9+6LGW3xVQTQiklv07KVFEGb
Vq2jCODM5ZsU+CpUEncn8C3H/jcKAo2At9968lquY9/v4e7T4Ci49ywqHr0IUcKHvgB696GunbtEQY9u
igBmeZaTrh/WP58FEPOYn/4HY37mGMV8ze1L8tny213MQW0v5qQ2fjlF6ws5ZdnACXMD0vU9ALj75TSP
ESmAommoZ0BWafU+EWYB3mFmwpv7+eu9i4iBA3tIATRp2IgaM7COdkAfrmwpgCs32SI5ngdH0DO2SkNL
1QAPofz2np7rbce6IWDdL5jc7+EV2gZhHDa4HXDx6g2awQLow/Ef4UkfCAkjRg2mGUfL0vzHqWgeY9aj
lD/dz5et/ViK+dLtw/I18pn4Vr45RavzuagD/9bmfE4yK5LGUADg7pdTFAEkcU5F614lJ39VAL7cz/fj
Pv7mU0Vo0OBe1LF9B2rbuo1Eh3btpAfQBHAu4JYkRMbnD1/kUllXoOW1beHAxy+8/CLzEZ++fIMPjI+f
v0bBpy9f6fPXfyQ+qduwXzA3DNEGgADQ8EPZgC6dsOwow8CIUYNopmdZWvQsNS1kzGUv8F+J+dLtq+TD
8lv55hItWQAtGH2uZSHmJs4EoMUUkbV8MuEenFB4hZuLk1IAyh2+Tb6ONGiQUqkQgQZULFraM7jhdS7g
JjfsIpgMlaAvTJARYPsX9ffPXwWvC7n/l3943QBf9cD/kVDxD/8PwHGAjyyAt+wJEAKmz5glG3zwTpHo
wGGgMw0bOTCKAJY+y0p7nzcXwB4Vbozdz4AWEruethA7VeyQaCm2A4EtxTYVW58o2MLY/KSVxKbHQEux
+H5lbkNkl3E/upgv3T4sH+SfyiVaMJqdyi3QIMxc7ps2QOx7AIeqCZlwM/Jl0k9EyPv68g7fRvYAaAOg
MkF8h3btJbDeq2dPtjpFAGiJwyI10kDOV5UsXV7vN43kfwyW34MUjCokzSvAg7wKCaNzl69zV28m9eje
g8umlFEDxDt0eH+acawsx//UNJ+x8WUZEuq/Dx8+cCkj/8VenssqXtOlkCli7iN7DgGGMT+nXszPRXD7
sPzmIP9cbmp6Nje159CQs0JSkB4nHkAngHJ1FPJBuicL4MRHFsInC1rvEykA/UqFAHqytU2fMZvOswDe
shsGIZplaoRrxEZu11/nfZD/R9kXS82DaJDeA64eYA8TwaEDQKgB3oV/pKC3oXSGu6JTprEAuvWIUk5A
CmDYAJrnWYPWPC9Iqxm7X9YhLYEwdVWmuMiHi1vk/rYGNwSzfhPzpeWr5Ldg4mH5IL/J2TyM3JS/UuK4
F0BZFgDIPwkBcC/g6HtzcTTUQqw8XkQM4EYgCG/ftp0OqFhY27Tps6T7xQ2b0Aj006MB2gQflHX065W+
fSSQf8cNOw3Bocp9gTfvcZ/gAwsN9xqACB3QqIQAJk+dwQ2+7lHKCUC8Q4YOok3eg+nEm/4S599PU+mJ
HYLVVZlM5T+JZ7TzjYNsAxiN+SAflu8DAeShxmfyUCNGFg7PelzFqgC0mAIByCd5R5h0eACvjxbkzR5g
7UlH6tdfqdR2bdrqgHx37l5NZQGcZfcLKwx6Gya7ZvefB/8a1G6e7P4FKtB1DRlalxL5R0Eh9ORlCPlf
vEaTp0yT9wBQPjRWtbJ2YPEOGzqUTvofovdfHqoIlMT8bjwN3yMm38kgY75s7asxX7p9WD6T3+RkbtH4
ZB7R6EQe0ZCR6Xe0AeAB8PjW+3MCwjN6KQBe1xeA1gvQKrcbd6/gdmF9sMJnb0LpIROi31fXJxVL/d++
h7tPDe8LgHCFeNxH0O4lPHwewiIIlrejJ02eRl31BKAB3mrokKF05swZaZFIgqO0lkCMuipTXOa/ilA6
+KaU7AYai/nS8kE+W35D/7zUgKEKIE48gE4AZVgAIByPcY+FWwQc/6isrzlRmPr2i6xU3AQCsI7KhtuF
9QW+eidvyrwIDqPn7AkAeIQgzkuo69pvhsD9AwWhOjxlUQGBwCsFTxiPX76jxy8U4C7hQxaW74UAmjh5
KnXp3CUK+SgrxDvkryH/CQEgXQztJt8HMIz5OrcPy1fJdzmdlzKWS/57BKA9w8ebOcciWAgfEtAqr8LU
p08XaqeR37KVAl5HZU+aMp1OswDghtEV1GL1G24UIl4DWI8OhnH9FbcpNOAeQ5BEpJieQySvQ6Uo4F1O
nQ+gCZOmUudOXXQi1crbnsULAfifPs2NTu6pMP7hBqeWYpvg6PJX3g8XUx+mpeZ6MR8NPi3mw+1r5Nc7
nS9OBaDFFFGmtpk4+F55eeMQXsMKUdaXHiksevfuTG25MvEMQAeu2M6dOtNEdru+7H4fc+wHSS9ZBBDC
SyYuxsDf6eHFWyabSVaIVj3D6zDlTqIG1SPAG9zhcHHibACNmziFOnXsLMumX1aId8jgv8jP15c+ffok
8fnzZ0nMv4HLLAA8gtbFfIZ+zG/gnUe4eOcV9bwUZCwrBaCP2PcApWubk+enhIQ3dyCAo/AAvL6SPUCv
Xp1kpbZs3kKHVoxOHTpJAficw+PgYEkMyAJpGoGG0H5TiIUVK7eG9SHJVR8AaVBcPsd7Azxg93+b2wMn
zlymseMnyQaffjkBeILBAwdJDwDXD/ybHuDiuxHy8bOpmA/ypfX75aM6vuwBFAHEiQeIIgAQjvf0pAB4
qQmgZ8+O8v6/9kQQwCPhju070nh2u7C+u0/f0CO2RgmQhThtBPhN2edbMjWgIfmAG3YPsGSCAaUx+Zbu
MdBA1ICG4Y1Hr8jr9CVyHTeR2nODT7+cAMQ7aMBAFoC/SsG/2wa4wAKY/CCd7Ocbi/nS8lXya5/K//sE
oLykmYgOhlgEHIlQ3uFbcTyqAJo3bSZfCsF6+3YdaOyEyeTtf5lb5a/oVuBrus5kXHv48hv8rcLYb1Hw
4CVdffBCwf0XFGAEV+4F0eW7Qbx8wfsr8PS9SKNdJ1C7tu1lGbVyYokwoAjgtErBvyuA8yEjxUQWgLGY
rwlAIT8f1WIBZIhDAWgxRZSqbS6fBeCVZQgAb+0Cy44Vph49OkiXr1WoFACjPVc23C6s7zqTB9Iu3H5O
5249+2mcvfn0G5y5YYhA8r8eKH+7dPc5BbAgjrEARo0Zz72VdiYF4Ofrp2sEAiDm38BZFgAeQJmK+XU8
84najFrH8omax/ILVQD6iH0PwAKQb+zKN3VZAO5vWQyMBQcdRPfu7aXLb96kaRSgsjUB/A3LZeu8xJZ5
8c7z7+KCwbpxPNPh/G2I46kRPJPHuMIiOOZ7gUaOHsddv7bflBPixWthp3xO6RqBX758Ue0x9i08uvyZ
4JHyfQP9mI/Wvs7tg3y2/Jo++amGT4E49QCRAqhlrntNGx9geISxGHh96TEHggBgSXgbSB9tuHU9ZuwE
8vS7yOQHSRFce8AhIBpclfsZuHsDBPDx9HH53nN2+8+lxX8DFskRn/M0YtQ4at2qzTflRLjq37ef7AX8
FxqB/m9HycfNxmM+u31YviQ/P1U/WYDSl/kNAijJAgD58qMMTQAsiKXH7Klbt3bUjC2pSaPGUYDW9Zgx
4+goWx+sUIvR8ATXmDRtCejH8KiISjRwhSEJ14ck+lvvcIG9w3n2BIdOnqfhI8coL64YlBPi7denL532
81MpwGPlf+jTV/YGjHfh78VHXmr4kfynf778sAD8WAB418BUzIfb18ivJgWQIs4EoMUUCEDsfptI7HqT
WEAAB1gAEMSSo/bUtatiVY3VN4I0tGrRikZwpR88cZbO3XzCRARKXDAC7bfv4mYgH0fBWT7eN7jxhOP/
E47/j6Pg9N+PaP9xfxoybKS09sYNGkYpJ8SLV8XgAbR0//1DqnWomajBqHawuajq0UJUPtBCVGT8ub+l
qLCvlSjv3kqUdW8tyuxpLUoxSri1Ec6724piu9qKorvaCced7cS8gG1G4/z34PtmtBhxNaPJmF/jaH5R
/WgBUe1IAVGFkU4RgD5i3wOUYA+AL3T2MSCAfe8T0b7QRLTosD116dJGWlIjrlgNqOTmTZpRr979adm6
bbRt3zHaceA47VSxy8OLdh/0Zpwgt0PASYk9hwEfBUd8aC9w9JRcYpubDthf+dvdjF18nF18PGDH/uO0
nc+xbZ8nbXU/Rlv2HqWlazZTj559pFAb1Y8sI4BteFXslI+PrgF4I+Qm5XMvQnn2FqVc24qKHHuKUTa3
YpRltxNl2uwsMux0pnQ7ilOa7cUp9foSIuXWkpRiS0lKtrkUJcWnWxtLU03PAfT+c/gPe4BTLAC8YWQ8
5rPlg3y2/ConCkqoAogTDxBFACAfn2XtDbYI2PVa8QZz9tuLTp1bS0tqWL+BDo0kULlNqWu3ntSn3yAa
MGgIDRw8jAYxhgwdTkOHj2KMYdfsKuPzSMYobqihtT5qzAQaxd22MWMn0thxk2gM9+FH87qE60RlH+zL
wN/iGMNGjOHjjabBQ0fQoCEj+HzDqN/AIXzuwbIMEGlDFy4foFdGbMerYidPnKCPnz5K/P32b7LZ70gF
9jlSvh1FhBTCnqIkhbC1mJBC2OVMUggbiwsIwXpbCZJCWFtSOB9oSU/CgiShPyqAk69Hi6E3M5mM+dLy
VfIre/9GAciPMAH0At6zNwhNTAsO2VOnTq1kRaJiG7jUpwb19OHC1tZIVjLE0Iy9AmJuy2YtqCWHCISJ
Vi3x/KA1teUGmv6DGrTYAfnYFo+bNRg8zUNbozX/PYDjteBjA7Jhyu69aSO2ei4DyiLLZ1DGxvxb7x69
ZC9AawTeZA9QyKMw2R0oTDa7HIUUgkmP4BTFI9hsryWuvL2l0vnjAjjxaoz460ZmeZMnMuYX0MV8uH2N
/IreNpT2d7QBinMbYNvrJGLrqyRCJwD2CAsOF6KOHVtKAehXaiS40nVQtzEBmhXqwHnFIg3B7pqhuWst
bwrasRQYK0fUbfXrskD573p170m+p06pFBDdDrlFjnschIObgyi0u7CwZRSEEHY6CukRthcVUgjsDbJt
YY+wxUkgNGTbUlrsvX/UaGyPKbxZAIMuZf425jNAfuXDBSUqMv48VFCoAtBH7HuA4jUtyO19UtrN2Bmc
OED7Unc+e4COHVvICkdl/hzqfQem9jXc/jNQjgWh9ezWXXoALd1+f4ucuH1TlK9PCsHDQXoEW/YIUgiG
HoG9Qa49JWj5nU0U8SHihyzeMH/85Rj5GrmpmC/JZ8v/08uGKjDi0gNEEQDIl59iv0oc4BaSmNxCktBc
D3vq0KGFtCZ8FvbTYCJMwtj+sQh4ih5du3Eb4KSuEXj73Q0qcdSOnI8UIid3eyGFcNCBpBDgESAEbiPk
V9sIed2L0ZgrU7nbpzxFVLmU6Ufzni9cBV4h17l9g5gvLV8l/4/jtpSm9G8QgDMLQPsOHwLY+pLDAWP6
3kKiXfvm0pLq1a7z82AiAGMERQejx/sBQLzdu3QlL6/jukbgzeBrVOaYLZViEZTYV0hACMW+4xHan+5O
oV/CJIG/KoBjLAB8OGIq5sPtK+TbUPk4FoAWUyAAgdE2Nr6wxLg2AbvY+nezIOawB2jXrplJAdStVTsK
sA2kae43CurVk9YYBfUN8kYgY7kKeAzDMkQH/D0+DkEvQGsE3gm5QeUP2oiyHraizAFbUWq/nSixz044
sxiKwSPstRdaG6Hukfoi8N1To/H8Z3AkyFX0Pp9V1883jPkVuFx/MMp72IhyXD5VAPqIGw+A8XS2Y1wd
KQClPTDnoD21ZQGAVEOygTo1a+kAktEbwL13tNzxEgla9Hglq2O79vIjDe1zra4MkALL1EF+zat+2atu
w7d92B+vduM4uNGDRqYmBJShds2aVLsGg5coh2EZUS58HHLy5EnVBonuhd7kGFuQKsDKIARPWyqt8wgs
BNUjVPOuRJdeXvolizfMH2YB9AzIZjLmS/LZ8stxmcp62pH17woBIB9Dr2xhAexUx+GZ7VGI2rRpolQ0
KtkE6tauLV++HDN6DM2dM5cWLljAWEiLFi6ixYsW05LFS2jpkiW0bOkyieXLltGKZctpxXJDrFCW+I33
WS73X0pL+e/nzJ4txyRAKKlSqTJV+rMiVfyjAv1Z/g+qUL68XK9RtRrVqlEjStkgFAgIbQAtQQCVufIr
sdv98xBbnHS3NlzhLAR4BBZCeU8n8n7h+cuEG+YPPncV3a8oAvg25nM5YPmSfIjyNwnAiQWgjbsDAWx/
m5S2ByelGfvtqHXrxtK6alavbhSocJe6dWnIX3/Rli1byNvbm3x8fH4OJ/VxUge474MHD7K45khCy5Uu
Q2VKlqLSJUpSqeIlqKRzcbmsUrES1ahWLUr56tSqJb8N8DzuSZ++fJKNwHvvb8j4W/VEAbbAAkIKgT2C
JAAu+Lg9bX20ToaL2BaABwugKwvg25hvK2M+3D4sH+SXkgKwijMBaDEFAhDrgizlgEtbXiUN2BiE9kBS
MdnNTrRq1YhqVa8hrcsY8Bti9ZjRo2nPnj2SSF9fXzrF/e5vCFaB37DPj+D48ePSOzRp1IgqVfhTsfxy
5al82XJSDBAAtlevUjVK+eAF8EHrVo/NFPj+CX349IHuBF+lWuiDM9D/rqrG4kpwx4dsxfSrriL8Q7jR
GP6r2P/MVX7zZyrml2UPJL0Qt0tKMlQB6CMOPEANC9r8FkOrwQMkDcCIXNuDLWn6Pjtq0aKBrMhqlasY
RY1q1eUNGrh/Nzc3STDi7ZEjR+jAgQM67Nu3T2L//v3k6en5wyKAAFauWEHNmjSRlg6ypRDY9ZcrU1Z6
A4SBqhwe9MtXk8vXunUrGrV1KB19foDCuTV/P/S67las9vRN8wgjznURYV9CVXv9dYs3zO976io6Xspu
IuarIYgtvyTaI0cLUepScecBdAIoViOBJB9DrW3WBMBtgun7bKl58/rSqlCxxoDf0EIfPWq0FADIh7tG
zB41YoT8KGPYkCH0F8dvjOEzgretX7dehgpjRBsCQjnBIQCCWsbtgmaNm8jzVuY2AAQA0jUvAK8AceiX
D+Jt3rIpNV9ZjyZfH07X3l2i26FXqD4exfrlpbrH8wl5T55F0ONiXQoKfRarhBvm3VkA+OhT5/Z1MV91
+7B8Jh7kF+fG6G8TgDbO3iYWwFYWANoE09xtqWnTeroKNwb8hobZqBEjpQBA7O5du6hvnz6y9wALBCAU
NN4gllkzZ9KxY8dMegEtfIB4HA8eA15k0aJFMgSY8gB/sBCwTb988AJNmjeiOkvKUyv/6rTy/lzye32Y
GvrnoQYM+UYOC6HtuTL0IOxmrBNumN8b6CraXchpMubD7WvkOx+xp1RxKAAtpoiiNRKIlU+TixUMCGDz
a0va/CYZTXazpcaN68qKhKUZA8hAwwzW7rZ7tyRs+7Zt8jNtxGgQA6Ch5ly0GFVkgiZNnCgtWieAU766
0AHgGF5eXpL4o0eP0uHDh8l9716aP28eNW7YUCcAnL8CWz0EUIrPgSW8gGH5mjRrSHUWl6NqXg7U81wT
WnpnPGnv4+O9vBY+DuLks/1GY3Zsw+2JqxwL4JuYf0CJ+SX2FRLFcXPKHaOu2wtVAPqIfQ/AAqD1r5XR
Nde9TBqw9pmlWMsNwnHbbUSjRnUUS+OKNQaIA/3vEcOGScsHcVu5N9C+bVsqz4SAeKB4MScqWthRWumE
8ePp8KFDsrWPe/RYGhIOHOJ9PDw8ZLsBx549axY1atBAJ0gI7A9GWe4VQABYYptWNuyDfRs3bUB1F5al
KkcLUn0vJ+p0pjI1P5dLvpvf3Ce/OBi0Xrb4kUCSXFFTbOd3swDwXaDO7etivur2QT5bvnxWwUj5O0IA
BKANrQoBYCBjeIBJuwtSgwa1pJUhzhoDKhoufijH+Z07dsrGGgSAm0DorpVwcpbkOxUpSsUci0jCxo0d
J1069pXwPC49gka4bDgy6fu50QjLR+9i69atNH3aNBlCQCyOg/NL98/xHyIrW6q0FB1+wz5aOGjYxIXq
LSlD1bwLUE3uf7v42ijf5jGW3nYVeEVMS7FNuGF+52NX0YLFZyrmS8tn4nEjqsghh98jgCLVE0jyV+sL
gBuFE1kA9evXlBUN69IAYlHxACyuOje0cB9g586d5HVc8QD4JKsME+LEbh8A+dID8P6uY1xpLxML0jXi
0XCEpe9zdyd3gH9HmwLH3LFjB23csJFDxySqy+FGdv9wfi4HzoEuIISGhiDKh/Jq1g80aFyPBVBaPn3D
M/j6vnnl9/kz7rSn4PDXsUpwdPkdj1xFM/Y8pmI+3L5GviMEUPI3tAFYAGJJYAqx+ImVWPciacBGFsAm
bhBO2FWA6tWrrrvxEgVc8QCIQEPrr8GD2QPskBa9ZfNmeSsYsb8YW35RJr+IQ2EqbO8gCRo1chTt5vYC
SNdcPLqI0tqZdLQl4PJBPCx/Mx9vzeo10nPgvoPhjSCQj/YF1uEN8Du8luYF6jesSy5LSspuHxp8jf1z
0ZgrNcWL0CdG43RcYjsLAGMAaP18w5iP5xBF5LMIe1F4j4NQBaCPuPEAGC8fWB1kSetfJmMkp7HbC1Cd
OlWla9Uac4bAb+gJQAA7tm8nT27db9ywgVq1aCEJgdVL8gvZk4NdIUnciOHDJbmSdLZ2fdIhou18nG0q
8Rv4WOvWraPly5fLriZ6Eziv1rbQyIeHwTrOKUMBewG0N9BLcGlQm+ovLkkup/JSI7/c1PJsLnoYHhAj
i43t/FYWQCPufRiL+dLyQT5bfmE8nmZYxaEH0AnAURUAhlJf9cySVj9PxkhOrlvzU+1alXVWZggQAEIh
gEEDB8pbwWi8rVmzRt6wQdy3t7WjQja2ZFvQhuxsbOSx8Lk29gXpcPEgHJaObZs2bdKRvnbtWlq9ejWt
XLmSFi9eTMNZOOhKao1KrW0BkTk6OEgh4DdNmABEUM+lFjVcVIIan8pDLfxyUZuzOcjz9QLdoE4qNzLF
dX7LQ1fR8HRekzHfEQJQybf3KMwCSPk7BJBQkr9cFcBatn6MGzhup+IBUKmoXEOAABAKN4uPLzas3yAb
brhli9vD9nZ2lC9PHsoL5M5N+fPmJWf+m4EDBkiCNfeuWfr69et1pK9auYpWrFghLX/p0qU0d+5c+TAI
bl1rU2jtCngYRw4vEAPKpYkTZYNAa9etTk2WOUnLx+CL7S/koJG389DNsNh/2BNdfvMDV4GbUPoxH619
LebD7Wvk452EuBSAFlOEY7WEYsHjlGL+o5RixdNkigC4VzCdC9C6TSNZiYbkA5oA0NDq17evJA8tdtyy
xWPhksWLU2G2TAcmx6FQISrCZMElwwPAS2zcuFGSDiC/apVK+rLl8qnhkiVLpOUvXLiQZs6cSQP69ZeN
SGnxfEwJDi2FObQgxEAQEIG+EFC+mrWrUPMVReXQbBihC7dihwRkFBNulBJBofeMxuq4wkYWQF2vfLqY
X0yL+QxJvpuDsFffVbRjpCghBaCP2PcAhaslpGVBykway58q06ugV7Dkai4avrgC1atfVVakZnUaUNGo
ZHgAjBy6atVqGcc3MKHjx42TdwMxmBTGE8KzfSwH9O9PM6bPkGRrpAOapS9ezKQvUkhfsGABzZ8/Xz4F
nDp1qjwHGpEgG6FFgsMLQgzW4QkgDg0oI0RarUZFarncURLfgdHpcnYadlsZ/nX5/dbiq/h93wpuuO8q
vwQyjPk6tw/y2fDsDjiSLUMVQJx4gCgCAPkYSXsZC2BVUApa9SIFrQyyorkXs1PfKX9Q1RplpVXpLI+B
CocI0C3DuIGwXDQE4drRENQIRgwHuQAsHPmVK1bK5//YBkvHbV6F8AU0bx6Tzi5/DhMPwPonTZok5ylA
fAfhdmhTFCxItgUUIA9h6JcPgAgqV61ALZc6UGe+lk6MriwCkD/iTkYadS2T8Hozi4R6LyC2CTfMr783
Vn4IonP7sHy9mC8tXyUf3y78NgGA/MWMpSyA5U9T0PJnKWgZY/HjVDTVLzu161lVdq9QqahorbJRwdje
pXNnms/Ewfrh0rVG3BoZz1fKBzkaJOELmXCQPXeeJHn2rNk0a9YsmjljBk2fPl1i2tRpNG0ag61//Ljx
cuRvhJVI4guQTf78Elh34DaHVjYN8ASVKpenlosdqMv57NSZ0f1iNjkOMICh4Cfcy0N3wr0kQbFNuGF+
LQsA9yNMxXy4fY38gvuLUPI4FIAWU4QDtwHmPEwlZj9IJZY+tZKWv/KFAky2NO8aV9is5uTCrWm4/GJw
r3ouFi1t3PmbNGGi8iYQWzPeCoL7njePCZ7N5M4EuTPZ/U9ndz6NJk+eIp8JTBg/gcaNY4wdT+O5nz/O
dSyNZeiWHErGjR1LI0eMkGMUlylVigrbo0tpFwVoBxRlj6QrG8OJy1eyuDPVcKlAbdbYE97E6cbocTmL
JH70tfRiNAaHZky77Sxehj00GrdjE2vujpXvIJiK+ba7Cgt8rFJwp6PIv7OIUAWgj9j3ACwA3UDKiwMV
AaBbiFm2MFXcwgdpaY6vIw2a0Ihat25OjRu5UKOGLrxsIPv7eG9v+LBh0lUvZMteJGM4XPpC6dIlpFuf
J+P5bBYE7utDEJq1AzO5bQAPgO04FiC9Ai+nTpkinzfg5Y7m3MXEU0E8GGrUsD41aFCPGjZAmerLMjVu
3ICaMJo3a0xtuzSlDgtKUFfv3NTjalbqzuh1LQuNvpuBxmBYeCbfVR0pfOPzphQaERKrFm+YX313nKhy
soCun2/vVjhKzJfks+Xn31eE8jHi0gNEEQDIx0DKiwJT0grpAXiJKdYggCcpaTGmWTvpRBN2/EHDN5Sm
4Wtq0ewtf9HufVvp2NGjuuf7Z8+e0+H06dMMfzV/lvz9z5Cfn5/c7u/vL4dtQR5PBbFEHtvxu5+fr1zH
+H5Y4thexz3lQyQ8J8At4w07V9K4dQOpw9Lq1HZpJWq3tCJ1WfYn9VxRgXqv/oP6rK1I/bdWpD4+BajX
FW0I96zU+1pmGoOh4QF1gohx99PT+PsZ6PDz8UJrDyDFtgBW3hkn8D6iqZgvLV8lP697UUr2OwRgXzWh
JB8zYC5kASx7ZsVg8hmLn6Yk7iIqs208Sc3r1jTjXlqacbMo7Xs6mV6GP9SGXZPAugbkP378GGVbRESE
0W3a8G0A1iMiwqNsw9/ob8My8N09cnu4jAZcqkJt/AtQ2zO5qPu57NTvUlbqH5CFkZX6MfF9L2WhPrzs
w/nejD4BmaXFy/kBWAAK+eqkEbdyiNvhR+RNIqToCP3R/Irb4+VbwKZiPty+Rn4eCKD4b5gvwL5qIjH9
Xmox7Z61wKwaC9ji5z9SMPdhSprNmKVi6r3UNOtuAVrzsDEdD1pOr8ICJTkxBVdI1PzHD/Qi9B49fn9B
Dxfp4bsL9IiX+jDc9uDdeTr1YjPNvNmGelwoQD0uZqWBlzPRX1cy0WDGQA28bYCK/sgHZJLE63BDA+YN
Sium33EQL8LuGI3hv4plLIAKh2xMxnz5JZL6fWJuhqUiAH3EhQdIRHMDreV0qlPuWgvMqGlqXj1MerTm
4XRVz79uESdezuDjp6MpOAfDVZ3FSwOmdJn0MB1NepCOMLqWnOKFlxp0M36wFcOiR3FMR3xXYjxDL8Yb
s3j8vXYs7fhYbglqSl+E9Gq/dH2G+aW3Jsh3AE3FfEk+W35ufJe4txipAogTD6ATQCEWgDKXrnW0c+li
5ovVD35dAHgB40aYG026k00RmArM5CXX9QQgz61CI0gDLBbkTXuYmy6+20BTbhUXsnEHsiXh6XUxHtAE
g3mCFAEZHE8KDudOTyeDp3J5f+1jUMP8kpsT5IcopmK+tHyV/Jx7fqMAYjqXbif/7GLV/Rnq5fxchSC+
Bn48R/OfFJTHx3k06ASgwqRHYGiETX6Qkc6/XyOPf/3tEe7XZ5Xkx9Ti4V2UY0YKDpjxKBtdfbtHlldL
P3O96qpMi29MEHgXwFTMh9vXyM/OSPo72gAsADH5bkzm0k0rOvjnEAtvTDQa32KKV2EPxIL7JeXxowME
EAVaWfTg/my4iNB7j//Qs/GR8d1IjJcwchwFUc83+54jtwduRyn/rwB1h/cAlJivjEcg3f4OJebjc/Sc
jOwYm4ChCkAfse8B7KokivFcuu1P5xDLf8EDvIt4JTYHuUSxeG3dVN60R0hHmx63EZ/+Ub7cRcL5Pv0T
Tluet+LyKi7f0OKx1LwI8pHHU46vfz6cH+X9zMfUji9X1PSj+QXXJ4oSRwqZjPmSfHWEkqxuTnHqAaII
wFTMRwXpz6vX1i+nWHZvpno5P1YBX8RHcnvaN1rCjeX1CUH5gLXPqtKb8ECj5wv+8pi7rcVNxPh0kYSr
ApDH1I6vnivy/OnIO3g8/SN+fFg4w/z865OE0+FCJmO+tHyVfAxRE5fTxkURgOm5dKPOn49Xmpfc/XEB
oNF3OmQuTbid8acEoJ8HOfOf2NCbz3e/e/4HET68f5boLV4lXxOA4fmwnPk4G90O94jx9WrJMD/370ny
nT9TMR9uXyM/cxwLQIspwrZKohjPn485bubwReDCfgQBb3dx+yLTNzH+ZzD1Tm5xI/iQ0fMY4viLaRzL
M0ReE8DH0IexcxjDzLu2Iij0ltHzxBSouyJ7HXT9fMOYn1UdkyjzZmVcIlUA+oh9D8ACMBnzQb5sTavT
qTb3ySUW3Zml6jlmFvD043ma96SASYv+kTxEdPl9zN/jD40IFrtetPthizeVX/Oo/jdtDnVVpujys69N
lo9/TcV8ST5bPoapy7jTmT3AN3MHx40AUDnGYr60fr25dJuezC0W3I65AF6G3RUrnpYxWaE/mvd4Plr8
I76qR48ZASHcHlgS6CxFLgXAx/lZAYy7nV6cCJ740+8PzLw6WeA2sKmYLy0f5MtxCotT4t8hABsWQGTM
//5cuk1O5hHzb89WL+f7F4z+86mX88Wul21Jw+YnbX86f+ztSAr/8P6HKlzLP/pwivv1WX+YcGP5GY+y
0I3wvfL6Ynp+Lc24OkVgfEJTMR9uXyM/fRwLQIspLIDEJmO+4fz5GOd+WsAUo/Htvw6vF1PFeLZgkPir
mHHXRjwNvWb0PN8D6g63f03F/IybnEUGRvqNxQVGKVUFoI/Y9wAFKyeO8fz5Dbzzirm3YuYBkP5LecTu
zU9a/7IH0NY3B9Wj9xE/9mXR1CtTRIH9jsZjPiwf5LPlY2TStDtKUKLfEQIggMiY//3581288orZN+eo
l/NjBCD92/nXYQ/F8qelYkRw9Pl0dOD5KG6TxPyl0ilXpspbv6ZivrR8lfw021kATr9JAKZivuH8+RhQ
YdaN/38FgPyTD/4063H2GBAcfX7i7SziepibbA9ox5crajLMT748VeR1LxI15nNrX4v5cPsa+dZxLAAt
pogClbkNgLivi/ns9tWYPzwgoxjGGMoYciWjHNt+4uVpRuPb/0+4GXJYnHu9JlZwI/ig0XMYA+oO/X8l
5jvpxXxnGfPTbigu0jCs15cQGKo+oSIAfcS+B2AB6MV8bvDpxXxJPlv+kJuZaDCjpmd+Mf36XFXPMbM4
dVWm//X8hEvTBHoAWj/fMOan2VBCwPJTbytJqRiqAOLEA0QRgKmYLy1fJX/QjUyEkbWmxQtAl340P/7i
NJGdG4A6t28Q86Xlq+RjfoKETtZxL4D8LABTMR9uXyN/4I3MhFeap/w9T72c2K+g/+v5sReni6wc+03F
fLh9jXwrRoI4FIAWU0T+Som/ifkgXpJ/OZMYxBh4KZMYcCmzqHKkoHC9MN1ofItH9EDdZeaun9bPV2I+
u3015qdaV0KkXFdSWK0tKTA7SYJiUgD6iAMPUCmJyZgvyWfLxxj3/RmVWACTrs1X9Rz7FvJ/PQ8BIP6b
ivmSfDlHUSlKxrBQBBAnHiCKAEzFfGn5KvkY5x5j6468/GuvhKmrMv2v5Yf5j5NT0JiK+dLyVfItN/8m
AeRjAZiK+XD7Gvl9GZXZA9Q43oE+fP0oLyi2K+j/ch51VuNge9noMxXz4fY18pNuLh2nAtBiCgSg6+cb
xvz+FzOLfheziL6MPheyiMYn8oism8uJ40/8jMa4eJgG6gx1p9/PN4z5ydaUEpYMTE+XZHVpYf472gDw
AKZiviSfLR+zXPRidDmbXfZjKx1tRxFfYv+9+f+r+dDP4bLOoov5kny2/CSbSlNihiqAWPcAsxk6AeQq
m9hkzJeWr5Ivv607n1VUP5lfzqPX0mcIPQw2/k6eluLzH8TziFeyrlIx0bD678V8afkq+Yk2liFz+29u
BIG7X06DGToBpCuQkPoHGI/5cPs68q9mo+7nsokul7PL+XWstpYiTKu6/eFhqXDtguWKmv6X86iT9Tf3
ihIeLcmKCdYE8L2YD7evkZ9wbWkyy57MUADg7peTC0OLKcIyjYXotC+90ZjfiwGrB0A+Pg3ryujon13O
r5NibSmOX2VFwW31RbOjQ0X/U5PEAN/JkTilt/4/kkcdoC5QJ6gbxHUrdvUxifmJV5UWiVaVEQlXlhEW
k52EmVVCHU8qwN0vp2yMrwzpAczMzajufGujMV+SD8sPyEbdGCC/y5Xs1Jm9QMdLOaiuV16Rz72IVHdS
Vi4uAi5Mh//hPOojORuItPwYxnxJPlt/gg1lybxPQYWfSOsHZ+Dul1MiRgBDd4KCtS2p79XMRmO+jnwm
Ht8GgvxOlzHaVg5q759DYPQtDH6ISRcw5Qrm39EmQCjjYSvK6A2HLkfFlpMh2FFx3UCJheSgSXLgJAyb
xuGliISDnMYNL1EqAyoU1g2oUOiAMvUrvq613a99Xu1ImP0TEz/KDy9YmHnx5Q0mgVQ/vlBewy4qX8nC
FLGYHRT35vGCRrbdTpR1i5OcOxiPajPvctZ7XKsg/SZn2Y1TbuRwdw4teswtLBt2kd06APno+vmGMR+W
D/It1pUhs9LpDAUAzsBdrKTJDN0JEic3p3aHMxqN+TryGZ1YADryGe1O5xBtWQAYe7c1o5VvLiEHYj6X
m5oxmvrkFk3P5qHGZ/JQIwaGZ2/gr8ydH5P586ObV08Zb1+ZYCkmY+9GNyZPdN/qRfcOX3T39r8b82H5
cP2w/llOZGaZwFAA4CzWkgPjPQMnkCjUOJnodc54zIflg3zEfkBaPsj3yyHa+OUUrXwBJv9ULtGc0ewU
E8/kY1xcjMuPdwkl+d55hJykIYbz50c3r57hHDsmx96N4Zg8ht/nR/fevuE7fNHd2/9ezJfkrygrzJeX
FWZ/ZtTxogJcgbNYSwkZ2xg4uFRYwqTm5LI4ncmYLy0f5MPyL+YgaflMvrR8tnpp+SAfln8WYMsH+bB8
tnpp+Uy+tPwYzp8f3bx63xtvPybj8EX3ff5339uH5X/zPB8hIeb9fP2YLy2fBWA2zJ7MEltoVq/xA67A
Waym4oxQhnYySp0roWh1KFM0MV8lH24flq+RD7cPy9fIh9uH5Wvkqy5fRz7cfjTz50c3r54y3r4ywZLR
sXcx6rZGPtw+LF8jH24/mu/zo3tvP7rn+TGO+SB/fVkym+wszDJb6vhgQADgCFzFSZrFiHLCzMWSUJvj
WX4o5jfXi/lNTMT8eqfz6cX8mM2fH928esZi/vfG3o2VmK+9zBFbMZ+Jl+QvKEFmBb8ZFAp5cBRnyZpx
gYET6ZDJKYlo5pbFZMyXlq/GfOn2tZivzsVjGPPxNvF3Yz7jh2K+iTl2oht7N2rMj/77/KgxP/p3+H48
5pcR0u1PYctXyDfEeQY4itPkyHjC0BQn1ZciSwKqOj29aHcuu8mYLxt8asyXlh+nMR/z6tlFmVcvuvH2
oxuHT5L/SzH/x+7tfxPzl5YRZgNsySxdEn2L19bBCbj5LakM4ylDvwBknsBM5KmZnGpvzEStz+aIEvOl
21djvs7tfzfms9vXxfyYzZ8f3bx6WsyP6di7Px3zNbcfWzF/bRkyH+fIff30wswisr4ZWv2DC3DyW1M5
xjPGNwVKlMycspS1pDKu6YTL/mzU/Gyu/2Q/X077/t2Yz27/h2I+u32twfeDMd/SMOZvKEMWU5yEeff8
ZOZoTWZJv+nna/nnDHDxryQbhg/jHwYKExXmZiJBEnORIltCkamMpchVO4XIWSuFyKGH7EBNK4lsKrLW
UJBFh5QiM1A9pcikIqMeMlQDUon0GqqmEulUpJVILdIAVRRY6yF1ZcBapFKREqikwEpFCok0InnFSCTT
g+WfCpL+mVZBhbQiiR4SV0gnkeiPSCRUkQAoD6QXFirMHVMLswxJhVkiC1mHRutWqXPUPTj4V5MVYzzj
DQMFM1RofD7286hr1Dnq/j+RzBl2jMWMCIZhgePzsZNH3aKOUdeo8/9cQqGyMoYx/BlvGdqTRGMXFJ//
fh51hzpEXf7FQN3+J4k3lXIx6jFQ+AWMDfGIEeYyUGd1GKjD+BSf4lN8ik/xKT7Fp/gUn+JTfIpP8enX
k5nZ/wNRMrfaV7xwSAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>469, 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:Flat,ControlDark,0, 1, 0, 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" 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, 832, 393&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&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, 832, 393&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>332, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAICAQAAEABADoAgAAhgAAABAQEAABAAQAKAEAAG4DAAAwMAAAAQAIAKgOAACWBAAAICAAAAEA
CACoCAAAPhMAABAQAAABAAgAaAUAAOYbAAAwMAAAAQAgAKglAABOIQAAICAAAAEAIACoEAAA9kYAABAQ
AAABACAAaAQAAJ5XAAAoAAAAIAAAAEAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAAAAAA//8A/wAAAP8A/wD//wAA////ABEQ
AAAAAAAAAAAAAAAAARERF4iIiIiIiIiIiIiIiAERERf///////////////gBEREX///////////////4
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
////+AERERf///////////////gBEREX///////////////4ARERF///////////////+AERERf/////
//////////gBEREX///////////////4ARERF///////////////+AERERf///////////////gBEREX
///////////////4ARERF///////////////+AERERf///////////////gBEREX///////////////4
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
////+AERERf///////////////gBEREX///////////////4ARERF////////////3AAAAERERf/////
//////9/+HAREREX////////////f4cBERERF////////////3hwERERERf///////////93AREREREX
////////////cBERERERF3d3d3d3d3d3d3ERERER4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
AAfgAAAH4AAAB+AAAAfgAAAP4AAAH+AAAD/gAAB/4AAA/+AAAf8oAAAAEAAAACAAAAABAAQAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAA
AAAA//8A/wAAAP8A/wD//wAA////ABEAAAAAAAABEXiIiIiIiAERf//////4ARF///////gBEX//////
+AERf//////4ARF///////gBEX//////+AERf//////4ARF///////gBEX//////+AERf//////4ARF/
////8AABEX/////49xERf/////hxERF3d3d3dxERwAH//8AB///AAf//wAEBEcAB///AAf//wAH//8AB
ARHAAf//wAH//8AB///AAQERwAH//8AD///AB///wA8BESgAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8Azs7OANbW1gDe3t4A5+fnAO/v7wD39/cA///3AP/3xgD/770A7961AP/n
rQD/9+cA/+/WAP+1QgD/rTEA/60pAP+cAAD/xnMA/71jAP+1UgD3jAAA/9alAP+1WgDWcwAA53sAAO+E
AAD/794A/+fOAP/37wD/3r0A786tAP/WrQD/zpwA98aUAN6lawDenFoA3pRKAN6MOQDnrXsA/9a1APfO
rQDvxqUA772UAOe1jAC9YxgA/+fWAP/exgDevaUA972UAP/OrQDerYwA/9a9AN61nADnvaUA3qWEANac
ewD/7+cA/97OAM6UewDGjHMA1q2cAM6llADWnIQAtYRzAK17awC9hHMAxoRzAK2EewC9e2sAtXNjAMac
lAC9lIwAtYyEAKV7cwCte3MApXNrALV7cwCtc2sAvXNrALVrYwCtY1oA9+/vAP/39wD3zs4A/87OAP/G
xgD/vb0Ae1paALWEhACte3sA/7W1AKVzcwCca2sA/62tAJRjYwD/paUAjFpaAJxjYwC1c3MAhFJSAP+c
nACUWloAjFJSAK1jYwCESkoApVpaAJxSUgClUlIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAbm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
bm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
blhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYbm5ubm5ubm5ubm5ua2thYWFhYWdkZGRk
ZGRkZGRkZGRkZGRkZGRkZGRkZGRpaWlYbm5ubm5ubm5ubm5ubFRVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
VVVVVVVVVVVVIWlYbm5ubm5ubm5ubm5ubAEcLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgICAyMjIyVWRY
bm5ubm5ubm5ubm5ubAEcOi8vLy8vLy8vHh4eHh40NCgoKCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5u
agEcHBwvLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5uagIcHBwcOi8vLy8v
Ly8eHh4eHh40NCgoKCgoKCgoICAgVWRYbm5ubm5ubm5ubm5uagIcHBwcHDovLy8vLy8vLx4eHh4eNDQo
KCgoKCgoKCAgVWdYbm5ubm5ubm5ubm5uagIcHBwcHBwcLy8vLy8vLy8eHh4eHjQ0NCgoKCgoKCggVmFY
bm5ubm5ubm5ubm5uUQIuHBwcHBwcHC8vLy8vLy8vLx4eHh4eNDQoKCgoKCgoVmFYbm5ubm5ubm5ubm5u
UQIuLi4cHBwcHBwcLy8vLy8vLy8eHh4eHh40KCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4cHBwcHBwc
HC8vLy8vLy8vHh4eHh4eNCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4uLhwcHBwcHBw6Ly8vLy8vLy8e
Hh4eHjQ0KCgoV2FYbm5ubm5ubm5ubm5uUAMNLi4uLi4uHBwcHBwcHC8vLy8vLy8vHh4eHh40NCgoV2ZY
bm5ubm5ubm5ubm5uUAMNDS4uLi4uLhwcHBwcHDovLy8vLy8vLx4eHh4eHjQ0V2ZYbm5ubm5ubm5ubm5u
RgMbDQ0uLi4uLi4cHBwcHBwcOi8vLy8vLy8vHh4eHh40V19Ybm5ubm5ubm5ubm5uRgMbGxsNDS4uLi4u
LhwcHBwcHDovLy8vLy8vLx4eHh4eW19Ybm5ubm5ubm5ubm5uTwMbGxsbDQ0uLi4uLi4cHBwcHBwcLy8v
Ly8vLy8vHh4eW19Ybm5ubm5ubm5ubm5uTwQbGxsbGw0NLi4uLi4uHBwcHBwcHDovLy8vLy8vLx4eW2JY
bm5ubm5ubm5ubm5uRQQbGxsbGxsbLi4uLi4uLi4cHBwcHBwcLy8vLy8vLy8eW11Ybm5ubm5ubm5ubm5u
RQQbGxsbGxsbGw0NLi4uLi4uHBwcHBwcHC8vLy8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5ORsbGxsbGxsN
DS4uLi4uLi4cHBwcHBw6Ly8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5OTkbGxsbGxsbGw0uLi4uLi4uHBwc
HBwcOi8vLy8vW11Ybm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsNDS4uLi4uLhwcHBwcHDovLy8vXl1Y
bm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsbGw0NLi4uLi4cHBwcHBwcLy8vXl1Ybm5ubm5ubm5ubm5u
OwQMDDk5OTk5GxsbGxsbGxsNLi4uLi4uHBwcHBwcHDovXlxYbm5ubm5ubm5ubm5uOwUdDAwMOTk5OTkb
GxsbGxsbDS4uLi4uLi4cHBwcHBwcXlxYbm5ubm5ubm5ubm5uOAUdDB0MDDk5OTk5GxsbGxsbGw0NLi4u
Li4uHBwcHBwcYFxYbm5ubm5ubm5ubm5uOAUdHR0MDAwMOTk5ORsbGxsbGxsbDS4uLi4uLhwcHBwcYEpY
bm5ubm5ubm5ubm5uPwUdHR0dDAwMDDk5OTkbGxsbGxsbGw0NLi4uLi4uHBwcYEpYbm5ubm5ubm5ubm5u
PwUdHR0dHR0MDAwMOTk5GxsbGxsbGxsNDS4uLi4uLhwcYEpYbm5ubm5ubm5ubm5uNwUdHR0dHR0dHQwM
OTk5OTkbGxsbGxsbDQ0uLi4uLi4cYFpYbm5ubm5ubm5ubm5uN1JTHR0dHR0dHR0MDDk5OTk5GxsbGxsb
GxsNDS4uLi4uZVpYbm5ubm5ubm5ubm5uMwZTUx0dHR0dHR0MDAwMDDk5OTkbGxsbGxsbDQ0uLi4uZURY
bm5ubm5ubm5ubm5uMwYHB1NTHR0dHR0dHQwMDAw5OTk5GxsbGxsbGxsNLi4uZURYbm5ubm5ubm5ubm5u
LAYHBwdTUx0dHR0dHR0dDAwMOTk5ORsbGxsbGxsNDQ0uZURYbm5ubm5ubm5ubm5uLAYHBwcHB1MdHR0d
HR0dHQwMDDk5OTkbGxsbV1tbXl5gZVlYbm5ubm5ubm5ubm5uLAYHBwcHB1NTHR0dHR0dHR0dDAwMOTk5
GxtISElJSUlZY2pYbm5ubm5ubm5ubm5uKwYABwcHBwcHU1MdHR0dHR0dHQwMDDk5OTlMFBEVGhkYLVhu
bm5ubm5ubm5ubm5uKwAAAAAHBwcHB1NTHR0dHR0dHR0MDAw5OTlOIRQODxAmWG5ubm5ubm5ubm5ubm5u
MQAAAAAABwcHBwdTU1MdHR0dHR0dDAwMDDlBFhcUDiVYbm5ubm5ubm5ubm5ubm5uMQAAAAAAAAAHBwcH
B1MdHR0dHR0dHQwMDAxLCxMXJFhubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAABwcHBwdTUx0dHR0dHR0d
DAxNCRIjWG5ubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAAAAAHBwcHB1NTHR0dHR0dHQxACCdYbm5ubm5u
bm5ubm5ubm5ubm5uIQAAAAAAAAAAAAAGBgYGBgYGBgYGUlIFBQVAClhubm5ubm5ubm5ubm5ubm5ubm5u
ISgoICkpKR8qKio2NjAwNTU1PT09Pj4+R0dCSW5ubm5ubm5ubm5ubm5u////////AAD///////8AAP4A
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAA/8AAPwAAAAH/wAA/AAAAA//AAD8AAAAH/8AAPwA
AAA//wAAKAAAACAAAABAAAAAAQAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wD//v0A/f39AP/9
/AD8/PsA//z5AP/8+AD7+/sA/vv3AP/69gD5+fkA//n1AP759AD3+PcA//jzAP748wD++PIA//fxAPb2
9gD+9/EA9fb2AP738AD+9vAA/vbvAP717wD09PQA/vXuAP717QD99e0A/fXsAPLz8wD+9OwA/vTrAP30
6wDx8vIA/vPqAP3z6gD+8+kA/fPpAP7y6QD+8ugA/fLoAP3y5wDv8PAA/vHnAP7x5gD98eUA/fDmAO7u
7wD98OUA/fDkAP3v5QD97+QA/u/jAP3v4wD97+IA/e7jAP3u4gDs7OwA/e7hAAAAAAD97eEA/e3gAOrr
6gD97d8A/ezfAP3s3gD87N4A/ezdAP3r3gD97NwA6OnpAP3r3AD869wA/evbAP3q2wD86tsA/eraAPzq
2gD96tkA5ufnAP3p2QD86dkA/enYAP3p1wD86NkA5eblAPzo2AD86NcA/OjWAPzn1wD959YA/OfWAPzn
1QDj5OQA/OfUAPzm1QD859MA/ufSAPzm1ADi4+MA/ObTAPzm0gD85dMA/OXSAPzl0QD75dEA/OTRAPzk
0AD75NAA/OTPAPvkzwD749AA/OPPAPzjzgD85MwA++POAPzjzQD84s4A/OLNAPvizQD84swA++LMAPvi
ywD84cwA/OHLAPvhywD74coA+eHKAPzgygD74MoA/ODJAPvgyQD74MgA+9/IAPvfxwD738YA+97HAPve
xgD73sUA9t3HAPvdxQD73cQA+93DAPTcxwD73MMA+tzDAPvcwgD63MIA+9vBAPvbwAD628AA8tnFAPva
vwD927sA+tq+APvavQD72b4A+tm+APDYwwD62b0A+9i8APrYvAD62LsA+ti6AO7WwgD617oA+te5APrX
uAD61rkA/dK/APrWuAD617YA+ta3AOzUwAD61bgA+tW2APnVtgD21bUA+tS1APrUswDp0b4A+tOzAPnT
sgD+1awA9NK0APnSsAD60a4A8dCyAObNuwDu0bAA7dCvAOTMuQD/2JYA782xAOLKuQDtzK8A7MquAN/H
twDexrYA6sesAP/MmQDcxLQA68eoAOfEqwDawrMA5sKpANjAsgD/zoUA5MGoANa+sADiwKYA68CeAPez
swDTu68A372lANy7pADQuKwAzrerAPesrADMtakAybKoAM2xqADltpEA9qGiAP+9YADVpZkAzK2KAPia
mgDRo5MA/rVUAM2ekQDJmY4Ax5iNANiViQCqmpAAxpaMAMWVjADWk4cA1ZOGAMOTjADXkoQAw5KLANaP
gwDLmXMA0JxoAO6hRwD/qTEAu4puAPyiIgDLj1MA55U4AN6LNgDVgjUAAAAAAGZmZgD+/v7+/v7+/v7+
/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+///////////////////////////////+/v7+/v7+/uXi
5+jp6ezt8PLy8vLy8vLy8vLy8vDq//7+/v7+/v7+3qqqqqqqqqqqqqqqqqqqqqqqqqqqye7//v7+/v7+
/v7dZISGio2SlZaZoKKnq7GztLe6u7uq7v/+/v7+/v7+/txkfoKGh4uOlJebnKGkp6+ws7a2uqrv//7+
/v7+/v7+2l51fYGEh4uOkZeWnqGjpquss7O3qu///v7+/v7+/v7ZVm91en6Dh4qNj5WXm6CipqitsLaq
7//+/v7+/v7+/tZQam5xd36ChYqNj5SVmZ2goamtsKrv//7+/v7+/v7+1kdlaGlxcnyBhIeLjpOVlpuh
o6aoqu///v7+/v7+/v7SR11jZWlxdHl+hIeKjY6TlpmeoKaq7//+/v7+/v7+/s8/WFxjZ2lsdHd9hIWH
io6TlZmdoqrv//7+/v7+/v7+zT9NU1hdY2htcXR5fYOHi42SlJaZqu///v7+/v7+/v7KOkhOUlRcY2Zp
b3Z5fYKFio2PlJeq7//+/v7+/v7+/sc6QkhKUVdcY2dobG91eYKFh4qOkarv//7+/v7+/v7+xjBAQ0RJ
TVdZXWFnaXFyeX6BhoiLqu///v7+/v7+/v7DKzk9QURKTFFXXGNnaWxyd3uBhomq7//+/v7+/v7+/sAi
NDY9QENGS1JTWF9jamtueHl/hKrv//7+/v7+/v7+vSIsMTY5PkNESk5SWF1jZWtwcnh9qu///v7+/v7+
/v61HikqLjU3O0FCSE5RUlxgZWlscniq7//+/v7+/v7+/rUZIyYsLTQ4OUBCSUpPV1ldY2hrbqrv//7+
/v7+/v7+rhQdISYqLTE2OT1BRExOVVRbY2hqqu///v7+/v7+/v6lEhccICMnLC8yNjtBQkhMUVdcX2Wq
7//+/v7+/v7+/p8NFhgaHyEmKS80NjtAQkNLUVdaXaru//7+/v7+/v7+mA0QExYaGyAlKS0xNjk+QENI
TVJYqvP//v7+/v7+/v6QCgsPEBUaGx0jJyotNDc7PkXV2+Dk8f/+/v7+/v7+/owHCAkMEBMXGh8jJigt
MzY73/b7/P34//7+/v7+/v7+gAQFCAkMDhAVGhshIygqMTTU4ff5+v/+/v7+/v7+/v57AgMFBggLDBAT
FxsfJCYsMcvQ5vX//v7+/v7+/v7+/nMBAQMFBgkJDA8RFxwcJCYsv8H0//7+/v7+/v7+/v7+YgACBwoN
FBkiKzA6P0dQXmS+4//+/v7+/v7+/v7+/v64mqissrm8wsTFyMzO0dPX2M7r/v7+/v7+/v7+//////gA
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AA
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAH/AAAD/wAAB/8AAA//AA
Af8oAAAAEAAAACAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4JJBAPemQwBmZmYArntuALWC
cgC7iHUA6rN3AMKPeQDIlXwAs4h+AM+cgADVooMA1qOEANyphwDeq4gAuI6LALaRiwDBlpMAxJmVAMac
lgDJnpcA0qSXANOmmADMoZkA1qiaANmtnQDuvaUA77+oAPWzqgDwwasA+tCuAPDDrwDxxbEA+dKxAPrT
sQD61LQA8si1APrVtQD71bYA8sm3APrWuAD717gA+9e5APTJugDzzLoA+ti7APvZvAD62rwA8829APvZ
vgD62r4A+9q/APrbvwD728AA+tzBAPvcwgD73MMA+93DAPvcxAD73sQA+97GAPvfxgD738cA++DIAPvg
yQD74coA/OHKAPvhywD84csA/9XMAPzizAD74s0A++POAPzjzgD85M8A/OTQAPzk0QD85dEA/OXSAPzl
0wD85tMA/ObUAPzn1AD85tUA/OfWAP3n1gD86NcA/OjYAP3p2AD96dkA/OraAP3q2gD86tsA/evbAPzr
3AD8690A/ezdAP3s3gD97N8A/e3fAP3u4AD97eEA/e7hAP3u4gD97+IA/e/jAP3v5AD98OUA/vDlAP3x
5gD98ecA/fLnAP3y6AD+8ukA/fPqAP7z6gD98+sA/fPsAP307AD+9OwA/fXtAP717QD+9e4A/vbuAP72
8AD+9/EA/vjxAP748gD++PMA/vn0AP769QD/+vcA//v3AP/7+AD//fsA//77AAAAAAD///8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIiIiAICAgICAgICAgIC
AoiIiAMZGBYVFxQTEhEQDwKIiIgERD87NzItKSMhHhoCiIiIBUpGQDw4My4oJSIbAoiIiAdSTElCPjo1
LyomHQKIiIgIV1NOSUM/OzYxLR8CiIiICl9bVFBKRkA8NzQgAoiIiAtkYFxWUExHQT05JAKIiIgNbGZi
XVhTTUhCPicCiIiIDXJtaWNeWVVPSkQsAoiIiA14c29qZWFaVlBLMAKIiIgNf3p2cGtnYVtXUSsCiIiI
DYOAfHdxbWhFRRwJAoiIiA2GhIF9eXRuAQEAAoiIiIgNiYeFgn57dQ0GAoiIiIiIDQ0NDQ0NDgwNAoiI
iIjgAf7+wAFqbsABfoLAAY2PwAGZncABqa3AAe//wAH+/sAB/v7AAWVowAFyfMABh4vAAZWWwAOjpsAH
7//AD/7+KAAAADAAAABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAACsrAAY3EhIOORwOEjMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMa
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMRgMFTMaDRQzGg0UMxoNFDMa
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQ5HA4SNxISDisrAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAADMfChkzHA43NBwOSTQaDU8zGg1QMxoNUDMaDVAzGg1QMxoNUDMa
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMhwNUTMa
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDQaDU80HA5JMxwONzMfChkrKwAGAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMcDjczGg14MhsNojMaDa4zGg2vMxoNrzMa
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMa
DbA0HA+yMxoNsDMaDbAzGg2wMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa4yGw2iMxoNeDMc
Djc3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJJfX/+QXV3/j1xc/45b
W/+NWlr/jFlZ/4tYWP+JVlb/h1RU/4dUVP+GU1P/hFFR/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQ
UP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+CT0//gE1N/39M
TP+ATU3/MxsNoTQYDko5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJRh
Yf/yzMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
zP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
zP//zMz//8zM///Mmf+BT0//MxoNrjQaDU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAJRhYf/MzMz/++DH//vfxv/738X/+97F//vdxP/73MP/+tvB//vcwP/72sD/+tq+//vZ
vv/62bz/+9i7//vYuv/617n/+ta4//rVt//61bb/+tW1//rUtP/607P/+tOy//nSsP/50a//+dGv//rR
rv/60Kz/+c+s//nPq//6zqn/+c2o///Ky/+CUFD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJViYv/Nzc3//OHJ//vfyP/738f/+97G//vexf/73cT/+9zD//vc
wv/728D/+9vA//vavv/72r3/+9m9//vYu//62Lr/+9e6//vXuP/61rf/+tW3//rVtf/61LT/+tOz//rT
s//60rH/+tKw//rSr//50a7/+tCt//nQrP/5z6v/+s6q///Jyf+EU1L/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJdkZP/Ozs7/++HK//vhyf/74Mn/+9/H//ve
xv/73sX/+97E//vcw//73ML/+9zB//vbwP/727//+9q+//vZvf/62Lv/+ti7//rYuv/717n/+ta4//rV
t//61bb/+tW1//rUs//507L/+tKx//rSsP/50a//+dGu//nQrv/6z6z/+c+r///IyP+FVFP/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJhlZf/Q0ND/++HL//zi
y//84Mr/++DJ//vfyP/838f/+97G//vexP/73cP/+9zC//vbwv/728H/+tq///vavv/62b7/+9m8//vY
u//72Lr/+te5//vXuP/61bf/+tW2//rVtf/61LT/+tSy//rSsv/50rD/+tKw//nRrv/60K7/+tCs///G
x/+HVVT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm
Zv/R0dH//OPN//zizP/84cz//ODK//vhyf/838j//N/H//vexv/73sX//N7E//vcw//73ML/+9zB//va
wP/72r//+tq+//vZvf/62Lz/+ti6//vXuf/617n/+ta3//rVt//61Lb/+tS0//rTs//507P/+tKx//rS
sP/60a//+tCu///Fxf+IV1b/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAJxpZ//S0tL//OPP//zjzv/74s3/++LM//zhy//74cn/++DI//zfx//83sf//N7G//ve
xP/73MP/+9zC//vbwf/728D/+9q///vZvv/72b3/+ti8//vYu//717r/+9a5//rWuP/61bf/+tW2//rU
tP/61LT/+tSy//rTsv/60rD/+dGv///Dw/+JWVf/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ5raP/T09P//OXQ//vkz//8487//OLN//zhzP/74cv/++HK//vg
yP/738f/+97G//zexf/73sX/+93E//vcw//73ML/+9vA//rawP/62r7/+tm+//rYvP/62Lv/+9i6//rX
uf/617j/+ta3//rVtv/61LX/+tS0//rTs//607L/+dKx///Cwv+LWVj/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKFuav/V1dX//OXS//zk0f/849D//OPO//zi
zf/84sz//OHL//vhyv/84Mn/++DI//vex//73sb/+93F//vdxP/73cP/+9zB//vcwf/727//+9q+//va
vf/72b3/+ti7//rYu//617r/+ta4//rWt//61rb/+tW1//rUtP/607P/+tOz///BwP+MW1r/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKNwa//W1tb//ObT//zl
0v/85ND/++TP//zkzv/7483/++LN//vizP/84Mv/++HJ//vgyP/738f/+97G//vexf/73sT/+93E//vc
wv/73MH/+9vA//rav//62r7/+9m9//rZvP/62Lr/+ti5//vXuf/61rf/+tW3//rVtv/61bT/+tOz//+/
v/+NXVv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKVy
bP/X19f//ObU//zm0//85tL//OXR//zk0P/848///OPO//vizf/74sz/++HL//zhyv/84Mj/+9/I//ve
x//73sX/+97E//vdw//73MP/+tzB//vbwP/728D/+9q+//vavf/72Lz/+ti7//rYuv/617n/+ta4//rW
tv/61bb/+tS0//++vf+OX1z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAKh1bv/Y2Nj//OfW//zm1f/85tP//OXS//zl0f/85ND//OPQ//zjzv/84s3//OLN//vh
y//84Mr/++DJ//vgyP/738f/+97G//vexf/73cT/+9zD//vcwv/728H/+9vA//ravv/62r7/+9m8//vY
vP/617r/+9i5//rXuP/61bf/+ta3//+8vP+QYF7/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKt4b//a2tr//OjX//zn1v/859X//ObU//zm0//85dL//OXR//zk
0P/848//++LO//vizP/84sv/++HL//zgyv/738j/+9/H//zfxv/83sb/+93E//vdw//73MP/+9vB//rb
wP/72r//+9q+//vZvf/62bv/+ti6//rYuv/617n/+ta4//+7uv+SYV//MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK57cP/b29v//ejZ//zo1//86Nf//OfV//zn
1P/85tT//OXS//vl0f/85ND//OPP//vjzv/84s3/++HM//zhyv/74Mr//ODI//zfyP/738f/+97F//vd
xP/73cT/+9zC//rbwv/628D/+tu///vavv/72b3/+tm8//rYu//62Lr/+te5//+6uf+SY2H/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALB9cf/c3Nz//OnZ//3p
2f/86df//OjW//zo1f/85tX//ObU//zm0//75dH/++TQ//zj0P/8487//OLN//vhzf/74cv/++HK//vg
yf/738j/+97H//vexf/73sX/+93E//vcw//63ML/+9vB//vbv//72r7/+tm+//vZvP/72Lv/+te7//+4
uP+UZGL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALJ/
c//d3d3//Orb//zq2v/96tn//OnY//zo1//86Nb//efV//zm1P/85tL//OXS//zk0f/849D//OPP//zi
zv/84sz/++HM//vhyv/84Mn//ODI//vfx//73sb/+97F//vdxP/73cP/+9zC//vcwf/628D/+9u///rZ
vv/62bz/+ti7//+2t/+VZmT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAALaDdP/f39///Ovc//3q2//96tv//enZ//zp2P/96Nf//OjW//zn1f/85tT//OXT//zl
0v/85NH//OTQ//vjz//8487/++LN//ziy//84cv/++DJ//vgyP/838j//N/G//vexf/73sT/+93D//vc
wv/73ML/+9vB//vawP/72r7/+tq9//+1tf+XaGX/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAALiFdf/g4OD//eze//zr3f/969z//Ora//zq2v/86dn//OnY//3n
1v/859X//OfV//zm0//85tL/++XR//zk0P/749D/++PO//zizf/74sz/++HL//vgyv/74Mn/++DI//zf
x//73sb/+93F//vdw//73MP/+tzC//vbwf/727//+9q+//+0tP+YaWf/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALuId//h4eH//O3f//3s3//87N3//evc//3q
2//86tr//OnZ//zp2P/96Nf//OjV//zn1f/85tT//ObT//zl0v/75ND//OTP//vjzv/8487//OLN//vh
y//84cr//ODJ//vgyP/738f/+97G//vexf/73cT/+93D//vcwv/73MH/+9vA//+ysv+Zamj/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL6LeP/i4uL//e7g//3t
4P/97d7//eze//3r3P/86tz//Ora//3p2f/86dj//ejX//zo1v/859X//OfU//zm0//85tL//OXR//vk
0P/85M///OLO//zjzP/84cv//OHK//vhyf/74Mn/+9/I//vfx//73sb/+97F//vdxP/73ML/+tvC//+w
sf+bbGr/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMCN
ef/k5OT//e7i//3u4f/87eD//ezf//3s3v/9693//evc//3r2//96dr//enZ//zo2P/859f//OfV//zn
1P/85tT//ObS//zl0f/85ND/++PQ//zjzv/7487/++LM//vhy//74cr//ODJ//vfyP/83sb//N7G//ze
xf/73sT/+9zC//+wr/+cbWv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAMOQe//l5eX//fDj//3v4v/97uH//e3g//3t4P/87N7//evd//3q3P/969v//Ora//3p
2f/96dj//OjW//zo1f/859X//ObU//zm0v/85dL/++XQ//zkz//848//++PN//vizf/74sz/++HK//vg
yv/738j/+9/H//vfxv/73cX/+97E//+urf+db2z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMWSff/m5ub//vDl//3v5P/+7+P//e7h//3u4P/97d///e3e//3r
3f/8693//erb//3q2v/86tn//enY//zp1//86Nb//OfW//zm1P/85tP//OXS//zl0f/85ND/++TP//vi
zv/84s3//OLM//vhyv/74Mn//ODJ//vfx//738b/+97F//+srf+fcW3/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMiVfv/n5+f//fHm//7w5f/97+T//u/j//3u
4v/97uH//e3g//3s3//8693//Ovd//zq2//969r//era//zp2P/96df//OfX//3n1f/859X//ObU//zl
0v/85NH//OTQ//zjz//8487//OLN//zizP/74cv//OHK//vgyf/738j//N/H//+rq/+gcm//MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMqXf//p6en//fLn//3x
5v/98eb//fDl//3v4//97uL//e7h//3t4P/97eD//eze//zr3f/869z//erb//zp2v/96dn//OjY//zo
1//959b//OfV//zm0//85dL//OXS//vl0f/75ND/++PP//zizf/74s3//OHL//zgyv/74Mr/++DI//+p
qf+hdHD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM2a
gP/q6ur//vLp//7x5//98uf//fDm//3w5f/+7+P//e7j//3u4f/97eD//e3g//3s3//97N7//evc//zq
2//96tv//erZ//zo2P/96Nf//OfW//zn1f/85tT//ObT//zm0f/85NH//OTQ//zjzv/7487//OLN//zh
y//74cv/++DK//+oqP+idXL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAANCdgf/r6+v//fPq//7y6f/98uj//fHn//7x5v/98OX//fDk//3v4v/97uL//e7h//3t
4P/97N///eve//3r3P/969v//era//zp2v/86dj//OnX//3o1v/859X//ObU//zm0//85tL//OXR//zk
0f/848///OPO//vizf/74sz/++HL//+np/+jd3P/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAANOggv/s7Oz//fTs//3z6v/98+r//fLo//3x5//98eb//vDl//3w
5f/+7+T//e/j//3u4f/97eD//e3f//3s3v/97N3//Ovc//3q2//96tr//OnZ//zo2P/96Nf//OjV//zn
1P/859P//OXT//vl0f/85dD//OPQ//vjzv/84s7/++LM//+lpf+leXT/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANWihP/u7u7//vXt//707P/+8+v//vPq//3y
6P/98uj//fHn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97N///eze//3r3P/869v//Ora//3p
2f/96dj//ejX//zo1v/859X//OfU//zm0//85dL//OTR//zk0P/75M///OPO//+kpP+menb/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANilhf/v7+///vXu//71
7f/+9Oz//fPr//7z6v/+8+r//vLo//3y5//+8eb//fDl//3v5P/97uP//e/h//3u4P/97eD//O3f//zs
3v/9693//erc//zq2//86tn//enY//3o1//86Nf//efV//zn1f/85tP//OXS//zl0f/85ND/++TP//+i
o/+oe3f/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANqn
hv/w8PD//vbw//727//99u3//vTt//306//+8+v//vPp//3y6f/+8uj//fHn//3w5f/97+T//e/k//7v
4v/97uH//e3g//3t3//97N7//evd//zr3P/969v//era//zp2P/86Nj//OjX//zn1v/95tX//efU//zm
0//85dH//OXQ//+goP+pfXj/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAN2qiP/x8fH//vfx//738P/+9e///fbu//717f/99Oz//vTr//3z6v/98+n//fHn//7x
5v/98eb//fDl//3w5P/97+P//e7i//3u4f/97eD//e3f//3r3f/969z//erc//zq2v/96dn//OnY//zo
1//86Nb//OfU//zm1P/85dP//OXS//+gn/+qf3n/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOCtiv/z8/P//vjz//738v/+9/D//vbw//327v/+9e3//fTt//30
6//+8+r//fLp//7y6f/+8ef//vDm//3w5f/98OT//e/j//3u4v/97uH//e3g//3s3//97N7//Ozd//3r
3P/96tr//OnZ//zp2P/96dj//OfW//zn1f/85tX//ObU//+enf+rgHv/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOOwi//09PT///j0//748//++PL//vfx//73
8P/+9u///vXu//707P/+9Ov//vPr//3y6v/+8un//fLo//3x5v/98OX//fDk//3v4//97+L//e7h//zu
4P/97d///Oze//3r3f/869z//erb//3q2v/86dn//ejX//zo1//86Nb//OfV//+cnf+sgn3/NBsNrTQa
DU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOWyjP/19fX//vn2///4
9P/++PP//vfy//748f/+9/D//vXv//727v/99e3//vTs//706//98ur//vLp//3y5//98ef//vHm//7v
5f/97+P//e/i//3v4v/87uD//ezf//3s3//97N3//Ovc//+8vf//uLf//7Oz//+urv//qan//6Sk//+g
n/+ug37/Nx4RozgcEUk5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOe0
jv/29vb//vr3//769v/++fT//vj0//748//+9/H//vfx//727//+9u///fXt//717f/+8+v//vPr//7y
6f/+8uj//fLn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97d//upGK/7mPiP+2jIb/tYqF/7OI
hP+yh4P/sYaB/7BwcP+bamn/OyEVhUAgFzg7JxQNAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAOq3j//4+Pj//vv4//769//++fb///n1//749P/++PL//vfy//738f/+9vD//vbu//31
7v/+9e3//vPr//7z6//98+r//vLp//7y6P/98eb//fDl//7v5f/97+T//e7i//3u4f/97eD/pXJs//+0
Uv//mQD/9Y8A/+uFAP/gegD/1nAA/79mGf9+UU7XQSUZUkQiGh5VKysGAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAO26kP/5+fn//vz6///7+P//+/f//vr2//759v/++fT//vjz//73
8v/+9/H//vbw//727//+9e7//vXt//716//+8+v//vLq//3y6f/98ej//fHn//3x5v/98OX//e/k//3v
4//97uH/qHVu///Mmf//tFL//7BE//+rNv//qC3/2Yw5/4BTUNhAIxpXRyMcJE0zGgqAAAACAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPC9kf/6+vr///37///8+v///Pn///v4//76
9v/++vb//vn1//758//++PP//vfx//738f/99vD//vXv//717v/+9Oz//fTr//3z6v/98+n//fHo//3x
5//98eb//fHl//3w5P/97+P/q3hv///Wo///t1v//7RS//+wRP/bk0n/g1ZS2EMmGldFKRwlRi4XC4AA
AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPPAkv/7+/v///38///9
/P///Pv//vz5//77+P/++/f///r2//759f//+fT//vjy//748v/+9/D//vbv//727//+9e3//fXs//70
7P/98+r//vLp//3y6f/98ef//vDm//3w5f/98OX/rntw///grf//u2f//7db/92bW/+HWlTYQyYaV0Up
HCVGLhcLgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPXC
k//9/f3///7+//7+/P///fz//vz7//78+f/++/j//vv3///69v/++fX//vj0//749P/++PL//vfx//72
8P/+9u///vXu//307f/99Oz//vTr//7z6v/+8un//fHo//7x5//98Ob/sH1x///ruP//wHT/3qFq/4pd
VthDJhpXRSkcJUYuFwuAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAPfElf/+/v7//////////v///v3//v78//79+////Pr///v4///79///+vf///r2///5
9f//+PP///jy//748f/+9/D//vbw//717v/+9e3//vTs//7z7P/+8+r//vLp//7y6P/98ef/sn9z///1
wv/gqHv/jmFX2kYpHVhMKRwlRi4XC4AAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPrHl/////////////7+/v/9/f3//Pz8//z8/P/7+/v/+vr6//r6
+v/5+fn/+Pj4//f39//39/f/9vb2//X19f/19fX/9PT0//Pz8//z8vL/8vHw//Hw7//w7uz/8O3r/+/s
6f/u6+j/toN0/+zftv+OYlbkRikbaUsyJSlVKxUMgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP7Lmf/81rH/+tSw//jRrv/1z63/882r//HL
qv/uyKn/7MWo/+rDpv/owaX/5b+k/+O9ov/guqH/3ref/9u1nv/as53/17Gb/9Wumv/SrJn/0KqY/86n
lv/LpZX/yaOU/8agkv/EnpH/uIV1/7WCdJ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPwAAAAADwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAA8AAPwA
AAAAHwAA/AAAAAA/AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAP/8AACgAAAAgAAAAQAAAAAEA
IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANxISDjYXDyE0GhAxNhsNOTQa
DTszGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMa
DTw0Gg07MhsOODQaCjE2Fw8hNxISDlUAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2Fw8hNBoNTjMb
DXMzGw2GMxoNizMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMa
DYwzGg2MMxoNjDMaDYs0Gw2FMxsNczIaDU02Fw8hQCAACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAM2b
iuvSn5Pwy5qN9siXi/nGlov6xpaL+sWUivrEk4r6wpGJ+sKQifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQ
ifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQifnXkob4MxsNczQaEDFAFRUMAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAzbGo//3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3S
v//90r///dK///3Sv//90r///dK///3Sv//90r///8yZ/9WRhfo0GQ2FMRsNOTsUFA0AAAABAAAAAAAA
AAAAAAAAAAAAAAAAAADJsqj/4eLi//vgyf/738j/+97G//vdxf/63MP/+9vB//vawP/62r//+tm9//rY
vP/617n/+ta4//nVtv/51LX/+tSz//nTsv/50rD/+tGv//rRrf/90r//1ZGF+zMaDYs0Gg07NxISDgAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAMy1qf/i5OP/++HL//vgyv/738j/+9/H//vexf/73cT/+tzC//rb
wP/62r7/+9q9//vYvP/62Lr/+te5//rVuP/61Lb/+tS0//rTs//60rL/+dKw//3Sv//UkYT7MxoNjDMa
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAzrer/+Pk5P/8483//OHL//zgyv/74Mn/+9/H//ve
xf/73cT/+9zD//rbwP/727//+tm+//vZvP/62Lv/+te6//rWuP/61rb/+tS1//rUtP/507L//dK//9SR
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADQuKz/5ebm//vkz//8483/++LM//vh
y//84Mn/+9/H//vexv/73cX/+93D//vbwf/628D/+tq+//rZvf/62Lz/+te6//rXuP/61rf/+tW1//rT
s//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAANK6rv/m5+f/++XR//zk
z//848///OLN//vhy//74Mr/++DI//vexv/73cX/+93D//rcwv/728H/+9q///vZvv/62bz/+9i7//rW
uf/61bf/+tW2//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA07yv/+fo
6P/85tP//OXS//zl0P/848///OPO//zhzP/84Mr/++DJ//vfx//73sX/+93E//vcwv/728H/+9vA//ra
vv/72L3/+ti7//rXuv/617j//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
AADWvrD/6Onp//zn1f/85tT//ObT//zl0f/848//++PN//zizP/74cv/++DJ//vfx//73sb/+93F//rd
xP/728L/+9vA//vZv//62b7/+tm8//rXuv/90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAANjAsv/p6ur//OjX//zn1v/85tT//OXT//zl0f/85ND/++PO//zizf/84cv/++DJ//vg
yP/738f/+97G//vdxP/73ML/+tvB//vav//72b7/+ti8//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAA2sKz/+rr6//96dr//enY//zo1//859X//ObU//vl0v/75ND//OPP//vj
zv/84sz//OHL//zgyf/738f/+97F//vdxf/63MP/+tzB//vbwP/72r7//dK//9SRhPszGg2MMxoNPDcS
Eg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADcxLT/6+zs//3r3P/86tr//OnZ//3o1//859b//ObU//zm
0v/85dH/++TP//zizv/84sz//OHL//vgyv/74Mj/+97G//vdxf/73cP/+tzC//rbwP/90r//1JGE+zMa
DYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAN7Gtv/t7e3//eze//3r3P/969v//enZ//zo
2P/859b//ObU//zl0//85dL//OTQ//vkzv/8483//OLM//vgyv/74Mj/+9/H//vexv/73cT/+9zD//3S
v//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA38e3/+7u7//97d///Oze//3s
3f/869v//era//zo2P/86Nb//OfV//zn0//85dP//OXR//zjz//8487//OLM//vhy//84Mr/+9/I//vf
xv/73sT//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADiyrn/7+/v//3u
4v/97eH//ezf//3s3f/969v//Orb//3p2f/86Nj//OfW//zm1P/85dP//OXR//zk0P/8487//OLN//vi
y//84Mr/+9/I//vex//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAOTM
uf/w8fH//e/k//3v4//97eH//e3f//zs3v/97Nz//erb//zp2f/96dj//OjX//zn1P/85tT/++XR//zk
0f/85M//++LN//zizP/74cr/++DJ//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAA5s27//Hy8v/+8ef//fDl//3v4//97uL//e3g//zt3v/97N3//evb//zp2v/86dn//OjX//zn
1f/85tT//ObT//zk0f/749D//OPO//vizf/84cv//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAA
AAAAAAAAAAAAAAAAAADo0L3/8vPz//3y6P/98uf//fHl//7v4//97+L//O7h//3s3//97N7//evc//zq
2v/96dn//OnY//zn1v/85tX//ObT//zl0f/85ND//OPO//vizf/90r//1JGE+zMaDYwzGg08NxISDgAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAOrRvv/z9PT//vPq//3z6f/+8ef//fHm//3v5P/97uP//e7i//3t
3//97N7//Ovd//3r2//96tn//OjY//zo1v/859X//ObU//zl0v/85NH//OTP//3Sv//UkYT7MxoNjDMa
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA7NTA//X19f/99ez//fPr//3y6f/98uf//vHm//3w
5f/97+P//e7i//3t4f/97N///evd//zq2//86tr//OjZ//3p1//959b//ObU//zl0v/75NH//dK//9SR
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADu1sL/9vb2//727//99e3//vTr//7z
6v/+8un//vHn//3w5v/98OT//e/j//zu4f/97N///eze//3r3P/86tv//enZ//zo2P/859b//OfU//zm
0//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAPDYw//39/f//vbw//71
7//99e7//vTs//306v/98+n//fHo//3w5v/97+T//e/j//3u4f/97d///eze//zs3f/96tv//enZ//zo
2P/859f//OfV//3Sv//VkYX7MxoNizQaDTs3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA8tnF//j4
+P/++PL//vfx//728P/+9e7//vTt//706//+8+n//fLo//7x5v/98OX//e/j//3u4v/97eD//O3f//zs
3v/969z//era//zp2f/86Nf//dK//9WNgfs3HhGHNh8SOTckEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
AAD03Mf/+fn5///59f/++PP//vjx//738P/+9e7//vXt//307P/+8+r//vLp//3x5//+8Ob//e/k//3v
4v/97uH//e3g//3r3v/3s7P/96ys//ahov/4mpr/1pCC+z4jF3xBKBkzQCsVDAAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAAPbdx//6+/v//vv3///69f/++PT//vjy//738f/+9u///vXu//707P/+8+r//fPp//7x
6P/+8eb//e/l//3v4//97uH/5baR/+6hR//nlTj/3os2/9WCNf+1gGHqSS8iYkg0Jyc5ORwJAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAA+ODK//z8+///+/n//vv3///69v/++fT///jz//738v/+9/D//vXu//71
7f/99Ov//vPq//7y6P/98ef//fDl//3v5P/rwJ7//71g//+pMf/8oiL/x4ZG7V9DM39RNys8WUAzFEBA
QAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD64sr//fz9///9+////Pn///v4//769//++fX//vnz//74
8v/+9vH//vbv//717f/+9Oz//fPq//3y6f/+8ef//fDl/+vHqP//zoX//rVU/82VXe5fQzSDVDgsQFg7
MRpJSSQHAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPzkzP/+/v7///79///9/P///Pr///z4///6
9//++vb//vn0//748///9/H//vbv//317f/99O3//fPq//3z6f/+8ef/7dCv///Ylv/Ik2rwXkEzhlE6
K0JVQi8bYEBACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/ufS///////9/f3/+/v7//n5
+f/3+Pf/9fb2//T09P/y8vL/7/Dw/+7u7v/s7Oz/6uvq/+jp6f/l5+f/5OXk/+Lj4//u0bD/yqqG9lw/
MKJROCxSWkIxH2BAQAgAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD+1Kr5/dq5+frX
tvn51rT59tSz+fTRsvnxz7D578yv+e3Lrfnsyaz56caq+ebDqfnkwaf548Cm+eG+pPneu6P527mi+d+v
j8bap4YUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAAA/AAAAHwAAAB8AAAAfAA
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAA
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAA/AAAAPwAAAH8AAAD/AAAf8oAAAAEAAAACAA
AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzHA43MxoNeDIbDaIzGg2uMxoNrzMa
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrjIbDaIzGg14MxwONwAAAAAAAAAArntu/9mtnf/WqJr/06aY/9Kk
l//MoZn/yZ6X/8aclv/EmZX/wZaT/7aRi/+4jov/MxsNoTQYDkoAAAAAAAAAALWCcv/84cv/++DI//ve
xP/73ML/+tq+//rYu//717j/+tS0//nSsf/60K7/7r2l/zMaDa40Gg1PAAAAAAAAAAC7iHX//OTP//zi
zP/74Mn/+97G//vcw//72r//+9m8//rWuP/61bX/+tOx/++/qP8zGg2vMxoNUAAAAAAAAAAAwo95//zn
1P/85NH//OPO//zhyv/738f/+9zE//vbwP/62rz/+9e5//vVtv/wwav/MxoNrzMaDVAAAAAAAAAAAMiV
fP/86Nj//ObV//zl0v/8487/++HL//vgyP/73sT/+tzB//vZvv/62Lv/8MOv/zMaDa8zGg1QAAAAAAAA
AADPnID//Ovd//3q2v/859b//ObT//zkz//84sz/++DJ//vexv/73ML/+tu///HFsf8zGg2vMxoNUAAA
AAAAAAAA1aKD//3u4P/97N3//Orb//zo1//85tP//OTR//vizf/74cr/+9/G//vdw//yyLX/MxoNrzMa
DVAAAAAAAAAAANyph//+8OX//e7h//3s3//969v//enY//zm1f/85dH/++PO//zhyv/738f/8sm3/zMa
Da8zGg1QAAAAAAAAAADcqYf//fPq//3x5v/97+P//e3f//zr3P/96dn//efW//zl0//85M///OHL//PM
uv8zGg2vMxoNUAAAAAAAAAAA3KmH//317f/+8+r//fLn//3v5P/97eH//eze//zq2v/86Nf//ObT//zk
0P/zzb3/NRsPqjUaDU0AAAAAAAAAANyph//++PL//vXu//307P/98uj//fDl//3u4v/97N7//era//zo
2P/85tT/9Mm6/zogEZk9IhNDAAAAAAAAAADcqYf///r3//748//+9vD//vTs//7y6f/98eb//e/i///V
zP//1cz/9bOq/6l4bOBCKBh0SCccLgAAAAAAAAAA3KmH///9+///+/f//vn0//738f/+9e3//fPr//3x
5//3pkP/96ZD/+CSQP5HKxqRTi4gSFk3IRcAAAAAAAAAANyph/////////77///7+P/++vX//vjx//72
7v/98+z/3KmH/+qzdv5oSDLCTzMkZFM3IiVVORwJAAAAAAAAAADcqYf/3KmH/9yph//cqYf/3KmH/9yp
h//eq4j/1qOE/9yph//ZqYktAAAAAAAAAAAAAAAAAAAAAMAAAADAAAAAwAAAAMAAAADAAK7/wADn/8AA
0f/AAM//wADP/8AAzf/AAMv/wADK/8AAyP/AAMb/wADF/8APw/8=
</value>
</data>
</root>

1
.svn/pristine/0f/0fa44a3746a1e5a6a0e12cac543df9ceffc63f30.svn-base Normal file
View File

@@ -0,0 +1 @@
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

159
.svn/pristine/0f/0fb02dc3d70031278fb70d488aafb28f195292c0.svn-base Normal file
View File

@@ -0,0 +1,159 @@
Imports C1.Win.C1TrueDBGrid
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace TKB.VV.Utils
Public Class clsToolTips
Public WithEvents MyTooltip As New ToolTip
Dim ToolTipData As DataSet = Globals.ToolTipDaten
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim l As New List(Of Control)
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
Public Function Edit_ToolTips(ByRef frm As Form, ByRef ctlcol As Collection)
Me.Load_Data()
l.Clear()
Me.GetControl(frm, "*", l)
For Each s As Control In l
Try
MyTooltip.SetToolTip(s, frm.Name + "|" + s.Name)
MyTooltip.Tag = frm.Name
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next
'For Each ctl As Control In ctlcol
' Try
' MyTooltip.SetToolTip(ctl, "SetToolTip")
' MyTooltip.Tag = frm.Name + "|" + ctl.Name
' Catch ex As Exception
' End Try
'Next
End Function
Private Sub MyTooltip_Popup(ByVal sender As Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles MyTooltip.Popup
'MsgBox(e.AssociatedControl.Name)
evh.Edit_Tooltip(MyTooltip.Tag, e.AssociatedControl.Name)
'Dim s As String = MyTooltip.Tag
'Dim sp() As String
'sp = s.Split("|")
'evh.Edit_Tooltip(sp(0), sp(1))
End Sub
Public Function Set_ToolTips(ByRef frm As Form)
Me.Load_Data()
'MyTooltip.ToolTipIcon = ToolTipIcon.Info
MyTooltip.IsBalloon = True
MyTooltip.UseFading = True
MyTooltip.UseAnimation = True
Dim dv As New DataView(ToolTipData.Tables(0), "Aktiv = 1 and (Formularname='" & frm.Name & "' or Formularname='Allgemein')", "", DataViewRowState.CurrentRows)
For Each dr As DataRowView In dv
l.Clear()
Me.GetControl(frm, dr.Item("Controlname"), l)
Try
For Each ctl As Control In l
Try
MyTooltip.SetToolTip(ctl, dr.Item("ToolTip"))
Catch
End Try
Next
Catch ex As Exception
End Try
Next
End Function
''' <summary>
''' Daten ab Datenbank laden
''' </summary>
''' <remarks></remarks>
Private Sub Load_Data()
Try
If ToolTipData.Tables.Count < 1 Then
ToolTipData.Tables.Clear()
Else
Exit Sub
End If
Catch ex As Exception
End Try
ToolTipData.Tables.Clear()
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "dbo.my_tooltip_get_data"
'sqlcmd.Parameters(1).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ToolTipData, "Tooltips")
Globals.SecurityDaten.Tables.Add(ToolTipData.Tables(0).Copy)
Catch ex As Exception
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
End Sub
#Region "Utils"
''' <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
End Class
End Namespace

BIN
.svn/pristine/0f/0ffad2dd1a64254f762bd6f8b45be47d9a37766a.svn-base Normal file
View File

Binary file not shown.

4217
.svn/pristine/10/106fb66764c89ecbc05b2217ea91be495491d0d7.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

28
.svn/pristine/10/10f052bbf4f45be952817307f77978d0294989f4.svn-base Normal file
View File

@@ -0,0 +1,28 @@
Public Class frmDataSelect
Dim m_selectedvalue As String
Property SelectedValue As String
Get
Return m_selectedvalue
End Get
Set(value As String)
m_selectedvalue = value
End Set
End Property
Private Sub frmDataSelect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
End Sub
Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
Me.SelectedValue = Me.C1Daten.Columns(0).Value
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub C1Beziehungen_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles C1Daten.MouseDown
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
Exit Sub
End Sub
End Class

491
.svn/pristine/10/10feccb2c4ebe79816ba7ef0a654e1e66093b621.svn-base Normal file
View File

@@ -0,0 +1,491 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'key_tabelle'
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'key_tabelle'.
''' </summary>
Public Class clsKey_tabelle
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
Private m_sBeschreibung As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>sBeschreibung</LI>
''' <LI>iKey_wert</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iKeynr</LI>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iKeynr</LI>
''' <LI>sBeschreibung</LI>
''' <LI>iKey_wert</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iKeynr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iKeynr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iKeynr</LI>
''' <LI>sBeschreibung</LI>
''' <LI>iKey_wert</LI>
''' <LI>iMandantnr</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
m_iMandantnr = SqlInt32.Null
Else
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
End If
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iKeynr]() As SqlInt32
Get
Return m_iKeynr
End Get
Set(ByVal Value As SqlInt32)
Dim iKeynrTmp As SqlInt32 = Value
If iKeynrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
End If
m_iKeynr = Value
End Set
End Property
Public Property [sBeschreibung]() As SqlString
Get
Return m_sBeschreibung
End Get
Set(ByVal Value As SqlString)
Dim sBeschreibungTmp As SqlString = Value
If sBeschreibungTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
End If
m_sBeschreibung = Value
End Set
End Property
Public Property [iKey_wert]() As SqlInt32
Get
Return m_iKey_wert
End Get
Set(ByVal Value As SqlInt32)
Dim iKey_wertTmp As SqlInt32 = Value
If iKey_wertTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
End If
m_iKey_wert = Value
End Set
End Property
Public Property [iMandantnr]() As SqlInt32
Get
Return m_iMandantnr
End Get
Set(ByVal Value As SqlInt32)
m_iMandantnr = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

3682
.svn/pristine/12/12289b5b3a4b856d5d96c426bb87c10c40ece4b0.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
.svn/pristine/12/12d9c0d2e06d3074315f0bfc19473347cc6c4661.svn-base Normal file
View File

Binary file not shown.

3747
.svn/pristine/13/1342ba27dce609069689e48d1341762088b7cbb6.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

192
.svn/pristine/15/15e1607afd4f9195af1a789b00978b9637cda309.svn-base Normal file
View File

@@ -0,0 +1,192 @@
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports DevComponents
Public Class clsHistory
Inherits DB.clsPruefSchrittHistory
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
Dim mMutierer As String
Property MutiererText() As String
Get
Return mMutierer
End Get
Set(ByVal value As String)
mMutierer = value
End Set
End Property
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.iPruefschrittNr = 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("PruefschrittHistory")
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.sBeschreibung = New SqlString(CType("", String))
Me.daEintragdatum = New SqlDateTime(CType(Now, DateTime))
Me.iPruefSchrittHistoryNr = New SqlInt32(CType(newkey, 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.iPruefSchrittHistoryNr.Value
End Function
Public Function Insert_History(pruefschrittnr As Integer, type As Integer, String1 As String, String2 As String)
Dim i As Integer = Me.Add_New()
Me.iPruefschrittNr = New SqlInt32(CType(pruefschrittnr, Int32))
Select Case type
Case 0
'String1 = individuelle Beschreibung für den HistoryEintrag
Me.sBeschreibung = New SqlString(CType(String1, String))
Case 1
'String1 = Mitarbeiternr Absender
'String2 = Mitarbeiternr Empfänger
Dim ma As New clsMitarbeiter
String1 = ma.Get_Mitarbeitername(String1)
String2 = ma.Get_Mitarbeitername(String2)
ma.dispose()
Me.sBeschreibung = New SqlString(CType("Assessment zugeteilt von " + String1 + " zu " + String2, String))
Case 2
Dim ma As New clsMitarbeiter
String1 = ma.Get_Mitarbeitername(String1)
Me.sBeschreibung = New SqlString(CType("Assessment abgeschlossen von " + String1, String))
End Select
Me.Save_Data()
End Function
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Pruefschrittnr 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_pruefschritthistory"
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Pruefschrittnr))
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, "Pruefschritthistory", 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
End Class

99
.svn/pristine/19/190649864a49e5946a5f5d0218a07b317679fc35.svn-base Normal file
View File

@@ -0,0 +1,99 @@
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class frmKategorie
Dim Kategorie As New clsKategorie
Dim KategorieTree As New clsKategorieTree
Dim m_kategorienr As Integer
Property Kategorienr As Integer
Get
Return m_kategorienr
End Get
Set(value As Integer)
m_kategorienr = value
End Set
End Property
Dim m_parent As Integer
Property ParentID As Integer
Get
Return m_parent
End Get
Set(value As Integer)
m_parent = value
End Set
End Property
Private Sub frmKategorie_Load(sender As Object, e As EventArgs) Handles MyBase.Load
KategorieTree.Load_Treeview(Me.TreeKategorie)
If m_kategorienr <> 0 Then
Kategorie.Get_Data(Me.m_kategorienr)
Get_Data()
Else
Me.TreeKategorie.SelectedNode = KategorieTree.FindNode(Me.TreeKategorie.Nodes, Me.ParentID, Me.ParentID)
Me.txtStrukturNr.Text = ""
Me.txtKategorie.Text = ""
Me.txtBeschreibung.Text = ""
End If
End Sub
Private Sub Get_Data()
Me.txtStrukturNr.Text = Kategorie.sBeschreibung.Value.ToString
If Kategorie.sBeschreibung_Lang.IsNull Then
Me.txtBeschreibung.Text = ""
Else
Me.txtBeschreibung.Text = Kategorie.sBeschreibung_Lang.Value.ToString
End If
Me.txtKategorie.Text = Kategorie.sBezeichnung.Value.ToString
Me.TreeKategorie.SelectedNode = KategorieTree.FindNode(Me.TreeKategorie.Nodes, Me.Kategorienr, Me.Kategorienr)
If Not IsNothing(Me.TreeKategorie.SelectedNode.Parent) Then
Me.TreeKategorie.SelectedNode = Me.TreeKategorie.SelectedNode.Parent
End If
End Sub
Private Sub Save_Data()
If Me.Kategorienr = 0 Then
Me.Kategorienr = Kategorie.Add_New
Kategorie.Get_Data(Me.Kategorienr)
End If
Kategorie.sBeschreibung = New SqlString(CType(Me.txtStrukturNr.Text, String))
Kategorie.sBeschreibung_Lang = New SqlString(CType(Me.txtBeschreibung.Text, String))
Kategorie.sBezeichnung = New SqlString(CType(Me.txtKategorie.Text, String))
If Me.Kategorienr = Me.TreeKategorie.SelectedNode.Tag Then
'keine Änderung
Else
Kategorie.iParentid = New SqlInt32(Me.TreeKategorie.SelectedNode.Tag)
End If
If chkroot.Checked = True Then
Kategorie.iParentid = New SqlInt32(CType(0, Int32))
End If
Kategorie.Save_Data()
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Save_Data()
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
btnAbbruch_Click(sender, e)
End Sub
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
End Class

BIN
.svn/pristine/19/1917e07740d7deaf592791b781d04a357b6e821e.svn-base Normal file
View File

Binary file not shown.

39
.svn/pristine/19/191e5ca64ac02a51c01a36fdc0037fa556f26334.svn-base Normal file
View File

@@ -0,0 +1,39 @@
Public Class MyGenericEventHandler
Public Event Set_ToolTip(ByVal formname As String, ByVal ctlname As String)
Public Event Pruefplandetail_Saved(ByVal handler As Integer, ByVal key As Integer)
Public Event Pruefplandetail_Closed(ByVal handler As Integer, ByVal key As Integer)
Public Event Pruefschrittresultat_saved(ByVal handler As Integer, ByVal key As Integer)
Public Event pruefschrittresultat_closed(ByVal handler As Integer, ByVal key As Integer)
Public Event MassnahmeplanDetail_Saveed(ByVal handler As Integer, ByVal key As Integer)
Public Event MassnahmeplanDetail_Closed(ByVal handler As Integer, ByVal key As Integer)
Public Function Pruefplandetails_save(ByVal handler As Integer, key As Integer)
RaiseEvent Pruefplandetail_Saved(handler, key)
End Function
Public Function Pruefplandetail_close(ByVal handler As Integer, key As Integer)
RaiseEvent Pruefplandetail_closed(handler, key)
End Function
Public Function Edit_Tooltip(ByVal formname As String, ByVal ctlname As String)
RaiseEvent Set_ToolTip(formname, ctlname)
End Function
Public Function PruefplanResultat_Save(ByVal handler As Integer, ByVal key As Integer)
RaiseEvent Pruefschrittresultat_saved(handler, key)
End Function
Public Function pruefschrittResultat_Close(ByVal handler As Integer, ByVal key As Integer)
RaiseEvent pruefschrittresultat_closed(handler, key)
End Function
Public Function massnahmeplandetail_save(ByVal handler As Integer, ByVal key As Integer)
RaiseEvent MassnahmeplanDetail_Saveed(handler, key)
End Function
Public Function massnahmeplandetail_close(ByVal handler As Integer, ByVal key As Integer)
RaiseEvent MassnahmeplanDetail_Closed(handler, key)
End Function
End Class

50
.svn/pristine/19/19625e68b7524f548196dc1cd3b2e490faef0545.svn-base Normal file
View File

@@ -0,0 +1,50 @@
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.dll
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.xml
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\ResolveAssemblyReference.cache
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Themenübersicht.resources
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.read.1.tlog
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.write.1.tlog
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail2.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbproj.GenerateResource.Cache
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe.config
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.pdb
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.xml
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbprojResolveAssemblyReference.cache
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDatenbankauswahl.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmAbout.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmLogin.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMsgBox.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSplash.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmThemenübersicht.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDomainEditor.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDomainEditorExtTables.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmFormSelector.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSysadminMenu.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSysadminTableSelector.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.FrmToolTipEditor.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmVerbindungEditor.resources
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.dll
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.pdb
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.xml

10
.svn/pristine/19/19fe9c70c799e506f5e9af1f33c6efba03c22b60.svn-base Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-16"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

BIN
.svn/pristine/1a/1ac1d9348029dd4260ac6dfc4e86330b0ca7628e.svn-base Normal file
View File

Binary file not shown.

BIN
.svn/pristine/1b/1b08967323c7006dd10e79734ffc866ad22d4a5d.svn-base Normal file
View File

Binary file not shown.

1154
.svn/pristine/1b/1b6c1bff766329e05f888667eb7190eee3a85c8e.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
.svn/pristine/1c/1cd9008d2e0603913c940d45125a20515e6731b6.svn-base Normal file
View File

Binary file not shown.

BIN
.svn/pristine/1c/1cf3b75c520c1a2bcd1dee27c565413b2373c0b7.svn-base Normal file
View File

Binary file not shown.

1
.svn/pristine/1d/1d4b0f034db58879f201a278c62665129d80fef6.svn-base Normal file
View File

@@ -0,0 +1 @@
<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>

BIN
.svn/pristine/1d/1d890d0a867f203ab14048768a017b1f385a71f7.svn-base Normal file
View File

Binary file not shown.

BIN
.svn/pristine/1d/1dc8266bb69d818a39eaba066490c01f1ad42cb7.svn-base Normal file
View File

Binary file not shown.

BIN
.svn/pristine/1d/1df1d55cecbae67e9c5a455741fad7e5a845c11b.svn-base Normal file
View File

Binary file not shown.

475
.svn/pristine/1e/1e3e2061ea0ffb8938619a72c731f74451b65c85.svn-base Normal file
View File

@@ -0,0 +1,475 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
Public Class clsAuswertung
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv, m_bExcel_Report, m_bReport As SqlBoolean
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
Private m_iAuswertungNr, m_iMutierer As SqlInt32
Private m_sSQLType, m_sBeschreibung, m_sConnectionstring_Subreport, m_sFilename, m_sBezeichnung, m_sSQL As SqlString
#End Region
Public Sub New()
' // Nothing for now.
End Sub
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bReport))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bExcel_Report", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bExcel_Report))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQL", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQL))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLType))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sConnectionstring_Subreport", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sConnectionstring_Subreport))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bReport))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bExcel_Report", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bExcel_Report))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQL", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQL))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLType))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sConnectionstring_Subreport", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sConnectionstring_Subreport))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Auswertung")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iAuswertungNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungNr"), Integer))
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
m_sBezeichnung = SqlString.Null
Else
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
End If
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
If dtToReturn.Rows(0)("Report") Is System.DBNull.Value Then
m_bReport = SqlBoolean.Null
Else
m_bReport = New SqlBoolean(CType(dtToReturn.Rows(0)("Report"), Boolean))
End If
If dtToReturn.Rows(0)("Filename") Is System.DBNull.Value Then
m_sFilename = SqlString.Null
Else
m_sFilename = New SqlString(CType(dtToReturn.Rows(0)("Filename"), String))
End If
If dtToReturn.Rows(0)("Excel_Report") Is System.DBNull.Value Then
m_bExcel_Report = SqlBoolean.Null
Else
m_bExcel_Report = New SqlBoolean(CType(dtToReturn.Rows(0)("Excel_Report"), Boolean))
End If
If dtToReturn.Rows(0)("SQL") Is System.DBNull.Value Then
m_sSQL = SqlString.Null
Else
m_sSQL = New SqlString(CType(dtToReturn.Rows(0)("SQL"), String))
End If
If dtToReturn.Rows(0)("SQLType") Is System.DBNull.Value Then
m_sSQLType = SqlString.Null
Else
m_sSQLType = New SqlString(CType(dtToReturn.Rows(0)("SQLType"), String))
End If
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
m_sBeschreibung = SqlString.Null
Else
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
End If
If dtToReturn.Rows(0)("Connectionstring_Subreport") Is System.DBNull.Value Then
m_sConnectionstring_Subreport = SqlString.Null
Else
m_sConnectionstring_Subreport = New SqlString(CType(dtToReturn.Rows(0)("Connectionstring_Subreport"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Auswertung_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Auswertung")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Auswertung_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsAuswertung::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iAuswertungNr]() As SqlInt32
Get
Return m_iAuswertungNr
End Get
Set(ByVal Value As SqlInt32)
Dim iAuswertungNrTmp As SqlInt32 = Value
If iAuswertungNrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAuswertungNr", "iAuswertungNr can't be NULL")
End If
m_iAuswertungNr = Value
End Set
End Property
Public Property [sBezeichnung]() As SqlString
Get
Return m_sBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sBezeichnung = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
Public Property [bReport]() As SqlBoolean
Get
Return m_bReport
End Get
Set(ByVal Value As SqlBoolean)
m_bReport = Value
End Set
End Property
Public Property [sFilename]() As SqlString
Get
Return m_sFilename
End Get
Set(ByVal Value As SqlString)
m_sFilename = Value
End Set
End Property
Public Property [bExcel_Report]() As SqlBoolean
Get
Return m_bExcel_Report
End Get
Set(ByVal Value As SqlBoolean)
m_bExcel_Report = Value
End Set
End Property
Public Property [sSQL]() As SqlString
Get
Return m_sSQL
End Get
Set(ByVal Value As SqlString)
m_sSQL = Value
End Set
End Property
Public Property [sSQLType]() As SqlString
Get
Return m_sSQLType
End Get
Set(ByVal Value As SqlString)
m_sSQLType = Value
End Set
End Property
Public Property [sBeschreibung]() As SqlString
Get
Return m_sBeschreibung
End Get
Set(ByVal Value As SqlString)
m_sBeschreibung = Value
End Set
End Property
Public Property [sConnectionstring_Subreport]() As SqlString
Get
Return m_sConnectionstring_Subreport
End Get
Set(ByVal Value As SqlString)
m_sConnectionstring_Subreport = Value
End Set
End Property
#End Region
End Class
End Namespace

470
.svn/pristine/1e/1ef57a2b9a2c2c8026e4114c8bbac4825836e238.svn-base Normal file
View File

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

BIN
.svn/pristine/1f/1f2813b076d59a9189ac7c4e1f59131df126b1c7.svn-base Normal file
View File

Binary file not shown.

418
.svn/pristine/1f/1f48cfbdce89cabac71d3f8816dbb300439d0622.svn-base Normal file
View File

@@ -0,0 +1,418 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAQAMDAAAAEAIACoJQAARgAAACAgAAABACAAqBAAAO4lAAAYGAAAAQAgAIgJAACWNgAAEBAAAAEA
IABoBAAAHkAAACgAAAAwAAAAYAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8AAACBAAAAvgAAAMsAAADLAAAAywAA
AMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAA
AMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAvgAAAIEAAAAfAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAYgAAAPEDAwP/LCwr/z4+
PP8/Pjz/Pz48/z8+PP8/Pjz/Pz48/z8+PP8/Pjz/Pz48/z8+PP8/Pjz/Pz48/z4+PP8+Pjz/Pj48/z4+
PP8+Pjz/Pj48/z4+PP8+Pjz/Pj48/z4+PP8+Pjz/Pj48/z4+PP8+Pjz/LCwr/wMDA/8AAADxAAAAYgAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABbAAAA/Ds6
Of/Cvrv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le
2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/8G+
u/87Ojn/AAAA/AAAAFsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ABEAAADqNTQz/9rX0//k4Nz/7Orn//Px7//z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py
8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py
8P/z8fD/7Orn/+Pg3P/a19P/NTQz/wAAAOoAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAGIBAQH/raqo/+Th3f/29fT//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//b19P/k4d3/raqn/wEBAf8AAABiAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJcTEhL/3tvY/+7s6v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/u7Or/3tvX/xMSEv8AAACXAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxr/5eLe//Tz8v/+/v7//v7+//7+
/v/+/v7//f39//T09P/6+vr//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/08/L/5eLe/xsb
Gv8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxr/5uPf//X0
8//+/v7//v7+//7+/v/+/v7/4uLi/5WVlf+NjY3/mpqa/6Wlpf+ysrL/v7+//8zMzP/b29v//Pz8//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/29PP/5uPf/xsbGv8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMbGxv/5+Th//b08//+/v3//v79//7+/f/+/v3/9fT0/6KjpP+4xtT/ornQ/42apv+Oj4//kZGQ/5SU
lP+Yl5f/sLCv/+zs6//+/v3//v79//7+/f/+/v3//v79//7+/f/+/v3//v79//7+/f/+/v3//v79//7+
/f/+/v3//v79//7+/f/29PP/5+Th/xsbGv8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMbGxv/6OTh//X08//9/f3//f39//39/f/9/f3//f39/9fc4v/d6fX/yNzw/6TG
6P+Eq9P/fpew/5GWmv+ZmZn/nZ2d/6SkpP/S0tL/+/v7//39/f/9/f3//f39//39/f/9/f3//f39//39
/f/9/f3//f39//39/f/9/f3//f39//39/f/19PP/6OTh/xsbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxv/6OXi//X08//9/f3//f39//39/f/9/f3//f39//b4
+//W5PP/3en1/8jc8P+fxuj/RL/r/x687f9Jr9D/nKCh/6Ojo/+oqKj/vLy8/+/v7//9/f3//f39//39
/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/29fP/6OXi/xsbG/8AAACjAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxv/6ebj//b18//9/f3//f39//39
/f/9/f3//f39//39/f/W5PP/1eTz/8zm9v8q0Pv/ANL+/wDW/v8AyP7/N7Xf/6KnqP+rq6v/r6+v/7W1
tf/b29v/+/v7//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/29fT/6ebj/xsb
G/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcGxv/6ufk//b0
8//9/Pz//fz8//38/P/9/Pz//fz8//38/P/o7/f/wNfu/0HR+v8Ayv7/AM/+/wDT/v8A1P7/AMb+/zm3
4f+qrq//srKy/7a2tv+7u7v/y8vL//Hx8f/9/Pz//fz8//38/P/9/Pz//fz8//38/P/9/Pz//fz8//38
/P/29PT/6ufk/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMcGxv/6+jl//b19P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/7+/z/mdLv/wLW/v8Ayv7/AMz+/wDR
/v8A1P7/ANP+/wDE/v89uOP/sbW2/7m5uf++vr7/wsLC/8nJyf/l5eX/+/v7//z8/P/8/Pz//Pz8//z8
/P/8/Pz//Pz8//z8/P/29fT/6+jl/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMcGxv/6+nm//b18//8/Pv//Pz7//z8+//8/Pv//Pz7//z8+//8/Pv/qOT5/wDL
/v8A1f7/AMz+/wDP/v8A0/7/ANX+/wDR/v8Awv7/P7rm/7e8vf/AwMD/xsbG/8vLy//R0ND/3dzc//X1
9P/8/Pv//Pz7//z8+//8/Pv//Pz7//z8+//29fT/6+nm/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBv/7Orn//b18//7+/v/+/v7//v7+//7+/v/+/v7//v7
+//7+/v/7/j7/zrO/f8Ay/7/ANX+/wDO/v8A0f7/ANX+/wDW/v8Az/7/AMD+/0G86P+/xMX/ysrJ/8/P
zv/T09P/2NjY/97e3v/v7+7/+vr6//v7+//7+/v/+/v7//v7+//29fT/7Orn/xwcG/8AAACjAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBv/7evo//b19P/7+/r/+/r6//v6
+v/7+/r/+/r6//v6+v/7+/r/+/r6/+r2+v84zf3/AMv+/wDV/v8Az/7/ANP+/wDX/v8A1/7/AM3+/wC+
/v9Fvuv/yMzN/9HR0f/W1tb/3Nvb/+Hg4P/n5ub/7+7u//j49//7+vr/+/r6//v6+v/29fT/7evo/xwc
G/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBv/7uzp//b1
8//6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/p9vr/Oc79/wDK/v8A1f7/ANH+/wDV
/v8A2f7/ANf+/wDL/v8AvP7/R8Du/87U1f/a2tn/3t7e/+Tk4//p6en/7+/u//T09P/6+fn/+vr5//r6
+f/29fT/7uzp/xwcG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMcHBz/7uzq//b08//6+fn/+vn5//r5+f/6+fn/+vn5//r5+f/6+fn/+vn5//r5+f/6+fn/6PX5/znN
/f8Ayf7/ANT+/wDS/v8A1/7/ANv+/wDY/v8AyP7/ALn+/0rC8f/X3N3/4uHh/+fm5v/t7Oz/8vHx//j3
9//6+fn/+vn5//r5+f/29PP/7uzq/xwcHP8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMcHBz/7+3r//X08//5+fj/+fn4//n5+P/5+fj/+fn4//n5+P/5+fj/+fn4//n5
+P/5+fj/+fn4/+j1+f83zP3/AMj+/wDT/v8A0/7/ANn+/wDe/v8A2f7/AMb+/wC3/v9OxPP/3+Pk/+rp
6f/w7+7/9fX0//n4+P/5+fj/+fn4//n5+P/29fP/7+3r/xwcHP8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBz/8O7s//X08//5+Pf/+fj3//n49//5+Pf/+fj3//n4
9//5+Pf/+fj3//n49//5+Pf/+fj3//n49//p9Pj/OMv9/wDH/v8A0v7/ANX+/wDb/v8A4P7/ANr+/wDD
/v8AtP7/T8X2/+br7P/z8vH/+Pf2//n49//5+Pf/+fj3//n49//29PP/7+3r/xwcHP8AAACjAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBz/8e/t//X08//49/b/+Pf2//j3
9v/49/b/+Pf2//j39v/49/b/+Pf2//j39v/49/b/+Pf2//j39v/49/b/5/P3/zjL/P8Axv7/ANH+/wDW
/v8A3f7/AOL+/wDa/v8Awf7/ALL+/1LH+f/w9PT/+Pf2//j39v/49/b/+Pf2//j39v/18/L/7+3r/xwc
HP8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBz/8fDu//X0
8v/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1/+jz
9v81yfz/AMX+/wDQ/v8A2P7/AOD+/wDk/v8A2/7/AL7+/wCv/v9VyPv/8vX1//f29f/39vX/9/b1//b1
9P/z8vD/7uzq/xwcG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMdHBz/8vDv//Xz8v/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f2
9f/39vX/9/b1//f29f/n8vX/N8n8/wDD/v8Az/7/ANn+/wDi/v8A5v7/ANz+/wC7/v8ArP7/U8b7//D0
9f/39vX/9vX0//X08v/y8O7/7ero/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMdHBz/8/Hw//Xz8v/29fP/9vXz//b18//29fP/9vXz//b18//29fP/9vXz//b1
8//29fP/9vXz//b18//29fP/9vXz//b18//29fP/5fH0/zjI/P8Awv7/AM7+/wDa/v8A5P7/AOj+/wDd
/v8BuP7/Oazk/6Cztf/Vz8n/9PPx//Px7//v7ev/6+jl/xsbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHRz/8/Lx//Tz8v/19PP/9fTy//X08v/19PP/9fTy//X0
8v/19PP/9fTy//X08v/19PP/9fTy//X08v/19PP/9fTy//X08v/19PP/9fTy/+Xw8/82x/z/AMD+/wDM
/v8A3P7/AOb+/wzq/f+X2uL/zMW+/7ivpP+lmIr/z8nB//Dt6//s6ef/5+Tg/xsaGv8AAACjAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/9PPy//Tz8f/08/L/9PPy//Tz
8v/08/L/9PPy//Tz8v/08/L/9PPy//Tz8v/08/L/9PPy//Tz8v/08/L/9PPy//Tz8f/08/L/9PPx//Tz
8f/k7/L/OMb7/wC+/v8Ay/7/Cd38/7Hn6//q5+T/3tnU/83Fvv+4r6T/pJiK/8vEvP/o5OD/4t7Y/xoa
Gf8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/9fTy//Ty
8f/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py
8P/z8vD/8/Lw//Py8P/z8vD/4u7x/zjF+/8AvP7/c8fb/93Z1P/q5+T/6ufk/97Z1P/Nxb7/v7at/6ud
mf/Ox8D/29XO/xkYF/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMdHR3/9vTz//Py8P/y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx
7//y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv/+Lt8P9Hwe//sa+o/83Fvv/e2dX/6ufk/+rn
5f/a0Nb/l1LA/2kJq/+TWbD/0MfA/xgXFf8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMdHR3/9vX0//Py8P/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw
7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/d2tb/o5aJ/7iv
pP/Nxr7/3tnV/97R3/+RKNn/dQDJ/2kAtf9iAKr/k1iw/xUTE/8AAADKAAAADAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/9/b1//Px7//w7+3/8O/t//Dv7f/w7+3/8O/t//Dv
7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Du
7P/v7ev/wLet/6OWif+4r6X/0cjG/5Azzv9+ANj/fADW/3QAx/9oALT/YwCr/zcAXf8AAAD/AAAAlgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/+Pf2//Lx7//v7ev/7+3r/+/t
6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t
6//v7ev/7+3r/+7s6v/u6+n/6+nm/7yzqf+mmo3/onO0/3IAwv93AM3/fQDX/3wA1v90AMf/bgC+/2wA
uf8hADn/AAAA9AAAABYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/+Pj3//Lw
7v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s
6v/u7Or/7uzq/+7s6v/u7Or/7uvp/+3q6P/n4+D/0srC/8/Gvf/FvbT/g0ac/20Auf9xAMH/dwDN/30A
2P+CAN7/gADa/3cAy/9EAHT/AAAA/wAAADkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMdHR3/+fj3//Hv7v/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r
6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6P/s6uj/6+nm/+Tg3P/Jv7X/6ubi//z8/P/29fT/5uDi/5hR
yf9tALn/cQDB/3oA0f+FAOP/hwDm/34A2P87AGb/AAAA/QAAACoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMdHR3/+fn4//Hv7f/s6uf/7Onn/+zp5//s6uf/7Onn/+zp5//s6uf/7Onn/+zp
5//s6uf/7Onn/+zp5//s6uf/7Onn/+zp5//s6uf/7Onn/+vp5v/r6OX/6OXi/8vCuP/u6+j/9vX0/+Tg
3f/h3dn/4d3Z/9/Y2P+TSsP/bQC6/3QAxv98ANX/gQDe/20Auv8JAA//AAAA0AAAAAQAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMeHR3/+vr5//Du7P/r6Ob/6+jl/+vo5f/r6Ob/6+jl/+vo
5f/r6Ob/6+jl/+vo5f/r6Ob/6+jl/+vo5f/r6Ob/6+jl/+vo5f/r6OX/6ufl/+nm4//o5eH/4NvX/9PL
wv/8+/v/4+Dc/+Hd2f/h3dn/4d3Z/+Hd2f/s6Or/nFnL/20Auf90AMX/XwCj/wwAFf8AAADtAAAANQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMeHh7/+/r6//Du7P/q5+T/6ufk/+rn
5P/q5+T/6ufk/+rn5P/q5+T/6ufk/+rn5P/q5+T/6ufk/+rn5P/q5+T/6ufk/+rn5P/p5uP/6OXi/+fj
4P/l4d3/19HK/+Ld1//z8vH/4d3Z/+Hd2f/h3dn/4d3Z/+/t6//w8PD/QEBA/w4AGf8UACP/AgAD/wAA
AO0AAAA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMeHh7/+/v7/+/t
6//p5uP/6OXi/+jl4v/p5uP/6OXi/+jl4v/p5uP/6OXi/+jl4v/p5uP/6OXi/+jl4v/p5uP/6OXi/+jk
4f/n5OD/5eLe/+Pf3P/g3Nj/0srC/+Tg2//x8O7/4d3Z/+Hd2f/h3dn/7+3r//Ly8v8/Pz//AAAA+QAA
AMgAAADMAAAAlQAAACMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AKMeHh7//Pz7/+/s6v/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk
4f/n5OH/5uPg/+Xi3//k4N3/4t7a/9/b1v/b1tH/y8O6/+Pe2f/y8O7/4d3Z/+Hd2f/v7ev/8PDw/z8/
P/8AAAD4AQEBVwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAKMeHh7//Pz8/+7s6v/m4t//5uLf/+bi3//m49//5uLf/+bi3//m49//5uLf/+bi
3//m49//5uLf/+bi3//l4t7/5OHd/+Pf2//h3dj/3tnV/9rUz//Vzsj/xLqv/+Hb1v/x8O7/4d3Z/+/t
6//s7Oz/QEBA/wAAAPkBAQFXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJcVFRX/9vb2//Ty8f/l4d3/5OHd/+Th3f/l4d3/5OHd/+Th
3f/l4d3/5OHd/+Th3f/l4d3/5OHd/+Tg3P/j39v/4t3Z/9/b1//d2NP/2dPO/9PNxv/MxLv/ua6i/97Y
0//y8O7/7+3r/+7u7v85OTn/AAAA+QEBAVgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGIBAQH/wcHB//39/f/r6Ob/49/c/+Pf
3P/j39z/49/c/+Pf3P/j39z/49/c/+Pf3P/j39v/4t7b/+Hd2f/g3Nj/3tnV/9vW0f/X0sz/0szE/8vC
uv/Atq3/raCT/9vWz//7+/v/7Ozs/zk5Of8AAAD4AQEBWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEAAADqOzs7//T0
9P/+/f3/9PPx/+7r6f/t6+j/7evo/+3r6P/t6+j/7evo/+3r6P/t6uf/6+nm/+rn5P/o5eH/5eHd/+Hc
2P/b1tD/1M3F/8nAt/+7sKX/ppiK/9vVzv/s7Oz/Ojo6/wAAAPgBAQFYAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAABbAAAA/EJCQv/a2tr//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//39/f/9/Pz/+/r6//n4
9v/29PL/8e/s/+vo5P/j3tn/2NHJ/8nAtf+3q57/oZGA/8rEvf85OTn/AAAA+AAAAFkAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAABAAAAYgAAAPEEBAT/MjIy/0dHR/9HR0f/R0dH/0dHR/9HR0f/R0dH/0ZG
Rv9GRkb/RUVF/0VERP9EQ0L/QkFA/0A/Pv89PDr/Ojc0/zUyL/8vKyf/KSQf/xoYF/8AAAD4AQEBWAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8AAACBAAAAvQAAAMsAAADLAAAAywAA
AMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAA
AMsAAABXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD////////yBP8AAAAA//IE/AAAAAA/8gT8AAAAAD/yBPgA
AAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf
8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgA
AAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf
8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAA/yBPgAAAAAD/IE+AAAAAAH8gT4AAAAAAfyBPgA
AAAAB/IE+AAAAAAH8gT4AAAAAA/yBPgAAAAAH/IE+AAAAAA/8gT4AAAAA//yBPgAAAAH//IE+AAAAA//
8gT4AAAAH//yBPgAAAA///IE/AAAAH//8gT8AAAA///yBP8AAAH///IE////////8gQoAAAAIAAAAEAA
AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAMgAA
AEIAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAA
AEQAAABEAAAAQgAAADIAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFgAA
AIgLCwrcJSUk7CopKO4qKSjuKiko7iopKO4qKSjuKiko7iopKO4pKSjuKSko7ikpKO4pKSjuKSko7ikp
KO4pKSjuKSko7ikpKO4lJSTsCwsK3AAAAIgAAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAQFBQWxUE9N/tXRzv/m4+D/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk
4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+bj4P/U0c7/UE9N/gUFBbEAAAAEAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAALywsK/rCv7z/8vHv//n4+P/6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/6+vn/+vr5//r6
+f/6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/6+vn/+fj4//Lx7//Cv7v/LCwr+gAAAC8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAABnWVdW/+ro5v/+/v7//v7+//39/f/7+/v//f39//39/f/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+/+ro5v9ZV1b/AAAAZwAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1eXVv/7+7s//7+/v/+/v7/9/f3/8bGxv+0tLT/wMDA/87O
zv/Z2dn/7u7u//39/f/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/8O7s/15d
W/8AAABtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbV9eXf/w7u3//f39//39/f/7+/v/ysvN/73N
3f+dssb/ipai/5CUl/+enZ3/xcXF//Pz8//9/fz//f39//39/f/9/f3//f39//39/f/9/f3//f39//39
/f/w7u3/X15c/wAAAG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtX15d//Du7f/9/f3//f39//39
/f/x8/b/1+Xz/8Ta7/+Bud3/SrDT/3aks/+hoaL/v7+//+jo6P/9/f3//f39//39/f/9/f3//f39//39
/f/9/f3//f39//Hv7f9fXl3/AAAAbQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1gXl3/8e/t//38
/P/9/Pz//fz8//38/P/X5fP/rd/1/xLP/P8A0/7/DMb3/2Cxyv+sra3/s7Oz/9nZ2f/09PT//fz8//38
/P/9/Pz//fz8//38/P/9/Pz/8e/u/2BeXf8AAABtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWBf
Xv/y8O7//Pz8//z8/P/8/Pz//Pz8/9rr9v9G1Pj/AMv+/wDQ/v8A0v7/DMT3/3y0yP+1trb/v7+//9DQ
0P/x8fH//Pv7//z8/P/8/Pz//Pz8//z8/P/y8O7/YF9e/wAAAG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAABtYWBe//Lx7v/7+/r/+/v7//v7+v/7+/v/5/b6/0zW/P8A0P7/AM7+/wDT/v8A0/7/DsL4/228
1v/Cw8P/ysrK/9TU1P/n5+b/+Pj3//v7+v/7+/r/+/v7//Lx7/9hYF7/AAAAbQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAG1hYF//8vHv//r6+v/6+vr/+vr6//r6+v/5+vr/x+76/xjN/f8A0f7/ANH+/wDV
/v8A0P7/DsH5/4zD2P/Nzs7/1tbW/97d3f/s7Ov/9vb2//r6+v/6+vr/8vHv/2FgX/8AAABtAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAbWJhYP/z8e//+vn5//r5+f/6+fn/+vn5//r5+f/6+fn/xe36/zPQ
/f8A0f7/ANP+/wDY/v8A0v7/D7/6/3vI5f/b3Nv/4+Li/+zr6//z8/P/+vn5//r5+f/z8fD/YmFg/wAA
AG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtYmFg//Px8P/5+fj/+fn4//n5+P/5+fj/+fn4//n5
+P/3+Pj/xO35/xjL/f8A0P7/ANb+/wDb/v8Azf7/EL37/53T6P/m5ub/8O/v//f29v/5+fj/+fn4//Py
8P9iYWD/AAAAbQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1iYmH/8/Lw//j39v/49/b/+Pf2//j3
9v/49/b/+Pf2//j39v/49/b/xOv4/zLN/P8Az/7/ANf+/wDe/v8A0P7/Ebr8/4rU8//09PP/+Pf2//j3
9v/49/b/8/Hw/2JhYf8AAABtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWNiYf/z8vD/9/b1//f2
9f/39vX/9/b1//f29f/39vX/9/b1//f29f/19fX/xOr3/xfI/f8Az/7/ANz+/wDg/v8Ayv7/Erj8/6zh
9//29vX/9/b1//b19P/x8O7/YmFg/wAAAG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtZGJi//Ty
8f/29fT/9vX0//b19P/29fT/9vX0//b19P/29fT/9vX0//b19P/29fT/w+n2/zLK/P8Azv7/ANz+/wDj
/v8Azv7/GbT6/6fT5v/u7Or/9PPx/+/t6/9hX1//AAAAbQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AG1kY2L/8/Lx//X08v/19PL/9fTy//X08v/19PL/9fTy//X08v/19PL/9fTy//X08v/z8/L/wuj0/xjF
/f8AzP7/AOH+/wXm/f93yOD/qbS0/8G5r//p5uP/6+jm/19eXP8AAABtAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAbWRkZP/08vH/8/Lx//Py8f/z8vH/8/Lx//Py8f/z8vH/8/Lx//Py8f/z8vH/8/Lw//Py
8f/z8vD/wObz/zHG+/8Oy/n/jt7n/+fj4P/X0cz/ua+l/7mwp//f2tX/W1lX/wAAAG0AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAABtZWRk//Ty8f/y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx
7//y8e//8vHv//Lx7//w8O//v+Xy/1O84P/AxMH/5ODd/+fj4P/Frsf/i02r/7WXuv9WU1D/AAAAbQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1lZWT/9PLx//Hv7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv
7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv7f/x7+3/0MvF/6+kmf/Mxb7/y67W/4QR1P9wAMH/bhOt/0Ec
V/8AAACmAAAAEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWVlZf/08vH/7+3r/+/t6//v7ev/7+3r/+/t
6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+7t6//o5eL/wbiv/62bof+NO8L/egDS/3oA
0v9uAL3/XwCk/w4AGfEAAABRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtZmZl//Py8f/t6+n/7evp/+3r
6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+j/6+fl/9zV0P/c1tD/xLLC/4g6
uv9xAMH/eQDR/4IA3/98ANT/KwBK/wAAAHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1mZmX/8/Lw/+zq
5//s6ef/7Orn/+zp5//s6uf/7Onn/+zq5//s6ef/7Orn/+zp5//s6uf/6+nn/+rn5f/a1M7/5+Le/+7r
6f/m4uD/0LzW/34gvv9zAMX/gADc/3gAzf8RAB30AAAAVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWdm
Zv/z8fD/6ufl/+rn5P/q5+X/6ufk/+rn5f/q5+T/6ufl/+rn5P/q5+X/6ufk/+rn5P/o5eL/49/b/9nT
zP/x7+7/4d3Z/+Hd2f/k4N3/yLfR/10ajP9NAIP/GgAt+wAAAIIAAAAMAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAABtZ2dn//Px8P/p5uP/6OXi/+nm4//o5eL/6ebj/+jl4v/p5uP/6OXi/+nm4//o5eL/5+Tg/+Th
3v/d19L/3tjS/+zq5//h3dn/5ODd/+7t7P9YWFj+CgcM5QQACNEAAACCAAAADQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAG1oaGf/8/Hv/+bj4P/m4+D/5uPg/+bj4P/m4+D/5uPg/+bj4P/m4+D/5uPf/+Th
3v/i3tr/3tnV/9PMxv/Z08z/7Onn/+Tg3f/b2tn/WFhY/gAAAJUBAQETAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAZ2JiYv/08vH/5eHd/+Th3f/l4d3/5OHd/+Xh3f/k4d3/5eHd/+Tg
3f/j39v/4d3Z/93Y0//X0cv/yMC3/9PMxP/v7ev/7evq/1RUVP4HBweyAQEBEwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvMTEx+tjY2P/u6+r/5+Ph/+bj4P/m4+D/5uPg/+bj
4P/l4t7/5ODd/+Hd2f/e2dT/1tHK/83FvP+3rKH/ysK5/97e3v9UVFT9AAAAlQEBARQAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQGBgaxWlpa/uzs7P/5+Pf/+Pf2//j3
9v/49/b/9/f2//f19P/08/H/7+3q/+nm4v/d19H/zcW7/7Gklv/At63/VFRU/QYGBrIBAQEUAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYAAACIDAwM3Coq
KuwvLy/uLy8v7i8vL+4uLi7uLi4u7i4tLe4sLCvuKyop7igmJe4kIiDuHhsY7hQSEe4AAACVAQEBFAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAcAAAAyAAAAQgAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAA
ABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPgAAB/wAAAP4AAAB+AA
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
AAfgAAAH4AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAH4AAAP+AAAH/gAAD/4AAB//AAA//4AAf/KAAAABgA
AAAwAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAYgAA
AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGIAAAAoAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG5APj38i4mG/5COi/+Qjov/kI6L/5COi/+Qjov/kI6L/5CO
i/+Qjov/kI6L/5COi/+Qjov/kI6L/4uJh/8/Pj38AAAAbgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHTg3
N/rm4+D/9vX0//j49//4+Pf/+Pj3//j49//4+Pf/+Pj3//j49//4+Pf/+Pj3//j49//4+Pf/+Pj3//b1
9P/l4+D/ODc2+gAAAB0AAAAAAAAAAAAAAAAAAAAAAAAATnx6eP/39vb//v7+//39/f/6+vr//f39//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/39vb/fHp4/wAAAE4AAAAAAAAAAAAA
AAAAAAAAAAAAUoB/ff/5+fj//v79//T09P+foqb/m6St/6SkpP+0tLT/5eXl//7+/f/+/v3//v79//7+
/f/+/v3//v79//7+/f/6+fj/gH99/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoF/fv/5+Pj//f39//39
/f/g6PH/xNnv/3mx1f9kprz/oKGh/8zMzP/5+fn//f39//39/f/9/f3//f39//39/f/5+Pj/gX9+/wAA
AFIAAAAAAAAAAAAAAAAAAAAAAAAAUoKAf//5+Pf//fz8//38/P/u8/j/qNz0/wrO/f8A0f7/RLbZ/62u
rv/AwMD/7e3t//38/P/9/Pz//fz8//38/P/5+Pj/goB//wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoOB
gP/5+Pf//Pz7//z8+//7+/v/UNX5/wDN/v8A0f7/AM/+/0u63/+7vL3/x8fH/+Pj4//6+vn//Pz7//z8
+//5+Pf/g4GA/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoSDgf/4+Pf/+/r6//v6+v/7+vr/w+37/w7O
/f8A0P7/ANX+/wDM/v9Rv+X/zM3N/9fX1//l5OT/9/b2//v6+v/49/f/hIOB/wAAAFIAAAAAAAAAAAAA
AAAAAAAAAAAAUoWEgv/49/b/+vn5//r5+f/6+fn/+vn5/8Hs+v8Ozf3/ANP+/wDY/v8Ayf7/V8Ps/9zd
3f/o5+f/8/Ly//r5+f/49/b/hYSC/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoWEg//39vX/+fj3//n4
9//5+Pf/+fj3//n49//A6/n/Dsv9/wDU/v8A3P7/AMb+/1/I8v/s7e3/9/f2//n49//39vX/hYSD/wAA
AFIAAAAAAAAAAAAAAAAAAAAAAAAAUoaFhP/29fT/9/b1//f29f/39vX/9/b1//f29f/39vX/v+n3/w3J
/f8A1v7/AOD+/wDD/v9lzPn/9vb1//f29f/19PP/hYSD/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoeG
hf/19PP/9vX0//b19P/29fT/9vX0//b19P/29fT/9vX0/77o9v8Ox/3/ANj+/wDj/v8Av/7/h8bi/+3r
6P/y8O7/g4KA/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoiHh//08/L/9PPy//Tz8v/08/L/9PPy//Tz
8v/08/L/9PPx//Tz8v+85vT/DsT9/wLa/f+P5Ov/y8S9/7Sqnv/j39v/f316/wAAAFIAAAAAAAAAAAAA
AAAAAAAAAAAAUomIh//z8fD/8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//u+Ty/1q8
3P/c19L/5+Pg/7+nwP+dca3/d3Ju/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUomJiP/y8O7/8e/t//Hv
7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv7f/x7+3/8e/t/8vFvf+4rqT/x6nS/4AK1P9pALb/UBpy/wAA
AJsAAAAAAAAAAAAAAAAAAAAAAAAAUoqKif/w7uz/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s
6v/u7Or/7uvp/+Tg3P+9tKn/gS6y/3cAzP97ANT/dADH/xkAK/wAAAAUAAAAAAAAAAAAAAAAAAAAUouK
iv/u7Or/7Oro/+zq6P/s6uj/7Oro/+zq6P/s6uj/7Oro/+zq6P/r6eb/4NzX/+Xh3P/t6+n/z7nX/3cS
vf97ANP/fADV/xEAHfMAAAAMAAAAAAAAAAAAAAAAAAAAUoyLi//t6uj/6ufk/+rn5P/q5+T/6ufk/+rn
5P/q5+T/6ufk/+nm4//n4+D/29XO/+zq6P/h3dn/5OHd/66cuf9AAG7/GwAu+gAAAFcAAAAAAAAAAAAA
AAAAAAAAAAAAUoyMjP/r6Ob/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5uPg/+Th3f/f29b/2dLM/+nm
4//k4d3/xMPD/xAQENIAAABlAAAALgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATomJif/r6OX/5eHe/+Xh
3v/l4d7/5eHe/+Xh3v/k4N3/4t7a/93Y0//TzMb/z8a+/+zq6P/AwL//EBAQ0gEBARYAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAHT8/P/r29fX/6ufk/+jl4v/o5eL/6OXi/+fk4P/k4d3/39vW/9bQ
yf/DurD/wriu/8PDw/8ODg7SAQEBFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AG5ISEj8nZ2d/6Kiov+ioqL/oqKi/6CgoP+enJv/l5WT/4yIhP95cmr/a2Rc/w4ODtIAAAAWAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAYgAAAGYAAABmAAAAZgAA
AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAABYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPAA
D0HgAAdBwAADQcAAA0HAAANBwAADQcAAA0HAAANBwAADQcAAA0HAAANBwAADQcAAA0HAAANBwAADQcAA
A0HAAAFBwAABQcAAA0HAAAdBwAAfQcAAP0HgAH9B8AD/QSgAAAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACkSEhGPHx8emR8fHpkfHx6ZHx8emR8fHpkfHx6ZHx8emR8f
HpkSEhGPAAAAKQAAAAAAAAAAAAAAAAAAAA1RUE7q6ufl//Hv7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv
7f/x7+3/6efl/1FQTuoAAAANAAAAAAAAAAAAAAA1pKOh//7+/v/u7u7/29vb/+np6f/5+fn//v7+//7+
/v/+/v7//v7+//7+/v+ko6H/AAAANQAAAAAAAAAAAAAANqimpf/9/f3/7e3u/73P4f95pbr/nqqu/+bm
5f/9/f3//f39//39/f/9/f3/qKal/wAAADYAAAAAAAAAAAAAADapp6b//Pz8//z8/P+p4PX/BM/9/x7D
7f+ks7j/19fX//r5+f/8/Pz//Pz8/6mnpv8AAAA2AAAAAAAAAAAAAAA2qqin//v7+v/7+/r/ve37/wbP
/f8A0/7/IsTx/7nIzf/c29v/9vX1//v7+v+qqKf/AAAANgAAAAAAAAAAAAAANqqpqP/5+fj/+fn4//n5
+P+t6Pr/BtD9/wDX/v8nxPb/0N7j//Hx8f/5+fj/qqmo/wAAADYAAAAAAAAAAAAAADarqqn/+Pf2//j3
9v/49/b/+Pf2/6zm+P8Fz/3/ANr+/yvE+v/j8PX/9/b1/6qpqP8AAAA2AAAAAAAAAAAAAAA2rKqq//b1
8//29fP/9vXz//b18//29fP/quT2/wbP/f8B3v3/eMHd/+Pg2/+mpKP/AAAANgAAAAAAAAAAAAAANqyr
qv/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P+o4PT/bMrg/+Le2v+wlq//kYeN/wAAADYAAAAAAAAAAAAA
ADasrKv/8O7s//Du7P/w7uz/8O7s//Du7P/w7uz/8O7s/8rDvP+0kr7/egTO/18Lmf8EAAh/AAAAAAAA
AAAAAAA2rayr/+3q6P/t6uj/7ero/+3q6P/t6uj/7Oro/+fj4P/j3tr/waPM/3cIxf99ANf/DwAZsAAA
AAAAAAAAAAAANq2sq//p5uP/6ebj/+nm4//p5uP/6ebj/+fk4f/e2NP/6OXi/+bi3/9iTHD4GwAu0wAA
ACcAAAAAAAAAAAAAADWsq6v/5eLf/+Xi3//l4t//5eLe/+Pg3P/d2NP/0svD/+vo5v9kY2PrAAAALwAA
AAAAAAAAAAAAAAAAAAAAAAANWlpa6u/t6//v7ev/7+3r/+3q6P/m4t7/08zF/72yp/9jY2PrAAAALwAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACkUFBSPIyMjmSMjI5kiIiKZISAgmRwbGpkTEQ+ZAAAALwAA
AAAAAAAAAAAAAAAAAAAAAAAAwAOsQYABrEGAAaxBgAGsQYABrEGAAaxBgAGsQYABrEGAAaxBgAGsQYAB
rEGAAaxBgAGsQYAHrEGAD6xBwB+sQQ==
</value>
</data>
</root>

BIN
.svn/pristine/1f/1f565844ac97eff1d0083a3314f780d560b30852.svn-base Normal file
View File

Binary file not shown.

BIN
.svn/pristine/20/2070c77af1b604c9acd5f2559ec972058eba2393.svn-base Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 196 KiB

228
.svn/pristine/20/20cb770760964fbc9b2703cea4f5d4be46f829d5.svn-base Normal file
View File

@@ -0,0 +1,228 @@
Imports System.IO
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace Utils
''' <summary>
''' Standard-Messages in div. Formatenm
''' </summary>
''' <remarks></remarks>
Public Class MyMessage
#Region "Deklarationen"
''' <summary>
''' Dataview Meldungstexte um Textelemente für die Ausgabe zu suchen
''' </summary>
''' <remarks></remarks>
Private meldungstexte As New DataView()
#End Region
#Region "Dispose"
Sub dispose()
meldungstexte.Dispose()
End Sub
#End Region
#Region "DBZugriffe"
''' <summary>
''' Meldungen aus der Datenbanklesen, sofern diese noch nicht ausgelesen worden sind. Nach dem ersten Lesen werden
''' die Daten aus der Tabelle Meldungstexte ohne erneutem DB-Zugriff verwendet
''' </summary>
''' <param name="i"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Meldungstext(ByVal i As Integer) As String
Dim meldungen As New DB.clsMeldungstexte
Dim res As Integer
meldungen.cpMainConnectionProvider = conn
If Me.meldungstexte.Count = 0 Then
Me.meldungstexte.Table = meldungen.SelectAll
End If
meldungstexte.Sort = "meldungstextnr"
res = meldungstexte.Find(i)
Try
Get_Meldungstext = Me.meldungstexte(res).Item(2)
Catch
Get_Meldungstext = ""
End Try
meldungen.Dispose()
End Function
#End Region
#Region "Meldungen"
''' <summary>
''' Standardmessage
''' </summary>
''' <param name="i">Messagenr</param>
''' <param name="typ">Messagetyp</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function show_standardmessage(ByVal i As Integer, ByVal typ As MsgBoxStyle) As Integer
Me.ShowMyDialog(Get_Meldungstext(i), typ, MsgBoxStyle.OkOnly)
'MsgBox(Get_Meldungstext(i), typ)
End Function
''' <summary>
''' Yes-No-Meldung
''' </summary>
''' <param name="i">Meldungsnr</param>
''' <returns>MsgboxResult</returns>
''' <remarks></remarks>
Public Function Show_MessageYesNo(ByVal i As Integer) As MsgBoxResult
Return Me.ShowMyDialog(Get_Meldungstext(i), MsgBoxStyle.Question, MsgBoxStyle.YesNo)
'Show_MessageYesNo = MsgBox(Get_Meldungstext(i), MsgBoxStyle.YesNo + MsgBoxStyle.Question)
End Function
''' <summary>
''' Standard-Meldung, welcher 2 Strings als Parameter übergeben werden, damit diese im Meldungstext ersetzt werden können.
''' Parameter im Meldungstext #1 oder #2
''' </summary>
''' <param name="i"></param>
''' <param name="typ"></param>
''' <param name="Text1"></param>
''' <param name="Text2"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function show_standardmessage_ReplaceText(ByVal i As Integer, ByVal typ As MsgBoxStyle, ByVal Text1 As String, ByVal Text2 As String) As Integer
Dim s As String
s = Get_Meldungstext(i)
s = s.Replace("#1", Text1)
s = s.Replace("#2", Text2)
Return Me.ShowMyDialog(s, typ, MsgBoxStyle.OkOnly)
' MsgBox(s, typ)
End Function
''' <summary>
''' Yes-No-Meldung, welcher 2 Strings als Parameter übergeben werden, damit diese im Meldungstext ersetzt werden können.
''' Parameter im Meldungstext #1 oder #2
''' </summary>
''' <param name="i">MeldungsNr</param>
''' <param name="Text1">erster Text zum ersetzen</param>
''' <param name="Text2">zweiter Text zum ersetzen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function show_MessageYesNo_ReplaceText(ByVal i As Integer, ByVal Text1 As String, ByVal Text2 As String) As MsgBoxResult
Dim s As String
s = Get_Meldungstext(i)
s = s.Replace("#1", Text1)
s = s.Replace("#2", Text2)
Return Me.ShowMyDialog(s, MsgBoxStyle.Question, MsgBoxStyle.YesNo)
'show_MessageYesNo_ReplaceText = MsgBox(s, MsgBoxStyle.YesNo + MsgBoxStyle.Question)
End Function
''' <summary>
''' Ausgabe der Meldung, welche übergeben wird. Als Option können 2 Texte zum Ersetzen übergeben werden.
''' Parameter im Meldungstext #1 oder #2
''' </summary>
''' <param name="OrgText">Meldungstext</param>
''' <param name="Text1">erster Text zum ersetzen</param>
''' <param name="Text2">zweiter Text zum ersetzen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ReplaceTextinMSG(ByVal OrgText As String, ByVal Text1 As String, ByVal Text2 As String) As String
OrgText = OrgText.Replace("#1", Text1)
OrgText = OrgText.Replace("#2", Text2)
ReplaceTextinMSG = OrgText
End Function
''' <summary>
''' Meldung Yes-No-Cancel
''' </summary>
''' <param name="i"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Show_MessageYesNoCancel(ByVal i As Integer) As MsgBoxResult
Return Me.ShowMyDialog(Get_Meldungstext(i), MsgBoxStyle.Question, MsgBoxStyle.YesNoCancel)
'Show_MessageYesNoCancel = MsgBox(Get_Meldungstext(i), MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question)
End Function
'Private Function ShowMessage(ByVal profilnr As Integer, ByVal messagenr As Integer, ByVal fnkt As Integer, ByVal style As Integer) As Boolean
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' Dim i As Integer
' Dim dtToReturn As DataTable = New DataTable()
' Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
' scmCmdToExecute.CommandText = "dbo.sp_show_hinweismeldung"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' scmCmdToExecute.Connection = conn.scoDBConnection
' Try
' scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, profilnr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@hinweisnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, messagenr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@showit", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
' sdaAdapter.Fill(dtToReturn)
' i = scmCmdToExecute.Parameters.Item("@showit").Value
' If i <> 0 Then
' ShowMessage = True
' Else
' ShowMessage = False
' End If
' Catch ex As Exception
' ' // some error occured. Bubble it to caller and encapsulate Exception object
' Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
' Finally
' scmCmdToExecute.Dispose()
' sdaAdapter.Dispose()
' End Try
'End Function
''' <summary>
''' Zeig den eigenen Messagebox-Dialog
''' </summary>
''' <param name="msgtext"></param>
''' <param name="cancelvisible"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ShowMyDialog(ByVal msgtext As String, ByVal ImageStyle As MsgBoxStyle, ByVal Buttons As MsgBoxStyle) As MsgBoxResult
Dim f As New frmMsgBox
f.btnno.Visible = False
f.btnAbbruch.Visible = False
f.btnYes.Visible = False
f.btnOK.Visible = False
Select Case Buttons
Case MsgBoxStyle.OkCancel
f.btnYes.Visible = True
f.btnAbbruch.Visible = True
Case MsgBoxStyle.YesNo
f.btnYes.Visible = True
f.btnno.Visible = True
Case MsgBoxStyle.YesNoCancel
f.btnYes.Visible = True
f.btnno.Visible = True
f.btnAbbruch.Visible = True
Case MsgBoxStyle.OkOnly
f.btnOK.Visible = True
End Select
f.imgCritical.Visible = False
f.imgExclamation.Visible = False
f.imgInformation.Visible = False
f.imgQuestion.Visible = False
Select Case ImageStyle
Case MsgBoxStyle.Critical
f.imgCritical.Visible = True
Case MsgBoxStyle.Exclamation
f.imgExclamation.Visible = True
Case MsgBoxStyle.Information
f.imgInformation.Visible = True
Case MsgBoxStyle.Question
f.imgQuestion.Visible = True
End Select
f.txtmsg.Text = msgtext
'f.btnYes.Visible = True
'f.btnno.Visible = True
f.ShowDialog()
Select Case f.DialogResult
Case DialogResult.Abort, DialogResult.Cancel
Return MsgBoxResult.Cancel
Case DialogResult.No
Return MsgBoxResult.No
Case DialogResult.Yes
Return MsgBoxResult.Yes
Case Else
End Select
End Function
#End Region
End Class
End Namespace

22
.svn/pristine/22/2207a5dc72511eeb151a74faa8b6929bf0e46300.svn-base Normal file
View File

@@ -0,0 +1,22 @@
Public Class frmEditWhere
Dim m_sql As String
Property sql() As String
Get
Return m_sql
End Get
Set(ByVal value As String)
m_sql = value
End Set
End Property
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.sql = Me.Editor.Text
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub frmEditWhere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Editor.Text = Me.sql
End Sub
End Class

73
.svn/pristine/22/2244db59b4a19cc49393e03a56d17232a3cf1e42.svn-base Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global._FRReporting.My.MySettings
Get
Return Global._FRReporting.My.MySettings.Default
End Get
End Property
End Module
End Namespace

BIN
.svn/pristine/22/22acbb272e90d627de2b138d3200af6adfddfac7.svn-base Normal file
View File

Binary file not shown.

BIN
.svn/pristine/22/22c62eb3280027ee22c13431dc4645fbdc067ae3.svn-base Normal file
View File

Binary file not shown.

533
.svn/pristine/23/230298de3753f951c7a05ce55cbeaffb9a288d90.svn-base Normal file
View File

@@ -0,0 +1,533 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>332, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.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
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAICAQAAEABADoAgAAhgAAABAQEAABAAQAKAEAAG4DAAAwMAAAAQAIAKgOAACWBAAAICAAAAEA
CACoCAAAPhMAABAQAAABAAgAaAUAAOYbAAAwMAAAAQAgAKglAABOIQAAICAAAAEAIACoEAAA9kYAABAQ
AAABACAAaAQAAJ5XAAAoAAAAIAAAAEAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAAAAAA//8A/wAAAP8A/wD//wAA////ABEQ
AAAAAAAAAAAAAAAAARERF4iIiIiIiIiIiIiIiAERERf///////////////gBEREX///////////////4
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
////+AERERf///////////////gBEREX///////////////4ARERF///////////////+AERERf/////
//////////gBEREX///////////////4ARERF///////////////+AERERf///////////////gBEREX
///////////////4ARERF///////////////+AERERf///////////////gBEREX///////////////4
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
////+AERERf///////////////gBEREX///////////////4ARERF////////////3AAAAERERf/////
//////9/+HAREREX////////////f4cBERERF////////////3hwERERERf///////////93AREREREX
////////////cBERERERF3d3d3d3d3d3d3ERERER4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
AAfgAAAH4AAAB+AAAAfgAAAP4AAAH+AAAD/gAAB/4AAA/+AAAf8oAAAAEAAAACAAAAABAAQAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAA
AAAA//8A/wAAAP8A/wD//wAA////ABEAAAAAAAABEXiIiIiIiAERf//////4ARF///////gBEX//////
+AERf//////4ARF///////gBEX//////+AERf//////4ARF///////gBEX//////+AERf//////4ARF/
////8AABEX/////49xERf/////hxERF3d3d3dxERwAH//8AB///AAf//wAEBEcAB///AAf//wAH//8AB
ARHAAf//wAH//8AB///AAQERwAH//8AD///AB///wA8BESgAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8Azs7OANbW1gDe3t4A5+fnAO/v7wD39/cA///3AP/3xgD/770A7961AP/n
rQD/9+cA/+/WAP+1QgD/rTEA/60pAP+cAAD/xnMA/71jAP+1UgD3jAAA/9alAP+1WgDWcwAA53sAAO+E
AAD/794A/+fOAP/37wD/3r0A786tAP/WrQD/zpwA98aUAN6lawDenFoA3pRKAN6MOQDnrXsA/9a1APfO
rQDvxqUA772UAOe1jAC9YxgA/+fWAP/exgDevaUA972UAP/OrQDerYwA/9a9AN61nADnvaUA3qWEANac
ewD/7+cA/97OAM6UewDGjHMA1q2cAM6llADWnIQAtYRzAK17awC9hHMAxoRzAK2EewC9e2sAtXNjAMac
lAC9lIwAtYyEAKV7cwCte3MApXNrALV7cwCtc2sAvXNrALVrYwCtY1oA9+/vAP/39wD3zs4A/87OAP/G
xgD/vb0Ae1paALWEhACte3sA/7W1AKVzcwCca2sA/62tAJRjYwD/paUAjFpaAJxjYwC1c3MAhFJSAP+c
nACUWloAjFJSAK1jYwCESkoApVpaAJxSUgClUlIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAbm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
bm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
blhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYbm5ubm5ubm5ubm5ua2thYWFhYWdkZGRk
ZGRkZGRkZGRkZGRkZGRkZGRkZGRpaWlYbm5ubm5ubm5ubm5ubFRVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
VVVVVVVVVVVVIWlYbm5ubm5ubm5ubm5ubAEcLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgICAyMjIyVWRY
bm5ubm5ubm5ubm5ubAEcOi8vLy8vLy8vHh4eHh40NCgoKCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5u
agEcHBwvLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5uagIcHBwcOi8vLy8v
Ly8eHh4eHh40NCgoKCgoKCgoICAgVWRYbm5ubm5ubm5ubm5uagIcHBwcHDovLy8vLy8vLx4eHh4eNDQo
KCgoKCgoKCAgVWdYbm5ubm5ubm5ubm5uagIcHBwcHBwcLy8vLy8vLy8eHh4eHjQ0NCgoKCgoKCggVmFY
bm5ubm5ubm5ubm5uUQIuHBwcHBwcHC8vLy8vLy8vLx4eHh4eNDQoKCgoKCgoVmFYbm5ubm5ubm5ubm5u
UQIuLi4cHBwcHBwcLy8vLy8vLy8eHh4eHh40KCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4cHBwcHBwc
HC8vLy8vLy8vHh4eHh4eNCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4uLhwcHBwcHBw6Ly8vLy8vLy8e
Hh4eHjQ0KCgoV2FYbm5ubm5ubm5ubm5uUAMNLi4uLi4uHBwcHBwcHC8vLy8vLy8vHh4eHh40NCgoV2ZY
bm5ubm5ubm5ubm5uUAMNDS4uLi4uLhwcHBwcHDovLy8vLy8vLx4eHh4eHjQ0V2ZYbm5ubm5ubm5ubm5u
RgMbDQ0uLi4uLi4cHBwcHBwcOi8vLy8vLy8vHh4eHh40V19Ybm5ubm5ubm5ubm5uRgMbGxsNDS4uLi4u
LhwcHBwcHDovLy8vLy8vLx4eHh4eW19Ybm5ubm5ubm5ubm5uTwMbGxsbDQ0uLi4uLi4cHBwcHBwcLy8v
Ly8vLy8vHh4eW19Ybm5ubm5ubm5ubm5uTwQbGxsbGw0NLi4uLi4uHBwcHBwcHDovLy8vLy8vLx4eW2JY
bm5ubm5ubm5ubm5uRQQbGxsbGxsbLi4uLi4uLi4cHBwcHBwcLy8vLy8vLy8eW11Ybm5ubm5ubm5ubm5u
RQQbGxsbGxsbGw0NLi4uLi4uHBwcHBwcHC8vLy8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5ORsbGxsbGxsN
DS4uLi4uLi4cHBwcHBw6Ly8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5OTkbGxsbGxsbGw0uLi4uLi4uHBwc
HBwcOi8vLy8vW11Ybm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsNDS4uLi4uLhwcHBwcHDovLy8vXl1Y
bm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsbGw0NLi4uLi4cHBwcHBwcLy8vXl1Ybm5ubm5ubm5ubm5u
OwQMDDk5OTk5GxsbGxsbGxsNLi4uLi4uHBwcHBwcHDovXlxYbm5ubm5ubm5ubm5uOwUdDAwMOTk5OTkb
GxsbGxsbDS4uLi4uLi4cHBwcHBwcXlxYbm5ubm5ubm5ubm5uOAUdDB0MDDk5OTk5GxsbGxsbGw0NLi4u
Li4uHBwcHBwcYFxYbm5ubm5ubm5ubm5uOAUdHR0MDAwMOTk5ORsbGxsbGxsbDS4uLi4uLhwcHBwcYEpY
bm5ubm5ubm5ubm5uPwUdHR0dDAwMDDk5OTkbGxsbGxsbGw0NLi4uLi4uHBwcYEpYbm5ubm5ubm5ubm5u
PwUdHR0dHR0MDAwMOTk5GxsbGxsbGxsNDS4uLi4uLhwcYEpYbm5ubm5ubm5ubm5uNwUdHR0dHR0dHQwM
OTk5OTkbGxsbGxsbDQ0uLi4uLi4cYFpYbm5ubm5ubm5ubm5uN1JTHR0dHR0dHR0MDDk5OTk5GxsbGxsb
GxsNDS4uLi4uZVpYbm5ubm5ubm5ubm5uMwZTUx0dHR0dHR0MDAwMDDk5OTkbGxsbGxsbDQ0uLi4uZURY
bm5ubm5ubm5ubm5uMwYHB1NTHR0dHR0dHQwMDAw5OTk5GxsbGxsbGxsNLi4uZURYbm5ubm5ubm5ubm5u
LAYHBwdTUx0dHR0dHR0dDAwMOTk5ORsbGxsbGxsNDQ0uZURYbm5ubm5ubm5ubm5uLAYHBwcHB1MdHR0d
HR0dHQwMDDk5OTkbGxsbV1tbXl5gZVlYbm5ubm5ubm5ubm5uLAYHBwcHB1NTHR0dHR0dHR0dDAwMOTk5
GxtISElJSUlZY2pYbm5ubm5ubm5ubm5uKwYABwcHBwcHU1MdHR0dHR0dHQwMDDk5OTlMFBEVGhkYLVhu
bm5ubm5ubm5ubm5uKwAAAAAHBwcHB1NTHR0dHR0dHR0MDAw5OTlOIRQODxAmWG5ubm5ubm5ubm5ubm5u
MQAAAAAABwcHBwdTU1MdHR0dHR0dDAwMDDlBFhcUDiVYbm5ubm5ubm5ubm5ubm5uMQAAAAAAAAAHBwcH
B1MdHR0dHR0dHQwMDAxLCxMXJFhubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAABwcHBwdTUx0dHR0dHR0d
DAxNCRIjWG5ubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAAAAAHBwcHB1NTHR0dHR0dHQxACCdYbm5ubm5u
bm5ubm5ubm5ubm5uIQAAAAAAAAAAAAAGBgYGBgYGBgYGUlIFBQVAClhubm5ubm5ubm5ubm5ubm5ubm5u
ISgoICkpKR8qKio2NjAwNTU1PT09Pj4+R0dCSW5ubm5ubm5ubm5ubm5u////////AAD///////8AAP4A
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAA/8AAPwAAAAH/wAA/AAAAA//AAD8AAAAH/8AAPwA
AAA//wAAKAAAACAAAABAAAAAAQAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wD//v0A/f39AP/9
/AD8/PsA//z5AP/8+AD7+/sA/vv3AP/69gD5+fkA//n1AP759AD3+PcA//jzAP748wD++PIA//fxAPb2
9gD+9/EA9fb2AP738AD+9vAA/vbvAP717wD09PQA/vXuAP717QD99e0A/fXsAPLz8wD+9OwA/vTrAP30
6wDx8vIA/vPqAP3z6gD+8+kA/fPpAP7y6QD+8ugA/fLoAP3y5wDv8PAA/vHnAP7x5gD98eUA/fDmAO7u
7wD98OUA/fDkAP3v5QD97+QA/u/jAP3v4wD97+IA/e7jAP3u4gDs7OwA/e7hAAAAAAD97eEA/e3gAOrr
6gD97d8A/ezfAP3s3gD87N4A/ezdAP3r3gD97NwA6OnpAP3r3AD869wA/evbAP3q2wD86tsA/eraAPzq
2gD96tkA5ufnAP3p2QD86dkA/enYAP3p1wD86NkA5eblAPzo2AD86NcA/OjWAPzn1wD959YA/OfWAPzn
1QDj5OQA/OfUAPzm1QD859MA/ufSAPzm1ADi4+MA/ObTAPzm0gD85dMA/OXSAPzl0QD75dEA/OTRAPzk
0AD75NAA/OTPAPvkzwD749AA/OPPAPzjzgD85MwA++POAPzjzQD84s4A/OLNAPvizQD84swA++LMAPvi
ywD84cwA/OHLAPvhywD74coA+eHKAPzgygD74MoA/ODJAPvgyQD74MgA+9/IAPvfxwD738YA+97HAPve
xgD73sUA9t3HAPvdxQD73cQA+93DAPTcxwD73MMA+tzDAPvcwgD63MIA+9vBAPvbwAD628AA8tnFAPva
vwD927sA+tq+APvavQD72b4A+tm+APDYwwD62b0A+9i8APrYvAD62LsA+ti6AO7WwgD617oA+te5APrX
uAD61rkA/dK/APrWuAD617YA+ta3AOzUwAD61bgA+tW2APnVtgD21bUA+tS1APrUswDp0b4A+tOzAPnT
sgD+1awA9NK0APnSsAD60a4A8dCyAObNuwDu0bAA7dCvAOTMuQD/2JYA782xAOLKuQDtzK8A7MquAN/H
twDexrYA6sesAP/MmQDcxLQA68eoAOfEqwDawrMA5sKpANjAsgD/zoUA5MGoANa+sADiwKYA68CeAPez
swDTu68A372lANy7pADQuKwAzrerAPesrADMtakAybKoAM2xqADltpEA9qGiAP+9YADVpZkAzK2KAPia
mgDRo5MA/rVUAM2ekQDJmY4Ax5iNANiViQCqmpAAxpaMAMWVjADWk4cA1ZOGAMOTjADXkoQAw5KLANaP
gwDLmXMA0JxoAO6hRwD/qTEAu4puAPyiIgDLj1MA55U4AN6LNgDVgjUAAAAAAGZmZgD+/v7+/v7+/v7+
/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+///////////////////////////////+/v7+/v7+/uXi
5+jp6ezt8PLy8vLy8vLy8vLy8vDq//7+/v7+/v7+3qqqqqqqqqqqqqqqqqqqqqqqqqqqye7//v7+/v7+
/v7dZISGio2SlZaZoKKnq7GztLe6u7uq7v/+/v7+/v7+/txkfoKGh4uOlJebnKGkp6+ws7a2uqrv//7+
/v7+/v7+2l51fYGEh4uOkZeWnqGjpquss7O3qu///v7+/v7+/v7ZVm91en6Dh4qNj5WXm6CipqitsLaq
7//+/v7+/v7+/tZQam5xd36ChYqNj5SVmZ2goamtsKrv//7+/v7+/v7+1kdlaGlxcnyBhIeLjpOVlpuh
o6aoqu///v7+/v7+/v7SR11jZWlxdHl+hIeKjY6TlpmeoKaq7//+/v7+/v7+/s8/WFxjZ2lsdHd9hIWH
io6TlZmdoqrv//7+/v7+/v7+zT9NU1hdY2htcXR5fYOHi42SlJaZqu///v7+/v7+/v7KOkhOUlRcY2Zp
b3Z5fYKFio2PlJeq7//+/v7+/v7+/sc6QkhKUVdcY2dobG91eYKFh4qOkarv//7+/v7+/v7+xjBAQ0RJ
TVdZXWFnaXFyeX6BhoiLqu///v7+/v7+/v7DKzk9QURKTFFXXGNnaWxyd3uBhomq7//+/v7+/v7+/sAi
NDY9QENGS1JTWF9jamtueHl/hKrv//7+/v7+/v7+vSIsMTY5PkNESk5SWF1jZWtwcnh9qu///v7+/v7+
/v61HikqLjU3O0FCSE5RUlxgZWlscniq7//+/v7+/v7+/rUZIyYsLTQ4OUBCSUpPV1ldY2hrbqrv//7+
/v7+/v7+rhQdISYqLTE2OT1BRExOVVRbY2hqqu///v7+/v7+/v6lEhccICMnLC8yNjtBQkhMUVdcX2Wq
7//+/v7+/v7+/p8NFhgaHyEmKS80NjtAQkNLUVdaXaru//7+/v7+/v7+mA0QExYaGyAlKS0xNjk+QENI
TVJYqvP//v7+/v7+/v6QCgsPEBUaGx0jJyotNDc7PkXV2+Dk8f/+/v7+/v7+/owHCAkMEBMXGh8jJigt
MzY73/b7/P34//7+/v7+/v7+gAQFCAkMDhAVGhshIygqMTTU4ff5+v/+/v7+/v7+/v57AgMFBggLDBAT
FxsfJCYsMcvQ5vX//v7+/v7+/v7+/nMBAQMFBgkJDA8RFxwcJCYsv8H0//7+/v7+/v7+/v7+YgACBwoN
FBkiKzA6P0dQXmS+4//+/v7+/v7+/v7+/v64mqissrm8wsTFyMzO0dPX2M7r/v7+/v7+/v7+//////gA
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AA
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAH/AAAD/wAAB/8AAA//AA
Af8oAAAAEAAAACAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4JJBAPemQwBmZmYArntuALWC
cgC7iHUA6rN3AMKPeQDIlXwAs4h+AM+cgADVooMA1qOEANyphwDeq4gAuI6LALaRiwDBlpMAxJmVAMac
lgDJnpcA0qSXANOmmADMoZkA1qiaANmtnQDuvaUA77+oAPWzqgDwwasA+tCuAPDDrwDxxbEA+dKxAPrT
sQD61LQA8si1APrVtQD71bYA8sm3APrWuAD717gA+9e5APTJugDzzLoA+ti7APvZvAD62rwA8829APvZ
vgD62r4A+9q/APrbvwD728AA+tzBAPvcwgD73MMA+93DAPvcxAD73sQA+97GAPvfxgD738cA++DIAPvg
yQD74coA/OHKAPvhywD84csA/9XMAPzizAD74s0A++POAPzjzgD85M8A/OTQAPzk0QD85dEA/OXSAPzl
0wD85tMA/ObUAPzn1AD85tUA/OfWAP3n1gD86NcA/OjYAP3p2AD96dkA/OraAP3q2gD86tsA/evbAPzr
3AD8690A/ezdAP3s3gD97N8A/e3fAP3u4AD97eEA/e7hAP3u4gD97+IA/e/jAP3v5AD98OUA/vDlAP3x
5gD98ecA/fLnAP3y6AD+8ukA/fPqAP7z6gD98+sA/fPsAP307AD+9OwA/fXtAP717QD+9e4A/vbuAP72
8AD+9/EA/vjxAP748gD++PMA/vn0AP769QD/+vcA//v3AP/7+AD//fsA//77AAAAAAD///8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIiIiAICAgICAgICAgIC
AoiIiAMZGBYVFxQTEhEQDwKIiIgERD87NzItKSMhHhoCiIiIBUpGQDw4My4oJSIbAoiIiAdSTElCPjo1
LyomHQKIiIgIV1NOSUM/OzYxLR8CiIiICl9bVFBKRkA8NzQgAoiIiAtkYFxWUExHQT05JAKIiIgNbGZi
XVhTTUhCPicCiIiIDXJtaWNeWVVPSkQsAoiIiA14c29qZWFaVlBLMAKIiIgNf3p2cGtnYVtXUSsCiIiI
DYOAfHdxbWhFRRwJAoiIiA2GhIF9eXRuAQEAAoiIiIgNiYeFgn57dQ0GAoiIiIiIDQ0NDQ0NDgwNAoiI
iIjgAf7+wAFqbsABfoLAAY2PwAGZncABqa3AAe//wAH+/sAB/v7AAWVowAFyfMABh4vAAZWWwAOjpsAH
7//AD/7+KAAAADAAAABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAACsrAAY3EhIOORwOEjMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMa
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMRgMFTMaDRQzGg0UMxoNFDMa
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQ5HA4SNxISDisrAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAADMfChkzHA43NBwOSTQaDU8zGg1QMxoNUDMaDVAzGg1QMxoNUDMa
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMhwNUTMa
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDQaDU80HA5JMxwONzMfChkrKwAGAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMcDjczGg14MhsNojMaDa4zGg2vMxoNrzMa
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMa
DbA0HA+yMxoNsDMaDbAzGg2wMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa4yGw2iMxoNeDMc
Djc3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJJfX/+QXV3/j1xc/45b
W/+NWlr/jFlZ/4tYWP+JVlb/h1RU/4dUVP+GU1P/hFFR/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQ
UP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+CT0//gE1N/39M
TP+ATU3/MxsNoTQYDko5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJRh
Yf/yzMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
zP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
zP//zMz//8zM///Mmf+BT0//MxoNrjQaDU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAJRhYf/MzMz/++DH//vfxv/738X/+97F//vdxP/73MP/+tvB//vcwP/72sD/+tq+//vZ
vv/62bz/+9i7//vYuv/617n/+ta4//rVt//61bb/+tW1//rUtP/607P/+tOy//nSsP/50a//+dGv//rR
rv/60Kz/+c+s//nPq//6zqn/+c2o///Ky/+CUFD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJViYv/Nzc3//OHJ//vfyP/738f/+97G//vexf/73cT/+9zD//vc
wv/728D/+9vA//vavv/72r3/+9m9//vYu//62Lr/+9e6//vXuP/61rf/+tW3//rVtf/61LT/+tOz//rT
s//60rH/+tKw//rSr//50a7/+tCt//nQrP/5z6v/+s6q///Jyf+EU1L/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJdkZP/Ozs7/++HK//vhyf/74Mn/+9/H//ve
xv/73sX/+97E//vcw//73ML/+9zB//vbwP/727//+9q+//vZvf/62Lv/+ti7//rYuv/717n/+ta4//rV
t//61bb/+tW1//rUs//507L/+tKx//rSsP/50a//+dGu//nQrv/6z6z/+c+r///IyP+FVFP/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJhlZf/Q0ND/++HL//zi
y//84Mr/++DJ//vfyP/838f/+97G//vexP/73cP/+9zC//vbwv/728H/+tq///vavv/62b7/+9m8//vY
u//72Lr/+te5//vXuP/61bf/+tW2//rVtf/61LT/+tSy//rSsv/50rD/+tKw//nRrv/60K7/+tCs///G
x/+HVVT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm
Zv/R0dH//OPN//zizP/84cz//ODK//vhyf/838j//N/H//vexv/73sX//N7E//vcw//73ML/+9zB//va
wP/72r//+tq+//vZvf/62Lz/+ti6//vXuf/617n/+ta3//rVt//61Lb/+tS0//rTs//507P/+tKx//rS
sP/60a//+tCu///Fxf+IV1b/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAJxpZ//S0tL//OPP//zjzv/74s3/++LM//zhy//74cn/++DI//zfx//83sf//N7G//ve
xP/73MP/+9zC//vbwf/728D/+9q///vZvv/72b3/+ti8//vYu//717r/+9a5//rWuP/61bf/+tW2//rU
tP/61LT/+tSy//rTsv/60rD/+dGv///Dw/+JWVf/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ5raP/T09P//OXQ//vkz//8487//OLN//zhzP/74cv/++HK//vg
yP/738f/+97G//zexf/73sX/+93E//vcw//73ML/+9vA//rawP/62r7/+tm+//rYvP/62Lv/+9i6//rX
uf/617j/+ta3//rVtv/61LX/+tS0//rTs//607L/+dKx///Cwv+LWVj/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKFuav/V1dX//OXS//zk0f/849D//OPO//zi
zf/84sz//OHL//vhyv/84Mn/++DI//vex//73sb/+93F//vdxP/73cP/+9zB//vcwf/727//+9q+//va
vf/72b3/+ti7//rYu//617r/+ta4//rWt//61rb/+tW1//rUtP/607P/+tOz///BwP+MW1r/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKNwa//W1tb//ObT//zl
0v/85ND/++TP//zkzv/7483/++LN//vizP/84Mv/++HJ//vgyP/738f/+97G//vexf/73sT/+93E//vc
wv/73MH/+9vA//rav//62r7/+9m9//rZvP/62Lr/+ti5//vXuf/61rf/+tW3//rVtv/61bT/+tOz//+/
v/+NXVv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKVy
bP/X19f//ObU//zm0//85tL//OXR//zk0P/848///OPO//vizf/74sz/++HL//zhyv/84Mj/+9/I//ve
x//73sX/+97E//vdw//73MP/+tzB//vbwP/728D/+9q+//vavf/72Lz/+ti7//rYuv/617n/+ta4//rW
tv/61bb/+tS0//++vf+OX1z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAKh1bv/Y2Nj//OfW//zm1f/85tP//OXS//zl0f/85ND//OPQ//zjzv/84s3//OLN//vh
y//84Mr/++DJ//vgyP/738f/+97G//vexf/73cT/+9zD//vcwv/728H/+9vA//ravv/62r7/+9m8//vY
vP/617r/+9i5//rXuP/61bf/+ta3//+8vP+QYF7/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKt4b//a2tr//OjX//zn1v/859X//ObU//zm0//85dL//OXR//zk
0P/848//++LO//vizP/84sv/++HL//zgyv/738j/+9/H//zfxv/83sb/+93E//vdw//73MP/+9vB//rb
wP/72r//+9q+//vZvf/62bv/+ti6//rYuv/617n/+ta4//+7uv+SYV//MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK57cP/b29v//ejZ//zo1//86Nf//OfV//zn
1P/85tT//OXS//vl0f/85ND//OPP//vjzv/84s3/++HM//zhyv/74Mr//ODI//zfyP/738f/+97F//vd
xP/73cT/+9zC//rbwv/628D/+tu///vavv/72b3/+tm8//rYu//62Lr/+te5//+6uf+SY2H/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALB9cf/c3Nz//OnZ//3p
2f/86df//OjW//zo1f/85tX//ObU//zm0//75dH/++TQ//zj0P/8487//OLN//vhzf/74cv/++HK//vg
yf/738j/+97H//vexf/73sX/+93E//vcw//63ML/+9vB//vbv//72r7/+tm+//vZvP/72Lv/+te7//+4
uP+UZGL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALJ/
c//d3d3//Orb//zq2v/96tn//OnY//zo1//86Nb//efV//zm1P/85tL//OXS//zk0f/849D//OPP//zi
zv/84sz/++HM//vhyv/84Mn//ODI//vfx//73sb/+97F//vdxP/73cP/+9zC//vcwf/628D/+9u///rZ
vv/62bz/+ti7//+2t/+VZmT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAALaDdP/f39///Ovc//3q2//96tv//enZ//zp2P/96Nf//OjW//zn1f/85tT//OXT//zl
0v/85NH//OTQ//vjz//8487/++LN//ziy//84cv/++DJ//vgyP/838j//N/G//vexf/73sT/+93D//vc
wv/73ML/+9vB//vawP/72r7/+tq9//+1tf+XaGX/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAALiFdf/g4OD//eze//zr3f/969z//Ora//zq2v/86dn//OnY//3n
1v/859X//OfV//zm0//85tL/++XR//zk0P/749D/++PO//zizf/74sz/++HL//vgyv/74Mn/++DI//zf
x//73sb/+93F//vdw//73MP/+tzC//vbwf/727//+9q+//+0tP+YaWf/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALuId//h4eH//O3f//3s3//87N3//evc//3q
2//86tr//OnZ//zp2P/96Nf//OjV//zn1f/85tT//ObT//zl0v/75ND//OTP//vjzv/8487//OLN//vh
y//84cr//ODJ//vgyP/738f/+97G//vexf/73cT/+93D//vcwv/73MH/+9vA//+ysv+Zamj/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL6LeP/i4uL//e7g//3t
4P/97d7//eze//3r3P/86tz//Ora//3p2f/86dj//ejX//zo1v/859X//OfU//zm0//85tL//OXR//vk
0P/85M///OLO//zjzP/84cv//OHK//vhyf/74Mn/+9/I//vfx//73sb/+97F//vdxP/73ML/+tvC//+w
sf+bbGr/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMCN
ef/k5OT//e7i//3u4f/87eD//ezf//3s3v/9693//evc//3r2//96dr//enZ//zo2P/859f//OfV//zn
1P/85tT//ObS//zl0f/85ND/++PQ//zjzv/7487/++LM//vhy//74cr//ODJ//vfyP/83sb//N7G//ze
xf/73sT/+9zC//+wr/+cbWv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAMOQe//l5eX//fDj//3v4v/97uH//e3g//3t4P/87N7//evd//3q3P/969v//Ora//3p
2f/96dj//OjW//zo1f/859X//ObU//zm0v/85dL/++XQ//zkz//848//++PN//vizf/74sz/++HK//vg
yv/738j/+9/H//vfxv/73cX/+97E//+urf+db2z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMWSff/m5ub//vDl//3v5P/+7+P//e7h//3u4P/97d///e3e//3r
3f/8693//erb//3q2v/86tn//enY//zp1//86Nb//OfW//zm1P/85tP//OXS//zl0f/85ND/++TP//vi
zv/84s3//OLM//vhyv/74Mn//ODJ//vfx//738b/+97F//+srf+fcW3/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMiVfv/n5+f//fHm//7w5f/97+T//u/j//3u
4v/97uH//e3g//3s3//8693//Ovd//zq2//969r//era//zp2P/96df//OfX//3n1f/859X//ObU//zl
0v/85NH//OTQ//zjz//8487//OLN//zizP/74cv//OHK//vgyf/738j//N/H//+rq/+gcm//MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMqXf//p6en//fLn//3x
5v/98eb//fDl//3v4//97uL//e7h//3t4P/97eD//eze//zr3f/869z//erb//zp2v/96dn//OjY//zo
1//959b//OfV//zm0//85dL//OXS//vl0f/75ND/++PP//zizf/74s3//OHL//zgyv/74Mr/++DI//+p
qf+hdHD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM2a
gP/q6ur//vLp//7x5//98uf//fDm//3w5f/+7+P//e7j//3u4f/97eD//e3g//3s3//97N7//evc//zq
2//96tv//erZ//zo2P/96Nf//OfW//zn1f/85tT//ObT//zm0f/85NH//OTQ//zjzv/7487//OLN//zh
y//74cv/++DK//+oqP+idXL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAANCdgf/r6+v//fPq//7y6f/98uj//fHn//7x5v/98OX//fDk//3v4v/97uL//e7h//3t
4P/97N///eve//3r3P/969v//era//zp2v/86dj//OnX//3o1v/859X//ObU//zm0//85tL//OXR//zk
0f/848///OPO//vizf/74sz/++HL//+np/+jd3P/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAANOggv/s7Oz//fTs//3z6v/98+r//fLo//3x5//98eb//vDl//3w
5f/+7+T//e/j//3u4f/97eD//e3f//3s3v/97N3//Ovc//3q2//96tr//OnZ//zo2P/96Nf//OjV//zn
1P/859P//OXT//vl0f/85dD//OPQ//vjzv/84s7/++LM//+lpf+leXT/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANWihP/u7u7//vXt//707P/+8+v//vPq//3y
6P/98uj//fHn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97N///eze//3r3P/869v//Ora//3p
2f/96dj//ejX//zo1v/859X//OfU//zm0//85dL//OTR//zk0P/75M///OPO//+kpP+menb/MxoNrzMa
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANilhf/v7+///vXu//71
7f/+9Oz//fPr//7z6v/+8+r//vLo//3y5//+8eb//fDl//3v5P/97uP//e/h//3u4P/97eD//O3f//zs
3v/9693//erc//zq2//86tn//enY//3o1//86Nf//efV//zn1f/85tP//OXS//zl0f/85ND/++TP//+i
o/+oe3f/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANqn
hv/w8PD//vbw//727//99u3//vTt//306//+8+v//vPp//3y6f/+8uj//fHn//3w5f/97+T//e/k//7v
4v/97uH//e3g//3t3//97N7//evd//zr3P/969v//era//zp2P/86Nj//OjX//zn1v/95tX//efU//zm
0//85dH//OXQ//+goP+pfXj/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAN2qiP/x8fH//vfx//738P/+9e///fbu//717f/99Oz//vTr//3z6v/98+n//fHn//7x
5v/98eb//fDl//3w5P/97+P//e7i//3u4f/97eD//e3f//3r3f/969z//erc//zq2v/96dn//OnY//zo
1//86Nb//OfU//zm1P/85dP//OXS//+gn/+qf3n/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOCtiv/z8/P//vjz//738v/+9/D//vbw//327v/+9e3//fTt//30
6//+8+r//fLp//7y6f/+8ef//vDm//3w5f/98OT//e/j//3u4v/97uH//e3g//3s3//97N7//Ozd//3r
3P/96tr//OnZ//zp2P/96dj//OfW//zn1f/85tX//ObU//+enf+rgHv/MxoNrzMaDVAzGg0UAAAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOOwi//09PT///j0//748//++PL//vfx//73
8P/+9u///vXu//707P/+9Ov//vPr//3y6v/+8un//fLo//3x5v/98OX//fDk//3v4//97+L//e7h//zu
4P/97d///Oze//3r3f/869z//erb//3q2v/86dn//ejX//zo1//86Nb//OfV//+cnf+sgn3/NBsNrTQa
DU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOWyjP/19fX//vn2///4
9P/++PP//vfy//748f/+9/D//vXv//727v/99e3//vTs//706//98ur//vLp//3y5//98ef//vHm//7v
5f/97+P//e/i//3v4v/87uD//ezf//3s3//97N3//Ovc//+8vf//uLf//7Oz//+urv//qan//6Sk//+g
n/+ug37/Nx4RozgcEUk5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOe0
jv/29vb//vr3//769v/++fT//vj0//748//+9/H//vfx//727//+9u///fXt//717f/+8+v//vPr//7y
6f/+8uj//fLn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97d//upGK/7mPiP+2jIb/tYqF/7OI
hP+yh4P/sYaB/7BwcP+bamn/OyEVhUAgFzg7JxQNAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAOq3j//4+Pj//vv4//769//++fb///n1//749P/++PL//vfy//738f/+9vD//vbu//31
7v/+9e3//vPr//7z6//98+r//vLp//7y6P/98eb//fDl//7v5f/97+T//e7i//3u4f/97eD/pXJs//+0
Uv//mQD/9Y8A/+uFAP/gegD/1nAA/79mGf9+UU7XQSUZUkQiGh5VKysGAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAO26kP/5+fn//vz6///7+P//+/f//vr2//759v/++fT//vjz//73
8v/+9/H//vbw//727//+9e7//vXt//716//+8+v//vLq//3y6f/98ej//fHn//3x5v/98OX//e/k//3v
4//97uH/qHVu///Mmf//tFL//7BE//+rNv//qC3/2Yw5/4BTUNhAIxpXRyMcJE0zGgqAAAACAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPC9kf/6+vr///37///8+v///Pn///v4//76
9v/++vb//vn1//758//++PP//vfx//738f/99vD//vXv//717v/+9Oz//fTr//3z6v/98+n//fHo//3x
5//98eb//fHl//3w5P/97+P/q3hv///Wo///t1v//7RS//+wRP/bk0n/g1ZS2EMmGldFKRwlRi4XC4AA
AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPPAkv/7+/v///38///9
/P///Pv//vz5//77+P/++/f///r2//759f//+fT//vjy//748v/+9/D//vbv//727//+9e3//fXs//70
7P/98+r//vLp//3y6f/98ef//vDm//3w5f/98OX/rntw///grf//u2f//7db/92bW/+HWlTYQyYaV0Up
HCVGLhcLgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPXC
k//9/f3///7+//7+/P///fz//vz7//78+f/++/j//vv3///69v/++fX//vj0//749P/++PL//vfx//72
8P/+9u///vXu//307f/99Oz//vTr//7z6v/+8un//fHo//7x5//98Ob/sH1x///ruP//wHT/3qFq/4pd
VthDJhpXRSkcJUYuFwuAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAPfElf/+/v7//////////v///v3//v78//79+////Pr///v4///79///+vf///r2///5
9f//+PP///jy//748f/+9/D//vbw//717v/+9e3//vTs//7z7P/+8+r//vLp//7y6P/98ef/sn9z///1
wv/gqHv/jmFX2kYpHVhMKRwlRi4XC4AAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPrHl/////////////7+/v/9/f3//Pz8//z8/P/7+/v/+vr6//r6
+v/5+fn/+Pj4//f39//39/f/9vb2//X19f/19fX/9PT0//Pz8//z8vL/8vHw//Hw7//w7uz/8O3r/+/s
6f/u6+j/toN0/+zftv+OYlbkRikbaUsyJSlVKxUMgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP7Lmf/81rH/+tSw//jRrv/1z63/882r//HL
qv/uyKn/7MWo/+rDpv/owaX/5b+k/+O9ov/guqH/3ref/9u1nv/as53/17Gb/9Wumv/SrJn/0KqY/86n
lv/LpZX/yaOU/8agkv/EnpH/uIV1/7WCdJ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPwAAAAADwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAA8AAPwA
AAAAHwAA/AAAAAA/AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAP/8AACgAAAAgAAAAQAAAAAEA
IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANxISDjYXDyE0GhAxNhsNOTQa
DTszGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMa
DTw0Gg07MhsOODQaCjE2Fw8hNxISDlUAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2Fw8hNBoNTjMb
DXMzGw2GMxoNizMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMa
DYwzGg2MMxoNjDMaDYs0Gw2FMxsNczIaDU02Fw8hQCAACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAM2b
iuvSn5Pwy5qN9siXi/nGlov6xpaL+sWUivrEk4r6wpGJ+sKQifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQ
ifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQifnXkob4MxsNczQaEDFAFRUMAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAAzbGo//3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3S
v//90r///dK///3Sv//90r///dK///3Sv//90r///8yZ/9WRhfo0GQ2FMRsNOTsUFA0AAAABAAAAAAAA
AAAAAAAAAAAAAAAAAADJsqj/4eLi//vgyf/738j/+97G//vdxf/63MP/+9vB//vawP/62r//+tm9//rY
vP/617n/+ta4//nVtv/51LX/+tSz//nTsv/50rD/+tGv//rRrf/90r//1ZGF+zMaDYs0Gg07NxISDgAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAMy1qf/i5OP/++HL//vgyv/738j/+9/H//vexf/73cT/+tzC//rb
wP/62r7/+9q9//vYvP/62Lr/+te5//rVuP/61Lb/+tS0//rTs//60rL/+dKw//3Sv//UkYT7MxoNjDMa
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAzrer/+Pk5P/8483//OHL//zgyv/74Mn/+9/H//ve
xf/73cT/+9zD//rbwP/727//+tm+//vZvP/62Lv/+te6//rWuP/61rb/+tS1//rUtP/507L//dK//9SR
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADQuKz/5ebm//vkz//8483/++LM//vh
y//84Mn/+9/H//vexv/73cX/+93D//vbwf/628D/+tq+//rZvf/62Lz/+te6//rXuP/61rf/+tW1//rT
s//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAANK6rv/m5+f/++XR//zk
z//848///OLN//vhy//74Mr/++DI//vexv/73cX/+93D//rcwv/728H/+9q///vZvv/62bz/+9i7//rW
uf/61bf/+tW2//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA07yv/+fo
6P/85tP//OXS//zl0P/848///OPO//zhzP/84Mr/++DJ//vfx//73sX/+93E//vcwv/728H/+9vA//ra
vv/72L3/+ti7//rXuv/617j//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
AADWvrD/6Onp//zn1f/85tT//ObT//zl0f/848//++PN//zizP/74cv/++DJ//vfx//73sb/+93F//rd
xP/728L/+9vA//vZv//62b7/+tm8//rXuv/90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAANjAsv/p6ur//OjX//zn1v/85tT//OXT//zl0f/85ND/++PO//zizf/84cv/++DJ//vg
yP/738f/+97G//vdxP/73ML/+tvB//vav//72b7/+ti8//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAA2sKz/+rr6//96dr//enY//zo1//859X//ObU//vl0v/75ND//OPP//vj
zv/84sz//OHL//zgyf/738f/+97F//vdxf/63MP/+tzB//vbwP/72r7//dK//9SRhPszGg2MMxoNPDcS
Eg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADcxLT/6+zs//3r3P/86tr//OnZ//3o1//859b//ObU//zm
0v/85dH/++TP//zizv/84sz//OHL//vgyv/74Mj/+97G//vdxf/73cP/+tzC//rbwP/90r//1JGE+zMa
DYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAN7Gtv/t7e3//eze//3r3P/969v//enZ//zo
2P/859b//ObU//zl0//85dL//OTQ//vkzv/8483//OLM//vgyv/74Mj/+9/H//vexv/73cT/+9zD//3S
v//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA38e3/+7u7//97d///Oze//3s
3f/869v//era//zo2P/86Nb//OfV//zn0//85dP//OXR//zjz//8487//OLM//vhy//84Mr/+9/I//vf
xv/73sT//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADiyrn/7+/v//3u
4v/97eH//ezf//3s3f/969v//Orb//3p2f/86Nj//OfW//zm1P/85dP//OXR//zk0P/8487//OLN//vi
y//84Mr/+9/I//vex//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAOTM
uf/w8fH//e/k//3v4//97eH//e3f//zs3v/97Nz//erb//zp2f/96dj//OjX//zn1P/85tT/++XR//zk
0f/85M//++LN//zizP/74cr/++DJ//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAAAA5s27//Hy8v/+8ef//fDl//3v4//97uL//e3g//zt3v/97N3//evb//zp2v/86dn//OjX//zn
1f/85tT//ObT//zk0f/749D//OPO//vizf/84cv//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAA
AAAAAAAAAAAAAAAAAADo0L3/8vPz//3y6P/98uf//fHl//7v4//97+L//O7h//3s3//97N7//evc//zq
2v/96dn//OnY//zn1v/85tX//ObT//zl0f/85ND//OPO//vizf/90r//1JGE+zMaDYwzGg08NxISDgAA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAOrRvv/z9PT//vPq//3z6f/+8ef//fHm//3v5P/97uP//e7i//3t
3//97N7//Ovd//3r2//96tn//OjY//zo1v/859X//ObU//zl0v/85NH//OTP//3Sv//UkYT7MxoNjDMa
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA7NTA//X19f/99ez//fPr//3y6f/98uf//vHm//3w
5f/97+P//e7i//3t4f/97N///evd//zq2//86tr//OjZ//3p1//959b//ObU//zl0v/75NH//dK//9SR
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADu1sL/9vb2//727//99e3//vTr//7z
6v/+8un//vHn//3w5v/98OT//e/j//zu4f/97N///eze//3r3P/86tv//enZ//zo2P/859b//OfU//zm
0//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAPDYw//39/f//vbw//71
7//99e7//vTs//306v/98+n//fHo//3w5v/97+T//e/j//3u4f/97d///eze//zs3f/96tv//enZ//zo
2P/859f//OfV//3Sv//VkYX7MxoNizQaDTs3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA8tnF//j4
+P/++PL//vfx//728P/+9e7//vTt//706//+8+n//fLo//7x5v/98OX//e/j//3u4v/97eD//O3f//zs
3v/969z//era//zp2f/86Nf//dK//9WNgfs3HhGHNh8SOTckEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
AAD03Mf/+fn5///59f/++PP//vjx//738P/+9e7//vXt//307P/+8+r//vLp//3x5//+8Ob//e/k//3v
4v/97uH//e3g//3r3v/3s7P/96ys//ahov/4mpr/1pCC+z4jF3xBKBkzQCsVDAAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAAPbdx//6+/v//vv3///69f/++PT//vjy//738f/+9u///vXu//707P/+8+r//fPp//7x
6P/+8eb//e/l//3v4//97uH/5baR/+6hR//nlTj/3os2/9WCNf+1gGHqSS8iYkg0Jyc5ORwJAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAA+ODK//z8+///+/n//vv3///69v/++fT///jz//738v/+9/D//vXu//71
7f/99Ov//vPq//7y6P/98ef//fDl//3v5P/rwJ7//71g//+pMf/8oiL/x4ZG7V9DM39RNys8WUAzFEBA
QAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD64sr//fz9///9+////Pn///v4//769//++fX//vnz//74
8v/+9vH//vbv//717f/+9Oz//fPq//3y6f/+8ef//fDl/+vHqP//zoX//rVU/82VXe5fQzSDVDgsQFg7
MRpJSSQHAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPzkzP/+/v7///79///9/P///Pr///z4///6
9//++vb//vn0//748///9/H//vbv//317f/99O3//fPq//3z6f/+8ef/7dCv///Ylv/Ik2rwXkEzhlE6
K0JVQi8bYEBACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/ufS///////9/f3/+/v7//n5
+f/3+Pf/9fb2//T09P/y8vL/7/Dw/+7u7v/s7Oz/6uvq/+jp6f/l5+f/5OXk/+Lj4//u0bD/yqqG9lw/
MKJROCxSWkIxH2BAQAgAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD+1Kr5/dq5+frX
tvn51rT59tSz+fTRsvnxz7D578yv+e3Lrfnsyaz56caq+ebDqfnkwaf548Cm+eG+pPneu6P527mi+d+v
j8bap4YUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAAA/AAAAHwAAAB8AAAAfAA
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAA
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAA/AAAAPwAAAH8AAAD/AAAf8oAAAAEAAAACAA
AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzHA43MxoNeDIbDaIzGg2uMxoNrzMa
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrjIbDaIzGg14MxwONwAAAAAAAAAArntu/9mtnf/WqJr/06aY/9Kk
l//MoZn/yZ6X/8aclv/EmZX/wZaT/7aRi/+4jov/MxsNoTQYDkoAAAAAAAAAALWCcv/84cv/++DI//ve
xP/73ML/+tq+//rYu//717j/+tS0//nSsf/60K7/7r2l/zMaDa40Gg1PAAAAAAAAAAC7iHX//OTP//zi
zP/74Mn/+97G//vcw//72r//+9m8//rWuP/61bX/+tOx/++/qP8zGg2vMxoNUAAAAAAAAAAAwo95//zn
1P/85NH//OPO//zhyv/738f/+9zE//vbwP/62rz/+9e5//vVtv/wwav/MxoNrzMaDVAAAAAAAAAAAMiV
fP/86Nj//ObV//zl0v/8487/++HL//vgyP/73sT/+tzB//vZvv/62Lv/8MOv/zMaDa8zGg1QAAAAAAAA
AADPnID//Ovd//3q2v/859b//ObT//zkz//84sz/++DJ//vexv/73ML/+tu///HFsf8zGg2vMxoNUAAA
AAAAAAAA1aKD//3u4P/97N3//Orb//zo1//85tP//OTR//vizf/74cr/+9/G//vdw//yyLX/MxoNrzMa
DVAAAAAAAAAAANyph//+8OX//e7h//3s3//969v//enY//zm1f/85dH/++PO//zhyv/738f/8sm3/zMa
Da8zGg1QAAAAAAAAAADcqYf//fPq//3x5v/97+P//e3f//zr3P/96dn//efW//zl0//85M///OHL//PM
uv8zGg2vMxoNUAAAAAAAAAAA3KmH//317f/+8+r//fLn//3v5P/97eH//eze//zq2v/86Nf//ObT//zk
0P/zzb3/NRsPqjUaDU0AAAAAAAAAANyph//++PL//vXu//307P/98uj//fDl//3u4v/97N7//era//zo
2P/85tT/9Mm6/zogEZk9IhNDAAAAAAAAAADcqYf///r3//748//+9vD//vTs//7y6f/98eb//e/i///V
zP//1cz/9bOq/6l4bOBCKBh0SCccLgAAAAAAAAAA3KmH///9+///+/f//vn0//738f/+9e3//fPr//3x
5//3pkP/96ZD/+CSQP5HKxqRTi4gSFk3IRcAAAAAAAAAANyph/////////77///7+P/++vX//vjx//72
7v/98+z/3KmH/+qzdv5oSDLCTzMkZFM3IiVVORwJAAAAAAAAAADcqYf/3KmH/9yph//cqYf/3KmH/9yp
h//eq4j/1qOE/9yph//ZqYktAAAAAAAAAAAAAAAAAAAAAMAAAADAAAAAwAAAAMAAAADAAK7/wADn/8AA
0f/AAM//wADP/8AAzf/AAMv/wADK/8AAyP/AAMb/wADF/8APw/8=
</value>
</data>
</root>

BIN
.svn/pristine/24/243f91d44a7f8778dcdd8f98f72cde0b7d24570e.svn-base Normal file
View File

Binary file not shown.

73
.svn/pristine/25/25282432498719dbd00a8bc6952128bb3d6cf15f.svn-base Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.ThemenDokumente.My.MySettings
Get
Return Global.ThemenDokumente.My.MySettings.Default
End Get
End Property
End Module
End Namespace

530
.svn/pristine/25/25533bd7524b9233f53d4ee1089e51a787f514da.svn-base Normal file
View File

@@ -0,0 +1,530 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'mitarbeiter'
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'mitarbeiter'.
''' </summary>
Public Class clsMitarbeiter
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iMandantnr, m_iMutierer, m_iMitarbeiternr As SqlInt32
Private m_sEmail, m_sVorname, m_sTgnummer, m_sName As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiternr</LI>
''' <LI>sVorname. May be SqlString.Null</LI>
''' <LI>sName. May be SqlString.Null</LI>
''' <LI>sTgnummer. May be SqlString.Null</LI>
''' <LI>sEmail. May be SqlString.Null</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiternr</LI>
''' <LI>sVorname. May be SqlString.Null</LI>
''' <LI>sName. May be SqlString.Null</LI>
''' <LI>sTgnummer. May be SqlString.Null</LI>
''' <LI>sEmail. May be SqlString.Null</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiternr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiternr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iMitarbeiternr</LI>
''' <LI>sVorname</LI>
''' <LI>sName</LI>
''' <LI>sTgnummer</LI>
''' <LI>sEmail</LI>
''' <LI>iMandantnr</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("mitarbeiter")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer))
If dtToReturn.Rows(0)("vorname") Is System.DBNull.Value Then
m_sVorname = SqlString.Null
Else
m_sVorname = New SqlString(CType(dtToReturn.Rows(0)("vorname"), String))
End If
If dtToReturn.Rows(0)("name") Is System.DBNull.Value Then
m_sName = SqlString.Null
Else
m_sName = New SqlString(CType(dtToReturn.Rows(0)("name"), String))
End If
If dtToReturn.Rows(0)("tgnummer") Is System.DBNull.Value Then
m_sTgnummer = SqlString.Null
Else
m_sTgnummer = New SqlString(CType(dtToReturn.Rows(0)("tgnummer"), String))
End If
If dtToReturn.Rows(0)("email") Is System.DBNull.Value Then
m_sEmail = SqlString.Null
Else
m_sEmail = New SqlString(CType(dtToReturn.Rows(0)("email"), String))
End If
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
m_iMandantnr = SqlInt32.Null
Else
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
End If
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("mitarbeiter")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iMitarbeiternr]() As SqlInt32
Get
Return m_iMitarbeiternr
End Get
Set(ByVal Value As SqlInt32)
Dim iMitarbeiternrTmp As SqlInt32 = Value
If iMitarbeiternrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iMitarbeiternr", "iMitarbeiternr can't be NULL")
End If
m_iMitarbeiternr = Value
End Set
End Property
Public Property [sVorname]() As SqlString
Get
Return m_sVorname
End Get
Set(ByVal Value As SqlString)
m_sVorname = Value
End Set
End Property
Public Property [sName]() As SqlString
Get
Return m_sName
End Get
Set(ByVal Value As SqlString)
m_sName = Value
End Set
End Property
Public Property [sTgnummer]() As SqlString
Get
Return m_sTgnummer
End Get
Set(ByVal Value As SqlString)
m_sTgnummer = Value
End Set
End Property
Public Property [sEmail]() As SqlString
Get
Return m_sEmail
End Get
Set(ByVal Value As SqlString)
m_sEmail = Value
End Set
End Property
Public Property [iMandantnr]() As SqlInt32
Get
Return m_iMandantnr
End Get
Set(ByVal Value As SqlInt32)
m_iMandantnr = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

BIN
.svn/pristine/25/255fa3314ae8792712ddce5a55ca87253d30236d.svn-base Normal file
View File

Binary file not shown.

123
.svn/pristine/25/256d2e6dd2bcc0871b5f3bec339045e38b563a7a.svn-base Normal file
View File

@@ -0,0 +1,123 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmcrreporting
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(frmcrreporting))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.PreviewControl1 = New FastReport.Preview.PreviewControl()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.AllowMerge = False
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(933, 24)
Me.MenuStrip1.TabIndex = 4
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
Me.BeendenToolStripMenuItem.Text = "&Beenden"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(933, 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 = "Fenster schliessen"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'PreviewControl1
'
Me.PreviewControl1.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.PreviewControl1.Buttons = CType(((((((((FastReport.PreviewButtons.Print Or FastReport.PreviewButtons.Find) _
Or FastReport.PreviewButtons.Zoom) _
Or FastReport.PreviewButtons.Outline) _
Or FastReport.PreviewButtons.PageSetup) _
Or FastReport.PreviewButtons.Edit) _
Or FastReport.PreviewButtons.Watermark) _
Or FastReport.PreviewButtons.Navigator) _
Or FastReport.PreviewButtons.Close), FastReport.PreviewButtons)
Me.PreviewControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PreviewControl1.Font = New System.Drawing.Font("Tahoma", 8.0!)
Me.PreviewControl1.Location = New System.Drawing.Point(0, 49)
Me.PreviewControl1.Name = "PreviewControl1"
Me.PreviewControl1.PageOffset = New System.Drawing.Point(10, 10)
Me.PreviewControl1.Size = New System.Drawing.Size(933, 487)
Me.PreviewControl1.TabIndex = 6
Me.PreviewControl1.UIStyle = FastReport.Utils.UIStyle.Office2007Silver
'
'frmcrreporting
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(933, 536)
Me.Controls.Add(Me.PreviewControl1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmcrreporting"
Me.Text = "Auswertung"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents PreviewControl1 As FastReport.Preview.PreviewControl
End Class

251
.svn/pristine/25/25891f0bdae78100b48b70c74e6e3d412130e05e.svn-base Normal file
View File

@@ -0,0 +1,251 @@
<?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>513, 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+i6qwYWvSBuc5vH
szM3Z1vnnG0nXTkzKnqDrKysNC1rhVa0YSoVRaVWRlr2omhoTMpErBXVRXhR9EIQXRR8Omosdlk/+MDz
e+D58Hx/zyP+pz69HAh+fjv6s21HLn+2ZutydWFXx4FCug5OI2XorJG4stfOw+QWPk708mHsFt9e9XNx
lzVb0Fkts2SZnaUrbCxb9ZecFVYWW1byPd1LumsfqWY/X9KPuLzHkS3oqJLJtTqx2SXsDlcGa76TnJU2
XrRFSJ3TGTkd5ON4D9f2F2QLHHGBVDeHArsPyaUgFbiRJBmXS2aVVWKi1WDkbIjHTUGmUp0zUf8cFcJ2
RJCeasdpSgrzNNzOAIrkR5G9yG4PeQ43z5Nhhpp1+uNreDt4idu1yqzAVicYe5egtV+QWyuwNwqcpwRy
1Xy8ShBPkZ/8Qh+j5zT6T+p8v7OQyb4Weuq9CFeDYPhNLckhQWLQXL8u48mbCE/fh2ckJZ4wxcVBJE+A
J6dVHpzQ+NG7iPHbzfQ1+mcF99PbSY4KkilBy3NB64Tg2dcIjpOCYHEZqwMh3MUaQ00B+o4HSWx38rTz
CI/igZkIFrsZoXtyHe1pQd50hKMCxwlB0d4F6GoUVTfwBQ0G4n7uHivh+gGF4UvVDDapmSFa8usFXa99
OI8LjMBWDK0SI1yOYUSJGKUEQlEeNHq50+Cju87LwPltjJwJZT2jxWleWWmYS9TYRLSsgrJo+QylJtra
GPcaPHTXFnHjkIfe5hijiUiWQLRVLmd9RSUVsc1UbNiYIWZSWr6Ju/UyNw8rdBx0c/NYiLGWUoSu6+ha
CE0Lo6rTmGtVM3s1g2r2q9fo7IwFuFCtmD9Q5mpNERPt62aH+K9U6Tm7Erutv15eiGVH+IeaZ7JECGH5
DX4YwpWqC/6hAAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKPSURBVDhPrY/JTxNRAIdf0kQPJoZ4MOFEUNwoyFpa1loI
SoDSsijIqoALmCBeeuAfICEhREwwHtCEG/HQSoqhtFqwhYEWenbfoAulQAuSiFB+vvcYqBKPTvIlM5nf
970Z8l+u+rr6zdbmFpgnprHgXcWibw3upTV4/EF4l0PwBULwB4JYXgliwiagva0dD+53boo6IY0NjWii
2GfmseBf/4vF5Q24AxvwrGzAt/oDM04X2GF3b9+BqBNys+kGGILDhZ3w7iHC2N4J49f2Dn5ubdND5vj2
VktrJNBQVw/GG8GJb0vBPXxBfKV8ob/z2buGT55VfHSvwGqf5VsWEXVCamuug2GeFOCln7qPJ7BOP5/9
Rgjf/SEeHLNO8S2LiDoh16qugjFqsWH+gxcuyvx7hgdzFOc7yls3ZikvTJN8W1tdEwlUlleA8ejJM+jH
JjFitsP4ahqjrwUYKSOWKRhMNjx/acXDx0/5lkVEnRCtugz/pEwT4dC7Sm15JKAuLsGfaErVqNBo+aiK
nsZgz0xUl5QebESdkKLCy2AUXymC1WqF0+nkOBwODrsXBAFZcgXkMtnBVtQJyc9TglGYXwCLxQJlbh4U
GXLY7XbYbDYeHR8fhzInF9mZWVDRbcElVSSQrcgEIy8rG2Y6TEtOQaJUCpPJBKPRCL1ej+HhYWTSqDxd
hhwWoYeIOiHpKalbspRUPjAYDDh7Og6nYmO5NDQ0hMHBQQwMDCApIRFJ0gRkpKZBQUOiTkjU8ah7iRfi
w2lJyXy8L/X396O3txc9PT3o7u7GORo+H3cGF+OlLLRL1WN7BUJOSCSS4piYmIqurq5mKrT19fV1UDpp
oIM963S6puiT0dojEomGQfcqQsjR30P5FY2GPFvEAAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnCopy.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABnSURBVDhPtZIBCsAgDAP79D6tP+tWpWNqdEFZIAalHhEU
M/MTDwARpX0MUL1zBIgzirklgMkCQNVmfmsbABrUg1S/T6G5BrCT/zVgDRvMlBd6PwAm4wL4N3XgS0sA
awiIJd/DuAWYX6K9icTfTBdeAAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnNew.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++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaYfFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwAuG3zVaDyZEUAAAAASUVORK5CYII=
</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="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>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>615, 17</value>
</metadata>
<data name="brnFileOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA90lEQVRYR+2UwQ2EIBBFqcCbNyuwgj16
swIq8OaNDmjAo01QhSfbYvksuu4EYwRM9jA/eVE0zv8jEwSLxWJdaVkWm0Mok65YUco4jrbrOg99F8qk
ixakwHye530tpbTGGH/VWj8f4GgONnP3aZkASilXsHG8PNSQspmDIgFgbu3kUJ66rvf9piAcTDfwN0KZ
dKHrjzlCfIPQtTHKm9I/Esqk6w8C/G4B7td1sm0rLqkqPwt5ogFgjmdaY8jOGQbgBzJPxy2Aed/HDY/A
HOdD0Rm423nRGUjpvFiApsEhdL/zYgFiB04M2nmxAK6IzCGUYbFYrBMJ8QYr85jIzjCyHwAAAABJRU5E
rkJggg==
</value>
</data>
<data name="btnDokumentAnzeigen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAwElEQVQ4T6WTMQ6DMAxFfY4eo71ST8LU
ibGiLB25Qa6RhQswcoKIydWP8isX0oTSJ1lRHP9vywKp4ZxThPc+Rkrvo+/vGkKIATHPXUYUUGQnQW4Y
HmUTFuJk0BDgnkq3oJPtTJEFuVS+hSKOvAZvVYPc2JaiAcW57gRvqTwPtvzNoNh9ni86TU/tuluM9fic
LJV/AvGyiI6jaNNc30V2Jym1BUKK2/Zc/1Asf4nt2D+LARbl3OmYGOCPw8IOiUXkBfwCjOxiDzXKAAAA
AElFTkSuQmCC
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAHcAdwAAAAAAAAAAAAAAAAB3DwB3AAAAAAAAAAAAAAAHcP//AHcAAAAAAAAAAAAAB3
D0//8AdwAAAAAAAAAAAHcP/0///wB3AAAAAAAAAAB3D/9E9P//AHcAAAAAAAAHcP//T09P//8AcAAAAA
AAB3D0T///T////wcAAAAAAHcP//RP//T0///wAAAAAAB3D///9E//////8AAAAAAHcP9E//////////
AAAAAAB3D//0T///////8AAAAAAHcP////RP//////AAAAAAB3D/RP//9E////8AAAAAAHcP//9E///0
T///AAAAAAB3D////0T///RP8AAAAAAHcP9E////RP////AAAAAAB3D//0T///9E//8AAAAAAHcP////
RP///0T/AAAAAAB3D/RP///0////8AAAAAAHcP//9E///0T///AAAAAAB3D////0T///RP8AAAAAAAcP
9E////RP////AAAAAAAHD//0T///9E//8AAAAAAAAAD///RP//////AAAAAAAAAAAP////////8AAAAA
AAAAAAAA////////AAAAAAAAAAAAAAD/////8AAAAAAAAAAAAAAAAP////AAAAAAAAAAAAAAAAAA//8A
AAAAAAAAAAAAAAAAAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/4H///+Af///AB///wAH//4AAf/+A
AB//AAAP/wAAB/4AAAP+AAAH/AAAB/wAAA/4AAAP+AAAH/AAAB/wAAA/4AAAP+AAAH/AAAB/wAAA/4AA
AP+AAAH/gAAB/4AAA//AAAP/8AAH//wAB///AA///8AP///wH////B////8//w==
</value>
</data>
</root>

335
.svn/pristine/25/25ca26b103f3a1db901d338b152b729d1a2ba833.svn-base 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>

476
.svn/pristine/26/2645ba93273e1d417a19c11583524fe08763f855.svn-base Normal file
View File

@@ -0,0 +1,476 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPruefplan
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(frmPruefplan))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeStammdaten = 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.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.grpPruefgegenstand = New System.Windows.Forms.GroupBox()
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.Panel3 = New System.Windows.Forms.Panel()
Me.grpPlanung = New System.Windows.Forms.GroupBox()
Me.cbboxZeitpunkt = New System.Windows.Forms.ComboBox()
Me.lblZeitpunkt = New System.Windows.Forms.Label()
Me.cbboxPeriodizitaet = New System.Windows.Forms.ComboBox()
Me.lblPeriodizitaet = New System.Windows.Forms.Label()
Me.cbboxPrioritaet = New System.Windows.Forms.ComboBox()
Me.lblPrioritaet = New System.Windows.Forms.Label()
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.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
CType(Me.TreeStammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.grpPruefgegenstand.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.grpPlanung.SuspendLayout()
Me.GrpVerantwortung.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1017, 25)
Me.ToolStrip1.TabIndex = 4
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "ToolStripButton1"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.ToolTipText = "Neu"
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1017, 24)
Me.MenuStrip1.TabIndex = 3
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
Me.BeendenToolStripMenuItem.Text = "&Schliessen"
'
'TreeStammdaten
'
Me.TreeStammdaten.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.TreeStammdaten.AllowDrop = True
Me.TreeStammdaten.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.TreeStammdaten.BackgroundStyle.Class = "TreeBorderKey"
Me.TreeStammdaten.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.TreeStammdaten.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeStammdaten.ImageList = Me.ImageList1
Me.TreeStammdaten.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.TreeStammdaten.Location = New System.Drawing.Point(0, 49)
Me.TreeStammdaten.Name = "TreeStammdaten"
Me.TreeStammdaten.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
Me.TreeStammdaten.NodesConnector = Me.NodeConnector1
Me.TreeStammdaten.NodeStyle = Me.ElementStyle1
Me.TreeStammdaten.PathSeparator = ";"
Me.TreeStammdaten.Size = New System.Drawing.Size(323, 596)
Me.TreeStammdaten.Styles.Add(Me.ElementStyle1)
Me.TreeStammdaten.TabIndex = 5
Me.TreeStammdaten.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, "Finma.jpg")
'
'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
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.ToolStrip2)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(323, 49)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(694, 596)
Me.Panel1.TabIndex = 6
'
'Panel2
'
Me.Panel2.Controls.Add(Me.grpPruefgegenstand)
Me.Panel2.Controls.Add(Me.Panel3)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel2.Location = New System.Drawing.Point(0, 25)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(682, 571)
Me.Panel2.TabIndex = 2
'
'grpPruefgegenstand
'
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.Fill
Me.grpPruefgegenstand.Location = New System.Drawing.Point(0, 118)
Me.grpPruefgegenstand.Name = "grpPruefgegenstand"
Me.grpPruefgegenstand.Size = New System.Drawing.Size(682, 453)
Me.grpPruefgegenstand.TabIndex = 1
Me.grpPruefgegenstand.TabStop = False
Me.grpPruefgegenstand.Text = "Prüfgegenstand"
'
'lblEreignisse2
'
Me.lblEreignisse2.AutoSize = True
Me.lblEreignisse2.Location = New System.Drawing.Point(8, 178)
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(9, 110)
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(96, 165)
Me.txtEreignisse.Multiline = True
Me.txtEreignisse.Name = "txtEreignisse"
Me.txtEreignisse.Size = New System.Drawing.Size(275, 62)
Me.txtEreignisse.TabIndex = 32
'
'lblEreignisse
'
Me.lblEreignisse.AutoSize = True
Me.lblEreignisse.Location = New System.Drawing.Point(8, 165)
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(96, 97)
Me.txtMassnahmen.Multiline = True
Me.txtMassnahmen.Name = "txtMassnahmen"
Me.txtMassnahmen.Size = New System.Drawing.Size(275, 62)
Me.txtMassnahmen.TabIndex = 30
'
'lblMassnahmen1
'
Me.lblMassnahmen1.AutoSize = True
Me.lblMassnahmen1.Location = New System.Drawing.Point(8, 97)
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(98, 29)
Me.txtPruefgegenstand.Multiline = True
Me.txtPruefgegenstand.Name = "txtPruefgegenstand"
Me.txtPruefgegenstand.Size = New System.Drawing.Size(275, 62)
Me.txtPruefgegenstand.TabIndex = 28
'
'lblPruefgegenstand
'
Me.lblPruefgegenstand.AutoSize = True
Me.lblPruefgegenstand.Location = New System.Drawing.Point(10, 29)
Me.lblPruefgegenstand.Name = "lblPruefgegenstand"
Me.lblPruefgegenstand.Size = New System.Drawing.Size(82, 13)
Me.lblPruefgegenstand.TabIndex = 27
Me.lblPruefgegenstand.Text = "Prüfgegenstand"
'
'Panel3
'
Me.Panel3.Controls.Add(Me.grpPlanung)
Me.Panel3.Controls.Add(Me.GrpVerantwortung)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(682, 118)
Me.Panel3.TabIndex = 0
'
'grpPlanung
'
Me.grpPlanung.Controls.Add(Me.cbboxZeitpunkt)
Me.grpPlanung.Controls.Add(Me.lblZeitpunkt)
Me.grpPlanung.Controls.Add(Me.cbboxPeriodizitaet)
Me.grpPlanung.Controls.Add(Me.lblPeriodizitaet)
Me.grpPlanung.Controls.Add(Me.cbboxPrioritaet)
Me.grpPlanung.Controls.Add(Me.lblPrioritaet)
Me.grpPlanung.Dock = System.Windows.Forms.DockStyle.Left
Me.grpPlanung.Location = New System.Drawing.Point(0, 0)
Me.grpPlanung.Name = "grpPlanung"
Me.grpPlanung.Size = New System.Drawing.Size(175, 118)
Me.grpPlanung.TabIndex = 0
Me.grpPlanung.TabStop = False
Me.grpPlanung.Text = "Planung"
'
'cbboxZeitpunkt
'
Me.cbboxZeitpunkt.FormattingEnabled = True
Me.cbboxZeitpunkt.Location = New System.Drawing.Point(70, 78)
Me.cbboxZeitpunkt.Name = "cbboxZeitpunkt"
Me.cbboxZeitpunkt.Size = New System.Drawing.Size(94, 21)
Me.cbboxZeitpunkt.TabIndex = 32
'
'lblZeitpunkt
'
Me.lblZeitpunkt.AutoSize = True
Me.lblZeitpunkt.Location = New System.Drawing.Point(6, 81)
Me.lblZeitpunkt.Name = "lblZeitpunkt"
Me.lblZeitpunkt.Size = New System.Drawing.Size(52, 13)
Me.lblZeitpunkt.TabIndex = 31
Me.lblZeitpunkt.Text = "Zeitpunkt"
'
'cbboxPeriodizitaet
'
Me.cbboxPeriodizitaet.FormattingEnabled = True
Me.cbboxPeriodizitaet.Location = New System.Drawing.Point(70, 50)
Me.cbboxPeriodizitaet.Name = "cbboxPeriodizitaet"
Me.cbboxPeriodizitaet.Size = New System.Drawing.Size(94, 21)
Me.cbboxPeriodizitaet.TabIndex = 30
'
'lblPeriodizitaet
'
Me.lblPeriodizitaet.AutoSize = True
Me.lblPeriodizitaet.Location = New System.Drawing.Point(7, 53)
Me.lblPeriodizitaet.Name = "lblPeriodizitaet"
Me.lblPeriodizitaet.Size = New System.Drawing.Size(58, 13)
Me.lblPeriodizitaet.TabIndex = 29
Me.lblPeriodizitaet.Text = "Periodizität"
'
'cbboxPrioritaet
'
Me.cbboxPrioritaet.FormattingEnabled = True
Me.cbboxPrioritaet.Location = New System.Drawing.Point(70, 22)
Me.cbboxPrioritaet.Name = "cbboxPrioritaet"
Me.cbboxPrioritaet.Size = New System.Drawing.Size(94, 21)
Me.cbboxPrioritaet.TabIndex = 28
'
'lblPrioritaet
'
Me.lblPrioritaet.AutoSize = True
Me.lblPrioritaet.Location = New System.Drawing.Point(7, 25)
Me.lblPrioritaet.Name = "lblPrioritaet"
Me.lblPrioritaet.Size = New System.Drawing.Size(42, 13)
Me.lblPrioritaet.TabIndex = 27
Me.lblPrioritaet.Text = "Priorität"
'
'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.Location = New System.Drawing.Point(177, 6)
Me.GrpVerantwortung.Name = "GrpVerantwortung"
Me.GrpVerantwortung.Size = New System.Drawing.Size(202, 109)
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(94, 21)
Me.cbboxVerantwortungISI.TabIndex = 35
'
'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(94, 21)
Me.cbboxVerantwortlich.TabIndex = 33
'
'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"
'
'ToolStrip2
'
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(694, 25)
Me.ToolStrip2.TabIndex = 0
Me.ToolStrip2.Text = "ToolStrip2"
'
'frmPruefplan
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1017, 645)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.TreeStammdaten)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "frmPruefplan"
Me.Text = "frmFinmaStammdaten"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.TreeStammdaten, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel2.ResumeLayout(False)
Me.grpPruefgegenstand.ResumeLayout(False)
Me.grpPruefgegenstand.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.grpPlanung.ResumeLayout(False)
Me.grpPlanung.PerformLayout()
Me.GrpVerantwortung.ResumeLayout(False)
Me.GrpVerantwortung.PerformLayout()
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 MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TreeStammdaten 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 ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Panel2 As System.Windows.Forms.Panel
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 Panel3 As System.Windows.Forms.Panel
Friend WithEvents grpPlanung 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 ToolStrip2 As System.Windows.Forms.ToolStrip
End Class

489
.svn/pristine/26/2647c68060f4aee3fb5f08b5e5907d01e86f5be3.svn-base Normal file
View File

@@ -0,0 +1,489 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'mitarbeiter_funktionsgruppe'
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'mitarbeiter_funktionsgruppe'.
''' </summary>
Public Class clsMitarbeiter_funktionsgruppe
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
Private m_iMutierer, m_iMandantnr, m_iMitarbeiternr, m_iFunktionsgruppenr, m_iMitarbeiter_funktionsgruppenr As SqlInt32
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_funktionsgruppe::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_funktionsgruppe::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_funktionsgruppe::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
''' <LI>iMitarbeiternr</LI>
''' <LI>iFunktionsgruppenr</LI>
''' <LI>bAktiv</LI>
''' <LI>iMandantnr</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("mitarbeiter_funktionsgruppe")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iMitarbeiter_funktionsgruppenr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiter_funktionsgruppenr"), Integer))
If dtToReturn.Rows(0)("mitarbeiternr") Is System.DBNull.Value Then
m_iMitarbeiternr = SqlInt32.Null
Else
m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer))
End If
If dtToReturn.Rows(0)("funktionsgruppenr") Is System.DBNull.Value Then
m_iFunktionsgruppenr = SqlInt32.Null
Else
m_iFunktionsgruppenr = New SqlInt32(CType(dtToReturn.Rows(0)("funktionsgruppenr"), Integer))
End If
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
m_iMandantnr = SqlInt32.Null
Else
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
End If
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_funktionsgruppe::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("mitarbeiter_funktionsgruppe")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMitarbeiter_funktionsgruppe::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iMitarbeiter_funktionsgruppenr]() As SqlInt32
Get
Return m_iMitarbeiter_funktionsgruppenr
End Get
Set(ByVal Value As SqlInt32)
Dim iMitarbeiter_funktionsgruppenrTmp As SqlInt32 = Value
If iMitarbeiter_funktionsgruppenrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iMitarbeiter_funktionsgruppenr", "iMitarbeiter_funktionsgruppenr can't be NULL")
End If
m_iMitarbeiter_funktionsgruppenr = Value
End Set
End Property
Public Property [iMitarbeiternr]() As SqlInt32
Get
Return m_iMitarbeiternr
End Get
Set(ByVal Value As SqlInt32)
m_iMitarbeiternr = Value
End Set
End Property
Public Property [iFunktionsgruppenr]() As SqlInt32
Get
Return m_iFunktionsgruppenr
End Get
Set(ByVal Value As SqlInt32)
m_iFunktionsgruppenr = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [iMandantnr]() As SqlInt32
Get
Return m_iMandantnr
End Get
Set(ByVal Value As SqlInt32)
m_iMandantnr = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

160
.svn/pristine/26/26b04f9a594b384210b7cd0a90b98bc92177356a.svn-base Normal file
View File

@@ -0,0 +1,160 @@
<?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>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="C1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAAHYcAAB2HAY/l8WUAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1TrueDBGrid1.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="C1TrueDBGrid1.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;Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style6{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}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="" CaptionHeight="28" ColumnCaptionHeight="28" ColumnFooterHeight="28" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="34" DefRecSelWidth="34" 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, 238, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&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;34&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 238, 148&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

181
.svn/pristine/28/2840c5438e416ead6c53190ed1f130611a0dbf40.svn-base Normal file
View File

@@ -0,0 +1,181 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMsgBox
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(frmMsgBox))
Me.btnYes = New System.Windows.Forms.Button
Me.btnno = New System.Windows.Forms.Button
Me.btnAbbruch = New System.Windows.Forms.Button
Me.txtmsg = New System.Windows.Forms.TextBox
Me.btnOK = New System.Windows.Forms.Button
Me.Panel1 = New System.Windows.Forms.Panel
Me.imgQuestion = New System.Windows.Forms.PictureBox
Me.imgInformation = New System.Windows.Forms.PictureBox
Me.imgExclamation = New System.Windows.Forms.PictureBox
Me.imgCritical = New System.Windows.Forms.PictureBox
Me.Panel1.SuspendLayout()
CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnYes
'
Me.btnYes.Location = New System.Drawing.Point(71, 84)
Me.btnYes.Name = "btnYes"
Me.btnYes.Size = New System.Drawing.Size(75, 23)
Me.btnYes.TabIndex = 0
Me.btnYes.Text = "&Ja"
Me.btnYes.UseVisualStyleBackColor = True
'
'btnno
'
Me.btnno.Location = New System.Drawing.Point(162, 84)
Me.btnno.Name = "btnno"
Me.btnno.Size = New System.Drawing.Size(75, 23)
Me.btnno.TabIndex = 1
Me.btnno.Text = "&Nein"
Me.btnno.UseVisualStyleBackColor = True
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(254, 84)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 2
Me.btnAbbruch.Text = "&Abbrechen"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'txtmsg
'
Me.txtmsg.BackColor = System.Drawing.Color.White
Me.txtmsg.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtmsg.Location = New System.Drawing.Point(67, 20)
Me.txtmsg.Multiline = True
Me.txtmsg.Name = "txtmsg"
Me.txtmsg.ReadOnly = True
Me.txtmsg.Size = New System.Drawing.Size(258, 44)
Me.txtmsg.TabIndex = 3
Me.txtmsg.TabStop = False
'
'btnOK
'
Me.btnOK.Location = New System.Drawing.Point(133, 84)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 5
Me.btnOK.Text = "&OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.imgQuestion)
Me.Panel1.Controls.Add(Me.imgInformation)
Me.Panel1.Controls.Add(Me.imgExclamation)
Me.Panel1.Controls.Add(Me.txtmsg)
Me.Panel1.Controls.Add(Me.imgCritical)
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(337, 78)
Me.Panel1.TabIndex = 6
'
'imgQuestion
'
Me.imgQuestion.Image = CType(resources.GetObject("imgQuestion.Image"), System.Drawing.Image)
Me.imgQuestion.InitialImage = CType(resources.GetObject("imgQuestion.InitialImage"), System.Drawing.Image)
Me.imgQuestion.Location = New System.Drawing.Point(12, 20)
Me.imgQuestion.Name = "imgQuestion"
Me.imgQuestion.Size = New System.Drawing.Size(39, 36)
Me.imgQuestion.TabIndex = 7
Me.imgQuestion.TabStop = False
'
'imgInformation
'
Me.imgInformation.Image = CType(resources.GetObject("imgInformation.Image"), System.Drawing.Image)
Me.imgInformation.InitialImage = CType(resources.GetObject("imgInformation.InitialImage"), System.Drawing.Image)
Me.imgInformation.Location = New System.Drawing.Point(12, 20)
Me.imgInformation.Name = "imgInformation"
Me.imgInformation.Size = New System.Drawing.Size(39, 36)
Me.imgInformation.TabIndex = 6
Me.imgInformation.TabStop = False
'
'imgExclamation
'
Me.imgExclamation.Image = CType(resources.GetObject("imgExclamation.Image"), System.Drawing.Image)
Me.imgExclamation.InitialImage = CType(resources.GetObject("imgExclamation.InitialImage"), System.Drawing.Image)
Me.imgExclamation.Location = New System.Drawing.Point(12, 20)
Me.imgExclamation.Name = "imgExclamation"
Me.imgExclamation.Size = New System.Drawing.Size(39, 36)
Me.imgExclamation.TabIndex = 5
Me.imgExclamation.TabStop = False
'
'imgCritical
'
Me.imgCritical.Image = CType(resources.GetObject("imgCritical.Image"), System.Drawing.Image)
Me.imgCritical.InitialImage = CType(resources.GetObject("imgCritical.InitialImage"), System.Drawing.Image)
Me.imgCritical.Location = New System.Drawing.Point(12, 20)
Me.imgCritical.Name = "imgCritical"
Me.imgCritical.Size = New System.Drawing.Size(39, 36)
Me.imgCritical.TabIndex = 4
Me.imgCritical.TabStop = False
'
'frmMsgBox
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(337, 116)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnno)
Me.Controls.Add(Me.btnYes)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmMsgBox"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Assessment-Management"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnYes As System.Windows.Forms.Button
Friend WithEvents btnno As System.Windows.Forms.Button
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents txtmsg As System.Windows.Forms.TextBox
Friend WithEvents imgCritical As System.Windows.Forms.PictureBox
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents imgExclamation As System.Windows.Forms.PictureBox
Friend WithEvents imgQuestion As System.Windows.Forms.PictureBox
Friend WithEvents imgInformation As System.Windows.Forms.PictureBox
End Class

165
.svn/pristine/28/28703faf2ee4da26ef49ae0794c06af84353156e.svn-base Normal file
View File

@@ -0,0 +1,165 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="SqlDataAdapter1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlInsertCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="SqlConnection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>152, 17</value>
</metadata>
<metadata name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SqlSelectCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="DataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>280, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAzd3d3MzMzAAAAAAAAAAAAM3d3dzMzMwAAAAAAAAAAM3eIiIi7MzMzAAAAAAAA
ADN3iIiIuzMzMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAA
AAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7
MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uI
iIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAA
AHe7iIiIiIi7dwAAAAAAAAB3u4iIiIiIu3cAAAAAAAAAiIj//////4h3AAAAAAAAAIiI//////+IdwAA
AAAAAAAzd3d3d3d3dzMAAAAAAAAAM3d3d3d3d3czAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////////////////////AAA//wA
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wA
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//////////////////////w==
</value>
</data>
</root>

BIN
.svn/pristine/28/28a8065c733c149975c5eceb07822319196a5842.svn-base Normal file
View File

Binary file not shown.

89
.svn/pristine/29/297f17b0c366a29c24c1b1e4455400a5675b32e4.svn-base Normal file
View File

@@ -0,0 +1,89 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLogin
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(frmLogin))
Me.lblBitteAnmelden = New System.Windows.Forms.Label
Me.cbMitarbeiter = New System.Windows.Forms.ComboBox
Me.btnAbbruch = New System.Windows.Forms.Button
Me.btnAnmelden = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'lblBitteAnmelden
'
Me.lblBitteAnmelden.Location = New System.Drawing.Point(12, 9)
Me.lblBitteAnmelden.Name = "lblBitteAnmelden"
Me.lblBitteAnmelden.Size = New System.Drawing.Size(136, 23)
Me.lblBitteAnmelden.TabIndex = 3
Me.lblBitteAnmelden.Text = "Bitte melden Sie sich an"
'
'cbMitarbeiter
'
Me.cbMitarbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbMitarbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbMitarbeiter.FormattingEnabled = True
Me.cbMitarbeiter.Location = New System.Drawing.Point(15, 35)
Me.cbMitarbeiter.Name = "cbMitarbeiter"
Me.cbMitarbeiter.Size = New System.Drawing.Size(257, 21)
Me.cbMitarbeiter.TabIndex = 4
'
'btnAbbruch
'
Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnAbbruch.Location = New System.Drawing.Point(158, 76)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(104, 24)
Me.btnAbbruch.TabIndex = 6
Me.btnAbbruch.Text = "&Abbruch"
'
'btnAnmelden
'
Me.btnAnmelden.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnAnmelden.Location = New System.Drawing.Point(14, 76)
Me.btnAnmelden.Name = "btnAnmelden"
Me.btnAnmelden.Size = New System.Drawing.Size(104, 24)
Me.btnAnmelden.TabIndex = 5
Me.btnAnmelden.Text = "&Anmelden"
'
'frmLogin
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(308, 129)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnAnmelden)
Me.Controls.Add(Me.cbMitarbeiter)
Me.Controls.Add(Me.lblBitteAnmelden)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmLogin"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Benutzerauswahl Assessment-Management"
Me.TopMost = True
Me.ResumeLayout(False)
End Sub
Friend WithEvents lblBitteAnmelden As System.Windows.Forms.Label
Friend WithEvents cbMitarbeiter As System.Windows.Forms.ComboBox
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents btnAnmelden As System.Windows.Forms.Button
End Class

1
.svn/pristine/29/29b0e8ce06b7f59f8082b14bc7518721387bd468.svn-base Normal file
View File

@@ -0,0 +1 @@
a5d29d63a6164e3e552c1030e48b27c9c35df05e

BIN
.svn/pristine/2a/2a0cf3cbe47ccfabca712377464f7f77f295adc8.svn-base Normal file
View File

Binary file not shown.

92
.svn/pristine/2a/2aeeeee7b7274c87b4d3fccaceb384f02d3b6d05.svn-base Normal file
View File

@@ -0,0 +1,92 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDataSelect
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(frmDataSelect))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStrip1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(451, 25)
Me.ToolStrip1.TabIndex = 4
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 = "Fenster schliessen"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'C1Daten
'
Me.C1Daten.AllowUpdate = False
Me.C1Daten.AlternatingRows = True
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.ScrollTips = True
Me.C1Daten.Size = New System.Drawing.Size(451, 284)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 7
Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
'
'frmDataSelect
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(451, 309)
Me.Controls.Add(Me.C1Daten)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "frmDataSelect"
Me.Text = "Datenauswahl"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
End Class

8600
.svn/pristine/2c/2c814d6cd0b57b2b58420932357bd5e50dab6d9b.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
.svn/pristine/2c/2cd7765d15f39ffc45ab4e96fcdc2e8ce7e118b6.svn-base Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 6.4 KiB

640
.svn/pristine/2d/2d7a5bdd97168841589195148e6855c964c658f6.svn-base Normal file
View File

@@ -0,0 +1,640 @@
Public Class frmVorgabe
#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 Vorgabe As New clsVorgabe
Dim VorgabeTree As New clsVorgabeTree
Dim VorgabeDefinition As New clsVorgabeDefinition
Dim OnGetData As Boolean
Dim Pruefplannr As Integer = 0
#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
Vorgabe.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 "Formular"
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.ImageList1 = Globals.GueltigImages
Me.TreeVorgabe.ImageList = Me.ImageList1
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ByVal Pruefplannr As Integer, Optional from_Massnahme As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.ImageList1 = Globals.GueltigImages
Me.Pruefplannr = Pruefplannr
Me.VorgabeTree.Pruefplannr = Me.Pruefplannr
Me.VorgabeTree.Tree_From_Pruefplan = True
If from_Massnahme = True Then
Me.VorgabeTree.Tree_from_Massnahmeplan = True
Me.VorgabeTree.Tree_From_Pruefplan = False
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmVorgabe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
VorgabeTree.Refresh_Filter(Me.tsCbxFilter)
Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
AddChanges(Me)
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
#End Region
#Region "Tree"
Private Sub TreeVorgabe_AfterNodeSelect(sender As Object, e As DevComponents.AdvTree.AdvTreeNodeEventArgs) Handles TreeVorgabe.AfterNodeSelect
Me.OnGetData = True
Try
VorgabeTree.Get_Eintraege(Me.C1Daten, Me.TreeVorgabe.SelectedNode.Tag)
If Me.C1Daten.Splits(0).DisplayColumns.Count < 1 Then Me.ToolStripDefinition.Enabled = False Else Me.ToolStripDefinition.Enabled = True
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
Catch
End Try
Refresh_Details()
Me.OnGetData = False
End Sub
Private Sub NeuerEintragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem.Click
Dim f As New frmNeuerVorgabeEintrag
f.SelectedNode = Me.TreeVorgabe.SelectedNode
f.Tree = Me.TreeVorgabe
f.Key = -1
f.ShowDialog()
If f.DialogResult = Windows.Forms.DialogResult.OK Then
Me.TreeVorgabe.Nodes.Clear()
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
If Me.tsCbxFilter.Text <> "" Then
Me.tsCbxFilter_SelectedIndexChanged(sender, e)
End If
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNode(Me.TreeVorgabe.Nodes, f.Key, f.Key.ToString)
End If
End Sub
Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
Dim f As New frmNeuerVorgabeEintrag
f.SelectedNode = Me.TreeVorgabe.SelectedNode
f.Tree = Me.TreeVorgabe
f.Key = Me.TreeVorgabe.SelectedNode.Tag
f.ShowDialog()
If f.DialogResult = Windows.Forms.DialogResult.OK Then
Me.TreeVorgabe.Nodes.Clear()
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
If Me.tsCbxFilter.Text <> "" Then
Me.tsCbxFilter_SelectedIndexChanged(sender, e)
End If
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNode(Me.TreeVorgabe.Nodes, f.Key, f.Key.ToString)
End If
End Sub
Private Sub NeueVorgabeErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueVorgabeErstellenToolStripMenuItem.Click
Dim s As String
s = InputBox("Titel der neuen Vorgabe", "Titel der neuen Vorgabe")
If s <> "" Then
Vorgabe.Add_New()
Dim key As Integer = Vorgabe.iVorgabeID.Value
Vorgabe.iParentID = New SqlTypes.SqlInt32(CType(0, Int32))
Vorgabe.sKapitelNr = New SqlTypes.SqlString(CType("", String))
Vorgabe.sKapitel = New SqlTypes.SqlString(CType(s, String))
Vorgabe.Save_Data()
Me.TreeVorgabe.Nodes.Clear()
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
VorgabeTree.Refresh_Filter(Me.tsCbxFilter)
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNode(Me.TreeVorgabe.Nodes, key, key.ToString)
End If
End Sub
Private Sub tsCbxFilter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tsCbxFilter.SelectedIndexChanged
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
If tsCbxFilter.Text = "-- Alle --" Then Exit Sub
Try
For Each n As DevComponents.AdvTree.Node In Me.TreeVorgabe.Nodes
If Trim(n.Text) <> Trim(tsCbxFilter.Text) Then
n.Remove()
End If
Next
Catch
End Try
End Sub
Private Sub TSBtnFilterAufheben_Click(sender As Object, e As EventArgs) Handles TSBtnFilterAufheben.Click
Me.tstxtSuche.Text = ""
Me.VorgabeTree.Init_Search()
End Sub
Private Sub TSBtnSuche_Click(sender As Object, e As EventArgs) Handles TSBtnSuche.Click
Me.VorgabeTree.Init_Search()
Me.TreeVorgabe.SelectedNode = VorgabeTree.SearchNode(Me.TreeVorgabe, Trim(Me.tstxtSuche.Text))
Me.TreeVorgabe.SelectedNode.EnsureVisible()
End Sub
Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindFirst(Me.TreeVorgabe)
End Sub
Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindPrevNode(Me.TreeVorgabe)
End Sub
Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNextNode(Me.TreeVorgabe)
End Sub
Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
Me.TreeVorgabe.SelectedNode = VorgabeTree.FindLastNode(Me.TreeVorgabe)
End Sub
Private Sub tstxtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtSuche.KeyDown
If e.KeyCode = Keys.Enter Then TSBtnSuche_Click(sender, e)
End Sub
Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
Try
If C1Daten.Splits(0).Rows.Count > 0 Then
If MsgBox("Struktureintragwirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Me.Vorgabe.Get_Data(Me.C1Daten.Columns("Vorgabeid").Value)
Dim selnode As DevComponents.AdvTree.Node
selnode = Me.TreeVorgabe.SelectedNode.Parent
Me.Vorgabe.Get_Data(Me.TreeVorgabe.SelectedNode.Tag)
Me.Vorgabe.Delete_Data()
Me.TreeVorgabe.Nodes.Clear()
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
Try
Me.TreeVorgabe.SelectedNode = selnode
Catch ex As Exception
Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
End Try
End If
End If
Catch ex As Exception
End Try
End Sub
#End Region
#Region "C1Daten"
Private Sub C1Daten_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Daten.RowColChange
If Me.OnGetData Then Exit Sub
Refresh_Details()
Refresh_C2Daten()
End Sub
Sub Refresh_Details()
Me.DokumenteAllgemein.Show_Toolbar = True
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteAllgemein.Doktype = 1
Me.DokumenteAllgemein.ThemaNr = C1Daten.Columns("vorgabeid").Value
Me.DokumenteAllgemein.Refresh()
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
Refresh_C2Daten()
End Sub
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 TsBtnAddNewStruktur_Click(sender As Object, e As EventArgs) Handles TsBtnAddNewStruktur.Click
NeuerEintragToolStripMenuItem_Click(sender, e)
End Sub
Private Sub TsBtnEditStruktur_Click(sender As Object, e As EventArgs) Handles TsBtnEditStruktur.Click
Try
Dim bookamark
Dim selnode As DevComponents.AdvTree.Node
selnode = Me.TreeVorgabe.SelectedNode
bookamark = C1Daten.Bookmark
Dim f As New frmNeuerVorgabeEintrag
f.SelectedNode = Me.TreeVorgabe.SelectedNode
f.Parentnode = Me.TreeVorgabe.SelectedNode.Parent
f.Tree = Me.TreeVorgabe
f.Key = Me.C1Daten.Columns("Vorgabeid").Value
f.ShowDialog()
If f.DialogResult = Windows.Forms.DialogResult.OK Then
Me.TreeVorgabe.Nodes.Clear()
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
If Me.tsCbxFilter.Text <> "" Then
Me.tsCbxFilter_SelectedIndexChanged(sender, e)
End If
Me.TreeVorgabe.SelectedNode = selnode
Me.C1Daten.Bookmark = bookamark
End If
Catch
End Try
End Sub
Private Sub TsBtnDeleteStruktur_Click(sender As Object, e As EventArgs) Handles TsBtnDeleteStruktur.Click
Try
If C1Daten.Splits(0).Rows.Count > 0 Then
If MsgBox("Struktureintragwirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Me.Vorgabe.Get_Data(Me.C1Daten.Columns("Vorgabeid").Value)
Dim selnode As DevComponents.AdvTree.Node
selnode = Me.TreeVorgabe.SelectedNode
Me.Vorgabe.Get_Data(Me.C1Daten.Columns("Vorgabeid").Value)
Me.Vorgabe.Delete_Data()
Me.TreeVorgabe.Nodes.Clear()
VorgabeTree.Load_Treeview(Me.TreeVorgabe)
Try
Me.TreeVorgabe.SelectedNode = selnode
Catch ex As Exception
Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
End Try
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub ToolStripMenuVorgabeNeu_Click(sender As Object, e As EventArgs) Handles ToolStripMenuVorgabeNeu.Click
TsBtnAddNewStruktur_Click(sender, e)
End Sub
Private Sub ToolStripMenuVorgabeEdit_Click(sender As Object, e As EventArgs) Handles ToolStripMenuVorgabeEdit.Click
TsBtnEditStruktur_Click(sender, e)
End Sub
Private Sub ToolStripMenuVorgabeDelete_Click(sender As Object, e As EventArgs) Handles ToolStripMenuVorgabeDelete.Click
TsBtnDeleteStruktur_Click(sender, e)
End Sub
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
Try
ToolStripMenuVorgabeEdit_Click(sender, e)
Catch
End Try
End Sub
#End Region
#Region "C2Daten"
Private Sub C2Daten_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C2Daten.RowColChange
If Me.OnGetData Then Exit Sub
Refresh_DetailsDefinition()
End Sub
Sub Refresh_C2Daten()
VorgabeDefinition.Get_Eintraege(Me.C2Daten, Me.C1Daten.Columns("vorgabeid").Value)
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.C2Daten.Columns("Icon").ValueItems.Values.Add(v0)
Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v1)
Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v2)
Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v3)
Me.C2Daten.Columns("Icon").ValueItems.Translate = True
Me.C2Daten.Splits(0).DisplayColumns("icon").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
Refresh_DetailsDefinition()
End Sub
Private Sub C2Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C2Daten.MouseDown
Me.C2Daten.Bookmark = Me.C2Daten.RowContaining(e.Y)
End Sub
Sub Refresh_DetailsDefinition()
Try
Me.DokumenteDefinition.Show_Toolbar = True
Me.DokumenteDefinition.ConnectionString = Globals.sConnectionString
Me.DokumenteDefinition.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteDefinition.Doktype = 2
Try
Me.DokumenteDefinition.ThemaNr = C2Daten.Columns("VorgabeDefinitionNr").Value
Catch
Me.DokumenteDefinition.ThemaNr = -1
End Try
Me.DokumenteDefinition.Refresh()
Me.DokumenteDefinition.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
Catch
End Try
End Sub
Private Sub TSBtnAddNewDefinition_Click(sender As Object, e As EventArgs) Handles TSBtnAddNewDefinition.Click
Try
Dim f As New frmVorgabeDefinition
f.Key = -1
f.VorgabeID = Me.C1Daten.Columns("VorgabeID").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then Refresh_C2Daten()
Catch
End Try
End Sub
Private Sub TsBtnEditDefinition_Click(sender As Object, e As EventArgs) Handles TsBtnEditDefinition.Click
Try
Dim f As New frmVorgabeDefinition
f.Key = Me.C2Daten.Columns("VorgabeDefinitionNr").Value
f.VorgabeID = Me.C1Daten.Columns("VorgabeID").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then Refresh_C2Daten()
Catch
End Try
End Sub
Private Sub TsBtnDeleteDefinition_Click(sender As Object, e As EventArgs) Handles TsBtnDeleteDefinition.Click
Try
If C2Daten.Splits(0).Rows.Count > 0 Then
If MsgBox("Definition wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Dim vorgabedefinition As New clsVorgabeDefinition
vorgabedefinition.Get_Data(Me.C2Daten.Columns("VorgabeDefinitionNr").Value)
vorgabedefinition.Delete_Data()
Me.Refresh_C2Daten()
vorgabedefinition = Nothing
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub NeuerEintragToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem1.Click
Me.TSBtnAddNewDefinition_Click(sender, e)
End Sub
Private Sub EintragBearbeitenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem1.Click
TsBtnEditDefinition_Click(sender, e)
End Sub
Private Sub EintragLöschenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem1.Click
TsBtnDeleteDefinition_Click(sender, e)
End Sub
Private Sub C2Daten_DoubleClick(sender As Object, e As EventArgs) Handles C2Daten.DoubleClick
Try
TsBtnEditDefinition_Click(sender, e)
Catch ex As Exception
End Try
End Sub
#End Region
#Region "Toolbar Form"
Private Sub tsBtnSearchStruktur_Definition_Click(sender As Object, e As EventArgs) Handles tsBtnSearchStruktur_Definition.Click
VorgabeTree.search_Eintraege(Me.TreeVorgabe, Me.tsTxtSearchStruktur_Definition.Text)
End Sub
Private Sub tsTxtSearchStruktur_Definition_KeyDown(sender As Object, e As KeyEventArgs) Handles tsTxtSearchStruktur_Definition.KeyDown
If e.KeyCode = Keys.Enter Then tsBtnSearchStruktur_Definition_Click(sender, e)
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
tsTxtSearchStruktur_Definition.Text = ""
tsBtnSearchStruktur_Definition_Click(sender, e)
End Sub
Private Sub TreeVorgabe_Click(sender As Object, e As EventArgs) Handles TreeVorgabe.Click
End Sub
#End Region
End Class

2008
.svn/pristine/2d/2d7fe525a06062e7a39c632158a00c533a437f49.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

577
.svn/pristine/2d/2dd63308262362c22e8af9533129b5b75b795920.svn-base Normal file
View File

@@ -0,0 +1,577 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
Public Class clsMassnahmeplan
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daGueltig_Bis, m_daErstmals_am, m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iVerantwortlichNr, m_iTerminierungID, m_iMutierer, m_iVerantwortungISINr, m_iPrioritaetNr, m_iPeriodizitaetNr, m_iMassnahmeplanNr, m_iZeitpunktNr As SqlInt32
Private m_sBezeichnung, m_sMassnahmen, m_sPruefgegenstand, m_sErgebnisse, m_sHilfsmittel, m_sBeschreibung As SqlString
#End Region
Public Sub New()
' // Nothing for now.
End Sub
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPrioritaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPrioritaetNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iZeitpunktNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZeitpunktNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstmals_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstmals_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sPruefgegenstand", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPruefgegenstand))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHilfsmittel", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHilfsmittel))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmen", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmen))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgebnisse", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgebnisse))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungISINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungISINr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iTerminierungID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTerminierungID))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMassnahmeplan::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPrioritaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPrioritaetNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iZeitpunktNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZeitpunktNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstmals_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstmals_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sPruefgegenstand", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPruefgegenstand))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHilfsmittel", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHilfsmittel))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmen", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmen))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgebnisse", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgebnisse))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungISINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungISINr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iTerminierungID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTerminierungID))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMassnahmeplan::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMassnahmeplan::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Massnahmeplan")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iMassnahmeplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("MassnahmeplanNr"), Integer))
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
m_sBezeichnung = SqlString.Null
Else
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
End If
If dtToReturn.Rows(0)("PrioritaetNr") Is System.DBNull.Value Then
m_iPrioritaetNr = SqlInt32.Null
Else
m_iPrioritaetNr = New SqlInt32(CType(dtToReturn.Rows(0)("PrioritaetNr"), Integer))
End If
If dtToReturn.Rows(0)("PeriodizitaetNr") Is System.DBNull.Value Then
m_iPeriodizitaetNr = SqlInt32.Null
Else
m_iPeriodizitaetNr = New SqlInt32(CType(dtToReturn.Rows(0)("PeriodizitaetNr"), Integer))
End If
If dtToReturn.Rows(0)("ZeitpunktNr") Is System.DBNull.Value Then
m_iZeitpunktNr = SqlInt32.Null
Else
m_iZeitpunktNr = New SqlInt32(CType(dtToReturn.Rows(0)("ZeitpunktNr"), Integer))
End If
If dtToReturn.Rows(0)("Erstmals_am") Is System.DBNull.Value Then
m_daErstmals_am = SqlDateTime.Null
Else
m_daErstmals_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstmals_am"), Date))
End If
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
m_sBeschreibung = SqlString.Null
Else
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
End If
If dtToReturn.Rows(0)("Pruefgegenstand") Is System.DBNull.Value Then
m_sPruefgegenstand = SqlString.Null
Else
m_sPruefgegenstand = New SqlString(CType(dtToReturn.Rows(0)("Pruefgegenstand"), String))
End If
If dtToReturn.Rows(0)("Hilfsmittel") Is System.DBNull.Value Then
m_sHilfsmittel = SqlString.Null
Else
m_sHilfsmittel = New SqlString(CType(dtToReturn.Rows(0)("Hilfsmittel"), String))
End If
If dtToReturn.Rows(0)("Massnahmen") Is System.DBNull.Value Then
m_sMassnahmen = SqlString.Null
Else
m_sMassnahmen = New SqlString(CType(dtToReturn.Rows(0)("Massnahmen"), String))
End If
If dtToReturn.Rows(0)("Ergebnisse") Is System.DBNull.Value Then
m_sErgebnisse = SqlString.Null
Else
m_sErgebnisse = New SqlString(CType(dtToReturn.Rows(0)("Ergebnisse"), String))
End If
If dtToReturn.Rows(0)("VerantwortlichNr") Is System.DBNull.Value Then
m_iVerantwortlichNr = SqlInt32.Null
Else
m_iVerantwortlichNr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortlichNr"), Integer))
End If
If dtToReturn.Rows(0)("VerantwortungISINr") Is System.DBNull.Value Then
m_iVerantwortungISINr = SqlInt32.Null
Else
m_iVerantwortungISINr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortungISINr"), Integer))
End If
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
End If
If dtToReturn.Rows(0)("Gueltig_Bis") Is System.DBNull.Value Then
m_daGueltig_Bis = SqlDateTime.Null
Else
m_daGueltig_Bis = New SqlDateTime(CType(dtToReturn.Rows(0)("Gueltig_Bis"), Date))
End If
If dtToReturn.Rows(0)("TerminierungID") Is System.DBNull.Value Then
m_iTerminierungID = SqlInt32.Null
Else
m_iTerminierungID = New SqlInt32(CType(dtToReturn.Rows(0)("TerminierungID"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMassnahmeplan::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Massnahmeplan")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMassnahmeplan::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iMassnahmeplanNr]() As SqlInt32
Get
Return m_iMassnahmeplanNr
End Get
Set(ByVal Value As SqlInt32)
Dim iMassnahmeplanNrTmp As SqlInt32 = Value
If iMassnahmeplanNrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iMassnahmeplanNr", "iMassnahmeplanNr can't be NULL")
End If
m_iMassnahmeplanNr = Value
End Set
End Property
Public Property [sBezeichnung]() As SqlString
Get
Return m_sBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sBezeichnung = Value
End Set
End Property
Public Property [iPrioritaetNr]() As SqlInt32
Get
Return m_iPrioritaetNr
End Get
Set(ByVal Value As SqlInt32)
m_iPrioritaetNr = Value
End Set
End Property
Public Property [iPeriodizitaetNr]() As SqlInt32
Get
Return m_iPeriodizitaetNr
End Get
Set(ByVal Value As SqlInt32)
m_iPeriodizitaetNr = Value
End Set
End Property
Public Property [iZeitpunktNr]() As SqlInt32
Get
Return m_iZeitpunktNr
End Get
Set(ByVal Value As SqlInt32)
m_iZeitpunktNr = Value
End Set
End Property
Public Property [daErstmals_am]() As SqlDateTime
Get
Return m_daErstmals_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstmals_am = Value
End Set
End Property
Public Property [sBeschreibung]() As SqlString
Get
Return m_sBeschreibung
End Get
Set(ByVal Value As SqlString)
m_sBeschreibung = Value
End Set
End Property
Public Property [sPruefgegenstand]() As SqlString
Get
Return m_sPruefgegenstand
End Get
Set(ByVal Value As SqlString)
m_sPruefgegenstand = Value
End Set
End Property
Public Property [sHilfsmittel]() As SqlString
Get
Return m_sHilfsmittel
End Get
Set(ByVal Value As SqlString)
m_sHilfsmittel = Value
End Set
End Property
Public Property [sMassnahmen]() As SqlString
Get
Return m_sMassnahmen
End Get
Set(ByVal Value As SqlString)
m_sMassnahmen = Value
End Set
End Property
Public Property [sErgebnisse]() As SqlString
Get
Return m_sErgebnisse
End Get
Set(ByVal Value As SqlString)
m_sErgebnisse = Value
End Set
End Property
Public Property [iVerantwortlichNr]() As SqlInt32
Get
Return m_iVerantwortlichNr
End Get
Set(ByVal Value As SqlInt32)
m_iVerantwortlichNr = Value
End Set
End Property
Public Property [iVerantwortungISINr]() As SqlInt32
Get
Return m_iVerantwortungISINr
End Get
Set(ByVal Value As SqlInt32)
m_iVerantwortungISINr = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
Public Property [daGueltig_Bis]() As SqlDateTime
Get
Return m_daGueltig_Bis
End Get
Set(ByVal Value As SqlDateTime)
m_daGueltig_Bis = Value
End Set
End Property
Public Property [iTerminierungID]() As SqlInt32
Get
Return m_iTerminierungID
End Get
Set(ByVal Value As SqlInt32)
m_iTerminierungID = Value
End Set
End Property
#End Region
End Class
End Namespace

BIN
.svn/pristine/2f/2f446408eec9ed8107a39ba75141350c9200c716.svn-base Normal file
View File

Binary file not shown.

3682
.svn/pristine/2f/2f5b2c091f21a989afaec0dbafe8fe78dcff9d30.svn-base Normal file
View File

File diff suppressed because it is too large Load Diff

122
.svn/pristine/2f/2fa0663bbf64a15bd8cf1c21f30620d98b27703e.svn-base Normal file
View File

@@ -0,0 +1,122 @@
Imports System.Windows.Forms
Imports FastReport
Public Class frmcrreporting
Dim ds As DataSet
Dim auswertungnr As Integer
Dim dms As New Utils.MyDocMgmt
Dim auswertung As New TKB.Auswertung.clsAuswertung
Dim rptfilename As String
Dim printparam As Boolean = True
Dim StandardAuswertung As Boolean = True
Dim Design As Boolean = False
Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer, ByRef auswertung As TKB.Auswertung.clsAuswertung, ByVal printparam As Boolean, ByVal Design As Boolean)
InitializeComponent()
Me.ds = ds
Me.auswertungnr = Auswertungnr
Me.auswertung = auswertung
Me.printparam = printparam
Me.StandardAuswertung = True
Me.Design = Design
End Sub
Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer)
InitializeComponent()
Me.ds = ds
Me.auswertungnr = Auswertungnr
Me.StandardAuswertung = False
End Sub
Private Sub frmcrreporting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Public Sub DesignReport()
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()
rptfilename = dms.Get_RptDatei(Me.auswertungnr)
Dim i As Integer
ds.Tables(0).TableName = "Daten"
For i = 1 To ds.Tables.Count - 1
ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
Next
Dim report As New Report
Try
If rptfilename <> "" Then report.Load(rptfilename)
report.RegisterData(ds)
report.GetDataSource("Daten").Enabled = True
report.SetParameterValue("Titel1", auswertung.TitelZeile1)
report.SetParameterValue("Titel2", auswertung.TitelZeile2)
If Me.printparam Then
i = 0
Dim s As String = ""
For i = 1 To Me.auswertung.ParamCollection.Count
If s <> "" Then s = s + "|"
s = s + Me.auswertung.ParamCollection.Item(i).ToString
Next
report.SetParameterValue("Parameters", s)
End If
Cursor = Cursors.Default
report.Preview = Me.PreviewControl1
report.Design()
report.Dispose()
Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub DisplayReport()
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()
rptfilename = dms.Get_RptDatei(Me.auswertungnr)
Dim i As Integer
ds.Tables(0).TableName = "Daten"
For i = 1 To ds.Tables.Count - 1
ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
Next
Dim report As New Report
Try
If rptfilename <> "" Then report.Load(rptfilename)
report.RegisterData(ds)
report.GetDataSource("Daten").Enabled = True
report.SetParameterValue("Titel1", auswertung.TitelZeile1)
report.SetParameterValue("Titel2", auswertung.TitelZeile2)
If Me.printparam Then
i = 0
Dim s As String = ""
For i = 1 To Me.auswertung.ParamCollection.Count
If s <> "" Then s = s + "|"
s = s + Me.auswertung.ParamCollection.Item(i).ToString
Next
report.SetParameterValue("Parameters", s)
End If
Cursor = Cursors.Default
report.Preview = Me.PreviewControl1
report.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
End Class

3
.svn/pristine/2f/2fd3f427947cc0ceb7b929e5a32448e09efb2f08.svn-base Normal file
View File

@@ -0,0 +1,3 @@
Telerik.WinControls.UI.RadBindingNavigator, Telerik.WinControls.UI, Version=2015.3.1104.20, Culture=neutral, PublicKeyToken=5bb2a467cbec794e
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20141.61347, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20123.61277, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

58
.svn/pristine/30/302c62c128ef9aadbf3f26b4ed77bd5d346f17bb.svn-base Normal file
View File

@@ -0,0 +1,58 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 14
VisualStudioVersion = 14.0.25123.0
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AssessmentMgmt", "AssessmentMgmt\AssessmentMgmt.vbproj", "{1B191999-7204-4EB5-96F7-A6805B0B32FC}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ThemenDokumente", "Dokumente\ThemenDokumente.vbproj", "{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "_FRReporting", "_FRReporting\_FRReporting.vbproj", "{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Debug|Mixed Platforms = Debug|Mixed Platforms
Debug|x86 = Debug|x86
Release|Any CPU = Release|Any CPU
Release|Mixed Platforms = Release|Mixed Platforms
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|Any CPU.ActiveCfg = Debug|x86
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|Mixed Platforms.Build.0 = Debug|x86
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|x86.ActiveCfg = Debug|x86
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|x86.Build.0 = Debug|x86
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|Any CPU.ActiveCfg = Release|x86
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|Mixed Platforms.ActiveCfg = Release|x86
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|Mixed Platforms.Build.0 = Release|x86
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|x86.ActiveCfg = Release|x86
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|x86.Build.0 = Release|x86
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|Any CPU.Build.0 = Debug|Any CPU
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|x86.ActiveCfg = Debug|Any CPU
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|Any CPU.ActiveCfg = Release|Any CPU
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|Any CPU.Build.0 = Release|Any CPU
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|x86.ActiveCfg = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.Build.0 = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|x86.ActiveCfg = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|x86.Build.0 = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.ActiveCfg = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.Build.0 = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|x86.ActiveCfg = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|x86.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

BIN
.svn/pristine/30/307f4b9c05e70f596784fe6bc80ea07e74b86107.svn-base Normal file
View File

Binary file not shown.

43
.svn/pristine/30/30d31478ffe97263a24b6ad68f6460da62de0aa5.svn-base Normal file
View File

@@ -0,0 +1,43 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class Demo_Mailgenerierung
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
GetData()
End Sub
Private Sub GetData()
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_erinnerungsmails"
sqlcmd.Parameters.Add(New SqlParameter("@datum", SqlDbType.Date, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DateTimePicker1.Value))
sqlcmd.Parameters.Add(New SqlParameter("@demo", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Try
C1Daten.DataSource = Nothing
Catch
End Try
C1Daten.DataSource = ds.Tables(0)
C1Daten.DataMember = ds.Tables(0).TableName
For i = 0 To C1Daten.Splits(0).DisplayColumns.Count - 1
C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

Some files were not shown because too many files have changed in this diff Show More