AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS 2.5.0.3 VKT ADD Items und GDPicture

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
app/SetupVS19/Product.wxs
View File

@ -148,13 +148,13 @@
</Component> </Component>
<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275"> <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" Name="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.filters" Name="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.filters64" Name="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.image" Name="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.image64" Name="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.Imaging" Name="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.Imaging64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
</Component> </Component>
<Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191"> <Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">

7
app/TaskFlow/App.config
View File

@ -17,6 +17,9 @@
<setting name="UserConfig_Prefix" serializeAs="String"> <setting name="UserConfig_Prefix" serializeAs="String">
<value>TEST</value> <value>TEST</value>
</setting> </setting>
<setting name="GDPICTURE_VERSION" serializeAs="String">
<value>11.2024</value>
</setting>
</DD_ProcessManager.My.MySettings> </DD_ProcessManager.My.MySettings>
<DevExpress.LookAndFeel.Design.AppSettings> <DevExpress.LookAndFeel.Design.AppSettings>
<setting name="DefaultAppSkin" serializeAs="String"> <setting name="DefaultAppSkin" serializeAs="String">
@ -87,7 +90,9 @@
</DevExpress.LookAndFeel.Design.AppSettings> </DevExpress.LookAndFeel.Design.AppSettings>
</applicationSettings> </applicationSettings>
<connectionStrings> <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> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />

3
app/TaskFlow/ClassConfig.vb
View File

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

7
app/TaskFlow/ClassControlCreator.vb
View File

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

23
app/TaskFlow/ClassInit.vb
View File

@ -347,11 +347,7 @@ Public Class ClassInit
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
LOGGER.Info($"Got a CheckUserDefintion for User [{USER_USERNAME}]") 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_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")) 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") 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_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
User.IsAdmin = USER_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)) 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 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") GDPICTURE_LICENSE = oROW.Item("LICENSE")
End If End If
If oROW.Item("NAME") = "GDPICTURE_TASKFLOW" Then
GDPICTURE_LICENSE = oROW.Item("LICENSE")
LOGGER.Debug("GDPICTURE_TASKFLOW License used!")
End If
Next 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" oStep = "TBDD_SQL_COMMANDS"
oSql = "Select * FROM TBDD_SQL_COMMANDS" oSql = "Select * FROM TBDD_SQL_COMMANDS"

8
app/TaskFlow/ClassParamRefresh.vb
View File

@ -121,6 +121,14 @@ Public Class ClassParamRefresh
ElseIf oMode = "PM.NO_POPUP" Then ElseIf oMode = "PM.NO_POPUP" Then
POPUP_REMINDER_ACTIVE = False POPUP_REMINDER_ACTIVE = False
LOGGER.Debug($"POPUP_REMINDER_ACTIVE [{POPUP_REMINDER_ACTIVE}]") 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 ElseIf oMode.StartsWith("PM.CONV_IDENTIFICATION") Then
Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "") Dim oIdent = oMode.Replace("PM.CONV_IDENTIFICATION=", "")
CONV_IDENTIFICATION = oIdent CONV_IDENTIFICATION = oIdent

4
app/TaskFlow/ModuleControlProperties.vb
View File

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

4
app/TaskFlow/My Project/AssemblyInfo.vb
View File

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

9
app/TaskFlow/My Project/Settings.Designer.vb generated
View File

@ -243,6 +243,15 @@ Namespace My
Me("frmValidatorWindowState") = value Me("frmValidatorWindowState") = value
End Set End Set
End Property 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 Class
End Namespace End Namespace

3
app/TaskFlow/My Project/Settings.settings
View File

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

25
app/TaskFlow/My Project/licenses.licx
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.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.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

44
app/TaskFlow/TaskFlow.vbproj
View File

