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

Compare commits

base: AppStd:translations
Branches Tags
AppStd:master AppStd:Cockpit_TreeView AppStd:Cockpit AppStd:Release-2.8.7.2 AppStd:Release-Spaltenberechnung AppStd:Release-2.8.0 AppStd:2.7.0-Release AppStd:2.6.1-Bugfix-Massenbearbeitung AppStd:2.6.0-Release AppStd:2.6.1-Fix AppStd:2.5.4.0 AppStd:translations AppStd:Bereinigung_LoadProfil
...
compare: AppStd:1f66f1203085803fb9bfc826d48ab065cd99dce1
Branches Tags
AppStd:Cockpit_TreeView AppStd:Cockpit AppStd:master AppStd:Release-2.8.7.2 AppStd:Release-Spaltenberechnung AppStd:Release-2.8.0 AppStd:2.7.0-Release AppStd:2.6.1-Bugfix-Massenbearbeitung AppStd:2.6.0-Release AppStd:2.6.1-Fix AppStd:2.5.4.0 AppStd:translations AppStd:Bereinigung_LoadProfil

4 Commits
translatio ... 1f66f12030

Author SHA1 Message Date
Digital Data - Marlon Schreiber
1f66f12030 MS 2022-10-14 10:31:03 +02:00
Digital Data - Marlon Schreiber
f55a7bdfc3 MS Languages 2022-10-14 10:09:43 +02:00
Jonathan Jenne
1ac7aeae93 Version 2.3.8.6 2022-10-06 09:10:58 +02:00
Jonathan Jenne
3b258180a0 Adjust modules to new path DDModules 2022-10-06 09:07:57 +02:00
10 changed files with 226 additions and 269 deletions
Expand all files Collapse all files

9
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@@ -21,7 +21,14 @@ Public Class ClassAllgemeineFunktionen
End If End If
Else Else
Return oFilteredDatatable If oFilteredDatatable.Rows.Count = 0 Then 'KEIN EINTRAG FÜR SPRACHE
oExpression = $"LANGUAGE ='de-DE' AND TITLE = '{pTITLE}'"
BASEDATA_DT_GUI_LANGUAGE_PHRASES.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
Return oFilteredDatatable.Rows(0).Item("STRING1")
Else
Return oFilteredDatatable
End If
End If End If
End Function End Function
Public Shared Function GUI_LANGUAGE_MSGBOX(pTITLE As String) Public Shared Function GUI_LANGUAGE_MSGBOX(pTITLE As String)

6
app/DD_PM_WINDREAM/ClassIDBData.vb
View File

@@ -92,7 +92,7 @@
oSingleAttribute = False oSingleAttribute = False
End Select End Select
Dim oAttributeValue Dim oAttributeValue
LOGGER.Debug($"IDBData - GetVariableValue - oSingleAttribute [{oSingleAttribute.ToString}] - FromIDB [{FromIDB.ToString}]")
If oSingleAttribute = True And IDB_DT_DOC_DATA.Rows.Count = 1 And FromIDB = False Then If oSingleAttribute = True And IDB_DT_DOC_DATA.Rows.Count = 1 And FromIDB = False Then
Try Try
If oAttributeName = "IDBCreatedWhen" Then If oAttributeName = "IDBCreatedWhen" Then
@@ -104,7 +104,7 @@
ElseIf oAttributeName = "IDBChangedWho" Then ElseIf oAttributeName = "IDBChangedWho" Then
oAttributeName = "CHANGED_WHO" oAttributeName = "CHANGED_WHO"
End If End If
LOGGER.Debug($"IDBData - GetVariableValue - IDB_DT_DOC_DATA.Rows.Count = 1")
oAttributeValue = IDB_DT_DOC_DATA.Rows(0).Item(oAttributeName) oAttributeValue = IDB_DT_DOC_DATA.Rows(0).Item(oAttributeName)
Catch ex As Exception Catch ex As Exception
LOGGER.Debug($"Error getting Attribute from IDB_DT_DOC_DATA: {ex.Message}") LOGGER.Debug($"Error getting Attribute from IDB_DT_DOC_DATA: {ex.Message}")
@@ -112,11 +112,13 @@
End If End If
If Not IsNothing(oAttributeValue) Then If Not IsNothing(oAttributeValue) Then
LOGGER.Debug($"IDBData - GetVariableValue - Returning value: [{oAttributeValue}]")
Return oAttributeValue Return oAttributeValue
Else Else
LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ") LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ")
End If End If
Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))" Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
LOGGER.Debug($"GetVariableValue: {oFNSQL}")
oAttributeValue = DatabaseFallback.GetDatatableIDB(oFNSQL) oAttributeValue = DatabaseFallback.GetDatatableIDB(oFNSQL)
Dim odt As DataTable = oAttributeValue Dim odt As DataTable = oAttributeValue
If odt.Rows.Count = 1 Then If odt.Rows.Count = 1 Then

2
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -448,7 +448,7 @@ Public Class ClassInit
BASEDATA_DT_TBDD_SQL_COMMANDS = DatabaseFallback.GetDatatable("TBDD_SQL_COMMANDS", New GetDatatableOptions(oSql, DatabaseType.ECM)) BASEDATA_DT_TBDD_SQL_COMMANDS = DatabaseFallback.GetDatatable("TBDD_SQL_COMMANDS", New GetDatatableOptions(oSql, DatabaseType.ECM))
oStep = "TBDD_GUI_LANGUAGE_PHRASE" oStep = "TBDD_GUI_LANGUAGE_PHRASE"
oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')" oSql = $"SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules') and LANGUAGE = '{USER_LANGUAGE}'"
'BASEDATA_DT_GUI_LANGUAGE_PHRASES = DataASorDB.GetDatatable("DD_ECM", oSql, "TBDD_GUI_LANGUAGE_PHRASE", "") 'BASEDATA_DT_GUI_LANGUAGE_PHRASES = DataASorDB.GetDatatable("DD_ECM", oSql, "TBDD_GUI_LANGUAGE_PHRASE", "")
BASEDATA_DT_GUI_LANGUAGE_PHRASES = DatabaseFallback.GetDatatable("TBDD_GUI_LANGUAGE_PHRASE", New GetDatatableOptions(oSql, DatabaseType.ECM)) BASEDATA_DT_GUI_LANGUAGE_PHRASES = DatabaseFallback.GetDatatable("TBDD_GUI_LANGUAGE_PHRASE", New GetDatatableOptions(oSql, DatabaseType.ECM))

2
app/DD_PM_WINDREAM/ClassParamRefresh.vb
View File

@@ -14,6 +14,8 @@ Public Class ClassParamRefresh
Dim oSQL = oRow.Item("SQL_COMMAND") Dim oSQL = oRow.Item("SQL_COMMAND")
USERCOUNT_LOGGED_IN = DatabaseFallback.GetScalarValueECM(oSQL) USERCOUNT_LOGGED_IN = DatabaseFallback.GetScalarValueECM(oSQL)
oLicenseoverSQL = True oLicenseoverSQL = True
ElseIf oRow.Item("TITLE") = "PM_PROFILES_USER" Then
SQL_PROFILES_USER = oRow.Item("SQL_COMMAND")
End If End If
Next Next
End If End If

