AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Zooflow: CheckInOut

Browse Source
This commit is contained in:
Jonathan Jenne
2022-03-28 16:42:47 +02:00
parent c833f486ac
commit ea8b4242ae
20 changed files with 696 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Modules.EDMIAPI/Modules/IDB/CheckInFile.vb
View File

@@ -20,12 +20,12 @@ Namespace Modules.IDB
.Language = pOptions.Language,
.UserName = pOptions.Username
},
.Action = CheckInOutFileAction.CheckOut,
.Action = CheckInOutFileAction.CheckIn,
.ObjectId = pObjectId
})
If oCheckInFileResponse.OK = False Then
Throw New ApplicationException("Could not Import File Contents!")
Throw New ApplicationException(oCheckInFileResponse.ErrorMessage)
End If
Return oCheckInFileResponse.ObjectId

7
Modules.EDMIAPI/Modules/IDB/CheckOutFile.vb
View File

@@ -15,7 +15,7 @@ Namespace Modules.IDB
pOptions = New Options.CheckOutInOptions()
End If
Dim oCheckOutFileResponse = Await Channel.CheckInOutFileAsync(New CheckInOutFileRequest With {
Dim oArgs = New CheckInOutFileRequest With {
.User = New UserState With {
.Language = pOptions.Language,
.UserName = pOptions.Username
@@ -23,10 +23,11 @@ Namespace Modules.IDB
.Action = CheckInOutFileAction.CheckOut,
.Comment = pComment,
.ObjectId = pObjectId
})
}
Dim oCheckOutFileResponse = Await Channel.CheckInOutFileAsync(oArgs)
If oCheckOutFileResponse.OK = False Then
Throw New ApplicationException("Could not Import File Contents!")
Throw New ApplicationException(oCheckOutFileResponse.ErrorMessage)
End If
Return oCheckOutFileResponse.ObjectId