AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

Browse Source
This commit is contained in:
Jonathan Jenne
2021-07-02 16:10:18 +02:00
parent c9dafd4bde ccd0e1d1fb
commit 49ec173c36
32 changed files with 1590 additions and 514 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
GUIs.ZooFlow/ClassInit.vb
View File

@@ -182,19 +182,19 @@ Public Class ClassInit
Private Sub InitBasicData(MyApplication As My.MyApplication)
Try
My.Tables.DTIDB_COMMON_SQL = My.DatabaseECM.GetDatatable("SELECT * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1")
My.Tables.DTIDB_CATALOG = My.DatabaseECM.GetDatatable("SELECT * FROM TBIDB_CATALOG")
Dim oSQL = "SELECT * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1"
My.Tables.DTIDB_COMMON_SQL = _DataASorDB.GetDatatable("IDB", oSQL, "TBIDB_COMMON_SQL", "", "")
oSQL = "SELECT * FROM TBIDB_FILESTORE_CONFIG WHERE ACTIVE = 1"
My.Tables.DTIDB_FILESTORE = _DataASorDB.GetDatatable("IDB", oSQL, "TBIDB_FILESTORE_CONFIG", "", "")
'TODO: Get FilesStores from Application Server
For Each oRow As DataRow In My.Tables.DTIDB_CATALOG.Rows
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"
'Get FilesStores
For Each oRow As DataRow In My.Tables.DTIDB_FILESTORE.Rows
Select Case oRow.Item("TITLE").ToString
Case "ARCHIVE"
My.Filestore_Archive = oRow.Item("STORAGE_PATH")
Case "WORK"
My.Filestore_Work = oRow.Item("STORAGE_PATH")
End Select
Next
Catch ex As Exception