MS Button und IDB Logik

app/DD_PM_WINDREAM/clsPatterns.vb

@@ -193,7 +193,13 @@ Public Class clsPatterns
             While ContainsPattern(result, PATTERN_IDBA)
 
                 Dim indexName As String = GetNextPattern(result, PATTERN_IDBA).Value
-                Dim oIDBValue = IDBData.GetVariableValue(indexName)
+                Dim oIDBValue
+                If indexName = "ObjectID" Then
+                    oIDBValue = CURRENT_DOC_ID
+                Else
+                    oIDBValue = IDBData.GetVariableValue(indexName)
+                End If
+
                 If IsNothing(oIDBValue) And oTryCounter = MAX_TRY_COUNT Then
                     LOGGER.Warn("Exit from ReplaceWindreamIndicies as oWMValue is still nothing and oTryCounter is 500!")
                     Throw New Exception("Max tries in ReplaceWindreamIndicies exceeded.")