From 5c1b1dbc674a026ecb126d410b7781d868c0a886 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Thu, 2 Jun 2016 15:42:01 +0200 Subject: [PATCH] MS_02062016_2 --- .../ClassControlBuilder.vb | 2 +- app/DD-Record-Organiser/ClassControlValues.vb | 16 ++++++- app/DD-Record-Organiser/ClassDatabase.vb | 5 +-- .../ClassImport_Windream.vb | 2 +- .../ModuleRuntimeVariables.vb | 3 +- .../frmChooseParentRecord.vb | 6 +-- .../frmConstructor_Main.vb | 44 ++++++++++--------- app/DD-Record-Organiser/frmForm_Input.vb | 4 +- app/DD-Record-Organiser/frmWD_EntityImport.vb | 4 +- app/DD-Record-Organiser/frmWD_Index_Dokart.vb | 2 +- 10 files changed, 53 insertions(+), 35 deletions(-) diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organiser/ClassControlBuilder.vb index 1eaa00a..7568d27 100644 --- a/app/DD-Record-Organiser/ClassControlBuilder.vb +++ b/app/DD-Record-Organiser/ClassControlBuilder.vb @@ -408,7 +408,7 @@ Public Class ClassControlBuilder Select row1.Item("VALUE")).ToList() - ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_ID, dependingControlId, dependingControl, values, CURRENT_FORM_ID) + ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_RECORD_ID, dependingControlId, dependingControl, values, CURRENT_FORM_ID) Case "Label" If dt.Rows.Count = 1 Then diff --git a/app/DD-Record-Organiser/ClassControlValues.vb b/app/DD-Record-Organiser/ClassControlValues.vb index 383ab54..e66df05 100644 --- a/app/DD-Record-Organiser/ClassControlValues.vb +++ b/app/DD-Record-Organiser/ClassControlValues.vb @@ -411,6 +411,20 @@ Public Class ClassControlValues Dim connID = row.Item("CONTROL_CONNID_1") Dim sqlcommand As String = row.Item("SQL") + If ParentRecordId = 0 And CURRENT_ACT_LEVEL > 1 Then + 'eigentlich sollte eine Parent_RecordID da sein + Try + Dim _SQL = String.Format("SELECT RECORD1_ID FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = {0}", RecordId) + Dim ParentRec = ClassDatabase.Execute_Scalar(_SQL) + If Not IsNothing(ParentRec) Then + If ParentRec > 0 Then + ParentRecordId = ParentRec + End If + End If + Catch ex As Exception + ClassLogger.Add("Unexpected Error in Getting Parent-Record cause PRecord was 0: " & ex.Message) + End Try + End If sqlcommand = ReplaceSqlCommandPlaceholders(sqlcommand, RecordId, ParentRecordId, entity_ID) @@ -710,7 +724,7 @@ Public Class ClassControlValues vorgabe = defaultValue.Replace("@FORM_ID", CURRENT_FORM_ID) vorgabe = vorgabe.Replace("@RECORD_ID", CURRENT_RECORD_ID) vorgabe = vorgabe.Replace("@RECORDID", CURRENT_RECORD_ID) - vorgabe = vorgabe.Replace("@PARENTRECORD_ID", CURRENT_PARENT_ID) + vorgabe = vorgabe.Replace("@PARENTRECORD_ID", CURRENT_PARENT_ENTITY_ID) defaultValue = ClassDatabase.Execute_Scalar(vorgabe.ToString, True) If IsNothing(vorgabe) Then textbox.Text = "" diff --git a/app/DD-Record-Organiser/ClassDatabase.vb b/app/DD-Record-Organiser/ClassDatabase.vb index b065528..b77d353 100644 --- a/app/DD-Record-Organiser/ClassDatabase.vb +++ b/app/DD-Record-Organiser/ClassDatabase.vb @@ -1,6 +1,5 @@ Imports Oracle.ManagedDataAccess.Client Imports System.Data.Odbc - Public Class ClassDatabase Private Shared connectionString As String @@ -145,7 +144,7 @@ Public Class ClassDatabase SQLcommand = SQLconnect.CreateCommand 'Update Last Created Record in Foo SQLcommand.CommandText = ExecuteCMD - + SQLcommand.ExecuteNonQuery() SQLcommand.Dispose() SQLconnect.Close() @@ -180,7 +179,7 @@ Public Class ClassDatabase MsgBox("No ConnectionID for Conn-ID: " & ConnID.ToString, MsgBoxStyle.Exclamation) Return Nothing End If - + Catch ex As Exception ClassLogger.Add("Error in Execute_non_Query_withConn: " & ex.Message, True) ClassLogger.Add("SQL: " & ExecuteCMD, False) diff --git a/app/DD-Record-Organiser/ClassImport_Windream.vb b/app/DD-Record-Organiser/ClassImport_Windream.vb index ccaa4b7..87a9187 100644 --- a/app/DD-Record-Organiser/ClassImport_Windream.vb +++ b/app/DD-Record-Organiser/ClassImport_Windream.vb @@ -65,7 +65,7 @@ Public Class ClassImport_Windream Return False End If indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString - idxvalue = CURRENT_PARENT_ID + idxvalue = CURRENT_PARENT_ENTITY_ID 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 diff --git a/app/DD-Record-Organiser/ModuleRuntimeVariables.vb b/app/DD-Record-Organiser/ModuleRuntimeVariables.vb index 3cd6e9c..1dd2120 100644 --- a/app/DD-Record-Organiser/ModuleRuntimeVariables.vb +++ b/app/DD-Record-Organiser/ModuleRuntimeVariables.vb @@ -6,8 +6,9 @@ ' Diese Werte müssen später zur Laufzeit geladen werden Public CURRENT_FORM_ID As Integer - Public CURRENT_PARENT_ID As Integer + Public CURRENT_PARENT_ENTITY_ID As Integer Public CURRENT_PARENT_RECORD_ID As Integer + Public CURRENT_ACT_LEVEL As Integer Public CURRENT_ENTITYSTRING As String = "" diff --git a/app/DD-Record-Organiser/frmChooseParentRecord.vb b/app/DD-Record-Organiser/frmChooseParentRecord.vb index 14edc5e..eb0e847 100644 --- a/app/DD-Record-Organiser/frmChooseParentRecord.vb +++ b/app/DD-Record-Organiser/frmChooseParentRecord.vb @@ -23,7 +23,7 @@ Public Class frmChooseParentRecord End Sub Sub HideColumns() Try - Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_PARENT_ID + Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_PARENT_ENTITY_ID Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = GridView.Columns @@ -103,7 +103,7 @@ Public Class frmChooseParentRecord End Sub Sub Save_GridLayout() Try - Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ID.ToString) + Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ENTITY_ID.ToString) Dim XMLPATH = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) GridView.SaveLayoutToXml(XMLPATH) Catch ex As Exception @@ -113,7 +113,7 @@ Public Class frmChooseParentRecord End Sub Sub Load_GridLayout() Try - Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ID.ToString) + Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ENTITY_ID.ToString) Dim XMLPATH = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) If File.Exists(XMLPATH) Then GridView.RestoreLayoutFromXml(XMLPATH) diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 206230f..831f5a2 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -125,7 +125,7 @@ Public Class frmConstructor_Main Private LOAD_DIRECT As Boolean = False Private IS_SINGLE_RECORD As Boolean = False Private RECORD_ID As Integer - Private PARENT_ID As Integer + Private PARENT_ENTITYID As Integer Private SQL_RIGHT_READ_AND_VIEW_ONLY As String = "" Private SQL_RIGHT_WINDREAM_FORBIDDEN As String = "" @@ -521,6 +521,7 @@ Public Class frmConstructor_Main 'Grid zurücksetzen Clear_Grid_View() ACT_EBENE = 0 + CURRENT_ACT_LEVEL = 0 ACT_EBENE_STRING = "" EBENE1_ENTITY = "" EBENE1_RECID = 0 @@ -800,7 +801,7 @@ Public Class frmConstructor_Main ' muss vor show selected record data kommen, ' sodass die datasource für die angehakten werte existiert (checked list box) CtrlBuilder.WatchRecordChanges = False - ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID) + ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID) CtrlBuilder.WatchRecordChanges = True Show_Selected_Record_Data(Grid_RecordID, False) Dim sw1 As New Stopwatch @@ -1084,14 +1085,16 @@ Public Class frmConstructor_Main Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode) ACT_EBENE = 2 - + CURRENT_ACT_LEVEL = 2 If parentNode IsNot Nothing Then Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode) If grandParentNode IsNot Nothing Then ACT_EBENE = 3 + CURRENT_ACT_LEVEL = 3 End If Else ACT_EBENE = 1 + CURRENT_ACT_LEVEL = 1 End If Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() @@ -1133,7 +1136,7 @@ Public Class frmConstructor_Main If childNodeLevel1.Text = "Allgemein" Then Console.WriteLine("Allgemein-Reiter") End If - Dim result As Integer = ReturnAmountofRecords(childNodeLevel1.Tag, PARENT_ID) + Dim result As Integer = ReturnAmountofRecords(childNodeLevel1.Tag) If result <> 99999999 Then Dim origtext As String = childNodeLevel1.Text If origtext.Contains(" (") Then @@ -1166,7 +1169,7 @@ Public Class frmConstructor_Main MsgBox("Error in Get_RecordCounts_Nodes:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try End Sub - Function ReturnAmountofRecords(EntityID As Integer, PARENT_ID As Integer) + Function ReturnAmountofRecords(EntityID As Integer) ' Statt eine Table zurückzugeben, können wir die anzahl der Zeilen auch in der Datenbank berechnen, ' dadurch wird die Abfrage um einiges schneller Dim SQL As String = "SELECT COUNT(*) FROM ( SELECT T.* FROM VWTEMP_PMO_FORM" & EntityID & " AS T,TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID ) x" @@ -1331,7 +1334,7 @@ Public Class frmConstructor_Main Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click 'Wenn es eine Parent_ID gibt aber kein PArent_Datensatz ausgewählt wurde muss dies nachgeholt werden - If PARENT_ID > 0 Then + If PARENT_ENTITYID > 0 Then If PARENT_SKIPPED = True And PARENT_RECORDID = 0 Then Dim msg = "Achtung es wurde noch kein Parent-Datensatz ausgewählt! Bitte wählen Sie einen Datensatz aus!" If USER_LANGUAGE <> "de-DE" Then @@ -1342,7 +1345,7 @@ Public Class frmConstructor_Main Dim sql - sql = "select * from VWTEMP_PMO_FORM" & PARENT_ID.ToString + sql = "select * from VWTEMP_PMO_FORM" & PARENT_ENTITYID.ToString CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity") frmChooseParentRecord.ShowDialog() If CURRENT_PARENT_RECORD_ID = 0 Then @@ -1371,7 +1374,7 @@ Public Class frmConstructor_Main tsButtonShowWorkflowTasks.Enabled = True tsButtonCancel.Visible = True - CURRENT_PARENT_ID = PARENT_ID + CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID ' Den Record anlegen, damit wir eine RECORD_ID bekommen ClassControlCommandsUI.CreateRecord(ENTITY_ID) ' Die RECORD_ID auslesen und setzen @@ -1379,13 +1382,13 @@ Public Class frmConstructor_Main CURRENT_RECORD_ID = NewRecordId RECORD_ID = NewRecordId SELECTED_RECORD_ID = NewRecordId - If PARENT_ID > 0 And PARENT_RECORDID > 0 Then + If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then If ClassControlCommandsUI.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then MsgBox("Unexpected Error in Connect Record - Please check the logfile and inform the admin!", MsgBoxStyle.Critical) End If End If - ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID) + ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ENTITY_ID, ENTITY_ID) ' Das StatusLabel aktualisieren Update_Record_Label(NewRecordId) @@ -1687,7 +1690,7 @@ Public Class frmConstructor_Main ' Abhängige Listen laden CtrlBuilder.WatchRecordChanges = False 'ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID) - ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID) + ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID) CtrlBuilder.WatchRecordChanges = True RECORD_ENABLED = True @@ -1886,8 +1889,8 @@ Public Class frmConstructor_Main Dim result1 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() Select form Where form.Item("FORM_ID") = ENTITY_ID).Single() - PARENT_ID = result1.Item("PARENT_ID") - CURRENT_PARENT_ID = PARENT_ID + PARENT_ENTITYID = result1.Item("PARENT_ID") + CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID 'Abhängig von der Entität die Selektierungs-Daten laden Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID) @@ -2189,7 +2192,7 @@ Public Class frmConstructor_Main 'Daten zu Record in jedem Fall laden 'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls) CtrlBuilder.WatchRecordChanges = False - ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID) + ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_RECORDID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID) CtrlBuilder.WatchRecordChanges = True ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden! RECORD_CHANGED = False @@ -2727,7 +2730,7 @@ Public Class frmConstructor_Main Case 0 ENTITY_RELOAD_AFT_CONTROL_LOAD = False CtrlBuilder.WatchRecordChanges = False - ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID) + ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_RECORDID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID) CtrlBuilder.WatchRecordChanges = True If windream_Docshow = True Then @@ -4148,7 +4151,7 @@ Public Class frmConstructor_Main Dim split() = Wert.Split(";") If IsNumeric(split(1)) Then CURRENT_FILEID = split(1) - CURRENT_PARENT_ID = PARENT_ID + CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID CURRENT_RECORD_ID = RECORD_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID frmWD_Index_Dokart.ShowDialog() @@ -4214,7 +4217,7 @@ Public Class frmConstructor_Main For Each Filerow As DataRow In DT.Rows 'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "") CURRENT_FILEID = Filerow.Item(0) - CURRENT_PARENT_ID = PARENT_ID + CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID CURRENT_RECORD_ID = RECORD_ID CURRENT_FORM_ID = ENTITY_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID @@ -4465,6 +4468,7 @@ Public Class frmConstructor_Main Private Sub ResetEbenenAuswahlToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ResetEbenenAuswahlToolStripMenuItem.Click ACT_EBENE = 0 + CURRENT_ACT_LEVEL = 0 ACT_EBENE_STRING = "" EBENE1_ENTITY = "" EBENE1_RECID = 0 @@ -4477,7 +4481,7 @@ Public Class frmConstructor_Main End Sub Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportEntitätToolStripMenuItem.Click - If PARENT_ID = 0 Then + If PARENT_ENTITYID = 0 Then Exit Sub End If CURRENT_ENTITYSTRING = _ENTITYSTRING @@ -4732,7 +4736,7 @@ Public Class frmConstructor_Main If Not IsNothing(recid) Then 'Die neue Record-ID setzen POS_RECORD_ID = recid - ClassControlCommandsUI.ConnectRecord(PARENT_ID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString) + ClassControlCommandsUI.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString) Else MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation) End If @@ -4868,7 +4872,7 @@ Public Class frmConstructor_Main Dim sql - sql = "select * from VWTEMP_PMO_FORM" & PARENT_ID.ToString + sql = "select * from VWTEMP_PMO_FORM" & PARENT_ENTITYID.ToString CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity") frmChooseParentRecord.ShowDialog() diff --git a/app/DD-Record-Organiser/frmForm_Input.vb b/app/DD-Record-Organiser/frmForm_Input.vb index 770a431..743eafd 100644 --- a/app/DD-Record-Organiser/frmForm_Input.vb +++ b/app/DD-Record-Organiser/frmForm_Input.vb @@ -414,8 +414,8 @@ Public Class frmFormInput RefreshRecordByID(SelectedRecordID) ClassControlValues.LoadControlValuesList(thisformid, pnlView.Controls) - ClassControlValues.LoadControlValuesListWithPlaceholders(thisformid, SelectedRecordID, CURRENT_PARENT_ID, pnlView.Controls, 99) - ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_PARENT_ID, thisformid, pnlView.Controls, 99) + ClassControlValues.LoadControlValuesListWithPlaceholders(thisformid, SelectedRecordID, CURRENT_PARENT_RECORD_ID, pnlView.Controls, 99) + ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_PARENT_RECORD_ID, thisformid, pnlView.Controls, 99) End If load_Documents() End If diff --git a/app/DD-Record-Organiser/frmWD_EntityImport.vb b/app/DD-Record-Organiser/frmWD_EntityImport.vb index 6e00713..acf5dc6 100644 --- a/app/DD-Record-Organiser/frmWD_EntityImport.vb +++ b/app/DD-Record-Organiser/frmWD_EntityImport.vb @@ -158,7 +158,7 @@ Public Class frmWD_EntityImport MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical) End If indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString - idxvalue = CURRENT_PARENT_ID + idxvalue = CURRENT_PARENT_ENTITY_ID 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 MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical) @@ -266,7 +266,7 @@ Public Class frmWD_EntityImport 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_PARENT_ID) + ListView1.Items(count + 1).SubItems.Add(CURRENT_PARENT_ENTITY_ID) End If End If End Sub diff --git a/app/DD-Record-Organiser/frmWD_Index_Dokart.vb b/app/DD-Record-Organiser/frmWD_Index_Dokart.vb index 9e7a048..bae4d18 100644 --- a/app/DD-Record-Organiser/frmWD_Index_Dokart.vb +++ b/app/DD-Record-Organiser/frmWD_Index_Dokart.vb @@ -72,7 +72,7 @@ Public Class frmWD_Index_Dokart End If 'den Parent-Key auslesen indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString - idxvalue = CURRENT_PARENT_ID + idxvalue = CURRENT_PARENT_ENTITY_ID 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