MS 2.5.0.3 VKT ADD Items und GDPicture

This commit is contained in:
Developer01 2025-01-27 16:56:51 +01:00
parent 911c7f04ce
commit d3ef49ed83
26 changed files with 1046 additions and 728 deletions

View File

@ -148,13 +148,13 @@
</Component>
<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll" KeyPath="yes" />
<File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.dll" />
<File Id="GdPicture.NET.14.filters64" Name="GdPicture.NET.14.filters.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.64.dll" />
<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.dll" />
<File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.64.dll" />
<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
<File Id="GdPicture.NET.14.Imaging64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" KeyPath="yes" />
<File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" />
<File Id="GdPicture.NET.14.filters64" Name="GdPicture.NET.14.filters.64.dll" />
<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" />
<File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" />
<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
<File Id="GdPicture.NET.14.Imaging64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
</Component>
<Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">

View File

@ -17,6 +17,9 @@
<setting name="UserConfig_Prefix" serializeAs="String">
<value>TEST</value>
</setting>
<setting name="GDPICTURE_VERSION" serializeAs="String">
<value>11.2024</value>
</setting>
</DD_ProcessManager.My.MySettings>
<DevExpress.LookAndFeel.Design.AppSettings>
<setting name="DefaultAppSkin" serializeAs="String">
@ -87,7 +90,9 @@
</DevExpress.LookAndFeel.Design.AppSettings>
</applicationSettings>
<connectionStrings>
<add name="DD_ProcessManager.My.MySettings.ConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False" providerName="System.Data.SqlClient" />
<add name="DD_ProcessManager.My.MySettings.ConnectionString"
connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False"
providerName="System.Data.SqlClient" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />

View File

@ -30,6 +30,8 @@ Public Class ClassConfig
' Misc Settings
Public Property DEBUG As Boolean = False
Public Property ReminderTimer As Integer = 5
Public Property OverviewRefresh_Intervall As Integer = 2
Public Property MonitorSplitter1_Distance As Integer = 510
Public Property MonitorSplitter2_Distance As Integer = 270
Public Property MonitorSplitter3_Distance As Integer = 400
@ -38,6 +40,7 @@ Public Class ClassConfig
Public Property LastExportPath As String = ""
Public Property ADDITIONAL_SEARCHES_LOAD_ONCLICK As Boolean = True
Public Property NOTES_ONCLICK As Boolean = True
Public Property GridFontSizeDelta As Integer = 0
Public Property ProfileConfig As New ProfileUserConfig

View File

@ -84,6 +84,7 @@ Public Class ClassControlCreator
Public [Font] As Font
Public [Color] As Color
Public [ReadOnly] As Boolean
Public AddNewItems As Boolean = False
End Class
Public Class ControlMetadata
@ -92,6 +93,7 @@ Public Class ClassControlCreator
Public Attribute As String
Public [ReadOnly] As Boolean = False
Public BackColor As Color = Color.White
End Class
Public Sub New(pLogConfig As LogConfig)
@ -114,6 +116,7 @@ Public Class ClassControlCreator
Dim oFont As New Font(family, size, style, GraphicsUnit.Point)
Dim oColor As Color = IntToColor(NotNull(row.Item("FONT_COLOR"), DEFAULT_COLOR))
Dim oReadOnly As Boolean = row.Item("READ_ONLY")
Dim oAddNewItems As Boolean = row.Item("VKT_ADD_ITEM")
Return New ControlDBProps() With {
.Guid = oGuid,
@ -122,7 +125,8 @@ Public Class ClassControlCreator
.Location = oLocation,
.Font = oFont,
.Color = oColor,
.ReadOnly = oReadOnly
.ReadOnly = oReadOnly,
.AddNewItems = oAddNewItems
}
End Function
@ -468,6 +472,7 @@ Public Class ClassControlCreator
control.Properties.Name = control.Name
control.Width = row.Item("WIDTH")
control.ReadOnly = row.Item("READ_ONLY")
control.Properties.AllowAddNewValues = row.Item("VKT_ADD_ITEM")
If designMode Then
control.Cursor = Cursors.Hand

View File

@ -347,11 +347,7 @@ Public Class ClassInit
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
LOGGER.Info($"Got a CheckUserDefintion for User [{USER_USERNAME}]")
If DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID") <> 0 Then
USER_EXISTS = True
Else
USER_EXISTS = False
End If
USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
USER_SURNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"))
@ -363,6 +359,13 @@ Public Class ClassInit
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
If USER_IN_MODULE = True Then
USER_EXISTS = True
Else
USER_EXISTS = False
End If
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
User.IsAdmin = USER_IS_ADMIN
@ -480,15 +483,13 @@ Public Class ClassInit
oTBDD_3RD_PARTY_MODULES = DatabaseFallback.GetDatatable("TBDD_3RD_PARTY_MODULES", New GetDatatableOptions(oSql, DatabaseType.ECM))
For Each oROW As DataRow In oTBDD_3RD_PARTY_MODULES.Rows
If oROW.Item("NAME") = "GDPICTURE" Then
If oROW.Item("NAME") = "GDPICTURE" And oROW.Item("VERSION") = My.Settings.GDPICTURE_VERSION Then
GDPICTURE_LICENSE = oROW.Item("LICENSE")
End If
If oROW.Item("NAME") = "GDPICTURE_TASKFLOW" Then
GDPICTURE_LICENSE = oROW.Item("LICENSE")
LOGGER.Debug("GDPICTURE_TASKFLOW License used!")
End If
Next
If GDPICTURE_LICENSE = String.Empty Then
LOGGER.Warn($"Keine GDPICTURE-Lizenz gefunden. Version Konfiguration: {My.Settings.GDPICTURE_VERSION} - Prüfe TBDD_3RD_PARTY_MODULES")
End If
oStep = "TBDD_SQL_COMMANDS"
oSql = "Select * FROM TBDD_SQL_COMMANDS"

View File

@ -121,6 +121,14 @@ Public Class ClassParamRefresh
ElseIf oMode = "PM.NO_POPUP" Then
POPUP_REMINDER_ACTIVE = False
LOGGER.Debug($"POPUP_REMINDER_ACTIVE [{POPUP_REMINDER_ACTIVE}]")
ElseIf oMode.StartsWith("PM.POPUP_TIMELAPS_OVERRIDE") Then
Dim oTimeLapse = oMode.Replace("PM.POPUP_TIMELAPS_OVERRIDE=", "")
LOGGER.Info($"CENTRAL POPUP_TIMELAPS_OVERRIDE [{oTimeLapse}]")
Try
CONFIG.Config.ReminderTimer = oTimeLapse
Catch ex As Exception
End Try
ElseIf oMode.StartsWith("PM.CONV_IDENTIFICATION") Then
Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "")
CONV_IDENTIFICATION = oIdent

View File

@ -278,6 +278,10 @@ Public Module ModuleControlProperties
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property DisplayAsLookUpControl As Boolean
<DisplayName("Add new values")>
<Category(ClassConstants.CAT_BEHAVIOUR)>
Public Property AddNewValues As Boolean
Public Class ChoiceListConverter
Inherits TypeConverter

View File

@ -14,7 +14,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("taskFLOW")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2024")>
<Assembly: AssemblyTrademark("2.4.9.4")>
<Assembly: AssemblyTrademark("2.5.0.0")>
<Assembly: ComVisible(False)>
@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.9.9")>
<Assembly: AssemblyVersion("2.5.0.3")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguage("")>

View File

@ -243,6 +243,15 @@ Namespace My
Me("frmValidatorWindowState") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("11.2024")> _
Public ReadOnly Property GDPICTURE_VERSION() As String
Get
Return CType(Me("GDPICTURE_VERSION"),String)
End Get
End Property
End Class
End Namespace

View File

@ -55,5 +55,8 @@
<Setting Name="frmValidatorWindowState" Type="System.String" Scope="User">
<Value Profile="(Default)">Normal</Value>
</Setting>
<Setting Name="GDPICTURE_VERSION" Type="System.String" Scope="Application">
<Value Profile="(Default)">11.2024</Value>
</Setting>
</Settings>
</SettingsFile>

View File

@ -1,14 +1,15 @@
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

View File

@ -149,9 +149,8 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Controls.LookupGrid, Version=0.0.1.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
<Reference Include="DigitalData.Controls.LookupGrid">
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Controls.SnapPanel">
<HintPath>..\..\..\DDMonorepo\Controls.SnapPanel\bin\Debug\DigitalData.Controls.SnapPanel.dll</HintPath>
@ -160,45 +159,46 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Base, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
<Reference Include="DigitalData.Modules.Base">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Database, Version=2.2.7.0, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="DigitalData.Modules.Config, Version=1.2.2.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.EDMI.API, Version=1.5.4.0, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="DigitalData.Modules.Database, Version=2.3.5.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.EDMI.API">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Encryption, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Interfaces">
<HintPath>..\..\..\DDModules\Interfaces\bin\Debug\DigitalData.Modules.Interfaces.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Interfaces\bin\Debug\DigitalData.Modules.Interfaces.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language, Version=1.6.0.0, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="DigitalData.Modules.Language, Version=1.7.1.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="DigitalData.Modules.License">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\License\bin\Debug\DigitalData.Modules.License.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging, Version=2.6.3.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Patterns">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Windream">
<HintPath>..\..\..\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ZooFlow, Version=1.2.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
<Reference Include="DigitalData.Modules.ZooFlow">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
</Reference>
<Reference Include="DLLLicenseManager">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>

View File

