2023-08-07

EnvelopeGenerator.Common/Constants.vb

@@ -3,6 +3,7 @@
     Public Enum EnvelopeStatus
         Created = 0
         Saved = 1
+        Sent = 2
     End Enum
 
     Public Enum ElementType

EnvelopeGenerator.Common/Entities/EnvelopeHistoryEntry.vb

@@ -0,0 +1,10 @@
+Public Class EnvelopeHistoryEntry
+    Public EnvelopeId As Integer
+    Public Status As Constants.EnvelopeStatus
+    Public UserEmailAddress As String
+    Public ActionTitle As String
+    Public ActionDescription As String
+    Public AddedWhen As Date
+
+
+End Class

EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj

@@ -0,0 +1,149 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{6EA0C51F-C2B1-4462-8198-3DE0B32B74F8}</ProjectGuid>
+    <OutputType>Library</OutputType>
+    <RootNamespace>EnvelopeGenerator.Common</RootNamespace>
+    <AssemblyName>EnvelopeGenerator.Common</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>Windows</MyType>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
+    <Deterministic>true</Deterministic>
+    <TargetFrameworkProfile />
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>EnvelopeGenerator.Common.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>EnvelopeGenerator.Common.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="DigitalData.Modules.Base, Version=1.3.4.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Config">
+      <HintPath>..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Database">
+      <HintPath>..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Logging, Version=2.6.2.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Configuration" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.IO.Compression" />
+    <Reference Include="System.Runtime.Serialization" />
+    <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Transactions" />
+    <Reference Include="System.Web" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Config.vb" />
+    <Compile Include="Constants.vb" />
+    <Compile Include="DbConfig.vb" />
+    <Compile Include="Entities\ElementMetadata.vb" />
+    <Compile Include="Entities\Envelope.vb" />
+    <Compile Include="Entities\EnvelopeDocument.vb" />
+    <Compile Include="Entities\EnvelopeDocumentElement.vb" />
+    <Compile Include="Entities\EnvelopeHistoryEntry.vb" />
+    <Compile Include="Entities\EnvelopeReceiver.vb" />
+    <Compile Include="Entities\State.vb" />
+    <Compile Include="Models\BaseModel.vb" />
+    <Compile Include="Models\DocumentModel.vb" />
+    <Compile Include="Models\ElementModel.vb" />
+    <Compile Include="Models\EnvelopeModel.vb" />
+    <Compile Include="Models\HistoryModel.vb" />
+    <Compile Include="Models\ReceiverModel.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="Strings\Envelope.Designer.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Strings\Envelope.resx" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

EnvelopeGenerator.Common/Models/BaseModel.vb

@@ -1,5 +1,6 @@
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
+Imports System.Data
 
 Public MustInherit Class BaseModel
     Protected Database As MSSQLServer

EnvelopeGenerator.Common/Models/DocumentModel.vb

@@ -1,4 +1,5 @@
-Imports DigitalData.Modules.Base
+Imports System.Data
+Imports DigitalData.Modules.Base
 Public Class DocumentModel
     Inherits BaseModel
 

EnvelopeGenerator.Common/Models/ElementModel.vb

@@ -1,4 +1,5 @@
-Imports DigitalData.Modules.Base
+Imports System.Data
+Imports DigitalData.Modules.Base
 
 Public Class ElementModel
     Inherits BaseModel

EnvelopeGenerator.Common/Models/EnvelopeModel.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Base
+Imports System.Data
 
 Public Class EnvelopeModel
     Inherits BaseModel

EnvelopeGenerator.Common/Models/HistoryModel.vb

