MS Initial without WM

app/DD_PM_WINDREAM/ClassFinalizeDoc.vb

@@ -1,5 +1,5 @@
 Public Class ClassFinalizeDoc
-    Public Shared Function Write_Final_Metadata(WMObject As WINDREAMLib.WMObject)
+    Public Shared Function WMWrite_Final_Metadata(WMObject As Object) 'WINDREAMLib.WMObject)
         Try
             Dim _error As Boolean = False
             If CURRENT_DT_FINAL_INDEXING Is Nothing Then
@@ -14,32 +14,10 @@
                     Dim INDEXNAME = dr.Item("INDEXNAME").ToString
                     If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
                         LOGGER.Debug("indexing with dynamic sql...")
-                        'Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
-                        '' Regulären Ausdruck zum Auslesen der Indexe definieren
-                        'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
-                        '' 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(SQL_COMMAND)
-                        ''####
-                        '' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
-                        'For Each element As System.Text.RegularExpressions.Match In elemente
-                        '    Try
-                        '        If LogErrorsOnly = False Then LOGGER.Info(" element in RegeX: " & element.Value)
-                        '        Dim WDINDEXNAME = element.Value.Substring(2, element.Value.Length - 3)
-                        '        Dim wertWD = WMObject.GetVariableValue(WDINDEXNAME)
-                        '        If Not IsNothing(wertWD) Then
-                        '            SQL_COMMAND = SQL_COMMAND.ToString.Replace(element.Value, wertWD)
-                        '        Else
-                        '            LOGGER.Info(">>Attention: indexvalue is invalid")
-                        '        End If
-                        '    Catch ex As Exception
-                        '        LOGGER.Info("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message)
-                        '    End Try
-                        'Next
+
                         Dim sql_Statement = clsPatterns.ReplaceUserValues(dr.Item("SQL_COMMAND"), USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
                         sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
-                        sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject)
+
 
                         LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)
                         Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, True)
@@ -65,7 +43,7 @@
                     ReDim Preserve result(0)
                     result(0) = value
 
-                    Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME)
+                    Dim oIndexType = "" 'WINDREAM.GetTypeOfIndex(INDEXNAME)
                     LOGGER.Debug($"oIndexType {oIndexType.ToString}")
                     If oIndexType > 4000 And oIndexType < 5000 Then
                         'Hier muss nun separat als Vektorfeld indexiert werden
@@ -79,7 +57,7 @@
                         End If
                     Else
                         LOGGER.Debug("now indexing..")
-                        If Indexiere_File(INDEXNAME, result, WMObject) = True Then
+                        If WMIndexiere_File(INDEXNAME, result, WMObject) = True Then
                             LOGGER.Debug("FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT")
                             LOGGER.Debug("")
                             'Nun das Logging
@@ -112,7 +90,7 @@
         End Try
     End Function
 
-    Private Shared Function Indexiere_File(idxxname As String, idxvalue As Object, WMObject As WINDREAMLib.WMObject)
+    Private Shared Function WMIndexiere_File(idxxname As String, idxvalue As Object, WMObject As Object) 'WINDREAMLib.WMObject)
         Dim File_indexiert As Boolean = False
 
         ' Try
@@ -141,7 +119,7 @@
             End If
             'Dim _windreamPM As New ClassPMWindream
             'Jetzt das eigentliche Indexieren der Datei
-            File_indexiert = WINDREAM.RunIndexing(WMObject, arrIndex, arrValue)
+            File_indexiert = "ToDo IDB" ' WINDREAM.RunIndexing(WMObject, arrIndex, arrValue)
 
             Return File_indexiert
         End If
@@ -151,7 +129,7 @@
         '    Return Err()
         'End Try
     End Function
-    Private Shared Function Indexiere_VektorfeldPM(input As String, NameVectorfield As String, WMObject As WINDREAMLib.WMObject)
+    Private Shared Function Indexiere_VektorfeldPM(input As String, NameVectorfield As String, WMObject As Object) ' WINDREAMLib.WMObject)
 
         Dim _success As Boolean = True
         Dim Anzahl As Integer = 0
@@ -185,7 +163,7 @@
 
         If myInputArr.Length > 0 Then
             'Jetzt die Datei indexieren
-            If Indexiere_File(NameVectorfield, myInputArr, WMObject) = False Then
+            If WMIndexiere_File(NameVectorfield, myInputArr, WMObject) = False Then
                 _success = False
                 'errmessage = "Fehler beim Indexieren Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message
             End If