MS

GUIs.ZooFlow/ClassInit.vb

@@ -136,8 +136,20 @@ Public Class ClassInit
             My.Application.Globix.DT_FUNCTION_REGEX = My.Database.GetDatatable(oSql)
             oSql = "SELECT * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1"
             My.DTCOMMON_SQL = My.DatabaseIDB.GetDatatable(oSql)
+            oSql = "SELECT * FROM TBIDB_CATALOG"
+            My.DTCATALOG = My.DatabaseIDB.GetDatatable(oSql)
+            For Each oRow As DataRow In My.DTCATALOG.Rows
+                'Console.WriteLine(oRow.Item("CAT_TITLE").ToString)
+                Select Case oRow.Item("CAT_TITLE").ToString
+                    Case "FILESTORE_ARCHIVE"
+                        My.Filestore_Archive = oRow.Item("CAT_STRING")
+                    Case "FILESTORE_WORK"
+                        My.Filestore_Work = oRow.Item("CAT_STRING")
+                        My.Filestore_Work = "Q:\DigitalData - IDB"
 
+                End Select
 
+            Next
         Catch ex As Exception
             _Logger.Error(ex)
             Throw New InitException("Error in InitBasicData")
@@ -302,6 +314,7 @@ Public Class ClassInit
                         _Logger.Info($"Wrong WorkingMode: {oLine}")
                     End If
                 Next
+
         End Select
     End Sub
 End Class