@@ -0,0 +1,43 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+Public Class HistoryModel
+    Inherits BaseModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState)
+    End Sub
+
+    Public Function Insert(pHistory As EnvelopeHistoryEntry) As Boolean
+        Try
+            Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_HISTORY]
+               ([ENVELOPE_ID]
+               ,[STATUS]
+               ,[USER_EMAIL_ADDRESS]
+               ,[ACTION_TITLE]
+               ,[ACTION_DESCRIPTION])
+            VALUES
+               (@ENVELOPE_ID
+               ,@STATUS
+               ,@EMAIL
+               ,@TITLE
+               ,@DESCRIPTION"
+
+            Dim oCommand As New SqlCommand(oSql)
+            oCommand.Parameters.Add("ENVELOPE_ID", SqlDbType.Int).Value = pHistory.EnvelopeId
+            oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = pHistory.Status
+            oCommand.Parameters.Add("EMAIL", SqlDbType.NVarChar).Value = pHistory.UserEmailAddress
+            oCommand.Parameters.Add("TITLE", SqlDbType.NVarChar).Value = pHistory.ActionTitle
+            oCommand.Parameters.Add("DESCRIPTION", SqlDbType.NVarChar).Value = pHistory.ActionDescription
+
+            If Database.ExecuteNonQuery(oCommand) Then
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+End Class

EnvelopeGenerator.Common/Models/ReceiverModel.vb

@@ -1,4 +1,5 @@
-Imports System.Data.Common
+Imports System.Data
+Imports System.Data.Common
 Imports System.Data.SqlClient
 Imports DigitalData.Modules.Base
 Public Class ReceiverModel
@@ -57,7 +58,6 @@ Public Class ReceiverModel
 
     Public Function Update(pReceiver As EnvelopeReceiver, pTransaction As SqlTransaction) As Boolean
         Try
-            ' TODO: Update ENVELOPE_RECEIVER instead
             Dim oSql As String = "UPDATE [dbo].[TBSIG_USER_RECEIVER]
                 SET [NAME] = @NAME
                   ,[COMPANY_NAME] = @COMPANY

EnvelopeGenerator.Common/My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+

EnvelopeGenerator.Common/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>false</MySubMain>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <ApplicationType>1</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

EnvelopeGenerator.Common/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("Base")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("Base")>
+<Assembly: AssemblyCopyright("Copyright © 2023")>
+<Assembly: AssemblyTrademark("1.3.4.0")>
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
+<Assembly: Guid("f097830c-82fe-4cd0-8df6-e458522c1ddd")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+' indem Sie "*" wie unten gezeigt eingeben:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.3.4.0")>
+<Assembly: AssemblyFileVersion("1.3.4.0")>

EnvelopeGenerator.Common/My Project/Resources.Designer.vb

@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EnvelopeGenerator.Common.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

EnvelopeGenerator.Common/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

EnvelopeGenerator.Common/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.5.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.EnvelopeGenerator.Common.My.MySettings
+            Get
+                Return Global.EnvelopeGenerator.Common.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

EnvelopeGenerator.Common/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

EnvelopeGenerator.Common/Strings/Envelope.Designer.vb

@@ -43,7 +43,7 @@ Namespace My.Resources
         Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
-                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EnvelopeGenerator.Form.Envelope", GetType(Envelope).Assembly)
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EnvelopeGenerator.Common.Envelope", GetType(Envelope).Assembly)
                     resourceMan = temp
                 End If
                 Return resourceMan

EnvelopeGenerator.Common_ALT/Config.vb

@@ -0,0 +1,6 @@
+Imports DigitalData.Modules.Config.ConfigAttributes
+
+Public Class Config
+    <ConnectionString>
+    Property ConnectionString As String = ""
+End Class

EnvelopeGenerator.Common_ALT/Constants.vb

@@ -0,0 +1,17 @@
+Public Class Constants
+
+    Public Enum EnvelopeStatus
+        Created = 0
+        Saved = 1
+        Sent = 2
+    End Enum
+
+    Public Enum ElementType
+        Signature = 0
+    End Enum
+
+    Public Enum ElementStatus
+        Created = 0
+    End Enum
+
+End Class

EnvelopeGenerator.Common_ALT/DbConfig.vb

@@ -0,0 +1,3 @@
+Public Class DbConfig
+    Public Property DocumentPath As String = ""
+End Class

EnvelopeGenerator.Common_ALT/Entities/ElementMetadata.vb

@@ -0,0 +1,4 @@
+Public Class ElementMetadata
+    Public Property Index As Integer
+    Public Property Page As Integer
+End Class

EnvelopeGenerator.Common_ALT/Entities/Envelope.vb

@@ -0,0 +1,48 @@
+Public Class Envelope
+    Public Property Id As Integer = 0
+    Public Property Subject As String
+    Public Property Message As String
+    Public Property UserId As Integer
+    Public Property Uuid As String = Guid.NewGuid.ToString()
+    Public Property Status As Constants.EnvelopeStatus
+
+    Public Property Documents As New List(Of EnvelopeDocument)
+    Public Property Receivers As New List(Of EnvelopeReceiver)
+
+    Public Function Validate() As List(Of String)
+        Dim oErrors As New List(Of String)
+
+        If String.IsNullOrWhiteSpace(Subject) Then
+            oErrors.Add(My.Resources.Envelope.Missing_Subject)
+        End If
+
+        If String.IsNullOrWhiteSpace(Message) Then
+            oErrors.Add(My.Resources.Envelope.Missing_Message)
+        End If
+
+        If Documents.Count = 0 Then
+            oErrors.Add(My.Resources.Envelope.Missing_Documents)
+        End If
+
+        If Receivers.Count = 0 Then
+            oErrors.Add(My.Resources.Envelope.Missing_Receivers)
+        End If
+
+        For Each Receiver In Receivers
+            If IsValidEmailAddress(Receiver.Email) = False Then
+                oErrors.Add(String.Format(My.Resources.Envelope.Invalid_Email_Address, Receiver.Name))
+            End If
+        Next
+
+        Return oErrors
+    End Function
+
+    Private Function IsValidEmailAddress(pEmailAddress As String) As Boolean
+        Try
+            Dim oAddress = New System.Net.Mail.MailAddress(pEmailAddress)
+            Return oAddress.Address = pEmailAddress
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+End Class

EnvelopeGenerator.Common_ALT/Entities/EnvelopeDocument.vb

@@ -0,0 +1,23 @@
+Imports System.IO
+
+Public Class EnvelopeDocument
+    Public Property Id As Integer
+
+    Public Property FileInfo As FileInfo
+
+    Public Property IsTempFile As Boolean = True
+
+    Public Property EnvelopeId As Integer = 0
+
+    Public ReadOnly Property Filename As String
+        Get
+            Return FileInfo.Name
+        End Get
+    End Property
+
+    Public ReadOnly Property Filepath As String
+        Get
+            Return FileInfo.FullName
+        End Get
+    End Property
+End Class

EnvelopeGenerator.Common_ALT/Entities/EnvelopeDocumentElement.vb

@@ -0,0 +1,15 @@
+Public Class EnvelopeDocumentElement
+    Public Property Id As Integer = 0
+    Public Property X As Double
+    Public Property Y As Double
+    Public Property Width As Double
+    Public Property Height As Double
+    Public Property ElementType As String
+    Public Property DocumentId As Integer
+    Public Property ReceiverId As Integer
+    Public Property Required As Boolean = False
+    Public Property [ReadOnly] As Boolean = False
+    Public Property Page As Integer = 1
+    Public Property Status As Constants.ElementStatus = Constants.ElementStatus.Created
+    Public Property AnnotationIndex As Integer
+End Class

EnvelopeGenerator.Common_ALT/Entities/EnvelopeHistoryEntry.vb

@@ -0,0 +1,12 @@
+Imports EnvelopeGenerator.Common.Constants
+
+Public Class EnvelopeHistoryEntry
+    Public EnvelopeId As Integer
+    Public Status As EnvelopeStatus
+    Public UserEmailAddress As String
+    Public ActionTitle As String
+    Public ActionDescription As String
+    Public AddedWhen As Date
+
+
+End Class

EnvelopeGenerator.Common_ALT/Entities/EnvelopeReceiver.vb

@@ -0,0 +1,26 @@
+Imports DigitalData.Modules.Base
+
+Public Class EnvelopeReceiver
+    Public Property Id As Integer
+    Public Property UserId As Integer
+
+    Public Property Name As String
+    Public Property Company As String = ""
+    Public Property JobTitle As String = ""
+
+    Public Property Email As String
+    Public ReadOnly Property Signature As String
+        Get
+            Return StringEx.GetChecksum(Email.ToUpper)
+        End Get
+    End Property
+    Public ReadOnly Property HasId As Boolean
+        Get
+            Return Id > 0
+        End Get
+    End Property
+
+    Public Property Sequence As Integer = 0
+    Public Property PrivateMessage As String = ""
+    Public Property AccessCode As String = ""
+End Class

EnvelopeGenerator.Common_ALT/Entities/State.vb

@@ -0,0 +1,10 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+
+Public Class State
+    Public Property UserId As Integer
+    Public Property Config As Config
+    Public Property DbConfig As DbConfig
+    Public Property LogConfig As LogConfig
+    Public Property Database As MSSQLServer
+End Class

EnvelopeGenerator.Common_ALT/EnvelopeGenerator.Common.old.vbproj

@@ -0,0 +1,44 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <RootNamespace>EnvelopeGenerator.Common</RootNamespace>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="NLog" Version="5.0.5" />
+    <PackageReference Include="System.Data.SqlClient" Version="4.8.5" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <Reference Include="DigitalData.Modules.Base">
+      <HintPath>..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Config">
+      <HintPath>..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Database">
+      <HintPath>..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Logging">
+      <HintPath>..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+  </ItemGroup>
+
+  <ItemGroup>
+    <Compile Update="Strings\Envelope.Designer.vb">
+      <DesignTime>True</DesignTime>
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Envelope.resx</DependentUpon>
+    </Compile>
+  </ItemGroup>
+
+  <ItemGroup>
+    <EmbeddedResource Update="Strings\Envelope.resx">
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <LastGenOutput>Envelope.Designer.vb</LastGenOutput>
+      <Generator>ResXFileCodeGenerator</Generator>
+    </EmbeddedResource>
+  </ItemGroup>
+
+</Project>

EnvelopeGenerator.Common_ALT/Models/BaseModel.vb

@@ -0,0 +1,15 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+Imports System.Data
+
+Public MustInherit Class BaseModel
+    Protected Database As MSSQLServer
+    Protected Logger As Logger
+    Protected State As State
+
+    Public Sub New(pState As State)
+        Logger = pState.LogConfig.GetLogger()
+        Database = pState.Database
+        State = pState
+    End Sub
+End Class

EnvelopeGenerator.Common_ALT/Models/DocumentModel.vb

@@ -0,0 +1,33 @@
+Imports System.Data
+Imports DigitalData.Modules.Base
+Public Class DocumentModel
+    Inherits BaseModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState)
+    End Sub
+
+    Private Function ToDocument(pRow As DataRow) As EnvelopeDocument
+        Return New EnvelopeDocument() With {
+            .Id = pRow.ItemEx("GUID", 0),
+            .EnvelopeId = pRow.ItemEx("ENVELOPE_ID", 0),
+            .FileInfo = New IO.FileInfo(pRow.ItemEx("FILEPATH", "")),
+            .IsTempFile = False
+        }
+    End Function
+
+    Public Function List(pEnvelopeId As Integer) As IEnumerable(Of EnvelopeDocument)
+        Try
+            Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE_DOCUMENT] WHERE ENVELOPE_ID = {pEnvelopeId}"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+                Select(AddressOf ToDocument).
+                ToList()
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+End Class

