refacto(EGUser): rename FormUser

EnvelopeGenerator.CommonServices/Models/EnvelopeModel.vb

@@ -37,7 +37,7 @@ Public Class EnvelopeModel
             .AddedWhen = pRow.Item("ADDED_WHEN"),
             .ChangedWhen = pRow.ItemEx(Of Date)("CHANGED_WHEN", Nothing),
             .CertificationType = ObjectEx.ToEnum(Of CertificationType)(pRow.ItemEx("CERTIFICATION_TYPE", CertificationType.AdvancedElectronicSignature.ToString())),
-            .User = New EGUser(),
+            .User = New FormUser(),
             .ExpiresWhen = pRow.ItemEx(Of Date)("EXPIRES_WHEN", Nothing),
             .ExpiresWarningWhen = pRow.ItemEx(Of Date)("EXPIRES_WARNING_WHEN", Nothing),
             .ExpiresWhenDays = pRow.ItemEx("EXPIRES_WHEN_DAYS", 0),

EnvelopeGenerator.CommonServices/Models/State.vb

@@ -4,7 +4,7 @@ Imports EnvelopeGenerator.Domain.Entities
 
 Public Class State
     Public Property UserId As Integer
-    Public Property User As EGUser
+    Public Property User As FormUser
     Public Property Config As Config
     Public Property DbConfig As DbConfig
     Public Property LogConfig As LogConfig

EnvelopeGenerator.CommonServices/Models/UserModel.vb

@@ -9,8 +9,8 @@ Public Class UserModel
         MyBase.New(pState)
     End Sub
 
-    Private Function ToUser(pRow As DataRow) As EGUser
-        Dim oUser = New EGUser() With {
+    Private Function ToUser(pRow As DataRow) As FormUser
+        Dim oUser = New FormUser() With {
             .Id = pRow.ItemEx("GUID", 0),
             .Prename = pRow.ItemEx("PRENAME", ""),
             .Name = pRow.ItemEx("NAME", ""),
@@ -22,7 +22,7 @@ Public Class UserModel
         Return oUser
     End Function
 
-    Public Function CheckUserLogin(pUser As EGUser) As EGUser
+    Public Function CheckUserLogin(pUser As FormUser) As FormUser
         Try
             Dim oSql = $"SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{pUser.Username}', 'SIG_ENV_CR', 1)"
             Dim oTable As DataTable = Database.GetDatatable(oSql)
@@ -45,7 +45,7 @@ Public Class UserModel
         End Try
     End Function
 
-    Public Function SelectUser() As EGUser
+    Public Function SelectUser() As FormUser
         Try
             Dim oSql = $"SELECT * FROM [dbo].[TBDD_USER] WHERE GUID = {State.UserId}"
             Dim oTable = Database.GetDatatable(oSql)
@@ -58,7 +58,7 @@ Public Class UserModel
         End Try
     End Function
 
-    Public Function SelectUser(pUserID As Integer) As EGUser
+    Public Function SelectUser(pUserID As Integer) As FormUser
         Try
             Dim oSql = $"SELECT * FROM [dbo].[TBDD_USER] WHERE GUID = {pUserID}"
             Dim oTable = Database.GetDatatable(oSql)