Ms Auswertungen, Dokument anzeigen, Drag and Drop

EnvelopeGenerator.Form/Controllers/EnvelopeEditorController.vb

@@ -65,7 +65,8 @@ Public Class EnvelopeEditorController
     Public Function CreateEnvelope() As Envelope
         Dim oEnvelope As New Envelope() With {
             .UserId = State.UserId,
-            .User = UserModel.SelectUser()
+            .User = UserModel.SelectUser(),
+            .TFA_Enabled = DEF_TF_ENABLED
         }
 
         If EnvelopeModel.Insert(oEnvelope) Then
@@ -87,11 +88,13 @@ Public Class EnvelopeEditorController
     Public Function SaveReceivers(pEnvelope As Envelope, pReceiversFromGrid As List(Of EnvelopeReceiver)) As Boolean
         Dim oExistingReceivers As List(Of EnvelopeReceiver) = ReceiverModel.ListReceivers(pReceiversFromGrid).ToList()
         Dim oExistingAddresses = oExistingReceivers.Select(Function(r) r.Email)
+        Logger.Debug($"oExistingReceivers.count: {oExistingReceivers.Count}")
+        Logger.Debug($"oExistingAddresses.count: {oExistingAddresses.Count}")
         Dim oNewReceivers = pReceiversFromGrid.Where(Function(r)
                                                          If r.Email Is Nothing Then Return False
                                                          Return Not oExistingAddresses.Contains(r.Email)
                                                      End Function).ToList()
-
+        Logger.Debug($"oNewReceivers.count: {oNewReceivers.Count}")
         If CreateNewReceivers(oNewReceivers) = False Then
             Return False
         End If
@@ -406,4 +409,11 @@ Public Class EnvelopeEditorController
             Return String.Empty
         End If
     End Function
+    Public Function GetLastPhoneByEmailAdress(pEmailAdress As String) As String
+        If (String.IsNullOrEmpty(pEmailAdress) = False) Then
+            Return ReceiverModel.GetLastUsedReceiverPhone(pEmailAdress, Envelope.UserId)
+        Else
+            Return String.Empty
+        End If
+    End Function
 End Class