Imports UtilityLibrary
Imports System.IO
Imports C1.Win.C1TrueDBGrid
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports UtilityLibrary.Win32
Imports System.Text

Namespace EDOKA

    Public Class clsDivFnkt

#Region "Deklarationen"

        Dim x As EDOKAMain
        Dim m_uvmzvdokumenttyp As String

        Dim m_nova_Partnernr As String
        Property Nova_Partnernr() As String
            Get
                Return m_nova_Partnernr
            End Get
            Set(ByVal value As String)
                m_nova_Partnernr = value
            End Set
        End Property

        Property UVMZVDokumenttyp() As String
            Get
                Return m_uvmzvdokumenttyp
            End Get
            Set(ByVal Value As String)
                m_uvmzvdokumenttyp = Value
            End Set
        End Property

        Dim m_belegart As String
        Property Belegart() As String
            Get
                Return m_belegart
            End Get
            Set(ByVal Value As String)
                m_belegart = Value
            End Set
        End Property

        Dim m_auftragnr As String
        Property Auftragnr() As String
            Get
                Return m_auftragnr
            End Get
            Set(ByVal Value As String)
                m_auftragnr = Value
            End Set
        End Property

        Dim m_erstellungsdatum As String
        Property Erstellungsdatum() As String
            Get
                Return m_erstellungsdatum
            End Get
            Set(ByVal Value As String)
                If Value = "" Then
                    m_erstellungsdatum = ""
                Else
                    If Mid(Value, 3, 1) = "." Then
                        m_erstellungsdatum = Value
                    Else
                        Dim dd As String
                        Dim mm As String
                        Dim yy As String
                        dd = Right(Value, 2)
                        mm = Mid(Value, 5, 2)
                        yy = Mid(Value, 3, 2)
                        If Len(dd) < 2 Then dd = "0" + dd
                        If Len(mm) < 2 Then mm = "0" + mm
                        m_erstellungsdatum = dd + "." + mm + "." + yy
                    End If
                End If
            End Set
        End Property

        Dim m_found As Boolean
        Dim m_tn As TreeNode
        Property found() As Boolean
            Get
                Return m_found
            End Get
            Set(ByVal Value As Boolean)
                m_found = Value
            End Set
        End Property

        Property FoundNode() As TreeNode
            Get
                Return m_tn
            End Get
            Set(ByVal Value As TreeNode)
                m_tn = Value
            End Set
        End Property

#End Region