@ -169,7 +169,7 @@ Public Class clsPatterns
If CURRENT_CLICKED_PROFILE_TITLE Is Nothing Then
CURRENT_CLICKED_PROFILE_TITLE = "NONE_TITLE"
End If
result = ReplacePattern(result, PATTERN_USER, CURRENT_CLICKED_PROFILE_TITLE)
result = ReplacePattern(result, PATTERN_USER, CURRENT_CLICKED_PROFILE_TITLE.Replace("GROUP_TEXT:", ""))
End While
Return result
Catch ex As Exception

View File

@ -124,7 +124,7 @@ Partial Class frmAdministration
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupProfile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.rbnpggroupFinaIndexe = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -999,13 +999,13 @@ Partial Class frmAdministration
'
resources.ApplyResources(Me.bbtnitmNotResponsible, "bbtnitmNotResponsible")
Me.bbtnitmNotResponsible.Id = 31
Me.bbtnitmNotResponsible.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image)
Me.bbtnitmNotResponsible.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtnitmNotResponsible.ImageOptions.Image = CType(resources.GetObject("bbtnitmNotResponsible.ImageOptions.Image"), System.Drawing.Image)
Me.bbtnitmNotResponsible.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitmNotResponsible.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtnitmNotResponsible.Name = "bbtnitmNotResponsible"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroupProfile, Me.RibbonPageGroup2, Me.RibbonPageGroup4})
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroupProfile, Me.rbnpggroupFinaIndexe, Me.RibbonPageGroup4})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
@ -1033,16 +1033,16 @@ Partial Class frmAdministration
Me.RibbonPageGroupProfile.Name = "RibbonPageGroupProfile"
resources.ApplyResources(Me.RibbonPageGroupProfile, "RibbonPageGroupProfile")
'
'RibbonPageGroup2
'rbnpggroupFinaIndexe
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem16)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem18)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem15)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem17)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem19)
Me.RibbonPageGroup2.MergeOrder = 0
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
Me.rbnpggroupFinaIndexe.ItemLinks.Add(Me.BarButtonItem16)
Me.rbnpggroupFinaIndexe.ItemLinks.Add(Me.BarButtonItem18)
Me.rbnpggroupFinaIndexe.ItemLinks.Add(Me.BarButtonItem15)
Me.rbnpggroupFinaIndexe.ItemLinks.Add(Me.BarButtonItem17)
Me.rbnpggroupFinaIndexe.ItemLinks.Add(Me.BarButtonItem19)
Me.rbnpggroupFinaIndexe.MergeOrder = 0
Me.rbnpggroupFinaIndexe.Name = "rbnpggroupFinaIndexe"
resources.ApplyResources(Me.rbnpggroupFinaIndexe, "rbnpggroupFinaIndexe")
'
'RibbonPageGroup4
'
@ -2234,7 +2234,7 @@ Partial Class frmAdministration
Friend WithEvents BarButtonItem15 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem17 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents rbnpggroupFinaIndexe As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItem18 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents tsbStaticInfo As DevExpress.XtraBars.BarStaticItem

View File

