MS FlowSearch, Ini tLanguageID

2021-02-12 12:51:11 +01:00
parent ea8f9714b3
commit 716e5702ae
13 changed files with 299 additions and 268 deletions
--- a/GUIs.ZooFlow/ClassInit.vb
+++ b/GUIs.ZooFlow/ClassInit.vb
@@ -276,6 +276,8 @@ Public Class ClassInit
                MyApplication.User.DateFormat = NotNull(oValue.ToString, "dd.MM.yyyy")
            Case "USER_LANGUAGE"
                MyApplication.User.Language = NotNull(oValue.ToString, "de-DE")
+            Case "USER_LANGUAGEID"
+                MyApplication.User.LanguageID = CShort(oValue)
        End Select
    End Sub
    Private Sub HandleModuleInfo(MyApplication As My.MyApplication, ModuleName As String, Row As DataRow)