2023-09-25

EnvelopeGenerator.Common/Entities/DbConfig.vb

@@ -1,4 +1,5 @@
 Public Class DbConfig
+    Public Property ExternalProgramName As String = "Sign Flow"
     Public Property DocumentPath As String = ""
     Public Property SendingProfile As Integer = 0
     Public Property SignatureHost As String = ""

EnvelopeGenerator.Common/Entities/EmailTemplate.vb

@@ -36,7 +36,7 @@
         }
     End Sub
 
-    Public Sub SetEmailBody(pEmailData As EmailData)
+    Public Sub FillEmailBody(pEmailData As EmailData)
 
         InitDictionary(pEmailData)
 

EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj

@@ -93,7 +93,7 @@
   <ItemGroup>
     <Compile Include="Config.vb" />
     <Compile Include="Constants.vb" />
-    <Compile Include="DbConfig.vb" />
+    <Compile Include="Entities\DbConfig.vb" />
     <Compile Include="Entities\ElementMetadata.vb" />
     <Compile Include="Entities\EmailData.vb" />
     <Compile Include="Entities\EmailTemplate.vb" />
@@ -107,6 +107,7 @@
     <Compile Include="Entities\User.vb" />
     <Compile Include="Helpers.vb" />
     <Compile Include="Models\BaseModel.vb" />
+    <Compile Include="Models\ConfigModel.vb" />
     <Compile Include="Models\DocumentModel.vb" />
     <Compile Include="Models\ElementModel.vb" />
     <Compile Include="Models\EmailModel.vb" />

EnvelopeGenerator.Common/Models/ConfigModel.vb

@@ -0,0 +1,40 @@
+Imports System.Data.SqlClient
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
+
+Public Class ConfigModel
+    Inherits BaseModel
+
+    Public Sub New(pState As State)
+        MyBase.New(pState)
+    End Sub
+
+    Public Function LoadConfiguration() As DbConfig
+        Try
+            Dim oSql As String = "SELECT TOP 1 * FROM TBSIG_CONFIG"
+            Dim oTable As DataTable = Database.GetDatatable(oSql)
+            Dim oRow = oTable.Rows.Item(0)
+
+            Return New DbConfig() With {
+                .DocumentPath = oRow.ItemEx("DOCUMENT_PATH", ""),
+                .SendingProfile = oRow.ItemEx("SENDING_PROFILE", 0),
+                .SignatureHost = oRow.ItemEx("SIGNATURE_HOST", ""),
+                .ExternalProgramName = oRow.ItemEx("EXTERNAL_PROGRAM_NAME", "")
+            }
+        Catch ex As Exception
+            Return New DbConfig()
+        End Try
+    End Function
+
+    Public Function GetUserId() As Integer
+        Try
+            Dim oUserId As Integer = Database.GetScalarValue($"SELECT GUID FROM TBDD_USER WHERE USERNAME = '{Environment.UserName}'")
+            Return oUserId
+
+        Catch ex As Exception
+            Return 0
+        End Try
+    End Function
+
+
+End Class