82 lines
3.1 KiB
VB.net
82 lines
3.1 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.EDMIAPI.EDMIServiceReference
|
|
|
|
Public Class ClassCommonCommands
|
|
Private _LogConfig As LogConfig
|
|
Private _Logger As Logger
|
|
|
|
Public Sub New(LogConfig As LogConfig)
|
|
_LogConfig = LogConfig
|
|
_Logger = LogConfig.GetLogger()
|
|
End Sub
|
|
|
|
Public Async Function FNICM_RADM_NEW_USER2GROUP(UserId As Integer, GroupId As Integer) As Task(Of Integer)
|
|
Try
|
|
Dim oSQL = $"SELECT FNICM_RADM_NEW_USER2GROUP({UserId},{GroupId}, '{Environment.UserName}') FROM RDB$DATABASE;"
|
|
Dim oRequest = Await My.Channel.CreateDatabaseRequestAsync($"Add User To Group", False)
|
|
|
|
Dim oResult = Await My.Channel.ReturnScalarAsync(oSQL)
|
|
Await My.Channel.CloseDatabaseRequestAsync()
|
|
|
|
If oResult.OK Then
|
|
Return oResult.Scalar
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
Catch ex As Exception
|
|
_Logger.Error(ex)
|
|
Throw ex
|
|
End Try
|
|
End Function
|
|
|
|
Public Async Function FNICM_RADM_NEW_GROUP2GROUP(ParentGroupId As Integer, GroupId As Integer) As Task(Of Integer)
|
|
Try
|
|
Dim oSQL = $"SELECT FNICM_RADM_NEW_GROUP2GROUP({GroupId},{ParentGroupId}, '{Environment.UserName}') FROM RDB$DATABASE;"
|
|
Dim oRequest = Await My.Channel.CreateDatabaseRequestAsync($"Add Group To Group", False)
|
|
Dim oRecordIds As New List(Of Integer)
|
|
|
|
Dim oResult = Await My.Channel.ReturnScalarAsync(oSQL)
|
|
Await My.Channel.CloseDatabaseRequestAsync()
|
|
|
|
If oResult.OK Then
|
|
Return oResult.Scalar
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
Catch ex As Exception
|
|
_Logger.Error(ex)
|
|
Throw ex
|
|
End Try
|
|
End Function
|
|
|
|
Public Async Function FNICM_DELETE_RECORD_FINALLY(RecordId As Integer) As Task(Of Boolean)
|
|
Try
|
|
Dim oSQL = $"SELECT FNICM_DELETE_RECORD_FINALLY({RecordId},'{Environment.UserName}') FROM RDB$DATABASE;"
|
|
Dim oRequest = Await My.Channel.CreateDatabaseRequestAsync($"Delete Record", False)
|
|
|
|
Dim oResult = Await My.Channel.ReturnScalarAsync(oSQL)
|
|
Await My.Channel.CloseDatabaseRequestAsync()
|
|
|
|
Return oResult.OK
|
|
Catch ex As Exception
|
|
_Logger.Error(ex)
|
|
Throw ex
|
|
End Try
|
|
End Function
|
|
|
|
Public Async Function FNICM_NEW_DOC_VALUE(DocumentId As Int64, Syskey As String, LanguageKey As String, Value As String) As Task(Of ScalarResult)
|
|
Try
|
|
Dim oSQL = $"SELECT FNICM_NEW_DOC_VALUE({DocumentId}, '{Syskey}', '{LanguageKey}', '{My.Application.User.UserName}', '{Value}') FROM RDB$DATABASE;"
|
|
Dim oRequest = Await My.Channel.CreateDatabaseRequestAsync($"Delete Record", False)
|
|
Dim oResult = Await My.Channel.ReturnScalarAsync(oSQL)
|
|
|
|
Await My.Channel.CloseDatabaseRequestAsync()
|
|
|
|
Return oResult
|
|
Catch ex As Exception
|
|
_Logger.Error(ex)
|
|
Throw ex
|
|
End Try
|
|
End Function
|
|
End Class
|