refactor(EnvelopeGenerator.Common): umbenennen in EnvelopeGenerator.CommonService

EnvelopeGenerator.CommonServices/Models/ConfigModel.vb

@@ -0,0 +1,37 @@
+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 As DataRow = oTable.Rows.Item(0)
+
+            Return New DbConfig() With {
+              .DocumentPath = oRow.ItemEx("DOCUMENT_PATH", ""),
+              .DocumentPathOrigin = oRow.ItemEx("DOCUMENT_PATH", ""),
+              .ExportPath = oRow.ItemEx("EXPORT_PATH", ""),
+              .SendingProfile = oRow.ItemEx("SENDING_PROFILE", 0),
+              .SignatureHost = oRow.ItemEx("SIGNATURE_HOST", ""),
+              .ExternalProgramName = oRow.ItemEx("EXTERNAL_PROGRAM_NAME", ""),
+              .Default_TFA_Enabled = oRow.ItemEx("DEF_TFA_ENABLED", False),
+              .Default_TFA_WithPhone = oRow.ItemEx("DEF_TFA_WITH_PHONE", False)
+            }
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return New DbConfig()
+        End Try
+    End Function
+
+
+
+
+End Class