08.01.2024

EnvelopeGenerator.Common/Constants.vb

@@ -73,6 +73,8 @@
         Portrait = 0
         Landscape = 1
     End Enum
+
+
 #End Region
 
 

EnvelopeGenerator.Common/Entities/Envelope.vb

@@ -3,7 +3,7 @@
     Public Property UserId As Integer
     Public Property Title As String = ""
     Public Property EnvelopeType As Integer
-    Public Property ContractType As Constants.ContractType
+    Public Property ContractType As Integer
     Public Property Status As Constants.EnvelopeStatus = Constants.EnvelopeStatus.EnvelopeCreated
     Public Property Uuid As String = Guid.NewGuid.ToString()
     Public Property UseAccessCode As Boolean = False

EnvelopeGenerator.Common/Entities/EnvelopeType.vb

@@ -0,0 +1,26 @@
+Public Class EnvelopeType
+
+    Public Property Id As Integer = 0
+    Public Property Title As String
+    Public Property UseAccessCode As Boolean
+    Public Property ContractType As Integer ' Unbenutzt
+
+    Public Property Language As String
+    Public Property CertificationType As Constants.CertificationType = Constants.CertificationType.ElectronicSignature
+    Public Property SendReminderEmails As Boolean = False
+    Public Property FirstReminderDays As Integer = 0
+    Public Property ReminderIntervalDays As Integer = 0
+
+    Public Property ExpiresWhen As Date
+    Public Property ExpiresWarningWhen As Date
+    Public Property ExpiresWhenDays As Integer
+    Public Property ExpiresWarningWhenDays As Integer
+
+    Public Property FinalEmailToCreator As Constants.FinalEmailType
+    Public Property FinalEmailToReceivers As Constants.FinalEmailType
+
+    Public Overrides Function ToString() As String
+        Return Title
+    End Function
+
+End Class

EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj

@@ -136,6 +136,7 @@
     <Compile Include="Entities\EnvelopeHistoryEntry.vb" />
     <Compile Include="Entities\EnvelopeReceiver.vb" />
     <Compile Include="Entities\EnvelopeResponse.vb" />
+    <Compile Include="Entities\EnvelopeType.vb" />
     <Compile Include="Entities\State.vb" />
     <Compile Include="Entities\User.vb" />
     <Compile Include="Helpers.vb" />
@@ -155,6 +156,7 @@
     <Compile Include="Models\EnvelopeModel.vb" />
     <Compile Include="Models\HistoryModel.vb" />
     <Compile Include="Models\ReceiverModel.vb" />
+    <Compile Include="Models\EnvelopeTypeModel.vb" />
     <Compile Include="Models\ReportModel.vb" />
     <Compile Include="Models\UserModel.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -26,11 +26,11 @@ Public Class EnvelopeModel
             .Id = pRow.ItemEx("GUID", 0),
             .Title = pRow.ItemEx("TITLE", ""),
             .EnvelopeType = pRow.ItemEx("ENVELOPE_TYPE", 0),
-            .ContractType = ObjectEx.ToEnum(Of Constants.ContractType)(pRow.ItemEx("CONTRACT_TYPE", Constants.ContractType.Contract.ToString())),
+            .ContractType = pRow.ItemEx("CONTRACT_TYPE", 0),
             .Uuid = pRow.ItemEx("ENVELOPE_UUID", ""),
             .Message = pRow.ItemEx("MESSAGE", ""),
             .UserId = pRow.ItemEx("USER_ID", 0),
-            .Language = pRow.ItemEx("MESSAGE", "de-DE"),
+            .Language = pRow.ItemEx("LANGUAGE", "de-DE"),
             .Status = ObjectEx.ToEnum(Of Constants.EnvelopeStatus)(pRow.ItemEx("STATUS", Constants.EnvelopeStatus.EnvelopeCreated.ToString())),
             .AddedWhen = pRow.Item("ADDED_WHEN"),
             .CertificationType = ObjectEx.ToEnum(Of Constants.CertificationType)(pRow.ItemEx("CERTIFICATION_TYPE", Constants.CertificationType.ElectronicSignature.ToString())),