@ -149,9 +149,8 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath> <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Controls.LookupGrid, Version=0.0.1.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Controls.LookupGrid">
<SpecificVersion>False</SpecificVersion> <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
<HintPath>..\..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Controls.SnapPanel"> <Reference Include="DigitalData.Controls.SnapPanel">
<HintPath>..\..\..\DDMonorepo\Controls.SnapPanel\bin\Debug\DigitalData.Controls.SnapPanel.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Controls.SnapPanel\bin\Debug\DigitalData.Controls.SnapPanel.dll</HintPath>
@ -160,45 +159,46 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath> <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Base, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.Base">
<SpecificVersion>False</SpecificVersion> <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
<HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Config"> <Reference Include="DigitalData.Modules.Config, Version=1.2.2.0, Culture=neutral, processorArchitecture=MSIL">
<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">
<SpecificVersion>False</SpecificVersion> <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>
<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> <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>
<Reference Include="DigitalData.Modules.Encryption, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.Encryption, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll</HintPath> <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Interfaces"> <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>
<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> <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>
<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> <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>
<Reference Include="DigitalData.Modules.Patterns"> <Reference Include="DigitalData.Modules.Patterns">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath> <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Windream"> <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>
<Reference Include="DigitalData.Modules.ZooFlow, Version=1.2.0.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.ZooFlow">
<SpecificVersion>False</SpecificVersion> <HintPath>..\..\..\..\2_DLL Projekte\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
<HintPath>..\..\..\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
</Reference> </Reference>
<Reference Include="DLLLicenseManager"> <Reference Include="DLLLicenseManager">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>

2
app/TaskFlow/clsPatterns.vb
View File

@ -169,7 +169,7 @@ Public Class clsPatterns
If CURRENT_CLICKED_PROFILE_TITLE Is Nothing Then If CURRENT_CLICKED_PROFILE_TITLE Is Nothing Then
CURRENT_CLICKED_PROFILE_TITLE = "NONE_TITLE" CURRENT_CLICKED_PROFILE_TITLE = "NONE_TITLE"
End If 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 End While
Return result Return result
Catch ex As Exception Catch ex As Exception

28
app/TaskFlow/frmAdministration.Designer.vb generated
View File

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

124
app/TaskFlow/frmAdministration.resx
View File

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

17
app/TaskFlow/frmAdministration.vb
View File

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

54
app/TaskFlow/frmFormDesigner.vb
View File

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

902
app/TaskFlow/frmInvDashboard.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

8
app/TaskFlow/frmInvDashboard.resx
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" /> <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"> <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@ -147,7 +147,7 @@
</data> </data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANECAAAC77u/ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANECAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@ -166,7 +166,7 @@
</data> </data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@ -253,7 +253,7 @@
</data> </data>
<data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi

22
app/TaskFlow/frmKonfig.Designer.vb generated
View File

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

72
app/TaskFlow/frmKonfig.resx
View File

