AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of http://172.24.11.74:90/scm/git/ProcessManagerClient

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-10-15 17:02:48 +02:00
commit 0ccd050d4c
10 changed files with 120 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@ -129,9 +129,9 @@
ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString
End If
Dim _windreamPM As New ClassPMWindream
'Dim _windreamPM As New ClassPMWindream
'Jetzt das eigentliche Indexieren der Datei
File_indexiert = _windreamPM.RunIndexing(CURRENT_WMFILE, arrIndex, arrValue)
File_indexiert = WINDREAM.RunIndexing(CURRENT_WMFILE, arrIndex, arrValue)
Return File_indexiert
End If

52
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@ -62,33 +62,33 @@ Public Class ClassPMWindream
End Function
Public Function GetValuesfromAuswahlliste(ByVal listname As String)
Try
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, listname)
Dim vType = oAttribute.getVariableValue("vItems")
Return vType
'Dim oChoiceList = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityChoiceList, listname)
'If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
' Dim Values = oChoiceList
' Values = oChoiceList.GetVariableValue("vItems")
' Dim anz As Integer = 0
'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, listname)
'Dim vType = oAttribute.getVariableValue("vItems")
'Return vType
Dim oChoiceList = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityChoiceList, listname)
If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
Dim Values = oChoiceList
Values = oChoiceList.GetVariableValue("vItems")
Dim anz As Integer = 0
' For Each CLItem In Values
' If oChoiceList.aName IsNot Nothing Then
' anz += 1
' End If
' Next
' Dim strListe(anz - 1)
' Dim zahl As Integer = 0
' For Each CLItem In Values
' If oChoiceList.aName IsNot Nothing Then
' strListe(zahl) = CLItem
' zahl += 1
' End If
' Next
' Return strListe
'Else
' MsgBox("Auswahlliste: " & listname & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
' Return Nothing
'End If
For Each CLItem In Values
If oChoiceList.aName IsNot Nothing Then
anz += 1
End If
Next
Dim strListe(anz - 1)
Dim zahl As Integer = 0
For Each CLItem In Values
If oChoiceList.aName IsNot Nothing Then
strListe(zahl) = CLItem
zahl += 1
End If
Next
Return strListe
Else
MsgBox("Auswahlliste: " & listname & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
Return Nothing
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")

24
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@ -131,7 +131,13 @@ Public Class ClassWindream_allgemein
End Function
Public Function Start_WMCC_andCo()
Try
If WMSESSION_STARTSTOP_STARTUP = True Then
' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T
INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID
WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If WMSESSION_STARTSTOP_STARTUP = True And userExistsInServerUserGroup Is Nothing Then
ClassLogger.Add(">> WINDREAM-Start on ApplicationStart is active!", False)
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
@ -148,13 +154,19 @@ Public Class ClassWindream_allgemein
End Function
Public Function Stop_WMCC_andCo()
Try
If WMSESSION_STARTSTOP_STARTUP = True Then
' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T
INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID
WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If WMSESSION_STARTSTOP_STARTUP = True And userExistsInServerUserGroup Is Nothing Then
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")
owindreamControlCenter.StartVFSService(0)
owindreamIndexService.Shutdown()
owindreamControlCenter.ExitCC(0)
End If
owindreamControlCenter.StartVFSService(0)
owindreamIndexService.Shutdown()
owindreamControlCenter.ExitCC(0)
End If
Catch ex As Exception
ClassLogger.Add("Error while Stopping WMCC and IndexService: " & ex.Message, True)
End Try

2
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -63,4 +63,6 @@ Module ModuleRuntimeVariables
Public CURRENT_CONTROL_ID As Integer
Public errormessage As String
Public WINDREAM As ClassPMWindream
End Module

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.5.0")>
<Assembly: AssemblyVersion("1.9.5.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

22
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -6,7 +6,7 @@ Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Public Class frmAdministration
Private _windreamPM As ClassPMWindream
'Private _windreamPM As ClassPMWindream
Private email As New ClassEmail
Public profile_guid As Integer = 0
Dim formloaded As Boolean
@ -59,9 +59,9 @@ Public Class frmAdministration
Try
' Windream instanziieren
_windreamPM = New ClassPMWindream()
'_windreamPM = New ClassPMWindream()
'Windream initialisieren (Connection, Session, ... aufbauen)
_windreamPM.Create_Session()
'_windreamPM.Create_Session()
Catch ex As Exception
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
@ -70,11 +70,11 @@ Public Class frmAdministration
Try
If cmbObjekttypen.Text <> String.Empty Then
Windream_Indicies = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
Windream_Indicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
Windream_Indicies_Types = New List(Of Integer)
For Each i In Windream_Indicies
Dim type = _windreamPM.GetTypeOfIndex(i)
Dim type = WINDREAM.GetTypeOfIndex(i)
Windream_Indicies_Types.Add(type)
Next
End If
@ -87,13 +87,13 @@ Public Class frmAdministration
Try
Me.PM_VEKTOR_INDEXComboBox.Items.Clear()
Me.cmbLOGIndex.Items.Clear()
Dim indexe = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text)
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
Me.PM_VEKTOR_INDEXComboBox.Items.Add("")
Me.cmbLOGIndex.Items.Add("")
If indexe IsNot Nothing Then
For Each index As String In indexe
Dim _vektorString As Boolean = False
Select Case _windreamPM.GetTypeOfIndex(index)
Select Case WINDREAM.GetTypeOfIndex(index)
Case 4097
_vektorString = True
Case 36865
@ -152,7 +152,7 @@ Public Class frmAdministration
Private Sub ObjekttypenEintragen()
Me.cmbObjekttypen.Items.Clear()
Try
Dim oDokumentTypen As WINDREAMLib.WMObjects = Me._windreamPM.GetObjecttypesAsObjects()
Dim oDokumentTypen As WINDREAMLib.WMObjects = WINDREAM.GetObjecttypesAsObjects()
If oDokumentTypen Is Nothing Then Exit Sub
For Each aType In oDokumentTypen
Me.cmbObjekttypen.Items.Add(aType.aName)
@ -750,11 +750,11 @@ Public Class frmAdministration
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs)
Dim indexe = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text)
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
If indexe IsNot Nothing Then
For Each index As String In indexe
MsgBox(index & vbNewLine & _windreamPM.GetTypeOfIndex(index))
Select Case _windreamPM.GetTypeOfIndex(index)
MsgBox(index & vbNewLine & WINDREAM.GetTypeOfIndex(index))
Select Case WINDREAM.GetTypeOfIndex(index)
Case 4107 'Vektor Zahl
Case 4097