@ -1660,73 +1660,71 @@
</data>
<data name="bbtnitmReject.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAddEVYdFRpdGxlAENsb3NlO0V4aXQ7QmFycztSaWJib247RgO56AAAAwpJREFUOE+Nk2lIVFEY
hqdMcytR0yDa3NNMs9RJ0zLX1BiLUvGHJUYQCeqPxCVtXAIzqdwhBiQxKTGJIEfNUbKoGJ3EJU1H0zKX
dOZq2jgj9ePtfNehf0EXHnjvOed7znfvuVcwc7tIwK7NDAPGlv/AUA+t38QQGHwuFL/6eqsAX4qIfEwV
iTcoZBTcxCRPHibzGeI8fBbnYjQ3p5vVklBgSBPaD+0bKPTwuU1PK7S9hBRaeQvPaE4WWK0RCYyUN7Kh
7WnB0uNKDGanQ2LvgY7zF/h7QhYbC4mdBwYy08A9KgdXX4aPGddJYEyCrSOZGVh795wtSEVdRDxkUgWe
XM1B6xkR2kQxfJa19KIuPB79GSlQ191Df2o6CUxIYNx/LQWa7mZI9rphUjkL1ZIWyikOjakFPKMsz6s1
mBibhWSPG1S1pZBfvkICUxKYvD5zlrVawVqNQ0/JfWi0v6Fe0WHsK4exLxwWf+iwuvaLn5OxR5vOSkZ7
SCQJzEhgKguNwvf7WfiWmYSO6Gi8LynHwrIOC6yT78sMToe3xWV4GRmJqbQEKBNC8MI/mATmJDCTBoZh
tigVExdPo/W4H9rFd1jLWsyp1zCr0jC0aMsrgdRPiLELQfh0LhDPjgaQYBsJzJ/7BmE65wpafbzQnJ6P
oXEVZhY14FZ14FbWMb2gwYByEU/TxJB6eWA40geN7kISbCfBtiZPP761BnsXqOfVmFGtYWl1HQPlVTwb
kp9QzanRYOeCgWBP1DsfJYEFCbY3uPpgPFkERUwoOhOTsM5x6CsphSzgGDoYlGmsM/ES5BGB6PN3Re2+
QySwJIHFQzsvfIoLwXC0EL3RJ9HkcgBdAb4YiTmBYVEguvx9+DF52HH0n/KE4ogDHuxyJYEVL5DsPoih
KLaT0BmDwYfZiwrGx3BfKISOUHg7YijUGyOiALazG+Se+yF334tqG6e/ArO7tk5vanY6o8bWBdW2zqiy
IZw2sHZEpZUjKngcUGHpgHJGsYXdW1bLHyP9lvRBkM1az45/YKOHMjtCgcEfpxkalin7Ah0AAAAASUVO
RK5CYII=
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAB10RVh0VGl0
bGUAQ2xvc2U7RXhpdDtCYXJzO1JpYmJvbjtGA7noAAADCklEQVQ4T42TaUhUURiGp0xzK1HTINrc00yz
1EnTMtfUGItS8YclRhAJ6o/EJW1cAjOp3CEGJDEpMYkgR81RsqgYncQlTUfTMpd05mraOCP14+1816F/
QRceeO8553vOd++5VzBzu0jArs0MA8aW/8BQD63fxBAYfC4Uv/p6qwBfioh8TBWJNyhkFNzEJE8eJvMZ
4jx8FudiNDenm9WSUGBIE9oP7Rso9PC5TU8rtL2EFFp5C89oThZYrREJjJQ3sqHtacHS40oMZqdDYu+B
jvMX+HtCFhsLiZ0HBjLTwD0qB1dfho8Z10lgTIKtI5kZWHv3nC1IRV1EPGRSBZ5czUHrGRHaRDF8lrX0
oi48Hv0ZKVDX3UN/ajoJTEhg3H8tBZruZkj2umFSOQvVkhbKKQ6NqQU8oyzPqzWYGJuFZI8bVLWlkF++
QgJTEpi8PnOWtVrBWo1DT8l9aLS/oV7RYewrh7EvHBZ/6LC69oufk7FHm85KRntIJAnMSGAqC43C9/tZ
+JaZhI7oaLwvKcfCsg4LrJPvywxOh7fFZXgZGYmptAQoE0Lwwj+YBOYkMJMGhmG2KBUTF0+j9bgf2sV3
WMtazKnXMKvSMLRoyyuB1E+IsQtB+HQuEM+OBpBgGwnMn/sGYTrnClp9vNCcno+hcRVmFjXgVnXgVtYx
vaDBgHIRT9PEkHp5YDjSB43uQhJsJ8G2Jk8/vrUGexeo59WYUa1haXUdA+VVPBuSn1DNqdFg54KBYE/U
Ox8lgQUJtje4+mA8WQRFTCg6E5OwznHoKymFLOAYOhiUaawz8RLkEYHo83dF7b5DJLAkgcVDOy98igvB
cLQQvdEn0eRyAF0BvhiJOYFhUSC6/H34MXnYcfSf8oTiiAMe7HIlgRUvkOw+iKEotpPQGYPBh9mLCsbH
cF8ohI5QeDtiKNQbI6IAtrMb5J77IXffi2obp78Cs7u2Tm9qdjqjxtYF1bbOqLIhnDawdkSllSMqeBxQ
YemAckaxhd1bVssfI/2W9EGQzVrPjn9go4cyO0KBwR+nGRqWKfsCHQAAAABJRU5ErkJggg==
</value>
</data>
<data name="bbtnitmReject.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAddEVYdFRpdGxlAENsb3NlO0V4aXQ7QmFycztSaWJib247RgO56AAACOtJREFUWEfFl3dUVGca
h81ms+maoiaxRKMGBEVUQIWBgaENUhRkVRL7yqrBgsfAKqgUFTS6KsWOPWpQRIoIGolKB1HKgHRR+gxF
RJrkn9++7x0GwVl3z9mze/Y75/G7d2aY5/e+3/3uXAcB+L8ijJrgPYNqgvbw4Vv/hj/8F3irNMCXpn6j
+kAgTyrBH4l3iD+9xrtv4L1/wfv94HP+PH8/ewYMlr+d47PZsiLQN7tytx8qd/viMRPoC3oNFQHELh9i
O8pV7NyG0h0qtqLU3xsljJ83ihlfLxT5biG8UeSzBflb//Yw0d1NSi4ukJ19g0/eqdi5Xd52/w56qgrR
87QAPU9k6KnMQ8/jXHSXP0R3WTa6i7PQ9SgdXYWp6MpPRmfuPXTm/IaO7F/RkZWA9vQbaE+JRVvSNbTd
jUBbYjjabl3E84TzqD8bhLwtHgpycTcGdIFP3i2jpJ25iXh+4zyex72i9fo5tMaeRWsMEX0GrddO41nk
SbREhKHlynG0hB9Dyy9H0HwxFM0/B6Pp3EE0ntmPxlP7oAjbA/mxAMiP7ETt372Q67GRr7wPibdZrBoc
4L0Sb0+0p8WQ6BSJeok6hWfXiMgwPLtKwogTfdJmll46jKYLoWgiceNZpVihEh/fLYgbDvmjPtgXNYE/
InvDWg7wEaEe4JHnRrxIiiAJCQSosivE5aNoDicE4RE0XVRJQ9B4LoikJD5N4pP7ID/xE1UciIbDASTe
gfoQP9QHbUfdfm883bEBmWtWc4CPCbUA78vc19GaXSIJtVIFtbXpQogSbu95ElKLFWcOUIuVUkXYXmW1
R1m8E/WhJA5msQ+Jt6Ju3xbU7PHEk20/IG3lSg4wmFAL8MED1xVojT9PAlq/cyRgeC2J6kMBuOHkgPP6
Brjt4oz6I4EkpTaTtDZkB246z8HJyVMQJbVAZYAnaklcw+KfPFG92wNVuzbi8RZX3Jm/UBWAt2Pf4DQf
pDo6UmVUzQmqJoxaeZIEJ/agOtgf0VIrRHr6ICEmBRGr1uO6gw1qqMoaqjJ6thUuu65FfHQyrrh74ReR
ISp83VFNa161axOqqPVPfNeheJUz4iRSDjCEUAvwYbLDXNTu3YRKj6XCFVtPFxCT4GSPaC9/pGZXoOJJ
I4rLGxC5xh2xtlLEzrYm+TrcyyhBcUUDSp80IZqCRlmY4an/BjwlceVmV5Sunof8hZaIMTHnAJ8QagE+
umfnQKk3oNzNGeU/OKPixyWo2umOy0ZGaKiWo7KmBa0vetDa/hKlj+VCiMt/XY+76SUooWDNL16iua0b
zxQtOK2jS3+/nMTOKF7hgOJl9sibL0GUSMIBPiXUA/w224GuVDeUrXZE6SoVTkh0tkfatu3ofvk7BXiJ
ljYS0VzyWIHMnEqUVDai6Xm3AH/mnudmxNlYoIikRUvs8GipLR4ttkWOoxhXZ4nfGODj21J7VG5bhRJX
B2IOipm/OKDCYwVu2tsgw89PEAgyqpTnxn50d/+OFG9vRJuLUea+WJAWLrZB4ffWKPheigf2RrgyQwjw
GcG3477BAQbfsrKlK3UFtcwORct7WcazPco9luOG1BxJXt5QtHZCQUJFa1cfDc0duLvZC9GmxijbuJSk
UhS4SCFzsYKM1j5/gQXuz56FcD0RB/icGBCA2zE43lyKsk2cXIrCJZR8kZSOZxM2KKD5hqUYUavXo7BM
AUULBWjpgpyoJ+qaOhDnthHRYkPkLbCEjISyP1sg31kikDfPFJlWBrg47c0BhsSZWaFknQsKvrOillHb
XCyFY64gzswQ12j7JSYXo6Bcgfpmkgp0CPK6pi7klzQgYqUbrhnqIcfJDHlOpshlHE2QM9cEaZJp+FnX
kAMMJQb8InKAT2LFliim7SKjqzV/ATHfnJDglqUxotZswO3kIsioeqWwA51dPeggahs7UNNLXlEdIl3d
ECPSR44Die1FeMjYGSFFrItzOjM5wDBCPQBvkQLaMnnzxMgl8pyUc5RYhIqyGuSXNgiyWpJ3dPYgy98X
mX6+wnG1okOgSt6OumoFLulNxwNbQyW09tnSmUgynoTTWvocYDihFuDTSEMJZLTWD+eIqGWEg7FQwa+2
lig8ehhtHT3U+k5BmL3DHwnWZoi3MhWCtNNr3BX+TF5IMK6bGZN0Bu5bz0AWrX2WpT7uzNLGSY3pqgD8
lDUgwGe8RXIXWlDqWULqhzxTBbKlcxBPMg7RJZcj298PN20kKFw2F4X0XgKH8PNBp7wBeaEhdCEaIcfF
VpBmWkxHpjkzDYn6mjgxYSoH+IIYEIDb8Xm4Pl8sYtyXGiixNqAqDIQwsiVzkWhniViJCe44WCN/sb2y
MiJ/kR1u25rjKv0GxNNOyf3OTpBnmE5DpulUZJjpIp3W//bUCTj2jS4H+JJQD3Bxugj36WaRRamzLPSE
9HzMFWRRK2WL6I620pnu6VJk9VYlIJlOt1krFC53pPfohmWmhwzxFJJOQZqI0UEarf9NnXE4PFaHA3xF
qAUYekF3FrLoYsmQUGqGkvfNXIVQyVSkm9JsSgITep1Fxnysg3RBNBlpRjpINZz0Clr71JlaSJg8BodG
a6sF4H84wDDeIhlUEX9ZGn1pmpi+VDimLzWm2YRngkSpNKcaESwQKUUpDMlSDLWQQsKUmRORMkMTyTMm
IslAE3FaoxEyYiIHGEHwI/qAAENPa+sLbUsVaVMVlLofKTxzJb30CWbSuSCaSCKlLJlkTJKBBpL0vu3j
uuYoBH2p8U87IGzDMI1p8hgdTdzSHYcEnW+IsYifNOYV2l8LxAnnymPhnKHqBEgSN5HQHEnCXjRGECMR
PnY09g2fwI/lfCMaEEB4JNs6WnPR0fFTmo6P1wVzbNwUump1cGTsZIHDYyYJHPpaG6GjJyF0lBZCRxIj
tKi1xFeaCCaCiINU6cEviOEaODB8AvYP/xZ7h41vXjtk5FJyqR5KhQA8VF3g53X+oeB9yluFW/U6vH6v
M/INjOoHn/MNiJ8Hecn75Dz4RNUJfpPb8zr9/z/4n6D6HlXlAwKohuqN/zW9Y9CgfwDGFHwpA8PYaQAA
AABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB10RVh0VGl0
bGUAQ2xvc2U7RXhpdDtCYXJzO1JpYmJvbjtGA7noAAAI60lEQVRYR8WXd1RUZxqHzWaz6ZqiJrFEowYE
RVRAhYGBoQ1SFGRVEvvKqsGCx8AqqBQVNLoqxY49alBEiggaiUoHUcqAdFH6DEVEmuSf377vHQbBWXfP
2bN79jvn8bt3Zpjn977f/e5cBwH4vyKMmuA9g2qC9vDhW/+GP/wXeKs0wJemfqP6QCBPKsEfiXeIP73G
u2/gvX/B+/3gc/48fz97BgyWv53js9myItA3u3K3Hyp3++IxE+gLeg0VAcQuH2I7ylXs3IbSHSq2otTf
GyWMnzeKGV8vFPluIbxR5LMF+Vv/9jDR3U1KLi6QnX2DT96p2Lld3nb/DnqqCtHztAA9T2ToqcxDz+Nc
dJc/RHdZNrqLs9D1KB1dhanoyk9GZ+49dOb8ho7sX9GRlYD29BtoT4lFW9I1tN2NQFtiONpuXcTzhPOo
PxuEvC0eCnJxNwZ0gU/eLaOknbmJeH7jPJ7HvaL1+jm0xp5FawwRfQat107jWeRJtESEoeXKcbSEH0PL
L0fQfDEUzT8Ho+ncQTSe2Y/GU/ugCNsD+bEAyI/sRO3fvZDrsZGvvA+Jt1msGhzgvRJvT7SnxZDoFIl6
iTqFZ9eIyDA8u0rCiBN90maWXjqMpguhaCJx41mlWKESH98tiBsO+aM+2Bc1gT8ie8NaDvARoR7gkedG
vEiKIAkJBKiyK8Tlo2gOJwThETRdVElD0HguiKQkPk3ik/sgP/ETVRyIhsMBJN6B+hA/1AdtR91+bzzd
sQGZa1ZzgI8JtQDvy9zX0ZpdIgm1UgW1telCiBJu73kSUosVZw5Qi5VSRdheZbVHWbwT9aEkDmaxD4m3
om7fFtTs8cSTbT8gbeVKDjCYUAvwwQPXFWiNP08CWr9zJGB4LYnqQwG44eSA8/oGuO3ijPojgSSlNpO0
NmQHbjrPwcnJUxAltUBlgCdqSVzD4p88Ub3bA1W7NuLxFlfcmb9QFYC3Y9/gNB+kOjpSZVTNCaomjFp5
kgQn9qA62B/RUitEevogISYFEavW47qDDWqoyhqqMnq2FS67rkV8dDKuuHvhF5EhKnzdUU1rXrVrE6qo
9U9816F4lTPiJFIOMIRQC/BhssNc1O7dhEqPpcIVW08XEJPgZI9oL3+kZleg4kkjissbELnGHbG2UsTO
tib5OtzLKEFxRQNKnzQhmoJGWZjhqf8GPCVx5WZXlK6eh/yFlogxMecAnxBqAT66Z+dAqTeg3M0Z5T84
o+LHJaja6Y7LRkZoqJajsqYFrS960Nr+EqWP5UKIy39dj7vpJSihYM0vXqK5rRvPFC04raNLf7+cxM4o
XuGA4mX2yJsvQZRIwgE+JdQD/Dbbga5UN5StdkTpKhVOSHS2R9q27eh++TsFeImWNhLRXPJYgcycSpRU
NqLpebcAf+ae52bE2VigiKRFS+zwaKktHi22RY6jGFdnid8Y4OPbUntUbluFElcHYg6Kmb84oMJjBW7a
2yDDz08QCDKqlOfGfnR3/44Ub29Em4tR5r5YkBYutkHh99Yo+F6KB/ZGuDJDCPAZwbfjvsEBBt+ysqUr
dQW1zA5Fy3tZxrM9yj2W44bUHEle3lC0dkJBQkVrVx8NzR24u9kL0abGKNu4lKRSFLhIIXOxgozWPn+B
Be7PnoVwPREH+JwYEIDbMTjeXIqyTZxcisIllHyRlI5nEzYooPmGpRhRq9ejsEwBRQsFaOmCnKgn6po6
EOe2EdFiQ+QtsISMhLI/WyDfWSKQN88UmVYGuDjtzQGGxJlZoWSdCwq+s6KWUdtcLIVjriDOzBDXaPsl
JhejoFyB+maSCnQI8rqmLuSXNCBipRuuGeohx8kMeU6myGUcTZAz1wRpkmn4WdeQAwwlBvwicoBPYsWW
KKbtIqOrNX8BMd+ckOCWpTGi1mzA7eQiyKh6pbADnV096CBqGztQ00teUR0iXd0QI9JHjgOJ7UV4yNgZ
IUWsi3M6MznAMEI9AG+RAtoyefPEyCXynJRzlFiEirIa5Jc2CLJaknd09iDL3xeZfr7CcbWiQ6BK3o66
agUu6U3HA1tDJbT22dKZSDKehNNa+hxgOKEW4NNIQwlktNYP54ioZYSDsVDBr7aWKDx6GG0dPdT6TkGY
vcMfCdZmiLcyFYK002vcFf5MXkgwrpsZk3QG7lvPQBatfZalPu7M0sZJjemqAPyUNSDAZ7xFchdaUOpZ
QuqHPFMFsqVzEE8yDtEllyPb3w83bSQoXDYXhfReAofw80GnvAF5oSF0IRohx8VWkGZaTEemOTMNifqa
ODFhKgf4ghgQgNvxebg+Xyxi3JcaKLE2oCoMhDCyJXORaGeJWIkJ7jhYI3+xvbIyIn+RHW7bmuMq/QbE
007J/c5OkGeYTkOm6VRkmOkindb/9tQJOPaNLgf4klAPcHG6CPfpZpFFqbMs9IT0fMwVZFErZYvojrbS
me7pUmT1ViUgmU63WSsULnek9+iGZaaHDPEUkk5BmojRQRqt/02dcTg8VocDfEWoBRh6QXcWsuhiyZBQ
aoaS981chVDJVKSb0mxKAhN6nUXGfKyDdEE0GWlGOkg1nPQKWvvUmVpImDwGh0ZrqwXgfzjAMN4iGVQR
f1kafWmamL5UOKYvNabZhGeCRKk0pxoRLBApRSkMyVIMtZBCwpSZE5EyQxPJMyYiyUATcVqjETJiIgcY
QfAj+oAAQ09r6wttSxVpUxWUuh8pPHMlvfQJZtK5IJpIIqUsmWRMkoEGkvS+7eO65igEfanxTzsgbMMw
jWnyGB1N3NIdhwSdb4ixiJ805hXaXwvECefKY+GcoeoESBI3kdAcScJeNEYQIxE+djT2DZ/Aj+V8IxoQ
QHgk2zpac9HR8VOajo/XBXNs3BS6anVwZOxkgcNjJgkc+loboaMnIXSUFkJHEiO0qLXEV5oIJoKIg1Tp
wS+I4Ro4MHwC9g//FnuHjW9eO2TkUnKpHkqFADxUXeDndf6h4H3KW4Vb9Tq8fq8z8g2M6gef8w2Inwd5
yfvkPPhE1Ql+k9vzOv3/P/ifoPoeVeUDAqiG6o3/Nb1j0KB/AMYUfCkDw9hpAAAAAElFTkSuQmCC
</value>
</data>
<data name="bbtnitmNotResponsible.Caption" xml:space="preserve">
<value>Nicht zuständig konfigurieren</value>
</data>
<data name="BarButtonItem1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="bbtnitmNotResponsible.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0
bGUATmV4dDtBcnJvdztEb3duKXvBAwAAA7ZJREFUOE81kntMk2cUxj8xZDPFjT+WCErbtR3tqBZwi2xM
@ -1748,7 +1746,7 @@
X+s7Yp84oqHX9vjPJ6H+BRQdQqDP8fc2AAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem1.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="bbtnitmNotResponsible.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0
bGUATmV4dDtBcnJvdztEb3duKXvBAwAACnFJREFUWEeVVgdUlUcWHnfTdlNxk3WTmD0REXDFBoIUYekP
@ -1808,7 +1806,7 @@
<data name="RibbonPageGroupProfile.Text" xml:space="preserve">
<value>Profil-Verwaltung</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<data name="rbnpggroupFinaIndexe.Text" xml:space="preserve">
<value>Finale Indexe</value>
</data>
<data name="RibbonPageGroup4.Text" xml:space="preserve">
@ -5472,10 +5470,10 @@ Top Kreditoren: </value>
<data name="&gt;&gt;RibbonPageGroupProfile.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Name" xml:space="preserve">
<value>RibbonPageGroup2</value>
<data name="&gt;&gt;rbnpggroupFinaIndexe.Name" xml:space="preserve">
<value>rbnpggroupFinaIndexe</value>
</data>
<data name="&gt;&gt;RibbonPageGroup2.Type" xml:space="preserve">
<data name="&gt;&gt;rbnpggroupFinaIndexe.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup4.Name" xml:space="preserve">

