MS Divers Globix,EDMI Service etc

GUIs.ZooFlow/ClassIDBData.vb

@@ -12,8 +12,8 @@ Public Class ClassIDBData
     Public Sub New(LogConfig As LogConfig)
         _Logger = LogConfig.GetLogger
         _DataASorDB = New ClassDataASorDB(LogConfig)
-        Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE"
-        DTVWIDB_BE_ATTRIBUTE = _DataASorDB.GetDatatable("IDB", oSQL, "VWIDB_BE_ATTRIBUTE", "")
+        Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE LANG_ID = {My.Application.User.LanguageID}"
+        DTVWIDB_BE_ATTRIBUTE = _DataASorDB.GetDatatable("IDB", oSQL, "VWIDB_BE_ATTRIBUTE", $"LANG_ID = {My.Application.User.LanguageID}")
     End Sub
     Public IDBSystemIndices As List(Of String)
     Public Function GetIndicesByBE(ByVal pBusinessEntity As String) As List(Of String)
@@ -205,4 +205,5 @@ Public Class ClassIDBData
             Return False
         End Try
     End Function
+
 End Class