35
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -9,7 +9,7 @@ Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraCharts
Public Class frmMain
Private _windreamPM As ClassPMWindream
'Private _windreamPM As ClassPMWindream
Private UserLoggedin As Integer = 0
Private PROFILE_COUNT As Integer = 0
Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
@ -22,7 +22,7 @@ Public Class frmMain
Private GridCursorLocation As Point
Private GRID_LOAD_TYPE As String = "OVERVIEW"
Private GRID_INV_COL_REMOVED As Boolean = False
Private _windream As New ClassWindream_allgemein
'Private _windream As New ClassWindream_allgemein
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
@ -34,9 +34,12 @@ Public Class frmMain
Catch ex As Exception
ClassLogger.Add("Error in Save FormLayout: " & ex.Message)
End Try
If _windreamPM.oSession.aLoggedin = True Then
_windreamPM.Stop_WMCC_andCo()
If WINDREAM.oSession.aLoggedin = True Then
WINDREAM.Stop_WMCC_andCo()
End If
'If _windreamPM.oSession.aLoggedin = True Then
' _windreamPM.Stop_WMCC_andCo()
'End If
Try
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
@ -138,9 +141,12 @@ Public Class frmMain
Check_Timer_Notification()
Restore_Form_Position()
Try
_windreamPM = New ClassPMWindream
_windreamPM.Start_WMCC_andCo()
If _windreamPM.oSession.aLoggedin = False Then
WINDREAM = New ClassPMWindream
WINDREAM.Start_WMCC_andCo()
'_windreamPM = New ClassPMWindream
'_windreamPM.Start_WMCC_andCo()
If WINDREAM.oSession.aLoggedin = False Then
MsgBox("Login on windream was not possible. Please check the log." & vbNewLine & "Application will close now!", MsgBoxStyle.Critical)
Me.Close()
End If
@ -927,8 +933,13 @@ Public Class frmMain
End Sub
Private Function Init_windream()
Try
_windream = New ClassWindream_allgemein
_windream.Create_Session()
'_windream = New ClassWindream_allgemein
'_windream.Create_Session()
'_windreamPM = New ClassPMWindream()
'_windreamPM.Create_Session()
WINDREAM = New ClassPMWindream()
WINDREAM.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add(" >> windream initialized", False)
Return True
Catch ex As Exception
@ -1125,6 +1136,9 @@ Public Class frmMain
RestoreLayout()
Try
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
GridView_Docs.OptionsView.ShowGroupedColumns = False
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
@ -1144,9 +1158,6 @@ Public Class frmMain
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
GridView_Docs.OptionsView.ShowGroupedColumns = False
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
End Try

