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