ReceiverVM Vereinheitlichung

EnvelopeGenerator.CommonServices/Models/EnvelopeModel.vb

@@ -61,7 +61,15 @@ Public Class EnvelopeModel
             oEnvelope.DocResult = Nothing
         End If
         oEnvelope.User = UserModel.SelectUser(oEnvelope.UserId)
-        oEnvelope.EnvelopeReceivers = ReceiverModel.ListEnvelopeReceivers(oEnvelope.Id)
+
+
+        oEnvelope.EnvelopeReceivers = New List(Of EnvelopeReceiver)
+
+        For Each rcv In ReceiverModel.ListEnvelopeReceivers(oEnvelope.Id)
+            oEnvelope.EnvelopeReceivers.Add(rcv)
+        Next
+
+
         oEnvelope.Documents = DocumentModel.List(oEnvelope.Id)
         oEnvelope.Histories = HistoryModel.List(oEnvelope.Id)
         oEnvelope.Type = EnvelopeTypeModel.GetById(oEnvelope.EnvelopeTypeId)
@@ -185,7 +193,7 @@ Public Class EnvelopeModel
             oSql += " [SEND_REMINDER_EMAILS] = @SEND_REMINDER_EMAILS, "
             oSql += " [USE_ACCESS_CODE] = @USE_ACCESS_CODE, "
             oSql += " [CHANGED_WHEN] = GETDATE(), "
-            oSql += " [TfaEnabled] = @TfaEnabled"
+            oSql += " [TFA_ENABLED] = @TfaEnabled"
             oSql += " WHERE GUID = @ID AND USER_ID = @USER_ID"
 
 
@@ -210,7 +218,7 @@ Public Class EnvelopeModel
             oCommand.Parameters.Add("REMINDER_INTERVAL_DAYS", SqlDbType.Int).Value = pEnvelope.ReminderIntervalDays
             oCommand.Parameters.Add("SEND_REMINDER_EMAILS", SqlDbType.Bit).Value = pEnvelope.SendReminderEmails
             oCommand.Parameters.Add("USE_ACCESS_CODE", SqlDbType.Bit).Value = pEnvelope.UseAccessCode
-            oCommand.Parameters.Add("TFA_ENABLED", SqlDbType.Bit).Value = pEnvelope.TfaEnabled
+            oCommand.Parameters.Add("TfaEnabled", SqlDbType.Bit).Value = pEnvelope.TfaEnabled
             Return Database.ExecuteNonQuery(oCommand, pTransaction)
 
         Catch ex As Exception

EnvelopeGenerator.CommonServices/Models/ReceiverModel.vb

@@ -23,6 +23,7 @@ Public Class ReceiverModel
             End If
         End If
 
+
         Return New ReceiverVM() With {
             .Id = pRow.ItemEx("GUID", 0),
             .EmailAddress = pRow.ItemEx("EMAIL_ADDRESS", ""),
@@ -162,15 +163,25 @@ Public Class ReceiverModel
             If pReceiversFromGrid.Count = 0 Then
                 Return New List(Of Receiver)
             End If
-
+            Dim oReceiverList As New List(Of ReceiverVM)
             Dim oAddresses = pReceiversFromGrid.Select(Function(r) $"'{r.EmailAddress}'").JoinToString(",")
 
             Dim oSql = $"SELECT * FROM [dbo].[TBSIG_RECEIVER] WHERE EMAIL_ADDRESS IN ({oAddresses})"
             Dim oTable = Database.GetDatatable(oSql)
+            'Dim oIndex = 0
+            'For Each oRow As DataRow In oTable.Rows
+            '    '  oEnvelope.EnvelopeReceivers.Add(rcv)
+            '    Dim oReceiver As ReceiverVM = ToReceiver(oRow)
+            '    oReceiverList.Add(oReceiver)
+            '    oIndex += 
+            'Next
 
-            Return oTable?.Rows.Cast(Of DataRow).
-                Select(AddressOf ToReceiver).
-                ToList()
+            Dim rcvs = New List(Of Receiver)
+            For Each r_vm In pReceiversFromGrid
+                rcvs.Add(r_vm.Receiver)
+            Next
+
+            Return rcvs
 
         Catch ex As Exception
             Logger.Error(ex)