EnvelopeGenerator.Common_ALT/Models/ElementModel.vb

@@ -0,0 +1,56 @@
+Imports System.Data
+Imports DigitalData.Modules.Base
+
+Public Class ElementModel
+    Inherits BaseModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState)
+    End Sub
+
+    Private Function ToElement(pRow As DataRow) As EnvelopeDocumentElement
+        Return New EnvelopeDocumentElement() With {
+            .Id = pRow.ItemEx("GUID", 0),
+            .DocumentId = pRow.ItemEx("DOCUMENT_ID", 0),
+            .ReceiverId = pRow.ItemEx("RECEIVER_ID", 0),
+            .ElementType = [Enum].Parse(GetType(Constants.ElementType), pRow.ItemEx("ELEMENT_TYPE", Constants.ElementType.Signature.ToString)),
+            .X = pRow.ItemEx("POSITION_X", 0.0),
+            .Y = pRow.ItemEx("POSITION_Y", 0.0),
+            .Width = pRow.ItemEx("WIDTH", 0.0),
+            .Height = pRow.ItemEx("HEIGHT", 0.0),
+            .Page = pRow.ItemEx("PAGE", 0),
+            .AnnotationIndex = pRow.ItemEx("ANNOTATION_INDEX", 0)
+        }
+    End Function
+
+    Public Function ElementsExist(pEnvelopeId As Integer, pReceiverId As Integer) As Boolean
+        Try
+            Dim oSql = $"SELECT COUNT(*) FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] T
+                JOIN TBSIG_ENVELOPE_DOCUMENT T2 ON T.DOCUMENT_ID = T2.GUID
+                WHERE T.RECEIVER_ID = {pReceiverId} AND T2.ENVELOPE_ID = {pEnvelopeId}"
+            Dim oElementCount As Integer = Database.GetScalarValue(oSql)
+
+            Return oElementCount > 0
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function List(pDocumentId As Integer) As List(Of EnvelopeDocumentElement)
+        Try
+            Dim oSql = $"SELECT * FROM [dbo].[TBSIG_DOCUMENT_RECEIVER_ELEMENT] WHERE DOCUMENT_ID = {pDocumentId} ORDER BY PAGE ASC, ANNOTATION_INDEX ASC"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+                Select(AddressOf ToElement).
+                ToList()
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+End Class

