MS30.09
This commit is contained in:
SchreiberM
@@ -1,4 +1,6 @@
|
||||
Imports System.IO
|
||||
Imports System.Security.AccessControl
|
||||
Imports System.Security.Principal
|
||||
|
||||
Public Class frmWD_Index_Dokart
|
||||
Dim droptype As String
|
||||
@@ -13,7 +15,12 @@ Public Class frmWD_Index_Dokart
|
||||
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
|
||||
@@ -103,6 +110,270 @@ Public Class frmWD_Index_Dokart
|
||||
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
|
||||
@@ -149,82 +420,6 @@ Public Class frmWD_Index_Dokart
|
||||
If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, False) = True Then Me.Close()
|
||||
End If
|
||||
Me.Cursor = Cursors.Default
|
||||
'ClassWindream._WDObjekttyp = Me.OBJECT_TYPETextBox.Text
|
||||
'Dim streamresult = ClassWindream.Stream_File(Me.txtFilepath.Text, Me.PATHTextBox.Text)
|
||||
''Dim type = streamresult.GetType
|
||||
'If streamresult = True Then
|
||||
' Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & cmbDokumentart.SelectedValue
|
||||
' 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", cmbDokumentart.Text)
|
||||
' End Select
|
||||
' End If
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" - Indexvalue: " & idxvalue.ToString, False)
|
||||
' Count += 1
|
||||
' indexierung_erfolgreich = ClassWindream.DateiIndexieren(streamresult, indexname, idxvalue)
|
||||
' If indexierung_erfolgreich = False Then
|
||||
' MsgBox("Error in indexing file - See log", MsgBoxStyle.Critical)
|
||||
' Exit For
|
||||
' End If
|
||||
' 'ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String
|
||||
' Next
|
||||
' '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(streamresult, indexname, idxvalue)
|
||||
' If indexierung_erfolgreich = False Then
|
||||
' MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
|
||||
' 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(streamresult, indexname, idxvalue)
|
||||
' If indexierung_erfolgreich = False Then
|
||||
' MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' If indexierung_erfolgreich = True 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
|
||||
' Me.Close()
|
||||
' Else
|
||||
' MsgBox("Es gab ein Problem bei der Indexierung der Datei. Bitte prüfen sie das Log!", MsgBoxStyle.Exclamation, "Achtung:")
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
'Else
|
||||
' MsgBox("Unexpected Error in Stream2windream. Please check logfile!", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -232,7 +427,9 @@ Public Class frmWD_Index_Dokart
|
||||
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
|
||||
@@ -242,15 +439,18 @@ Public Class frmWD_Index_Dokart
|
||||
End Sub
|
||||
Sub Refresh_indices()
|
||||
Try
|
||||
If Not FW_DOCTYPE_IDTextBox.Text = String.Empty Then
|
||||
Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & FW_DOCTYPE_IDTextBox.Text
|
||||
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
|
||||
ListView1.Items.Clear()
|
||||
lvwIndices.Items.Clear()
|
||||
For Each row As DataRow In dt.Rows
|
||||
ListView1.Items.Add(row.Item("INDEXNAME").ToString)
|
||||
ListView1.Items(Count).SubItems.Add(row.Item("VALUE"))
|
||||
lvwIndices.Items.Add(row.Item("INDEXNAME").ToString)
|
||||
lvwIndices.Items(Count).SubItems.Add(row.Item("VALUE"))
|
||||
Count += 1
|
||||
Next
|
||||
End If
|
||||
@@ -259,10 +459,10 @@ Public Class frmWD_Index_Dokart
|
||||
dt = ClassDatabase.Return_Datatable(sql)
|
||||
If Not dt Is Nothing Then
|
||||
If dt.Rows.Count = 1 Then
|
||||
ListView1.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString)
|
||||
ListView1.Items(Count).SubItems.Add(CURRENT_FORM_ID)
|
||||
ListView1.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString)
|
||||
ListView1.Items(Count + 1).SubItems.Add(CURRENT_PARENTID)
|
||||
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
|
||||
@@ -276,6 +476,7 @@ Public Class frmWD_Index_Dokart
|
||||
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
|
||||
@@ -304,10 +505,14 @@ Public Class frmWD_Index_Dokart
|
||||
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)
|
||||
TBPMO_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
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)
|
||||
|
||||
Reference in New Issue
Block a user