View File

@ -410,7 +410,7 @@ Public Class frmAdministration
Private Sub frmProfileDesigner_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
TabControl1.SelectedIndex = 0
FORM_LOADED = True
RibbonPageGroup2.Enabled = False
rbnpggroupFinaIndexe.Enabled = False
RibbonPageGroup4.Enabled = False
EditMode_Profile("Unlock")
End Sub
@ -439,12 +439,15 @@ Public Class frmAdministration
Private Sub TabControl2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles tabctrl_Profilkonfig.SelectedIndexChanged
Select Case tabctrl_Profilkonfig.SelectedIndex
Case 0
RibbonPageGroup2.Enabled = False
rbnpggroupFinaIndexe.Enabled = False
RibbonPageGroup4.Enabled = False
RibbonPageGroupProfile.Enabled = True
Case 1
CURRENT_OBJECTTYPE = cmbObjekttypen.Text
Refresh_Final_Indexes()
CancelFinalIndexInsert()
RibbonPageGroupProfile.Enabled = False
rbnpggroupFinaIndexe.Enabled = True
End Select
End Sub
@ -458,7 +461,7 @@ Public Class frmAdministration
Case 1
GridControlNavigation.Enabled = True
RibbonPageGroupProfile.Enabled = False
RibbonPageGroup2.Enabled = False
rbnpggroupFinaIndexe.Enabled = False
RibbonPageGroup4.Enabled = False
If PROFILGUIDTextBox.Text = String.Empty Then
MsgBox("Kein Profil angelegt oder ausgeählt", MsgBoxStyle.Critical)
@ -467,7 +470,7 @@ Public Class frmAdministration
End If
Case 2
RibbonPageGroupProfile.Enabled = False
RibbonPageGroup2.Enabled = False
rbnpggroupFinaIndexe.Enabled = False
RibbonPageGroup4.Enabled = True
GridControlNavigation.Enabled = False
Load_Chart_Konfig()
@ -650,9 +653,9 @@ Public Class frmAdministration
Private Sub TabControl2_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles TabControl2.SelectedIndexChanged
Select Case TabControl2.SelectedIndex
Case 0
RibbonPageGroup2.Enabled = True
rbnpggroupFinaIndexe.Enabled = True
Case Else
RibbonPageGroup2.Enabled = False
rbnpggroupFinaIndexe.Enabled = False
End Select
CancelFinalIndexInsert()
End Sub
@ -1149,7 +1152,7 @@ Public Class frmAdministration
End Sub
Private Sub gridFinalIndex_MouseHover(sender As Object, e As EventArgs) Handles gridFinalIndex.MouseHover
RibbonPageGroup2.Enabled = True
rbnpggroupFinaIndexe.Enabled = True
End Sub
Private Sub CHANGED_WHENLabel_Click(sender As Object, e As EventArgs)

View File

