2023-09-11 - THUMBNAILS!!!!!

EnvelopeGenerator.Common/Models/UserModel.vb

@@ -25,11 +25,11 @@ Public Class UserModel
 
     Public Function SelectUser() As User
         Try
-            Dim oSql = $"SELECT * FROM [dbo].[TBDD_USER] WHERE USER_ID = {State.UserId}"
+            Dim oSql = $"SELECT * FROM [dbo].[TBDD_USER] WHERE GUID = {State.UserId}"
             Dim oTable = Database.GetDatatable(oSql)
 
             Return oTable?.Rows.Cast(Of DataRow).
-                Select(AddressOf ToUser)
+                Select(AddressOf ToUser).First
         Catch ex As Exception
             Logger.Error(ex)
             Return Nothing