17.07.2023

EnvelopeGenerator.Form/frmMain.vb

@@ -37,17 +37,21 @@ Public Class frmMain
     End Sub
 
     Private Function GetDatabaseConfig() As DbConfig
-        Dim oSql As String = "SELECT TOP 1 * FROM TBSIG_CONFIG"
-        Dim oTable As DataTable = Database.GetDatatable(oSql)
-        Dim oRow = oTable.Rows.Item(0)
+        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", "")
-        }
+            Return New DbConfig() With {
+                .DocumentPath = oRow.ItemEx("DOCUMENT_PATH", "")
+            }
+        Catch ex As Exception
+            Return New DbConfig()
+        End Try
     End Function
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
-        Dim oForm As New frmEditor() With {
+        Dim oForm As New frmEnvelopeEditor() With {
             .State = New State With {
                 .UserId = UserId,
                 .Config = ConfigManager.Config,