07-12-2024 Name vorschlagen

EnvelopeGenerator.Common/Models/ReceiverModel.vb

@@ -1,5 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Net.Mail
+Imports DevExpress.DataProcessing
 Imports DigitalData.Modules.Base
 Imports EnvelopeGenerator.Common.Constants
 
@@ -25,7 +26,7 @@ Public Class ReceiverModel
         End If
 
         Return New EnvelopeReceiver() With {
-            .Id = pRow.ItemEx("GUID", 0),
+            .Id = pRow.ItemEx("RECEIVER_ID", 0),
             .Email = pRow.ItemEx("EMAIL_ADDRESS", ""),
             .Name = pRow.ItemEx("NAME", ""),
             .Sequence = pRow.ItemEx("SEQUENCE", 0),
@@ -212,16 +213,17 @@ Public Class ReceiverModel
     End Function
 
     Public Function GetById(pReceiverId As Integer) As EnvelopeReceiver
-        Try
-            Dim oSql = $"SELECT * FROM [dbo].[VWSIG_ENVELOPE_RECEIVERS] WHERE GUID = {pReceiverId}"
-            Dim oTable = Database.GetDatatable(oSql)
+        'Try
+        '    Dim oSql = $"SELECT * FROM [dbo].[VWSIG_ENVELOPE_RECEIVERS] WHERE RECEIVER_ID = {pReceiverId}"
+        '    Dim oTable = Database.GetDatatable(oSql)
 
-            Return ToReceiver(oTable)
+        '    Return ToReceiver(oTable)
 
-        Catch ex As Exception
-            Logger.Error(ex)
-            Return Nothing
-        End Try
+        'Catch ex As Exception
+        '    Logger.Error(ex)
+        '    Return Nothing
+        'End Try
+        Return Nothing
     End Function
 
     Public Function GetReceiverIdBySignature(pSignature As String) As Integer
@@ -233,6 +235,23 @@ Public Class ReceiverModel
         End Try
     End Function
 
+    Public Function GetLastUsedReceiverName(pEmailAddress As String, pUserId As Integer) As String
+        Try
+            Dim oSql As String
+            oSql = "SELECT TOP 1 [NAME] FROM dbo.VWSIG_ENVELOPE_RECEIVERS "
+            oSql += $" WHERE ENVELOPE_ID IN (SELECT GUID FROM dbo.TBSIG_ENVELOPE WHERE [USER_ID] = {pUserId}) "
+            oSql += $" AND EMAIL_ADDRESS = '{pEmailAddress}' "
+            oSql += "  AND Len([NAME]) > 0 "
+            oSql += " ORDER BY [ADDED_WHEN] DESC"
+
+            Return Database.GetScalarValue(oSql)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return String.Empty
+        End Try
+    End Function
+
     Private Function GetReceiverIdByEmail(pEmailAddress As String, pTransaction As SqlTransaction) As Integer
         Try
             Return Database.GetScalarValue($"SELECT GUID FROM TBSIG_RECEIVER WHERE EMAIL_ADDRESS = '{pEmailAddress}'", pTransaction)