@ -17,7 +17,7 @@ Public Class frmFormDesigner
Public ProfileName As String
Public ProfileObjectType As String
Public Designer_Locked As Boolean = True
Public ControlSelected As String = ""
Public NewControlSelected As String = ""
' Control Variables
Private CurrentControl As Control = Nothing
@ -564,7 +564,6 @@ Public Class frmFormDesigner
obj.ChangedAt = NotNull(row.Item("CHANGED_WHEN"), Nothing)
obj.ChangedWho = NotNull(row.Item("CHANGED_WHO"), "")
Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular)
Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10)
Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial")
@ -665,6 +664,18 @@ Public Class frmFormDesigner
checkProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
checkProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
props = checkProps
ElseIf TypeOf sender Is LookupControl3 Then
Dim oLookup As LookupControl3 = sender
Dim lookupProps As LookupControlProperties = CreatePropsObjectWithIndicies(New LookupControlProperties, oRow, Source_AllIndicies)
lookupProps.MultiSelect = StrToBool(oRow.Item("MULTISELECT"))
lookupProps.PreventDuplicates = StrToBool(oRow.Item("VKT_PREVENT_MULTIPLE_VALUES"))
lookupProps.AllowAddNewValues = StrToBool(oRow.Item("VKT_ADD_ITEM"))
lookupProps.DisplayAsComboBox = False
lookupProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
lookupProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
lookupProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
props = lookupProps
ElseIf TypeOf sender Is TextEdit Then
'Dim txt As TextEdit = sender
Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, oRow, Source_AllIndicies)
@ -701,18 +712,7 @@ Public Class frmFormDesigner
props = gridProps
ElseIf TypeOf sender Is LookupControl3 Then
Dim grid As LookupControl3 = sender
Dim lookupProps As LookupControlProperties = CreatePropsObjectWithIndicies(New LookupControlProperties, oRow, Source_AllIndicies)
lookupProps.MultiSelect = StrToBool(oRow.Item("MULTISELECT"))
lookupProps.PreventDuplicates = StrToBool(oRow.Item("VKT_PREVENT_MULTIPLE_VALUES"))
lookupProps.AllowAddNewValues = StrToBool(oRow.Item("VKT_ADD_ITEM"))
lookupProps.DisplayAsComboBox = False
lookupProps.Enable_SQL = New SQLValue(NotNull(oRow.Item("SQL_ENABLE"), ""))
lookupProps.Enable_SQL_OnLoad = New SQLValue(NotNull(oRow.Item("SQL_ENABLE_ON_LOAD"), ""))
lookupProps.SetControlData = New SQLValue(NotNull(oRow.Item("SET_CONTROL_DATA"), ""))
props = lookupProps
ElseIf TypeOf sender Is GridControl Then
Dim oGridControl As GridControl = sender
@ -1060,25 +1060,25 @@ Public Class frmFormDesigner
Select Case e.Item.Name
Case "bbtnitLabel"
ControlSelected = ClassControlCreator.PREFIX_LABEL
NewControlSelected = ClassControlCreator.PREFIX_LABEL
Case "bbtnitTextBox"
ControlSelected = ClassControlCreator.PREFIX_TEXTBOX
NewControlSelected = ClassControlCreator.PREFIX_TEXTBOX
Case "btncmb"
ControlSelected = ClassControlCreator.PREFIX_COMBOBOX
NewControlSelected = ClassControlCreator.PREFIX_COMBOBOX
Case "bbtnitDatePicker"
ControlSelected = ClassControlCreator.PREFIX_DATETIMEPICKER
NewControlSelected = ClassControlCreator.PREFIX_DATETIMEPICKER
Case "btnVektor"
ControlSelected = ClassControlCreator.PREFIX_DATAGRIDVIEW
NewControlSelected = ClassControlCreator.PREFIX_DATAGRIDVIEW
Case "bbtnitTable"
ControlSelected = ClassControlCreator.PREFIX_TABLE
NewControlSelected = ClassControlCreator.PREFIX_TABLE
Case "bbtnitCheckBox"
ControlSelected = ClassControlCreator.PREFIX_CHECKBOX
NewControlSelected = ClassControlCreator.PREFIX_CHECKBOX
Case "bbtnitLine"
ControlSelected = ClassControlCreator.PREFIX_LINE
NewControlSelected = ClassControlCreator.PREFIX_LINE
Case "bbtnitButton"
ControlSelected = ClassControlCreator.PREFIX_BUTTON
NewControlSelected = ClassControlCreator.PREFIX_BUTTON
Case "bbtnitLU"
ControlSelected = ClassControlCreator.PREFIX_LOOKUP
NewControlSelected = ClassControlCreator.PREFIX_LOOKUP
End Select
@ -1104,7 +1104,7 @@ Public Class frmFormDesigner
Mouse_IsPressed = False
Try
Select Case ControlSelected
Select Case NewControlSelected
Case ClassControlCreator.PREFIX_LABEL
Dim label = ControlCreator.CreateNewLabel(cursorPosition)
SetMovementHandlers(label)
@ -1242,7 +1242,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(oButton)
End Select
If IsNothing(ControlSelected) = False Then
If IsNothing(NewControlSelected) = False Then
Reload_ControlNameList()
End If
@ -1252,11 +1252,11 @@ Public Class frmFormDesigner
End If
Catch ex As Exception
_Logger.Error(ex)
_Logger.Info($"Error while Adding new control {ControlSelected}:")
_Logger.Info($"Error while Adding new control {NewControlSelected}:")
_Logger.Info(ex)
End Try
Me.Cursor = Cursors.Default
ControlSelected = ""
NewControlSelected = ""
End If
End Sub

File diff suppressed because it is too large Load Diff

View File

@ -120,7 +120,7 @@
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@ -147,7 +147,7 @@
</data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANECAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@ -166,7 +166,7 @@
</data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@ -253,7 +253,7 @@
</data>
<data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi

View File

