2023-11-06 Neuer Status "Teil-Signiert", "Vollständig Signiert"

Teil-Validierung

EnvelopeGenerator.Form/Controllers/EnvelopeEditorController.vb

@@ -265,21 +265,20 @@ Public Class EnvelopeEditorController
         Dim oExistingReceivers As List(Of EnvelopeReceiver) = ReceiverModel.ListReceivers(pCurrentReceivers)
         Dim oExistingAddresses = oExistingReceivers.Select(Function(r) r.Email)
 
+        ' Neue Empfänger
         Dim oNewReceivers = pCurrentReceivers.
                 Where(Function(r) Not oExistingAddresses.Contains(r.Email)).ToList()
 
-        For Each oReceiver In oNewReceivers
-            oReceiver.Id = 0
-        Next
-
+        ' Empfänger, die bereits einmal verwendet wurden
         For Each oCurrentReceiver In pCurrentReceivers
             If oCurrentReceiver.Id = 0 Then
-                Dim oExistingReceiver As EnvelopeReceiver = oExistingReceivers.Where(Function(r) r.Email = oCurrentReceiver.Email).First()
-                oCurrentReceiver.Id = oExistingReceiver.Id
+                Dim oExistingReceiver As EnvelopeReceiver = oExistingReceivers.Where(Function(r) r.Email.Equals(oCurrentReceiver.Email, StringComparison.InvariantCultureIgnoreCase)).FirstOrDefault()
+                If oExistingReceiver IsNot Nothing Then
+                    oCurrentReceiver.Id = oExistingReceiver.Id
+                End If
             End If
         Next
 
-
         Dim oConnection = Database.GetConnection()
         Dim oTransaction = oConnection.BeginTransaction()