@@ -132,16 +132,13 @@ Public Class EnvelopeModel
 
     Public Function Insert(pEnvelope As Envelope) As Boolean
         Try
-            Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE] (MESSAGE, ENVELOPE_UUID, STATUS, USER_ID, LANGUAGE, CERTIFICATION_TYPE, CONTRACT_TYPE) "
-            oSql += " VALUES (@MESSAGE, @UUID, @STATUS, @USER_ID, @LANGUAGE, @CERTIFICATION_TYPE, @CONTRACT_TYPE)"
+            Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE] (MESSAGE, ENVELOPE_UUID, STATUS, USER_ID) "
+            oSql += " VALUES (@MESSAGE, @UUID, @STATUS, @USER_ID)"
             Dim oCommand As New SqlCommand(oSql)
             oCommand.Parameters.Add("MESSAGE", SqlDbType.NVarChar).Value = String.Empty
             oCommand.Parameters.Add("UUID", SqlDbType.NVarChar).Value = pEnvelope.Uuid
             oCommand.Parameters.Add("STATUS", SqlDbType.Int).Value = Constants.EnvelopeStatus.EnvelopeCreated
             oCommand.Parameters.Add("USER_ID", SqlDbType.Int).Value = pEnvelope.UserId
-            oCommand.Parameters.Add("LANGUAGE", SqlDbType.NVarChar).Value = pEnvelope.Language
-            oCommand.Parameters.Add("CERTIFICATION_TYPE", SqlDbType.Int).Value = pEnvelope.CertificationType
-            oCommand.Parameters.Add("CONTRACT_TYPE", SqlDbType.Int).Value = pEnvelope.ContractType
 
             If Database.ExecuteNonQuery(oCommand) Then
                 pEnvelope.Id = GetEnvelopeId(pEnvelope)

EnvelopeGenerator.Common/Models/EnvelopeTypeModel.vb

@@ -0,0 +1,37 @@
+Imports DigitalData.Modules.Base
+
+Public Class EnvelopeTypeModel
+    Inherits BaseModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState)
+    End Sub
+
+    Private Function ToEnvelopeType(pRow As DataRow) As EnvelopeType
+        Return New EnvelopeType() With {
+            .Id = pRow.ItemEx("GUID", 0),
+            .Title = pRow.ItemEx("TITLE", ""),
+            .UseAccessCode = pRow.ItemEx("USE_ACCESS_CODE", False),
+            .Language = pRow.ItemEx("LANGUAGE", "de"),
+            .ExpiresWhenDays = pRow.ItemEx("EXPIRES_DAYS", 0),
+            .ExpiresWarningWhenDays = pRow.ItemEx("EXPIRES_WARNING_DAYS", 0),
+            .SendReminderEmails = pRow.ItemEx("SEND_REMINDER_EMAILS", 0),
+            .FirstReminderDays = pRow.ItemEx("FIRST_REMINDER_DAYS", 0),
+            .ReminderIntervalDays = pRow.ItemEx("REMINDER_INTERVAL_DAYS", 0),
+            .FinalEmailToCreator = pRow.ItemEx("FINAL_EMAIL_TO_CREATOR", 0),
+            .FinalEmailToReceivers = pRow.ItemEx("FINAL_EMAIL_TO_RECEIVERS", 0),
+            .ContractType = pRow.ItemEx("CONTRACT_TYPE", 0),
+            .CertificationType = pRow.ItemEx("CERTIFICATION_TYPE", 0)
+        }
+    End Function
+
+    Public Function List() As IEnumerable(Of EnvelopeType)
+        Dim oSql As String = $"SELECT * FROM TBSIG_ENVELOPE_TYPE"
+        Dim oTable As DataTable = Database.GetDatatable(oSql)
+
+        Return oTable.Rows.
+            Cast(Of DataRow).
+            Select(AddressOf ToEnvelopeType).
+            ToList()
+    End Function
+End Class