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
Imports System.Xml
Imports System.Threading
Imports C1.C1Preview

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 delDokInUse(ByVal Mitarbeiternr As Integer)
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_deldokinuse"
            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, Mitarbeiternr))
                sdaAdapter.Fill(dtToReturn)
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("DivFnkt:DelDokInUse::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function



        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
            Try
                Dim nodeX As TreeNode
                For Each nodeX In selectedNode.Nodes
                    nodeX.Text = nodeX.Text
                    If nodeX.Tag.ToString = SearchObject.ToString 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
            Catch ex As Exception
            End Try
        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()
                dtToReturn.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()
                dtToReturn.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("Berechtigte_Mitarbeiter" + 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


        '20090927 - GetUVM_Data
        Public Function Show_Spooler_UVM_Doc(ByVal Paginatornr As String, ByRef parentform As Form) As DataTable
            Dim ret As Boolean = True
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_get_uvm_dokument_data"
            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("@paginatornr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Paginatornr))
                sdaAdapter.Fill(dtToReturn)
                If dtToReturn.Rows.Count > 0 Then
                    ret = True
                    Dim d As DataTable
                    d = DivFnkt.Berechtigte_Mitarbeiter(dtToReturn.Rows(0).Item("dokumenttypnr").ToString, Globals.MitarbeiterNr, dtToReturn.Rows(0).Item("partnernr").ToString, dtToReturn.Rows(0).Item("dokumentid").ToString, 0, 0, 0, dtToReturn.Rows(0).Item("vertraulich"), "")
                    Try
                        If d.Rows(0).Item("anzeigen") = 1 Then
                            DivFnkt.Erstellungsdatum = ""
                            DivFnkt.ShowDoc(dtToReturn.Rows(0).Item("dokumentid").ToString, parentform)
                        Else
                            MyMsg.show_standardmessage(809, MsgBoxStyle.Information)
                        End If
                    Catch
                        MyMsg.show_standardmessage(809, MsgBoxStyle.Information)
                    End Try

                Else
                    ret = False
                End If
            Catch ex As Exception
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try
        End Function

        Public Function Show_Spooler_ZV_Doc(ByVal Paginatornr As String, ByRef parentform As Form) As DataTable
            Dim ret As Boolean = True
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_get_zv_dokument_data"
            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("@paginatornr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Paginatornr))
                sdaAdapter.Fill(dtToReturn)
                If dtToReturn.Rows.Count > 0 Then
                    ret = True
                    Dim d As DataTable
                    DivFnkt.Erstellungsdatum = dtToReturn.Rows(0).Item("dmval00")
                    DivFnkt.Auftragnr = dtToReturn.Rows(0).Item("nrauf00")
                    DivFnkt.UVMZVDokumenttyp = dtToReturn.Rows(0).Item("Doktype")
                    DivFnkt.Belegart = "ZV"
                    DivFnkt.ShowColdDocHost(dtToReturn.Rows(0).Item("nrdoc00"), parentform, dtToReturn.Rows(0).Item("nrdoc00"), dtToReturn.Rows(0).Item("nrpar00"), dtToReturn.Rows(0).Item("nrpar00"), Me.UVMZVDokumenttyp)
                Else
                    ret = False
                End If
            Catch ex As Exception
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.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)
            check_show_hinweismeldung(dokumentid)
            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 colddokumentid = "Canon" Then
                    Show_Canon(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 check_show_hinweismeldung(ByVal dokumentid As String)
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_check_docmessage"
            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("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                sdaAdapter.Fill(dtToReturn)
                Dim meldung As String
                meldung = scmCmdToExecute.Parameters("@meldung").Value
                If meldung <> "" Then
                    MsgBox(meldung, MsgBoxStyle.Information)
                End If
            Catch ex As Exception

            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try

        End Function

        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_Canon(ByVal DOkumentid As String, ByVal formx As Form)
            Dim dokid As String = ""
            Dim dokument As String = ""
            GC.Collect()
            GC.WaitForPendingFinalizers()
            GC.Collect()
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_get_canonid"
            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))
                sdaAdapter.Fill(dtToReturn)
                dokid = dtToReturn.Rows(0).Item(0)
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try
            dokument = DivFnkt.Get_Filename("View_" + Format(Now, "yyyyMMddHHmmss") + "_" + dokid + ".pdf", "")
            Dim FileReader As New DocMgmt()
            If FileReader.Get_From_DB(dokid, dokument) = True Then
                Process.Start(dokument)
            End If

            FileReader = Nothing
        End Sub

        Public Sub show_office(ByVal dokumentid As String, ByVal formx As Form)
            GC.Collect()
            GC.WaitForPendingFinalizers()
            GC.Collect()

            GC.WaitForPendingFinalizers()
            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

                'Office_2010
                If Globals.Office_2010_DocView_Nativ = True Then


                    Dim EXT As String = System.IO.Path.GetExtension(Dokument)
                    Select Case UCase(EXT.Substring(0, 3))
                        Case ".DO"
                            Dim objword As New Microsoft.Office.Interop.Word.Application
                            Try
                                If Globals.Office_2010_Word_Autoexec = True Then
                                    Thread.Sleep(Globals.Office_2010_Word_Start_Delay)
                                    objword.Run("Autoexec")
                                Else
                                    Try
                                        Dim addinfile As String = DivFnkt.XML_Param("TKBMakroLib")
                                        Thread.Sleep(Globals.Office_2010_Word_Start_Delay)
                                        If addinfile <> "" Then objword.AddIns.Add(addinfile)
                                    Catch
                                    End Try
                                End If
                            Catch ex As Exception
                            End Try

                            objword.Documents.Open(Dokument)
                            Try
                                Dim addinfile As String = DivFnkt.XML_Param("Word_3")
                                If addinfile <> "" Then

                                    If objword.ActiveDocument.ProtectionType <> Microsoft.Office.Interop.Word.WdProtectionType.wdNoProtection Then
                                        objword.ActiveDocument.Unprotect("Australia")
                                        objword.AddIns.Add(addinfile)
                                        objword.AddIns.Item(addinfile).Installed = True
                                        objword.ActiveDocument.Protect(Type:=Microsoft.Office.Interop.Word.WdProtectionType.wdAllowOnlyFormFields, NoReset:=True, Password:=Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_wordvorlagen"))
                                    Else
                                        objword.AddIns.Add(addinfile)
                                        objword.AddIns.Item(addinfile).Installed = True

                                    End If
                                End If
                                objword.ActiveDocument.Saved = True
                            Catch ex As Exception

                            End Try
                            Journal_Dokumentzugriff(dokumentid, "Office-Anzeige", 0, 0, "", "")
                            objword.ActiveDocument.Saved = True
                            objword.Visible = True
                            objword.Activate()
                            objword = Nothing
                            GC.Collect()
                            GC.WaitForPendingFinalizers()
                            GC.Collect()

                            GC.WaitForPendingFinalizers()
                            Exit Sub
                        Case ".XL"
                            Dim xls As Microsoft.Office.Interop.Excel.Application
                            xls = New Microsoft.Office.Interop.Excel.Application

                            'Dim xls As New Microsoft.Office.Interop.Excel.Application
                            xls.Workbooks.Open(Dokument)
                            Try
                                Dim addinfile As String = DivFnkt.XML_Param("Excel_3")
                                If addinfile <> "" Then
                                    xls.AddIns.Add(addinfile, False)
                                    xls.AddIns("Edoka_3").Installed = False
                                    xls.AddIns("Edoka_3").Installed = True
                                End If
                            Catch ex As Exception

                            End Try
                            Journal_Dokumentzugriff(dokumentid, "Office-Anzeige", 0, 0, "", "")
                            xls.Visible = True
                            xls.ActiveWorkbook.Saved = True
                            xls.ActiveWorkbook.Activate()
                            xls = Nothing

                            Exit Sub
                        Case Else
                            Process.Start(Dokument)
                    End Select
                    Exit Sub
                End If


                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()

            'Rel. Office 2010
            Select Case Office_Vorlage.iAnwendungnr.Value
                Case 1
                    dokumentname = dokumentname + ".doc"
                Case 2
                    dokumentname = dokumentname + ".xls"
                Case 3
                    dokumentname = dokumentname + ".pdf"
                Case 4
                    dokumentname = dokumentname + ".docx"
                Case 5
                    dokumentname = dokumentname + ".docm"
                Case 6
                    dokumentname = dokumentname + ".dotx"
                Case 7
                    dokumentname = dokumentname + ".dotm"
                Case 8
                    dokumentname = dokumentname + ".xlsx"
                Case 9
                    dokumentname = dokumentname + ".xlsm"
                Case 10
                    dokumentname = dokumentname + ".xltx"
                Case 11
                    dokumentname = dokumentname + ".xltm"
            End Select

            'If Office_Vorlage.iAnwendungnr.Value = 2 Then
            '    dokumentname = dokumentname + ".xls"
            'Else
            '    dokumentname = dokumentname + ".doc"
            'End If
            'Ende Rel. Office2010

            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


                'Office_2010
                If Globals.Office_2010_DocView_Nativ = True Then


                    Dim EXT As String = System.IO.Path.GetExtension(Dokument)
                    Select Case UCase(EXT.Substring(0, 3))
                        Case ".DO"
                            Dim objword As Microsoft.Office.Interop.Word.Application
                            objword = CreateObject("Word.Application")
                            Try
                                If Globals.Office_2010_Word_Autoexec = True Then
                                    Thread.Sleep(Globals.Office_2010_Word_Start_Delay)
                                    objword.Run("Autoexec")
                                Else
                                    Try
                                        Dim addinfile As String = DivFnkt.XML_Param("TKBMakroLib")
                                        Thread.Sleep(Globals.Office_2010_Word_Start_Delay)
                                        If addinfile <> "" Then objword.AddIns.Add(addinfile)
                                    Catch ex As Exception
                                    End Try
                                End If
                            Catch ex As Exception
                            End Try

                            objword.Documents.Open(Dokument)
                            Threading.Thread.CurrentThread.Sleep(500)
                            Dim ierror As Integer = 0
                            Try
                                objword.Visible = True
                                objword.WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateNormal
                                Thread.CurrentThread.Sleep(3000)
                                objword.Documents(1).Activate()
                                objword.Activate()
                                Application.DoEvents()
                                Dim hnd As Integer
                                Try
                                    hnd = Win32API.FindWindow(vbNullString, objword.ActiveDocument.Name + " - Microsoft Word")
                                    Win32API.ShowWindow(hnd, Win32API.SW_Maximize)
                                    Win32API.BringWindowToTop(hnd)
                                Catch
                                End Try
                                objword.Run("BackGroundPrint")
                                Thread.CurrentThread.Sleep(3000)
                                Application.DoEvents()
                                objword.Visible = False
                                'objword.WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateNormal
                            Catch ex As Exception
                                objword.Visible = False
                                ierror = 1
                                MsgBox("Das Dokument konnte nicht gedruckt werden." + vbCrLf + vbCrLf + ex.Message)
                            End Try
                            Threading.Thread.CurrentThread.Sleep(500)
                            objword.ActiveDocument.Close(SaveChanges:=False)
                            objword.Quit()
                            objword = Nothing
                            objword = Nothing
                            If ierror <> 0 Then Exit Select
                            Journal_Dokumentzugriff(dokumentid, "Office-Print", 0, 0, "", "")
                            MyMsg.show_standardmessage(250, MsgBoxStyle.Information)
                            Exit Sub
                        Case ".XL"
                            Dim xls As New Microsoft.Office.Interop.Excel.Application
                            xls.Workbooks.Open(Dokument)
                            xls.ActiveWorkbook.Sheets.Select()
                            xls.ActiveWindow.SelectedSheets.PrintOutEx(Copies:=1)
                            xls.ActiveWorkbook.Close(SaveChanges:=False)
                            xls.Quit()
                            xls = Nothing
                            Journal_Dokumentzugriff(dokumentid, "Office-Print", 0, 0, "", "")
                            MyMsg.show_standardmessage(250, MsgBoxStyle.Information)
                            Exit Sub
                        Case Else
                            Process.Start(Dokument)
                    End Select
                    Exit Sub
                End If



                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" And UCase(Microsoft.VisualBasic.Right(f.PrintFilename, 4)) <> ".DOCX" And UCase(Microsoft.VisualBasic.Right(f.PrintFilename, 4)) <> ".DOCM" And UCase(Microsoft.VisualBasic.Right(f.PrintFilename, 4)) <> ".DOTX" And UCase(Microsoft.VisualBasic.Right(f.PrintFilename, 4)) <> ".DOTM" 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
            Try
                conn.OpenConnection()
            Catch
            End Try

            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)
            'If Globals.DoLog = False Then Exit Sub
            'Dim sw As New StreamWriter("h:\tssettings\edoka\tracelog.txt", True)
            'sw.WriteLine(Format(Now, "yyyyMMddHHmmss") + " - " + 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 Edoka_doktyp_saldierung(ByVal dokumenttypnr As Integer, ByVal gesetzt As Integer, ByVal fnkt 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_dokumenttyp_saldierung_bei_VV_Saldierung"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@Aufhebung_bei_VV_Saldierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, gesetzt))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@gesetzt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                conn.OpenConnection()
                scmCmdToExecute.ExecuteNonQuery()
                conn.CloseConnection(True)
                i = scmCmdToExecute.Parameters("@gesetzt").Value
                If i > 0 Then Return True Else Return 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
        '-- ObjPerson - 
        Enum Enum_BP_Person_Typ
            BP_und_Person = 0
            Nur_BP = 1
            Nur_Person = 2
        End Enum

        Public Function EDOKA_Partner_BP_Person_Dokument(ByVal fnkt As Integer, ByVal Typ As Integer, ByVal dokumenttypnr As Integer) As Enum_BP_Person_Typ
            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_edoka_BP_Person_Erstrellung"
            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("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Typ))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@Retvalue", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))

                sdaAdapter.Fill(dtToReturn)
                i = scmCmdToExecute.Parameters("@Retvalue").Value
                Return i
            Catch ex As Exception
                Return Enum_BP_Person_Typ.BP_und_Person
                ' // 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

        Enum ENUM_Partnertyp
            BP = 1
            EDOKA_Interessent = 2
            Person = 3
            Struktur = 4
        End Enum

        Public Function PartnerTyp(ByVal Nr As String) As ENUM_Partnertyp
            Try
                If Nr < 90000000 Then Return ENUM_Partnertyp.BP
                If Nr < 100000000 Then Return ENUM_Partnertyp.EDOKA_Interessent
                If Nr >= 100000000 Then Return ENUM_Partnertyp.Person
            Catch
                Return ENUM_Partnertyp.Struktur
            End Try

        End Function

        Public Function Get_DocID_From_Avq_auth_extl_ref(ByVal avq_auth_extl_ref As String) As String
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.sp_Get_DocID_From_Avq_auth_extl_ref"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@avq_auth_extl_ref", SqlDbType.VarChar.Int, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, avq_auth_extl_ref))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                Try
                    scmCmdToExecute.Connection.Open()
                    connopen = True
                Catch
                End Try
                scmCmdToExecute.ExecuteNonQuery()
                If connopen Then
                    Try
                        scmCmdToExecute.Connection.Close()
                    Catch
                    End Try
                End If
                Return scmCmdToExecute.Parameters("@dokumentid").Value.ToString
            Catch ex As Exception
                MsgBox("Get_DocID_From_Avq_auth_extl_ref " + ex.Message)
            Finally
                scmCmdToExecute.Dispose()
            End Try
        End Function


        Public Function Insert_Update_AVQ_ExtlRef(ByVal dokumentid As String, ByVal avq_auto_extl_ref As String, ByVal fnkt As Integer, ByVal newdocid As String)
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.sp_insert_update_avq_auth_extl_ref"
            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("@avq_auto_extl_refr", SqlDbType.VarChar.Int, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, avq_auto_extl_ref))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@newdocid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, newdocid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))

                Try
                    scmCmdToExecute.Connection.Open()
                    connopen = True
                Catch ex As Exception
                    'MsgBox(ex.Message)
                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 Erstellung_Erlaubt(ByVal partnernr As Integer, dokumenttypnr As Integer) As Integer
            Dim i As Enum_BP_Person_Typ
            i = Me.EDOKA_Partner_BP_Person_Dokument(2, 0, dokumenttypnr)
            If PartnerTyp(partnernr) = ENUM_Partnertyp.BP And i = Enum_BP_Person_Typ.Nur_Person Then Return 1
            If PartnerTyp(partnernr) = ENUM_Partnertyp.Person And i = Enum_BP_Person_Typ.Nur_BP Then Return 2
            Return 0
        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 EDOKALib.Common.Action
                arsch = New EDOKALib.Common.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 EDOKALib.Common.Action
                arsch = New EDOKALib.Common.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
                    Dim f As New frmDataReplikation(partnernr)

                    f.ShowDialog()
                    If f.DialogResult = DialogResult.OK Then ret = True Else ret = False
                    '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

