MS AdhocWorkflow

app/DD_PM_WINDREAM/ClassPMWindream.vb

@@ -131,6 +131,21 @@ Public Class ClassPMWindream
                         Return False
                     End Try
 
+                    If oDocument.aObjectType.aName <> CURRENT_WMObjecttype Then
+                        ' ihr den entsprechenden Dokumenttyp zuweisen
+                        oDocument.aObjectType = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, CURRENT_WMObjecttype)
+                        ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
+                        LOGGER.Debug("Objekttyp '" & oDocument.aObjectType.aName & "' was changed to '" & CURRENT_WMObjecttype & "'.")
+                        Try
+                            oDocument.Save()
+                        Catch ex As Exception
+                            ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine
+                            ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden
+                            Return False
+                        End Try
+                    End If
+
+
                     Dim i As Integer = 0
                     Dim indexname As String