35 lines
1021 B
VB.net
35 lines
1021 B
VB.net
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", ""),
|
|
.ExportPath = oRow.ItemEx("EXPORT_PATH", ""),
|
|
.SendingProfile = oRow.ItemEx("SENDING_PROFILE", 0),
|
|
.SignatureHost = oRow.ItemEx("SIGNATURE_HOST", ""),
|
|
.ExternalProgramName = oRow.ItemEx("EXTERNAL_PROGRAM_NAME", "")
|
|
}
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
Return New DbConfig()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
|
|
|
|
End Class
|