MS Languages

2022-10-14 10:09:43 +02:00
parent dc9ed0887d
commit f55a7bdfc3
10 changed files with 324 additions and 422 deletions
--- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb
+++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb
@@ -14,6 +14,8 @@ Public Class ClassParamRefresh
                        Dim oSQL = oRow.Item("SQL_COMMAND")
                        USERCOUNT_LOGGED_IN = DatabaseFallback.GetScalarValueECM(oSQL)
                        oLicenseoverSQL = True
+                    ElseIf oRow.Item("TITLE") = "PM_PROFILES_USER" Then
+                        SQL_PROFILES_USER = oRow.Item("SQL_COMMAND")
                    End If
                Next
            End If