@ -42,6 +42,8 @@ Partial Class frmKonfig
Me.txtActualConnection = New System.Windows.Forms.TextBox()
Me.txtServer = New System.Windows.Forms.TextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
Me.Label8 = New System.Windows.Forms.Label()
Me.BtnCreateLogfiles = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Label7 = New System.Windows.Forms.Label()
@ -66,6 +68,7 @@ Partial Class frmKonfig
Me.TabControl1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout()
CType(Me.GridControlLogs, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuInternalLog.SuspendLayout()
@ -193,6 +196,8 @@ Partial Class frmKonfig
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.NumericUpDown1)
Me.TabPage3.Controls.Add(Me.Label8)
Me.TabPage3.Controls.Add(Me.BtnCreateLogfiles)
Me.TabPage3.Controls.Add(Me.Button4)
Me.TabPage3.Controls.Add(Me.Label7)
@ -207,6 +212,19 @@ Partial Class frmKonfig
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True
'
'NumericUpDown1
'
resources.ApplyResources(Me.NumericUpDown1, "NumericUpDown1")
Me.NumericUpDown1.Maximum = New Decimal(New Integer() {3, 0, 0, 0})
Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.NumericUpDown1.Name = "NumericUpDown1"
Me.NumericUpDown1.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'Label8
'
resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Name = "Label8"
'
'BtnCreateLogfiles
'
Me.BtnCreateLogfiles.Image = Global.DD_ProcessManager.My.Resources.Resources.AttachFileHS
@ -284,6 +302,7 @@ Partial Class frmKonfig
'
'ContextMenuInternalLog
'
Me.ContextMenuInternalLog.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ContextMenuInternalLog.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LogNachrichtenLeerenToolStripMenuItem, Me.SpeichereLogAlsToolStripMenuItem})
Me.ContextMenuInternalLog.Name = "ContextMenuInternalLog"
resources.ApplyResources(Me.ContextMenuInternalLog, "ContextMenuInternalLog")
@ -352,6 +371,7 @@ Partial Class frmKonfig
Me.TabPage2.PerformLayout()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage4.ResumeLayout(False)
CType(Me.GridControlLogs, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuInternalLog.ResumeLayout(False)
@ -400,4 +420,6 @@ Partial Class frmKonfig
Friend WithEvents SpeichereLogAlsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SaveFileDialog1 As SaveFileDialog
Friend WithEvents BtnCreateLogfiles As Button
Friend WithEvents Label8 As Label
Friend WithEvents NumericUpDown1 As NumericUpDown
End Class

View File

@ -507,6 +507,54 @@
<data name="&gt;&gt;TabPage2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="NumericUpDown1.Location" type="System.Drawing.Point, System.Drawing">
<value>119, 108</value>
</data>
<data name="NumericUpDown1.Size" type="System.Drawing.Size, System.Drawing">
<value>120, 25</value>
</data>
<data name="NumericUpDown1.TabIndex" type="System.Int32, mscorlib">
<value>49</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Name" xml:space="preserve">
<value>NumericUpDown1</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Type" xml:space="preserve">
<value>System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Parent" xml:space="preserve">
<value>TabPage3</value>
</data>
<data name="&gt;&gt;NumericUpDown1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Label8.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label8.Location" type="System.Drawing.Point, System.Drawing">
<value>233, 142</value>
</data>
<data name="Label8.Size" type="System.Drawing.Size, System.Drawing">
<value>192, 17</value>
</data>
<data name="Label8.TabIndex" type="System.Int32, mscorlib">
<value>48</value>
</data>
<data name="Label8.Text" xml:space="preserve">
<value>Intervall Aktualisieren Übersicht:</value>
</data>
<data name="&gt;&gt;Label8.Name" xml:space="preserve">
<value>Label8</value>
</data>
<data name="&gt;&gt;Label8.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label8.Parent" xml:space="preserve">
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Label8.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="BtnCreateLogfiles.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
@ -535,7 +583,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;BtnCreateLogfiles.ZOrder" xml:space="preserve">
<value>0</value>
<value>2</value>
</data>
<data name="Button4.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
@ -562,7 +610,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Button4.ZOrder" xml:space="preserve">
<value>1</value>
<value>3</value>
</data>
<data name="Label7.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@ -589,7 +637,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Label7.ZOrder" xml:space="preserve">
<value>2</value>
<value>4</value>
</data>
<data name="txtIntervall.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 162</value>
@ -613,7 +661,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;txtIntervall.ZOrder" xml:space="preserve">
<value>3</value>
<value>5</value>
</data>
<data name="Label6.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@ -640,12 +688,12 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Label6.ZOrder" xml:space="preserve">
<value>4</value>
<value>6</value>
</data>
<data name="btnOpenLogFolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
vgAADr4B6kKxwAAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
h/1NomAOS0+RPuLfRcjMlFJ/BUNJMJQEQ0kwlARDSTCUBEMy9vR9v9PUJ243B0My5ujyweHE7eZgSPhB
pVye5ypJEo/93O3mYEj44cNcNHyz2arb9f7mJwu4b0j4cJv9dAE7bMjXC+gv1rbAkl5gaQss6QXmfPBY
0RZ4/vZHKsiyzBsU0h7aqAuUVFBVlTcopCjKqAssqKDrOm9QyHq1jrcAHV1wpZI0Tb1hIefTxTxjLWCu
@ -678,7 +726,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;btnOpenLogFolder.ZOrder" xml:space="preserve">
<value>5</value>
<value>7</value>
</data>
<data name="chkLogErrorsOnly.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@ -705,12 +753,12 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;chkLogErrorsOnly.ZOrder" xml:space="preserve">
<value>6</value>
<value>8</value>
</data>
<data name="btnOpenAppDataFolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
vgAADr4B6kKxwAAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
h/1NomAOS0+RPuLfRcjMlFJ/BUNJMJQEQ0kwlARDSTCUBEMy9vR9v9PUJ243B0My5ujyweHE7eZgSPhB
pVye5ypJEo/93O3mYEj44cNcNHyz2arb9f7mJwu4b0j4cJv9dAE7bMjXC+gv1rbAkl5gaQss6QXmfPBY
0RZ4/vZHKsiyzBsU0h7aqAuUVFBVlTcopCjKqAssqKDrOm9QyHq1jrcAHV1wpZI0Tb1hIefTxTxjLWCu
@ -743,7 +791,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;btnOpenAppDataFolder.ZOrder" xml:space="preserve">
<value>7</value>
<value>9</value>
</data>
<data name="LinkLabel1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@ -770,7 +818,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;LinkLabel1.ZOrder" xml:space="preserve">
<value>8</value>
<value>10</value>
</data>
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>438, 59</value>
@ -794,7 +842,7 @@
<value>TabPage3</value>
</data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>9</value>
<value>11</value>
</data>
<data name="TabPage3.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 26</value>

View File

@ -754,24 +754,25 @@ Public Class frmMain
'End If
Dim oReducedColName As String
Try
oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "")
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
If Not IsNothing(GridViewWorkflows.Columns) Then
Try
If oReducedColName <> "Zuletzt bearbeitet" Then
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "")
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
Try
If oReducedColName <> "Zuletzt bearbeitet" Then
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
End If
Catch ex1 As Exception
LOGGER.Warn($"(ResetLayout)Column [{oReducedColName}] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try
End If
Catch ex1 As Exception
LOGGER.Warn($"(ResetLayout)Column [{oReducedColName}] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try
End If
End Try
Try
GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False
@ -937,8 +938,9 @@ Public Class frmMain
End Sub
Function Load_Profiles_for_User() As Boolean
Try
LOGGER.Debug($"Load_Profiles_for_User ...")
If IsNothing(CURR_DT_VWPM_PROFILE_ACTIVE) Then
LOGGER.Info($"ATTENTION: CURR_DT_VWPM_PROFILE_ACTIVE is nothing!")
Return False
End If
@ -1328,21 +1330,25 @@ Public Class frmMain
End Sub
Private Async Function Decide_Load(pIsFormLoad As Boolean, Optional ForceReload As Boolean = False) As Tasks.Task
Try
LOGGER.Debug($"Decide_Load: pIsFormLoad [{pIsFormLoad}] - ForceReload [{ForceReload}] - GRID_LOAD_TYPE [{GRID_LOAD_TYPE}] ")
If pIsFormLoad = True Then
FormShown = False
End If
GridIsLoaded = False
If USER_EXISTS = False Then
LOGGER.Warn($"USER IS NOT EXISTING - CHECK FNDD_LOGIN_USER_MODULE")
Exit Function
End If
If TimerRefresh.Enabled = True Then
LOGGER.Debug($"Decide_Load: TimerRefresh.Enabled = True")
TimerRefresh.Enabled = False
End If
GridViewWorkflows.ShowLoadingPanel()
TimerRefresh.Stop()
FRONTEND_ACTION = "DECIDE_LOAD"
LOGGER.Debug($"Decide_Load: pIsFormLoad [{pIsFormLoad}] - ForceReload [{ForceReload}] - GRID_LOAD_TYPE [{GRID_LOAD_TYPE}] ")
If GRID_LOAD_TYPE = "OVERVIEW" Then
Await Load_Grid_Overview(pIsFormLoad, ForceReload, False)
@ -1712,7 +1718,7 @@ Public Class frmMain
End If
If Len(PROFIL_TITLE) > 0 Then
CURRENT_CLICKED_PROFILE_TITLE = PROFIL_TITLE
CURRENT_CLICKED_PROFILE_TITLE = PROFIL_TITLE.ToString.Replace("GROUP_TEXT:", "")
End If
@ -1908,7 +1914,7 @@ Public Class frmMain
bsiMessage.Caption = ""
If BASEDATA_DT_VW_PROFILE_USER.Rows.Count = 0 Then
LOGGER.Info("no profiles for user: '" & USER_USERNAME & "' configured!", False)
LOGGER.Info("Attention: No profiles for user: '" & USER_USERNAME & "' configured!", False)
NO_WORKFLOWITEMS = True
bsiMessage.Caption = "NO PROFILES FOR USER"
bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
@ -2467,6 +2473,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
FormShown = True
Timer_Inactivity_Reset_Disable("Decide_Load")
LOGGER.Debug("FormShown..Now Decide_Load...")
Await Decide_Load(True)
If GridViewWorkflows.GroupCount = 0 And Not IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then
LOGGER.Info("NO GROUPS AFTER SHOWN_Decide Load...")
@ -2560,9 +2567,8 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
Private Sub PopupErinnerungInaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PopupErinnerungInaktivierenToolStripMenuItem.Click
If CONFIG.Config.ReminderTimer <> 0 Then
CONFIG.Config.ReminderTimer = 0
CONFIG.Save()
Check_Timer_Notification()
TimerReminder.Stop()
TimerReminder.Enabled = False
Else
CONFIG.Config.ReminderTimer = 5
CONFIG.Save()

View File

@ -93,9 +93,13 @@ Partial Class frmValidator
Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitmInfoWorkflow = New DevExpress.XtraBars.BarButtonItem()
Me.bchkitmNotes = New DevExpress.XtraBars.BarCheckItem()
Me.BarButtonGroup1 = New DevExpress.XtraBars.BarButtonGroup()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.rbnPgGroupHinweise = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.rbnPgGroupAttmt = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupCustom = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
@ -522,9 +526,9 @@ Partial Class frmValidator
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6, Me.bbtnitmInfoWorkflow})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6, Me.bbtnitmInfoWorkflow, Me.bchkitmNotes, Me.BarButtonGroup1})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 35
Me.RibbonControl1.MaxItemId = 37
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemComboBox2, Me.RepositoryItemComboBox3})
@ -668,7 +672,6 @@ Partial Class frmValidator
Me.Attmt_bbtnitmShow.Id = 27
Me.Attmt_bbtnitmShow.ImageOptions.SvgImage = CType(resources.GetObject("Attmt_bbtnitmShow.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Attmt_bbtnitmShow.Name = "Attmt_bbtnitmShow"
Me.Attmt_bbtnitmShow.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'barbtnitmExport
'
@ -716,11 +719,23 @@ Partial Class frmValidator
Me.bbtnitmInfoWorkflow.Id = 34
Me.bbtnitmInfoWorkflow.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmInfoWorkflow.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitmInfoWorkflow.Name = "bbtnitmInfoWorkflow"
Me.bbtnitmInfoWorkflow.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'bchkitmNotes
'
resources.ApplyResources(Me.bchkitmNotes, "bchkitmNotes")
Me.bchkitmNotes.Id = 35
Me.bchkitmNotes.ImageOptions.SvgImage = CType(resources.GetObject("bchkitmNotes.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bchkitmNotes.Name = "bchkitmNotes"
'
'BarButtonGroup1
'
resources.ApplyResources(Me.BarButtonGroup1, "BarButtonGroup1")
Me.BarButtonGroup1.Id = 36
Me.BarButtonGroup1.Name = "BarButtonGroup1"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2})
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.rbnPgGroupHinweise, Me.rbnPgGroupAttmt, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
@ -737,20 +752,33 @@ Partial Class frmValidator
'
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefresh)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BbtnitmSave)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefreshSearches)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniAnnotation)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtnitmInfoWorkflow)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
'
'rbnPgGroupHinweise
'
Me.rbnPgGroupHinweise.ItemLinks.Add(Me.bbtnitmInfoWorkflow)
Me.rbnPgGroupHinweise.ItemLinks.Add(Me.bchkitmNotes)
Me.rbnPgGroupHinweise.Name = "rbnPgGroupHinweise"
resources.ApplyResources(Me.rbnPgGroupHinweise, "rbnPgGroupHinweise")
Me.rbnPgGroupHinweise.Visible = False
'
'rbnPgGroupAttmt
'
Me.rbnPgGroupAttmt.ItemLinks.Add(Me.bbtniRefreshSearches)
Me.rbnPgGroupAttmt.ItemLinks.Add(Me.Attmt_bbtnitmShow)
Me.rbnPgGroupAttmt.ItemLinks.Add(Me.Attmnt_bbtnitm_LoadonClick)
Me.rbnPgGroupAttmt.Name = "rbnPgGroupAttmt"
resources.ApplyResources(Me.rbnPgGroupAttmt, "rbnPgGroupAttmt")
Me.rbnPgGroupAttmt.Visible = False
'
'RibbonPageGroupCustom
'
Me.RibbonPageGroupCustom.AllowTextClipping = False
Me.RibbonPageGroupCustom.ItemLinks.Add(Me.Attmt_bbtnitmShow)
Me.RibbonPageGroupCustom.ItemLinks.Add(Me.Attmnt_bbtnitm_LoadonClick)
Me.RibbonPageGroupCustom.ItemLinks.Add(Me.barbtnitmExport)
Me.RibbonPageGroupCustom.Name = "RibbonPageGroupCustom"
resources.ApplyResources(Me.RibbonPageGroupCustom, "RibbonPageGroupCustom")
@ -930,4 +958,8 @@ Partial Class frmValidator
Friend WithEvents SplitContainerReject_NotResp As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents btnNotResponsible As DevExpress.XtraEditors.SimpleButton
Friend WithEvents bbtnitmInfoWorkflow As DevExpress.XtraBars.BarButtonItem
Friend WithEvents bchkitmNotes As DevExpress.XtraBars.BarCheckItem
Friend WithEvents BarButtonGroup1 As DevExpress.XtraBars.BarButtonGroup
Friend WithEvents rbnPgGroupHinweise As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents rbnPgGroupAttmt As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class

