Status-Anzeige Hauptschirm

EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb

@@ -26,15 +26,25 @@ Public Class EnvelopeReceiver
 
     Public Property ColorType As ColorType
 
-
     Public Property Name As String
+
     Public Property Company As String = ""
+
     Public Property JobTitle As String = ""
 
     Public Property Email As String
 
     Public Property Status As ReceiverStatus
 
+    Public ReadOnly Property StatusTranslated As String
+        Get
+            Dim oStatus = Status.ToString()
+            Return My.Resources.Model.ResourceManager.GetString(oStatus)
+        End Get
+    End Property
+
+    Public Property SignedDate As DateTime = DateTime.MinValue
+
     Public ReadOnly Property HasId As Boolean
         Get
             Return Id > 0

EnvelopeGenerator.Common/Models/ReceiverModel.vb

@@ -1,6 +1,5 @@
-Imports System.Data
-Imports System.Data.Common
-Imports System.Data.SqlClient
+Imports System.Data.SqlClient
+Imports System.Net.Mail
 Imports DigitalData.Modules.Base
 Imports EnvelopeGenerator.Common.Constants
 
@@ -12,14 +11,28 @@ Public Class ReceiverModel
     End Sub
 
     Private Function ToReceiver(pRow As DataRow, pColorIndex As Integer) As EnvelopeReceiver
+
+        Dim EmailAdress As String = pRow.ItemEx("EMAIL_ADDRESS", "")
+        Dim EnvelopeId As Integer = pRow.ItemEx("ENVELOPE_ID", 0)
+        Dim SignedDate As DateTime = DateTime.MinValue
+        Dim ReceiverSignedStatus As ReceiverStatus = ReceiverStatus.Unsigned
+
+        If String.IsNullOrEmpty(EmailAdress) = False Then
+            SignedDate = GetSignedDate(EmailAdress, EnvelopeId)
+            If SignedDate <> DateTime.MinValue Then
+                ReceiverSignedStatus = ReceiverStatus.Signed
+            End If
+        End If
+
         Return New EnvelopeReceiver() With {
             .Id = pRow.ItemEx("GUID", 0),
             .Email = pRow.ItemEx("EMAIL_ADDRESS", ""),
             .Name = pRow.ItemEx("NAME", ""),
             .Sequence = pRow.ItemEx("SEQUENCE", 0),
             .Signature = pRow.ItemEx("SIGNATURE", ""),
-            .Status = ReceiverStatus.Unsigned,
-            .ColorType = DirectCast(pColorIndex + 1, ColorType)
+            .Status = ReceiverSignedStatus,
+            .ColorType = DirectCast(pColorIndex + 1, ColorType),
+            .SignedDate = SignedDate
         }
     End Function
 
@@ -211,5 +224,15 @@ Public Class ReceiverModel
         End Try
     End Function
 
