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 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()
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user