View File

@ -219,6 +219,9 @@
+oEotzUUCQAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnNotResponsible.Text" xml:space="preserve">
<value>Not responsible</value>
</data>
<data name="btnNotResponsible.ToolTip1" xml:space="preserve">
<value />
</data>
@ -951,6 +954,42 @@
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="bchkitmNotes.Caption" xml:space="preserve">
<value>Load on Click</value>
</data>
<data name="bchkitmNotes.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value>-1</value>
</data>
<data name="bchkitmNotes.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
<value>-1</value>
</data>
<data name="bchkitmNotes.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrQ2lyY2xlZCI+DQogICAgPHBhdGggZD0iTTE2
LDRDOS40LDQsNCw5LjQsNCwxNmMwLDYuNiw1LjQsMTIsMTIsMTJzMTItNS40LDEyLTEyQzI4LDkuNCwy
Mi42LDQsMTYsNHogTTE0LDIybC02LTZsMi0ybDQsNGw4LThsMiwyICAgTDE0LDIyeiIgY2xhc3M9Ikdy
ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="BarButtonGroup1.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
<value>-1</value>
</data>
<data name="BarButtonGroup1.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
<value>-1</value>
</data>
<data name="BarButtonGroup1.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="RibbonPageFile.Text" xml:space="preserve">
<value>File</value>
</data>

View File

@ -126,7 +126,7 @@
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainerButtons.Location" type="System.Drawing.Point, System.Drawing">
<value>5, 331</value>
<value>5, 404</value>
</data>
<data name="SplitContainerReject_NotResp.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
@ -408,7 +408,7 @@
<value>0, 0</value>
</data>
<data name="btnSave.Size" type="System.Drawing.Size, System.Drawing">
<value>231, 55</value>
<value>496, 55</value>
</data>
<data name="btnSave.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -444,7 +444,7 @@
<value>1</value>
</data>
<data name="SplitContainerButtons.Size" type="System.Drawing.Size, System.Drawing">
<value>632, 55</value>
<value>897, 55</value>
</data>
<data name="SplitContainerButtons.TabIndex" type="System.Int32, mscorlib">
<value>45</value>
@ -477,7 +477,7 @@
<value>2, 2</value>
</data>
<data name="PanelValidatorControl.Size" type="System.Drawing.Size, System.Drawing">
<value>628, 238</value>
<value>893, 311</value>
</data>
<data name="PanelValidatorControl.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@ -498,7 +498,7 @@
<value>5, 85</value>
</data>
<data name="PanelValidatorControlBorder.Size" type="System.Drawing.Size, System.Drawing">
<value>632, 242</value>
<value>897, 315</value>
</data>
<data name="PanelValidatorControlBorder.TabIndex" type="System.Int32, mscorlib">
<value>44</value>
@ -529,7 +529,7 @@
<value>5, 33</value>
</data>
<data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>632, 46</value>
<value>897, 46</value>
</data>
<data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -562,7 +562,7 @@
<value>5, 5</value>
</data>
<data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>632, 28</value>
<value>897, 28</value>
</data>
<data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -589,7 +589,7 @@
<value>0, 0</value>
</data>
<data name="PanelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>642, 392</value>
<value>907, 465</value>
</data>
<data name="PanelControl1.TabIndex" type="System.Int32, mscorlib">
<value>25</value>
@ -628,7 +628,7 @@
<value>3, 4, 3, 4</value>
</data>
<data name="DocumentViewerValidator.Size" type="System.Drawing.Size, System.Drawing">
<value>506, 392</value>
<value>720, 465</value>
</data>
<data name="DocumentViewerValidator.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -658,10 +658,10 @@
<value>1</value>
</data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>1152, 392</value>
<value>1631, 465</value>
</data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>642</value>
<value>907</value>
</data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>37</value>
@ -691,7 +691,7 @@
<value>0, 0</value>
</data>
<data name="barDockControlTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1152, 0</value>
<value>1631, 0</value>
</data>
<data name="&gt;&gt;barDockControlTop.Name" xml:space="preserve">
<value>barDockControlTop</value>
@ -709,10 +709,10 @@
<value>Bottom</value>
</data>
<data name="barDockControlBottom.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 572</value>
<value>0, 645</value>
</data>
<data name="barDockControlBottom.Size" type="System.Drawing.Size, System.Drawing">
<value>1152, 0</value>
<value>1631, 0</value>
</data>
<data name="&gt;&gt;barDockControlBottom.Name" xml:space="preserve">
<value>barDockControlBottom</value>
@ -733,7 +733,7 @@
<value>0, 0</value>
</data>
<data name="barDockControlLeft.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 572</value>
<value>0, 645</value>
</data>
<data name="&gt;&gt;barDockControlLeft.Name" xml:space="preserve">
<value>barDockControlLeft</value>
@ -751,10 +751,10 @@
<value>Right</value>
</data>
<data name="barDockControlRight.Location" type="System.Drawing.Point, System.Drawing">
<value>1152, 0</value>
<value>1631, 0</value>
</data>
<data name="barDockControlRight.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 572</value>
<value>0, 645</value>
</data>
<data name="&gt;&gt;barDockControlRight.Name" xml:space="preserve">
<value>barDockControlRight</value>
@ -772,13 +772,13 @@
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>120</value>
<value>82</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>7, 17</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1152, 572</value>
<value>1631, 645</value>
</data>
<data name="bsiError.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
@ -1108,7 +1108,7 @@
</value>
</data>
<data name="Attmt_bbtnitmShow.Caption" xml:space="preserve">
<value>Anhänge</value>
<value>Anzeigen</value>
</data>
<data name="Attmt_bbtnitmShow.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -1175,7 +1175,7 @@
</value>
</data>
<data name="Attmnt_bbtnitm_LoadonClick.Caption" xml:space="preserve">
<value>Suche nur auf Click laden</value>
<value>Nur auf Click laden</value>
</data>
<data name="Attmnt_bbtnitm_LoadonClick.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -1234,7 +1234,7 @@
</value>
</data>
<data name="bbtnitmInfoWorkflow.Caption" xml:space="preserve">
<value>Hinweise Workflow</value>
<value>Anzeigen</value>
</data>
<data name="bbtnitmInfoWorkflow.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -1261,6 +1261,30 @@
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="bchkitmNotes.Caption" xml:space="preserve">
<value>Nur auf Click laden</value>
</data>
<data name="bchkitmNotes.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrQ2lyY2xlZCI+DQogICAgPHBhdGggZD0iTTE2
LDRDOS40LDQsNCw5LjQsNCwxNmMwLDYuNiw1LjQsMTIsMTIsMTJzMTItNS40LDEyLTEyQzI4LDkuNCwy
Mi42LDQsMTYsNHogTTE0LDIybC02LTZsMi0ybDQsNGw4LThsMiwyICAgTDE0LDIyeiIgY2xhc3M9Ikdy
ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="BarButtonGroup1.Caption" xml:space="preserve">
<value>BarButtonGroup1</value>
</data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@ -1270,6 +1294,12 @@
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Aktionen</value>
</data>
<data name="rbnPgGroupHinweise.Text" xml:space="preserve">
<value>Hinweise</value>
</data>
<data name="rbnPgGroupAttmt.Text" xml:space="preserve">
<value>Anhänge</value>
</data>
<data name="RibbonPageGroupCustom.Text" xml:space="preserve">
<value>Anhänge zu Beleg</value>
</data>
@ -1312,13 +1342,13 @@
<value>Combo</value>
</data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1152, 158</value>
<value>1631, 158</value>
</data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 550</value>
<value>0, 623</value>
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1152, 22</value>
<value>1631, 22</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value>
@ -1863,6 +1893,18 @@
<data name="&gt;&gt;bbtnitmInfoWorkflow.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;bchkitmNotes.Name" xml:space="preserve">
<value>bchkitmNotes</value>
</data>
<data name="&gt;&gt;bchkitmNotes.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarCheckItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonGroup1.Name" xml:space="preserve">
<value>BarButtonGroup1</value>
</data>
<data name="&gt;&gt;BarButtonGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value>
</data>
@ -1881,6 +1923,18 @@
<data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;rbnPgGroupHinweise.Name" xml:space="preserve">
<value>rbnPgGroupHinweise</value>
</data>
<data name="&gt;&gt;rbnPgGroupHinweise.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;rbnPgGroupAttmt.Name" xml:space="preserve">
<value>rbnPgGroupAttmt</value>
</data>
<data name="&gt;&gt;rbnPgGroupAttmt.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroupCustom.Name" xml:space="preserve">
<value>RibbonPageGroupCustom</value>
</data>

View File

