From 7b7b17b657495dd4f8f4a65bb53766d56eaacf99 Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Fri, 9 Dec 2022 13:30:44 +0100
Subject: [PATCH] MS Push Windream

---
 Windream/Windream.vb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Windream/Windream.vb b/Windream/Windream.vb
index bb6de4bf..b51de9ed 100644
--- a/Windream/Windream.vb
+++ b/Windream/Windream.vb
@@ -704,7 +704,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
         Dim oExtension As String = Path.GetExtension(FilenameSource)
 
@@ -776,6 +777,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()