35
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@@ -165,28 +165,31 @@
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Base, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.Base, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Base\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.1.4.1, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Database, Version=2.1.4.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath> <HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.EDMI.API"> <Reference Include="DigitalData.Modules.Database, Version=2.2.7.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\..\..\DDMonorepo\Modules.EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language">
<HintPath>..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging, Version=2.4.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath> <HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.ZooFlow, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.EDMI.API, Version=1.5.4.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath> <HintPath>..\..\..\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language, Version=1.6.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ZooFlow, Version=1.2.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
</Reference> </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/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@@ -157,4 +157,6 @@ Module ModuleRuntimeVariables
Public Property Timer5Mins_running As Boolean = False Public Property Timer5Mins_running As Boolean = False
Public Property TimerRefresh_running As Boolean = False Public Property TimerRefresh_running As Boolean = False
Public Property SQL_PROFILES_USER As String = ""
End Module End Module

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

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("TaskFlow")> <Assembly: AssemblyProduct("TaskFlow")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2022")> <Assembly: AssemblyCopyright("Copyright © Digital Data 2022")>
<Assembly: AssemblyTrademark("2.3.8.5")> <Assembly: AssemblyTrademark("2.3.8.6")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.8.5")> <Assembly: AssemblyVersion("2.3.8.6")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

2
app/DD_PM_WINDREAM/frmMain.resx
View File

@@ -1793,7 +1793,7 @@
<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>198</value> <value>63</value>
</metadata> </metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing"> <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>9, 19</value> <value>9, 19</value>