29
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -18,8 +18,8 @@ Public Class frmMassValidator
Private _dependingControl_in_action As Boolean = False
Private errmessage As String
Private _windream As New ClassWindream_allgemein
Private _windreamPM As New ClassPMWindream
'Private _windream As New ClassWindream_allgemein
'Private _windreamPM As New ClassPMWindream
Private _allgFunk As New ClassAllgemeineFunktionen
Dim viewer_string As String
Dim pdfxchange As Boolean = False
@ -28,8 +28,13 @@ Public Class frmMassValidator
Private Sub frmMassValidator_Load(sender As Object, e As EventArgs) Handles Me.Load
FORM_Shown = False
Try
_windream = New ClassWindream_allgemein
_windream.Create_Session()
' 05.10.18: Nutzung des Globalen Windream Objekts WINDREAM
'_windream = New ClassWindream_allgemein
'_windream.Create_Session()
'_windreamPM = New ClassPMWindream()
'_windreamPM.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add("windream initialized frmMassValidator", False)
Catch ex As Exception
@ -240,8 +245,8 @@ Public Class frmMassValidator
Else
If CURR_CHOICE_LIST <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & CURR_CHOICE_LIST, False)
Dim liste = _windream.GetValuesfromAuswahlliste(CURR_CHOICE_LIST)
If liste IsNot Nothing Then
Dim liste = WINDREAM.GetValuesfromAuswahlliste(CURR_CHOICE_LIST)
If liste IsNot Nothing Then
cmb.Items.Add("")
For Each index As String In liste
cmb.Items.Add(index)
@ -581,7 +586,7 @@ Public Class frmMassValidator
For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
Dim WMDOC As WMObject
Try
WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
WMDOC = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
Catch ex As Exception
ClassLogger.Add("error while creating WMObject in (textCheckIndex): " & ex.Message)
Exit For
@ -917,7 +922,7 @@ Public Class frmMassValidator
CURRENT_DOC_GUID = docrow.Item("DOC_GUID")
Dim WMDOC As WMObject
Try
WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
WMDOC = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
Catch ex As Exception
ClassLogger.Add("error while creating WMObject in (IndexVKTMultipleFiles): " & ex.Message)
Exit For
@ -1380,7 +1385,7 @@ Public Class frmMassValidator
For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
Dim WMDOC As WMObject
Try
WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
WMDOC = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
Catch ex As Exception
ClassLogger.Add("error while creating WMObject in (IndexMultipleFiles): " & ex.Message)
_allfine = False
@ -1412,7 +1417,7 @@ Public Class frmMassValidator
arrValue(0) = idxvalue(0).ToString
End If
'Jetzt das eigentliche Indexieren der Datei
If Me._windreamPM.RunIndexing(WMDOC, arrIndex, arrValue) = False Then
If WINDREAM.RunIndexing(WMDOC, arrIndex, arrValue) = False Then
_allfine = False
Exit For
End If
@ -1432,7 +1437,7 @@ Public Class frmMassValidator
For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
Dim WMDOC As WMObject
Try
WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
WMDOC = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
Catch ex As Exception
ClassLogger.Add("error while creating WMObject in (IndexVKTMultipleFiles): " & ex.Message)
_allfine = False
@ -1506,7 +1511,7 @@ Public Class frmMassValidator
arrValue(0) = idxvalue(0).ToString
End If
'Jetzt das eigentliche Indexieren der Datei
File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue)
File_indexiert = WINDREAM.RunIndexing(_dok, arrIndex, arrValue)
Return File_indexiert
End If

