check user login

EnvelopeGenerator.Common/Models/ConfigModel.vb

@@ -27,15 +27,7 @@ Public Class ConfigModel
         End Try
     End Function
 
-    Public Function GetUserId() As Integer
-        Try
-            Dim oUserId As Integer = Database.GetScalarValue($"SELECT GUID FROM TBDD_USER WHERE USERNAME = '{Environment.UserName}'")
-            Return oUserId
 
-        Catch ex As Exception
-            Return 0
-        End Try
-    End Function
 
 
 End Class

EnvelopeGenerator.Common/Models/UserModel.vb

@@ -21,6 +21,29 @@ Public Class UserModel
         Return oUser
     End Function
 
+    Public Function CheckUserLogin(pUser As User) As User
+        Try
+            Dim oSql = $"SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{pUser.Username}', 'SIG_PMENV_CR', 1)"
+            Dim oTable As DataTable = Database.GetDatatable(oSql)
+
+            If oTable?.Rows.Count = 0 Then
+                Return pUser
+            End If
+
+            Dim oRow = oTable.Rows.Item(0)
+            Dim oHasAccess = oRow.ItemEx("MODULE_ACCESS", False)
+            Dim oIsAdmin = oRow.ItemEx("IS_ADMIN", False)
+
+            pUser.HasAccess = oHasAccess
+            pUser.IsAdmin = oIsAdmin
+
+            Return pUser
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return pUser
+        End Try
+    End Function
+
     Public Function SelectUser() As User
         Try
             Dim oSql = $"SELECT * FROM [dbo].[TBDD_USER] WHERE GUID = {State.UserId}"
@@ -47,4 +70,15 @@ Public Class UserModel
         End Try
     End Function
 
+    Public Function SelectUserId() As Integer
+        Try
+            Dim oUserId As Integer = Database.GetScalarValue($"SELECT GUID FROM TBDD_USER WHERE USERNAME = '{Environment.UserName}'")
+            Return oUserId
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return 0
+        End Try
+    End Function
+
 End Class