+    Private Function GetSignedDate(pEmailAdress As String, pEnvleopeId As Integer) As Date
+        Try
+            Return Database.GetScalarValue($"SELECT ACTION_DATE FROM [DD_ECM].[dbo].[TBSIG_ENVELOPE_HISTORY] WHERE ENVELOPE_ID = {pEnvleopeId}
+                                                AND USER_REFERENCE = '{pEmailAdress}' AND [STATUS] = 2002")
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
 
 End Class

EnvelopeGenerator.Common/Strings/Model.Designer.vb

@@ -100,6 +100,24 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Dokument geöffnet ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property DocumentOpened() As String
+            Get
+                Return ResourceManager.GetString("DocumentOpened", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Dokument unterzeichnet ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property DocumentSigned() As String
+            Get
+                Return ResourceManager.GetString("DocumentSigned", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Entwurf ähnelt.
         '''</summary>
@@ -109,6 +127,87 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Archiviert ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property EnvelopeArchived() As String
+            Get
+                Return ResourceManager.GetString("EnvelopeArchived", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Vollständig signiert ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property EnvelopeCompletelySigned() As String
+            Get
+                Return ResourceManager.GetString("EnvelopeCompletelySigned", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Erstellt ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property EnvelopeCreated() As String
+            Get
+                Return ResourceManager.GetString("EnvelopeCreated", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Gelöscht ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property EnvelopeDeleted() As String
+            Get
+                Return ResourceManager.GetString("EnvelopeDeleted", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Teil signiert ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property EnvelopePartlySigned() As String
+            Get
+                Return ResourceManager.GetString("EnvelopePartlySigned", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Umschlag in Queue ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property EnvelopeQueued() As String
+            Get
+                Return ResourceManager.GetString("EnvelopeQueued", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Gespeichert ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property EnvelopeSaved() As String
+            Get
+                Return ResourceManager.GetString("EnvelopeSaved", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Gesendet ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property EnvelopeSent() As String
+            Get
+                Return ResourceManager.GetString("EnvelopeSent", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die DMS ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property EnvelopeTransmittedDMS() As String
+            Get
+                Return ResourceManager.GetString("EnvelopeTransmittedDMS", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Teil-Signiert ähnelt.
         '''</summary>
@@ -153,5 +252,32 @@ Namespace My.Resources
                 Return ResourceManager.GetString("Signature", resourceCulture)
             End Get
         End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Signatur bestätigt ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property SignatureConfirmed() As String
+            Get
+                Return ResourceManager.GetString("SignatureConfirmed", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Signiert ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Signed() As String
+            Get
+                Return ResourceManager.GetString("Signed", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Unsigniert ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Unsigned() As String
+            Get
+                Return ResourceManager.GetString("Unsigned", resourceCulture)
+            End Get
+        End Property
     End Class
 End Namespace

EnvelopeGenerator.Common/Strings/Model.en.resx

@@ -126,9 +126,42 @@
   <data name="Created" xml:space="preserve">
     <value>Created</value>
   </data>
+  <data name="DocumentOpened" xml:space="preserve">
+    <value>Document opened</value>
+  </data>
+  <data name="DocumentSigned" xml:space="preserve">
+    <value>Document signed</value>
+  </data>
   <data name="Draft" xml:space="preserve">
     <value>Draft</value>
   </data>
+  <data name="EnvelopeArchived" xml:space="preserve">
+    <value>Archived</value>
+  </data>
+  <data name="EnvelopeCompletelySigned" xml:space="preserve">
+    <value>Completely signed</value>
+  </data>
+  <data name="EnvelopeCreated" xml:space="preserve">
+    <value>Created</value>
+  </data>
+  <data name="EnvelopeDeleted" xml:space="preserve">
+    <value>Deleted</value>
+  </data>
+  <data name="EnvelopePartlySigned" xml:space="preserve">
+    <value>Partly signed</value>
+  </data>
+  <data name="EnvelopeQueued" xml:space="preserve">
+    <value>Queued</value>
+  </data>
+  <data name="EnvelopeSaved" xml:space="preserve">
+    <value>Saved</value>
+  </data>
+  <data name="EnvelopeSent" xml:space="preserve">
+    <value>Sent</value>
+  </data>
+  <data name="EnvelopeTransmittedDMS" xml:space="preserve">
+    <value>DMS</value>
+  </data>
   <data name="ReadAndSign" xml:space="preserve">
     <value>ReadAndSign</value>
   </data>
@@ -141,4 +174,13 @@
   <data name="Signature" xml:space="preserve">
     <value>Signature</value>
   </data>
+  <data name="SignatureConfirmed" xml:space="preserve">
+    <value>Signature confirmed</value>
+  </data>
+  <data name="Signed" xml:space="preserve">
+    <value>Signed</value>
+  </data>
+  <data name="Unsigned" xml:space="preserve">
+    <value>Unsigned</value>
+  </data>
 </root>

EnvelopeGenerator.Common/Strings/Model.resx

@@ -129,9 +129,42 @@
   <data name="Created" xml:space="preserve">
     <value>Erstellt</value>
   </data>
+  <data name="DocumentOpened" xml:space="preserve">
+    <value>Dokument geöffnet</value>
+  </data>
+  <data name="DocumentSigned" xml:space="preserve">
+    <value>Dokument unterzeichnet</value>
+  </data>
   <data name="Draft" xml:space="preserve">
     <value>Entwurf</value>
   </data>
+  <data name="EnvelopeArchived" xml:space="preserve">
+    <value>Archiviert</value>
+  </data>
+  <data name="EnvelopeCompletelySigned" xml:space="preserve">
+    <value>Vollständig signiert</value>
+  </data>
+  <data name="EnvelopeCreated" xml:space="preserve">
+    <value>Erstellt</value>
+  </data>
+  <data name="EnvelopeDeleted" xml:space="preserve">
+    <value>Gelöscht</value>
+  </data>
+  <data name="EnvelopePartlySigned" xml:space="preserve">
+    <value>Teil signiert</value>
+  </data>
+  <data name="EnvelopeQueued" xml:space="preserve">
+    <value>Umschlag in Queue</value>
+  </data>
+  <data name="EnvelopeSaved" xml:space="preserve">
+    <value>Gespeichert</value>
+  </data>
+  <data name="EnvelopeSent" xml:space="preserve">
+    <value>Gesendet</value>
+  </data>
+  <data name="EnvelopeTransmittedDMS" xml:space="preserve">
+    <value>DMS</value>
+  </data>
   <data name="PartlySigned" xml:space="preserve">
     <value>Teil-Signiert</value>
   </data>
@@ -147,4 +180,13 @@
   <data name="Signature" xml:space="preserve">
     <value>Signatur</value>
   </data>
+  <data name="SignatureConfirmed" xml:space="preserve">
+    <value>Signatur bestätigt</value>
+  </data>
+  <data name="Signed" xml:space="preserve">
+    <value>Signiert</value>
+  </data>
+  <data name="Unsigned" xml:space="preserve">
+    <value>Unsigniert</value>
+  </data>
 </root>