@ -507,6 +507,54 @@
<data name="&gt;&gt;TabPage2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TabPage2.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </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"> <data name="BtnCreateLogfiles.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
@ -535,7 +583,7 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;BtnCreateLogfiles.ZOrder" xml:space="preserve"> <data name="&gt;&gt;BtnCreateLogfiles.ZOrder" xml:space="preserve">
<value>0</value> <value>2</value>
</data> </data>
<data name="Button4.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="Button4.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value> <value>NoControl</value>
@ -562,7 +610,7 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;Button4.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Button4.ZOrder" xml:space="preserve">
<value>1</value> <value>3</value>
</data> </data>
<data name="Label7.AutoSize" type="System.Boolean, mscorlib"> <data name="Label7.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -589,7 +637,7 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;Label7.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label7.ZOrder" xml:space="preserve">
<value>2</value> <value>4</value>
</data> </data>
<data name="txtIntervall.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtIntervall.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 162</value> <value>8, 162</value>
@ -613,7 +661,7 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;txtIntervall.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtIntervall.ZOrder" xml:space="preserve">
<value>3</value> <value>5</value>
</data> </data>
<data name="Label6.AutoSize" type="System.Boolean, mscorlib"> <data name="Label6.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -640,12 +688,12 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;Label6.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label6.ZOrder" xml:space="preserve">
<value>4</value> <value>6</value>
</data> </data>
<data name="btnOpenLogFolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnOpenLogFolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG vgAADr4B6kKxwAAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
h/1NomAOS0+RPuLfRcjMlFJ/BUNJMJQEQ0kwlARDSTCUBEMy9vR9v9PUJ243B0My5ujyweHE7eZgSPhB h/1NomAOS0+RPuLfRcjMlFJ/BUNJMJQEQ0kwlARDSTCUBEMy9vR9v9PUJ243B0My5ujyweHE7eZgSPhB
pVye5ypJEo/93O3mYEj44cNcNHyz2arb9f7mJwu4b0j4cJv9dAE7bMjXC+gv1rbAkl5gaQss6QXmfPBY pVye5ypJEo/93O3mYEj44cNcNHyz2arb9f7mJwu4b0j4cJv9dAE7bMjXC+gv1rbAkl5gaQss6QXmfPBY
0RZ4/vZHKsiyzBsU0h7aqAuUVFBVlTcopCjKqAssqKDrOm9QyHq1jrcAHV1wpZI0Tb1hIefTxTxjLWCu 0RZ4/vZHKsiyzBsU0h7aqAuUVFBVlTcopCjKqAssqKDrOm9QyHq1jrcAHV1wpZI0Tb1hIefTxTxjLWCu
@ -678,7 +726,7 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;btnOpenLogFolder.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnOpenLogFolder.ZOrder" xml:space="preserve">
<value>5</value> <value>7</value>
</data> </data>
<data name="chkLogErrorsOnly.AutoSize" type="System.Boolean, mscorlib"> <data name="chkLogErrorsOnly.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -705,12 +753,12 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;chkLogErrorsOnly.ZOrder" xml:space="preserve"> <data name="&gt;&gt;chkLogErrorsOnly.ZOrder" xml:space="preserve">
<value>6</value> <value>8</value>
</data> </data>
<data name="btnOpenAppDataFolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnOpenAppDataFolder.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG vgAADr4B6kKxwAAAAR5JREFUWEfF1LENwjAQBVBGYRSULdIhGCBDgFImI1CmIxukIjVNGmAIoElrfBZG
h/1NomAOS0+RPuLfRcjMlFJ/BUNJMJQEQ0kwlARDSTCUBEMy9vR9v9PUJ243B0My5ujyweHE7eZgSPhB h/1NomAOS0+RPuLfRcjMlFJ/BUNJMJQEQ0kwlARDSTCUBEMy9vR9v9PUJ243B0My5ujyweHE7eZgSPhB
pVye5ypJEo/93O3mYEj44cNcNHyz2arb9f7mJwu4b0j4cJv9dAE7bMjXC+gv1rbAkl5gaQss6QXmfPBY pVye5ypJEo/93O3mYEj44cNcNHyz2arb9f7mJwu4b0j4cJv9dAE7bMjXC+gv1rbAkl5gaQss6QXmfPBY
0RZ4/vZHKsiyzBsU0h7aqAuUVFBVlTcopCjKqAssqKDrOm9QyHq1jrcAHV1wpZI0Tb1hIefTxTxjLWCu 0RZ4/vZHKsiyzBsU0h7aqAuUVFBVlTcopCjKqAssqKDrOm9QyHq1jrcAHV1wpZI0Tb1hIefTxTxjLWCu
@ -743,7 +791,7 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;btnOpenAppDataFolder.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnOpenAppDataFolder.ZOrder" xml:space="preserve">
<value>7</value> <value>9</value>
</data> </data>
<data name="LinkLabel1.AutoSize" type="System.Boolean, mscorlib"> <data name="LinkLabel1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -770,7 +818,7 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;LinkLabel1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;LinkLabel1.ZOrder" xml:space="preserve">
<value>8</value> <value>10</value>
</data> </data>
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing"> <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>438, 59</value> <value>438, 59</value>
@ -794,7 +842,7 @@
<value>TabPage3</value> <value>TabPage3</value>
</data> </data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>9</value> <value>11</value>
</data> </data>
<data name="TabPage3.Location" type="System.Drawing.Point, System.Drawing"> <data name="TabPage3.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 26</value> <value>4, 26</value>

46
app/TaskFlow/frmMain.vb
View File

