This commit is contained in:
Jonathan Jenne 2022-12-09 13:31:08 +01:00
commit d44ab2f087

View File

@ -703,7 +703,8 @@ Public Class Windream
End Try End Try
End Function 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 NewDocumentID = 0
If Not TestSessionLoggedIn() Then If Not TestSessionLoggedIn() Then
@ -775,6 +776,10 @@ Public Class Windream
_logger.Debug("Closing Stream") _logger.Debug("Closing Stream")
oWMStream.Close() oWMStream.Close()
_logger.Debug("Saving new object") _logger.Debug("Saving new object")
oWMObject.aObjectType = GetObjectByName(WMObjecttypeName, WMEntityObjectType)
oWMObject.Save() oWMObject.Save()
_logger.Debug("Unlocking new object") _logger.Debug("Unlocking new object")
oWMObject.unlock() oWMObject.unlock()