8
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@ -3,7 +3,7 @@ Imports Oracle.ManagedDataAccess.Client
Imports DD_LIB_Standards
Public Class frmSQL_DESIGNER
Private _windreamPM As ClassPMWindream
'Private _windreamPM As ClassPMWindream
Dim CurrentPosition As Integer = 0
Dim CurrentPlaceholders As New Placeholders()
@ -54,14 +54,14 @@ Public Class frmSQL_DESIGNER
Try
' Windream instanziieren
_windreamPM = New ClassPMWindream()
'_windreamPM = New ClassPMWindream()
'Windream initialisieren (Connection, Session, ... aufbauen)
_windreamPM.Create_Session()
'_windreamPM.Create_Session()
Catch ex As Exception
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
cmbIndexe.Items.Clear()
Dim indexe = _windreamPM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
Dim indexe = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
If indexe IsNot Nothing Then
For Each index As String In indexe
Me.cmbIndexe.Items.Add(index)

24
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -25,8 +25,8 @@ Public Class frmValidator
Dim WD_Search As String
Dim finalProfile As Boolean
Dim Move2Folder As String
Private _windreamPM As New ClassPMWindream
Private _windream As New ClassWindream_allgemein
'Private _windreamPM As New ClassPMWindream
'Private _windream As New ClassWindream_allgemein
Private allgFunk As New ClassAllgemeineFunktionen
Dim aktivesDokument As WMObject
'speichert die DocumentDaten
@ -264,8 +264,12 @@ Public Class frmValidator
End Sub
Private Function Init_windream()
Try
_windream = New ClassWindream_allgemein
_windream.Create_Session()
WINDREAM = New ClassPMWindream()
WINDREAM.Create_Session()
'_windreamPM = New ClassPMWindream()
'_windreamPM.Create_Session()
'_windream = New ClassWindream_allgemein
'_windream.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream initiiert", False)
Return True
Catch ex As Exception
@ -697,7 +701,8 @@ Public Class frmValidator
Dim AListe As String = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetChoiceListName(ControlID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & AListe, False)
If AListe Is Nothing = False Then
Dim liste = _windream.GetValuesfromAuswahlliste(AListe)
'Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe)
Dim liste = WINDREAM.GetValuesfromAuswahlliste(AListe)
If liste IsNot Nothing Then
cmb.Items.Add("")
For Each index As String In liste
@ -1331,7 +1336,8 @@ Public Class frmValidator
ClassLogger.Add(">> Validierung für Dokument '" & Document_Path & "' gestartet", False)
Try
aktivesDokument = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
'aktivesDokument = _windreamPM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
aktivesDokument = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
Catch ex As Exception
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName)
ClassLogger.Add("Fehler bei Erzeugen windream-Objekt in (LoadNextDokument): " & ex.Message)
@ -1340,7 +1346,8 @@ Public Class frmValidator
'Nochmaliger Versuch windream zu initialiseren
If Init_windream() = True Then
Try
aktivesDokument = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
'aktivesDokument = _windreamPM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
aktivesDokument = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
Catch ex1 As Exception
ClassLogger.Add("Fehler bei 2. Versuch windream-Objekt: " & ex1.Message)
errmessage = "1-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!"
@ -2812,7 +2819,8 @@ Public Class frmValidator
arrValue(0) = idxvalue(0).ToString
End If
'Jetzt das eigentliche Indexieren der Datei
File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue)
'File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue)
File_indexiert = WINDREAM.RunIndexing(_dok, arrIndex, arrValue)
If File_indexiert = False Then
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler beim Indexieren der Datei: " & _dok.aName & " - ERROR: " & idxerr_message, Environment.UserName)
End If