@ -754,24 +754,25 @@ Public Class frmMain
'End If 'End If
Dim oReducedColName As String Dim oReducedColName As String
Try If Not IsNothing(GridViewWorkflows.Columns) Then
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 Try
If oReducedColName <> "Zuletzt bearbeitet" Then oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime oReducedColName = oReducedColName.Replace("]", "")
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" 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 Try
End If
End Try
Try Try
GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False
@ -937,8 +938,9 @@ Public Class frmMain
End Sub End Sub
Function Load_Profiles_for_User() As Boolean Function Load_Profiles_for_User() As Boolean
Try Try
LOGGER.Debug($"Load_Profiles_for_User ...")
If IsNothing(CURR_DT_VWPM_PROFILE_ACTIVE) Then If IsNothing(CURR_DT_VWPM_PROFILE_ACTIVE) Then
LOGGER.Info($"ATTENTION: CURR_DT_VWPM_PROFILE_ACTIVE is nothing!")
Return False Return False
End If End If
@ -1328,21 +1330,25 @@ Public Class frmMain
End Sub End Sub
Private Async Function Decide_Load(pIsFormLoad As Boolean, Optional ForceReload As Boolean = False) As Tasks.Task Private Async Function Decide_Load(pIsFormLoad As Boolean, Optional ForceReload As Boolean = False) As Tasks.Task
Try Try
LOGGER.Debug($"Decide_Load: pIsFormLoad [{pIsFormLoad}] - ForceReload [{ForceReload}] - GRID_LOAD_TYPE [{GRID_LOAD_TYPE}] ")
If pIsFormLoad = True Then If pIsFormLoad = True Then
FormShown = False FormShown = False
End If End If
GridIsLoaded = False GridIsLoaded = False
If USER_EXISTS = False Then If USER_EXISTS = False Then
LOGGER.Warn($"USER IS NOT EXISTING - CHECK FNDD_LOGIN_USER_MODULE")
Exit Function Exit Function
End If End If
If TimerRefresh.Enabled = True Then If TimerRefresh.Enabled = True Then
LOGGER.Debug($"Decide_Load: TimerRefresh.Enabled = True")
TimerRefresh.Enabled = False TimerRefresh.Enabled = False
End If End If
GridViewWorkflows.ShowLoadingPanel() GridViewWorkflows.ShowLoadingPanel()
TimerRefresh.Stop() TimerRefresh.Stop()
FRONTEND_ACTION = "DECIDE_LOAD" FRONTEND_ACTION = "DECIDE_LOAD"
LOGGER.Debug($"Decide_Load: pIsFormLoad [{pIsFormLoad}] - ForceReload [{ForceReload}] - GRID_LOAD_TYPE [{GRID_LOAD_TYPE}] ")
If GRID_LOAD_TYPE = "OVERVIEW" Then If GRID_LOAD_TYPE = "OVERVIEW" Then
Await Load_Grid_Overview(pIsFormLoad, ForceReload, False) Await Load_Grid_Overview(pIsFormLoad, ForceReload, False)
@ -1712,7 +1718,7 @@ Public Class frmMain
End If End If
If Len(PROFIL_TITLE) > 0 Then If Len(PROFIL_TITLE) > 0 Then
CURRENT_CLICKED_PROFILE_TITLE = PROFIL_TITLE CURRENT_CLICKED_PROFILE_TITLE = PROFIL_TITLE.ToString.Replace("GROUP_TEXT:", "")
End If End If
@ -1908,7 +1914,7 @@ Public Class frmMain
bsiMessage.Caption = "" bsiMessage.Caption = ""
If BASEDATA_DT_VW_PROFILE_USER.Rows.Count = 0 Then 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 NO_WORKFLOWITEMS = True
bsiMessage.Caption = "NO PROFILES FOR USER" bsiMessage.Caption = "NO PROFILES FOR USER"
bsiMessage.ItemAppearance.Normal.BackColor = Color.Red 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 FormShown = True
Timer_Inactivity_Reset_Disable("Decide_Load") Timer_Inactivity_Reset_Disable("Decide_Load")
LOGGER.Debug("FormShown..Now Decide_Load...")
Await Decide_Load(True) Await Decide_Load(True)
If GridViewWorkflows.GroupCount = 0 And Not IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then If GridViewWorkflows.GroupCount = 0 And Not IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then
LOGGER.Info("NO GROUPS AFTER SHOWN_Decide Load...") 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 Private Sub PopupErinnerungInaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PopupErinnerungInaktivierenToolStripMenuItem.Click
If CONFIG.Config.ReminderTimer <> 0 Then If CONFIG.Config.ReminderTimer <> 0 Then
CONFIG.Config.ReminderTimer = 0 TimerReminder.Stop()
CONFIG.Save() TimerReminder.Enabled = False
Check_Timer_Notification()
Else Else
CONFIG.Config.ReminderTimer = 5 CONFIG.Config.ReminderTimer = 5
CONFIG.Save() CONFIG.Save()