#Region " Div"

        Public Function GetHostValutaDAtum(ByVal sDokId As String, ByVal sPartnerNr As String) As String
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_Get_HostDok_Valutadatum"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, sDokId))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, sPartnerNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@valutadatum", SqlDbType.VarChar, 50, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                GetHostValutaDAtum = scmCmdToExecute.Parameters.Item("@valutadatum").Value
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("DivFnkt:GetHostValutaDAtum::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Searchnode(ByVal tv As TreeView, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
            'Imageindex: Bei 0 keine Änderungen, ansonsten node-selectedimage auf Imageindex setzen
            Searchnode = False
            found = False
            Dim nodeX As TreeNode
            For Each nodeX In tv.Nodes
                If TranverseNodes(tv, nodeX, SearchObject, imageindex) Then
                    Exit Function
                End If
            Next
        End Function

        Private Function TranverseNodes(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
            Dim nodeX As TreeNode
            For Each nodeX In selectedNode.Nodes
                nodeX.Text = nodeX.Text
                If nodeX.Tag = SearchObject Then

                    nodeX.Expand()
                    tv.SelectedNode = nodeX
                    Me.FoundNode = tv.SelectedNode
                    If imageindex <> 0 Then
                        tv.SelectedNode.SelectedImageIndex = imageindex
                        tv.SelectedNode.Toggle()
                    End If
                    found = True
                    TranverseNodes = True
                    Exit Function
                End If
                TranverseNodes(tv, nodeX, SearchObject, imageindex)
            Next
        End Function

        Public Function Searchnode1(ByVal tv As TreeView, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
            'Imageindex: Bei 0 keine Änderungen, ansonsten node-selectedimage auf Imageindex setzen
            Searchnode1 = False
            found = False
            Dim nodeX As TreeNode
            For Each nodeX In tv.Nodes
                If TranverseNodes1(tv, nodeX, SearchObject, imageindex) Then
                    Exit Function
                End If
            Next
        End Function

        Private Function TranverseNodes1(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
            Dim nodeX As TreeNode
            For Each nodeX In selectedNode.Nodes
                Try
                    If nodeX.Tag = SearchObject Then
                        nodeX.Expand()
                        Me.FoundNode = nodeX
                        found = True
                        TranverseNodes1 = True
                        Exit Function
                    Else
                        TranverseNodes1(tv, nodeX, SearchObject, imageindex)
                    End If
                Catch
                    If nodeX.Text = Trim(Str(SearchObject)) Then
                        nodeX.Expand()
                        Me.FoundNode = nodeX
                        found = True
                        TranverseNodes1 = True
                        Exit Function
                    Else
                        TranverseNodes1(tv, nodeX, SearchObject, imageindex)
                    End If
                End Try

            Next
        End Function

        Public Function Searchnode2(ByVal tv As TreeView, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
            'Imageindex: Bei 0 keine Änderungen, ansonsten node-selectedimage auf Imageindex setzen
            Searchnode2 = False
            found = False
            Dim nodeX As TreeNode
            For Each nodeX In tv.Nodes
                If TranverseNodes2(tv, nodeX, SearchObject, imageindex) Then
                    Exit Function
                End If
            Next
        End Function

        Private Function TranverseNodes2(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
            Dim nodeX As TreeNode
            For Each nodeX In selectedNode.Nodes
                If nodeX.ImageIndex = 1 Then
                    nodeX.Expand()
                    Me.FoundNode = nodeX
                    found = True
                    TranverseNodes2 = True
                    Exit Function
                Else
                    TranverseNodes2(tv, nodeX, SearchObject, imageindex)
                End If
            Next
        End Function

        Public Function Searchnode3(ByVal tv As TreeView, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
            'Imageindex: Bei 0 keine Änderungen, ansonsten node-selectedimage auf Imageindex setzen
            Searchnode3 = False
            found = False
            Dim nodeX As TreeNode
            For Each nodeX In tv.Nodes
                If TranverseNodes3(tv, nodeX, SearchObject, imageindex) Then
                    Exit Function
                End If
            Next
        End Function

        Private Function TranverseNodes3(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
            Dim nodeX As TreeNode
            For Each nodeX In selectedNode.Nodes
                If nodeX.Nodes.Count > 0 Then
                    nodeX.Expand()
                    Me.FoundNode = nodeX
                    found = True
                    TranverseNodes3 = True
                    Exit Function
                Else
                    TranverseNodes3(tv, nodeX, SearchObject, imageindex)
                End If
            Next
        End Function

        Public Function Check_Dir(ByVal Partnernr As Long) As String
            If Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("net_use") = True Then

            End If
        End Function

        Public Function Ist_Berechtigt(ByVal dokumenttyp As Integer, ByVal Mitarbeiternr As Integer, _
                                           ByVal partnernr As Integer, ByVal dokumentid As String, _
                                           ByVal berechtigung As Integer, ByVal mitarbeiterdok As Integer, _
                                           ByVal vipdok As Integer, ByVal vertraulichdok As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            Try
                scmCmdToExecute.CommandText = "dbo.SP_Dokumentberechtigung"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttyp))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, berechtigung))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiterdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiterdok))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@vipdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vipdok))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@vertraulichdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vertraulichdok))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@currentmitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionsliste", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                sdaAdapter.Fill(dtToReturn)
                If dtToReturn.Rows.Count = 0 Then
                    If berechtigung = 2 Then
                        If Berechtigt_als_stv(Mitarbeiternr, partnernr, dokumenttyp) = True Then
                            Return True
                        Else
                            Return False
                        End If
                    Else
                        Return False
                    End If
                Else
                    Return True
                End If
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Berechtigt_als_stv(ByVal mitarbeiternr As Integer, ByVal partnernr As Integer, ByVal DOKUMENTTYPNR As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            Try
                scmCmdToExecute.CommandText = "dbo.sp_dokumentberechtigung_erstellungstv"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiternr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DOKUMENTTYPNR))
                sdaAdapter.Fill(dtToReturn)
                If dtToReturn.Rows.Count = 0 Then
                    Return False
                Else
                    Return True
                End If
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function


        Public Function Berechtigte_Mitarbeiter(ByVal dokumenttyp As Integer, ByVal Mitarbeiternr As Integer, _
                                   ByVal partnernr As Integer, ByVal dokumentid As String, _
                                   ByVal berechtigung As Integer, ByVal mitarbeiterdok As Integer, _
                                   ByVal vipdok As Integer, ByVal vertraulichdok As Integer, _
                                   ByVal Funktionsliste As String) As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            Try
                scmCmdToExecute.CommandText = "dbo.SP_Dokumentberechtigung"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttyp))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, berechtigung))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiterdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiterdok))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@vipdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vipdok))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@vertraulichdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vertraulichdok))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@currentmitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionsliste", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Funktionsliste))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@stv", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                Globals.stv = scmCmdToExecute.Parameters("@stv").Value

                Return dtToReturn
            Catch ex As Exception
                MsgBox(ex.Message)
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Berechtigte_Funktionen(ByVal dokumenttyp As Integer, ByVal Mitarbeiternr As Integer, _
                           ByVal partnernr As Integer, ByVal dokumentid As String, _
                           ByVal berechtigung As Integer, ByVal mitarbeiterdok As Integer, _
                           ByVal vipdok As Integer, ByVal vertraulichdok As Integer) As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            Try
                scmCmdToExecute.CommandText = "dbo.SP_Dokumentberechtigung"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttyp))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, berechtigung))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiterdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiterdok))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@vipdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vipdok))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@vertraulichdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vertraulichdok))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@currentmitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionsliste", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                sdaAdapter.Fill(dtToReturn)
                Return dtToReturn
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Generate_Berechtigungen()
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            Try
                scmCmdToExecute.CommandText = "dbo.sp_dokumentberechtigung_Generate"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.CommandTimeout = 50000
                conn.OpenConnection()
                scmCmdToExecute.ExecuteNonQuery()
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                'Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                conn.CloseConnection(True)
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try

        End Function

        Public Function MA_Is_Sysadmin(ByVal mitarbeiternr As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_check_sysadmin"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@issysadmin", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                i = scmCmdToExecute.Parameters.Item("@issysadmin").Value
                If i > 0 Then MA_Is_Sysadmin = True Else MA_Is_Sysadmin = False
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Check_NoEdit(ByVal dokumentid As String) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_Dokument_CheckNoEdit"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@return", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                i = scmCmdToExecute.Parameters.Item("@return").Value
                If i > 0 Then Check_NoEdit = True Else Check_NoEdit = False
            Catch ex As Exception
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function
#End Region

#Region " Spalten"
        Public Sub SpaltenTitel_Aktualisieren(ByVal tdb As C1TrueDBGrid, ByVal inptable As DataTable, ByVal tablename As String)
            'Spaltentitel setzen
            Dim titel As New EDOKA.MySpaltenTitel()
            Dim ts As New EDOKA.Tabellenspalte()
            Dim i As Integer
            Dim t As New DataTable()
            Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
            Dim s As String

            t = inptable
            ts.Tabelle = tablename
            For i = 0 To tdb.Columns.Count - 1
                s = tdb.Columns(i).DataField
                ts.Feld = s
                ts.getspalte()
                tdb.Columns(i).Caption = ts.spaltenname
                If tdb.Columns(i).DataType.Name = "DateTime" Then
                    tdb.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
                End If
                If tdb.Columns(i).Caption = "" Then
                    tdb.Splits(0).DisplayColumns(i).Width = 0
                    tdb.Splits(0).DisplayColumns(i).Visible = False
                Else
                    tdb.Splits(0).DisplayColumns(i).Width = ts.ColWith
                End If
                Try
                    If ts.ColWith = 0 Then
                        tdb.Splits(0).DisplayColumns(i).Visible = False
                    End If
                Catch
                End Try
                '            If tdb.Columns(i).Caption = "" Then tdb.Splits(0).DisplayColumns(i).Width = 0
                If ts.locked Then
                    tdb.Splits(0).DisplayColumns(i).Locked = True
                End If

                If ts.AlsHacken Then
                    tdb.Columns(i).ValueItems.Presentation = PresentationEnum.CheckBox
                    If tdb.Columns(i).DataType.Name = "Int32" Then
                        tdb.Columns(i).ValueItems.Translate = True
                        tdb.Columns(i).ValueItems.CycleOnClick = True
                        tdb.Columns(i).ValueItems.Values.Clear()
                        tdb.Columns(i).ValueItems.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
                        tdb.Columns(i).ValueItems.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))
                        tdb.Columns(i).ValueItems.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("2", "INDETERMINATE"))
                    End If

                End If

                'Präsentation von aktiv
                If tdb.Columns(i).DataField = "aktiv" Then
                    tdb.Columns(i).ValueItems.Presentation = PresentationEnum.CheckBox
                    tdb.Columns(i).ValueItems.DefaultItem = True
                    tdb.Columns(i).DefaultValue = True
                    tdb.Columns(i).FilterText = True
                End If
                If tdb.Columns(i).DataField = "erstellt_am" Then
                    tdb.Columns(i).DefaultValue = Now
                End If
                'tdb.Splits(0).DisplayColumns.Insert(ts.Order, tdb.Splits(0).DisplayColumns(i))
                'tdb.Splits(0).DisplayColumns.RemoveAt(i)
            Next
        End Sub