EnvelopeGenerator.Common_ALT/Models/EnvelopeModel.vb

@@ -0,0 +1,102 @@
+Imports System.Data.SqlClient
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Base
+Imports System.Data
+
+Public Class EnvelopeModel
+    Inherits BaseModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState)
+    End Sub
+
+    Private Function ToEnvelope(pRow As DataRow) As Envelope
+        Dim oEnvelope = New Envelope() With {
+            .Id = pRow.ItemEx("GUID", 0),
+            .Uuid = pRow.ItemEx("ENVELOPE_UUID", ""),
+            .Subject = pRow.ItemEx("SUBJECT", ""),
+            .Message = pRow.ItemEx("MESSAGE", ""),
+            .UserId = State.UserId,
+            .Status = ObjectEx.ToEnum(Of Constants.EnvelopeStatus)(pRow.ItemEx("STATUS", "Created"))
+        }
+
+        Return oEnvelope
+    End Function
+
+    Public Function List() As IEnumerable(Of Envelope)
+        Try
+            Dim oSql = $"SELECT * FROM [dbo].[TBSIG_ENVELOPE] WHERE USER_ID = {State.UserId}"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+                Select(AddressOf ToEnvelope).
+                ToList()
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Function Insert(pEnvelope As Envelope) As Boolean
+        Try
+            Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE] (SUBJECT, MESSAGE, ENVELOPE_UUID, STATUS, USER_ID) VALUES (@SUBJECT, @MESSAGE, @UUID, @STATUS, @USER_ID)"
+            Dim oCommand As New SqlCommand(oSql)
+            oCommand.Parameters.Add("SUBJECT", SqlDbType.NVarChar).Value = String.Empty
+            oCommand.Parameters.Add("MESSAGE", SqlDbType.NVarChar).Value = String.Empty
+            oCommand.Parameters.Add("UUID", SqlDbType.NVarChar).Value = pEnvelope.Uuid
+            oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = Constants.EnvelopeStatus.Created
+            oCommand.Parameters.Add("USER_ID", SqlDbType.Int).Value = pEnvelope.UserId
+
+            If Database.ExecuteNonQuery(oCommand) Then
+                pEnvelope.Id = GetEnvelopeId(pEnvelope)
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function Update(pEnvelope As Envelope, pTransaction As SqlTransaction) As Boolean
+        Try
+            Dim oSql = "UPDATE [dbo].[TBSIG_ENVELOPE] SET [SUBJECT] = @SUBJECT, [MESSAGE] = @MESSAGE, [STATUS] = @STATUS WHERE GUID = @ID AND USER_ID = @USER_ID"
+            Dim oCommand As New SqlCommand(oSql)
+            oCommand.Parameters.Add("SUBJECT", SqlDbType.NVarChar).Value = pEnvelope.Subject
+            oCommand.Parameters.Add("MESSAGE", SqlDbType.NVarChar).Value = pEnvelope.Message
+            oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = pEnvelope.Status
+
+            oCommand.Parameters.Add("ID", SqlDbType.Int).Value = pEnvelope.Id
+            oCommand.Parameters.Add("USER_ID", SqlDbType.Int).Value = pEnvelope.UserId
+
+            Return Database.ExecuteNonQuery(oCommand, pTransaction)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function Delete(pEnvelope As Envelope) As Boolean
+        Try
+            Dim oSql = $"DELETE FROM [dbo].[TBSIG_ENVELOPE] WHERE GUID = {pEnvelope.Id}"
+            Return Database.ExecuteNonQuery(oSql)
+
+        Catch ex As Exception
+            Return False
+            Logger.Error(ex)
+        End Try
+    End Function
+
+    Private Function GetEnvelopeId(pEnvelope As Envelope) As Integer
+        Try
+            Return Database.GetScalarValue($"SELECT MAX(GUID) FROM TBSIG_ENVELOPE WHERE USER_ID = {pEnvelope.UserId}")
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+End Class

