First version of service

EnvelopeGenerator.Common/Models/ConfigModel.vb

@@ -13,7 +13,7 @@ Public Class ConfigModel
         Try
             Dim oSql As String = "SELECT TOP 1 * FROM TBSIG_CONFIG"
             Dim oTable As DataTable = Database.GetDatatable(oSql)
-            Dim oRow = oTable.Rows.Item(0)
+            Dim oRow As DataRow = oTable.Rows.Item(0)
 
             Return New DbConfig() With {
                 .DocumentPath = oRow.ItemEx("DOCUMENT_PATH", ""),
@@ -23,6 +23,7 @@ Public Class ConfigModel
                 .ExternalProgramName = oRow.ItemEx("EXTERNAL_PROGRAM_NAME", "")
             }
         Catch ex As Exception
+            Logger.Error(ex)
             Return New DbConfig()
         End Try
     End Function