50
app/TaskFlow/frmValidator.Designer.vb generated
View File

@ -93,9 +93,13 @@ Partial Class frmValidator
Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem() Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnitmInfoWorkflow = 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.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = 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.RibbonPageGroupCustom = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
@ -522,9 +526,9 @@ Partial Class frmValidator
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 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") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 35 Me.RibbonControl1.MaxItemId = 37
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) 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}) 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.Id = 27
Me.Attmt_bbtnitmShow.ImageOptions.SvgImage = CType(resources.GetObject("Attmt_bbtnitmShow.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) 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.Name = "Attmt_bbtnitmShow"
Me.Attmt_bbtnitmShow.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
' '
'barbtnitmExport 'barbtnitmExport
' '
@ -716,11 +719,23 @@ Partial Class frmValidator
Me.bbtnitmInfoWorkflow.Id = 34 Me.bbtnitmInfoWorkflow.Id = 34
Me.bbtnitmInfoWorkflow.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmInfoWorkflow.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.bbtnitmInfoWorkflow.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmInfoWorkflow.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitmInfoWorkflow.Name = "bbtnitmInfoWorkflow" 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 '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" Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
' '
@ -737,20 +752,33 @@ Partial Class frmValidator
' '
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefresh) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefresh)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BbtnitmSave) Me.RibbonPageGroup3.ItemLinks.Add(Me.BbtnitmSave)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefreshSearches)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniAnnotation) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniAnnotation)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtnitmInfoWorkflow)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3" Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "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 'RibbonPageGroupCustom
' '
Me.RibbonPageGroupCustom.AllowTextClipping = False 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.ItemLinks.Add(Me.barbtnitmExport)
Me.RibbonPageGroupCustom.Name = "RibbonPageGroupCustom" Me.RibbonPageGroupCustom.Name = "RibbonPageGroupCustom"
resources.ApplyResources(Me.RibbonPageGroupCustom, "RibbonPageGroupCustom") resources.ApplyResources(Me.RibbonPageGroupCustom, "RibbonPageGroupCustom")
@ -930,4 +958,8 @@ Partial Class frmValidator
Friend WithEvents SplitContainerReject_NotResp As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainerReject_NotResp As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents btnNotResponsible As DevExpress.XtraEditors.SimpleButton Friend WithEvents btnNotResponsible As DevExpress.XtraEditors.SimpleButton
Friend WithEvents bbtnitmInfoWorkflow As DevExpress.XtraBars.BarButtonItem 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 End Class

39
app/TaskFlow/frmValidator.en.resx
View File

@ -219,6 +219,9 @@
+oEotzUUCQAAAABJRU5ErkJggg== +oEotzUUCQAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="btnNotResponsible.Text" xml:space="preserve">
<value>Not responsible</value>
</data>
<data name="btnNotResponsible.ToolTip1" xml:space="preserve"> <data name="btnNotResponsible.ToolTip1" xml:space="preserve">
<value /> <value />
</data> </data>
@ -951,6 +954,42 @@
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value> </value>
</data> </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"> <data name="RibbonPageFile.Text" xml:space="preserve">
<value>File</value> <value>File</value>
</data> </data>

104
app/TaskFlow/frmValidator.resx
View File

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

155
app/TaskFlow/frmValidator.vb
View File

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