Imports System.IO
Imports System.Security.AccessControl
Imports System.Security.Principal

Public Class frmWD_Index_Dokart
    Dim droptype As String
    Dim aktFiledropped As String
    Dim MULTIFILES As Integer = 0
    Private Sub FillToolStripButton_Click(sender As Object, e As EventArgs)
        Try
            Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, CURRENT_FORMVIEW_ID)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
    Function WORK_FILE(Filepath As String, Targetpath As String, vDokart_ID As Integer, vDokart As String, multiindex As Boolean)
        Try
            CURRENT_DOKARTSTRING = vDokart
            Dim err As Boolean = False
            If Name_Generieren() = False Then
                Return False
            End If

            Dim streamresult = ClassWindream.Stream_File(Filepath, Targetpath)
            'Dim type = streamresult.GetType
            If streamresult = True Then
                Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & vDokart_ID
                Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
                Dim indexierung_erfolgreich As Boolean = False
                If dt Is Nothing = False Then
                    If dt.Rows.Count > 0 Then
                        Dim Count As Integer = 0
                        For Each row As DataRow In dt.Rows
                            Dim indexname = row.Item("INDEXNAME").ToString
                            Dim idxvalue = row.Item("VALUE")
                            If idxvalue.ToString.StartsWith("@") Then
                                Select Case idxvalue.ToString.ToUpper
                                    Case "@RECORD-ID"
                                        idxvalue = idxvalue.ToString.Replace("@Record-ID", CURRENT_RECORD_ID)
                                    Case "@DOKART"
                                        idxvalue = idxvalue.ToString.Replace("@Dokart", vDokart)
                                End Select
                            End If
                            If LogErrorsOnly = False Then ClassLogger.Add(" - Indexvalue: " & idxvalue.ToString, False)
                            Count += 1
                            indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
                            If indexierung_erfolgreich = False Then
                                MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical)
                                err = True
                                Exit For
                            End If
                            'ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String
                        Next
                        If err = True Then
                            Return False
                        End If
                        'den Entity-Key auslesen
                        sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & ClassWindream._WDObjekttyp & "')"
                        dt = ClassDatabase.Return_Datatable(sql)
                        If Not dt Is Nothing Then
                            If dt.Rows.Count = 1 Then
                                Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
                                Dim idxvalue = CURRENT_FORM_ID
                                If LogErrorsOnly = False Then ClassLogger.Add(" - Entity-ID: " & idxvalue.ToString, False)
                                indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
                                If indexierung_erfolgreich = False Then
                                    err = True
                                    MsgBox("Unexpected Error in indexing file Entity - See log", MsgBoxStyle.Critical)
                                    Return False
                                End If
                                indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
                                idxvalue = CURRENT_PARENTID
                                If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False)
                                indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
                                If indexierung_erfolgreich = False Then
                                    err = True
                                    MsgBox("Unexpected Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)
                                    Return False
                                End If
                            End If
                        End If
                        If indexierung_erfolgreich = True Then
                            If multiindex = False Then MsgBox("Datei erfolgreich nach windream übertragen", MsgBoxStyle.Information, "Erfolgsmeldung")
                            ClassDatabase.Execute_Scalar("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID)
                            frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen")
                            'Die Originaldatei löschen
                            If droptype = "dragdrop file" And indexierung_erfolgreich = True Then
                                If chkdelete_origin.Checked = True Then
                                    'Die temporäre Datei löschen
                                    File.Delete(aktFiledropped)
                                End If
                            ElseIf droptype = "@ATTMNTEXTRACTED@" And indexierung_erfolgreich = True Then
                                'Die temporäre Datei löschen
                                File.Delete(aktFiledropped)
                            ElseIf droptype = "dragdrop message" And indexierung_erfolgreich = True Then
                                'Die temporäre Datei löschen
                                File.Delete(aktFiledropped)
                            End If
                            Return True
                        Else
                            MsgBox("Es gab ein Problem bei der Indexierung der Datei. Bitte prüfen sie das Log!", MsgBoxStyle.Exclamation, "Achtung:")
                            Return False
                        End If
                    End If
                End If
            End If
        Catch ex As Exception
            MsgBox("Unexpected error in Work-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try

    End Function

    Private Function Name_Generieren()
        Try
            Dim FILE_DELIMITER, VERSION_DELIMITER, sql_history_INSERT_INTO, sql_history_Index_Values, _WDOBJECTTYPE, _NewFileString As String
            Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where UPPER(NAME) = UPPER('Global-Indexer')"
            Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
            FILE_DELIMITER = DT1.Rows(0).Item("FILE_DELIMITER")
            VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER")

            Dim err As Boolean = False
            Dim folder_Created As Boolean = False
            Dim Zielordner As String
            Dim extension As String = Path.GetExtension(CURRENT_FILENAME)
            Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DOCTYPE_IDTextBox.Text)
            sql_history_INSERT_INTO = "INSERT INTO TBGI_HISTORY (FILENAME_ORIGINAL,FILENAME_NEW"
            sql_history_Index_Values = ""
            Dim AnzahlIndexe As Integer = 1
            _WDOBJECTTYPE = DT.Rows(0).Item("OBJEKTTYP")
            If folder_Created = False Then
                ' Den Zielordner erstellen
                Zielordner = DT.Rows(0).Item("ZIEL_PFAD")
                If Directory.Exists(Zielordner) = False Then
                    'Try to create the directory.
                    Directory.CreateDirectory(Zielordner)
                End If
                folder_Created = True
            End If
            '####
            ' Regulären Ausdruck zum Auslesen der Indexe definieren
            Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
            'schonmal den gesamten Pfad laden
            Dim DATEINAME As String = Zielordner & "\" & DT.Rows(0).Item("NAMENKONVENTION")

            ' einen Regulären Ausdruck laden
            Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
            ' die Vorkommen im SQL-String auslesen
            Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(DATEINAME)
            '####
            ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
            For Each element As System.Text.RegularExpressions.Match In elemente
                Select Case element.Value.Substring(2, 1).ToUpper
                    ''Manueller Indexwert
                    'Case "M"
                    '    If LogErrorsOnly = False Then ClassLogger.Add(" >>Manueller Index wird geprüft...", False)
                    '    Dim Indexname = element.Value.Substring(3, element.Value.Length - 4)
                    '    Dim value As String = GetManIndex_Value(element.Value.Substring(3, element.Value.Length - 4), "FILE")
                    '    If value <> String.Empty Then
                    '        DATEINAME = DATEINAME.Replace(element.Value, value)
                    '        _NewFileString = DATEINAME
                    '        sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
                    '        AnzahlIndexe += 1
                    '        sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
                    '    Else
                    '        Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & FW_DOCTYPE_IDTextBox.Text & " AND UPPER(NAME) = UPPER('" & Indexname & "')", True)
                    '        If optional_index = True Then
                    '            Dim result As MsgBoxResult
                    '            result = MessageBox.Show("Achtung der optionale Index ist leer, wird aber für die Benennung der Datei benutzt." & vbNewLine & "Wollen Sie stattdessen den Originaldateinamen verwenden?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                    '            If result = MsgBoxResult.Yes Then
                    '                DATEINAME = DATEINAME.Replace(element.Value, Path.GetFileNameWithoutExtension(CURRENT_FILENAME))
                    '                _NewFileString = DATEINAME
                    '                sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
                    '                AnzahlIndexe += 1
                    '                sql_history_Index_Values = sql_history_Index_Values & ", '" & Path.GetFileNameWithoutExtension(CURRENT_FILENAME) & "'"
                    '            Else
                    '                DATEINAME = DATEINAME.Replace(element.Value, value)
                    '                _NewFileString = DATEINAME
                    '                sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
                    '                AnzahlIndexe += 1
                    '                sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
                    '            End If

                    '        Else
                    '            ClassLogger.Add(" >> Der Indexvalue für Index '" & Indexname & "' ist String.Empty", False)
                    '            err = True
                    '        End If

                    '    End If
                    Case "A"
                        Dim APattern = element.Value.Substring(3, element.Value.Length - 4)
                        Dim value As String

                        Select Case APattern
                            Case "RECORD_ID"
                                value = CURRENT_RECORD_ID
                            Case "DOKART"
                                value = CURRENT_DOKARTSTRING
                        End Select

                        If value <> String.Empty Then
                            DATEINAME = DATEINAME.Replace(element.Value, value)
                            _NewFileString = DATEINAME
                            sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
                            AnzahlIndexe += 1
                            sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
                        Else
                            err = True
                        End If
                    Case "V"
                        Dim datetemp As String
                        Dim _Month As String = My.Computer.Clock.LocalTime.Month
                        If _Month.Length = 1 Then
                            _Month = "0" & _Month
                        End If
                        Dim _day As String = My.Computer.Clock.LocalTime.Day
                        If _day.Length = 1 Then
                            _day = "0" & _day
                        End If
                        Dim type = element.Value '.ToUpper.Replace("[v%", "")
                        type = type.Replace("[%v", "")
                        type = type.Replace("]", "")
                        Select Case type
                            Case "YY_MM_DD"
                                datetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & "_" & _Month & "_" & _day
                            Case "YYYY_MM_DD"
                                datetemp = My.Computer.Clock.LocalTime.Year & "_" & _Month & "_" & _day
                            Case "DD_MM_YY"
                                datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
                            Case "DD_MM_YYYY"
                                datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year
                            Case "OFilename"
                                DATEINAME = DATEINAME.Replace(element.Value, Path.GetFileNameWithoutExtension(CURRENT_FILENAME))
                        End Select
                        If datetemp <> "" Then
                            DATEINAME = DATEINAME.Replace(element.Value, datetemp)
                        End If
                        _NewFileString = DATEINAME
                    Case Else
                        ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper)
                        MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Fehler bei Name generieren:")
                End Select
            Next
            Try
                Dim version As Integer = 1
                Dim Stammname As String = DATEINAME.Replace(VERSION_DELIMITER, "")
                Dim _neuername As String = DATEINAME.Replace(VERSION_DELIMITER, "")
                'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "")
                'Überprüfen ob File existiert
                If File.Exists(_neuername & extension) = False Then
                    _NewFileString = _neuername
                Else
                    Do While File.Exists(_neuername & extension)
                        version = version + 1
                        _neuername = Stammname & VERSION_DELIMITER & version
                        _NewFileString = _neuername
                    Loop
                End If
            Catch ex As Exception
                ClassLogger.Add(" - Fehler bei Versionieren der Datei - Fehler: " & vbNewLine & ex.Message)
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Umbenennnen der Datei:")
                err = True
            End Try
            CURRENT_NEWFILENAME = _NewFileString & extension
            'False oder True zurückgeben
            If err = False Then
                Return True
            Else
                MsgBox("Fehler während der Dateinamengenerierung. Bitte überprüfen Sie das Log", MsgBoxStyle.Exclamation)
                Return False
            End If

        Catch ex As Exception
            ClassLogger.Add(" - Unvorhergesehener Fehler bei Name_Generieren - Fehler: " & vbNewLine & ex.Message)
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Fehler bei Name_Generieren:")
            Return False
        End Try

    End Function
    'Function FillIndexe_Autom(dokart_id As Integer)
    '    Try
    '        Me.VWDDINDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.VWDDINDEX_AUTOM, dokart_id)
    '        If DD_DMSDataSet.VWDDINDEX_AUTOM.Rows.Count > 0 Then
    '            ' MsgBox(DT.Rows.Count.ToString)
    '            For Each DR_AUTOINDEX As DataRow In DD_DMSDataSet.VWDDINDEX_AUTOM.Rows
    '                Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME")
    '                If LogErrorsOnly = False Then ClassLogger.Add(" >> Build Automatischer Index '" & indexname & "'", False)
    '                If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then
    '                    ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
    '                    Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
    '                    ' SQL-String für aktuellen INdex laden
    '                    Dim SqlString As String = DR_AUTOINDEX.Item("SQL_RESULT")
    '                    ' einen Regulären Ausdruck laden
    '                    Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
    '                    ' die Vorkommen im SQL-String auslesen
    '                    Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(SqlString)
    '                    ' alle Vorkommen der Indexe im SQL-String durchlaufen
    '                    For Each element As System.Text.RegularExpressions.Match In elemente
    '                        ' MsgBox(element.Value.ToUpper)
    '                        If LogErrorsOnly = False Then ClassLogger.Add(" >> Element: '" & element.Value & "'", False)
    '                        '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden)
    '                        'If Not element.Value.ToUpper = "[%SPALTE]" And Not element.Value.ToUpper = "[%VIEW]" Then
    '                        'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
    '                        Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
    '                        If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
    '                        'den Platzhalter im SQL-String durch den Wert ersetzen
    '                        Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO")
    '                        If manIndexwert <> "" Then
    '                            SqlString = SqlString.Replace(element.Value, manIndexwert)
    '                            If LogErrorsOnly = False Then ClassLogger.Add(" >> zusammengesetzter SQL-String: " & SqlString, False)
    '                        Else
    '                            ClassLogger.Add(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False)
    '                            Return False
    '                        End If
    '                    Next
    '                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Ausführen SQL....", False)
    '                    Dim automatischerValue As String = ""
    '                    automatischerValue = Get_AutomatischerIndex_SQL(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER"))
    '                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis SQL: '" & automatischerValue & "'", False)
    '                    If automatischerValue <> String.Empty Then
    '                        DR_AUTOINDEX.Item("Indexiert") = True
    '                        DR_AUTOINDEX.Item("Indexwert") = automatischerValue
    '                    Else
    '                        ClassLogger.Add(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False)
    '                        ClassLogger.Add(" - SqlString: " & SqlString, False)
    '                        Return False
    '                    End If
    '                Else
    '                    If Not IsDBNull(DR_AUTOINDEX.Item("VALUE")) Then
    '                        If DR_AUTOINDEX.Item("VALUE") <> "" Then
    '                            Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE")
    '                            'Indexierung mit WindowsVariable
    '                            If DEFAULTVALUE.StartsWith("$") Then
    '                                If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
    '                                Select Case DEFAULTVALUE.ToUpper
    '                                    Case "$filename_ext".ToUpper
    '                                        DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE)
    '                                    Case "$filename".ToUpper
    '                                        DEFAULTVALUE = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)
    '                                    Case "$FileCreateDate".ToUpper
    '                                        Dim FI As New FileInfo(CURRENT_WORKFILE)
    '                                        Dim CreationDate As Date = FI.CreationTime
    '                                        DEFAULTVALUE = CreationDate.ToShortDateString
    '                                    Case "$FileCreatedWho".ToUpper
    '                                        Dim fs As FileSecurity = File.GetAccessControl(CURRENT_WORKFILE)
    '                                        Dim sid As IdentityReference = fs.GetOwner(GetType(SecurityIdentifier))
    '                                        Dim ntaccount As IdentityReference = sid.Translate(GetType(NTAccount))
    '                                        Dim owner As String = ntaccount.ToString()
    '                                        DEFAULTVALUE = owner
    '                                    Case "$DateDDMMYYY".ToUpper
    '                                        DEFAULTVALUE = System.DateTime.Now.ToShortDateString
    '                                End Select
    '                                If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
    '                            Else
    '                                If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
    '                            End If
    '                            'Den Wert in der Zwischentabelle speichern
    '                            DR_AUTOINDEX.Item("Indexiert") = True
    '                            DR_AUTOINDEX.Item("Indexwert") = DEFAULTVALUE
    '                        End If
    '                    End If
    '                End If
    '            Next
    '            'MsgBox("Noch kein automatischer Index-SQL-String hinterlegt, dennoch wird das Dokument abgelegt!")
    '            Return True
    '        Else
    '            Return True
    '        End If
    '    Catch ex As System.Exception
    '        ClassLogger.Add(" - Fehler bei FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message)
    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei FillIndexe_Autom")
    '        Return False
    '    End Try

    'End Function

    Private Sub btnindex_Click(sender As Object, e As EventArgs) Handles btnindex.Click
        Try
            Me.Cursor = Cursors.WaitCursor
            SaveMySettingsValue("WD_IndexDeleteDocs", WD_IndexDeleteDocs)

            If cmbDokumentart.SelectedIndex <> -1 Then
                My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
                My.Settings.Save()
                ClassWindream._WDObjekttyp = Me.OBJECT_TYPETextBox.Text
                If chkMultiIndexer.Visible = True And chkMultiIndexer.Checked = True Then
                    'Die erste Datei indexieren
                    If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, True) = True Then
                        'Und nun die folgenden
                        Dim DTFiles2Work As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_FILEID & " AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')")
                        If Not DTFiles2Work Is Nothing Then
                            Dim err = False
                            For Each filerow As DataRow In DTFiles2Work.Rows
                                CURRENT_FILEID = filerow.Item("GUID")
                                CURRENT_FILENAME = filerow.Item("FILENAME2WORK")
                                Dim HandleType As String = filerow.Item("HANDLE_TYPE")
                                aktFiledropped = CURRENT_FILENAME
                                If HandleType = "@DROPFROMFSYSTEM@" Then
                                    droptype = "dragdrop file"
                                ElseIf HandleType = "@OUTLOOK_ATTMNT@" Then
                                    droptype = "dragdrop attachment"
                                ElseIf HandleType = "@OUTLOOKMESSAGE@" Then
                                    droptype = "dragdrop message"
                                End If
                                If WORK_FILE(CURRENT_FILENAME, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, True) = False Then
                                    err = True
                                    Exit For
                                End If
                            Next
                            Me.Cursor = Cursors.Default
                            If err = False Then
                                MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich nach windream übertragen!", MsgBoxStyle.Information, "Erfolgsmeldung:")
                                Me.Close()
                            End If
                        End If


                    End If
                Else
                    If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, False) = True Then Me.Close()
                End If
                Me.Cursor = Cursors.Default
            End If
        Catch ex As Exception
            MsgBox("Error in Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub cmbDokumentart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDokumentart.SelectedIndexChanged
        Try
            CURRENT_DOKARTID = 0
            If cmbDokumentart.SelectedIndex <> -1 Then
                CURRENT_DOKARTID = cmbDokumentart.SelectedValue
                Refresh_indices()

            End If
        Catch ex As Exception
            MsgBox("Error in cmbDokumentart SelectedIndex:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Refresh_indices()
        Try
            If CURRENT_DOKARTID > 0 Then
                Dim sql = "SELECT OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
                OBJECT_TYPETextBox.Text = ClassDatabase.Execute_Scalar(sql, True)
                DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
                sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID
                Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
                Dim Count As Integer = 0
                If dt.Rows.Count > 0 Then
                    lvwIndices.Items.Clear()
                    For Each row As DataRow In dt.Rows
                        lvwIndices.Items.Add(row.Item("INDEXNAME").ToString)
                        lvwIndices.Items(Count).SubItems.Add(row.Item("VALUE"))
                        Count += 1
                    Next
                End If
                'den Entity-Key auslesen
                sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECT_TYPETextBox.Text & "')"
                dt = ClassDatabase.Return_Datatable(sql)
                If Not dt Is Nothing Then
                    If dt.Rows.Count = 1 Then
                        lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString)
                        lvwIndices.Items(Count).SubItems.Add(CURRENT_FORM_ID)
                        lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString)
                        lvwIndices.Items(Count + 1).SubItems.Add(CURRENT_PARENTID)
                    End If
                End If
            End If
        Catch ex As Exception
            MsgBox("Error in Refresh Indices for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub frmWD_Index_Dokart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.Save()
    End Sub
    Private Sub frmWD_Index_Dokart_Load(sender As Object, e As EventArgs) Handles Me.Load
        Try
            Me.VWDDINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
            chkMultiIndexer.Checked = False
            ClassLogger.Add(">> frmWD_Index_Dokart_Load", False)
            chkdelete_origin.Checked = False
            chkdelete_origin.Visible = False
            CURRENT_FILENAME = ClassDatabase.Execute_Scalar("SELECT FILENAME2WORK FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID)
            Dim HandleType As String = ClassDatabase.Execute_Scalar("SELECT HANDLE_TYPE FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID)
            MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_FILEID & " AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')")
            If MULTIFILES > 0 Then
                chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
                chkMultiIndexer.Visible = True
            Else
                chkMultiIndexer.Visible = False
            End If
            aktFiledropped = CURRENT_FILENAME
            txtFilepath.Text = aktFiledropped
            If HandleType = "@DROPFROMFSYSTEM@" Then
                droptype = "dragdrop file"
                chkdelete_origin.Visible = True
                chkdelete_origin.Checked = WD_IndexDeleteDocs
            ElseIf HandleType = "@OUTLOOK_ATTMNT@" Then
                droptype = "dragdrop attachment"
                chkdelete_origin.Visible = True
                chkdelete_origin.Checked = WD_IndexDeleteDocs
            ElseIf HandleType = "@OUTLOOKMESSAGE@" Then
                droptype = "dragdrop message"
                chkdelete_origin.Visible = True
                chkdelete_origin.Checked = WD_IndexDeleteDocs
            End If
            TBPMO_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
            VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, CURRENT_FORMVIEW_ID)
            If DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
                cmbDokumentart.SelectedIndex = 0
            End If


            Refresh_indices()
        Catch ex As Exception
            MsgBox("Error in frmWD_Index_Dokart_Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub chkdelete_origin_CheckedChanged(sender As Object, e As EventArgs) Handles chkdelete_origin.CheckedChanged
        WD_IndexDeleteDocs = chkdelete_origin.Checked
        SaveMySettingsValue("WD_IndexDeleteDocs", WD_IndexDeleteDocs)
    End Sub

    Private Sub frmWD_Index_Dokart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        If My.Settings.WD_INDEXDOKART_SAVE <> String.Empty Then
            cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(My.Settings.WD_INDEXDOKART_SAVE)
        End If

    End Sub
End Class