48 lines
1.6 KiB
VB.net
48 lines
1.6 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
|
|
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(GroupId As Integer, UserId As Integer) As Task(Of Integer)
|
|
Try
|
|
Dim oSQL = "SELECT FNICM_RADM_NEW_USER2GROUP({0},{1}, '{2}') FROM RDB$DATABASE;"
|
|
Dim oRequest = Await My.Channel.CreateDatabaseRequestAsync($"Add User To Group", False)
|
|
Dim oRecordIds As New List(Of Integer)
|
|
|
|
Dim oResult = Await My.Channel.ReturnScalarAsync(String.Format(oSQL, UserId, GroupId, Environment.UserName))
|
|
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({0},'{1}') FROM RDB$DATABASE;"
|
|
Dim oRequest = Await My.Channel.CreateDatabaseRequestAsync($"Delete Record", False)
|
|
|
|
Dim oResult = Await My.Channel.ReturnScalarAsync(String.Format(oSQL, RecordId, Environment.UserName))
|
|
Await My.Channel.CloseDatabaseRequestAsync()
|
|
|
|
Return oResult.OK
|
|
Catch ex As Exception
|
|
_Logger.Error(ex)
|
|
Throw ex
|
|
End Try
|
|
End Function
|
|
|
|
End Class
|