Initial

EDOKA/DB/MyDBObjects/clsMyDokumentDaten.vb

@@ -0,0 +1,104 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+    Public Class clsMyDokumentDaten
+        Inherits edokadb.clsVorlagenfeld
+
+        Public Function SelectTestdata(ByVal dokumenttypnr As Long) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[temp_sp_vorlagenfeld_Select]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("vorlagenfeld")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
+                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_vorlagenfeld_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("clsVorlagenfeld::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Select_IDVMakros(ByVal dokumenttypnr As Long) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_idvmakros_Select]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("vorlagenfeld")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
+                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 'sp_idvmakros_select' 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("sp_idvmakros_select::SelectAll::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+    End Class
+End Namespace
+

EDOKA/DB/MyDBObjects/clsMyDokumentstatus.vb

@@ -0,0 +1,182 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokaDB
+
+    Public Class clsMyDokumentstatus
+
+        Inherits edokaDB.clsDokumentstatus
+
+        Dim m_dokumenttypnr As Long
+        Dim m_statustypnr As Long
+        Dim m_statustyp As Integer
+
+        Property Dokumenttypnr() As Long
+            Get
+                Return m_dokumenttypnr
+            End Get
+            Set(ByVal Value As Long)
+                m_dokumenttypnr = Value
+            End Set
+        End Property
+        Property Statustypnr() As Long
+            Get
+                Return m_statustypnr
+            End Get
+            Set(ByVal Value As Long)
+                m_statustypnr = Value
+            End Set
+        End Property
+        Property Statustyp() As Integer
+            Get
+                Return m_statustyp
+            End Get
+            Set(ByVal Value As Integer)
+                m_statustyp = Value
+            End Set
+        End Property
+
+        Public Function InsertDokumentstatus()
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_dokumentstatus_insert]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("dokumentstatus")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumenttypnr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@statustypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Statustypnr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@statustyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Statustyp))
+                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
+                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_mandant_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMandant::sp:Dokumentstatus_Insert::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function SelectDokumentstatus() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_dokumentstatus_Select]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("dokumentstatus")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumenttypnr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@statustypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Statustypnr))
+                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 'sp_dokumentstatus_select' 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("clsDokumentstatus::SelectAll::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function DeleteDokumentstatus()
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_dokumentstatus_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("dokumentstatus")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumenttypnr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@statustypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Statustypnr))
+                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
+                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 'sp_dokumentstatus_select' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMandant::sp_dokumentstatus_delete::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+    End Class
+End Namespace

EDOKA/DB/MyDBObjects/clsMyDokumentstatus_Rolle.vb

@@ -0,0 +1,80 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+
+    Public Class clsMyDokumentstatus_Rolle
+
+        Inherits edokadb.clsDokumentstatus_rolle
+
+        Dim m_dokumentstatusnr As Long
+        Dim m_rollenr As Long
+
+        Property Dokumentstatusnr() As Long
+            Get
+                Return m_dokumentstatusnr
+            End Get
+            Set(ByVal Value As Long)
+                m_dokumentstatusnr = Value
+            End Set
+        End Property
+        Property Rollenr() As Long
+            Get
+                Return m_rollenr
+            End Get
+            Set(ByVal Value As Long)
+                m_rollenr = Value
+            End Set
+        End Property
+
+        Public Function SelectDokumentstatus_rolle() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_dokumentstatus_rolle_Select]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("dokumentstatus")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentstatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentstatusnr))
+                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, Integer))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'sp_dokumentstatus_select' 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("clsDokumentstatus::SelectAll::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+    End Class
+End Namespace
+

EDOKA/DB/MyDBObjects/clsMyDokumenttyp.vb

@@ -0,0 +1,58 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+    Public Class clsMyDokumenttyp
+        Inherits edokadb.clsDokumenttyp
+
+        Public Function SelectAll_HostDokumente() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_dokumenttyp_SelectAll_Hostdokumente]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("dokumenttyp")
+            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_dokumenttyp_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("clsDokumenttyp::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+    End Class
+End Namespace
+

EDOKA/DB/MyDBObjects/clsMyMandant.vb

@@ -0,0 +1,60 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokaDB
+    Public Class clsMyMandat
+        Inherits edokaDB.clsMandant
+
+#Region "SelectAll"
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_mandant_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("mandant")
+            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_mandant_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("clsMandant::SelectAll::Error occured." & ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+#End Region
+
+    End Class
+End Namespace
+

EDOKA/DB/MyDBObjects/clsMyMitarbeiter.vb

@@ -0,0 +1,216 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports System.Security.Principal
+
+
+Namespace edokaDB
+    Public Class clsMyMitarbeiter
+        Inherits edokaDB.clsMitarbeiter
+
+#Region "Deklarationen"
+        Private m_xtgnummer As String
+
+        Property xtgnummer() As String
+            Get
+                Return m_xtgnummer
+            End Get
+            Set(ByVal Value As String)
+                m_xtgnummer = Value
+            End Set
+        End Property
+#End Region
+
+        Public Function SelectWithTGNummer() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_mitarbeiter_SelectWithTGNummer]"
+            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("@stgnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_xtgnummer))
+
+                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_SelectAllWithTGNummer' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+                Globals.CurrentMitarbeiterdata = dtToReturn
+                Return dtToReturn
+            Catch ex As Exception
+                MsgBox(ex.Message)
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMitarbeiter::SelectWithTGNummer::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Check_Allow_Login() As Integer
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_mitarbeiter_Get_Login]"
+            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, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iallowed", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
+
+                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)
+                Return scmCmdToExecute.Parameters.Item("@iallowed").Value
+            Catch ex As Exception
+
+                MsgBox(ex.Message)
+                Return 0
+                Throw New Exception("clsMitarbeiter::SelectWithTGNummer::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        ' Angemelderter Mitarbeiter auslesen, wenn keine Mitarbeiter vorhandne, Funktion mit False verlassen
+        Public Function Get_Mitarbeiter() As Boolean
+            Dim mandant As New edokaDB.clsMandant()
+            Me.cpMainConnectionProvider = Globals.conn
+
+            Dim MitarbeiterData As DataTable
+            Dim CheckState As Boolean
+
+            Get_Mitarbeiter = True
+            Me.xtgnummer = get_username
+            Globals.TGNummer = Me.xtgnummer
+            MitarbeiterData = Me.SelectWithTGNummer
+            If MitarbeiterData.Rows.Count = 0 Then
+                Get_Mitarbeiter = False
+            Else
+                Globals.DoLog = MitarbeiterData.Rows(0).Item("journalisierung")
+                Globals.MitarbeiterNr = MitarbeiterData.Rows(0).Item("mitarbeiternr")
+                Globals.Sprache = MitarbeiterData.Rows(0).Item("Sprache")
+                If MitarbeiterData.Rows(0).Item("fuermandant") = 0 Then
+                    Select_Mandant()
+                Else
+                    mandant.cpMainConnectionProvider = conn
+                    mandant.iMandantnr = New SqlInt32(MitarbeiterData.Rows(0).Item("fuermandant"))
+                    mandant.SelectOne()
+                    Globals.MandantNr = mandant.iMandantnr.Value
+                    Globals.MandantText = mandant.sBezeichnung.Value
+                End If
+            End If
+            mandant.Dispose()
+            MitarbeiterData.Dispose()
+        End Function
+
+        Public Function SelectAllMandantMitarbeiter() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_mandantmitarbeiter_Select]"
+            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("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
+                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.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Dim ouser As New WindowsPrincipal(WindowsIdentity.GetCurrent)
+        Public Function Get_Username() As String
+            With ouser.Identity.Name
+                Return (.Substring(.IndexOf("\") + 1))
+            End With
+        End Function
+
+
+
+        Public Sub SelectMitarbeiterWithNr(ByVal MaNr As Long)
+            Dim mitarbeiterdata As DataTable
+            Me.iMitarbeiternr = New SqlInt32(CType(MaNr, Int32))
+            Me.cpMainConnectionProvider = conn
+            mitarbeiterdata = Me.SelectOne
+            Globals.MitarbeiterNr = mitarbeiterdata.Rows(0).Item("mitarbeiternr")
+            Globals.Sprache = mitarbeiterdata.Rows(0).Item("sprache")
+        End Sub
+
+        Private Sub Select_Mandant()
+            Dim f As New Selektion_Mandant()
+            f.ShowDialog()
+        End Sub
+    End Class
+End Namespace
+

EDOKA/DB/MyDBObjects/clsMyPartner.vb

@@ -0,0 +1,215 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+    Public Class clsMyPartner
+        Public Function search_partner(ByVal query As String, ByVal anzahl As String, ByVal fnkt As Integer) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anzahl))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
+                If Not scmCmdToExecute.Connection.State = ConnectionState.Open Then
+                    scmCmdToExecute.Connection.Open()
+                End If
+
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function search_doppelte_partner(ByVal query As String, ByVal table As String, ByVal fnkt As Integer) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
+                If Not scmCmdToExecute.Connection.State = ConnectionState.Open Then
+                    scmCmdToExecute.Connection.Open()
+                End If
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        Public Function Partner_Detail(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_detail]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                If Not scmCmdToExecute.Connection.State = ConnectionState.Open Then
+                    scmCmdToExecute.Connection.Open()
+                End If
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_zus_Adressen(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_zus_adressen]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                If Not scmCmdToExecute.Connection.State = ConnectionState.Open Then
+                    scmCmdToExecute.Connection.Open()
+                End If
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        Public Function Partner_VV(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_vv]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                If Not scmCmdToExecute.Connection.State = ConnectionState.Open Then
+                    scmCmdToExecute.Connection.Open()
+                End If
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_Gebdat(ByVal nrpar00 As String) As String
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_gebdat]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@gebdat", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+                If Not scmCmdToExecute.Connection.State = ConnectionState.Open Then
+                    scmCmdToExecute.Connection.Open()
+                End If
+                sdaAdapter.Fill(dtToReturn)
+
+                Return scmCmdToExecute.Parameters("@gebdat").Value
+            Catch ex As Exception
+                '   MsgBox(ex.Message)
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                '  Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+                Return ""
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_Betreuer(ByVal nrpar00 As String) As String
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_betreuer]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@betreuer", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+                If Not scmCmdToExecute.Connection.State = ConnectionState.Open Then
+                    scmCmdToExecute.Connection.Open()
+                End If
+                sdaAdapter.Fill(dtToReturn)
+                Return scmCmdToExecute.Parameters("@betreuer").Value
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+                Return ""
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+                dtToReturn.Dispose()
+            End Try
+
+        End Function
+
+
+    End Class
+End Namespace

EDOKA/DB/MyDBObjects/clsMySysadminfunktion.vb

@@ -0,0 +1,225 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+
+    Public Class clsMySysadminfunkion
+        Inherits edokadb.clsSysadminfunktion
+
+        Public treedata_for_search As New DataTable
+        Dim FoundNode As Integer = 0
+        Dim Searchstring As String = ""
+        Public Treesearch As New TreeView
+
+#Region "Select Hierarchy"
+        Public Function SelectHierarchy() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            'scmCmdToExecute.CommandText = "dbo.[sp_sysadminfunktion_hierarchie]"
+            scmCmdToExecute.CommandText = "dbo.[sp_get_sysadmin_tree]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("sysadminfunktion")
+            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, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iroot", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Sprache))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@imandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
+                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_sysadminfunktion_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("clsSysadminfunktion::SelectAll::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Check_for_MenuEntries() As Boolean
+            Dim tmpdata As New DataTable
+            tmpdata = Me.SelectHierarchy
+            If tmpdata.Rows.Count > 0 Then Return True Else Return False
+            tmpdata.Dispose()
+        End Function
+
+#End Region
+
+#Region "LoadTreeMenu"
+        Public Sub LoadTreeMenu(ByVal otv As TreeView)
+            Dim menueintraege As New clsMySysadminfunkion()
+            Dim menudata As DataTable
+            Dim i As Integer
+            Dim m_collDeletedNodes As Collection
+            Dim collNodeKeys As New Collection()
+            Dim tnNew As TreeNode
+            Dim tnParent As TreeNode
+
+            m_collDeletedNodes = Nothing
+            m_collDeletedNodes = New Collection()
+
+            menueintraege.cpMainConnectionProvider = conn
+            menudata = menueintraege.SelectHierarchy
+
+            For i = 0 To menudata.Rows.Count - 1
+                If menudata.Rows(i).Item("ParentID") = 0 Then
+                    tnNew = otv.Nodes.Add(menudata.Rows(i).Item("bezeichnung"))
+                    With tnNew
+                        .Tag() = menudata.Rows(i).Item("sysadminfnktnr")
+                        .ImageIndex() = menudata.Rows(i).Item("ImageIndex")
+                        .SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
+                    End With
+                    Try
+                        collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("sysadminfnktnr"), String))
+                    Catch ex As Exception
+                        MsgBox(ex.Message, MsgBoxStyle.Critical)
+                    End Try
+                Else
+                    Try
+                        tnParent = CType(collNodeKeys.Item(CType(menudata.Rows(i).Item("ParentID"), String)), TreeNode)
+                        tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("bezeichnung"), String))
+                        With tnNew
+                            .Tag() = CType(menudata.Rows(i).Item("sysadminfnktnr"), String)
+                            .ImageIndex() = menudata.Rows(i).Item("ImageIndex")
+                            .SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
+                        End With
+                        collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("sysadminfnktnr"), String))
+                    Catch ex As Exception
+                        MsgBox(ex.Message, MsgBoxStyle.Critical)
+                    End Try
+                End If
+
+                If treedata_for_search.Rows.Count < 1 Then
+                    For Each c As DataColumn In menudata.Columns
+                        If c.ColumnName = "ErweiterteSuche" Then
+                            Dim dc As New DataColumn
+                            dc.ColumnName = "ErweiterteSuche"
+                            dc.DataType = System.Type.GetType("System.String")
+                            dc.DefaultValue = "                                                                                                                          "
+                            Me.treedata_for_search.Columns.Add(dc)
+                        Else
+                            Me.treedata_for_search.Columns.Add(c.ColumnName)
+                        End If
+                    Next
+                End If
+                For Each row As DataRow In menudata.Rows
+                    Me.treedata_for_search.ImportRow(row)
+                Next
+            Next
+        End Sub
+
+#End Region
+
+
+
+#Region "Suche"
+        Public Function Init_Search()
+            FoundNode = 0
+            Searchstring = ""
+            Me.Treesearch.Nodes.Clear()
+        End Function
+
+        Public Function SearchNode(ByRef tree As TreeView, ByVal SearchString As String) As TreeNode
+            Me.Treesearch.Nodes.Clear()
+            For Each dr As DataRow In treedata_for_search.Rows
+                If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Then
+                    Dim tn As New TreeNode
+                    tn = Me.Treesearch.Nodes.Add(dr.Item("Bezeichnung"))
+                    tn.Tag = dr.Item("sysadminfnktnr")
+                End If
+            Next
+            Return FindFirst(tree)
+        End Function
+
+        Public Function FindFirst(ByRef Tree As TreeView) As TreeNode
+            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 TreeView) As TreeNode
+            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 TreeView) As TreeNode
+            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 TreeView) As TreeNode
+            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
+
+        Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
+            Dim tmpNode As TreeNode
+            For Each _child As TreeNode 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
+#End Region
+
+
+    End Class
+End Namespace