2023-09-25

EnvelopeGenerator.Common/Entities/EmailData.vb

@@ -3,6 +3,7 @@
     Public Property EmailSubject As String
     Public Property EmailBody As String
     Public Property ReferenceID As Integer
+    Public Property ReferenceString As String
 
 
     Public Property ReceiverName As String

EnvelopeGenerator.Common/Entities/EmailTemplate.vb

@@ -30,7 +30,7 @@
         _replaceDictionary = New Dictionary(Of String, String) From {
             {"<NAME_RECEIVER>", pEmailData.ReceiverName},
             {"<NAME_SENDER>", pEmailData.SenderName},
-            {"<SIGNATURE_TYPE>", ""},
+            {"<SIGNATURE_TYPE>", "signieren"},
             {"<LINK_TO_DOCUMENT>", pEmailData.SignatureLink},
             {"<MESSAGE>", pEmailData.Message}
         }

EnvelopeGenerator.Common/Models/ElementModel.vb

@@ -44,6 +44,26 @@ Public Class ElementModel
         End Try
     End Function
 
+    Public Function OneElementPerReceiverExist(pEnvelopeId As Integer) As Boolean
+        Try
+            Dim oSql = "SELECT COUNT(*) FROM ("
+            oSql += "       SELECT DISTINCT RECEIVER_ID FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] T"
+            oSql += "       JOIN TBSIG_ENVELOPE_DOCUMENT T2 ON T.DOCUMENT_ID = T2.GUID"
+            oSql += $"       WHERE T2.ENVELOPE_ID = {pEnvelopeId}"
+            oSql += " ) TMAX"
+            Dim oElementReceiverCount As Integer = Database.GetScalarValue(oSql)
+
+            Dim oSql2 = $"SELECT COUNT(*) FROM TBSIG_ENVELOPE_RECEIVER WHERE ENVELOPE_ID = {pEnvelopeId}"
+            Dim oEnvelopeReceiverCount As Integer = Database.GetScalarValue(oSql2)
+
+            Return oElementReceiverCount = oEnvelopeReceiverCount
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
     Public Function ElementsExist(pEnvelopeId As Integer) As Boolean
         Try
             Dim oSql = $"SELECT COUNT(*) FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] T

EnvelopeGenerator.Common/Models/EmailModel.vb

@@ -11,15 +11,19 @@ Public Class EmailModel
 
     Public Function Insert(pEmail As EmailData) As Boolean
         Try
-            Dim oSql = "INSERT INTO [dbo].[TBEMLP_EMAIL_OUT] (EMAIL_ADRESS, EMAIL_SUBJ, EMAIL_BODY, ADDED_WHO, SENDING_PROFILE, REFERENCE_ID) "
-            oSql += " VALUES (@EMAIL_ADRESS, @EMAIL_SUBJ, @EMAIL_BODY, @ADDED_WHO, @SENDING_PROFILE, @REFERENCE_ID)"
+            Dim oSql = "INSERT INTO [dbo].[TBEMLP_EMAIL_OUT] "
+            oSql += " (EMAIL_ADRESS, EMAIL_SUBJ, EMAIL_BODY, ADDED_WHO, SENDING_PROFILE, REFERENCE_ID, REFERENCE_STRING, REMINDER_TYPE_ID, WF_ID) "
+            oSql += " VALUES (@EMAIL_ADRESS, @EMAIL_SUBJ, @EMAIL_BODY, @ADDED_WHO, @SENDING_PROFILE, @REFERENCE_ID, @REFERENCE_STRING, @REMINDER_TYPE_ID, @WF_ID)"
             Dim oCommand As New SqlCommand(oSql)
             oCommand.Parameters.Add("EMAIL_ADRESS", SqlDbType.NVarChar).Value = pEmail.EmailAdress
             oCommand.Parameters.Add("EMAIL_SUBJ", SqlDbType.NVarChar).Value = pEmail.EmailSubject
             oCommand.Parameters.Add("EMAIL_BODY", SqlDbType.NVarChar).Value = pEmail.EmailBody
-            oCommand.Parameters.Add("ADDED_WHO", SqlDbType.NVarChar).Value = "Envelop Generator"
+            oCommand.Parameters.Add("ADDED_WHO", SqlDbType.NVarChar).Value = "DDEnvelopGenerator"
             oCommand.Parameters.Add("SENDING_PROFILE", SqlDbType.Int).Value = State.DbConfig.SendingProfile
             oCommand.Parameters.Add("REFERENCE_ID", SqlDbType.Int).Value = pEmail.ReferenceID
+            oCommand.Parameters.Add("REFERENCE_STRING", SqlDbType.NVarChar).Value = pEmail.ReferenceString
+            oCommand.Parameters.Add("REMINDER_TYPE_ID", SqlDbType.Int).Value = 77
+            oCommand.Parameters.Add("WF_ID", SqlDbType.Int).Value = 77
 
             If Database.ExecuteNonQuery(oCommand) Then
                 Return True

EnvelopeGenerator.Common/Strings/Envelope.en.resx

@@ -156,6 +156,9 @@
   <data name="Missing Elements" xml:space="preserve">
     <value>Missing at least one Element</value>
   </data>
+  <data name="Missing Elements for Receiver" xml:space="preserve">
+    <value>For Receiver {0} you need at least one Element</value>
+  </data>
   <data name="Missing Message" xml:space="preserve">
     <value>Missing Message</value>
   </data>

EnvelopeGenerator.Common/Strings/Envelope.resx

@@ -154,7 +154,10 @@
     <value>Missing Documents</value>
   </data>
   <data name="Missing Elements" xml:space="preserve">
-    <value>Missing at least one Element</value>
+    <value>Es muss mindestens ein Signaturfeld gesetzt werden</value>
+  </data>
+  <data name="Missing Elements for Receiver" xml:space="preserve">
+    <value>Für den Empfänger {0} gibt es noch kein Signaturfeld</value>
   </data>
   <data name="Missing Message" xml:space="preserve">
     <value>Missing Message</value>

EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb

@@ -173,7 +173,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Missing at least one Element ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die Es muss mindestens ein Signaturfeld gesetzt werden ähnelt.
         '''</summary>
         Public Shared ReadOnly Property Missing_Elements() As String
             Get
@@ -181,6 +181,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Für den Empfänger {0} gibt es noch kein Signaturfeld ähnelt.
+        '''</summary>
+        Public Shared ReadOnly Property Missing_Elements_for_Receiver() As String
+            Get
+                Return ResourceManager.GetString("Missing Elements for Receiver", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Missing Message ähnelt.
         '''</summary>