Compare commits
2 Commits
208b76d38e
...
a535792b08
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
a535792b08 | ||
|
|
dd616b2d22 |
@@ -808,10 +808,8 @@ Public Class frmMain
|
|||||||
NavBarControl1.Visible = True
|
NavBarControl1.Visible = True
|
||||||
Dim oCountItems As Integer = 0
|
Dim oCountItems As Integer = 0
|
||||||
For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
|
For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
|
||||||
Dim oFileCount = CInt(oProfileRow.Item("FILE_COUNT"))
|
|
||||||
Dim ODisplayMode = oProfileRow.Item("DISPLAY_MODE")
|
Dim ODisplayMode = oProfileRow.Item("DISPLAY_MODE")
|
||||||
If oFileCount > 0 And (ODisplayMode = "Overview and Detail" Or ODisplayMode = "Detail") Then
|
If (ODisplayMode = "Overview and Detail" Or ODisplayMode = "Detail") Then
|
||||||
|
|
||||||
oCountItems += 1
|
oCountItems += 1
|
||||||
Dim item1 As NavBarItem = NavBarControl1.Items.Add()
|
Dim item1 As NavBarItem = NavBarControl1.Items.Add()
|
||||||
item1.Caption = oProfileRow.Item("TITLE")
|
item1.Caption = oProfileRow.Item("TITLE")
|
||||||
@@ -825,8 +823,6 @@ Public Class frmMain
|
|||||||
item1.SmallImage = _image
|
item1.SmallImage = _image
|
||||||
|
|
||||||
NavBarControl1.Groups(1).ItemLinks.Add(item1)
|
NavBarControl1.Groups(1).ItemLinks.Add(item1)
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
If oCountItems > 0 Then
|
If oCountItems > 0 Then
|
||||||
@@ -2367,7 +2363,7 @@ Public Class frmMain
|
|||||||
LOGGER.Debug($"VWPM_PROFILE_ACTIVE-SELECT used from DD-SQL-Config..")
|
LOGGER.Debug($"VWPM_PROFILE_ACTIVE-SELECT used from DD-SQL-Config..")
|
||||||
Else
|
Else
|
||||||
oSQL = $"SELECT [dbo].[FNDD_LANGUAGE_PHRASE] ('PROFILE_TITLE' + CONVERT(VARCHAR(4),T.GUID),'{USER_LANGUAGE}','PM') as GROUP_TEXT_LANG, T.*
|
oSQL = $"SELECT [dbo].[FNDD_LANGUAGE_PHRASE] ('PROFILE_TITLE' + CONVERT(VARCHAR(4),T.GUID),'{USER_LANGUAGE}','PM') as GROUP_TEXT_LANG, T.*
|
||||||
FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({USER_ID}))"
|
FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({USER_ID}))"
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user