Initial commit
This commit is contained in:
@@ -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
|
||||
Binary file not shown.
@@ -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
3503
.svn/pristine/00/0078788ce228eb0b83e76da5d21686f9b9e4208c.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -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><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 238, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 238, 148</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -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
|
||||
@@ -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
|
||||
@@ -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
|
||||
@@ -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><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 623, 292</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 623, 292</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></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>
|
||||
@@ -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
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 1.5 KiB |
@@ -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
|
||||
@@ -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
|
||||
@@ -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
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 1.5 KiB |
11102
.svn/pristine/06/06da4c0106ff63389b629bde5f42663ad79c1dd9.svn-base
Normal file
11102
.svn/pristine/06/06da4c0106ff63389b629bde5f42663ad79c1dd9.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
Binary file not shown.
@@ -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
|
||||
@@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -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
3527
.svn/pristine/0b/0b135feedfadadce7fda0a9ffe5737b6859e8bdf.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@@ -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
|
||||
@@ -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
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 1.7 KiB |
@@ -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
|
||||
@@ -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
|
||||
@@ -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><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 832, 393</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 832, 393</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></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>
|
||||
@@ -0,0 +1 @@
|
||||
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||
@@ -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
|
||||
Binary file not shown.
4217
.svn/pristine/10/106fb66764c89ecbc05b2217ea91be495491d0d7.svn-base
Normal file
4217
.svn/pristine/10/106fb66764c89ecbc05b2217ea91be495491d0d7.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
@@ -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
3682
.svn/pristine/12/12289b5b3a4b856d5d96c426bb87c10c40ece4b0.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
Binary file not shown.
3747
.svn/pristine/13/1342ba27dce609069689e48d1341762088b7cbb6.svn-base
Normal file
3747
.svn/pristine/13/1342ba27dce609069689e48d1341762088b7cbb6.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
@@ -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
|
||||
Binary file not shown.
@@ -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
|
||||
@@ -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
|
||||
@@ -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>
|
||||
Binary file not shown.
Binary file not shown.
1154
.svn/pristine/1b/1b6c1bff766329e05f888667eb7190eee3a85c8e.svn-base
Normal file
1154
.svn/pristine/1b/1b6c1bff766329e05f888667eb7190eee3a85c8e.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
@@ -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>
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -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
|
||||
@@ -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
|
||||
Binary file not shown.
@@ -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>
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 196 KiB |
@@ -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
|
||||
@@ -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
|
||||
@@ -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
|
||||
Binary file not shown.
Binary file not shown.
@@ -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>
|
||||
Binary file not shown.
@@ -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
|
||||
@@ -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
|
||||
Binary file not shown.
@@ -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
|
||||
@@ -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>
|
||||
@@ -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>
|
||||
@@ -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
|
||||
@@ -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
|
||||
@@ -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><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="28" ColumnCaptionHeight="28" ColumnFooterHeight="28" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="34" DefRecSelWidth="34" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 238, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>34</DefaultRecSelWidth><ClientArea>0, 0, 238, 148</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -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
|
||||
@@ -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>
|
||||
Binary file not shown.
@@ -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
|
||||
@@ -0,0 +1 @@
|
||||
a5d29d63a6164e3e552c1030e48b27c9c35df05e
|
||||
Binary file not shown.
@@ -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
8600
.svn/pristine/2c/2c814d6cd0b57b2b58420932357bd5e50dab6d9b.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
After Width: | Height: | Size: 6.4 KiB |
@@ -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
2008
.svn/pristine/2d/2d7fe525a06062e7a39c632158a00c533a437f49.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
Binary file not shown.
3682
.svn/pristine/2f/2f5b2c091f21a989afaec0dbafe8fe78dcff9d30.svn-base
Normal file
3682
.svn/pristine/2f/2f5b2c091f21a989afaec0dbafe8fe78dcff9d30.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
@@ -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
|
||||
@@ -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
|
||||
Binary file not shown.
@@ -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
|
||||
@@ -0,0 +1,534 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports DevComponents
|
||||
Imports DropDownControls
|
||||
|
||||
Public Class clsKategorie
|
||||
Inherits DB.clsKategorie
|
||||
|
||||
|
||||
|
||||
#Region "Deklarationen"
|
||||
Public daten As New DataTable
|
||||
Public Neuer_Datensatz As Boolean = False
|
||||
Public Mitarbeiterdaten As New DataTable
|
||||
|
||||
Dim stammdaten As New DB.clsStammdaten
|
||||
|
||||
Dim 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()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Overloads Sub dispose()
|
||||
MyBase.Dispose()
|
||||
Try
|
||||
Me.stammdaten = Nothing
|
||||
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.iKategorienr = 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("Kategorie")
|
||||
db.Dispose()
|
||||
Me.iKategorienr = New SqlInt32(CType(newkey, Int32))
|
||||
Me.sBeschreibung = New SqlString(CType("", String))
|
||||
Me.sBeschreibung_Lang = New SqlString(CType("", String))
|
||||
|
||||
Me.iParentid = New SqlInt32(CType(0, Int32))
|
||||
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Try
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Insert()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Me.Neuer_Datensatz = True
|
||||
Return Me.iKategorienr.Value
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class clsKategorieTree
|
||||
|
||||
#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_finma_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
|
||||
|
||||
|
||||
1092
.svn/pristine/30/30f03c3bf63489a05df63a236293dcfd03815197.svn-base
Normal file
1092
.svn/pristine/30/30f03c3bf63489a05df63a236293dcfd03815197.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user