AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

EDMI: Checkin/out

Browse Source
This commit is contained in:
Jonathan Jenne
2022-03-29 16:35:24 +02:00
parent abff7fa745
commit 809b4dafc3
14 changed files with 315 additions and 204 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Service.EDMIService/IDB/Helpers.vb
View File

@@ -202,13 +202,15 @@ Namespace IDB
Public Function SetObjectState(pObjectId As Long, pState As String, pWho As String) As Boolean
Try
Logger.Debug("Setting object state for [{0}]: [{1}]")
Dim oSql As String = $"EXEC PRIDB_OBJECT_SET_STATE {pObjectId}, '{pState}', '{pWho}'"
Dim oResult = Database.ExecuteNonQuery(oSql)
If oResult = False Then
Return False
End If
Logger.Info("Object state for [{0}] created: [{1}]", pObjectId, pState)
Logger.Info("Object state for [{0}] set: [{1}]", pObjectId, pState)
Return True
Catch ex As Exception

4
Service.EDMIService/Methods/IDB/CheckInOutFile/CheckInOutFileMethod.vb
View File

@@ -101,7 +101,9 @@ Namespace Methods.IDB.CheckInOutFile
VALUES ({pObjectId}, GETDATE(), '{pComment}', '{pUsername}')"
If DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
Helpers.SetObjectState(pObjectId, FileStore.OBJECT_STATE_FILE_CHECKED_OUT, pUsername)
Logger.Info("File [{0}] checked out successfully!", pObjectId)
Return CheckOutResult.CheckoutSuccessful
Else
Logger.Warn("File [{0}] could not be checked out because of an internal error!", pObjectId)
@@ -134,7 +136,9 @@ Namespace Methods.IDB.CheckInOutFile
WHERE IDB_OBJ_ID = {pObjectId} AND ADDED_WHO = '{pUsername}' AND CHECKED_IN_WHEN IS NULL"
If DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
Helpers.SetObjectState(pObjectId, FileStore.OBJECT_STATE_FILE_CHECKED_IN, pUsername)
Logger.Info("File [{0}] checked in successfully!", pObjectId)
Return CheckInResult.CheckinSuccessful
Else
Logger.Warn("File [{0}] could not be checked in because of an internal error!", pObjectId)