Merge branch 'master' of http://git.dd:3000/AppStd/Modules
This commit is contained in:
commit
d44ab2f087
@ -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()
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user