405
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -54,7 +54,8 @@ Public Class frmMain
Private FRONTEND_ACTION As String = "NONE" Private FRONTEND_ACTION As String = "NONE"
Private Ev_Filter_Panel_Closed As Boolean = False Private Ev_Filter_Panel_Closed As Boolean = False
Dim omsgOpenWorkflow = "Bitte schliessen Sie den offenen Workflow!" Dim omsgOpenWorkflow = "Bitte schliessen Sie den offenen Workflow!"
Dim omsgTitleWarning = "Achtung:" Dim omsgTitleWarning As String
Dim omsgTitleAttention As String
Private Const FullFilepatColName = "FULL_FILE_PATH" Private Const FullFilepatColName = "FULL_FILE_PATH"
Private Const FA_NONE = "NONE" Private Const FA_NONE = "NONE"
Private Function GET_LAST_ADDED(pDatatable As DataTable) As String Private Function GET_LAST_ADDED(pDatatable As DataTable) As String
@@ -148,7 +149,7 @@ Public Class frmMain
FormOpenClose = True FormOpenClose = True
LOGGER.Debug("Initializing MainForm....") LOGGER.Debug("Initializing MainForm....")
GridBuilder = New GridBuilder(GridView_Docs) GridBuilder = New GridBuilder(GridViewWFItems)
GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta) GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
Dim oFontSettings = New List(Of FontSetting) From { Dim oFontSettings = New List(Of FontSetting) From {
@@ -164,12 +165,10 @@ Public Class frmMain
FirstOrDefault() FirstOrDefault()
' Create helper to save/load expanded GroupColumns at runtime ' Create helper to save/load expanded GroupColumns at runtime
RefreshHelper = New RefreshHelper(LOGCONFIG, GridView_Docs, "GUID") RefreshHelper = New RefreshHelper(LOGCONFIG, GridViewWFItems, "GUID")
omsgOpenWorkflow = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WorkflowIsActive1")
If User.Language <> "de-DE" Then omsgTitleWarning = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MsgboxTitleWarning")
omsgOpenWorkflow = "Please close the active workflow!" omsgTitleAttention = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MsgboxTitleAttention")
omsgTitleWarning = "Warning:"
End If
Dim oVErsion = String.Format("{0}.{1}.{2}", My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build) Dim oVErsion = String.Format("{0}.{1}.{2}", My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build)
@@ -235,12 +234,10 @@ Public Class frmMain
If USER_IS_ADMIN = True Then If USER_IS_ADMIN = True Then
RibbonPageGroup3.Visible = True RibbonPageGroup3.Visible = True
'Anzahl der eingeloggten User 'Anzahl der eingeloggten User
bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
If USER_LANGUAGE <> "de-DE" Then Dim oCaption As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("LicenseCountCaption")
bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN bsiUserLoggedIn.Caption = $"{oCaption} {USERCOUNT_LOGGED_IN}"
Else
bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
If GHOSTMODE_ACTIVE = True Then If GHOSTMODE_ACTIVE = True Then
bbtnitmGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bbtnitmGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else Else
@@ -562,7 +559,7 @@ Public Class frmMain
Try Try
Dim xml As String = GetXML_LayoutName() Dim xml As String = GetXML_LayoutName()
GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout) GridViewWFItems.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Error while saving GridLayout: " & ex.Message) LOGGER.Info("Error while saving GridLayout: " & ex.Message)
@@ -576,7 +573,7 @@ Public Class frmMain
Try Try
Dim oXml As String = GetXML_LayoutName() Dim oXml As String = GetXML_LayoutName()
GridView_Docs.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout) GridViewWFItems.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Error while restoring layout: " & ex.Message) LOGGER.Info("Error while restoring layout: " & ex.Message)
@@ -589,12 +586,12 @@ Public Class frmMain
Dim xml As String = GetXML_LayoutName() Dim xml As String = GetXML_LayoutName()
IO.File.Delete(xml) IO.File.Delete(xml)
Try Try
GridView_Docs.Columns.Clear() GridViewWFItems.Columns.Clear()
Catch ex As Exception Catch ex As Exception
If IsNothing(GridView_Docs) Then If IsNothing(GridViewWFItems) Then
LOGGER.Warn("Somehow GridView_Docs is nothing....") LOGGER.Warn("Somehow GridView_Docs is nothing....")
Else Else
If IsNothing(GridView_Docs.Columns) Then If IsNothing(GridViewWFItems.Columns) Then
LOGGER.Warn("Somehow GridView_Docs.Columns is nothing....") LOGGER.Warn("Somehow GridView_Docs.Columns is nothing....")
End If End If
@@ -602,28 +599,28 @@ Public Class frmMain
Exit Sub Exit Sub
End Try End Try
GridView_Docs.PopulateColumns() GridViewWFItems.PopulateColumns()
If GridView_Docs.Columns.Count > 0 Then If GridViewWFItems.Columns.Count > 0 Then
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False GridViewWFItems.Columns.Item("GUID").Visible = False
Try Try
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
Try Try
'GridView_Docs.Columns.Item("DocID").Visible = False 'GridView_Docs.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False GridViewWFItems.Columns.Item("TL_STATE").Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
Try Try
If TL_ICON = True Then If TL_ICON = True Then
GridView_Docs.Columns.Item("ICON").MaxWidth = 24 GridViewWFItems.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridViewWFItems.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left GridViewWFItems.Columns.Item("ICON").Fixed = FixedStyle.Left
End If End If
Catch ex As Exception Catch ex As Exception
@@ -632,16 +629,16 @@ Public Class frmMain
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then If GridViewWFItems.Columns.Item("CONV_YN") IsNot Nothing Then
GridView_Docs.Columns.Item("CONV_YN").Visible = False GridViewWFItems.Columns.Item("CONV_YN").Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Info("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION") LOGGER.Info("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION")
End Try End Try
Try Try
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24 GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24 GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left GridViewWFItems.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
Catch ex As Exception Catch ex As Exception
LOGGER.Info("ResetLayout - Column CONVERSATION obviously is not part of GridView_Docs") LOGGER.Info("ResetLayout - Column CONVERSATION obviously is not part of GridView_Docs")
End Try End Try
@@ -651,12 +648,12 @@ Public Class frmMain
Try Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "") oReducedColName = oReducedColName.Replace("]", "")
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception Catch ex As Exception
Try Try
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception Catch ex1 As Exception
LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try End Try
@@ -664,8 +661,8 @@ Public Class frmMain
End Try End Try
Try Try
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False
Catch ex As Exception Catch ex As Exception
@@ -790,10 +787,10 @@ Public Class frmMain
GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString
TimerRefresh.Stop() TimerRefresh.Stop()
GridView_Docs.ShowLoadingPanel() GridViewWFItems.ShowLoadingPanel()
DetailLinkActive = True DetailLinkActive = True
Await Load_single_Profile(True) Await Load_single_Profile(True)
GridView_Docs.HideLoadingPanel() GridViewWFItems.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
Else Else
CURRENT_CLICKED_PROFILE_TITLE = Nothing CURRENT_CLICKED_PROFILE_TITLE = Nothing
@@ -803,7 +800,7 @@ Public Class frmMain
ElseIf _tag = "OVERVIEW" Then ElseIf _tag = "OVERVIEW" Then
OverviewOrDEtail = "OVERVIEW" OverviewOrDEtail = "OVERVIEW"
GRID_LOAD_TYPE = "OVERVIEW" GRID_LOAD_TYPE = "OVERVIEW"
GridView_Docs.ShowLoadingPanel() GridViewWFItems.ShowLoadingPanel()
TimerRefresh.Stop() TimerRefresh.Stop()
Dim oForce As Boolean = False Dim oForce As Boolean = False
If DetailLinkActive = True Then If DetailLinkActive = True Then
@@ -812,13 +809,13 @@ Public Class frmMain
OVERVIEW_ADDED_WHEN = "" OVERVIEW_ADDED_WHEN = ""
End If End If
Await Load_Grid_Overview(False, True, True) Await Load_Grid_Overview(False, True, True)
GridView_Docs.HideLoadingPanel() GridViewWFItems.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
RefreshHelper.LoadViewInfo() RefreshHelper.LoadViewInfo()
If GridView_Docs.GroupCount = 0 And IsNothing(GridView_Docs.Columns("GROUP_TEXT")) Then If GridViewWFItems.GroupCount = 0 And IsNothing(GridViewWFItems.Columns("GROUP_TEXT")) Then
LOGGER.Info("NO GROUPS AFTER CLICK OVERVIEW...CREATING GROUPS NEW...") LOGGER.Info("NO GROUPS AFTER CLICK OVERVIEW...CREATING GROUPS NEW...")
Await Load_Grid_Overview(False, True, True) Await Load_Grid_Overview(False, True, True)
GridView_Docs.HideLoadingPanel() GridViewWFItems.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
RefreshHelper.LoadViewInfo() RefreshHelper.LoadViewInfo()
End If End If
@@ -899,7 +896,7 @@ Public Class frmMain
OVERVIEW_CHANGED_WHEN = oChanged OVERVIEW_CHANGED_WHEN = oChanged
OVERVIEW_COUNT = oCOUNT OVERVIEW_COUNT = oCOUNT
End If End If
GridView_Docs.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE GridViewWFItems.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
If CURR_DT_OVERVIEW.Rows.Count = 0 Then If CURR_DT_OVERVIEW.Rows.Count = 0 Then
NO_WORKFLOWITEMS = True NO_WORKFLOWITEMS = True
Else Else
@@ -908,7 +905,7 @@ Public Class frmMain
Create_Basic_View() Create_Basic_View()
RestoreLayout() RestoreLayout()
GridView_Docs.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE GridViewWFItems.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
End If End If
End If End If
@@ -924,7 +921,7 @@ Public Class frmMain
FRONTEND_ACTION = "Create_Basic_View" FRONTEND_ACTION = "Create_Basic_View"
GridControl_Docs.DataSource = Nothing GridControl_Docs.DataSource = Nothing
Try Try
GridView_Docs.Columns.Clear() GridViewWFItems.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Warn("Could not clear GridView_Docs.Columns") LOGGER.Warn("Could not clear GridView_Docs.Columns")
@@ -988,12 +985,9 @@ Public Class frmMain
Next Next
bindsourcegrid.DataSource = CURR_DT_OVERVIEW bindsourcegrid.DataSource = CURR_DT_OVERVIEW
GridControl_Docs.DataSource = bindsourcegrid GridControl_Docs.DataSource = bindsourcegrid
Dim objectCount_Descr = GridView_Docs.RowCount.ToString Dim objectCount_Descr = GridViewWFItems.RowCount.ToString
If USER_LANGUAGE = "de-DE" Then Dim ocapt = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescItems")
objectCount_Descr &= " Vorgänge" objectCount_Descr = $"{objectCount_Descr} {ocapt}"
Else
objectCount_Descr &= " objects"
End If
'tslblObjectCount.Text = objectCount_Descr 'tslblObjectCount.Text = objectCount_Descr
@@ -1002,24 +996,24 @@ Public Class frmMain
RestoreLayout() RestoreLayout()
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False GridViewWFItems.Columns.Item("GUID").Visible = False
Try Try
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
Try Try
'GridView_Docs.Columns.Item("DocID").Visible = False 'GridView_Docs.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False GridViewWFItems.Columns.Item("TL_STATE").Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
Try Try
If TL_ICON = True Then If TL_ICON = True Then
GridView_Docs.Columns.Item("ICON").MaxWidth = 24 GridViewWFItems.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridViewWFItems.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left GridViewWFItems.Columns.Item("ICON").Fixed = FixedStyle.Left
End If End If
Catch ex As Exception Catch ex As Exception
@@ -1027,15 +1021,15 @@ Public Class frmMain
Try Try
GridView_Docs.Columns.Item("CONV_YN").Visible = False GridViewWFItems.Columns.Item("CONV_YN").Visible = False
Catch ex As Exception Catch ex As Exception
LOGGER.Info("Create_Basic_View - Check wether Column CONV_YN is part of select/view") LOGGER.Info("Create_Basic_View - Check wether Column CONV_YN is part of select/view")
End Try End Try
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24 GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24 GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left GridViewWFItems.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
Catch ex As Exception Catch ex As Exception
LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridView_Docs - Trying to Rest Layout") LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridView_Docs - Trying to Rest Layout")
ResetLayout() ResetLayout()
@@ -1049,12 +1043,12 @@ Public Class frmMain
Try Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "") oReducedColName = oReducedColName.Replace("]", "")
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception Catch ex As Exception
Try Try
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception Catch ex1 As Exception
LOGGER.Warn("(CreateBasicView)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") LOGGER.Warn("(CreateBasicView)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try End Try
@@ -1063,8 +1057,8 @@ Public Class frmMain
LOGGER.Debug("All columns in CreateBasicView created") LOGGER.Debug("All columns in CreateBasicView created")
Try Try
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False
Catch ex As Exception Catch ex As Exception
If OverviewOrDEtail = "OVERVIEW" Then If OverviewOrDEtail = "OVERVIEW" Then
LOGGER.Warn("ATTENTION: GROUP COLUMNS NOT PART OF GRID") LOGGER.Warn("ATTENTION: GROUP COLUMNS NOT PART OF GRID")
@@ -1086,7 +1080,7 @@ Public Class frmMain
Continue For Continue For
End If End If
Dim oViewColumn_exists As Boolean = False Dim oViewColumn_exists As Boolean = False
For Each oActGridColumn As GridColumn In GridView_Docs.Columns For Each oActGridColumn As GridColumn In GridViewWFItems.Columns
Dim oGridDXFieldName = oActGridColumn.FieldName Dim oGridDXFieldName = oActGridColumn.FieldName
Dim GridDXColumnEditName = oActGridColumn.ColumnEditName Dim GridDXColumnEditName = oActGridColumn.ColumnEditName
Dim GridDXFieldName = oActGridColumn.FieldName Dim GridDXFieldName = oActGridColumn.FieldName
@@ -1110,7 +1104,7 @@ Public Class frmMain
End If End If
End If End If
Next Next
For Each oActGridColumn As GridColumn In GridView_Docs.Columns For Each oActGridColumn As GridColumn In GridViewWFItems.Columns
If oActGridColumn.Caption = "" Then If oActGridColumn.Caption = "" Then
Continue For Continue For
End If End If
@@ -1188,11 +1182,7 @@ Public Class frmMain
Exit Sub Exit Sub
End If End If
If USER_LANGUAGE <> "de-DE" Then bsilastsync.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("CaptLastSync")}: " & Now.ToLongTimeString
bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString
Else
bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString
End If
If GridControl_Docs.Visible = True And FormOpenClose = False Then If GridControl_Docs.Visible = True And FormOpenClose = False Then
RefreshHelper.SaveViewInfo() RefreshHelper.SaveViewInfo()
@@ -1246,7 +1236,7 @@ Public Class frmMain
TimerRefresh.Enabled = False TimerRefresh.Enabled = False
End If End If
GridView_Docs.ShowLoadingPanel() GridViewWFItems.ShowLoadingPanel()
TimerRefresh.Stop() TimerRefresh.Stop()
FRONTEND_ACTION = "DECIDE_LOAD" FRONTEND_ACTION = "DECIDE_LOAD"
If GRID_LOAD_TYPE = "OVERVIEW" Then If GRID_LOAD_TYPE = "OVERVIEW" Then
@@ -1256,23 +1246,23 @@ Public Class frmMain
Await Load_single_Profile(ForceReload) Await Load_single_Profile(ForceReload)
End If End If
FRONTEND_ACTION = FA_NONE FRONTEND_ACTION = FA_NONE
GridView_Docs.HideLoadingPanel() GridViewWFItems.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
If SHOW_MASS_VALIDATOR = False Then If SHOW_MASS_VALIDATOR = False Then
GridView_Docs.OptionsSelection.MultiSelect = False GridViewWFItems.OptionsSelection.MultiSelect = False
GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect GridViewWFItems.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect
BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Else Else
BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
GridView_Docs.OptionsSelection.MultiSelect = True GridViewWFItems.OptionsSelection.MultiSelect = True
GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect GridViewWFItems.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
End If End If
If GridView_Docs.OptionsView.ShowAutoFilterRow = True Then If GridViewWFItems.OptionsView.ShowAutoFilterRow = True Then
BarCheckItemAutofilter.Checked = True BarCheckItemAutofilter.Checked = True
End If End If
If GridView_Docs.OptionsFind.AlwaysVisible Then If GridViewWFItems.OptionsFind.AlwaysVisible Then
BarCheckItemShowSearch.Checked = True BarCheckItemShowSearch.Checked = True
End If End If
GridIsLoaded = True GridIsLoaded = True
@@ -1355,12 +1345,8 @@ Public Class frmMain
Try Try
CURRENT_ProfilGUID = pProfilID CURRENT_ProfilGUID = pProfilID
Dim omsg = "Es ist bereits ein Workflow geöffnet!" Dim omsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WorkflowIsActive2")
Dim omsgTitle = "Achtung:"
If USER_LANGUAGE <> "de-DE" Then
omsg = "There is already a workflow active!"
omsgTitle = "Attention:"
End If
' Dim th As System.Threading.Thread ' Dim th As System.Threading.Thread
If Not Application.OpenForms().OfType(Of frmValidator).Any Then If Not Application.OpenForms().OfType(Of frmValidator).Any Then
@@ -1429,7 +1415,7 @@ Public Class frmMain
' th.Start() ' th.Start()
Else Else
LOGGER.Debug("Validator is already open...") LOGGER.Debug("Validator is already open...")
FormHelper.ShowInfoMessage(omsg, omsgTitleWarning) FormHelper.ShowInfoMessage(omsg, omsgTitleAttention)
End If End If
@@ -1459,7 +1445,7 @@ Public Class frmMain
bsiMessage.ItemAppearance.Normal.BackColor = Color.Red bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
Exit Sub Exit Sub
End If End If
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) Dim hitInfo As GridHitInfo = GridViewWFItems.CalcHitInfo(GridCursorLocation)
bsiMessage.Caption = "" bsiMessage.Caption = ""
bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent
Dim OItemScopeInfo = "No Item so far" Dim OItemScopeInfo = "No Item so far"
@@ -1472,9 +1458,9 @@ Public Class frmMain
End If End If
Dim oHitProfilID Dim oHitProfilID
If hitInfo.InGroupRow Then If hitInfo.InGroupRow Then
oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID")) oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
ElseIf hitInfo.InDataRow Then ElseIf hitInfo.InDataRow Then
oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)), GridViewWFItems.Columns("PROFILE_ID"))
End If End If
If Len(oHitProfilID) > 0 Then If Len(oHitProfilID) > 0 Then
If oHitProfilID > 0 Then If oHitProfilID > 0 Then
@@ -1490,21 +1476,21 @@ Public Class frmMain
Dim oIds As New List(Of Integer) Dim oIds As New List(Of Integer)
Dim oCount As Integer = 0 Dim oCount As Integer = 0
'----------------------------- '-----------------------------
Dim orows() As Integer = GridView_Docs.GetSelectedRows Dim orows() As Integer = GridViewWFItems.GetSelectedRows
Dim i As Integer Dim i As Integer
For i = 0 To orows.Length - 1 Step i + 1 For i = 0 To orows.Length - 1 Step i + 1
Dim childRowCount As Integer = GridView_Docs.GetChildRowCount(orows(i)) Dim childRowCount As Integer = GridViewWFItems.GetChildRowCount(orows(i))
Dim j As Integer Dim j As Integer
Dim childRowIndex As Integer Dim childRowIndex As Integer
For j = 0 To childRowCount - 1 Step j + 1 For j = 0 To childRowCount - 1 Step j + 1
childRowIndex = GridView_Docs.GetChildRowHandle(orows(i), j) childRowIndex = GridViewWFItems.GetChildRowHandle(orows(i), j)
Dim oRow = GridView_Docs.GetRow(childRowIndex) Dim oRow = GridViewWFItems.GetRow(childRowIndex)
oIds.Add(oRow.item("DocId")) oIds.Add(oRow.item("DocId"))
Next Next
Next Next
If oIds.Count = 0 Then If oIds.Count = 0 Then
For index = 0 To GridView_Docs.RowCount For index = 0 To GridViewWFItems.RowCount
Dim oRow = GridView_Docs.GetRow(index) Dim oRow = GridViewWFItems.GetRow(index)
If oRow Is Nothing Then If oRow Is Nothing Then
Continue For Continue For
@@ -1558,7 +1544,7 @@ Public Class frmMain
startedFrom = "CMGROUP" startedFrom = "CMGROUP"
LOGGER.Debug($"Item_Scope: InGroupRow") LOGGER.Debug($"Item_Scope: InGroupRow")
OItemScopeInfo = "InGroupRow" OItemScopeInfo = "InGroupRow"
groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle) groupRowText = GridViewWFItems.GetGroupRowDisplayText(hitInfo.RowHandle)
OItemScopeInfo = $"groupRowText {groupRowText}" OItemScopeInfo = $"groupRowText {groupRowText}"
LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}") LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}")
' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID")) ' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
@@ -1569,7 +1555,7 @@ Public Class frmMain
If GRID_LOAD_TYPE = "OVERVIEW" Then If GRID_LOAD_TYPE = "OVERVIEW" Then
OItemScopeInfo = $"GRID_LOAD_TYPE = OVERVIEW" OItemScopeInfo = $"GRID_LOAD_TYPE = OVERVIEW"
LOGGER.Debug($"Item_Scope: GRID_LOAD_TYPE = OVERVIEW") LOGGER.Debug($"Item_Scope: GRID_LOAD_TYPE = OVERVIEW")
groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)) groupRowText = GridViewWFItems.GetGroupRowDisplayText(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle))
OItemScopeInfo = $"OVERVIEWgroupRowText {groupRowText}" OItemScopeInfo = $"OVERVIEWgroupRowText {groupRowText}"
LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}") LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}")
' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)), GridViewWFItems.Columns("PROFILE_ID")) ' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)), GridViewWFItems.Columns("PROFILE_ID"))
@@ -1625,14 +1611,14 @@ Public Class frmMain
LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...") LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...")
Dim oFocusedDocGUID Dim oFocusedDocGUID
Try Try
oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) oFocusedDocGUID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("GUID"))
Catch ex As Exception Catch ex As Exception
FormHelper.ShowInfoMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning) FormHelper.ShowInfoMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
End Try End Try
Dim oFocusedDocID Dim oFocusedDocID
Try Try
oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID")) oFocusedDocID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("DocID"))
Catch ex As Exception Catch ex As Exception
FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning) FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
End Try End Try
@@ -1650,8 +1636,8 @@ Public Class frmMain
Exit Sub Exit Sub
End If End If
LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}") LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}")
If Not IsNothing(GridView_Docs.Columns(FullFilepatColName)) Then If Not IsNothing(GridViewWFItems.Columns(FullFilepatColName)) Then
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepatColName)) Dim DOC_PATH = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns(FullFilepatColName))
If IsNothing(DOC_PATH) Then If IsNothing(DOC_PATH) Then
LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!") LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!")
Exit Sub Exit Sub
@@ -1681,13 +1667,8 @@ Public Class frmMain
If CBool(oResult) = True Then If CBool(oResult) = True Then
Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID) Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
Else Else
Dim omsg As String = "Achtung: der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt" Dim omsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WFInWork")
Dim otitle = "Achtung:" FormHelper.ShowInfoMessage(omsg, omsgTitleAttention)
If USER_LANGUAGE <> "de-DE" Then
omsg = "Attention: the item You chose is rather in work or locked from another user!"
otitle = "Attention:"
End If
FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
End If End If
Catch ex As Exception Catch ex As Exception
@@ -1751,7 +1732,7 @@ Public Class frmMain
Private Sub Create_Groups() Private Sub Create_Groups()
Try Try
LOGGER.Debug("Now Working on Groups..") LOGGER.Debug("Now Working on Groups..")
GridView_Docs.OptionsView.ShowGroupPanel = False GridViewWFItems.OptionsView.ShowGroupPanel = False
Dim oindex As Integer = 0 Dim oindex As Integer = 0
If Not IsNothing(BASEDATA_DTGRID_GROUPS) Then If Not IsNothing(BASEDATA_DTGRID_GROUPS) Then
For Each oGridGroup As DataRow In BASEDATA_DTGRID_GROUPS.Rows For Each oGridGroup As DataRow In BASEDATA_DTGRID_GROUPS.Rows
@@ -1760,7 +1741,7 @@ Public Class frmMain
LOGGER.Debug($"Adding group [{oGroupName}] for Grid...") LOGGER.Debug($"Adding group [{oGroupName}] for Grid...")
Try Try
Dim oGroupColumn As GridColumn = GridView_Docs.Columns.Item(oGroupName) Dim oGroupColumn As GridColumn = GridViewWFItems.Columns.Item(oGroupName)
If oGroupColumn IsNot Nothing Then If oGroupColumn IsNot Nothing Then
oGroupColumn.GroupIndex = oindex oGroupColumn.GroupIndex = oindex
@@ -1836,7 +1817,7 @@ Public Class frmMain
bindsourcegrid.DataSource = Nothing bindsourcegrid.DataSource = Nothing
GridControl_Docs.DataSource = Nothing GridControl_Docs.DataSource = Nothing
Try Try
GridView_Docs.Columns.Clear() GridViewWFItems.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@@ -1883,11 +1864,9 @@ Public Class frmMain
NO_WORKFLOWITEMS = False NO_WORKFLOWITEMS = False
If CURR_DT_OVERVIEW.Rows.Count = 0 Then If CURR_DT_OVERVIEW.Rows.Count = 0 Then
If USER_LANGUAGE = "de-DE" Then
GridView_Docs.ViewCaption = "Aktuell keine Workflowdaten vorhanden!" GridViewWFItems.ViewCaption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")
Else
GridView_Docs.ViewCaption = "No workflowdata!"
End If
NO_WORKFLOWITEMS = True NO_WORKFLOWITEMS = True
GridControl_Docs.Visible = False GridControl_Docs.Visible = False
bindsourcegrid.DataSource = Nothing bindsourcegrid.DataSource = Nothing
@@ -1990,12 +1969,12 @@ Public Class frmMain
Try Try
Create_Groups() Create_Groups()
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False GridViewWFItems.Columns.Item("GUID").Visible = False
Try Try
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False
'GridView_Docs.Columns.Item("DocID").Visible = False 'GridView_Docs.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False GridViewWFItems.Columns.Item("TL_STATE").Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
@@ -2003,10 +1982,10 @@ Public Class frmMain
If TL_ICON = True Then If TL_ICON = True Then
Try Try
GridView_Docs.Columns.Item("ICON").MaxWidth = 24 GridViewWFItems.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridViewWFItems.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left GridViewWFItems.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
Catch ex As Exception Catch ex As Exception
End Try End Try
@@ -2014,8 +1993,8 @@ Public Class frmMain
End If End If
Try Try
If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then If GridViewWFItems.Columns.Item("CONV_YN") IsNot Nothing Then
GridView_Docs.Columns.Item("CONV_YN").Visible = False GridViewWFItems.Columns.Item("CONV_YN").Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
@@ -2023,9 +2002,9 @@ Public Class frmMain
End Try End Try
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24 GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24 GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left GridViewWFItems.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
Catch ex As Exception Catch ex As Exception
LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridView_Docs") LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridView_Docs")
End Try End Try
@@ -2037,12 +2016,12 @@ Public Class frmMain
Try Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "") oReducedColName = oReducedColName.Replace("]", "")
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception Catch ex As Exception
Try Try
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception Catch ex1 As Exception
LOGGER.Warn("(Warning LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") LOGGER.Warn("(Warning LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try End Try
@@ -2054,7 +2033,7 @@ Public Class frmMain
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message) LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
End Try End Try
If GridView_Docs.Columns.Count <= 5 Then If GridViewWFItems.Columns.Count <= 5 Then
LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False) LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
Await Reset_GridLayout(pFormLoad) Await Reset_GridLayout(pFormLoad)
End If End If
@@ -2068,7 +2047,7 @@ Public Class frmMain
Try Try
GridView_Docs.Columns.Clear() GridViewWFItems.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
@@ -2113,11 +2092,11 @@ Public Class frmMain
InResetlayout = False InResetlayout = False
End Function End Function
Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridViewWFItems.DoubleClick
Item_Scope("DOUBLECLICK") Item_Scope("DOUBLECLICK")
End Sub End Sub
Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewWFItems.CustomDrawGroupRow
Try Try
' Added ' Added
If FormOpenClose = True And GridIsLoaded = False Then If FormOpenClose = True And GridIsLoaded = False Then
@@ -2193,7 +2172,7 @@ Public Class frmMain
End Function End Function
Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewWFItems.MouseDown
Dim view As GridView = sender Dim view As GridView = sender
Dim hi As GridHitInfo = view.CalcHitInfo(e.Location) Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton) Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton)
@@ -2206,13 +2185,13 @@ Public Class frmMain
DXMouseEventArgs.GetMouseArgs(e).Handled = True DXMouseEventArgs.GetMouseArgs(e).Handled = True
GridViewItem_Clicked = "GROUP" GridViewItem_Clicked = "GROUP"
If Not Application.OpenForms().OfType(Of frmValidator).Any Then If Not Application.OpenForms().OfType(Of frmValidator).Any Then
CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) CURRENT_CLICKED_PROFILE_ID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
End If End If
ElseIf hi.InDataRow Then ElseIf hi.InDataRow Then
GridViewItem_Clicked = "ROW" GridViewItem_Clicked = "ROW"
If Not Application.OpenForms().OfType(Of frmValidator).Any Then If Not Application.OpenForms().OfType(Of frmValidator).Any Then
CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) CURRENT_CLICKED_PROFILE_ID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
End If End If
Else Else
@@ -2240,14 +2219,14 @@ Public Class frmMain
End Sub End Sub
Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewWFItems.ColumnWidthChanged
GridLayout_Changed("ColumnWidthChanged") GridLayout_Changed("ColumnWidthChanged")
End Sub End Sub
Private Sub GridView_Docs_EndSorting(sender As Object, e As EventArgs) Handles GridView_Docs.EndSorting Private Sub GridView_Docs_EndSorting(sender As Object, e As EventArgs) Handles GridViewWFItems.EndSorting
GridLayout_Changed("EndSorting") GridLayout_Changed("EndSorting")
End Sub End Sub
Private Sub GridView_Docs_LostFocus(sender As Object, e As EventArgs) Handles GridView_Docs.LostFocus Private Sub GridView_Docs_LostFocus(sender As Object, e As EventArgs) Handles GridViewWFItems.LostFocus
' Save expanded GroupRows ' Save expanded GroupRows
If GridControl_Docs.Visible = True And FormOpenClose = False Then If GridControl_Docs.Visible = True And FormOpenClose = False Then
RefreshHelper.SaveViewInfo() RefreshHelper.SaveViewInfo()
@@ -2279,7 +2258,12 @@ Public Class frmMain
End If End If
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20) If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20)
oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID) If SQL_PROFILES_USER <> "" Then
oSQL = SQL_PROFILES_USER.Replace("@USER_ID", USER_ID)
Else
oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
End If
CURR_DT_VWPM_PROFILE_ACTIVE = DatabaseFallback.GetDatatableECM(oSQL) CURR_DT_VWPM_PROFILE_ACTIVE = DatabaseFallback.GetDatatableECM(oSQL)
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30) If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30)
LoadCURRENT_DT_PROFILES() LoadCURRENT_DT_PROFILES()
@@ -2365,11 +2349,7 @@ Public Class frmMain
End Sub End Sub
Sub Handling_DEBUG_USER() Sub Handling_DEBUG_USER()
If DEBUG = True Then If DEBUG = True Then
If USER_LANGUAGE = "de-DE" Then bsiDebug.Caption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DebugModeActive")
bsiDebug.Caption = "HINWEIS: UserDebugMode ist eingeschaltet!"
Else
bsiDebug.Caption = "INFORMATION: UserDebugMode activated!"
End If
bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else Else
bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -2408,8 +2388,8 @@ Public Class frmMain
Timer_Inactivity_Reset_Disable("LöscheAlleFilterToolStripMenuItem") Timer_Inactivity_Reset_Disable("LöscheAlleFilterToolStripMenuItem")
Try Try
GridView_Docs.ClearFindFilter() GridViewWFItems.ClearFindFilter()
GridView_Docs.ClearColumnsFilter() GridViewWFItems.ClearColumnsFilter()
SaveGridLayout() SaveGridLayout()
Catch ex As Exception Catch ex As Exception
@@ -2552,12 +2532,7 @@ Public Class frmMain
Private Sub bwBasicData_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwBasicData.RunWorkerCompleted Private Sub bwBasicData_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwBasicData.RunWorkerCompleted
If USER_IS_ADMIN Then If USER_IS_ADMIN Then
If USER_LANGUAGE = "de-DE" Then bsiDebug.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("LicenseCountCaption")}: {USERCOUNT_LOGGED_IN}"
bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
Else
bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
End If End If
BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Sub End Sub
@@ -2580,7 +2555,7 @@ Public Class frmMain
BringMonitor2Front() BringMonitor2Front()
End Sub End Sub
Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewWFItems.RowStyle
If FormShown = False Then If FormShown = False Then
Exit Sub Exit Sub
End If End If
@@ -2594,7 +2569,7 @@ Public Class frmMain
Else Else
IsFilterMode = False IsFilterMode = False
Try Try
Dim oRowColorCellValue = GridView_Docs.GetRowCellValue(e.RowHandle, "ROW_COLOR") Dim oRowColorCellValue = GridViewWFItems.GetRowCellValue(e.RowHandle, "ROW_COLOR")
If Not IsNothing(oRowColorCellValue) Then If Not IsNothing(oRowColorCellValue) Then
Dim oColor As Color Dim oColor As Color
Try Try
@@ -2640,13 +2615,7 @@ Public Class frmMain
frmGhostMode.ShowDialog() frmGhostMode.ShowDialog()
If USER_GHOST_MODE_ACTIVE = True And USER_GHOST_MODE_USRNAME <> String.Empty Then If USER_GHOST_MODE_ACTIVE = True And USER_GHOST_MODE_USRNAME <> String.Empty Then
LOGGER.Info($"GHOST MODE for User {USER_GHOST_MODE_USRNAME} will now be initialized!") LOGGER.Info($"GHOST MODE for User {USER_GHOST_MODE_USRNAME} will now be initialized!")
If USER_LANGUAGE = "de-DE" Then BarButtonItemGhostMode.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("CaptionDeactivateDebugMode")} ({USER_GHOST_MODE_USRNAME})"
BarButtonItemGhostMode.Caption = $"Ghost Modus ({USER_GHOST_MODE_USRNAME}) inaktivieren"
Else
BarButtonItemGhostMode.Caption = $"Inactivate ghost mode ({USER_GHOST_MODE_USRNAME})"
End If
BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
_Init.InitBasics() _Init.InitBasics()
_Init.InitUserLogin(USER_GHOST_MODE_USRNAME) _Init.InitUserLogin(USER_GHOST_MODE_USRNAME)
@@ -2663,12 +2632,13 @@ Public Class frmMain
USER_GHOST_MODE_USRNAME = String.Empty USER_GHOST_MODE_USRNAME = String.Empty
BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Never BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
_Init.InitUserLogin() _Init.InitUserLogin()
GetBaseData("InactivateGM")
LoadNavBar() LoadNavBar()
Await Decide_Load(False) Await Decide_Load(False)
If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo()
End Sub End Sub
Private Sub GridView_Docs_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridView_Docs.ColumnFilterChanged Private Sub GridView_Docs_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnFilterChanged
Try Try
If FormShown = False Then If FormShown = False Then
Exit Sub Exit Sub
@@ -2677,17 +2647,13 @@ Public Class frmMain
Timer_Inactivity_Reset_Disable("GridView_Docs.ColumnFilterChanged") Timer_Inactivity_Reset_Disable("GridView_Docs.ColumnFilterChanged")
Create_View_Caption() Create_View_Caption()
If Ev_Filter_Panel_Closed = False Then If Ev_Filter_Panel_Closed = False Then
Dim objectCount_Descr As String ' = GridViewWFItems.RowCount.ToString Dim objectCount_Descr As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescFilterActive")
If USER_LANGUAGE <> "de-DE" Then
objectCount_Descr = " filtered" GridViewWFItems.ViewCaption += $"|{objectCount_Descr}"
Else
objectCount_Descr = " Filter aktiv"
End If
GridView_Docs.ViewCaption += $"|{objectCount_Descr}"
Else Else
Ev_Filter_Panel_Closed = False Ev_Filter_Panel_Closed = False
End If End If
If GridView_Docs.ActiveFilterEnabled Then If GridViewWFItems.ActiveFilterEnabled Then
End If End If
GridLayout_Changed("ColumnFilterChanged") GridLayout_Changed("ColumnFilterChanged")
@@ -2709,15 +2675,12 @@ Public Class frmMain
' End If ' End If
'Next 'Next
Dim oRowCount = GridView_Docs.RowCount Dim oRowCount = GridViewWFItems.RowCount
oRowCount = oRowCount '- oGroupCount oRowCount = oRowCount '- oGroupCount
Dim objectCount_Descr = $"[{oRowCount.ToString}]" Dim objectCount_Descr = $"[{oRowCount.ToString}]"
If USER_LANGUAGE = "de-DE" Then objectCount_Descr = $"{objectCount_Descr} {ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("Workflows")}"
objectCount_Descr &= " Workflows"
Else
objectCount_Descr &= " workflows"
End If
bsiRowCount.Caption = objectCount_Descr bsiRowCount.Caption = objectCount_Descr
Catch ex As Exception Catch ex As Exception
bsiRowCount.Caption = "Error getting RowCount" bsiRowCount.Caption = "Error getting RowCount"
@@ -2726,13 +2689,7 @@ Public Class frmMain
End Sub End Sub
Sub Create_View_Caption() Sub Create_View_Caption()
Try Try
GridViewWFItems.ViewCaption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("GridViewWFItems.ViewCaption")
If USER_LANGUAGE = "de-DE" Then
GridView_Docs.ViewCaption = "Gesamtübersicht"
Else
GridView_Docs.ViewCaption = "Overview"
End If
Catch ex As Exception Catch ex As Exception
End Try End Try
@@ -2745,7 +2702,7 @@ Public Class frmMain
Dim oOptions As New XlsxExportOptions() With { Dim oOptions As New XlsxExportOptions() With {
.ExportMode = XlsxExportMode.SingleFile .ExportMode = XlsxExportMode.SingleFile
} }
GridView_Docs.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions) GridViewWFItems.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
End If End If
End Sub End Sub
@@ -2784,11 +2741,10 @@ Public Class frmMain
Exit Sub Exit Sub
End If End If
INACTIVITYRecognized = True INACTIVITYRecognized = True
Dim omsg As String = "Sie wurden aufgrund von Inaktivität automatisch abgemeldet!"
If USER_LANGUAGE <> "de-DE" Then Dim omsg As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("INACTIVITYRecognized")
omsg = "Due to inactivity we closed all actions and You have been logged out automatically."
End If
Timer5Mins.Stop() Timer5Mins.Stop()
TimerRefresh.Stop() TimerRefresh.Stop()
TimerReminder.Stop() TimerReminder.Stop()
@@ -2836,7 +2792,7 @@ Public Class frmMain
End Try End Try
End Sub End Sub
Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridView_Docs.ColumnPositionChanged Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnPositionChanged
GridLayout_Changed("ColumnPositionChanged") GridLayout_Changed("ColumnPositionChanged")
End Sub End Sub
Private Sub GridLayout_Changed(oEvent As String) Private Sub GridLayout_Changed(oEvent As String)
@@ -2850,7 +2806,7 @@ Public Class frmMain
End Sub End Sub
Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridView_Docs.EndGrouping Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridViewWFItems.EndGrouping
GridLayout_Changed("EndGrouping") GridLayout_Changed("EndGrouping")
End Sub End Sub
@@ -2858,7 +2814,7 @@ Public Class frmMain
End Sub End Sub
Private Sub GridView_Docs_KeyDown(sender As Object, e As KeyEventArgs) Handles GridView_Docs.KeyDown Private Sub GridView_Docs_KeyDown(sender As Object, e As KeyEventArgs) Handles GridViewWFItems.KeyDown
Dim view As GridView = CType(sender, GridView) Dim view As GridView = CType(sender, GridView)
If e.Control AndAlso e.KeyCode = Keys.C Then If e.Control AndAlso e.KeyCode = Keys.C Then
If view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn) IsNot Nothing AndAlso view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn).ToString() <> [String].Empty Then If view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn) IsNot Nothing AndAlso view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn).ToString() <> [String].Empty Then
@@ -2870,13 +2826,13 @@ Public Class frmMain
Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemAutofilter.CheckedChanged Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemAutofilter.CheckedChanged
If GridIsLoaded = True Then If GridIsLoaded = True Then
GridView_Docs.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked GridViewWFItems.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked
End If End If
End Sub End Sub
Private Sub BarCheckItem1_CheckedChanged_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemShowSearch.CheckedChanged Private Sub BarCheckItem1_CheckedChanged_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemShowSearch.CheckedChanged
If GridIsLoaded = True Then If GridIsLoaded = True Then
GridView_Docs.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked GridViewWFItems.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked
End If End If
End Sub End Sub
@@ -2902,7 +2858,7 @@ Public Class frmMain
End Sub End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
GridView_Docs.ShowCustomization() GridViewWFItems.ShowCustomization()
End Sub End Sub
Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemWFSingle.ItemClick Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemWFSingle.ItemClick
@@ -2915,7 +2871,7 @@ Public Class frmMain
Private Sub BarButtonItemFileLink_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileLink.ItemClick Private Sub BarButtonItemFileLink_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileLink.ItemClick
Dim oReceipiant = "" Dim oReceipiant = ""
Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) Dim oFocusedDocGUID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("GUID"))
Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)" Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)"
Dim oFilePath = DatabaseFallback.GetScalarValueECM(oSQL) Dim oFilePath = DatabaseFallback.GetScalarValueECM(oSQL)
If File.Exists(oFilePath) Then If File.Exists(oFilePath) Then
@@ -2930,24 +2886,20 @@ Public Class frmMain
Private Async Sub BarButtonItemMassValidation_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemMassValidation.ItemClick Private Async Sub BarButtonItemMassValidation_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemMassValidation.ItemClick
Try Try
Dim oSelectedRows As Integer() = GridView_Docs.GetSelectedRows() Dim oSelectedRows As Integer() = GridViewWFItems.GetSelectedRows()
Dim oHitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) Dim oHitInfo As GridHitInfo = GridViewWFItems.CalcHitInfo(GridCursorLocation)
Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle
Dim oWorkedFiles As Integer = 0 Dim oWorkedFiles As Integer = 0
Dim oProfileId = 0 Dim oProfileId = 0
If oSelectedRows.Count = 0 Then If oSelectedRows.Count = 0 Then
Dim omsg = "Bitte selektieren Sie einige 1 oder mehr Dokumente" Dim omsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MASS_NO_WF_SELECTED")
If USER_LANGUAGE <> "de-DE" Then
omsg = "Please select some documents!"
End If
FormHelper.ShowInfoMessage(omsg, omsgTitleWarning) FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
Exit Sub Exit Sub
End If End If
oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.Last(), GridView_Docs.Columns("PROFILE_ID")) oProfileId = GridViewWFItems.GetRowCellValue(oSelectedRows.Last(), GridViewWFItems.Columns("PROFILE_ID"))
If oProfileId = 0 Then If oProfileId = 0 Then
FormHelper.ShowInfoMessage("Could not select a profile!", omsgTitleWarning) FormHelper.ShowInfoMessage("Could not select a profile!", omsgTitleWarning)
@@ -2988,18 +2940,18 @@ Public Class frmMain
For Each oRowHandle As Integer In oSelectedRows For Each oRowHandle As Integer In oSelectedRows
Dim oDocID = GridView_Docs.GetRowCellValue(oRowHandle, "DocID") Dim oDocID = GridViewWFItems.GetRowCellValue(oRowHandle, "DocID")
If IsNothing(oDocID) Then If IsNothing(oDocID) Then
Continue For Continue For
End If End If
Dim R As DataRow = NewDatatable.NewRow Dim R As DataRow = NewDatatable.NewRow
CURRENT_DOC_ID = oDocID CURRENT_DOC_ID = oDocID
Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, FullFilepatColName) Dim DOC_PATH = GridViewWFItems.GetRowCellValue(oRowHandle, FullFilepatColName)
' CURRENT_DOC_PATH = DOC_PATH ' CURRENT_DOC_PATH = DOC_PATH
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID") CURRENT_DOC_GUID = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID")
R("DocID") = CURRENT_DOC_ID R("DocID") = CURRENT_DOC_ID
R("FULL_PATH") = DOC_PATH R("FULL_PATH") = DOC_PATH
R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID") R("DOC_GUID") = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID")
NewDatatable.Rows.Add(R) NewDatatable.Rows.Add(R)
Next Next
@@ -3010,11 +2962,8 @@ Public Class frmMain
LoadNavBar() LoadNavBar()
Await Decide_Load(False) Await Decide_Load(False)
Else Else
If USER_LANGUAGE = "de-DE" Then Dim oMSG = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MASS_ERROR_WINDREAM")
MsgBox("Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!", MsgBoxStyle.Critical, "Massenabschluss") MsgBox(oMSG, MsgBoxStyle.Critical, "Unexpected Error Massvalidation")
Else
MsgBox("Massvalidation could not be completed because of an error in windream", MsgBoxStyle.Critical, "Massvalidation")
End If
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@@ -3051,11 +3000,11 @@ Public Class frmMain
End Try End Try
End Sub End Sub
Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridView_Docs.SelectionChanged Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridViewWFItems.SelectionChanged
Timer_Inactivity_Reset_Disable("GridViewWFItems_SelectionChanged") Timer_Inactivity_Reset_Disable("GridViewWFItems_SelectionChanged")
End Sub End Sub
Private Sub GridViewWFItems_Click(sender As Object, e As MouseEventArgs) Handles GridView_Docs.Click Private Sub GridViewWFItems_Click(sender As Object, e As MouseEventArgs) Handles GridViewWFItems.Click
Try Try
If e.Button = Windows.Forms.MouseButtons.Right Then If e.Button = Windows.Forms.MouseButtons.Right Then
RibbonControl1.SelectedPage = RibbonPageTabelle RibbonControl1.SelectedPage = RibbonPageTabelle
@@ -3076,7 +3025,7 @@ Public Class frmMain
End Sub End Sub
Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridView_Docs.SubstituteFilter Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridViewWFItems.SubstituteFilter
GridLayout_Changed("GridViewWFItems_SubstituteFilter") GridLayout_Changed("GridViewWFItems_SubstituteFilter")
RowCount() RowCount()
End Sub End Sub