#End Region

#Region " FileHandling"

        Public Function Get_Filename(ByVal fi As String, ByVal partnernr As String) As String
            Dim s As String
            Get_Filename = ""
            If Not Open_Directory() Then Exit Function
            s = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("logisches_Laufwerk") & Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_dokumente") + "\"
            Get_Filename = s + fi
        End Function

        Public Function Open_Directory() As Boolean
            Open_Directory = True
        End Function

        Public Function Delete_Directory(ByVal sPfad As String) As Boolean
            Try
                System.IO.Directory.Delete(sPfad, True)
                Delete_Directory = True
            Catch
                Delete_Directory = False
            End Try
        End Function

        Public Function Create_Folders(ByVal s As String) As Boolean
            Dim xt(10) As String
            Dim xti As Integer
            Dim po As Integer
            Dim x As String
            Dim xti1 As Integer
            Dim i As Long
            po = InStr(s, "\")
            xti = 0
            While po <> 0
                xt(xti) = Left(s, po - 1)
                xti = xti + 1
                s = Right(s, Len(s) - (po))
                po = InStr(s, "\")
            End While
            xt(xti) = s
            For xti1 = 0 To xti
                If x <> "" Then x = x & "\"
                x = x & xt(xti1)
                If Not FolderExist(x) Then Create_Folder(x)
            Next
            Create_Folders = True
        End Function

        Public Function FolderExist(ByVal dn As String) As Boolean
            Try
                If System.IO.Directory.Exists(dn) Then FolderExist = True Else FolderExist = False
            Catch
                FolderExist = False
            End Try
        End Function

        Public Function Create_Folder(ByVal dn As String) As Boolean
            Try
                System.IO.Directory.CreateDirectory(dn)
            Catch
                Create_Folder = False
            End Try
        End Function

        Public Function ExtractFilename(ByVal x As String) As String
            Dim splitter
            Dim i As Integer
            Dim Y As String
            splitter = Microsoft.VisualBasic.Split(x, "\")
            On Error Resume Next
            Err.Clear()
            i = -1
            While Err.Number = 0
                i = i + 1
                Y = splitter(i)
            End While
            ExtractFilename = Y
        End Function


#End Region
#Region "Dokumenterstellung"
        Public Sub Dokumenterstellung_SetStatusBZA(ByVal dokid As String)

            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.SP_dokumentErstellung_NoEdit_SetStatus_bza"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try

                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))

                scmCmdToExecute.Connection.Open()
                scmCmdToExecute.ExecuteNonQuery()

            Catch ex As Exception
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        End Sub

#End Region
#Region " Dokumentbearbeitung"

        Public Function Status_Dokumentbearbeitung(ByVal fnkt As Integer, ByVal dokumentid As String, ByVal erstellung As Boolean, ByVal dokumentname As String) As Boolean
            'Prüfung, Eintragung, Löschung der Tabelle DokInBearbeitung'
            'Fnkt:
            '     1=Eintragen
            '     2=Löschen
            '     3=Prüfen
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_Dokument_in_Bearbeitung"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@erstellung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, erstellung))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentname))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@stationsname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Environ("Computername")))
                sdaAdapter.Fill(dtToReturn)
                Status_Dokumentbearbeitung = True
                If fnkt = 3 Then
                    If dtToReturn.Rows.Count > 0 Then
                        MyMsg.show_standardmessage(31, MsgBoxStyle.Critical)
                        Status_Dokumentbearbeitung = False
                    End If
                End If
            Catch ex As Exception
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try
        End Function
#End Region

#Region " ShowDoc"

#Region " Show"

        Public Sub ShowDoc(ByVal dokumentid As String, ByVal formx As Form)
            Try
                '************************************************
                'UVM Migration / Erste Variante
                'Start
                '************************************************
                ''Rel 3.7 / BUD - Neu Prüfung auf UVM Dokument, wenn UVM Dokument dann Daten auslesen.
                'If InStr(dokumentid, "OFFEDK003") <> 0 Then
                '    Try
                '        Dim dt As DataTable
                '        dt = GetDataUVMDokument(dokumentid)
                '        gen_ShowColdDocUVM(dt.Rows(0).Item("nrpar00"), dt.Rows(0).Item("fanummer3"), dt.Rows(0).Item("erstelltam"), formx)
                '        Exit Sub
                '    Catch ex As Exception
                '        MsgBox(ex.Message)
                '    End Try
                'End If
                '************************************************
                'ENDE
                '************************************************

                Dim colddokumentid As String
                colddokumentid = get_colddokumentid(dokumentid, 0)
                If colddokumentid = "Office" Then
                    show_office(dokumentid, formx)
                    Exit Sub
                End If
                If DivFnkt.BDR_Dokument(dokumentid) = True Then
                    ShowColdDoc(dokumentid, formx, colddokumentid)
                    Exit Sub
                End If
                If Not ShowColdDoc(dokumentid, formx, colddokumentid) Then
                    colddokumentid = get_colddokumentid(dokumentid, 1)
                    If Not ShowColdDoc(dokumentid, formx, colddokumentid) Then
                        colddokumentid = get_colddokumentid(dokumentid, 2)
                        If Not ShowColdDoc(dokumentid, formx, colddokumentid) Then
                            show_office(dokumentid, formx)
                        End If
                    End If
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

        Public Function ShowColdDoc(ByVal dokumentid As String, ByVal formx As Form, ByVal cold_dokumentid As String) As Boolean
            Dim f As New frmcoldview()
            f.Erstellungsdatum = Me.Erstellungsdatum
            f.Colddokumentid = cold_dokumentid
            f.DokumentId = dokumentid
            If IsNothing(formx) Then
                formx = EDOKAMain
            End If
            f.MdiParent = formx.MdiParent
            f.Width = 1
            f.Height = 1
            f.Show()
            If f.DocNotFound = True Then
                Journal_Dokumentzugriff(dokumentid, "COLD-Anzeige-Fehler", 0, 0, "", "")
                ShowColdDoc = False
                f.Dispose()
            Else
                ShowColdDoc = True
                Journal_Dokumentzugriff(dokumentid, "COLD-Anzeige", 0, 0, "", "")
                f.Dispose()
            End If
        End Function

        Public Function ShowColdDocHost(ByVal dokumentid As String, ByVal formx As Form, ByVal cold_dokumentid As String, ByVal partnernr As String, ByVal bkpar00 As String, ByVal dokumenttyp As String) As Boolean
            Try
                Dim f As New frmcoldview()
                'Nova
                f.PartnerNr = partnernr
                'Nove ende
                f.Erstellungsdatum = Me.Erstellungsdatum
                f.belegart = Me.Belegart
                f.UVMZVDokumenttyp = Me.UVMZVDokumenttyp
                f.Auftragnr = Me.Auftragnr
                f.Colddokumentid = cold_dokumentid
                f.DokumentId = dokumentid
                f.MdiParent = formx.MdiParent
                f.Width = 1
                f.Height = 1
                f.Show()
                If f.DocNotFound = True Then
                    Journal_Dokumentzugriff(dokumentid, "HOST-Anzeige-Fehler", 1, partnernr, bkpar00, dokumenttyp)
                    ShowColdDocHost = False
                    f.Dispose()
                Else
                    ShowColdDocHost = True
                    Journal_Dokumentzugriff(dokumentid, "HOST-Anzeige", 1, partnernr, bkpar00, dokumenttyp)
                    f.Dispose()
                End If
            Catch ex As Exception
            End Try
        End Function

        Public Sub show_office(ByVal dokumentid As String, ByVal formx As Form)
            Globals.EDOKAMAIN_Statusbar.Text = "Dokumentanzeige gestartet"
            Dim doc As New edokadb.clsDokument()
            Dim Dokument As String
            Dim FileReader As New DocMgmt()
            doc.cpMainConnectionProvider = conn
            doc.sDokumentid = New SqlString(CType(dokumentid, String))
            doc.SelectOne()
            Try
                Dokument = DivFnkt.Get_Filename("View_" + Format(Now, "yyyyMMddHHmmss") + "_" + doc.sDokumentname.Value, "")
                '                Dokument = DivFnkt.Get_Filename(doc.sDokumentname.Value, "")
                If FileReader.Get_From_DB(doc.sDokumentid.Value, Dokument) = False Then
                    If isbck(dokumentid) Then
                        MyMsg.show_standardmessage(39, MsgBoxStyle.Information)
                    Else
                        If BDR_Dokument(dokumentid) Then
                            MyMsg.show_standardmessage(240, MsgBoxStyle.Information)
                        End If
                    End If
                    doc.Dispose()
                    FileReader = Nothing
                    Exit Sub
                End If
                doc.Dispose()
                FileReader = Nothing
                Dim f As New frmWordViewer()
                f.PrintFilename = doc.sDokumentname.Value
                f.PrintDokumentid = doc.sDokumentid.Value
                'hutter
                'f.dokument = Dokument
                f.addressBar.Text = Dokument
                'f.MdiParent = formx
                Journal_Dokumentzugriff(dokumentid, "Office-Anzeige", 0, 0, "", "")
                f.Show()
            Catch ex As Exception
                MsgBox(ex.Message)
                MyMsg.show_standardmessage(99, MsgBoxStyle.Information)
            End Try
        End Sub

        Public Sub show_officevorlage(ByVal Dokumenttypnr As String, ByVal formx As Form, ByVal printable As Boolean)
            Dim dokumenttyp As New edokadb.clsDokumenttyp()
            Dim Office_Vorlage As New edokadb.clsOffice_vorlage()
            Dim dokumentname As String = "TMP_" + Format(Now, "yyyyMMddHHmmss")
            Dim s As String
            dokumenttyp.cpMainConnectionProvider = conn
            dokumenttyp.iDokumenttypnr = New SqlInt32(CType(Dokumenttypnr, Int32))
            dokumenttyp.SelectOne()
            Office_Vorlage.cpMainConnectionProvider = conn
            Office_Vorlage.iOffice_vorlagenr = dokumenttyp.iOffice_vorlagenr
            Office_Vorlage.SelectOne()

            If Office_Vorlage.iAnwendungnr.Value = 2 Then
                dokumentname = dokumentname + ".xls"
            Else
                dokumentname = dokumentname + ".doc"
            End If

            dokumentname = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + dokumentname

            Dim x As New FrmDomainOfficeVorlageDatei()
            s = x.Get_From_DB(Office_Vorlage.iOffice_vorlagenr.Value, Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"))
            x.Dispose()
            FileSystem.Rename(s, dokumentname)

            Dim f As New frmWordViewer(printable)
            f.PrintFilename = ""
            f.PrintDokumentid = ""
            f.addressBar.Text = dokumentname
            f.Show()
            dokumenttyp.Dispose()
            Office_Vorlage.Dispose()
        End Sub

#End Region

#Region " Drucken"

        Public Function printcolddocHost(ByVal dokumentid As String, ByVal formx As Form, ByVal cold_dokumentid As String, ByVal partnernr As String, ByVal bkpar00 As String, ByVal dokumenttyp As String, Optional ByVal ShowMsg As Boolean = True) As Boolean
            Try
                Dim f As New frmcoldview()
                f.Erstellungsdatum = Me.Erstellungsdatum
                f.belegart = Me.Belegart
                f.UVMZVDokumenttyp = Me.UVMZVDokumenttyp
                f.Auftragnr = Me.Auftragnr
                f.Colddokumentid = cold_dokumentid
                f.DokumentId = dokumentid
                'Rel 3.7 / BUD / Problem mit Mehrfach Druck
                'f.MdiParent = formx.MdiParent
                f.PrintIt = True
                f.Width = 1
                f.Height = 1
                f.Show()
                If f.DocNotFound = True Then
                    Journal_Dokumentzugriff(dokumentid, "HOST-Print-Fehler", 1, partnernr, bkpar00, dokumenttyp)
                    printcolddocHost = False
                    f.Dispose()
                Else
                    f.PRINTdOC()
                    Journal_Dokumentzugriff(dokumentid, "COLD-Print", 0, 0, "", "")
                    If ShowMsg Then MyMsg.show_standardmessage(91, MsgBoxStyle.Information)
                    f.Close()
                    f.Dispose()
                    printcolddocHost = True
                End If
            Catch
                MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
            End Try
        End Function

        Public Function printcolddoc(ByVal dokumentid As String, ByVal formx As Form, ByVal cold_dokumentid As String, Optional ByVal showmsg As Boolean = True) As Boolean
            Try
                Dim f As New frmcoldview()
                f.Erstellungsdatum = Me.Erstellungsdatum
                cold_dokumentid = get_colddokumentid(dokumentid, 0)
                f.Colddokumentid = cold_dokumentid
                f.DokumentId = dokumentid

                'Rel 3.7 / BUD / Problem mit Mehrfach Druck
                'f.MdiParent = formx.MdiParent
                'Dim docnotfound As Boolean
                'f.DocNotFound = False

                f.Height = 1
                f.Width = 1
                f.PrintIt = True
                f.Show()
                If f.DocNotFound = True Then
                    Journal_Dokumentzugriff(dokumentid, "COLD-Print-Fehler", 0, 0, "", "")
                    MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
                Else
                    f.PRINTdOC()
                    Journal_Dokumentzugriff(dokumentid, "COLD-Print", 0, 0, "", "")
                    If showmsg Then MyMsg.show_standardmessage(91, MsgBoxStyle.Information)
                    f.Close()
                    f.Dispose()
                End If
            Catch
                MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
            End Try
        End Function

        Public Sub print_office(ByVal dokumentid As String, ByVal formx As Form, Optional ByVal ShowPrintMessage As Boolean = True)
            Try
                Dim doc As New edokadb.clsDokument()
                Dim Dokument As String
                Dim FileReader As New DocMgmt()
                doc.cpMainConnectionProvider = conn
                doc.sDokumentid = New SqlString(CType(dokumentid, String))
                doc.SelectOne()
                Dokument = DivFnkt.Get_Filename(doc.sDokumentname.Value, "")
                If FileReader.Get_From_DB(doc.sDokumentid.Value, Dokument) = False Then
                    If BDR_Dokument(dokumentid) Then
                        MyMsg.show_standardmessage(240, MsgBoxStyle.Information)
                    Else
                        MyMsg.show_standardmessage(39, MsgBoxStyle.Information)
                    End If
                    doc.Dispose()
                    FileReader = Nothing
                    Exit Sub
                End If
                doc.Dispose()
                FileReader = Nothing
                Dim f As New frmWordViewer()
                f.PrintDokumentid = doc.sDokumentid.Value
                f.PrintFilename = doc.sDokumentname.Value
                f.addressBar.Text = Dokument
                Try
                    f.MdiParent = formx.MdiParent
                Catch
                End Try
                f.Width = 1
                f.Height = 1
                f.Show_Print_Message = ShowPrintMessage
                Journal_Dokumentzugriff(dokumentid, "Office-Print", 0, 0, "", "")
                'Anpassungen für 'Nicht-Word-Dokumente'
                If UCase(Microsoft.VisualBasic.Right(f.PrintFilename, 4)) <> ".DOC" Then
                    f.Show()
                    Application.DoEvents()
                End If
                f.Print_Doc()
                'f.PrintDoc()
                f.Close()
                f = Nothing
                'f.Dispose()
                'MyMsg.show_standardmessage(91, MsgBoxStyle.Information)
            Catch
                'MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
            End Try
        End Sub

        '************************************************
        'UVM Migration / Erste Variante
        'Start
        '************************************************
        'Public Function gen_PrintColdDocUVM(ByVal sPartnerNR As String, ByVal sGeschaeftsfall As String, ByVal sErstellungsdatum As String, Optional ByVal ShowMSG01 As Boolean = True)
        '    'Rel 3.7 / BUD / Problem
        '    'Daten auslesen und UVM Dokument im Cold auf die Alte Art aufrufen.
        '    Dim sSpezPartnerNR As String
        '    Dim sSpezAuftragNr As String
        '    Dim sSpezPaginatorNr As String
        '    Dim sSpezUVMBez As String
        '    sSpezPartnerNR = "00" & Trim(sPartnerNR)
        '    sSpezAuftragNr = ConvertUVMData(sGeschaeftsfall, 2)
        '    sSpezPaginatorNr = ConvertUVMData(sGeschaeftsfall, 1)
        '    sSpezUVMBez = ConvertUVMData(sGeschaeftsfall, 3)
        '    DivFnkt.Erstellungsdatum = Microsoft.VisualBasic.Left(sErstellungsdatum, 10)
        '    DivFnkt.Belegart = "UVM"
        '    DivFnkt.UVMZVDokumenttyp = sSpezUVMBez
        '    DivFnkt.Auftragnr = sSpezAuftragNr
        '    DivFnkt.printcolddocHost(sSpezPaginatorNr, Nothing, sSpezPaginatorNr, sSpezPartnerNR, sSpezPartnerNR, sSpezUVMBez, ShowMSG01)
        'End Function
        '************************************************
        'ENDE
        '************************************************

#End Region

        Public Function isbck(ByVal dokumentid As String) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "sp_check_bck"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            Try
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@isbck", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@bcknr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                If scmCmdToExecute.Parameters("@isbck").Value = 1 Then
                    isbck = True
                Else
                    isbck = False
                End If

            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("CheckBCK:" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try
        End Function

        Public Function get_colddokumentid(ByVal dokumentid As String, ByVal fnkt As Integer) As String
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_get_colddokumentid"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@coldpartnernr", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))

                sdaAdapter.Fill(dtToReturn)
                Me.Nova_Partnernr = scmCmdToExecute.Parameters("@coldpartnernr").Value
                get_colddokumentid = scmCmdToExecute.Parameters("@colddokumentid").Value
            Catch ex As Exception
                MsgBox("Status Dokumentbearbeitung::" & scmCmdToExecute.CommandText + "::" + ex.Message)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try
        End Function

#End Region

#Region " Generate Dokumentid"
        Public Function Generate_Key() As String
            Dim dbkey As New edokadb.clsMyKey_Tabelle()
            Dim dokart As New edokadb.clsDokumentart()
            Dim key As Long
            Dim skey As String
            Dim s As String
            dbkey.cpMainConnectionProvider = conn
            conn.OpenConnection()
            key = dbkey.get_dbkey("dokument")
            conn.CloseConnection(False)
            skey = "OFFEDK000"

            s = Str(Year(Now))
            While Microsoft.VisualBasic.Left(s, 1) = " "
                s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
            End While
            skey = skey + s

            s = Str(key)
            While Microsoft.VisualBasic.Left(s, 1) = " "
                s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
            End While

            While Len(s) < 8
                s = "0" + s
            End While
            skey = skey + s

            s = Pruefziffer(Microsoft.VisualBasic.Right(skey, 15))
            While Microsoft.VisualBasic.Left(s, 1) = " "
                s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
            End While
            skey = skey + s
            Generate_Key = skey
        End Function

        Public Function Pruefziffer(ByVal zahl As String) As String
            Dim ptab(9, 9) As Integer
            Dim pz(9) As Integer
            Dim s1, s2, s3 As String

            Dim i1, i2 As Long

            s1 = "0,9,4,6,8,2,7,1,3,5"
            s2 = s1
            For i1 = 0 To 9
                For i2 = 0 To 9
                    ptab(i1, i2) = Mid(s2, (i2 * 2) + 1, 1)
                Next
                s3 = Microsoft.VisualBasic.Left(s1, 1)
                s1 = Microsoft.VisualBasic.Right(s1, Len(s1) - 2)
                s1 = s1 + "," + s3
                s2 = s1
            Next
            pz(0) = 0
            pz(1) = 9
            pz(2) = 8
            pz(3) = 7
            pz(4) = 6
            pz(5) = 5
            pz(6) = 4
            pz(7) = 3
            pz(8) = 2
            pz(9) = 1

            Dim i, x, y, z, e As Integer
            Dim xx As String
            y = 0
            For i = 1 To Len(zahl)
                x = Val(Mid(zahl, i, 1))
                y = ptab(x, y)
            Next
            Pruefziffer = Str(pz(y))
        End Function

#End Region

#Region " MainBerechtigungen"
        Public Function BarcodeEtiketten_Berechtigt() As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            Try
                scmCmdToExecute.CommandText = "dbo.sp_berechtigung_labels"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                If scmCmdToExecute.Parameters("@berechtigt").Value = 1 Then
                    BarcodeEtiketten_Berechtigt = True
                Else
                    BarcodeEtiketten_Berechtigt = False
                End If
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try

        End Function

        Public Function EDOKA_Partner_Berechtigt() As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            Try
                scmCmdToExecute.CommandText = "dbo.sp_berechtigung_edokapartner"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                If scmCmdToExecute.Parameters("@berechtigt").Value = 1 Then
                    EDOKA_Partner_Berechtigt = True
                Else
                    EDOKA_Partner_Berechtigt = False
                End If
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try

        End Function

#End Region

#Region " Timer"
        Public Function Check_MessageTimer() As Integer
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.SP_message_getmessage"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                sdaAdapter.Fill(dtToReturn)
                Check_MessageTimer = False
                Check_MessageTimer = dtToReturn.Rows.Count
            Catch ex As Exception
                Throw New Exception("Dokumenterstellung::SP_message_getmessage::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

#End Region

#Region " Diverses"

        Public Sub check_doc2()
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim s As String
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_check_doc"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                sdaAdapter.Fill(dtToReturn)
                For i = 0 To dtToReturn.Rows.Count - 1
                    Dim f As New frmHinweismeldung1()
                    s = "Das nachfolgende Dokumente wurde von Ihnen erstellt, konnte aber aufgrund eines"
                    s = s + vbCrLf + "Systemfehlers nicht korrekt auf der Datenbank gespeichert werden. Der Dokumenteintrag im"
                    s = s + vbCrLf + "EDOKA ist fehlerhaft, da sich das Dokument im EDOKA nicht anzeigen lässt."
                    s = s + vbCrLf + vbCrLf
                    s = s + "Partner: " + Chr(9) + Str(dtToReturn.Rows(i).Item("nrpar00")) + " - " + dtToReturn.Rows(i).Item("bkpar00")
                    s = s + vbCrLf
                    s = s + "DokumentID: " + Chr(9) + dtToReturn.Rows(i).Item("dokumentid")
                    s = s + vbCrLf
                    s = s + "Dokumenttyp: " + Chr(9) + dtToReturn.Rows(i).Item("bezeichnung")
                    s = s + vbCrLf
                    s = s + "Erstellt am: " + Chr(9) + dtToReturn.Rows(i).Item("erstelltam")
                    s = s + vbCrLf + vbCrLf
                    s = s + "Bitte gehen Sie wie folgt vor:"
                    s = s + vbCrLf + "- Vernichten des allfällig ausgedrucken Dokumentes"
                    s = s + vbCrLf + "- Löschen des fehlerhaften Dokumenteintrages im EDOKA"
                    s = s + vbCrLf + "- Neu erstellen des Dokumentes"
                    f.Label1.Text = s
                    f.MsgBoxStyle = 1
                    f.ShowDialog()
                    f.Dispose()
                    Globals.PerfMon.force_insert_entry("Dokument nicht korrekt auf der Datenbank - " + dtToReturn.Rows(i).Item("dokumentid"))
                Next
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                'Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Sub

        Public Sub TraceLog(ByVal stext As String)
            'Dim sw As New StreamWriter("c:\tracelog.txt", True)
            'sw.WriteLine(stext)
            'sw.Flush()
            'sw.Close()
        End Sub

        Public Function leererstellung(ByVal fnkt As Integer, ByVal dokumenttypnr As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_dokument_leererstellung"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@leererstellung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                i = scmCmdToExecute.Parameters("@leererstellung").Value
                If i > 0 Then leererstellung = True Else leererstellung = False
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function EDOKA_Partner_Dokument(ByVal fnkt As Integer, ByVal dokumenttypnr As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_dokument_edokapartnererstellung"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@leererstellung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                i = scmCmdToExecute.Parameters("@leererstellung").Value
                If i > 0 Then EDOKA_Partner_Dokument = True Else EDOKA_Partner_Dokument = False
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Journal_Dokumentzugriff(ByVal dokumentid As String, ByVal zugriffsart As String, ByVal host As Integer, ByVal partnernr As Integer, ByVal partner_kurzbezeichnung As String, ByVal dokumenttyp As String)
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.sp_journal_dokzugriffe"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                If host = 0 Then
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
                Else
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, partner_kurzbezeichnung))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, dokumenttyp))
                End If
                Try
                    scmCmdToExecute.Connection.Open()
                    connopen = True
                Catch
                End Try
                scmCmdToExecute.ExecuteNonQuery()
                If connopen Then
                    Try
                        scmCmdToExecute.Connection.Close()
                    Catch
                    End Try
                End If
            Catch ex As Exception

            Finally
                scmCmdToExecute.Dispose()
            End Try
        End Function

        Public Function BDR_Dokument(ByVal dokumentid As String) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_check_bdr_dokument"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@bdr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                i = scmCmdToExecute.Parameters.Item("@bdr").Value
                If i = 0 Then
                    Return False
                Else
                    Return True
                End If
            Catch ex As Exception
                '            MsgBox(ex.Message)
                Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Gesperrte_Dokumente_Loeschen()
            Try
                Dim scmCmdToExecute As SqlCommand = New SqlCommand()
                Dim i As Integer
                Dim dtToReturn As DataTable = New DataTable()
                Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
                scmCmdToExecute.CommandText = "dbo.sp_delete_locked_Docs"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                Try
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    sdaAdapter.Fill(dtToReturn)
                Catch ex As Exception
                    '            MsgBox(ex.Message)
                    'Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
                Finally
                    scmCmdToExecute.Dispose()
                    sdaAdapter.Dispose()
                    dtToReturn.Dispose()
                End Try
            Catch
            End Try
        End Function

        Public Function check_partnerzusammenlegung() As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_check_partnerzusammenlegung"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerzusammenlegung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                i = scmCmdToExecute.Parameters.Item("@partnerzusammenlegung").Value
                If i = 0 Then
                    Return False
                Else
                    Return True
                End If
            Catch ex As Exception
                '            MsgBox(ex.Message)
                Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Sub GrdAlign(ByRef grd As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Datafield As String, ByVal Align As C1.Win.C1TrueDBGrid.AlignHorzEnum)

            Dim iCnt As Integer
            'center  = Zentriert
            'far = rechts
            'near = links
            Try
                grd.Splits(0).DisplayColumns(Datafield).Style.HorizontalAlignment = Align
                grd.Splits(0).DisplayColumns(Datafield).HeadingStyle.HorizontalAlignment = Align
            Catch
            End Try

        End Sub


        Public Sub Bezeichnung_Feldwert(ByRef dt As DataTable, ByVal SetDefaultValue As Boolean)
            Try
                Dim i As Integer
                Dim i1 As Integer
                Dim s1 As String
                Dim s2 As String
                For i = 0 To dt.Rows.Count - 1
                    If dt.Rows(i).Item("Bezeichnung") Is System.DBNull.Value Then
                        dt.Rows(i).Item("Bezeichnung") = ""
                    End If
                    i1 = InStr(dt.Rows(i).Item("Bezeichnung"), "&DW:")
                    If i1 > 0 Then
                        s1 = dt.Rows(i).Item("bezeichnung")
                        s2 = s1
                        s1 = Microsoft.VisualBasic.Left(s1, i1 - 1)
                        Try
                            s2 = Microsoft.VisualBasic.Right(s2, Len(s2) - (i1 + 3))
                        Catch
                            s2 = ""
                        End Try
                        dt.Rows(i).Item("Bezeichnung") = s1
                        If SetDefaultValue = True Then
                            dt.Rows(i).Item("Feldwert") = Feldwert_Aufbereitung(s2)
                        End If
                    End If
                Next
            Catch
            End Try
        End Sub

        Public Function Feldwert_Aufbereitung(ByVal Feldwert As String) As String
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_Dokumentfeldwert_Aufbereitung"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@FeldwertIn", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Feldwert))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@FeldwertOut", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Connection.Open()
                scmCmdToExecute.ExecuteNonQuery()
                scmCmdToExecute.Connection.Close()
                Return scmCmdToExecute.Parameters("@FeldwertOut").Value

            Catch ex As Exception
                Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Check_Fieldvalue(ByVal Feldwert As String, ByVal Validierungsregel As String) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_Dokumentfeldwert_Validate"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@FeldwertIn", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Feldwert))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@Validierungsregel", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Validierungsregel))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@errormessage", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Connection.Open()
                scmCmdToExecute.ExecuteNonQuery()
                scmCmdToExecute.Connection.Close()
                If scmCmdToExecute.Parameters("@errormessage").Value <> "" Then
                    MsgBox(scmCmdToExecute.Parameters("@errormessage").Value, MsgBoxStyle.Critical)
                    Return False
                End If
                Return True
            Catch ex As Exception
                Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function Check_Sysadmin_Stellvertreter(ByVal Owner As Integer) As Boolean
            If Owner = Globals.MitarbeiterNr Then Return True
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_check_sysadmin_stv"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@vertretener", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Owner))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Connection.Open()
                scmCmdToExecute.ExecuteNonQuery()
                scmCmdToExecute.Connection.Close()
                If scmCmdToExecute.Parameters("@berechtigt").Value = 1 Then
                    Return True
                Else
                    If Me.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
                        Return True
                    Else
                        Return False
                    End If
                End If
            Catch ex As Exception
                Throw New Exception("sp_check_sysadminstv::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try

        End Function


        'EDEX Banklagernd

        Public Function get_parnter_namevorname(ByVal nrpar00 As Integer) As String
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_edex_get_partnervornamename"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            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("@value", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Connection.Open()
                scmCmdToExecute.ExecuteNonQuery()
                scmCmdToExecute.Connection.Close()
                Return scmCmdToExecute.Parameters("@value").Value
            Catch ex As Exception
                Return ""
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function
        Public Function get_parnter_anrede(ByVal nrpar00 As Integer) As String
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_edex_get_partnervornamename"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            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("@value", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@beban", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Connection.Open()
                scmCmdToExecute.ExecuteNonQuery()
                scmCmdToExecute.Connection.Close()
                Return scmCmdToExecute.Parameters("@beban").Value
            Catch ex As Exception
                Return ""
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function
#End Region
#Region "Avaloq Spooler"
        Public Function checkSpoolerDir() As Boolean
            Dim dir As New IO.DirectoryInfo(EDOKAApp.Globals.SpoolerDir)
            Dim boolRet As Boolean = False
            If dir.Exists Then
                Dim iCounter As Integer
                
                iCounter = 0

                Dim files As IO.FileInfo() = dir.GetFiles()
                Dim file As IO.FileInfo
                Dim arsch As Action
                arsch = New Action

                For Each file In files
                    If file.Extension = "." & Consts.ACTION_FILE_EXTENSION Then
                        boolRet = True
                        Exit For
                    End If
                Next
            Else
                dir.Create()
                Dim iCounter As Integer


                iCounter = 0

                Dim files As IO.FileInfo() = dir.GetFiles()
                Dim file As IO.FileInfo
                Dim arsch As Action
                arsch = New Action

                For Each file In files
                    If file.Extension = "." & Consts.ACTION_FILE_EXTENSION Then
                        boolRet = True
                        Exit For
                    End If
                Next
            End If
            Return boolRet
        End Function
        Function checkPartnerNr(ByVal partnernr As String) As Boolean
            Dim ret As Boolean = True

            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_checkPartnerNr"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
                sdaAdapter.Fill(dtToReturn)

                If dtToReturn.Rows.Count > 0 Then
                    ret = True
                Else
                    ret = False
                End If
                
            Catch ex As Exception
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try
            Return ret
        End Function

        Function getDocArtByDocTypID(ByVal docTyp As Integer) As String
            Dim ret As String = ""

            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_getDocArt"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@DokTyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, docTyp))
                sdaAdapter.Fill(dtToReturn)

                If dtToReturn.Rows.Count > 0 Then
                    ret = dtToReturn.Rows(0).Item("dokumentart_kundendossier")
                Else
                    ret = ""
                End If

            Catch ex As Exception
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try
            Return ret
        End Function

        Function checkDokID(ByVal dokid As String, ByVal dp As Integer) As Boolean
            Dim ret As Boolean = True

            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_checkDokID"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@DokID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@DP", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dp))
                sdaAdapter.Fill(dtToReturn)

                If dtToReturn.Rows.Count > 0 Then
                    ret = True
                Else
                    ret = False
                End If

            Catch ex As Exception
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try
            Return ret
        End Function
#End Region
    End Class

End Namespace