Merge branch 'master' of http://git.dd:3000/AppStd/Modules

Windream/Windream.vb

@@ -703,7 +703,8 @@ Public Class Windream
         End Try
     End Function
 
-    Public Function NewFileStream(ByVal FilenameSource As String, ByVal FilenameTarget As String) As Boolean
+    Public Function NewFileStream(ByVal FilenameSource As String, ByVal FilenameTarget As String, ByVal WMObjecttypeName As String) As Boolean
+
         NewDocumentID = 0
 
         If Not TestSessionLoggedIn() Then
@@ -775,6 +776,10 @@ Public Class Windream
             _logger.Debug("Closing Stream")
             oWMStream.Close()
             _logger.Debug("Saving new object")
+
+
+            oWMObject.aObjectType = GetObjectByName(WMObjecttypeName, WMEntityObjectType)
+
             oWMObject.Save()
             _logger.Debug("Unlocking new object")
             oWMObject.unlock()