Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging

Public Class ClassGIDatatables
    Inherits BaseClass

    Public Sub New(pLogConfig As LogConfig)
        MyBase.New(pLogConfig)
    End Sub

#Region "TBDD_GROUP"


    Public 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 My.DatabaseECM.ExecuteNonQuery(oSQL)
        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function

    Public 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 My.DatabaseECM.ExecuteNonQuery(oSQL)
        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function

    Public Function GetAssignedGroups(ProfileId As Integer) As DataTable
        Try
            Dim oSQL As String = $"
                SELECT GUID, NAME FROM TBDD_GROUPS
                WHERE GUID IN
	            (
		            SELECT        GROUP_ID
		            FROM          TBDD_USRGRP_DOKTYPE
		            WHERE         DOCTYPE_ID = {ProfileId}
	            )
            "
            Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQL)

            Return oDatatable
        Catch ex As Exception
            Logger.Error(ex)
            Return Nothing
        End Try
    End Function

    Public Function GetAvailableGroups(ProfileId As Integer) As DataTable
        Try
            Dim oSQL As String = $"
                SELECT GUID, NAME FROM TBDD_GROUPS
                WHERE GUID NOT IN
	            (
		            SELECT        GROUP_ID
		            FROM          TBDD_USRGRP_DOKTYPE
		            WHERE         DOCTYPE_ID = {ProfileId}
	            )
            "
            Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQL)

            Return oDatatable
        Catch ex As Exception
            Logger.Error(ex)
            Return Nothing
        End Try
    End Function
#End Region

#Region "TBDD_USER"

    Public Function AddUserToProfile(UserId As Integer, ProfileId As Integer) As Boolean
        Try
            Dim oSQL = $"
                INSERT INTO TBDD_USER_DOKTYPE 
                (DOCTYPE_ID, USER_ID, ADDED_WHO)
                VALUES ({ProfileId}, {UserId}, '{Environment.UserName}')
            "
            Return My.DatabaseECM.ExecuteNonQuery(oSQL)
        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function

    Public Function RemoveUserFromProfile(UserId As Integer, ProfileId As Integer) As Boolean
        Try
            Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND USER_ID = {UserId}"
            Return My.DatabaseECM.ExecuteNonQuery(oSQL)
        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function

    Public Function GetAssignedUsers(ProfileId As Integer) As DataTable
        Try
            Dim oSQL As String = $"
                SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
                WHERE GUID IN (
		                SELECT        USER_ID
		                FROM          TBDD_USER_DOKTYPE
		                WHERE         DOCTYPE_ID = {ProfileId}
                )
            "
            Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQL)

            Return oDatatable
        Catch ex As Exception
            Logger.Error(ex)
            Return Nothing
        End Try
    End Function

    Public Function GetAvailableUsers(ProfileId As Integer) As DataTable
        Try
            Dim oSQL As String = $"
                SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
                WHERE GUID NOT IN (
		                SELECT        USER_ID
		                FROM          TBDD_USER_DOKTYPE
		                WHERE         DOCTYPE_ID = {ProfileId}
	                )
                AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('GLOBIX', 1))
            "
            Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQL)

            Return oDatatable
        Catch ex As Exception
            Logger.Error(ex)
            Return Nothing
        End Try
    End Function
#End Region




End Class