EnvelopeGenerator.Common_ALT/Models/HistoryModel.vb

@@ -0,0 +1,43 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+Public Class HistoryModel
+    Inherits BaseModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState)
+    End Sub
+
+    Public Function Insert(pHistory As EnvelopeHistoryEntry) As Boolean
+        Try
+            Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_HISTORY]
+               ([ENVELOPE_ID]
+               ,[STATUS]
+               ,[USER_EMAIL_ADDRESS]
+               ,[ACTION_TITLE]
+               ,[ACTION_DESCRIPTION])
+            VALUES
+               (@ENVELOPE_ID
+               ,@STATUS
+               ,@EMAIL
+               ,@TITLE
+               ,@DESCRIPTION"
+
+            Dim oCommand As New SqlCommand(oSql)
+            oCommand.Parameters.Add("ENVELOPE_ID", SqlDbType.Int).Value = pHistory.EnvelopeId
+            oCommand.Parameters.Add("STATUS", SqlDbType.NVarChar).Value = pHistory.Status
+            oCommand.Parameters.Add("EMAIL", SqlDbType.NVarChar).Value = pHistory.UserEmailAddress
+            oCommand.Parameters.Add("TITLE", SqlDbType.NVarChar).Value = pHistory.ActionTitle
+            oCommand.Parameters.Add("DESCRIPTION", SqlDbType.NVarChar).Value = pHistory.ActionDescription
+
+            If Database.ExecuteNonQuery(oCommand) Then
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+End Class

EnvelopeGenerator.Common_ALT/Models/ReceiverModel.vb

@@ -0,0 +1,159 @@
+Imports System.Data
+Imports System.Data.Common
+Imports System.Data.SqlClient
+Imports DigitalData.Modules.Base
+Public Class ReceiverModel
+    Inherits BaseModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState)
+    End Sub
+
+    Private Function ToReceiver(pRow As DataRow) As EnvelopeReceiver
+        Return New EnvelopeReceiver() With {
+            .Id = pRow.ItemEx("GUID", 0),
+            .Email = pRow.ItemEx("EMAIL_ADDRESS", ""),
+            .Name = pRow.ItemEx("NAME", ""),
+            .Sequence = pRow.ItemEx("SEQUENCE", 0)
+        }
+    End Function
+
+    Public Function TestReceiverExists(pReceiver As EnvelopeReceiver) As Boolean
+        Try
+            Dim oGuid = Database.GetScalarValue($"SELECT COALESCE(GUID, 0) FROM TBSIG_RECEIVER WHERE EMAIL_ADDRESS = '{pReceiver.Email}'")
+            pReceiver.Id = oGuid
+            Return oGuid > 0
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function Insert(pReceiver As EnvelopeReceiver, pTransaction As SqlTransaction) As Boolean
+        Try
+            Dim oSql As String = "INSERT INTO [dbo].[TBSIG_RECEIVER]
+               ([EMAIL_ADDRESS]
+               ,[SIGNATURE])
+             VALUES
+               (@EMAIL
+               ,@SIGNATURE)"
+
+            Dim oCommand = New SqlCommand(oSql)
+            oCommand.Parameters.Add("EMAIL", SqlDbType.NVarChar).Value = pReceiver.Email
+            oCommand.Parameters.Add("SIGNATURE", SqlDbType.NVarChar).Value = pReceiver.Signature
+
+            Dim oResult = Database.ExecuteNonQuery(oCommand, pTransaction)
+            If oResult = True Then
+                pReceiver.Id = GetReceiverId(pReceiver.Email, pTransaction)
+            Else
+                Return False
+            End If
+
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function Update(pReceiver As EnvelopeReceiver, pTransaction As SqlTransaction) As Boolean
+        Try
+            Dim oSql As String = "UPDATE [dbo].[TBSIG_USER_RECEIVER]
+                SET [NAME] = @NAME
+                  ,[COMPANY_NAME] = @COMPANY
+                  ,[JOB_TITLE] = @JOB
+             WHERE RECEIVER_ID = @RECEIVER_ID"
+
+            Dim oCommand = New SqlCommand(oSql)
+            oCommand.Parameters.Add("NAME", SqlDbType.NVarChar).Value = pReceiver.Name
+            oCommand.Parameters.Add("COMPANY", SqlDbType.NVarChar).Value = pReceiver.Company
+            oCommand.Parameters.Add("JOB", SqlDbType.NVarChar).Value = pReceiver.JobTitle
+            oCommand.Parameters.Add("RECEIVER_ID", SqlDbType.Int).Value = pReceiver.Id
+            oCommand.Parameters.Add("USER_ID", SqlDbType.Int).Value = pReceiver.Id
+
+            Return Database.ExecuteNonQuery(oCommand, pTransaction)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function Unassign(pEnvelope As Envelope, pTransaction As SqlTransaction) As Boolean
+        Try
+            Return Database.ExecuteNonQuery($"DELETE FROM [dbo].[TBSIG_ENVELOPE_RECEIVER] WHERE [ENVELOPE_ID] = {pEnvelope.Id}", pTransaction)
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function Assign(pEnvelope As Envelope, pReceiver As EnvelopeReceiver, pTransaction As SqlTransaction) As Boolean
+        Dim oSql = "INSERT INTO [dbo].[TBSIG_ENVELOPE_RECEIVER]
+                   ([ENVELOPE_ID]
+                   ,[RECEIVER_ID]
+                   ,[PRIVATE_MESSAGE]
+                   ,[ACCESS_CODE]
+                   ,[NAME]
+                   ,[JOB_TITLE]
+                   ,[COMPANY_NAME]
+                   ,[SEQUENCE])
+             VALUES
+                   (@ENVELOPE_ID
+                   ,@RECEIVER_ID
+                   ,@MESSAGE
+                   ,@ACCESS_CODE
+                   ,@NAME
+                   ,@JOB
+                   ,@COMPANY
+                   ,@SEQUENCE)"
+
+        Dim oCommand As New SqlCommand(oSql)
+        oCommand.Parameters.Add("ENVELOPE_ID", SqlDbType.NVarChar).Value = pEnvelope.Id
+        oCommand.Parameters.Add("RECEIVER_ID", SqlDbType.NVarChar).Value = pReceiver.Id
+        oCommand.Parameters.Add("MESSAGE", SqlDbType.NVarChar).Value = pReceiver.PrivateMessage
+        oCommand.Parameters.Add("ACCESS_CODE", SqlDbType.NVarChar).Value = pReceiver.AccessCode
+        oCommand.Parameters.Add("NAME", SqlDbType.NVarChar).Value = pReceiver.Name
+        oCommand.Parameters.Add("JOB", SqlDbType.NVarChar).Value = pReceiver.JobTitle
+        oCommand.Parameters.Add("COMPANY", SqlDbType.NVarChar).Value = pReceiver.Company
+        oCommand.Parameters.Add("SEQUENCE", SqlDbType.NVarChar).Value = pReceiver.Sequence
+
+        Return Database.ExecuteNonQuery(oCommand, pTransaction)
+    End Function
+
+    Public Function List(pEnvelopeId As Integer) As IEnumerable(Of EnvelopeReceiver)
+        Try
+            Dim oSql = $"SELECT * FROM [dbo].[VWSIG_ENVELOPE_RECEIVERS] WHERE ENVELOPE_ID = {pEnvelopeId}"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+                Select(AddressOf ToReceiver).
+                ToList()
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Function Delete(pReceiverId As Integer, pDocumentId As Integer) As Boolean
+        Try
+            Dim oSql = $"DELETE FROM TBSIG_DOCUMENT_RECEIVER WHERE RECEIVER_ID = {pReceiverId} AND DOCUMENT_ID = {pDocumentId}"
+            Return Database.ExecuteNonQuery(oSql)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+
+        End Try
+    End Function
+
+    Private Function GetReceiverId(pEmailAddress As String, pTransaction As SqlTransaction) As Integer
+        Try
+            Return Database.GetScalarValue($"SELECT GUID FROM TBSIG_RECEIVER WHERE EMAIL_ADDRESS = '{pEmailAddress}'", pTransaction)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+End Class