@ -27,6 +27,7 @@ Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Text.RegularExpressions
Imports System.Threading
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.TextBox
Imports WINDREAMLib
@ -198,8 +199,6 @@ Public Class frmValidator
_FormClosing = False
_FormLoaded = False
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Never
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Never
Catch ex As Exception
Logger.Warn($"Error in frmValidation_load1: {ex.Message}")
@ -627,8 +626,7 @@ Public Class frmValidator
oPnl2Collapsed = False
Dim oConID As Int16
Dim oCommand As String
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Always
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Always
If Preload = False Then
If AdditionalDocResultsExist Then
@ -662,10 +660,6 @@ Public Class frmValidator
Else
Logger.Debug("AdditionlSearhes result = false!")
bbtniRefreshSearches.Visibility = BarItemVisibility.Never
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Never
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Never
End If
'Else
@ -1045,7 +1039,7 @@ Public Class frmValidator
Dim MyLookupControl As LookupControl3 = ControlCreator.CreateExistingLookupControl(oControlRow, False)
MyLookupControl.Properties.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
MyLookupControl.Properties.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
'MyLookupControl.Properties.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
MyLookupControl.Properties.MultiSelect = oMultiselect
If ObjectEx.NotNull(oControlRow.Item("DEFAULT_VALUE"), "") <> "" Then
@ -1296,7 +1290,7 @@ Public Class frmValidator
Private Sub onCustomButtonClick(sender As System.Object, e As System.EventArgs)
Try
Cursor = Cursors.WaitCursor
Dim oButton As Button = sender
Dim oButton As Windows.Forms.Button = sender
Dim oControlID = DirectCast(oButton.Tag, ClassControlCreator.ControlMetadata).Guid
Dim oSQL = ControlCreator.GET_CONTROL_PROPERTY(DT_CONTROLS, oControlID, "SQL_UEBERPRUEFUNG")
If IsNothing(oSQL) Then
@ -1626,7 +1620,7 @@ Public Class frmValidator
oControlDataSql = clsPatterns.ReplaceAllValues(oControlDataSql, PanelValidatorControl, True)
'Dim oControlDataResult As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId, $"SetControlValues - CTRLID {oControlID}")
Dim oControlDataResult As DataTable = DatabaseFallback.GetDatatable(New GetDatatableOptions(oControlDataSql, DatabaseType.ECM) With {
.ConnectionId = oConnectionId
})
@ -1678,26 +1672,86 @@ Public Class frmValidator
Select Case True
Case oControl.GetType() = GetType(DevExpress.XtraEditors.TextEdit) Or oControl.GetType() = GetType(MemoEdit)
If oControlTextOption = "Replace" Then
oControl.Text = oControlCaption
Else
oControl.Text &= oControlCaption
End If
Try
If oControlTextOption = "Replace" Then
oControl.Text = oControlCaption
Else
oControl.Text &= oControlCaption
End If
oControl.BackColor = oControlBackColor
oControl.ForeColor = oControlFontColor
Catch ex As Exception
Logger.Warn($"Error while Control2Set (TextEdit): {ex.Message}")
End Try
oControl.BackColor = oControlBackColor
oControl.ForeColor = oControlFontColor
Case oControl.GetType() = GetType(LookupControl3)
Dim oDependingLookup As LookupControl3 = oControl
If oDependingLookup.Properties.MultiSelect = True Then
If oControlTextOption = "Replace" Then
oDependingLookup.Properties.SelectedValues = New List(Of String) From {oControlCaption}
Try
Dim oDependingLookup As LookupControl3 = oControl
If oDependingLookup.Properties.MultiSelect = True Then
If oControlTextOption = "Replace" Then
oDependingLookup.Properties.SelectedValues = New List(Of String) From {oControlCaption}
Else
oDependingLookup.Properties.SelectedValues.Add(oControlCaption)
End If
Else
oDependingLookup.Properties.SelectedValues.Add(oControlCaption)
oDependingLookup.Properties.SelectedValues = New List(Of String) From {oControlCaption}
End If
Else
oDependingLookup.Properties.SelectedValues = New List(Of String) From {oControlCaption}
End If
Catch ex As Exception
Logger.Warn($"Error while Control2Set (LookupControl3): {ex.Message}")
End Try
Case oControl.GetType() = GetType(Windows.Forms.ComboBox)
Try
Dim oDependingCombobox As Windows.Forms.ComboBox = oControl
' Versuche, den Index des Eintrags zu finden, der genau dem String entspricht
Dim oIndex As Integer = oDependingCombobox.FindStringExact(oControlCaption)
If oIndex <> -1 Then
' Wenn ein gültiger Index gefunden wurde, setze ihn als ausgewählten Index
oDependingCombobox.SelectedIndex = oIndex
Try
oDependingCombobox.BackColor = oControlBackColor
Catch ex As Exception
End Try
Try
oDependingCombobox.ForeColor = oControlFontColor
Catch ex As Exception
End Try
Else
' Optional: Handle den Fall, dass der String nicht gefunden wurde
End If
Catch ex As Exception
Logger.Warn($"Error while Control2Set (Combobox): {ex.Message}")
End Try
Case oControl.GetType() = GetType(Windows.Forms.CheckBox)
Dim oBitValue As Boolean
Try
oBitValue = CBool(oControlCaption)
Dim oDependingCheckbox As Windows.Forms.CheckBox = oControl
oDependingCheckbox.Checked = oBitValue
Try
oDependingCheckbox.BackColor = oControlBackColor
Catch ex As Exception
End Try
Try
oDependingCheckbox.ForeColor = oControlFontColor
Catch ex As Exception
End Try
Catch ex As Exception
Logger.Warn($"Error while Control2Set (Checkbox): {ex.Message}")
End Try
Case Else
Logger.Warn("SetControlData used on unsupported control")
@ -2620,12 +2674,12 @@ Public Class frmValidator
End If
End If
FillIndexValues(first)
'FillIndexValues(first)
For Each oControl As Control In PanelValidatorControl.Controls
LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid)
Next
FillIndexValues(first)
Logger.Debug("Indexmask loaded")
'Nun loggen das das Profil geladen wurde
@ -2657,7 +2711,11 @@ Public Class frmValidator
End If
End If
Try
Dim oCurrency = GetVariableValuefromSource(PROFIL_CURRENCY_ATTRIBUTE, 1, False)
Dim oCurrency As String
If PROFIL_CURRENCY_ATTRIBUTE <> "" Then
oCurrency = GetVariableValuefromSource(PROFIL_CURRENCY_ATTRIBUTE, 1, False)
End If
If Not IsNothing(oCurrency) Then
Dim oValueType = oCurrency.GetType.ToString
@ -2725,7 +2783,7 @@ Public Class frmValidator
Logger.Warn($"oCurrency is String.empty! ")
End If
Else
Logger.Warn($"oCurrency is Nothing! ")
Logger.Warn($"oCurrency is Nothing - Check PROFIL_CURRENCY_ATTRIBUTE! ")
End If
Catch ex As Exception
@ -2733,7 +2791,7 @@ Public Class frmValidator
End Try
Try
Show_WF_Messages()
Show_WF_Messages(False)
Catch ex As Exception
Logger.Error(ex)
End Try
@ -2748,7 +2806,7 @@ Public Class frmValidator
frmError.ShowDialog()
End Try
End Sub
Sub Show_WF_Messages()
Sub Show_WF_Messages(pShow As Boolean)
Try
If Not Application.OpenForms().OfType(Of frmValidator_Messages).Any Then
Dim oSQLMessage = $"SELECT
@ -2768,13 +2826,16 @@ Public Class frmValidator
End If
DTInfoDoc = DatabaseFallback.GetDatatableECM(oSQLMessage)
If DTInfoDoc.Rows.Count > 0 Then
bbtnitmInfoWorkflow.Visibility = BarItemVisibility.Always
Dim ofrmMessage As New frmValidator_Messages(DTInfoDoc)
frmMessages = ofrmMessage
ofrmMessage.Show()
ofrmMessage.BringToFront()
rbnPgGroupHinweise.Visible = True
bchkitmNotes.Checked = CONFIG.Config.NOTES_ONCLICK
If CONFIG.Config.NOTES_ONCLICK = False Or pShow = True Then
Dim ofrmMessage As New frmValidator_Messages(DTInfoDoc)
frmMessages = ofrmMessage
ofrmMessage.Show()
End If
Else
bbtnitmInfoWorkflow.Visibility = BarItemVisibility.Never
rbnPgGroupHinweise.Visible = False
End If
End If
@ -3343,7 +3404,7 @@ Public Class frmValidator
' If LogErrorsOnly = False Then Logger.Info($"Index Wert wurde gesetzt")
oMyCombobox.Text = oValueFromSource
Else
' If LogErrorsOnly = False Then Logger.Info($"Index Wert wurde ausgewählt")
Logger.Debug($"Index Wert [{oValueFromSource}] wurde ausgewählt")
oMyCombobox.SelectedIndex = oMyCombobox.FindStringExact(oValueFromSource)
Logger.Debug($"oMyComboBox {oMyCombobox.Name} .SelectedIndex: {oMyCombobox.SelectedIndex}")
@ -3873,12 +3934,10 @@ Public Class frmValidator
' Will be hidden later if not search results are found
If RibbonPageCustItm1 <> "" Then
Attmt_bbtnitmShow.Caption = RibbonPageCustItm1
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Always
rbnPgGroupAttmt.Visible = True
Attmnt_bbtnitm_LoadonClick.Checked = CONFIG.Config.ADDITIONAL_SEARCHES_LOAD_ONCLICK
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Always
Else
Attmt_bbtnitmShow.Visibility = BarItemVisibility.Never
Attmnt_bbtnitm_LoadonClick.Visibility = BarItemVisibility.Never
rbnPgGroupAttmt.Visible = False
End If
Load_Additional_Searches(True)
' If Searches should be loaded automatically, not only on click
@ -6146,6 +6205,14 @@ Public Class frmValidator
End Sub
Private Sub bbtnitmInfoWorkflow_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtnitmInfoWorkflow.ItemClick
Show_WF_Messages()
Show_WF_Messages(True)
End Sub
Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles bchkitmNotes.CheckedChanged
If _FormLoaded = False Then
Exit Sub
End If
CONFIG.Config.NOTES_ONCLICK = bchkitmNotes.Checked
CONFIG.Save()
End Sub
End Class