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