2 Commits

Author SHA1 Message Date
Developer01
a535792b08 Ms FileCount 2024-10-02 12:43:44 +02:00
Developer01
dd616b2d22 MS FileCount Prüfung entfernt 2024-10-02 12:37:31 +02:00

View File

@@ -808,10 +808,8 @@ Public Class frmMain
NavBarControl1.Visible = True
Dim oCountItems As Integer = 0
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")
If oFileCount > 0 And (ODisplayMode = "Overview and Detail" Or ODisplayMode = "Detail") Then
If (ODisplayMode = "Overview and Detail" Or ODisplayMode = "Detail") Then
oCountItems += 1
Dim item1 As NavBarItem = NavBarControl1.Items.Add()
item1.Caption = oProfileRow.Item("TITLE")
@@ -825,8 +823,6 @@ Public Class frmMain
item1.SmallImage = _image
NavBarControl1.Groups(1).ItemLinks.Add(item1)
End If
Next
If oCountItems > 0 Then
@@ -2367,7 +2363,7 @@ Public Class frmMain
LOGGER.Debug($"VWPM_PROFILE_ACTIVE-SELECT used from DD-SQL-Config..")
Else
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