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