#Region "Partner"
        Public Function Check_Versandfahigkeit(ByVal nrpar00 As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_check_versandfaehigkeit"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                Globals.conn.OpenConnection()
                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.VarChar, 22, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.ExecuteNonQuery()
                If scmCmdToExecute.Parameters("@result").Value = "1" Then Return True Else Return False
            Catch ex As Exception
            Finally
                Globals.conn.CloseConnection(True)
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try

        End Function
#End Region

#Region "Rel. 4.1"
        Public Function check_blv() As Boolean
            'BLV-Funktion: 125
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_edex_bl_check_blv"
            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("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@istblv", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@istkube", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                sdaAdapter.Fill(dtToReturn)
                If scmCmdToExecute.Parameters("@istblv").Value = 1 Then Return True Else Return False
            Catch ex As Exception
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try

        End Function

        Public Function Get_Appldata(ByVal approwid As Integer, ByVal version As String) As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_get_applikationsdaten"
            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("@approwid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, approwid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@version", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, version))
                sdaAdapter.Fill(dtToReturn)
                Return dtToReturn
            Catch ex As Exception
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
                dtToReturn.Dispose()
            End Try

        End Function

#End Region


#Region "Reporting"
        Public Function Generate_Report(ByVal ReportNr As Integer, ByVal Reportname As String, ByVal Params As String, ByVal WindowTitle As String, ByVal parentform As Form)
            Dim Dokument_Temp As String
            Dim sReportBezNAme As String

            Dim r As New Reporting20.EDOKA_Reporting(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("user_report").ToString,
            Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_report").ToString,
            Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_server").ToString,
            Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_db").ToString)

            Dim objReport As New edokaDB.clsReporting_Dokumenttyp()
            Dokument_Temp = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"), String)
            objReport.Get_DocumentFrom_DB("reportNr", ReportNr, "report", "reportfile", Dokument_Temp, Reportname)
            objReport = Nothing

            r.ShowMetaDataReport(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente").ToString, Reportname, Params, WindowTitle, parentform)
        End Function
#End Region

#Region "Office_2010"
        Public Function Get_Office_2010_Param(ByVal paramNo As Integer) As String
            Dim connection As New SqlConnection()
            Dim da As New SqlDataAdapter("Select Param From Office_2010_Params where nreintrag=" + paramNo.ToString, connection)
            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
            Dim ds As New DataSet()
            Try
                connection.ConnectionString = Globals.sConnectionString
                connection.Open()
                da.Fill(ds, "docs")
                Dim myRow As DataRow
                myRow = ds.Tables(0).Rows(0)
                Return myRow.Item(0)
            Catch ex As Exception
                Return False
            Finally
                CB = Nothing
                ds = Nothing
                da = Nothing
                connection.Close()
                connection = Nothing
            End Try
            CB = Nothing
            ds = Nothing
            da = Nothing
            connection.Close()
            connection = Nothing
            Return True
        End Function

        Public Function XML_Param(ByVal Type As String) As String
            Dim xmldoc As New XmlDocument
            xmldoc.Load(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "Office_2010.xml")
            If Globals.UseOffice2016 = True Then
                Select Case UCase(Type)
                    Case "WORD_1"
                        Return office2010_name(xmldoc.SelectSingleNode("/Configuration/Word_1").InnerText)
                    Case "WORD_2"
                        Return office2010_name(xmldoc.SelectSingleNode("/Configuration/Word_2").InnerText)
                    Case "WORD_3"
                        Return office2010_name(xmldoc.SelectSingleNode("/Configuration/Word_3").InnerText)
                    Case "WORD_4"
                        Return office2010_name(xmldoc.SelectSingleNode("/Configuration/Word_4").InnerText)
                    Case "EXCEL_1"
                        Return office2010_name(xmldoc.SelectSingleNode("/Configuration/Excel_1").InnerText)
                    Case "EXCEL_2"
                        Return office2010_name(xmldoc.SelectSingleNode("/Configuration/Excel_2").InnerText)
                    Case "EXCEL_3"
                        Return office2010_name(xmldoc.SelectSingleNode("/Configuration/Excel_3").InnerText)
                    Case "EXCEL_4"
                        Return office2010_name(xmldoc.SelectSingleNode("/Configuration/Excel_4").InnerText)
                    Case "TKBMAKROLIB"
                        Return xmldoc.SelectSingleNode("/Configuration/TKBMakroLib").InnerText
                    Case Else
                        Return ""
                End Select
                xmldoc = Nothing
                Exit Function
            End If
            Select Case UCase(Type)
                Case "WORD_1"
                    Return xmldoc.SelectSingleNode("/Configuration/Word_1").InnerText
                Case "WORD_2"
                    Return xmldoc.SelectSingleNode("/Configuration/Word_2").InnerText
                Case "WORD_3"
                    Return xmldoc.SelectSingleNode("/Configuration/Word_3").InnerText
                Case "WORD_4"
                    Return xmldoc.SelectSingleNode("/Configuration/Word_4").InnerText
                Case "EXCEL_1"
                    Return xmldoc.SelectSingleNode("/Configuration/Excel_1").InnerText
                Case "EXCEL_2"
                    Return xmldoc.SelectSingleNode("/Configuration/Excel_2").InnerText
                Case "EXCEL_3"
                    Return xmldoc.SelectSingleNode("/Configuration/Excel_3").InnerText
                Case "EXCEL_4"
                    Return xmldoc.SelectSingleNode("/Configuration/Excel_4").InnerText
                Case "TKBMAKROLIB"
                    Return xmldoc.SelectSingleNode("/Configuration/TKBMakroLib").InnerText
                Case Else
                    Return ""
            End Select
            xmldoc = Nothing
        End Function
#End Region

        'Sub test()
        '    Dim i As Integer
        '    For i = 1 To 100
        '        Dim w As New Microsoft.Office.Interop.Word.Application
        '        w.Visible = True
        '        Dim wd As New Microsoft.Office.Interop.Word.Document
        '        Dim d As New DocMgmt
        '        d.Get_From_DB("OFFEDK0002012003069807", "h:\tssettings\OFFEDK0002012003069807.dotm")
        '        w.Documents.Open("h:\tssettings\OFFEDK0002012003069807.dotm")
        '        wd = w.ActiveDocument
        '        wd.Save()
        '        wd.Close(SaveChanges:=False)
        '        d.Save_To_DB("OFFEDK0002012003069807", "h:\tssettings\OFFEDK0002012003069807.dotm")
        '        w.Quit(SaveChanges:=False)
        '        w = Nothing
        '        w = Nothing
        '    Next i
        'End Sub

        Public Function Delete_Doc(ByVal dokumentid As String, ByVal avq_auth_extl_ref As String)
            Try
                Dim statusbezeichnungnr As Integer = 0
                If DivFnkt.Status_Dokumentbearbeitung(3, dokumentid, False, "") = False Then Exit Function
                Archivfnkt.Inkl_Bedingter_Retournierung = False

                Dim scmCmdToExecute As SqlCommand = New SqlCommand()
                scmCmdToExecute.CommandText = "dbo.sp_get_statusbezeichnungnr"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                conn.OpenConnection()
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@statusbezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.ExecuteNonQuery()
                statusbezeichnungnr = scmCmdToExecute.Parameters("@statusbezeichnungnr").Value

                If Archivfnkt.check_bereits_archiviert(dokumentid, True, statusbezeichnungnr) = False Then
                    scmCmdToExecute.Dispose()
                    conn.CloseConnection(True)
                    Exit Function
                End If
                scmCmdToExecute.Parameters.Clear()
                scmCmdToExecute.CommandText = "dbo.SP_Dokument_delete"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                'conn.OpenConnection()
                Try
                    Dim loeschgrund As String
                    loeschgrund = "Autom. Löschung durch Avaloq - Avq_auth_extl_ref: " + avq_auth_extl_ref

                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add("@loeschgrund", loeschgrund)
                    scmCmdToExecute.ExecuteNonQuery()
                Catch ex As Exception
                    Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
                Finally
                    scmCmdToExecute.Dispose()
                    conn.CloseConnection(True)

                    If Globals.DokAnKundeVersantPruefen = True Then
                        If statusbezeichnungnr > -2 Then
                            Globals.DokAnKundeVersant = True
                        Else
                            Globals.DokAnKundeVersant = False
                        End If
                    End If
                    'Wenn das Dokument bereits an den Partner versant wurde, zusätzlich den Anzeige Status setzen und
                    'den Löschgrund als Notiz speichern
                    If Globals.DokAnKundeVersant = True Then
                        Dim scmCmdToExecute1 As SqlCommand = New SqlCommand()
                        scmCmdToExecute1.CommandText = "dbo.SP_Dokument_updateinaktversant"
                        scmCmdToExecute1.CommandType = CommandType.StoredProcedure
                        scmCmdToExecute1.Connection = conn.scoDBConnection
                        conn.OpenConnection()
                        Try
                            scmCmdToExecute1.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                            scmCmdToExecute1.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                            scmCmdToExecute1.ExecuteNonQuery()
                        Catch ex As Exception
                            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
                        Finally
                            scmCmdToExecute1.Dispose()
                            conn.CloseConnection(True)
                        End Try
                    End If
                    'Ende
                    Dim dt As DataTable
                    Dim sth As New Statushandling()
                    dt = sth.get_coldindex_and_statusnr(dokumentid, False, False)
                    Archivfnkt.insert_coldupdate_status(dt, dokumentid, "Alt")
                    sth.Dispose()

                End Try
            Catch ex As Exception
                MsgBox("Delete_Doc " + ex.Message)
            Finally
                Try
                    conn.CloseConnection(True)
                Catch ex As Exception

                End Try
            End Try

        End Function




#Region "DokMD / DOKSA"
        Public Function CheckSA(ByVal Mitarbeiternr As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_check_doksa_dokmd"
            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, Mitarbeiternr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                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()
                Return scmCmdToExecute.Parameters("@berechtigt").Value
            Catch ex As Exception
                Return ""
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

        Public Function CheckMD(ByVal Mitarbeiternr As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_check_doksa_dokmd"
            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, Mitarbeiternr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
                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()
                Return scmCmdToExecute.Parameters("@berechtigt").Value
            Catch ex As Exception
                Return ""
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function

#End Region

#Region "Dokumentpaket_Check"

        Public Function Check_Dokumentpaket_Erstellung(ByVal partnernr As Integer, dokumenttypnr As Integer) As Integer
            Dim i As Enum_BP_Person_Typ
            i = Me.EDOKA_Partner_BP_Person_Dokument(2, 0, dokumenttypnr)
            If PartnerTyp(partnernr) = ENUM_Partnertyp.BP And i = Enum_BP_Person_Typ.BP_und_Person Then Return 1
            If PartnerTyp(partnernr) = ENUM_Partnertyp.Person And i = Enum_BP_Person_Typ.BP_und_Person Then Return 2
            If PartnerTyp(partnernr) = ENUM_Partnertyp.BP And i = Enum_BP_Person_Typ.Nur_BP Then Return 0
            If PartnerTyp(partnernr) = ENUM_Partnertyp.Person And i = Enum_BP_Person_Typ.Nur_Person Then Return 0
            If PartnerTyp(partnernr) = ENUM_Partnertyp.BP And i = Enum_BP_Person_Typ.Nur_Person Then Return 3
            If PartnerTyp(partnernr) = ENUM_Partnertyp.Person And i = Enum_BP_Person_Typ.Nur_BP Then Return 4


        End Function

#End Region

#Region "elektr Kundendossier"
        Public Function Is_Elektr_Kundendossier_Berechtigt(ByVal partnernr As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.[sp_elektr_dossier_berechtigt]"
            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("@partnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Try
                    scmCmdToExecute.Connection.Open()
                Catch
                End Try
                scmCmdToExecute.ExecuteNonQuery()
                If scmCmdToExecute.Parameters("@berechtigt").Value = 1 Then Return True Else Return False
            Catch ex As Exception
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try

        End Function

        Public Function Dokart_Folder_Berechtigt(Optional Foldernr As Integer = 0) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.[sp_dokart_folder_berechtigt]"
            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("@foldernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Foldernr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Try
                    scmCmdToExecute.Connection.Open()
                Catch
                End Try
                scmCmdToExecute.ExecuteNonQuery()
                If scmCmdToExecute.Parameters("@berechtigt").Value = 1 Then Return True Else Return False
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try

        End Function

        Public Function RemoveXdata(ByVal Dokumenttypnr As Integer) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.[sp_xdata_remove]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumenttypnr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@Resultat", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Try
                    scmCmdToExecute.Connection.Open()
                Catch
                End Try
                scmCmdToExecute.ExecuteNonQuery()
                If scmCmdToExecute.Parameters("@Resultat").Value = 1 Then Return True Else Return False
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try

        End Function
#End Region

#Region "Office2016"
        Public Sub Get_Office2016_Params()
            Globals.UseOffice2016 = False
            Globals.Office2016Debug = False
            Globals.Office2010WatchFIles.Rows.Clear()
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "select * from Office_2016_WindowNames"
            scmCmdToExecute.CommandType = CommandType.Text
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                sdaAdapter.Fill(Globals.Office2010WatchFIles)
                Globals.UseOffice2016 = True
            Catch ex As Exception
                Globals.UseOffice2016 = False
            Finally
                If Globals.Office2010WatchFIles.Rows.Count < 1 Then Globals.UseOffice2016 = False
                For Each r As DataRow In Globals.Office2010WatchFIles.Rows
                    If r.Item(0) = 100 Then
                        If r.Item(2) = "True" Then Globals.Office2016Debug = True

                    End If
                    If r.Item(0) = 110 Then
                        If r.Item(2) = "True" Then Globals.UseOffice2016 = True Else Globals.UseOffice2016 = False
                    End If
                    If r.Item(0) = 120 Then
                        Try
                            Globals.PDFWaitTime = r.Item(2)
                        Catch
                            Globals.PDFWaitTime = 6000
                        End Try
                    End If
                    If r.Item(0) = 130 Then Globals.wait_after_searchlist = r.Item(2)
                    If r.Item(0) = 140 Then Globals.try_count_search = r.Item(2)
                    If r.Item(0) = 150 Then Globals.force_not_found = UCase(r.Item(2)) = "TRUE"
                    If r.Item(0) = 160 Then Globals.force_not_found_count = UCase(r.Item(2))
                    If r.Item(0) = 170 Then Globals.force_watch_message = UCase(r.Item(2)) = "TRUE"
                    If r.Item(0) = 180 Then Globals.UseOlibFile = UCase(r.Item(2)) = "TRUE"
                    If r.Item(0) = 190 Then Globals.ProblemDokumentZwingend = UCase(r.Item(2)) = "TRUE"
                    If r.Item(0) = 200 Then Globals.Wordlib_Sleep = r.Item(2)
                    If r.Item(0) = 210 Then Globals.Wordlib_Sleep_Savedata = r.Item(2)
                    If r.Item(0) = 220 Then Globals.Check_Doc_Timer = r.Item(2)
                Next
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Sub

        Public Function office2010_name(ByVal fn As String) As String
            Dim ext As String = System.IO.Path.GetExtension(fn)
            Dim fn1 As String = System.IO.Path.GetDirectoryName(fn) + "\2016\" + System.IO.Path.GetFileNameWithoutExtension(fn)
            fn1 = fn1 + "" + ext
            ' MsgBox(fn1)
            If File.Exists(fn1) Then
                Return fn1
            Else
                Return ""
            End If
        End Function
#End Region

#Region "Release 5.4"
        Public Function Check_SourceApplication(ByVal SourceApplication As String) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.[sp_check_Avaloq_SourceApplication]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@SourceApplication", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, SourceApplication))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@Resultat", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Try
                    scmCmdToExecute.Connection.Open()
                Catch ex As Exception
                    'MsgBox(ex.Message)
                End Try
                scmCmdToExecute.ExecuteNonQuery()
                If scmCmdToExecute.Parameters("@Resultat").Value = 1 Then Return True Else Return False
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally

                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        End Function

        Public Function Insert_Notiz(ByVal dokumentid As String, ByVal Notiz As String)
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.[sp_insert_notiz]"
            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, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@notiz", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notiz))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Try
                    scmCmdToExecute.Connection.Open()
                Catch ex As Exception
                    'MsgBox(ex.Message)
                End Try
                scmCmdToExecute.ExecuteNonQuery()

            Catch ex As Exception
                MsgBox(ex.Message)
            Finally

                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        End Function

        Public Function Check_Insert_Notiz(ByVal dokumentid As String, ByVal Notiz As String) As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.[sp_insert_notiz]"
            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, 1))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@notiz", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Try
                    scmCmdToExecute.Connection.Open()
                Catch ex As Exception
                    'MsgBox(ex.Message)
                End Try
                scmCmdToExecute.ExecuteNonQuery()
                If scmCmdToExecute.Parameters("@Result").Value = 1 Then Return True Else Return False
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally

                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        End Function

        Public Function Delete_Registry_for_current_user() As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.[sp_del_registry]"
            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, 1))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Try
                    scmCmdToExecute.Connection.Open()
                Catch ex As Exception
                    'MsgBox(ex.Message)
                End Try
                scmCmdToExecute.ExecuteNonQuery()
                If scmCmdToExecute.Parameters("@Result").Value = 1 Then Return True Else Return False
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally

                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        End Function

        Public Function Delete_Registry()
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

            scmCmdToExecute.CommandText = "dbo.[sp_del_registry]"
            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, 2))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Try
                    scmCmdToExecute.Connection.Open()
                Catch ex As Exception
                    'MsgBox(ex.Message)
                End Try
                sdaAdapter.Fill(dtToReturn)
                For Each r As DataRow In dtToReturn.Rows
                    Try
                        My.Computer.Registry.CurrentUser.DeleteSubKeyTree(r("Registrykey"))
                    Catch
                    End Try

                Next
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                dtToReturn.Dispose()
                sdaAdapter.Dispose()
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try

        End Function


#End Region

#Region "Relese 5.5"
        Public Function Check_Connectionchange(ByVal tgnummer As String) As String
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim i As Integer
            Dim connopen As Boolean = False
            scmCmdToExecute.CommandText = "dbo.[sp_check_Connectionchange]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@tgnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, tgnummer))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@Resultat", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitfrage", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@frage", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                Try
                    scmCmdToExecute.Connection.Open()
                Catch ex As Exception
                    'MsgBox(ex.Message)
                End Try
                scmCmdToExecute.ExecuteNonQuery()
                If scmCmdToExecute.Parameters("@Resultat").Value <> "" Then
                    If scmCmdToExecute.Parameters("@mitfrage").Value = 1 Then
                        If MsgBox(scmCmdToExecute.Parameters("@Frage").Value, vbYesNo + vbQuestion) = vbYes Then
                            Return scmCmdToExecute.Parameters("@Resultat").Value
                        Else
                            Return ""
                        End If
                    End If
                    End If
                Return scmCmdToExecute.Parameters("@Resultat").Value
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally

                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        End Function

#End Region

#Region "Release 5.6"
        Public Function Check_Dokumenterstellung(ByVal Funktion As Integer, ByVal dokumenttypnr As Integer, ByVal partner As Integer) As Integer
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.sp_dokument_Erstrellung_Pruefung"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            conn.OpenConnection()
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@funktion", SqlDbType.Int, 42, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Funktion))

                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.Int, 42, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partner))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@retvalue", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@retmessage", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@rettitle", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.ExecuteNonQuery()

                Dim Titel As String = scmCmdToExecute.Parameters("@rettitle").Value
                Select Case scmCmdToExecute.Parameters("@retvalue").Value
                    Case 1 'Dialog ok - Return 1: Close Dokumenterstellungsdialog

                        MsgBox(scmCmdToExecute.Parameters("@retmessage").Value, vbOKOnly + vbInformation)
                        Return 1
                    Case 2 'Dialog ok - Return 2: Dokumenterstellungsdialog offen halten
                        MsgBox(scmCmdToExecute.Parameters("@retmessage").Value, vbOKOnly + vbInformation)
                        Return 2
                    Case 3 'Dialog ja, nein - bei ja Dokumenterstellungsdialog offen halten
                        If MsgBox(scmCmdToExecute.Parameters("@retmessage").Value, Title:=Titel, Buttons:=vbYesNo + vbQuestion) = vbYes Then
                            Return 1
                        Else
                            Return 2
                        End If
                    Case Else
                        Return 0
                End Select

            Catch ex As Exception
                Dim a As Integer
                a = 1
                'Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                conn.CloseConnection(True)
            End Try
            Return 0

        End Function

        Public Function EDOKA2Mail_Get_Path_To_Exec() As String
            Dim connection As New SqlConnection()
            Dim da As New SqlDataAdapter("Select  beschreibung from pluginparameter where pluginparamnr=2", connection)
            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
            Dim ds As New DataSet()
            Try
                connection.ConnectionString = Globals.sConnectionString
                connection.Open()
                da.Fill(ds, "params")
                Return ds.Tables(0).Rows(0).Item(0)
            Catch ex As Exception
                Return ""
            End Try
            CB = Nothing
            ds = Nothing
            da = Nothing
            connection.Close()
            connection = Nothing
            Return True
        End Function

        Public Function BC_Uebersteuerung(dokumenttypnr As Integer) As Boolean
            Dim connection As New SqlConnection()
            Dim da As New SqlDataAdapter("Select count(*) from dokumenterstellung_bc_normal_uebersteuerung where  dokumenttypnr=" + dokumenttypnr.ToString, connection)
            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
            Dim ds As New DataSet()
            Try
                connection.ConnectionString = Globals.sConnectionString
                connection.Open()
                da.Fill(ds, "params")
                If ds.Tables(0).Rows(0).Item(0) > 0 Then Return True Else Return False
            Catch ex As Exception
                Return False
            Finally
                CB = Nothing
                ds = Nothing
                da = Nothing
                connection.Close()
                connection = Nothing
            End Try
        End Function
#End Region
    End Class

End Namespace