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

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()