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

MS Language und Globix

Browse Source
This commit is contained in:
SchreiberM
2021-07-02 14:04:38 +02:00
parent 6675cb2a94
commit ccd0e1d1fb
31 changed files with 1589 additions and 513 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
GUIs.ZooFlow/ClassInit.vb
View File

@@ -183,19 +183,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