69 lines
2.2 KiB
VB.net
69 lines
2.2 KiB
VB.net
Public Class ClassDatatables
|
|
|
|
Public Shared Function AddGroupToProfile(GroupId As Integer, ProfileId As Integer) As Boolean
|
|
Try
|
|
Dim oSQL = $"
|
|
INSERT INTO TBDD_USRGRP_DOKTYPE
|
|
(DOCTYPE_ID, GROUP_ID, ADDED_WHO)
|
|
VALUES ({ProfileId}, {GroupId}, '{Environment.UserName}')
|
|
"
|
|
Return ClassDatabase.Execute_non_Query(oSQL, True)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Shared Function RemoveGroupFromProfile(GroupId As Integer, ProfileId As Integer) As Boolean
|
|
Try
|
|
Dim oSQL = $"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND GROUP_ID = {GroupId}"
|
|
Return ClassDatabase.Execute_non_Query(oSQL, True)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Shared Function GetAssignedGroups(ProfileId As Integer) As DataTable
|
|
Try
|
|
Dim oSQL As String = $"
|
|
SELECT * FROM TBDD_GROUPS
|
|
WHERE (GUID IN
|
|
(
|
|
SELECT GROUP_ID
|
|
FROM TBDD_USRGRP_DOKTYPE
|
|
WHERE DOCTYPE_ID = {ProfileId}
|
|
)
|
|
)
|
|
"
|
|
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
|
|
|
|
Return oDatatable
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
Public Shared Function GetAvailableGroups(ProfileId As Integer) As DataTable
|
|
Try
|
|
Dim oSQL As String = $"
|
|
SELECT * FROM TBDD_GROUPS
|
|
WHERE NOT (GUID IN
|
|
(
|
|
SELECT GROUP_ID
|
|
FROM TBDD_USRGRP_DOKTYPE
|
|
WHERE DOCTYPE_ID = {ProfileId}
|
|
)
|
|
)
|
|
"
|
|
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
|
|
|
|
Return oDatatable
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
End Class
|