EnvelopeGenerator.Common_ALT/Strings/Envelope.Designer.vb

@@ -0,0 +1,112 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Class Envelope
+        
+        Private Shared resourceMan As Global.System.Resources.ResourceManager
+        
+        Private Shared resourceCulture As Global.System.Globalization.CultureInfo
+        
+        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _
+        Friend Sub New()
+            MyBase.New
+        End Sub
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EnvelopeGenerator.Common.Envelope", GetType(Envelope).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Empfänger {0} hat keine gültige Email Addresse. ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Invalid_Email_Address() As String
+            Get
+                Return ResourceManager.GetString("Invalid Email Address", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Missing Documents ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Missing_Documents() As String
+            Get
+                Return ResourceManager.GetString("Missing Documents", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Missing Message ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Missing_Message() As String
+            Get
+                Return ResourceManager.GetString("Missing Message", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Missing Receivers ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Missing_Receivers() As String
+            Get
+                Return ResourceManager.GetString("Missing Receivers", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Missing Subject ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Missing_Subject() As String
+            Get
+                Return ResourceManager.GetString("Missing Subject", resourceCulture)
+            End Get
+        End Property
+    End Class
+End Namespace

EnvelopeGenerator.Common_ALT/Strings/Envelope.resx

@@ -0,0 +1,135 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Invalid Email Address" xml:space="preserve">
+    <value>Empfänger {0} hat keine gültige Email Addresse.</value>
+  </data>
+  <data name="Missing Documents" xml:space="preserve">
+    <value>Missing Documents</value>
+  </data>
+  <data name="Missing Message" xml:space="preserve">
+    <value>Missing Message</value>
+  </data>
+  <data name="Missing Receivers" xml:space="preserve">
+    <value>Missing Receivers</value>
+  </data>
+  <data name="Missing Subject" xml:space="preserve">
+    <value>Missing Subject</value>
+  </data>
+</root>

EnvelopeGenerator.Form/Controllers/EnvelopeEditorController.vb

@@ -5,6 +5,7 @@ Imports System.Runtime.Remoting.Messaging
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
+Imports EnvelopeGenerator.Common
 Imports EnvelopeGenerator.Form.My.Resources
 
 Public Class EnvelopeEditorController
@@ -66,7 +67,7 @@ Public Class EnvelopeEditorController
         Dim oTransaction = oConnection.BeginTransaction(IsolationLevel.ReadUncommitted)
 
         Try
-            pEnvelope.Status = Constants.EnvelopeStatus.Saved
+            pEnvelope.Status = Common.Constants.EnvelopeStatus.Created
 
             If SaveEnvelopeDocumentsToFilesystem(pEnvelope) = False Then
                 Throw New ApplicationException
@@ -97,7 +98,7 @@ Public Class EnvelopeEditorController
     End Function
 
     Public Function CleanupEnvelope() As Boolean
-        If Envelope.Status = Constants.EnvelopeStatus.Created Then
+        If Envelope.Status = Common.Constants.EnvelopeStatus.Created Then
             'TODO: Delete Documents and Receivers and elements
             Return EnvelopeModel.Delete(Envelope)
 
@@ -171,7 +172,7 @@ Public Class EnvelopeEditorController
             Return oEnvelopePath
 
         Catch ex As Exception
-            Logger.error(ex)
+            Logger.Error(ex)
             Return Nothing
         End Try
     End Function

EnvelopeGenerator.Form/Controllers/EnvelopeListController.vb

@@ -1,5 +1,6 @@
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Database
+Imports EnvelopeGenerator.Common
 
 Public Class EnvelopeListController
     Inherits BaseClass

EnvelopeGenerator.Form/Controllers/FieldEditorController.vb

@@ -3,6 +3,7 @@ Imports DevExpress.Utils.CommonDialogs
 Imports DevExpress.XtraBars.Docking2010.Views.NativeMdi
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Database
+Imports EnvelopeGenerator.Common
 Imports GdPicture14.Annotations
 
 Public Class FieldEditorController
@@ -36,7 +37,7 @@ Public Class FieldEditorController
             oELement.Y = pAnnotation.Top
         Else
             Elements.Add(New EnvelopeDocumentElement() With {
-                .ElementType = Constants.ElementType.Signature.ToString,
+                .ElementType = Common.Constants.ElementType.Signature.ToString,
                 .Height = pAnnotation.Height,
                 .Width = pAnnotation.Width,
                 .X = pAnnotation.Left,

EnvelopeGenerator.Form/EnvelopeGenerator.Form.vbproj

@@ -102,18 +102,9 @@
     <Import Include="System" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="Config.vb" />
-    <Compile Include="Constants.vb" />
     <Compile Include="Controllers\EnvelopeEditorController.vb" />
     <Compile Include="Controllers\EnvelopeListController.vb" />
     <Compile Include="Controllers\FieldEditorController.vb" />
-    <Compile Include="DbConfig.vb" />
-    <Compile Include="Entities\ElementMetadata.vb" />
-    <Compile Include="Entities\Envelope.vb" />
-    <Compile Include="Entities\EnvelopeDocument.vb" />
-    <Compile Include="Entities\EnvelopeDocumentElement.vb" />
-    <Compile Include="Entities\EnvelopeReceiver.vb" />
-    <Compile Include="Entities\State.vb" />
     <Compile Include="frmEnvelopeEditor.vb">
       <SubType>Form</SubType>
     </Compile>
@@ -132,22 +123,12 @@
     <Compile Include="frmMain.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Models\BaseModel.vb" />
-    <Compile Include="Models\DocumentModel.vb" />
-    <Compile Include="Models\ElementModel.vb" />
-    <Compile Include="Models\EnvelopeModel.vb" />
-    <Compile Include="Models\ReceiverModel.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
       <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\AssemblyInfo.vb" />
-    <Compile Include="Strings\Envelope.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>Envelope.resx</DependentUpon>
-    </Compile>
     <EmbeddedResource Include="frmEnvelopeEditor.resx">
       <DependentUpon>frmEnvelopeEditor.vb</DependentUpon>
     </EmbeddedResource>
@@ -168,11 +149,6 @@
       <AutoGen>True</AutoGen>
       <DependentUpon>Resources.resx</DependentUpon>
     </Compile>
-    <EmbeddedResource Include="Strings\Envelope.resx">
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <Generator>ResXFileCodeGenerator</Generator>
-      <LastGenOutput>Envelope.Designer.vb</LastGenOutput>
-    </EmbeddedResource>
     <None Include="My Project\DataSources\EnvelopeReceiver.datasource" />
     <None Include="My Project\DataSources\frmEditor.datasource" />
     <None Include="My Project\Settings.settings">
@@ -198,6 +174,12 @@
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\EnvelopeGenerator.Common\EnvelopeGenerator.Common.vbproj">
+      <Project>{6ea0c51f-c2b1-4462-8198-3de0b32b74f8}</Project>
+      <Name>EnvelopeGenerator.Common</Name>
+    </ProjectReference>
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
        Other similar extension points exist, see Microsoft.Common.targets.

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -1,6 +1,7 @@
 Imports System.ComponentModel
 Imports System.IO
 Imports DigitalData.Modules.Logging
+Imports EnvelopeGenerator.Common
 
 Partial Public Class frmEnvelopeEditor
     Public Property Envelope As Envelope

EnvelopeGenerator.Form/frmFieldEditor.vb

@@ -3,6 +3,7 @@ Imports System.Text
 Imports DevExpress.Utils.Svg
 Imports DevExpress.XtraBars
 Imports DigitalData.Modules.Logging
+Imports EnvelopeGenerator.Common
 Imports GdPicture14
 Imports GdPicture14.Annotations
 

EnvelopeGenerator.Form/frmMain.vb

@@ -4,6 +4,7 @@ Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Base
 Imports DigitalData.GUIs.Common
+Imports EnvelopeGenerator.Common
 
 Public Class frmMain
     Private LogConfig As LogConfig

EnvelopeGenerator.sln

@@ -7,6 +7,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EnvelopeGenerator.Test", "E
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EnvelopeGenerator.Form", "EnvelopeGenerator.Form\EnvelopeGenerator.Form.vbproj", "{6D56C01F-D6CB-4D8A-BD3D-4FD34326998C}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EnvelopeGenerator.Common", "EnvelopeGenerator.Common\EnvelopeGenerator.Common.vbproj", "{6EA0C51F-C2B1-4462-8198-3DE0B32B74F8}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -21,6 +23,10 @@ Global
 		{6D56C01F-D6CB-4D8A-BD3D-4FD34326998C}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{6D56C01F-D6CB-4D8A-BD3D-4FD34326998C}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{6D56C01F-D6CB-4D8A-BD3D-4FD34326998C}.Release|Any CPU.Build.0 = Release|Any CPU
+		{6EA0C51F-C2B1-4462-8198-3DE0B32B74F8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{6EA0C51F-C2B1-4462-8198-3DE0B32B74F8}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{6EA0C51F-C2B1-4462-8198-3DE0B32B74F8}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{6EA0C51F-C2B1-4462-8198-3DE0B32B74F8}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE