You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1676 lines
91 KiB
1676 lines
91 KiB
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
|
|
Namespace edokaDB
|
|
|
|
Public Class TreeEntry
|
|
Public Dokumentartnr As Long
|
|
Public ParentID As Long
|
|
Public Sort As Long
|
|
Public ImageIndex As Long
|
|
Public OpenImageIndex As Long
|
|
Public Mandant As Long
|
|
Public Aktiv As Long
|
|
Public Erstellt_am As DateTime
|
|
Public mutiert_am As DateTime
|
|
Public mutierer As Long
|
|
Public beschreibung As String
|
|
Public bezeichnung As String
|
|
Public deleted As Boolean
|
|
Public sprache As Long
|
|
End Class
|
|
|
|
Public Class TreeEntries
|
|
Inherits CollectionBase
|
|
Public Function Add(ByVal value As TreeEntry) As TreeEntry
|
|
Me.InnerList.Add(value)
|
|
Add = value
|
|
End Function
|
|
End Class
|
|
|
|
Public Class clsMyDokumentart
|
|
Inherits edokaDB.clsDokumentart
|
|
|
|
Dim m_selectpartner As Boolean
|
|
Property SelectPartner() As Boolean
|
|
Get
|
|
Return m_selectpartner
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_selectpartner = Value
|
|
End Set
|
|
End Property
|
|
Dim m_pagedirection As Integer
|
|
Property PageDirection() As Integer
|
|
Get
|
|
Return m_pagedirection
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_pagedirection = Value
|
|
End Set
|
|
End Property
|
|
Dim m_FirstEntry As Integer
|
|
Property FirstEntry() As Integer
|
|
Get
|
|
Return m_FirstEntry
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_FirstEntry = Value
|
|
End Set
|
|
End Property
|
|
Dim m_searchstring As String
|
|
Property SearchString() As String
|
|
Get
|
|
Return m_searchstring
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_searchstring = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_LastEntry As Integer
|
|
Property LastEntry() As Integer
|
|
Get
|
|
Return m_LastEntry
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_LastEntry = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Dim m_Refresh As Boolean = False
|
|
Property Refresh() As Boolean
|
|
Get
|
|
Return m_Refresh
|
|
End Get
|
|
|
|
Set(ByVal Value As Boolean)
|
|
m_Refresh = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_Geschaeftsfall As String
|
|
Property Geschaeftsfall() As String
|
|
Get
|
|
Return m_Geschaeftsfall
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_Geschaeftsfall = Value
|
|
End Set
|
|
End Property
|
|
|
|
#Region "EDEX_Dokumentpakete"
|
|
|
|
Public Function SelectHierarchy_Favoriten_dp_makopie(ByVal mitarbeiternr As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[edex_sp_favoritenhierarchie_select]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("Dokumentart")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
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("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiternr))
|
|
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("clsdokumentart:select_hierarchy_kd." + 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 SelectDokumentvorlagen(ByVal searchstring As String, ByVal favoriten As Boolean, ByVal filter As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[edex_sp_dokumentvorlagen]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("TMPTable")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@searchstring", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, searchstring))
|
|
If favoriten = True Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@favoriten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@type", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@favoriten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@type", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, filter))
|
|
End If
|
|
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 'edex_sp_dokumentvorlagen' 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("select_neue_dokumentstruktur::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 SelectHierarchy_Favoriten() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[edex_sp_favoriten_select]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("Dokumentart")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
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("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
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("clsdokumentart:select_hierarchy_kd." + 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 SelectHierarchy_Favoriten_dp() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[edex_sp_favoritenhierarchie_select]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("Dokumentart")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
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("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
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("clsdokumentart:select_hierarchy_kd." + ex.Message, ex)
|
|
Finally
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Close connection.
|
|
m_scoMainConnection.Close()
|
|
End If
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Public Sub Load_Neue_Dokumente_Vollstaendig(ByVal otv As TreeView, ByVal searchstring As String, ByVal Favoriten As Boolean, ByVal filter As Integer)
|
|
Dim menueintraege As New clsMyDokumentart()
|
|
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
|
|
Dim lastid As String
|
|
Dim pid As String
|
|
lastid = 1
|
|
m_collDeletedNodes = Nothing
|
|
m_collDeletedNodes = New Collection()
|
|
otv.Nodes.Clear()
|
|
If Globals.Vorlagendata_Vollstaendig.Rows.Count = 0 Or Me.Refresh = True Or filter <> 0 Then
|
|
menueintraege.cpMainConnectionProvider = conn
|
|
menudata = menueintraege.SelectDokumentvorlagen(searchstring, Favoriten, filter)
|
|
If filter = 0 Then Globals.Vorlagendata_Vollstaendig = menudata
|
|
Else
|
|
If searchstring = "" Then
|
|
menudata = Globals.Vorlagendata_Vollstaendig
|
|
Else
|
|
Dim splitter
|
|
Dim sstring As String = ""
|
|
If InStr(searchstring, " ", CompareMethod.Text) > 0 Then
|
|
splitter = Microsoft.VisualBasic.Split(searchstring, " ")
|
|
Try
|
|
i = 0
|
|
While i < 100
|
|
If sstring.Length > 0 Then sstring = sstring + " AND "
|
|
sstring = sstring + "dt_bezeichnung like '%" + splitter(i) + "%'"
|
|
i = i + 1
|
|
End While
|
|
Catch
|
|
sstring = Left(sstring, sstring.Length - 5)
|
|
End Try
|
|
Else
|
|
sstring = "dt_bezeichnung like '%" + searchstring + "%'"
|
|
End If
|
|
' searchstring = searchstring.Replace(" ", "%")
|
|
' Dim dview As New DataView(Globals.Vorlagendata, "dt_bezeichnung like '%" + searchstring + "%'", "Parentid, sort", DataViewRowState.CurrentRows)
|
|
Dim dview As New DataView(Globals.Vorlagendata_Vollstaendig, sstring, "sort, dt_bezeichnung", DataViewRowState.CurrentRows)
|
|
Dim tbltemp As New DataTable()
|
|
Dim tbltemp1 As New DataTable()
|
|
tbltemp = dview.Table.Clone
|
|
Dim drv As DataRowView
|
|
For Each drv In dview
|
|
tbltemp.ImportRow(drv.Row)
|
|
Try
|
|
read_to_root_edex(drv, tbltemp)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
Next
|
|
'Globals.Vorlagendata.Select()
|
|
dview.Dispose()
|
|
tbltemp1 = dview.Table.Clone
|
|
Try
|
|
Dim dview2 As New DataView(tbltemp, "", "sort, dt_bezeichnung", DataViewRowState.CurrentRows)
|
|
Dim drv2 As DataRowView
|
|
For Each drv2 In dview2
|
|
tbltemp1.ImportRow(drv2.Row)
|
|
Next
|
|
menudata = tbltemp1
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
|
|
' menueintraege.cpMainConnectionProvider = conn
|
|
' menudata = menueintraege.SelectNeueDokumente(searchstring, Favoriten, filter)
|
|
End If
|
|
End If
|
|
|
|
For i = 0 To menudata.Rows.Count - 1
|
|
If menudata.Rows(i).Item("ParentID") = "DA_0" Then
|
|
tnNew = otv.Nodes.Add(menudata.Rows(i).Item("bezeichnung"))
|
|
With tnNew
|
|
.Tag() = menudata.Rows(i).Item("dokumentartnr")
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
Else
|
|
Try
|
|
If menudata.Rows(i).Item("dt_bezeichnung") Is System.DBNull.Value Then
|
|
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("dokumentartnr"), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Else
|
|
If lastid <> menudata.Rows(i).Item("dokumentartnr") Then
|
|
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("dokumentartnr"), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
lastid = menudata.Rows(i).Item("dokumentartnr")
|
|
pid = lastid
|
|
End If
|
|
tnParent = CType(collNodeKeys.Item(CType(pid, String)), TreeNode)
|
|
tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("dt_bezeichnung"), String))
|
|
With tnNew
|
|
.Tag() = CType(menudata.Rows(i).Item("dokumenttypnr"), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("dokimage")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("dokimage")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumenttypnr"), String))
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Dokart:" & menudata.Rows(i).Item("dokumentartnr") & " - " & menudata.Rows(i).Item("dokumenttypnr") & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Load_FavoritenStruktur_dp_MAKopie(ByVal mitarbeiternr As Integer, ByVal otv As TreeView, ByVal searchstring As String, ByVal Favoriten As Boolean, Optional ByVal IconOffset As Integer = 0)
|
|
Dim menueintraege As New clsMyDokumentart()
|
|
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
|
|
Dim lastid As Long
|
|
Dim pid As Long
|
|
lastid = 0
|
|
m_collDeletedNodes = Nothing
|
|
m_collDeletedNodes = New Collection()
|
|
otv.Nodes.Clear()
|
|
menueintraege.cpMainConnectionProvider = conn
|
|
menudata = menueintraege.SelectHierarchy_Favoriten_dp_makopie(mitarbeiternr)
|
|
Dim DPRoot As Integer = 0
|
|
|
|
For i = 0 To menudata.Rows.Count - 1
|
|
If menudata.Rows(i).Item("imageindex") = 68 Then
|
|
DPRoot = 1
|
|
End If
|
|
If DPRoot = 1 Then
|
|
If Microsoft.VisualBasic.Right(menudata.Rows(i).Item("ParentID"), 1) = 0 Then
|
|
tnNew = otv.Nodes.Add(menudata.Rows(i).Item("bezeichnung"))
|
|
With tnNew
|
|
.Tag() = menudata.Rows(i).Item("dokumentartnr")
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), 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))
|
|
'Wenn es sich nicht um das Icon 1 = Folder handelt wird der Offset der Icon dazugezählt
|
|
'Offset ist >0 wenn in einer Imagelist bereits Icon enthält, bevor die Dokstruktur geladen ist
|
|
With tnNew
|
|
.Tag() = CType(menudata.Rows(i).Item("dokumentartnr"), String)
|
|
If menudata.Rows(i).Item("ImageIndex") > 1 Then
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex") + IconOffset
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen") + IconOffset
|
|
Else
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End If
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Load_FavoritenStruktur_dp(ByVal otv As TreeView, ByVal searchstring As String, ByVal Favoriten As Boolean, Optional ByVal IconOffset As Integer = 0)
|
|
Dim menueintraege As New clsMyDokumentart()
|
|
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
|
|
Dim lastid As Long
|
|
Dim pid As Long
|
|
lastid = 0
|
|
m_collDeletedNodes = Nothing
|
|
m_collDeletedNodes = New Collection()
|
|
otv.Nodes.Clear()
|
|
menueintraege.cpMainConnectionProvider = conn
|
|
menudata = menueintraege.SelectHierarchy_Favoriten_dp
|
|
Dim DPRoot As Integer = 0
|
|
|
|
For i = 0 To menudata.Rows.Count - 1
|
|
If menudata.Rows(i).Item("imageindex") = 68 Then
|
|
DPRoot = 1
|
|
End If
|
|
If DPRoot = 1 Then
|
|
If Microsoft.VisualBasic.Right(menudata.Rows(i).Item("ParentID"), 1) = 0 Then
|
|
tnNew = otv.Nodes.Add(menudata.Rows(i).Item("bezeichnung"))
|
|
With tnNew
|
|
.Tag() = menudata.Rows(i).Item("dokumentartnr")
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), 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))
|
|
'Wenn es sich nicht um das Icon 1 = Folder handelt wird der Offset der Icon dazugezählt
|
|
'Offset ist >0 wenn in einer Imagelist bereits Icon enthält, bevor die Dokstruktur geladen ist
|
|
With tnNew
|
|
.Tag() = CType(menudata.Rows(i).Item("dokumentartnr"), String)
|
|
If menudata.Rows(i).Item("ImageIndex") > 1 Then
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex") + IconOffset
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen") + IconOffset
|
|
Else
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End If
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Load_FavoritenStruktur(ByVal otv As TreeView, ByVal searchstring As String, ByVal Favoriten As Boolean, Optional ByVal IconOffset As Integer = 0)
|
|
Dim menueintraege As New clsMyDokumentart()
|
|
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
|
|
Dim lastid As Long
|
|
Dim pid As Long
|
|
lastid = 0
|
|
m_collDeletedNodes = Nothing
|
|
m_collDeletedNodes = New Collection()
|
|
otv.Nodes.Clear()
|
|
menueintraege.cpMainConnectionProvider = conn
|
|
menudata = menueintraege.SelectHierarchy_Favoriten
|
|
For i = 0 To menudata.Rows.Count - 1
|
|
|
|
'If Microsoft.VisualBasic.Right(menudata.Rows(i).Item("ParentID"), 1) = 0 And Len(menudata.Rows(i).Item("Parentid")) < 5 Then
|
|
If Microsoft.VisualBasic.Left(menudata.Rows(i).Item("Parentid"), 4) = "FS_0" Then
|
|
tnNew = otv.Nodes.Add(menudata.Rows(i).Item("bezeichnung"))
|
|
With tnNew
|
|
.Tag() = menudata.Rows(i).Item("strukturnr")
|
|
' .Tag() = menudata.Rows(i).Item("dokumentartnr")
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("Strukturnr"), String))
|
|
' collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), 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))
|
|
'Wenn es sich nicht um das Icon 1 = Folder handelt wird der Offset der Icon dazugezählt
|
|
'Offset ist >0 wenn in einer Imagelist bereits Icon enthält, bevor die Dokstruktur geladen ist
|
|
With tnNew
|
|
'.Tag() = CType(menudata.Rows(i).Item("dokumentartnr"), String)
|
|
.Tag() = CType(menudata.Rows(i).Item("strukturnr"), String)
|
|
If menudata.Rows(i).Item("ImageIndex") > 1 Then
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex") + IconOffset
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen") + IconOffset
|
|
Else
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End If
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("strukturnr"), String))
|
|
' collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Select Hierarchy"
|
|
Public Function SelectHierarchy() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[sp_dokumentart_hierarchie]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("Dokumentart")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
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)
|
|
Finally
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Close connection.
|
|
m_scoMainConnection.Close()
|
|
End If
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Public Function SelectHierarchy_By_Root(ByVal Root As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[sp_get_dokart_tree]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("TMPTable")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
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("@iRoot", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Root))
|
|
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 SelectHierarchy_Parametrisierung_By_Root(ByVal Root As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[sp_get_dokart_tree_parametrisierung]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("TMPTable")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
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("@iRoot", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Root))
|
|
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 SelectHierarchy_by_Partner(ByVal nrpar00 As String) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[sp_partner_hostdokument_struktur_select]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("TMPTable")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
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("@nrpar00", SqlDbType.VarChar, 11, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
|
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 SelectNeueDokumente(ByVal searchstring As String, ByVal favoriten As Boolean, ByVal filter As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[sp_struktur_neue_dokumente]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("TMPTable")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@searchstring", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, searchstring))
|
|
If favoriten = True Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@favoriten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@type", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@favoriten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@type", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, filter))
|
|
End If
|
|
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("select_neue_dokumentstruktur::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 SelectFavoritentree(ByVal Mitarbeiternr As Long) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[sp_favoriten_tree]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("TMPTable")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
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("select_neue_dokumentstruktur::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 SelectHierarchy_KD(ByVal nrpar00 As Long) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[sp_trefferliste_select]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("Dokumentart")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
|
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("clsdokumentart:select_hierarchy_kd." + 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 SelectHierarchy_Favoriten() As DataTable
|
|
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
' scmCmdToExecute.CommandText = "dbo.[sp_favoritenhierarchie_select]"
|
|
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
' Dim dtToReturn As DataTable = New DataTable("Dokumentart")
|
|
' Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' ' // Use base class' connection object
|
|
' scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
' Try
|
|
' 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("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
' 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("clsdokumentart:select_hierarchy_kd." + 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 Select_Hierarchy_Profil(ByVal Profilnr As Long, ByVal nrpar00 As Long, ByVal partnerlist As Integer, ByVal vollstaendig As Integer, ByVal PartnerEingegeben As Boolean, ByVal hosttag As Integer) As DataTable
|
|
Globals.PerfMon.insert_entry("'------ Start Select Hierarchy_Profil")
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[sp_trefferliste_getdata_new]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Profilnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@inrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
|
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("@doklist", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerlist", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@doklistdokumentartnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, hosttag))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@doklistpartnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vollstaendig", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vollstaendig))
|
|
If PartnerEingegeben Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnereingegeben", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnereingegeben", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
End If
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihasmessage", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@firstentry", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.FirstEntry))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@lastentry", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.LastEntry))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@pagedirection", SqlDbType.Int, 4, ParameterDirection.InputOutput, True, 10, 0, "", DataRowVersion.Proposed, Me.PageDirection))
|
|
If Me.SearchString <> "" Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@searchstring", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.SearchString))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@searchstring", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
End If
|
|
If Me.Geschaeftsfall <> "" Then
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer3", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Geschaeftsfall))
|
|
Else
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer3", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
End If
|
|
|
|
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))
|
|
Dim hasmessage As Integer
|
|
If scmCmdToExecute.Parameters.Item("@ihasmessage").Value = 1 Then
|
|
If hosttag = 0 Then Globals.hasmessage = 1
|
|
Else
|
|
Globals.hasmessage = 0
|
|
End If
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
MsgBox("sp_trefferliste_getdata:ErrorCode: " + m_iErrorCode.ToString)
|
|
' // Throw error.
|
|
' Throw New Exception("Stored Procedure 'pr_sysadminfunktion_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
|
End If
|
|
If Me.SelectPartner Then
|
|
Try
|
|
Me.FirstEntry = dtToReturn.Rows(0).Item("person_nrpar00")
|
|
Me.LastEntry = dtToReturn.Rows(dtToReturn.Rows.Count - 1).Item("person_nrpar00")
|
|
Me.PageDirection = scmCmdToExecute.Parameters.Item("@PageDirection").Value
|
|
Catch
|
|
Me.FirstEntry = 0
|
|
Me.LastEntry = 0
|
|
End Try
|
|
End If
|
|
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Try
|
|
'MyMsg.show_standardmessage(22, MsgBoxStyle.Information)
|
|
MsgBox(ex.Message)
|
|
Catch
|
|
End Try
|
|
Finally
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Close connection.
|
|
m_scoMainConnection.Close()
|
|
End If
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
Globals.PerfMon.insert_entry("'------ Ende Select Hierarchy_Profil")
|
|
End Try
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "LoadTreeMenu"
|
|
|
|
Public Sub LoadTreeMenu(ByVal otv As TreeView, ByVal Root As Integer)
|
|
Dim menueintraege As New clsMyDokumentart()
|
|
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()
|
|
otv.Nodes.Clear()
|
|
menueintraege.cpMainConnectionProvider = conn
|
|
If Root = 0 Then
|
|
menudata = menueintraege.SelectHierarchy
|
|
Else
|
|
menudata = menueintraege.SelectHierarchy_By_Root(Root)
|
|
End If
|
|
|
|
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("dokumentartnr")
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), 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("dokumentartnr"), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub LoadHostTree(ByVal otv As TreeView, ByVal nrpar00 As String)
|
|
Dim menueintraege As New clsMyDokumentart()
|
|
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()
|
|
otv.Nodes.Clear()
|
|
menueintraege.cpMainConnectionProvider = conn
|
|
menudata = menueintraege.SelectHierarchy_by_Partner(nrpar00)
|
|
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("dokumentartnr")
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), 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("dokumentartnr"), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Function read_to_root(ByVal drv As DataRowView, ByVal dt As DataTable)
|
|
Dim parent As String
|
|
parent = drv.Item(4)
|
|
While parent <> "DA_0"
|
|
Dim dview As New DataView(Globals.Vorlagendata, "dokumentartnr= '" + Trim(parent) + "'", "Parentid, sort", DataViewRowState.CurrentRows)
|
|
Dim drv1 As DataRowView
|
|
For Each drv1 In dview
|
|
Dim dview1 As New DataView(dt, "dokumentartnr='" + Trim(drv1.Item(0)) + "'", "", DataViewRowState.CurrentRows)
|
|
Dim drv2 As DataRowView
|
|
Dim i As Integer
|
|
i = 0
|
|
For Each drv2 In dview1
|
|
i = i + 1
|
|
Next
|
|
dview1.Dispose()
|
|
If i = 0 Then dt.ImportRow(drv1.Row)
|
|
parent = drv1.Item(4)
|
|
dview.Dispose()
|
|
Next
|
|
End While
|
|
End Function
|
|
|
|
Function read_to_root_edex(ByVal drv As DataRowView, ByVal dt As DataTable)
|
|
Dim parent As String
|
|
parent = drv.Item(4)
|
|
While parent <> "DA_0"
|
|
Dim dview As New DataView(Globals.Vorlagendata_Vollstaendig, "dokumentartnr= '" + Trim(parent) + "'", "Parentid, sort", DataViewRowState.CurrentRows)
|
|
Dim drv1 As DataRowView
|
|
For Each drv1 In dview
|
|
Dim dview1 As New DataView(dt, "dokumentartnr='" + Trim(drv1.Item(0)) + "'", "", DataViewRowState.CurrentRows)
|
|
Dim drv2 As DataRowView
|
|
Dim i As Integer
|
|
i = 0
|
|
For Each drv2 In dview1
|
|
i = i + 1
|
|
Next
|
|
dview1.Dispose()
|
|
If i = 0 Then dt.ImportRow(drv1.Row)
|
|
parent = drv1.Item(4)
|
|
dview.Dispose()
|
|
Next
|
|
End While
|
|
End Function
|
|
|
|
|
|
Public Sub Load_Neue_Dokumente(ByVal otv As TreeView, ByVal searchstring As String, ByVal Favoriten As Boolean, ByVal filter As Integer)
|
|
Dim menueintraege As New clsMyDokumentart()
|
|
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
|
|
Dim lastid As String
|
|
Dim pid As String
|
|
lastid = 1
|
|
m_collDeletedNodes = Nothing
|
|
m_collDeletedNodes = New Collection()
|
|
otv.Nodes.Clear()
|
|
If Globals.Vorlagendata.Rows.Count = 0 Or Me.Refresh = True Or filter <> 0 Then
|
|
menueintraege.cpMainConnectionProvider = conn
|
|
menudata = menueintraege.SelectNeueDokumente(searchstring, Favoriten, filter)
|
|
If filter = 0 Then Globals.Vorlagendata = menudata
|
|
Else
|
|
If searchstring = "" Then
|
|
menudata = Globals.Vorlagendata
|
|
Else
|
|
Dim splitter
|
|
Dim sstring As String = ""
|
|
If InStr(searchstring, " ", CompareMethod.Text) > 0 Then
|
|
splitter = Microsoft.VisualBasic.Split(searchstring, " ")
|
|
Try
|
|
i = 0
|
|
While i < 100
|
|
If sstring.Length > 0 Then sstring = sstring + " AND "
|
|
sstring = sstring + "dt_bezeichnung like '%" + splitter(i) + "%'"
|
|
i = i + 1
|
|
End While
|
|
Catch
|
|
sstring = Left(sstring, sstring.Length - 5)
|
|
End Try
|
|
Else
|
|
sstring = "dt_bezeichnung like '%" + searchstring + "%'"
|
|
End If
|
|
' searchstring = searchstring.Replace(" ", "%")
|
|
' Dim dview As New DataView(Globals.Vorlagendata, "dt_bezeichnung like '%" + searchstring + "%'", "Parentid, sort", DataViewRowState.CurrentRows)
|
|
'Dim dview As New DataView(Globals.Vorlagendata, sstring, "Parentid, sort", DataViewRowState.CurrentRows)
|
|
Dim dview As New DataView(Globals.Vorlagendata, sstring, "sort,dt_bezeichnung", DataViewRowState.CurrentRows)
|
|
Dim tbltemp As New DataTable()
|
|
Dim tbltemp1 As New DataTable()
|
|
tbltemp = dview.Table.Clone
|
|
Dim drv As DataRowView
|
|
For Each drv In dview
|
|
tbltemp.ImportRow(drv.Row)
|
|
Try
|
|
read_to_root(drv, tbltemp)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
Next
|
|
'Globals.Vorlagendata.Select()
|
|
dview.Dispose()
|
|
tbltemp1 = dview.Table.Clone
|
|
Try
|
|
'Dim dview2 As New DataView(tbltemp, "", "ParentID, Sort", DataViewRowState.CurrentRows)
|
|
Dim dview2 As New DataView(tbltemp, "", "Sort, dt_bezeichnung", DataViewRowState.CurrentRows)
|
|
Dim drv2 As DataRowView
|
|
For Each drv2 In dview2
|
|
tbltemp1.ImportRow(drv2.Row)
|
|
Next
|
|
menudata = tbltemp1
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
|
|
' menueintraege.cpMainConnectionProvider = conn
|
|
' menudata = menueintraege.SelectNeueDokumente(searchstring, Favoriten, filter)
|
|
End If
|
|
End If
|
|
|
|
For i = 0 To menudata.Rows.Count - 1
|
|
If menudata.Rows(i).Item("ParentID") = "DA_0" Then
|
|
tnNew = otv.Nodes.Add(menudata.Rows(i).Item("bezeichnung"))
|
|
With tnNew
|
|
.Tag() = menudata.Rows(i).Item("dokumentartnr")
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
Else
|
|
Try
|
|
If menudata.Rows(i).Item("dt_bezeichnung") Is System.DBNull.Value Then
|
|
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("dokumentartnr"), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Else
|
|
If lastid <> menudata.Rows(i).Item("dokumentartnr") Then
|
|
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("dokumentartnr"), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
lastid = menudata.Rows(i).Item("dokumentartnr")
|
|
pid = lastid
|
|
End If
|
|
tnParent = CType(collNodeKeys.Item(CType(pid, String)), TreeNode)
|
|
tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("dt_bezeichnung"), String))
|
|
With tnNew
|
|
.Tag() = CType(menudata.Rows(i).Item("dokumenttypnr"), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("dokimage")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("dokimage")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumenttypnr"), String))
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Dokart:" & menudata.Rows(i).Item("dokumentartnr") & " - " & menudata.Rows(i).Item("dokumenttypnr") & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
|
|
|
|
Public Sub LoadTreeMenu_KD(ByVal otv As TreeView, ByVal nrpar00 As Long)
|
|
Dim menueintraege As New clsMyDokumentart()
|
|
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()
|
|
otv.Nodes.Clear()
|
|
menueintraege.cpMainConnectionProvider = conn
|
|
menudata = menueintraege.SelectHierarchy_KD(nrpar00)
|
|
|
|
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("dokumentartnr")
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), 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("dokumentartnr"), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
'Public Sub Load_FavoritenStruktur(ByVal otv As TreeView, ByVal searchstring As String, ByVal Favoriten As Boolean, Optional ByVal IconOffset As Integer = 0)
|
|
' Dim menueintraege As New clsMyDokumentart()
|
|
' 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
|
|
' Dim lastid As Long
|
|
' Dim pid As Long
|
|
' lastid = 0
|
|
' m_collDeletedNodes = Nothing
|
|
' m_collDeletedNodes = New Collection()
|
|
' otv.Nodes.Clear()
|
|
' menueintraege.cpMainConnectionProvider = conn
|
|
' menudata = menueintraege.SelectHierarchy_Favoriten
|
|
' 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("dokumentartnr")
|
|
' .ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
' .SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
' End With
|
|
' Try
|
|
' collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), 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))
|
|
' 'Wenn es sich nicht um das Icon 1 = Folder handelt wird der Offset der Icon dazugezählt
|
|
' 'Offset ist >0 wenn in einer Imagelist bereits Icon enthält, bevor die Dokstruktur geladen ist
|
|
' With tnNew
|
|
' .Tag() = CType(menudata.Rows(i).Item("dokumentartnr"), String)
|
|
' If menudata.Rows(i).Item("ImageIndex") > 1 Then
|
|
' 'Dokument
|
|
' .ImageIndex() = menudata.Rows(i).Item("ImageIndex") + IconOffset
|
|
' .SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen") + IconOffset
|
|
' collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String) & "_" & tnNew.Parent.Tag)
|
|
' Else
|
|
' 'Ordner
|
|
' .ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
' .SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
' collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("dokumentartnr"), String))
|
|
' End If
|
|
' End With
|
|
|
|
' Catch ex As Exception
|
|
' MsgBox(CType(menudata.Rows(i).Item("dokumentartnr"), String) + ex.Message, MsgBoxStyle.Critical)
|
|
' End Try
|
|
' End If
|
|
' Next
|
|
'End Sub
|
|
|
|
|
|
Public Sub LoadTreeMenu_Profil(ByVal otv As TreeView, ByVal Profilnr As Long, ByVal nrpar00 As Long, ByVal mynode As TreeNode, ByVal partnerlist As Integer, ByVal vollstaendig As Integer, ByVal PartnerEingegeben As Boolean)
|
|
Globals.PerfMon.insert_entry("'------ Start Load Struktur")
|
|
|
|
' Dim menueintraege As New clsMyDokumentart()
|
|
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
|
|
Dim tn1 As TreeNode
|
|
Dim hosttag As Integer
|
|
|
|
If (partnerlist = 1 And nrpar00 = 0) Or PartnerEingegeben = True Then
|
|
m_collDeletedNodes = Nothing
|
|
m_collDeletedNodes = New Collection()
|
|
otv.Nodes.Clear()
|
|
End If
|
|
' menueintraege.cpMainConnectionProvider = conn
|
|
Me.cpMainConnectionProvider = conn
|
|
hosttag = 0
|
|
Try
|
|
If otv.SelectedNode.Text = "HOST " Then hosttag = 998
|
|
Catch
|
|
hosttag = 0
|
|
End Try
|
|
|
|
menudata = Select_Hierarchy_Profil(Profilnr, nrpar00, partnerlist, vollstaendig, PartnerEingegeben, hosttag)
|
|
Try
|
|
If menudata.Rows.Count = 0 Then Exit Sub
|
|
Catch
|
|
Exit Sub
|
|
End Try
|
|
If hosttag = 998 Then
|
|
tnParent = mynode
|
|
If menudata.Rows.Count = 0 Then
|
|
tnNew = tnParent.Nodes.Add("Keine Hostdokumente vorhanden")
|
|
Exit Sub
|
|
End If
|
|
|
|
|
|
tnParent = otv.SelectedNode
|
|
For i = 2 To menudata.Rows.Count - 1
|
|
If menudata.Rows(i).Item("parentid") = 3 Then
|
|
tnParent = mynode
|
|
Else
|
|
tnParent = CType(collNodeKeys.Item(CType(Str(nrpar00) + "-" + Str(menudata.Rows(i).Item("parentid")), String)), TreeNode)
|
|
End If
|
|
tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("bezeichnung"), String))
|
|
With tnNew
|
|
.Tag() = CType(Str(nrpar00) + "-" + Str(menudata.Rows(i).Item("dokumentartnr")), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
End With
|
|
collNodeKeys.Add(tnNew, CType(Str(nrpar00) + "-" + Str(menudata.Rows(i).Item("dokumentartnr")), String))
|
|
Next
|
|
Exit Sub
|
|
End If
|
|
|
|
If (partnerlist = 1 And nrpar00 = 0) Or PartnerEingegeben = True Then
|
|
'ObjPerson
|
|
Try
|
|
Dim OldPerson As Integer = 0
|
|
For Each r As DataRow In menudata.Rows
|
|
If 100208326 = r("Person_nrpar00") Then
|
|
r("Person_nrpar00") = r("Person_nrpar00")
|
|
End If
|
|
|
|
If OldPerson <> r("Person_nrpar00") Then
|
|
OldPerson = r("Person_nrpar00")
|
|
tnNew = otv.Nodes.Add(r("Person"))
|
|
tnNew.Tag = r("person_nrpar00")
|
|
tnNew.ImageIndex = r("Person_imageindex")
|
|
tnNew.SelectedImageIndex = r("Person_imageindexopen")
|
|
If r("Person_saldiert") = True Then
|
|
tnNew.BackColor = System.Drawing.Color.LightGray
|
|
tnNew.ImageIndex = 66
|
|
tnNew.SelectedImageIndex = 66
|
|
End If
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(Str(menudata.Rows(i).Item("person_nrpar00")), String))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End If
|
|
If r("nrpar00") <> r("Person_nrpar00") Then
|
|
tn1 = tnNew.Nodes.Add(r("Partner"))
|
|
tn1.Tag = r("nrpar00")
|
|
tn1.ImageIndex = r("imageindexopen")
|
|
tn1.SelectedImageIndex = r("imageindexopen")
|
|
If r("saldiert") = True Then
|
|
tn1.ImageIndex = 66
|
|
tn1.SelectedImageIndex = 66
|
|
tn1.BackColor = System.Drawing.Color.LightGray
|
|
End If
|
|
tn1.Nodes.Add("")
|
|
tn1.Collapse()
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(Str(menudata.Rows(i).Item("nrpar00")), String))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Else
|
|
If tnNew.Nodes.Count < 1 Then
|
|
tn1 = tnNew.Nodes.Add("")
|
|
tn1.Tag = -1
|
|
End If
|
|
End If
|
|
Next
|
|
Exit Sub
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
'partnerliste aufbereiten
|
|
For i = 0 To menudata.Rows.Count - 1
|
|
tnNew = otv.Nodes.Add(menudata.Rows(i).Item("partner"))
|
|
With tnNew
|
|
.Tag = CType(Str(menudata.Rows(i).Item("nrpar00")), String)
|
|
.ImageIndex = menudata.Rows(i).Item("imageindex")
|
|
.SelectedImageIndex = menudata.Rows(i).Item("imageindexopen")
|
|
Try
|
|
If menudata.Rows(i).Item("saldiert") = True Then
|
|
'tnNew.BackColor = System.Drawing.Color.Yellow
|
|
'tnNew.NodeFont = New System.Drawing.Font(otv.Font.FontFamily, otv.Font.Size, FontStyle.Strikeout)
|
|
' tnNew.NodeFont = New System.Drawing.Font(otv.Font.FontFamily, otv.Font.Size, FontStyle.Italic)
|
|
tnNew.BackColor = System.Drawing.Color.LightGray
|
|
tnNew.ImageIndex = 66
|
|
tnNew.SelectedImageIndex = 66
|
|
'tnNew.ForeColor = System.Drawing.Color.Blue (Nicht möglich, da markierte Einträge bereits Rot sind
|
|
End If
|
|
Catch
|
|
End Try
|
|
End With
|
|
Try
|
|
collNodeKeys.Add(tnNew, CType(Str(menudata.Rows(i).Item("nrpar00")), String))
|
|
' MsgBox(CType(Str(menudata.Rows(i).Item("partnernr")) + "-" + Str(menudata.Rows(i).Item("dokumentartnr")), String))
|
|
tnNew = tnNew.Nodes.Add("")
|
|
' tnNew.Tag = "Dummy"
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
Next
|
|
|
|
'partnerliste aufbereiten
|
|
'For i = 0 To menudata.Rows.Count - 1
|
|
' tnNew = otv.Nodes.Add(menudata.Rows(i).Item("partner"))
|
|
' With tnNew
|
|
' .Tag = CType(Str(menudata.Rows(i).Item("nrpar00")), String)
|
|
' .ImageIndex = menudata.Rows(i).Item("imageindex")
|
|
' .SelectedImageIndex = menudata.Rows(i).Item("imageindexopen")
|
|
' End With
|
|
' Try
|
|
' collNodeKeys.Add(tnNew, CType(Str(menudata.Rows(i).Item("nrpar00")), String))
|
|
' ' MsgBox(CType(Str(menudata.Rows(i).Item("partnernr")) + "-" + Str(menudata.Rows(i).Item("dokumentartnr")), String))
|
|
' tnNew = tnNew.Nodes.Add("")
|
|
' ' tnNew.Tag = "Dummy"
|
|
' Catch ex As Exception
|
|
' MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
' End Try
|
|
'Next
|
|
Else
|
|
'Dokumentstruktur aufbereiten
|
|
For i = 0 To menudata.Rows.Count - 1
|
|
If menudata.Rows(i).Item("ParentID") <> 0 Then
|
|
Try
|
|
If menudata.Rows(i).Item("parentid") > 1 Then
|
|
If menudata.Rows(i).Item("parentid") = 2 Then
|
|
tnParent = mynode
|
|
Else
|
|
tnParent = CType(collNodeKeys.Item(CType(Str(nrpar00) + "-" + Str(menudata.Rows(i).Item("parentid")), String)), TreeNode)
|
|
End If
|
|
If DivFnkt.PartnerTyp(nrpar00) = EDOKA.clsDivFnkt.ENUM_Partnertyp.Person Then
|
|
'If otv.GetNodeCount(False) <> 1 Then
|
|
tnNew = tnParent.Nodes.Insert(0, CType(menudata.Rows(i).Item("bezeichnung"), String))
|
|
' tnNew = tnParent.Nodes.Insert(tnParent.GetNodeCount(True),CType(menudata.Rows(i).Item("bezeichnung"), String)))
|
|
'tnNew = tnParent.Nodes.Insert(tnParent.GetNodeCount(True), CType(menudata.Rows(i).Item("bezeichnung"), String))
|
|
'Else
|
|
'tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("bezeichnung"), String))
|
|
'End If
|
|
|
|
|
|
|
|
'tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("bezeichnung"), String))
|
|
Else
|
|
tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("bezeichnung"), String))
|
|
|
|
End If
|
|
'tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("bezeichnung"), String))
|
|
With tnNew
|
|
.Tag() = CType(Str(nrpar00) + "-" + Str(menudata.Rows(i).Item("dokumentartnr")), String)
|
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
|
End With
|
|
'MsgBox(menudata.Rows(i).Item("bezeichnung") & "/")
|
|
collNodeKeys.Add(tnNew, CType(Str(nrpar00) + "-" + Str(menudata.Rows(i).Item("dokumentartnr")), String))
|
|
'If menudata.Rows(i).Item("dokumentartnr") = 998 Then tnNew.Nodes.Add("")
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
Next
|
|
End If
|
|
Globals.PerfMon.insert_entry("'------ Ende Load Struktur")
|
|
End Sub
|
|
#End Region
|
|
End Class
|
|
End Namespace
|