Adjust detection of system tables

Switching to just using a bit flag check to solve joyfullservice#462
josef-poetzl · Nov 17, 2023 · 8776104 · 8776104
1 parent 259a8df
commit 8776104
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/Version Control.accda.src/forms/frmVCSOptions.bas b/Version Control.accda.src/forms/frmVCSOptions.bas
@@ -16,10 +16,10 @@ Begin Form
     Width =10080
     DatasheetFontHeight =11
     ItemSuffix =252
-    Left =-25575
-    Top =1500
-    Right =-255
-    Bottom =14085
+    Left =3225
+    Top =2430
+    Right =18945
+    Bottom =14175
     RecSrcDt = Begin
         0x79e78b777268e540
     End
@@ -3897,7 +3897,7 @@ Private Sub LoadTableList()
                     rstTableData.AddNew
                         rstTableData!TableName = Nz(!Name)
                         rstTableData!Flags = Nz(!Flags)
-                        rstTableData!IsSystem = ((lngFlags <> 0) And (lngFlags <> 8) And (lngType = 1))
+                        rstTableData!IsSystem = BitSet(lngFlags, 2)
                         rstTableData!IsHidden = BitSet(lngFlags, 8)
                         rstTableData!IsLocal = (lngType = 1)
                         ' Determine table icon