'****************************************************************************************************************
'* Id Application modified by:   Date(MM/dd/yyyy)   Description													*
'* -- ------------------------   --------           -------------------------------------------	    			*
'* 01 Raśl Callupe  - PACNET      03/22/2006         Creation of the class                                       *
'****************************************************************************************************************

Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data

Public Class CC_Security

    Sub New()

    End Sub

    Public Function GetControlID(ByVal prmControlName As String) As String
        Dim strConnectionString As String = ConfigurationSettings.AppSettings("ConnectionString")
        Dim strSPName As String = "SP_CAMS_GET_CONTROLID"
        Dim arrParams(0) As SqlParameter
        Dim strControlID As String

        Try
            arrParams(0) = New SqlParameter("@CONTROLNAME", SqlDbType.VarChar, 50)
            arrParams(0).Value = prmControlName

            strControlID = SqlHelper.ExecuteScalar(strConnectionString, CommandType.StoredProcedure, strSPName, arrParams)
        Catch ex As Exception
            strControlID = String.Empty
        End Try

        Return strControlID

    End Function

    Public Function GetHasAccessToControl(ByVal prmControlID As String, _
                                            ByVal prmAccessGroupID As String) As Boolean

        Dim strConnectionString As String = ConfigurationSettings.AppSettings("ConnectionString")
        Dim strSPName As String = "SP_CAMS_GET_HASACCESSTOCONTROL"
        Dim arrParams(1) As SqlParameter
        Dim nHasAccess As Integer

        Try
            arrParams(0) = New SqlParameter("@CONTROLID", SqlDbType.Char, 3)
            arrParams(0).Value = prmControlID
            arrParams(1) = New SqlParameter("@ACCESSGROUPID", SqlDbType.Char, 2)
            arrParams(1).Value = prmAccessGroupID

            nHasAccess = SqlHelper.ExecuteScalar(strConnectionString, CommandType.StoredProcedure, strSPName, arrParams)
        Catch ex As Exception
            nHasAccess = 0
        End Try

        If nHasAccess = 0 Then
            Return False
        Else
            Return True
        End If

    End Function

End Class