28
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -2545,10 +2545,8 @@ Public Class frmValidator
' ############ Infos eintragen ################# ' ############ Infos eintragen #################
' txtDateipfad.Text = Document_Path ' txtDateipfad.Text = Document_Path
Dim omsg = $"Verbleibende Belege: {Amount_Docs2Validate}" Dim omsg = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("remainingOps")}: {Amount_Docs2Validate}"
If USER_LANGUAGE <> "de-DE" Then
omsg = $"Remaining documents: {omsg}"
End If
If Amount_Docs2Validate > 0 Then If Amount_Docs2Validate > 0 Then
bsiInformation.Caption = omsg bsiInformation.Caption = omsg
Else Else
@@ -2618,10 +2616,8 @@ Public Class frmValidator
errormessage = oErrMsgMissingInput errormessage = oErrMsgMissingInput
frmError.ShowDialog() frmError.ShowDialog()
Else Else
Dim oMsg = "Ende des Profils - Keine weiteren Vorgänge!" Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("msgEndOfProfile")
If USER_LANGUAGE <> "de-DE" Then
oMsg = "End of profile - no more objects!"
End If
LOGGER.Info(oMsg) LOGGER.Info(oMsg)
Dim oROW As DataRow = ClassAllgemeineFunktionen.GUI_LANGUAGE_MSGBOX("frmValidator.NoMoreDocument") Dim oROW As DataRow = ClassAllgemeineFunktionen.GUI_LANGUAGE_MSGBOX("frmValidator.NoMoreDocument")
'Try 'Try
@@ -2966,6 +2962,7 @@ Public Class frmValidator
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
oValuefromSource = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) oValuefromSource = CURRENT_WMFILE.GetVariableValue(oSourceIndexName)
Else Else
LOGGER.Debug($"GetVariableValuefromSource - IDBCase...")
oValuefromSource = IDBData.GetVariableValue(oSourceIndexName, oIDBTyp, FromIDB) oValuefromSource = IDBData.GetVariableValue(oSourceIndexName, oIDBTyp, FromIDB)
End If End If
Return oValuefromSource Return oValuefromSource
@@ -3179,7 +3176,7 @@ Public Class frmValidator
LOGGER.Debug("Indexwert soll nicht geladen werden.") LOGGER.Debug("Indexwert soll nicht geladen werden.")
Exit Select Exit Select
End If End If
LOGGER.Debug($"getting wmValue for Index {oSourceIndexName}...") LOGGER.Debug($"getting Value for Attribute [{oSourceIndexName}] - oIDBTyp [{oIDBTyp}] - oIDBOverride [{oIDBOverride}]...")
' Dim wertWD = CURRENT_WMFILE.GetVariableValue(oSourceIndexName) ' Dim wertWD = CURRENT_WMFILE.GetVariableValue(oSourceIndexName)
oValueFromSource = GetVariableValuefromSource(oSourceIndexName, oIDBTyp, oIDBOverride) oValueFromSource = GetVariableValuefromSource(oSourceIndexName, oIDBTyp, oIDBOverride)
@@ -3227,6 +3224,8 @@ Public Class frmValidator
Else Else
If oValueType = "System.String" Then If oValueType = "System.String" Then
LOGGER.Debug($"IDB Fill Grid [{oControl.Name}] with String") LOGGER.Debug($"IDB Fill Grid [{oControl.Name}] with String")
LOGGER.Debug($"oValueFromSource [{oValueFromSource}] - PMDelimiter[{PMDelimiter}]")
oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter) oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter)
If oColValuesfromSource.Length > 8 Then If oColValuesfromSource.Length > 8 Then
LOGGER.Warn("Fill Grid Error - Max 8 columns can be configured!") LOGGER.Warn("Fill Grid Error - Max 8 columns can be configured!")
@@ -5681,10 +5680,7 @@ Public Class frmValidator
My.Settings.Save() My.Settings.Save()
End Sub End Sub
Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover
Dim oMsg = "F2 für Speichern" Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("F2forSave")
If USER_LANGUAGE <> "de-DE" Then
oMsg = "F2 for saving"
End If
ToolTip1.Show(oMsg, btnSave) ToolTip1.Show(oMsg, btnSave)
End Sub End Sub
@@ -5793,12 +5789,8 @@ Public Class frmValidator
Private Sub BbtnItm_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BbtnitmSave.ItemClick Private Sub BbtnItm_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BbtnitmSave.ItemClick
If ForceGridValidation() = True Then If ForceGridValidation() = True Then
Dim oRESULT As String Dim oRESULT As String
oRESULT = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("InputSaved")
If USER_LANGUAGE = "de-DE" Then
oRESULT = "Eingaben gespeichert"
Else
oRESULT = "Eingaben gespeichert"
End If
If Check_UpdateIndexe() = True Then If Check_UpdateIndexe() = True Then
SetStatusLabel($"Data saved", "LimeGreen") SetStatusLabel($"Data saved", "LimeGreen")
LOGGER.Info("Workflowdata saved manually!") LOGGER.Info("Workflowdata saved manually!")