Version 2.3.7.4

Rework validation for grids
2022-06-24 13:24:47 +02:00 · 2022-06-24 13:24:05 +02:00
11 changed files with 880 additions and 609 deletions
--- a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
+++ b/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
@@ -205,7 +205,7 @@ Public Class ClassAllgemeineFunktionen
                Do While Check_File_exists(_Ziel, clsWD) = True
                    Dim neuername As String = Stammname & "~" & version & extension
                    _Ziel = neuername
-                    version = version + 1
+                    version += 1
                Loop
                My.Computer.FileSystem.MoveFile(vMove_File, _Ziel)
                LOGGER.Info("Datei erfolgreich verschoben - Ziel: " & _Ziel)
--- a/app/DD_PM_WINDREAM/ClassAnnotation.vb
+++ b/app/DD_PM_WINDREAM/ClassAnnotation.vb
@@ -4,35 +4,32 @@ Imports PdfSharp.Pdf.IO
 Imports PdfSharp.Drawing
 Public Class ClassAnnotation
    Public Shared Function Annotate_PDF(title As String, content As String, page As Integer, fromGui As Boolean, Optional ycorrect As Integer = 0, Optional sizecorrect As Integer = 0)
-        If CURRENT_DOC_PATH.Length > 0 Then
-            Try
-                Dim doc As PdfDocument = PdfReader.Open(CURRENT_DOC_PATH, PdfDocumentOpenMode.Modify)
-                Dim firstPage As PdfPage = doc.Pages(page)
+        Try
+            Dim doc As PdfDocument = PdfReader.Open(CURRENT_DOC_PATH, PdfDocumentOpenMode.Modify)
+            Dim firstPage As PdfPage = doc.Pages(page)

-                Dim gfx As XGraphics = XGraphics.FromPdfPage(firstPage)
-                Dim rect As XRect = gfx.Transformer.WorldToDefaultPage(New XRect(New XPoint(30, 60 + ycorrect), New XSize(60 + sizecorrect, 40 + sizecorrect)))
+            Dim gfx As XGraphics = XGraphics.FromPdfPage(firstPage)
+            Dim rect As XRect = gfx.Transformer.WorldToDefaultPage(New XRect(New XPoint(30, 60 + ycorrect), New XSize(60 + sizecorrect, 40 + sizecorrect)))

-                Dim annot As PdfTextAnnotation = New PdfTextAnnotation
+            Dim annot As PdfTextAnnotation = New PdfTextAnnotation

-                annot.Title = title
-                'annot.Subject = txtsubject.Text
-                annot.Contents = content
-                annot.Rectangle = New PdfRectangle(rect)
+            annot.Title = title
+            'annot.Subject = txtsubject.Text
+            annot.Contents = content
+            annot.Rectangle = New PdfRectangle(rect)


-                firstPage.Annotations.Add(annot)
-                doc.Save(CURRENT_DOC_PATH)
-                Return True
-            Catch ex As Exception
-                If fromGui = True Then
-                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Annotate pdf:")
-                End If
-                LOGGER.Error(ex)
-                LOGGER.Info("Unexpected error in Annotate pdf: " & ex.Message, False)
-                Return False
-            End Try
-        End If
-
+            firstPage.Annotations.Add(annot)
+            doc.Save(CURRENT_DOC_PATH)
+            Return True
+        Catch ex As Exception
+            If fromGui = True Then
+                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Annotate pdf:")
+            End If
+            LOGGER.Error(ex)
+            LOGGER.Info("Unexpected error in Annotate pdf: " & ex.Message, False)
+            Return False
+        End Try

    End Function
 End Class
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("TaskFlow")>
 <Assembly: AssemblyCopyright("Copyright © Digital Data 2022")>
-<Assembly: AssemblyTrademark("2353")>
+<Assembly: AssemblyTrademark("2374")>

 <Assembly: ComVisible(False)>

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("2.3.7.6")>
+<Assembly: AssemblyVersion("2.3.7.4")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
--- a/Project/licenses.licx
+++ b/Project/licenses.licx
@@ -1,6 +1,10 @@
-DevExpress.XtraEditors.Repository.RepositoryItemComboBox, 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.CheckEdit, 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.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.Repository.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.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.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.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.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
--- a/app/DD_PM_WINDREAM/frmColumn_Detail.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmColumn_Detail.Designer.vb
@@ -37,6 +37,7 @@ Partial Class frmColumn_Detail
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
+        Me.LU_CAPTIONTextBox = New System.Windows.Forms.TextBox()
        Me.TYPE_COLUMNComboBox = New System.Windows.Forms.ComboBox()
        Me.GUIDTextBox = New DevExpress.XtraEditors.TextEdit()
        Me.SPALTENNAMETextBox = New DevExpress.XtraEditors.TextEdit()
@@ -73,6 +74,7 @@ Partial Class frmColumn_Detail
        Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem()
@@ -80,9 +82,7 @@ Partial Class frmColumn_Detail
        Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LU_CAPTIONTextBox = New System.Windows.Forms.TextBox()
        Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem()
        CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -121,6 +121,7 @@ Partial Class frmColumn_Detail
        CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -129,7 +130,6 @@ Partial Class frmColumn_Detail
        CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'TBPM_CONTROL_TABLEBindingSource
@@ -252,6 +252,12 @@ Partial Class frmColumn_Detail
        Me.LayoutControl1.Name = "LayoutControl1"
        Me.LayoutControl1.Root = Me.Root
        '
+        'LU_CAPTIONTextBox
+        '
+        Me.LU_CAPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "LU_CAPTION", True))
+        resources.ApplyResources(Me.LU_CAPTIONTextBox, "LU_CAPTIONTextBox")
+        Me.LU_CAPTIONTextBox.Name = "LU_CAPTIONTextBox"
+        '
        'TYPE_COLUMNComboBox
        '
        Me.TYPE_COLUMNComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "TYPE_COLUMN", True))
@@ -575,6 +581,15 @@ Partial Class frmColumn_Detail
        Me.LayoutControlGroup1.Size = New System.Drawing.Size(553, 156)
        resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1")
        '
+        'LayoutControlItem16
+        '
+        Me.LayoutControlItem16.Control = Me.VALIDATIONCheckbox
+        Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 0)
+        Me.LayoutControlItem16.Name = "LayoutControlItem16"
+        Me.LayoutControlItem16.Size = New System.Drawing.Size(264, 24)
+        Me.LayoutControlItem16.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem16.TextVisible = False
+        '
        'LayoutControlItem14
        '
        Me.LayoutControlItem14.Control = Me.READ_ONLYCheckBox
@@ -641,12 +656,6 @@ Partial Class frmColumn_Detail
        Me.LayoutControlItem22.Size = New System.Drawing.Size(553, 41)
        Me.LayoutControlItem22.TextSize = New System.Drawing.Size(112, 13)
        '
-        'LU_CAPTIONTextBox
-        '
-        Me.LU_CAPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "LU_CAPTION", True))
-        resources.ApplyResources(Me.LU_CAPTIONTextBox, "LU_CAPTIONTextBox")
-        Me.LU_CAPTIONTextBox.Name = "LU_CAPTIONTextBox"
-        '
        'LayoutControlItem23
        '
        Me.LayoutControlItem23.Control = Me.LU_CAPTIONTextBox
@@ -657,15 +666,6 @@ Partial Class frmColumn_Detail
        Me.LayoutControlItem23.Size = New System.Drawing.Size(553, 40)
        Me.LayoutControlItem23.TextSize = New System.Drawing.Size(112, 13)
        '
-        'LayoutControlItem16
-        '
-        Me.LayoutControlItem16.Control = Me.VALIDATIONCheckbox
-        Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 0)
-        Me.LayoutControlItem16.Name = "LayoutControlItem16"
-        Me.LayoutControlItem16.Size = New System.Drawing.Size(264, 24)
-        Me.LayoutControlItem16.TextSize = New System.Drawing.Size(0, 0)
-        Me.LayoutControlItem16.TextVisible = False
-        '
        'frmColumn_Detail
        '
        Me.Appearance.Options.UseFont = True
@@ -680,7 +680,6 @@ Partial Class frmColumn_Detail
        Me.Name = "frmColumn_Detail"
        Me.Ribbon = Me.RibbonControl1
        Me.StatusBar = Me.RibbonStatusBar1
-        Me.TopMost = True
        CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -719,6 +718,7 @@ Partial Class frmColumn_Detail
        CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit()
@@ -727,7 +727,6 @@ Partial Class frmColumn_Detail
        CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout

--- a/app/DD_PM_WINDREAM/frmColumn_Detail.resx
+++ b/app/DD_PM_WINDREAM/frmColumn_Detail.resx
@@ -952,6 +952,12 @@
  <data name="&gt;&gt;LayoutControlGroup1.Type" xml:space="preserve">
    <value>DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
+  <data name="&gt;&gt;LayoutControlItem16.Name" xml:space="preserve">
+    <value>LayoutControlItem16</value>
+  </data>
+  <data name="&gt;&gt;LayoutControlItem16.Type" xml:space="preserve">
+    <value>DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
  <data name="&gt;&gt;LayoutControlItem14.Name" xml:space="preserve">
    <value>LayoutControlItem14</value>
  </data>
@@ -1000,12 +1006,6 @@
  <data name="&gt;&gt;LayoutControlItem23.Type" xml:space="preserve">
    <value>DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
-  <data name="&gt;&gt;LayoutControlItem16.Name" xml:space="preserve">
-    <value>LayoutControlItem16</value>
-  </data>
-  <data name="&gt;&gt;LayoutControlItem16.Type" xml:space="preserve">
-    <value>DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
  <data name="&gt;&gt;$this.Name" xml:space="preserve">
    <value>frmColumn_Detail</value>
  </data>
--- a/app/DD_PM_WINDREAM/frmMain.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb
@@ -179,7 +179,6 @@ Partial Class frmMain
        Me.bwBasicData = New System.ComponentModel.BackgroundWorker()
        Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
        Me.TimerInactivity = New System.Windows.Forms.Timer(Me.components)
-        Me.bsiRowCount = New DevExpress.XtraBars.BarStaticItem()
        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -374,9 +373,9 @@ Partial Class frmMain
        'RibbonControl1
        '
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8, Me.bsiRowCount})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8})
        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
-        Me.RibbonControl1.MaxItemId = 44
+        Me.RibbonControl1.MaxItemId = 43
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageTabelle, Me.RibbonPageAktionen})
        Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1, Me.RepositoryItemTrackBar1, Me.cmbGridFontSize})
@@ -838,7 +837,6 @@ Partial Class frmMain
        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDebug)
        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiMessage)
        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarEditItem1)
-        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiRowCount)
        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@@ -1449,11 +1447,6 @@ Partial Class frmMain
        'TimerInactivity
        '
        '
-        'bsiRowCount
-        '
-        Me.bsiRowCount.Id = 43
-        Me.bsiRowCount.Name = "bsiRowCount"
-        '
        'frmMain
        '
        Me.Appearance.Options.UseFont = True
@@ -1648,5 +1641,4 @@ Partial Class frmMain
    Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents RepositoryItemTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar
    Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents bsiRowCount As DevExpress.XtraBars.BarStaticItem
 End Class
--- a/app/DD_PM_WINDREAM/frmMain.resx
+++ b/app/DD_PM_WINDREAM/frmMain.resx
@@ -125,7 +125,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
-        CAAAAk1TRnQBSQFMAgEBAgEAAdQBCAHUAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAcwBCAHMAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -511,96 +511,168 @@
  </data>
  <data name="NotifyIcon1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        AAABAAEAAAAAAAEAIADXFAAAFgAAAIlQTkcNChoKAAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAAFJ5J
-        REFUeNrt3X1MVOeeB/Cv3CvZFJKOJEp3u10QxLCrgDLJjS6kAmlX+aNIXarhD66DjTW9GjJ9sb5Eb/Fq
-        qvZ14mobbaoYkpKqUcQ0oxej2ODi3mTQYSQxsCqkNXsHNjrkOuyu/MH+MXO8IzLDvJxznnPO8/0kRgSd
-        eY7J831+z3Oe58ysyclJmEFbgT0XQC6AivC3lN9tAEpEt4+k5AUQCH/dFfH7UP2gZ0h04+Ixy6gB0FZg
-        X4JQJ1d+vSi6TUQJGEMoDLoAdNUPem6JbtB0DBUAbQX2WgDKL3Z4spIxAO0A2usHPe2iG6MQHgDhkd4J
-        dnqShxIGLtGVgbAAaCuwOwA4AKwQ+R9AJNg1AC31g54WEW+uewCEO34zgBwRF0xkUMMAmvUOAt0CIDy/
-        d4EdnyiWYQBOvdYJNA+A8O27FrDUJ0rENQAOrW8npmn54m0F9mYA98HOT5SoFQDuh/uQZjSpAMKjfju4
-        QYdIDV4AtVpUA6pXAOFFvltg5ydSSwmAW+G+pSpVK4C2AnsLgPW6/bcQyedk/aDHodaLqRIAbQV2G0Il
-        P+f6RNq7htCUIJDqC6UcAOHO3wWW/ER68gKoSDUEUloDCG/jvQV2fiK9KesCS1J5kaQrgPAbd4H794lE
-        GkOoEriVzD9OKgDCZf8tcFcfkREMA1iSzHQg4SlAxJyfnZ/IGHIAdIX7ZkKSWQNoB+f8REZTglDfTEhC
-        ARC+z89bfUTGtCLcR+MWdwCEdyFxkw+Rsa1PZMdgXIuA4b39t8AVfyIziPvOQLwVQDvY+YnM4kWEjuDP
-        aMYACB9H5KIfkbmUxHOUOOYUIFz63xd9JUSUtPmxjhHPVAG0iG49EaWkJdYPowZA+Bl+vOVHZG4rwn15
-        WrEqAJfolhORKlzRfjBtAITvI3KrL5E15ETbGxCtAmgW3WIiUlXzdN98LgA4+hNZ0rRVwHQVgGPGlyIi
-        M3JM/cYz+wDCD/m4KbqVRKSZpZFbhKdWAE7RrSMiTTkj/zA1AGpFt46INFUb+YenARDeLMADP0TW9mLk
-        xqDICqA24ZciIjOqVb5gABDJp1b5Ig14uvrP8p9IDi8qnyegVAAVoltERLqqABgARLKqABgARLKqAIBZ
-        3y8ozQWf+kMko/lpAHJFt4KIhMhNA8t/IllVpPTx4ERkbqwAiOTFCoBIZmkAbKIbQURC2NLAT/0hklUJ
-        pwBEEmMAEEmMASCpzLwcvHamBa+daUFmHh8CLatZ3y8onUz9Zcgs0rNsKNzkwKINDc98v/94K+4cbcGT
-        hwHRTSQdMQAkkt+wFks/2ILZGRnT/nwiGMTNLw7jbusp0U0lnTAAJJBdWYbSbe/Blj8/rr8fuHsfvQe/
-        gv/qddFNJ40xACwsMy8Hpbu34uXy5Un9+wfdPejd+xke3xsWfSmkEQaABSnz/IXr1kQt9+M1EQxi4Iez
-        XB+wKAaAxeQ3rMXiTY14IXueqq877h/B7aMnuD5gMQwAi5hTWgz7zvcxt6RI0/cZ9frg+eRLPOrtE33J
-        pAIGgMmlZ9lgb96O3OrXdX3fIXcnPM0HOC0wOQaAiRXvcKoyz0+Wsj7Qt98l+r+CksQAMKFXVlejdGuT
-        6vP8ZI37R9D72SH8fN4tuimUIAaAiWTm5WDZp3s0n+cna9Trw42PPuZtQxNhAJhAepYNRR9uwcK33hTd
-        lLgMnD4H3+eHuT5gAgwAgyvc/DYWb1wvbJ6frIlgELe/PYk7R74T3RSKgQFgUNmVZVi2d5dh5vnJGveP
-        4MbufdxWbFAMAINJdfuuUXFbsTExAAwi2jFdq+GxY2NhABjATMd0rYbHjo2DASBQosd0rYbHjsVjAAiQ
-        mZeDIue7um/fNaohdyd8rm+4PiAAA0BHah7TtRoeOxaDAaATrY7pWg23FeuLAaAxvY7pWg2PHeuDAaAR
-        Ucd0EzHq9QGAocOJx4619WvRDbCqV4+5DNuxpt6GM/JtyNzq15Hxdy/hcp1DdFMsiR8MIpn+463oqKp5
-        5h783dZT6KiqQf/xVtHNI50xACTxoLsHF1auQd9+17Tl9JOHAfTtd+HCyjV40N0jurmkE04BLC7RzTaP
-        7w3jp8Yt0m9SkgUrAIuaCAZx0/U13Kvqktpp5796He5Vdbjp+hoTwaDoyyGNMAAsaOD0OXRU1ahyFv/O
-        ke/QUVWDgdPnRF8WaYABYCGjXh8urFwDz859qt42e/IwAM/Ofbiwcs3TW4dkDQwACxj3j+DKO024XOfQ
-        dD/943vDuFznwJV3mjDuHxF92aQCBoCJTQSD6D/eivPl1bqeqPNfvY7z5dXoP97K9QGTYwCY1JC7Ex1V
-        NUKfyd+334WOqhoMuTtF/3dQkhgAJjPq9eHiukb0NG03xPbYJw8D6GnajovrGrk+YELcB2ASRj8l96i3
-        D5frHDz1aDKsAEzi/o+XDNv5I91tPYX7P14S3QyKEwOASGIMACKJMQCIJMYAIJIYA4BIYgwAIokxAIgk
-        xgAgkhgDgEhiDAAiiTEAiCTGACCSGAOASGIMACKJMQCIJMYAIJIYA4BIYgwAIokxAIgkxgAgkhgDgEhi
-        DAAiiTEAiCTGADCJefYlyMzLEd2MGWXm5WCefYnoZlCcGAAayMzLQcZL2aq+5tySIqw624riHU7RlxdV
-        8Q4nVp1txdySIlVfN+OlbFOEnxnN+n5B6aToRlhFepYNhZscWLhuDWZnZGj2Pkb7mLBXVlejdGuTph8H
-        NhEMYuCHs7hztMUQn4loFQwAlejRCaYa9frg+eRLPOrtE3LNc0qLYd/5vuojfixGCz+zYwCkSEQnmGrI
-        3QlP8wHdRsb0LBvszduRW/26sGsWHX5WwQBIkhE6QaSJYBC3vz2JO0e+0/R9Cje/jcUb12s6xUmE3uFn
-        NQyAJBitE0Qa94/gxu598F+9rurrZleWYdneXYb82G9lfaBvv0t0U0yHAZAAI3eCqUa9Ptz46GM8vjec
-        0utk5uVg2ad7hE5x4qVV+FkZAyAOZuoEU/Ufb01q5Vy5o7FoQ4PoS0iYWuEnAwZADOlZNhR9uAUL33pT
-        dFNSMhEM4uYXh3G39VRcfz+/YS2WfrDFkFOcRAycPgff54e5PhADAyAKq3SCSIG799F78KuoJXJ2ZRlK
-        t70HW/580U1VTaLhJxsGwBRW7ARTPejuQe/ez56WyJl5OSjdvRUvly8X3TTNzBR+smIAhMnQCSIpK+cA
-        NN+5aCRTw0920geAmRe7KHnJLo5ajdQBkN+wFos3NZrith6pb9w/gttHT0i9PiBlAGRXlqFo80ZT3tYj
-        9Y16ffAd+VbK9QGpAiAzLwdFzncNs32XjGXI3Qmf6xup1gekCYDiHU6pFrsoObJtK7Z8AIg4pkvmJ8ux
-        41/9a9bfNotuhBbmlBaj/N8O4h9/W4/ZmcYc9YfcnRhoO4M5hQsN20atTASD8Bz4ChPj/wNbQb7o5jxn
-        dmYG/uFfqvDSin/Go/+8h//9L7/oJmnCsgGw0FFv2Ll+4O59/Pv2j3HnmxN41NeP++0/YvJXaZi3tER0
-        03TRf7wV15u24b//w4Nf3Jcxersfc/6pEH+TNUd0056T8VI2/u8vf4G/+4bopmiCzwTU0UQwiD/94SDc
-        q+qeWXF+8jCAvv0uXFi5Bg+6e0Q3UzMPuntwYeUa9O13PXP/3X/1Otyr6vCnPxzERDAouplS+bXoBsgi
-        no0nj+8N46fGLZbbjhzvNty7rafw849/5MYsHbEC0Nio1zftqBeLMiLedH1t6hFxIhjETdfXz1U8schS
-        DRkFA0Aj4/4RXHmnCZfrHEnfV75z5Dt0VNVg4PQ50ZeTsIHT59BRVZP0I8qUaujKO00Y94+IvhzLYgCo
-        TBn1zpdXq7Kz7MnDADw79+HCyjUY9fpEX96MlIrHs3OfKvvs/Vev43x5temrIaNiAKgo1VEvlsf3hnG5
-        zmHYEVGNiicWM1dDRsYAUMGo14eL6xpVG/ViUUbE/uOthhgRJ4JB9B9vVa3iiUWphi6uazRFNWQGDIAU
-        jPtH0P3hLlyuc+j+fPq+/S50VNVgyN0p7PqH3J3oqKrRfdvso94+XK5zoPvDXYashsyEAZCEyFFP5FbR
-        Jw8D6GnarvuIqFQ8PU3bhZ6n//m821DVkBkxABIkatSLRa8RUWTFE4sRqiGzYgDESVnkEj3qxfLzeTfc
-        NfWaLJQNnD4Hd029YQ/HKNWQURdJjYoBEKfgn/2meGDEk4cB/NJ5VfXX/aXzqmGDL5L/6nUE/2zNgzta
-        YAAQSYwBQCQxBgCRxBgARBJjABBJjAFAJDEGAJHEGABEEmMAEEmMAUAkMQYAkcQYAEQSYwAQSYwBQCQx
-        BgCRxBgARBJjABBJjAFAJDEGAJHEGABEEmMAEEmMAUAkMQYAkcQYAHGyLchD8Q4n0rNsopsSU3ZlGYo2
-        b1T9dYs2b0R2ZZnoy5tR8Q4nbAvyRDfDNBgAcZqdkYFFGxpQ3dGGV1ZXi27Oc9KzbFh+6ACqjh3C3JIi
-        1V9/bkkRqo4dwvJDBwwZgq+srsbqbjcWbWjA7IwM0c0xDQZAgl7Inofyz/fhtTMtmFNaLLo5AEKjXs2V
-        DuRWv675e+VWv46aKx0o3uEUfdkAgDmlxXjtTAvKP9+HF7LniW6O6TAAkjS3pAirfjghdEQUNeop1dDq
-        brewakipeFb9cEKTikcWDIAUKSNi4ea3dXvPzLwcQ4x6kdVQZl6Obu9buPlt3Soeq2MAqGB2RgaWOn+H
-        1d1uTRfK0rNssH+yC29cOmuoUW9uSRHeuHQW9k92aVoNZVeWYXW3G0udv+M8XyUMABW9kD0PVccOaTIi
-        KqPewrfeFH2ZUS18601NqiGl4qk6dojzfJUxADSg5ohotlFPzWrIqBWPlTAANKSMiPkNaxP+t5l5OXj1
-        xGHTjnpKNfTqicNJVUP5DWsNX/FYAQNAY7MzMvCb329D9cUzcY2I6Vk2FO9w4o1LZ/Fy+XLRzU/Zy+XL
-        8cals3FvosquLEP1xTP4ze+3maLiMTsGgE5s+fNnHBGVUW/RhgbRzVXdog0NMauhyIrHlj9fdHOlwQDQ
-        2XQjoiyj3nTVkNUqHrOZ9f2C0knRjdBK8Q4nFq5bY9hONe4fwUivV9r72UPuTswrLTHsGsdEMIiBH86i
-        b79LdFM0Y+kAAMIryc3bpe1klJwhdyc8zQfw5GFAdFM0ZfkAUMwpLYZ95/u8nUQxjXp98HzyJR719olu
-        ii6kCQBFfsNaLN7UaNiyk8QY94/g9tETuNt6SnRTdCVdAAChaUHhJoeh1wdIH8o8/87RFsuX+9ORMgAU
-        mXk5KN29VdrV54lgEACkDcEH3T3o3fsZHt8bFt0UYaQOAEV2ZRlKt70n1f3n/uOtuHO0BQBQuMlhyb0H
-        0QTu3kfvwa/gv3pddFOEYwBEyG9Yi6UfbLH0iBht1JOhGpoIBnHzi8PSzfNjYQBMoawPWG1EjHfUs2o1
-        pFQ8Ms7zY2EARJGZl4Nln+4x/W3DiWAQt789iTtHvkvo3xVufhuLN643fTU06vXhxkcfSz3Pj4UBMIPs
-        yjIs27vLlLcNB06fg+/zw0mPeulZNhR9uMWUJ/LG/SO4sXsf5/kzYADEyUwjotqjnpmqoWQrHlkxABJg
-        9BFR61HP6NVQqhWPjBgASTDatmK9D60Y7ZCVbNt31cQASMErq6tRurVJ6Igo6tCKEQ5ZjftH0PvZIfx8
-        3i2sDWbHAFCBiBHRKKOeiGpIhmO6emEAqESvEdGoo55e1dCQuxM+1ze8racSBoDKlA/nVHtENMOhFS0P
-        WY16ffAd+Za39VTGANCImseOzTbqZebloMj5rirVkKzHdPXCANBQqtuKzX5oJdVqiNt3tccA0EGiB22s
-        dmgl0UNWPKarHwaAjuI5aGPVUS+easjsFY8ZMQAEmG5ElGXUm64aslrFYyYMAEGUbcV//2qZlIdWlG3F
-        v/x0ndt3BWIAEEmMnwxEJDEGAJHE0gB4RTeCiITwpgEIiG4FEQkR4BSASGJpALpEN4KIhOhiBUAkMVYA
-        RPLqSgMwJLoVRCTE0KzJyUm0FdgDAF4U3Roi0s1Y/aDHpqwBdIluDRHpqgv4607ALtGtISJddQEMACJZ
-        dQHArMnJ0GFArgMQSWOsftBjA549DNQuulVEpIt25QsGAJF82pUvnk4BAE4DiCTwtPwHnn8eQLvo1hGR
-        ptoj/zA1AFyiW0dEmnJF/uGZAKgf9NwCcE10C4lIE9fCffyp6U4DtohuJRFpomXqN55ZBFS0FdiHAOSI
-        bi0RqWa4ftCTO/Wb0Z4H0Cy6tUSkqubpvjltBQCwCiCykGlHfyD2Y8GdoltNRKpwRvtB1AoAANoK7F0A
-        VohuPREl7Vr9oKci2g9neiagQ3TriSgljlg/jBkA9YOeIQB7RF8BESVlT7gPRxVzCqBoK7DfAlAi+mqI
-        KG7e+kHPkpn+UryPBa8FMCb6iogoLmOIc/oeVwCEywin6Ksiorg4p275jSbuDwapH/S0ADgp+sqIKKaT
-        4b4al7jWACLx1iCRYcW85TedZD4arBb8SHEio/Ei1DcTknAFAABtBXYbQk8V5Z0BIvGGASypH/QEEv2H
-        SX04aPiNHOCdASLRxgDUJtP5gSQDAHj68JAKhNKHiPQ3DKAi3hX/6SQ1BYjE6QCREF6EOn8glRdJugJQ
-        hBtQAT5KjEgv16BC5wdUqAAitRXYWwCsF/bfQmR9J+sHPQ61XizlCiBSuGGN4OIgkdrGADSq2fkBlSsA
-        RVuBPReh549zXYAodV6EVvqH1H5hTQJA0VZgbwbwsWZvQGR9e+oHPc1avbimAQA8rQZawO3DRIm4BsCh
-        xagfSfMAULQV2GsR+lQSPmiUKLphhE7ztevxZroFgKKtwO5A6BHFDAKivxoG0JzIST416B4AinAQOMCp
-        AcntGoAWvTu+QlgAKNoK7EsQethILfjR5CSHMYTukrlS2carBuEBECm8TqD8YhiQlSidvl2v+X08DBUA
-        kcKVQUXELwYCmckYQmdkugB0iR7pozFsAEwVvp2Yi1AYIOJ3G7jhiMTwAgiEv+6K+H1I69t3avl/OWHG
-        baPg47kAAAAASUVORK5CYII=
+        AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAgCUAABMLAAATCwAAAAAAAAAA
+        AAAxJKXfMSSl8jEkpe4uIqHuMCSk7lhC3e5eSOfuWELe7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD
+        3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uW0Th7ldC3e43KK3uVkDa7l5G5e5YQ97uYEnp7j4v
+        uO4hF47uQDC77mBI6e5ZQ9/uWUPf7llD3+5YQt3uW0Xi7mBJ6u5fSOfuWUPf7lhC3u5ZQ9/uWUPf7llD
+        3+5ZQ9/uWUPf8llD398xJKX/MCOi/zIlqP84Kbz/LyKv/0Ewyf9oTvz/X0jm/19H5/9fR+f/X0fn/19H
+        5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/Xkfm/2hO8v9MOdP/Py7H/2ZN
+        9/9eR+X/ZUzx/1dB2f8rH6T/PS3D/2JK7P9gSOj/X0fn/19H5/9hSev/WELc/0w5zv9WQen/ZEv7/2FJ
+        6/9eR+X/X0fn/19I6P9aROH/WELe/1lD3/8xJKXuMiWp/zAjoP8pHov/KR6L/yEYfv9GM7//W0To/1A8
+        0P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdP/UT3T/11G
+        9f9PO8z/HBRu/z8vrf9ZQ+X/UT3U/1lD4/8tIY7/Jx2H/1VA3f9TPtX/UT3U/1E91P9WQdv/SDbK/ycd
+        kf8bFG//OSuk/1hC4P9SPtX/UT3U/1E90/9YQt3/WkTh/1lD3+4xJKXuOCm8/ykeiv8AAAD/AAAA/wAA
+        AP8CAQ//MSOs/zAjqf8sIZ7/LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/ywh
+        nf8tIZ//OCnD/yIZfP8AAAX/AAAA/ygekv8xJK7/LCCc/zUnuv8fFmT/AAAA/y0hn/8wJKr/LSGf/y0h
+        n/8sIJ3/MiWq/zYosf8GBBb/AAAA/yAYd/81J7n/LCCd/ygdmP9QPNP/YEjo/1lD3+4xJKXuNym6/yke
+        i/8AAAD/AAAA/wAAAP8AAAD/GhNb/zwsyv8wI6D/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAj
+        pP8wI6T/MCOj/zAkpP88K8r/Ihlx/wAAAP8AAAD/KB2G/zorxP8vI6D/MCSk/zAkpP86KsT/DAkn/xoT
+        WP87K8f/LyOh/zAjpP8wI6T/LyOi/zkqwv8RDDr/AAAA/xkSVv87K8j/LyKg/ywgnv9RPdT/X0fn/1lD
+        3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AgII/zMmrP81J7L/MSSl/zEkpf8xJKX/MSSl/zEk
+        pf8xJKX/MSSl/zEkpf8xJKX/MCSi/z0szP8jGnf/AAAA/wAAAP8hGG7/PCzK/zAko/8xJKX/MSSl/zAk
+        o/83Kbv/KR6J/wsIJf83KLn/MiWo/zEkpf8xJKX/MSSn/zcpu/8NCSv/AAAA/w0KK/87K8f/MSSm/y0h
+        nv9RPdT/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/xsUXP88LMr/MCOh/zEk
+        pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8wI6D/OyvH/ykdif8AAAD/AAAA/x8Xav89Lc3/MSSm/zEk
+        pP8xJKX/MSSl/zEkpf8wI6L/OyvG/wsJJ/8ZE1b/PCzK/zAjof8xJKX/MSSk/zsrxf8WEEj/AAAA/wAA
+        AP8kGnr/Pi7T/y0hnv9RPdP/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQD
+        D/80J7H/Myat/zEkpf8xJKX/MSSl/zEkpf8wJKT/MSSk/zEkpf87K8T/MCOh/wAAAP8AAAD/JBp3/zws
+        yv8xJKb/MCSj/zEkpf8xJKX/MSSl/zEkpf8xJKP/OirF/x4WZf8AAAD/Myas/zYotv8xJKP/MSSk/zco
+        uP8uIZn/AAAA/wAAAP8AAAH/Ihlz/zUnu/9RPdP/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8jGnb/OivE/zEko/8xJKP/MSSk/zQnsP86KsL/OirC/zkqv/81J7P/BwUW/wIB
+        Bf8qH4//QjHd/zkqwv86KsL/Nyi4/zIlp/8wI6L/MSSl/zEkpf8xJKX/Nii1/y8inf8AAAD/Dwsz/zws
+        yv8xJKT/MSSm/zAkov86KsT/Ixp4/wAAAP8AAAD/AAAA/yQbgv9ZQ+//Xkfk/1lD3+4xJKXuNym6/yke
+        jP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8QDDb/OSrA/zAjof83KLn/OirE/zEkp/8jGXX/FA5C/w4K
+        L/8DAgv/AAAA/wQDDf8PCzL/DAkq/xMOQf8gF2z/LCCT/zcpuv87K8b/NCaw/zAjov8xJKX/MiWp/zYn
+        tf8HBRj/AAAA/ykeif85KsD/MCSj/zEkpP8xJKX/OirD/y4imv8KByL/AAAA/wUDGP9YQen/X0jq/1lD
+        3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8BAQX/MSSl/z8v1f8uIpv/FQ9I/wQD
+        D/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/w0KLf8gF2z/MyWr/zsr
+        x/8zJq7/LyOf/zsrxf8WEEr/AAAA/w8LMf86K8P/MSSk/zEkpf8xJKT/MCOi/zssx/81J7T/BAMQ/wAA
+        AP9OO8b/Y0v4/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/KB2E/ycd
+        hP8AAAH/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/BgQT/x4WZv83KLf/OSq+/zwsyv8qH4//AAAA/wAAAP8tIZf/Nii2/zEkpf8xJKX/MSSl/zAj
+        n/89Lc3/HhZp/wAAAP9NOsH/Y0v4/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/BAMN/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8JBx//LCCS/zoqw/8gF2v/AAAA/wAAAP8dFV//OivD/zEk
+        pP8xJKX/MSSl/zEko/85KsD/JBp6/wAABf9UP97/YEjs/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQACP8AAAD/AAAA/wAA
+        AP8ZD1L/Oi7E/zEkpP8wJKP/MSSk/zQnr/9BL9n/EQw7/xINQ/9bRPT/Xkfl/1lD3+4xJKXuNym6/yke
+        jP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8UWGH/GW50/xpydf8RS1b/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8FFRf/GWtz/xdmc/8bc3b/Cy81/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wg0
+        K/8acnP/FmZx/xZncf8nJoj/MRug/zMlq/86K8P/OSrB/zQmsP8ZE1b/CAYc/zEkr/9TP9v/X0fn/1lD
+        3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8y3fX/P////0L/
+        //8rvdn/AAAA/wAAAP8AAAD/AAAA/wAAAP8MNDn/Pf///zr///9E////G3eH/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/yGPm/9E////Of///zj///8pN5b/Mwyh/zcpuP8jGnb/EQ07/wAAAP8CAQT/LyKe/zQm
+        t/9QPND/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8rvNT/Nuz//zj1//8loLv/AAAA/wAAAP8AAAD/AAAA/wAAAP8KLTH/NOT//zLa//86/f//F2Z0/wAA
+        AP8AAAD/Bhke/wUWGv8AAAD/AAAA/xx5hv86/P//MNv//zHd/P8sNZ7/Iwls/wwJKP8AAAD/AAAA/w0J
+        Lf82J7X/OCm8/ysfmf9RPdP/ZEvu/2BJ6u4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8rvdT/Nu3//zj2//8lobv/AAAA/wAAAP8AAAD/AAAA/wAAAP8KLTH/NOX//zLb
+        //86/f//F2Z0/wAAAP8AAAD/I5en/yGOm/8AAAD/AAAA/xx6hv86/P//Mtz//zXh//8VKlD/AAAA/wAA
+        AP8CAQf/HhZk/zkqwv81KLT/LiKf/zMmtf9aROb/WkTf/0Ixve4xJKXuNym6/ykejP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zj2//8lobv/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8KLTH/NOX//zLb//86/f//F2Z0/wAAAP8AAAD/M+D8/zDU8f8AAAD/AAAA/xx6hv86/P//M93//zLg
+        /f8EIhf/BwIY/xsUXP8xJKX/OyvH/zEkpv81J7L/OivE/yYdgv81KJ//MyWt/ygdmO4xJKXuNym6/yke
+        jP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zj2//8lobv/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8KLTH/NOX//zLb//86/f//F2d1/wAAAP8NPEH/Ofr//zj1//8LLjH/AAAA/xx7
+        h/86/P//Mt3//zDe+f8IJCb/Jwh7/z4t0P81J7T/MCOg/zorxP8yJar/FA9D/wAAAP8gF3f/Nii6/zIl
+        pu4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zj2
+        //8lobv/AAAA/wAAAP8AAAD/AAAA/wAAAP8KLTH/NOb//zLb//86/f//F2Zz/wAAAP8ilan/Ovz//zv/
+        //8giJr/AAAA/xx6hv86/P//Mt3//zPg//8AHg3/FwFH/zgqvf8xJaf/PCzK/ykdiP8EAw7/AAAA/wAA
+        AP8qH4//Nym6/zEkpe4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8rvdT/Nu3//zn7//8jmbD/AAAA/wAAAP8AAAD/AAAA/wAAAP8KLTL/NOX//zLc//86/f//E1Jd/wAA
+        AP8z4Pz/NOL//zXn//8x1vP/AAAA/xhpc/86/P//Mt3//zPg//8BHg3/CAAT/zkqvv89Lc3/Hxdq/wAA
+        AP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4uIaDuNCe3/yYch/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8rvdT/Nu7//zTi//8swuP/IImY/x6Bjf8VV1v/AwwN/wAAAP8JJSr/NOP//zLb
+        //87/v//Dj1G/w04PP87////Mdf//zLY//86////DDQ5/xNSW/86/f//Mt3//zPg//8EIRj/AAAA/zws
+        yf8gFmj/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4zJqjuOCq8/yofj/8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu7//zDQ//8z4P//Ovz//zv///87/f//M+Dn/xJP
+        U/8BBAf/L872/zLZ//85+f//E1Nd/yGQof849v//Mdn//zLZ//85+P//H4mb/xRaX/85+f//Mt3//zPg
+        //8GIx//AgAC/xgSUv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe5cRePuX0jp/1E9
+        1P8qH5b/JBt7/xMNP/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu7//zDS//8z3f//N+///zTi
+        //8w0///Nu3//zn7//8ceon/I5e4/zHU//8z3v7/Ipao/y7K7P86+///IZCi/yKVqv85+v//LMHh/yKW
+        pv805P//M93//zPg//8IJCj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEk
+        pe5ZQ97uY0rq/1hC3/83KMP/QTDf/0Qy5f8xJKT/Cwgn/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu7//zLb
+        //8uzO//KrXR/zDS8P848///MNP//zPg//815f//JJy4/yu74P8w0fz/Mdj7/zLa//86////Ci0x/w05
+        Pf87////Mtf//zLY//8w0///M9///zPg//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8pHoz/Nym6/zEkpe4xJKXuOyu8/zEkmP8OCzL/FxFN/x0VYP8vIpv/KR6J/wcEFf8AAAD/AAAA/wAA
+        AP8rvdT/Nu3//zn4//8knLX/AAAA/wUUFf8ehZH/N+///zHU//805P//KbHQ/yalxf8x0/v/M93//zXn
+        //8x1/X/AAAA/wEDAf8z4P3/NOP//zLb//8x1f//M9///zPg//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4uIqHuMya2/yQagv8AAAD/AAAA/wAAAP8AAAD/AgII/wMC
+        Cv8AAAD/AAAA/wAAAP8rvdT/Nu3//zj3//8loLn/AAAA/wAAAP8AAAD/MdPu/zTl//804v//KrjZ/ySf
+        vf8v0Pj/MdT//zv///8hj6L/AAAA/wAAAP8knLH/Ov7//zHT//8x1v//M9///zPg//8IJCf/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4xJKXuNym6/ykejP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zn5//8knbb/AAAA/wAAAP8BBQT/Mtzy/zTi
+        //804v//KrfY/ySfvf8v0Pj/Mdf//zr6//8OO0D/AAAA/wAAAP8QR0//Ovz//zHU//8x1v//M9///zPg
+        //8IJCf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4xJKXuNym6/yke
+        jP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8rvdT/Nu3//zjz//8lo77/Aw8R/ww1
+        OP8mpLP/Nu7//zDT//805f//KK/P/yakxP8w0vr/N/D//y3G5f8AAAD/AAAA/wAAAP8BBAP/L83s/zbq
+        //8x1v//M9///zPg//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEk
+        pe4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8qvdL/Nu7//zHW
+        //8x1Pz/MNL0/zbs//849P//L87//zTj//805f//I5i0/yu63v8w0f7/PP///xt5h/8AAAD/AAAA/wAA
+        AP8AAAD/HoST/zv///8w0///M9///zPg//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8pHoz/Nym6/zEkpe4xJKXuNym6/ygdi/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wEA
+        Av8svNf/Nu3//zDT//8y2f//NOP//zLZ//8x1///OPf//zn1//8acHz/IpS2/zHR/P8y2v//Nu3//wgm
+        KP8AAAD/AAAA/wAAAP8AAAD/CzA1/zj0//8x2P//M97//zPf//8IJCf/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe4qHpruMSSy/yQbhP8AAAD/AAAA/wAAAP8CAgf/CQcf/xAM
+        N/8aE1f/IhRw/yQNdP8v1/D/N////zn6//85+///Ofv//zr7//837v//LsfO/w9AQv8CCw3/OPT//zr+
+        //9C////K7vV/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/y7H5P9B////Ov///zb///8JKiz/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe5HNcTuUj7Y/0k3xf8lHIX/KR6M/ywg
+        lP8vIp3/NCaw/zkqvv86K8X/OCW6/y8dnP8uYrf/HG6G/xBeWv8XZXP/F2Vy/xRVYP8MNDL/AAAA/wAA
+        AP8EERT/GGt5/xhmc/8bdnb/Ci4z/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/ww0Of8adnH/FWNr/yJr
+        lv8BDwv/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEkpe5gSeruZUzv/1dB
+        3v8zJbT/Nie5/zYotv81J7L/MyWq/zEkpf8wJKP/MSWj/zAloP8tBYz/JgBx/wUABP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/FAA4/y8Bkf8EAA7/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8pHoz/Nym6/zEk
+        pe5ZQ9/uX0fn/1E91P8tIZ//MCOk/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSk/zEkpP8wJKD/NCew/zYn
+        tP8aElb/AQAC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wEAA/8jGXT/OCm8/zkswv8oHoj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8pHoz/OCq7/y4ioO5ZQ9/uX0fn/1E91P8tIZ//MCOk/zEkpf8xJKX/MSSl/zEkpP8wJKP/MSSl/zMl
+        qv82KLX/OCm9/z4uz/9DMeD/LCGV/wkHH/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/Ew4+/y8inv87K8f/MiWn/zAkov87LMf/Ixp2/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8kGoL/LiGt/zIlp+5ZQ9/uX0fn/1E91P8tIZ//MSOm/zMmrP81J7P/Nym6/zkq
+        wf86K8P/OCm9/zUnsv8uIpv/Jx2B/xsUW/8QDDj/DAkp/wQDDP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8BAQL/CAYc/xcRTv8qH4z/OSrA/zcpuv8wI6H/MSSl/zEkpP8xJKX/OivE/ysg
+        kv8RDTr/AgEG/wAAAP8AAAD/AAAA/wAAAP8vI5b/SzjX/1lD3u5gSeruZ03w/1hC4f80Jrf/Nie3/zMl
+        q/8uIpv/Kh6M/yEYcf8bFFv/Eg08/woHIv8BAQX/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wgGHP8mG33/Ixp1/yUbfP8tIZb/NCav/zorxf84Kbz/MSSl/zAko/8xJKX/MSSl/zEk
+        pf8xJKT/MCOi/zgpvP85Kr7/LiKa/yQaeP8hGG//Ixp2/ycdjf9VQNz/aE71/1xF5O5EM8DuSTfQ/zor
+        qv8PCzb/DQks/wcFGP8BAQT/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/Dgow/zYouP89Lc//OSrA/zgqv/82KLb/MyWr/zEko/8xJKT/MSSl/zEk
+        pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zAko/8xJKb/NSe0/zkqwP85KsL/OCm//zIlsf9SPtb/Xkbl/1lD
+        3+4pHpruMCOx/yIZf/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8UD0T/OSrB/zcpuP8vI5//MSSk/zEkpP8xJKX/MSSl/zEk
+        pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpP8xJKT/MCOj/y0h
+        n/9RPdT/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/xoTWf87LMn/NSey/zAjof8xJKX/MSSl/zEk
+        pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEk
+        pf8xJKX/MCOk/y0hn/9RPdT/X0fn/1lD3+4xJKXuNym6/ykejP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/IRhw/z0tzf8zJa3/MCOi/zEk
+        pf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEk
+        pf8xJKX/MSSl/zEkpf8xJKX/MCOk/y0hn/9RPdT/X0fn/1lD3+4xJKXuNym6/ykei/8AAAD/AAAA/wAA
+        AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8mHIL/PCzK/zEk
+        pv8wI6L/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAj
+        pP8wI6T/MCOk/zAjpP8wI6T/MCOk/zAjpP8wI6T/LyKj/ywgnv9RPdT/X0fn/1lD3+4xJKXuOCm8/yke
+        iv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAM/ygd
+        jv84KcT/LSGd/ywhnv8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0h
+        n/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LSGf/y0hn/8tIZ//LCCe/ygdmP9QPNP/YEjo/1lD
+        3+4xJKXuMiWp/zAjoP8pHov/KR6L/ykejP8pHoz/KR6M/ykejP8pHoz/KR6M/ykejP8qHoz/Kx+N/yEX
+        f/8rIIz/Uz7U/1tE8P9QPdD/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E9
+        1P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E91P9RPdT/UT3U/1E9
+        0/9YQt3/WkTh/1lD3+4xJKX/MCOi/zIlqP83Kbv/Nym7/zcpuv83Kbr/Nym6/zcpuv83Kbr/Nym6/zcp
+        uv84Kbv/LyKu/zwswf9jSvv/Zk33/11H4/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H
+        5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H5/9fR+f/X0fn/19H
+        5/9fR+f/X0fn/19I6P9aROH/WELe/1lD3/8xJKXfMSSl8jEkpe4xJKXuMSSl7jEkpe4xJKXuMSSl7jEk
+        pe4xJKXuMSSl7jEkpe4sIJ3uOyyz7mBJ6e5fR+fuWELd7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD
+        3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD
+        3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf8llD398AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAA=
 </value>
  </data>
  <data name="NotifyIcon1.Text" xml:space="preserve">
@@ -2843,12 +2915,6 @@
  <data name="&gt;&gt;TimerInactivity.Type" xml:space="preserve">
    <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
-  <data name="&gt;&gt;bsiRowCount.Name" xml:space="preserve">
-    <value>bsiRowCount</value>
-  </data>
-  <data name="&gt;&gt;bsiRowCount.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
  <data name="&gt;&gt;$this.Name" xml:space="preserve">
    <value>frmMain</value>
  </data>
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -17,8 +17,6 @@ Imports DevExpress.XtraBars.Ribbon
 Imports DigitalData.Modules.ZooFlow

 Public Class frmMain
-    Private Property FormHelper As FormHelper
-
    Private UserLoggedin As Integer = 0
    Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
    Private CURR_DT_OVERVIEW As DataTable
@@ -52,16 +50,12 @@ Public Class frmMain
    Private DetailLinkActive As Boolean = False
    Private FRONTEND_ACTION As String = "NONE"
    Private Ev_Filter_Panel_Closed As Boolean = False
-    Dim omsgOpenWorkflow = "Bitte schliessen Sie den offenen Workflow!"
-    Dim omsgTitleWarning = "Achtung:"
-    Private Const FullFilepatColName = "FULL_FILE_PATH"
-    Private Const FA_NONE = "NONE"
    Private Function GET_LAST_ADDED(pDatatable As DataTable) As String
        Dim oADDED As String
        Try
            If IsNothing(pDatatable) Then
                oADDED = "NOTHING"
-            ElseIf LAST_ADDED_COLUMN = FA_NONE Then
+            ElseIf LAST_ADDED_COLUMN = "NONE" Then
                oADDED = Now.ToShortTimeString.ToString
            Else
                Dim result As Object
@@ -79,7 +73,7 @@ Public Class frmMain
        Try
            If IsNothing(pDatatable) Then
                oCHANGED = "NOTHING"
-            ElseIf LAST_EDITED_COLUMN = FA_NONE Then
+            ElseIf LAST_EDITED_COLUMN = "NONE" Then
                oCHANGED = Now.ToShortTimeString.ToString
            Else
                Dim result As Object
@@ -111,6 +105,7 @@ Public Class frmMain
            My.Settings.frmMainSize = Me.Size
            My.Settings.frmMainPosition = Me.Location
            My.Settings.Save()
+            'SaveGridLayout()
        Catch ex As Exception
            LOGGER.Error(ex)
            LOGGER.Info("Error in Save FormLayout: " & ex.Message)
@@ -164,13 +159,6 @@ Public Class frmMain

        ' Create helper to save/load expanded GroupColumns at runtime
        RefreshHelper = New RefreshHelper(LOGCONFIG, GridViewWFItems, "GUID")
-
-        If User.Language <> "de-DE" Then
-            omsgOpenWorkflow = "Please close the active workflow!"
-            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)
        bsiVersion.Caption = oVErsion
        If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then
@@ -542,6 +530,8 @@ Public Class frmMain

    End Function

+
+
    Private Function GetXML_LayoutName()
        Dim Filename As String = String.Format("DevExpressGridViewOverview_UserLayout_{0}.xml", GRID_LOAD_TYPE)
        Return System.IO.Path.Combine(CONFIG.UserConfigPath.Replace("UserConfig.xml", ""), Filename)
@@ -600,11 +590,7 @@ Public Class frmMain
                GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
                GridViewWFItems.Columns.Item("GUID").Visible = False
                Try
-                    GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False
-                Catch ex As Exception
-
-                End Try
-                Try
+                    GridViewWFItems.Columns.Item("FULL_FILE_PATH").Visible = False
                    'GridView_Docs.Columns.Item("DocID").Visible = False
                    GridViewWFItems.Columns.Item("TL_STATE").Visible = False
                Catch ex As Exception
@@ -758,7 +744,7 @@ Public Class frmMain
    Private Async Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs)
        If Not Application.OpenForms().OfType(Of frmValidator).Any Then
        Else
-            FormHelper.ShowInfoMessage(omsgOpenWorkflow, omsgTitleWarning)
+            MsgBox("Please close the active workflow!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
            Exit Sub
        End If

@@ -776,6 +762,9 @@ Public Class frmMain
                        If Not Application.OpenForms().OfType(Of frmValidator).Any Then
                            CURRENT_CLICKED_PROFILE_ID = _tag
                            CURRENT_CLICKED_PROFILE_TITLE = e.Link.Item.Caption
+                        Else
+                            MsgBox("Please close the active workflow!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
+                            Exit Sub
                        End If


@@ -802,13 +791,13 @@ Public Class frmMain
                    DetailLinkActive = False
                    OVERVIEW_ADDED_WHEN = ""
                End If
-                Await Load_Grid_Overview(False, True, True)
+                Await Load_Grid_Overview(oForce)
                GridViewWFItems.HideLoadingPanel()
                TimerRefresh.Start()
                RefreshHelper.LoadViewInfo()
                If GridViewWFItems.GroupCount = 0 And IsNothing(GridViewWFItems.Columns("GROUP_TEXT")) Then
                    LOGGER.Info("NO GROUPS AFTER CLICK OVERVIEW...CREATING GROUPS NEW...")
-                    Await Load_Grid_Overview(False, True, True)
+                    Await Load_Grid_Overview(False, True)
                    GridViewWFItems.HideLoadingPanel()
                    TimerRefresh.Start()
                    RefreshHelper.LoadViewInfo()
@@ -816,7 +805,7 @@ Public Class frmMain
            End If
        End If

-        FRONTEND_ACTION = FA_NONE
+        FRONTEND_ACTION = "NONE"
    End Sub
    Function Load_Profiles_for_User() As Boolean
        Try
@@ -835,6 +824,7 @@ Public Class frmMain
    Sub GridControl_Docs_Visible()
        Try
            If GridControl_Docs.Visible = False Then
+
                GridControl_Docs.Visible = True
            End If
        Catch ex As Exception
@@ -908,7 +898,7 @@ Public Class frmMain
            LOGGER.Error(ex)
            LOGGER.Info("Load_single_Profile - Error: " & ex.Message)
        End Try
-        FRONTEND_ACTION = FA_NONE
+        FRONTEND_ACTION = "NONE"
    End Function
    Sub Create_Basic_View()
        Try
@@ -996,10 +986,7 @@ Public Class frmMain
            GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
            GridViewWFItems.Columns.Item("GUID").Visible = False
            Try
-                GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False
-            Catch ex As Exception
-            End Try
-            Try
+                GridViewWFItems.Columns.Item("FULL_FILE_PATH").Visible = False
                'GridView_Docs.Columns.Item("DocID").Visible = False
                GridViewWFItems.Columns.Item("TL_STATE").Visible = False
            Catch ex As Exception
@@ -1030,7 +1017,7 @@ Public Class frmMain
                Catch ex As Exception
                    LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridView_Docs - Trying to Rest Layout")
                    ResetLayout()
-                    FRONTEND_ACTION = FA_NONE
+                    FRONTEND_ACTION = "NONE"
                    Exit Sub
                End Try
            End If
@@ -1057,16 +1044,13 @@ Public Class frmMain
                GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False
                GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False
            Catch ex As Exception
-                If OverviewOrDEtail = "OVERVIEW" Then
-                    LOGGER.Warn("ATTENTION: GROUP COLUMNS NOT PART OF GRID")
-                End If
-
+                LOGGER.Error(ex)
            End Try
            LOGGER.Debug("All columns in CreateBasicView created")
        Catch ex As Exception
            LOGGER.Error(ex)
        End Try
-        FRONTEND_ACTION = FA_NONE
+        FRONTEND_ACTION = "NONE"


    End Sub
@@ -1084,7 +1068,7 @@ Public Class frmMain
                    If oViewColumn.Caption = oGridDXFieldName Then
                        If oActGridColumn.Visible = False Then
                            If oViewColumn.Caption <> "GUID" And oViewColumn.Caption <> "TL_STATE" And oViewColumn.Caption <> "PROFILE_ID" And oViewColumn.Caption <> "DocID" And
-                               oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" And oViewColumn.Caption <> "CONV_YN" Then
+                                oViewColumn.Caption <> "FULL_FILE_PATH" And oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" And oViewColumn.Caption <> "CONV_YN" Then
                                Console.WriteLine($"ViewColumn  [{oViewColumn.Caption}] is invisible")
                            Else
                                oViewColumn_exists = True
@@ -1095,10 +1079,8 @@ Public Class frmMain
                    End If
                Next
                If oViewColumn_exists = False Then
-                    If oViewColumn.Caption = FullFilepatColName And IDB_ACTIVE = False Then
-                        LOGGER.Info($"Following ViewColumn no longer exists in the view: [{oViewColumn.Caption}]")
-                        Return True
-                    End If
+                    LOGGER.Info($"Following ViewColumn no longer exists in the view: [{oViewColumn.Caption}]")
+                    Return True
                End If
            Next
            For Each oActGridColumn As GridColumn In GridViewWFItems.Columns
@@ -1195,6 +1177,7 @@ Public Class frmMain
            End If

            Try
+                ' SaveGridLayout()
                'bwSync.ReportProgress(10)
                LoadNavBar()
                'bwSync.ReportProgress(60)
@@ -1239,14 +1222,14 @@ Public Class frmMain

            GridViewWFItems.ShowLoadingPanel()
            TimerRefresh.Stop()
-            FRONTEND_ACTION = "DECIDE_LOAD"
+
            If GRID_LOAD_TYPE = "OVERVIEW" Then

-                Await Load_Grid_Overview(pIsFormLoad, ForceReload, False)
+                Await Load_Grid_Overview(pIsFormLoad, ForceReload)
            ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then
                Await Load_single_Profile(ForceReload)
            End If
-            FRONTEND_ACTION = FA_NONE
+
            GridViewWFItems.HideLoadingPanel()
            TimerRefresh.Start()

@@ -1307,7 +1290,6 @@ Public Class frmMain
        End Try
        Try
            InitializeComponent()
-            FormHelper = New FormHelper(LOGCONFIG, Me)
            ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Catch ex As Exception
            LOGGER.Error(ex)
@@ -1420,7 +1402,7 @@ Public Class frmMain
                '  th.Start()
            Else
                LOGGER.Debug("Validator is already open...")
-                FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
+                MsgBox(omsg, MsgBoxStyle.Exclamation, omsgTitle)

            End If

@@ -1618,14 +1600,15 @@ Public Class frmMain
                    Try
                        oFocusedDocGUID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("GUID"))
                    Catch ex As Exception
-                        FormHelper.ShowInfoMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
+                        MsgBox("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", MsgBoxStyle.Critical)

                    End Try
                    Dim oFocusedDocID
                    Try
                        oFocusedDocID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("DocID"))
                    Catch ex As Exception
-                        FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
+                        MsgBox("Could not get DocID. Inform Your admin-team: Check Your View-Config", MsgBoxStyle.Critical)
+
                    End Try

                    If IsNothing(oFocusedDocID) Then
@@ -1641,17 +1624,13 @@ Public Class frmMain
                        Exit Sub
                    End If
                    LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}")
-                    If Not IsNothing(GridViewWFItems.Columns(FullFilepatColName)) Then
-                        Dim DOC_PATH = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns(FullFilepatColName))
-                        If IsNothing(DOC_PATH) Then
-                            LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!")
-                            Exit Sub
-                        End If
-                        DOC_PATH = DOC_PATH.Replace("W:\", "\\windream\objects\")
-                        DOC_PATH = DOC_PATH.Replace("K:\", "\\windream\objects\")
-                        ' CURRENT_DOC_PATH = DOC_PATH
+                    Dim DOC_PATH = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("FULL_FILE_PATH"))
+                    If IsNothing(DOC_PATH) Then
+                        LOGGER.Warn("In hitInfo.InDataRow: DOC_PATH is nothing!!!")
+                        Exit Sub
                    End If
-
+                    DOC_PATH = DOC_PATH.Replace("W:\", "\\windream\objects\")
+                    DOC_PATH = DOC_PATH.Replace("K:\", "\\windream\objects\")
                    'Checking if table really contains one record with profile-id and docid
                    oExpression = oExpression & " AND DocID = " & oFocusedDocID
                    'Dim TEMP_TABLE = CURR_DT_OVERVIEW
@@ -1665,7 +1644,7 @@ Public Class frmMain
                    CURRENT_DOC_ID = oFocusedDocID
                    CURRENT_JUMP_DOC_GUID = oFocusedDocGUID
                    CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
-
+                    CURRENT_DOC_PATH = DOC_PATH
                    Dim oSQL = $"SELECT [dbo].[FNPM_CHECK_DocGUID_Valid] ({CURRENT_DOC_GUID})"
                    Dim oResult = DatabaseFallback.GetScalarValueECM(oSQL)
                    Try
@@ -1678,8 +1657,7 @@ Public Class frmMain
                                omsg = "Attention: the item You chose is rather in work or locked from another user!"
                                otitle = "Attention:"
                            End If
-                            FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
-
+                            MsgBox(omsg, MsgBoxStyle.Exclamation, otitle)
                        End If
                    Catch ex As Exception
                        LOGGER.Warn($"Uenxpected error in Checking freefile - sql so far: {oSQL} - ")
@@ -1692,7 +1670,8 @@ Public Class frmMain

                End If
            Else
-                FormHelper.ShowInfoMessage("Could not get the ProfileID of file! - Check Your configuration of MainView!", omsgTitleWarning)
+                MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
+
            End If
        Catch ex As Exception
            LOGGER.Error(ex)
@@ -1768,13 +1747,12 @@ Public Class frmMain
                Dim sd = GridViewWFItems.GroupedColumns(index).GetTextCaption
                GridViewWFItems.GroupedColumns(index).Tag = GridViewWFItems.Columns.Item("PROFILE_ID")
            Next
-            GridViewWFItems.CollapseAllGroups()
            LOGGER.Debug("finished Grouping!")
        Catch ex As Exception
            LOGGER.Error(ex)
        End Try
    End Sub
-    Async Function Load_Grid_Overview(pFormLoad As Boolean, pForceReload As Boolean, pNavbarClick As Boolean) As Tasks.Task
+    Async Function Load_Grid_Overview(FormLoad As Boolean, Optional ForceReload As Boolean = False) As Tasks.Task
        Dim oStopWatch As New RefreshHelper.SW("Load_Grid_Overview(LGO)")
        GridControl_Docs_Visible()
        GRID_LOAD_TYPE = "OVERVIEW"
@@ -1801,16 +1779,16 @@ Public Class frmMain
            Dim oStopWatch2 As New RefreshHelper.SW("LGO#build CURR_DT_OVERVIEW")
            Dim oSQLOverview = BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
            If IsDBNull(oSQLOverview) Then
-                bsiMessage.Caption = "No SQL_PROFILE_MAIN_VIEW in Baseconfig"
+                bsiMessage.Caption = "No GROUP-CONFIG (SQL_PROFILE_MAIN_VIEW) in Baseconfig"
                oStopWatch.Done()
                oStopWatch2.Done()
                Exit Function
            End If
            If oSQLOverview.ToString.Contains("GROUP_TEXT") = False Then
-                LOGGER.Info($"SQL SO FAR: {oSQLOverview} ")
-                FormHelper.ShowInfoMessage("Incomplete Overview-Source (No Group-Columns). Please reload manually!", omsgTitleWarning)
-
+                MsgBox("Incomplete Overview-Source (No Group-Columns). Please reload manually!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
                NO_WORKFLOWITEMS = True
+
+                'MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
                GridControl_Docs.Visible = False
                bindsourcegrid.DataSource = Nothing
                GridControl_Docs.DataSource = Nothing
@@ -1845,21 +1823,21 @@ Public Class frmMain
                Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW)
                Dim oChanged = GET_LAST_CHANGED(CURR_DT_OVERVIEW)
                Dim oCOUNT = CURR_DT_OVERVIEW.Rows.Count
-                If pForceReload = False Then
-                    If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And oCOUNT = OVERVIEW_COUNT Then
-                        If pForceReload = False Then
-                            LOGGER.Debug("No changes on OverviewHash - so exit Load_Grid_overview")
-                            Exit Function
-                        End If
-                    Else
-                        LOGGER.Info("Differences on OverviewHash")
-                        LOGGER.Debug($"oADDED/OVERVIEW_ADDED_WHEN: {oADDED}/{OVERVIEW_ADDED_WHEN}#oADDED/OVERVIEW_ADDED_WHEN: {oChanged}/{OVERVIEW_CHANGED_WHEN}")
-                        OVERVIEW_ADDED_WHEN = oADDED
-                        OVERVIEW_CHANGED_WHEN = oChanged
-                        OVERVIEW_COUNT = oCOUNT
-                    End If
-                End If
+                If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN And oCOUNT = OVERVIEW_COUNT Then

+                    If ForceReload = False Then
+                        LOGGER.Debug("No changes on OverviewHash - so exit Load_Grid_overview")
+                        Exit Function
+                    End If
+
+                Else
+                    LOGGER.Info("Differences on OverviewHash")
+                    LOGGER.Debug($"oADDED/OVERVIEW_ADDED_WHEN: {oADDED}/{OVERVIEW_ADDED_WHEN}#oADDED/OVERVIEW_ADDED_WHEN: {oChanged}/{OVERVIEW_CHANGED_WHEN}")
+                    OVERVIEW_ADDED_WHEN = oADDED
+                    OVERVIEW_CHANGED_WHEN = oChanged
+                    OVERVIEW_COUNT = oCOUNT
+                End If
+                Create_View_Caption()
                NO_WORKFLOWITEMS = False
                If CURR_DT_OVERVIEW.Rows.Count = 0 Then
                    If USER_LANGUAGE = "de-DE" Then
@@ -1867,7 +1845,11 @@ Public Class frmMain
                    Else
                        GridViewWFItems.ViewCaption = "No workflowdata!"
                    End If
+
+
                    NO_WORKFLOWITEMS = True
+
+                    'MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
                    GridControl_Docs.Visible = False
                    bindsourcegrid.DataSource = Nothing
                    GridControl_Docs.DataSource = Nothing
@@ -1875,7 +1857,9 @@ Public Class frmMain
                        GridViewWFItems.Columns.Clear()
                    Catch ex As Exception
                        LOGGER.Error(ex)
+
                    End Try
+
                    Exit Function
                End If

@@ -1889,6 +1873,9 @@ Public Class frmMain
                    columnStateIcon.Caption = ""
                    CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
                End If
+
+
+
                RedDocuments = 0
                YellowDocuments = 0
                GreenDocuments = 0
@@ -1940,44 +1927,47 @@ Public Class frmMain

                bindsourcegrid.DataSource = CURR_DT_OVERVIEW
                GridControl_Docs.DataSource = bindsourcegrid
-
+                'Dim objectCount_Descr = GridViewWFItems.RowCount.ToString
+                'If USER_LANGUAGE = "de-DE" Then
+                '    GridViewWFItems.ViewCaption = "Gesamtübersicht"
+                '    objectCount_Descr &= " Vorgänge"
+                'Else
+                '    GridViewWFItems.ViewCaption = "Overview"
+                '    objectCount_Descr &= " objects"
+                'End If
                Create_View_Caption()
-
+                ' tslblObjectCount.Text = objectCount_Descr
+                'tslblObjectCount.ForeColor = Color.DarkBlue
                Dim oColNotPartofLayout As Boolean
                oColNotPartofLayout = False
                'GridControlDocRow.ForceInitialize()
                '  GridControl1.DataSource = CURR_DT_PROFILEGRID
-                If pFormLoad = True Then
+                If FormLoad = True Then
                    If IDB_ACTIVE = True Then
                        oColNotPartofLayout = Column_inGridViewLayout("CONV_YN")
                    End If
                End If
-                If pNavbarClick = False Then
-                    If pForceReload = True And (GridLayoutChanged() = True Or oColNotPartofLayout = True) Then
-                        ResetLayout()
-                        SaveGridLayout()
-                    Else
-                        If oColNotPartofLayout = False Then
-                            RestoreLayout()
-                        End If
-                    End If
+                If FORCE_LAYOUT_OVERVIEW = True And (GridLayoutChanged() = True Or oColNotPartofLayout = True) Then
+                    ResetLayout()
+                    SaveGridLayout()
                Else
-                    RestoreLayout()
+                    If oColNotPartofLayout = False Then
+                        RestoreLayout()
+                    End If
                End If

-
                Try
                    Create_Groups()
                    GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
                    GridViewWFItems.Columns.Item("GUID").Visible = False
                    Try
-                        GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False
+                        GridViewWFItems.Columns.Item("FULL_FILE_PATH").Visible = False
                        'GridView_Docs.Columns.Item("DocID").Visible = False
                        GridViewWFItems.Columns.Item("TL_STATE").Visible = False
                    Catch ex As Exception

                    End Try
-
+                    GridViewWFItems.CollapseAllGroups()

                    If TL_ICON = True Then
                        Try
@@ -2032,9 +2022,10 @@ Public Class frmMain
                    LOGGER.Error(ex)
                    LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
                End Try
-                If GridViewWFItems.Columns.Count <= 5 Then
+                'SaveGridLayout()
+                If GridViewWFItems.Columns.Count <= 2 Then
                    LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
-                    Await Reset_GridLayout(pFormLoad)
+                    Await Reset_GridLayout(FormLoad)
                End If
            Else
                NO_WORKFLOWITEMS = True
@@ -2057,11 +2048,12 @@ Public Class frmMain
            LOGGER.Info("Load_Grid_Overview - Fehler: " & ex.Message)
        End Try
    End Function
+
    Private Sub tsmiValidationProfil_Click(sender As Object, e As EventArgs) Handles tsmiValidationProfil.Click
        If CURRENT_CLICKED_PROFILE_ID <> 0 Then
            Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
        Else
-            FormHelper.ShowInfoMessage("Please choose a profile!", omsgTitleWarning)
+            MsgBox("Please choose a profile!", MsgBoxResult.Ok, ADDITIONAL_TITLE)
        End If
    End Sub

@@ -2074,7 +2066,7 @@ Public Class frmMain
        SaveGridLayout()
        GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
        If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo()
-        FRONTEND_ACTION = FA_NONE
+        FRONTEND_ACTION = "NONE"
    End Sub
    Async Function Reset_GridLayout(FormLoad As Boolean) As Tasks.Task

@@ -2085,6 +2077,7 @@ Public Class frmMain
        InResetlayout = True
        ' Layout zurücksetzen
        ResetLayout()
+        'SaveGridLayout()

        ' Ansicht neu laden
        LoadNavBar()
@@ -2220,10 +2213,10 @@ Public Class frmMain
    End Sub

    Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewWFItems.ColumnWidthChanged
-        GridLayout_Changed("ColumnWidthChanged")
+        GridLayout_Changed()
    End Sub
    Private Sub GridView_Docs_EndSorting(sender As Object, e As EventArgs) Handles GridViewWFItems.EndSorting
-        GridLayout_Changed("EndSorting")
+        GridLayout_Changed()
    End Sub

    Private Sub GridView_Docs_LostFocus(sender As Object, e As EventArgs) Handles GridViewWFItems.LostFocus
@@ -2345,7 +2338,7 @@ Public Class frmMain
    End Sub

    Sub DebuglogBackgroundthread()
-        Dim oSQL As String = FA_NONE
+        Dim oSQL As String = "None"
        Try
            For Each oSLogstring As String In LOGCONFIG.Logs
                Dim oLogSplit As String() = oSLogstring.Split("|")
@@ -2438,17 +2431,14 @@ Public Class frmMain


    Private Async Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick
-        If Application.OpenForms().OfType(Of frmValidator).Any Then
-            FormHelper.ShowInfoMessage(omsgOpenWorkflow, omsgTitleWarning)
-            Exit Sub
-        End If
        Timer_Inactivity_Reset_Disable("OverviewRefreshClick")
-        'If GridControl_Docs.Visible = True And FormOpenClose = False Then
-        '    RefreshHelper.SaveViewInfo()
-        '    SaveGridLayout()
-        'End If
-        Await Decide_Load(False, True)
+        If GridControl_Docs.Visible = True And FormOpenClose = False Then
+            RefreshHelper.SaveViewInfo()
+            SaveGridLayout()
+        End If
+
        LoadNavBar()
+        Await Decide_Load(False, True)
        If GridControl_Docs.Visible = True And FormOpenClose = False Then
            RefreshHelper.LoadViewInfo()
        End If
@@ -2658,40 +2648,12 @@ Public Class frmMain
            If GridViewWFItems.ActiveFilterEnabled Then

            End If
-            GridLayout_Changed("ColumnFilterChanged")
-            RowCount
+
+            SaveGridLayout()
        Catch ex As Exception
            LOGGER.Error(ex.Message)
        End Try
    End Sub
-    Sub RowCount()
-        Try
-            'Dim oGroupCount As Integer = 0
-            'For index = 0 To GridViewWFItems.RowCount
-            '    Dim oRow = GridViewWFItems.GetRow(index)
-            '    If oRow Is Nothing Then
-            '        Continue For
-            '    End If
-            '    If GridViewWFItems.GetRowExpanded(index) = True Then
-            '        oGroupCount += 1
-            '    End If
-
-            'Next
-            Dim oRowCount = GridViewWFItems.RowCount
-
-            oRowCount = oRowCount '- oGroupCount
-            Dim objectCount_Descr = $"[{oRowCount.ToString}]"
-            If USER_LANGUAGE = "de-DE" Then
-                objectCount_Descr &= " Workflows"
-            Else
-                objectCount_Descr &= " workflows"
-            End If
-            bsiRowCount.Caption = objectCount_Descr
-        Catch ex As Exception
-            bsiRowCount.Caption = "Error getting RowCount"
-        End Try
-
-    End Sub
    Sub Create_View_Caption()
        Try

@@ -2796,7 +2758,7 @@ Public Class frmMain
                MyProcess.Start()
            Else
                LOGGER.Warn($"Clipboardwatcher-Exe not found [{bbtniCW.Tag}]")
-                FormHelper.ShowInfoMessage("Clipboard Watcher could not be started!", omsgTitleWarning)
+                MsgBox("Clipboard Watcher could not be started!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
            End If

        Catch ex As Exception
@@ -2805,13 +2767,13 @@ Public Class frmMain
    End Sub

    Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnPositionChanged
-        GridLayout_Changed("ColumnPositionChanged")
+        GridLayout_Changed()
    End Sub
-    Private Sub GridLayout_Changed(oEvent As String)
-        If FormShown = False Or Ev_Filter_Panel_Closed Then
+    Private Sub GridLayout_Changed()
+        If FormShown = False Then
            Exit Sub
        End If
-        If FRONTEND_ACTION <> FA_NONE Then
+        If FRONTEND_ACTION <> "NONE" Then
            Exit Sub
        End If
        SaveGridLayout()
@@ -2819,7 +2781,7 @@ Public Class frmMain


    Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridViewWFItems.EndGrouping
-        GridLayout_Changed("EndGrouping")
+        GridLayout_Changed()
    End Sub

    Private Sub bsilastsync_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bsilastsync.ItemClick
@@ -2853,8 +2815,8 @@ Public Class frmMain
    End Sub
    Sub Grid_Layout_Save()
        FRONTEND_ACTION = "SAVE GRID LAYOUT"
-        GridLayout_Changed("Grid_Layout_Save")
-        FRONTEND_ACTION = FA_NONE
+        GridLayout_Changed()
+        FRONTEND_ACTION = "NONE"
    End Sub

    Private Sub BarButtonItem3_ItemClick_2(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
@@ -2906,19 +2868,19 @@ Public Class frmMain
            Dim oProfileId = 0

            If oSelectedRows.Count = 0 Then
-                Dim omsg = "Bitte selektieren Sie einige 1 oder mehr Dokumente"
-                If USER_LANGUAGE <> "de-DE" Then
-
-                    omsg = "Please select some documents!"
+                If USER_LANGUAGE = "de-DE" Then
+                    MsgBox("Bitte selektieren Sie einige 1 oder mehr Dokumente", MsgBoxStyle.Exclamation, "Massenabschluss")
+                Else
+                    MsgBox("Please select some documents!", MsgBoxStyle.Exclamation, "Mass Validation")
                End If
-                FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
+
                Exit Sub
            End If

            oProfileId = GridViewWFItems.GetRowCellValue(oSelectedRows.Last(), GridViewWFItems.Columns("PROFILE_ID"))

            If oProfileId = 0 Then
-                FormHelper.ShowInfoMessage("Could not select a profile!", omsgTitleWarning)
+                MsgBox("Could not select a profile!", MsgBoxStyle.Exclamation, "Mass Validation")
                Exit Sub
            End If

@@ -2962,11 +2924,11 @@ Public Class frmMain
                    End If
                    Dim R As DataRow = NewDatatable.NewRow
                    CURRENT_DOC_ID = oDocID
-                    Dim DOC_PATH = GridViewWFItems.GetRowCellValue(oRowHandle, FullFilepatColName)
-                    ' CURRENT_DOC_PATH = DOC_PATH
+                    Dim DOC_PATH = GridViewWFItems.GetRowCellValue(oRowHandle, "FULL_FILE_PATH")
+                    CURRENT_DOC_PATH = DOC_PATH
                    CURRENT_DOC_GUID = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID")
                    R("DocID") = CURRENT_DOC_ID
-                    R("FULL_PATH") = DOC_PATH
+                    R("FULL_PATH") = CURRENT_DOC_PATH
                    R("DOC_GUID") = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID")
                    NewDatatable.Rows.Add(R)
                Next
@@ -3045,7 +3007,6 @@ Public Class frmMain
    End Sub

    Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridViewWFItems.SubstituteFilter
-        GridLayout_Changed("GridViewWFItems_SubstituteFilter")
-        RowCount
+
    End Sub
 End Class
--- a/app/DD_PM_WINDREAM/frmValidator.resx
+++ b/app/DD_PM_WINDREAM/frmValidator.resx
@@ -131,31 +131,6 @@
  <data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
    <value>0, 0</value>
  </data>
-  <data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Left, Right</value>
-  </data>
-  <data name="TITLELabel1.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI Symbol, 12pt, style=Bold</value>
-  </data>
-  <data name="TITLELabel1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 4</value>
-  </data>
-  <data name="TITLELabel1.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms">
-    <value>No</value>
-  </data>
-  <data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>433, 29</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="TITLELabel1.Text" xml:space="preserve">
-    <value>Label1</value>
-  </data>
-  <data name="TITLELabel1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
  <data name="&gt;&gt;TITLELabel1.Name" xml:space="preserve">
    <value>TITLELabel1</value>
  </data>
@@ -168,30 +143,6 @@
  <data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve">
    <value>0</value>
  </data>
-  <data name="btnSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Left, Right</value>
-  </data>
-  <data name="btnSave.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Tahoma, 9.75pt</value>
-  </data>
-  <data name="btnSave.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btnSave.Location" type="System.Drawing.Point, System.Drawing">
-    <value>7, 454</value>
-  </data>
-  <data name="btnSave.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>3, 4, 3, 4</value>
-  </data>
-  <data name="btnSave.Size" type="System.Drawing.Size, System.Drawing">
-    <value>445, 50</value>
-  </data>
-  <data name="btnSave.TabIndex" type="System.Int32, mscorlib">
-    <value>11</value>
-  </data>
-  <data name="btnSave.Text" xml:space="preserve">
-    <value>Validierung speichern  - Nächstes  Dokument</value>
-  </data>
  <data name="&gt;&gt;btnSave.Name" xml:space="preserve">
    <value>btnSave</value>
  </data>
@@ -204,21 +155,6 @@
  <data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve">
    <value>1</value>
  </data>
-  <data name="DESCRIPTIONLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Left, Right</value>
-  </data>
-  <data name="DESCRIPTIONLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>5, 33</value>
-  </data>
-  <data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>447, 48</value>
-  </data>
-  <data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="DESCRIPTIONLabel.Text" xml:space="preserve">
-    <value>Label3</value>
-  </data>
  <data name="&gt;&gt;DESCRIPTIONLabel.Name" xml:space="preserve">
    <value>DESCRIPTIONLabel</value>
  </data>
@@ -231,24 +167,6 @@
  <data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve">
    <value>2</value>
  </data>
-  <data name="PanelValidatorControl.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Bottom, Left, Right</value>
-  </data>
-  <data name="PanelValidatorControl.AutoScroll" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="PanelValidatorControl.Location" type="System.Drawing.Point, System.Drawing">
-    <value>8, 85</value>
-  </data>
-  <data name="PanelValidatorControl.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>3, 4, 3, 4</value>
-  </data>
-  <data name="PanelValidatorControl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>444, 361</value>
-  </data>
-  <data name="PanelValidatorControl.TabIndex" type="System.Int32, mscorlib">
-    <value>18</value>
-  </data>
  <data name="&gt;&gt;PanelValidatorControl.Name" xml:space="preserve">
    <value>PanelValidatorControl</value>
  </data>
@@ -273,6 +191,7 @@
  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
    <value>455, 511</value>
  </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
    <value>24</value>
  </data>
@@ -441,6 +360,135 @@
  <data name="&gt;&gt;SplitContainer2_DV_Chat.ZOrder" xml:space="preserve">
    <value>0</value>
  </data>
+  <data name="TITLELabel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Left, Right</value>
+  </data>
+  <data name="TITLELabel1.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI Symbol, 12pt, style=Bold</value>
+  </data>
+  <data name="TITLELabel1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>3, 4</value>
+  </data>
+  <data name="TITLELabel1.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms">
+    <value>No</value>
+  </data>
+  <data name="TITLELabel1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>433, 29</value>
+  </data>
+  <data name="TITLELabel1.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="TITLELabel1.Text" xml:space="preserve">
+    <value>Label1</value>
+  </data>
+  <data name="TITLELabel1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="&gt;&gt;TITLELabel1.Name" xml:space="preserve">
+    <value>TITLELabel1</value>
+  </data>
+  <data name="&gt;&gt;TITLELabel1.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;TITLELabel1.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;TITLELabel1.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="btnSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Bottom, Left, Right</value>
+  </data>
+  <data name="btnSave.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Tahoma, 9.75pt</value>
+  </data>
+  <data name="btnSave.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="btnSave.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 454</value>
+  </data>
+  <data name="btnSave.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>3, 4, 3, 4</value>
+  </data>
+  <data name="btnSave.Size" type="System.Drawing.Size, System.Drawing">
+    <value>445, 50</value>
+  </data>
+  <data name="btnSave.TabIndex" type="System.Int32, mscorlib">
+    <value>11</value>
+  </data>
+  <data name="btnSave.Text" xml:space="preserve">
+    <value>Validierung speichern  - Nächstes  Dokument</value>
+  </data>
+  <data name="&gt;&gt;btnSave.Name" xml:space="preserve">
+    <value>btnSave</value>
+  </data>
+  <data name="&gt;&gt;btnSave.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;btnSave.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;btnSave.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="DESCRIPTIONLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Left, Right</value>
+  </data>
+  <data name="DESCRIPTIONLabel.Location" type="System.Drawing.Point, System.Drawing">
+    <value>5, 33</value>
+  </data>
+  <data name="DESCRIPTIONLabel.Size" type="System.Drawing.Size, System.Drawing">
+    <value>447, 48</value>
+  </data>
+  <data name="DESCRIPTIONLabel.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="DESCRIPTIONLabel.Text" xml:space="preserve">
+    <value>Label3</value>
+  </data>
+  <data name="&gt;&gt;DESCRIPTIONLabel.Name" xml:space="preserve">
+    <value>DESCRIPTIONLabel</value>
+  </data>
+  <data name="&gt;&gt;DESCRIPTIONLabel.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;DESCRIPTIONLabel.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;DESCRIPTIONLabel.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="PanelValidatorControl.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Bottom, Left, Right</value>
+  </data>
+  <data name="PanelValidatorControl.AutoScroll" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="PanelValidatorControl.Location" type="System.Drawing.Point, System.Drawing">
+    <value>8, 85</value>
+  </data>
+  <data name="PanelValidatorControl.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>3, 4, 3, 4</value>
+  </data>
+  <data name="PanelValidatorControl.Size" type="System.Drawing.Size, System.Drawing">
+    <value>444, 361</value>
+  </data>
+  <data name="PanelValidatorControl.TabIndex" type="System.Int32, mscorlib">
+    <value>18</value>
+  </data>
+  <data name="&gt;&gt;PanelValidatorControl.Name" xml:space="preserve">
+    <value>PanelValidatorControl</value>
+  </data>
+  <data name="&gt;&gt;PanelValidatorControl.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;PanelValidatorControl.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;PanelValidatorControl.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
  <metadata name="BarAndDockingController3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
@@ -1029,43 +1077,9 @@
  <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
    <value>0, 0</value>
  </data>
-  <data name="RibbonPageGroupConv1.Text" xml:space="preserve">
-    <value>Aktionen</value>
-  </data>
-  <data name="RibbonPageGroupConv_Change.Text" xml:space="preserve">
-    <value>Beendete Konversationen</value>
-  </data>
-  <data name="RibbonPage3.Text" xml:space="preserve">
-    <value>Funktionen</value>
-  </data>
  <data name="RibbonPageConversations.Text" xml:space="preserve">
    <value>Konversationen</value>
  </data>
-  <data name="RibbonPageFile.Text" xml:space="preserve">
-    <value>Datei</value>
-  </data>
-  <data name="RibbonPageGroup3.Text" xml:space="preserve">
-    <value>Aktionen</value>
-  </data>
-  <data name="RibbonPageGroupCustom.Text" xml:space="preserve">
-    <value>Anhänge zu Beleg</value>
-  </data>
-  <data name="RibbonPageGroup2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF
-        l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw
-        DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ
-        k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3
-        XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR
-        Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng
-        kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg
-        gg==
-</value>
-  </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>Information</value>
-  </data>
  <data name="RibbonPage1.Text" xml:space="preserve">
    <value>Start</value>
  </data>
@@ -1993,6 +2007,39 @@
  <data name="PdfExactZoomListBarSubItem2.Caption" xml:space="preserve">
    <value>Zoom</value>
  </data>
+  <data name="PdfExactZoomListBarSubItem2.SuperTip" type="DevExpress.Utils.SuperToolTip, DevExpress.Utils.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu
+        NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE
+        ZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi
+        bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s
+        VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw
+        BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh
+        bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz
+        LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl
+        bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl
+        c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF
+        eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA
+        Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs
+        dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz
+        cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z
+        CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl
+        c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl
+        c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA
+        AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN
+        QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs
+        b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT
+        eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp
+        b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg
+        Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ
+        dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k
+        ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl
+        c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E
+        cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz
+        LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO
+        AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL
+</value>
+  </data>
  <data name="PdfZoom10CheckItem2.Caption" xml:space="preserve">
    <value>10%</value>
  </data>
@@ -2035,39 +2082,6 @@
  <data name="PdfSetFitVisibleZoomModeCheckItem2.Caption" xml:space="preserve">
    <value>sichtbare einpassen</value>
  </data>
-  <data name="PdfExactZoomListBarSubItem2.SuperTip" type="DevExpress.Utils.SuperToolTip, DevExpress.Utils.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu
-        NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE
-        ZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi
-        bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s
-        VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw
-        BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh
-        bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz
-        LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl
-        bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl
-        c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF
-        eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA
-        Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs
-        dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz
-        cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z
-        CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl
-        c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl
-        c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA
-        AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN
-        QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs
-        b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT
-        eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp
-        b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg
-        Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ
-        dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k
-        ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl
-        c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E
-        cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz
-        LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO
-        AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL
-</value>
-  </data>
  <data name="BarButtonItem1.Caption" xml:space="preserve">
    <value>BarButtonItem1</value>
  </data>
@@ -2080,6 +2094,40 @@
  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1029, 17</value>
  </metadata>
+  <data name="RibbonPage3.Text" xml:space="preserve">
+    <value>Funktionen</value>
+  </data>
+  <data name="RibbonPageGroupConv1.Text" xml:space="preserve">
+    <value>Aktionen</value>
+  </data>
+  <data name="RibbonPageGroupConv_Change.Text" xml:space="preserve">
+    <value>Beendete Konversationen</value>
+  </data>
+  <data name="RibbonPageFile.Text" xml:space="preserve">
+    <value>Datei</value>
+  </data>
+  <data name="RibbonPageGroup3.Text" xml:space="preserve">
+    <value>Aktionen</value>
+  </data>
+  <data name="RibbonPageGroupCustom.Text" xml:space="preserve">
+    <value>Anhänge zu Beleg</value>
+  </data>
+  <data name="RibbonPageGroup2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF
+        l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw
+        DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ
+        k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3
+        XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR
+        Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng
+        kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg
+        gg==
+</value>
+  </data>
+  <data name="RibbonPageGroup2.Text" xml:space="preserve">
+    <value>Information</value>
+  </data>
  <data name="RibbonPage2.Text" xml:space="preserve">
    <value>RibbonPage2</value>
  </data>
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -8,6 +8,7 @@ Imports DigitalData.Controls.LookupGrid
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DigitalData.Modules.Language.Utils
+Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
 Imports DigitalData.Modules.EDMI.API.Constants
 Imports DevExpress.XtraBars
@@ -15,6 +16,7 @@ Imports DigitalData.GUIs.Common.DocumentResultList
 Imports DigitalData.Modules.ZooFlow
 Imports DigitalData.Modules.ZooFlow.Constants
 Imports DigitalData.GUIs.Common
+Imports DevExpress.XtraGrid.Columns

 Public Class frmValidator
    Private Property Current_Document As DocumentResultList.Document = Nothing
@@ -509,8 +511,8 @@ Public Class frmValidator
        End Try
    End Sub
    Sub Reset_CurrentReferences()
-        LOGGER.Info("Attention: Reset_CurrentReferences....")
-
+        CURRENT_DOC_ID = 0
+        CURRENT_DOC_GUID = 0
        If Not IsNothing(DT_AdditionalSearches_Resultset_Docs) Then
            DT_AdditionalSearches_Resultset_Docs.Clear()
        End If
@@ -2340,40 +2342,28 @@ Public Class frmValidator
        Try
            LOGGER.Debug("Get_Next_GUID...")
            Dim oNewGUID As Integer
+
+            LOGGER.Debug("Old Document_Path: " & OLD_Document_Path)
            Dim oBIT As Integer = 0
            If PROFIL_sortbynewest = True Then
                oBIT = 1
            End If
            Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}"
+            'Dim oSQL = $"SELECT * from [dbo].[FNPM_GET_NEXT_DOC_INFO] ({CURRENT_ProfilGUID},{oBIT},{CURRENT_DOC_GUID},'{USER_USERNAME}')"

            Dim oDT As DataTable = DatabaseFallback.GetDatatableECM(oSQL)
-            CURRENT_DOC_ID = 0
-            CURRENT_DOC_GUID = 0
            If oDT.Rows.Count > 0 Then
-                Try
-                    oNewGUID = oDT.Rows(0).Item(0)
-                Catch ex As Exception
-                    LOGGER.Warn($">> Attention: in GetNextGUID - Could not get the next GUID - SQL [{oSQL}]")
-                    LOGGER.Warn($"ERRORMESSAGE [{ex.Message}]")
-                End Try
-
-                Try
-                    CURRENT_DOC_ID = oDT.Rows(0).Item(1)
-                    LOGGER.Debug($"Get_Next_GUID: CURRENT_DOC_ID [{CURRENT_DOC_ID}]...")
-                Catch ex As Exception
-                    LOGGER.Warn($">> Attention: in GetNextGUID - Could not get the next DocID - SQL [{oSQL}]")
-                    LOGGER.Warn($"ERRORMESSAGE [{ex.Message}]")
-                End Try
-
+                oNewGUID = oDT.Rows(0).Item(0)
+                CURRENT_DOC_ID = oDT.Rows(0).Item(1)
                Try
                    Amount_Docs2Validate = oDT.Rows(0).Item(2)
-                    LOGGER.Debug($"Get_Next_GUID: Amount_Docs2Validate [{Amount_Docs2Validate}]...")
                Catch ex As Exception
                    Amount_Docs2Validate = 0
                    LOGGER.Warn("Amount_Docs2Validate Error: " & ex.Message)
                End Try
+
            Else
-                LOGGER.Info($">> Attention: GetNextGUID - Could not get the next GUID - SQL [{oSQL}]")
+                LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(1)")
                oNewGUID = 0
                Return oNewGUID
            End If
@@ -2560,12 +2550,7 @@ Public Class frmValidator
                If USER_LANGUAGE <> "de-DE" Then
                    omsg = $"Remaining documents: {omsg}"
                End If
-                If Amount_Docs2Validate > 0 Then
-                    bsiInformation.Caption = omsg
-                Else
-                    bsiInformation.Caption = "Could not get the amount of remaining docs!"
-                End If
-
+                bsiInformation.Caption = omsg
                bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID

                LOGGER.Debug("AllDocInfo created...")
@@ -3789,7 +3774,7 @@ Public Class frmValidator

        LOGGER.Debug("frmValidation_Shown finished!")
    End Sub
-    Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        btnSave.Enabled = False

        ' TODO: Use when working on Validation
@@ -3817,7 +3802,7 @@ Public Class frmValidator
                Continue For
            End If

-            If oView.UpdateCurrentRow() = False Then
+            If DoCellValidation(oView) = False Then
                oValidation = False
            End If

@@ -3831,6 +3816,28 @@ Public Class frmValidator
        Return True
    End Function

+    Private Function DoCellValidation(pView As GridView) As Boolean
+        For i As Integer = 0 To pView.DataRowCount - 1
+            Dim oRowHandle = i
+
+            pView.FocusedRowHandle = oRowHandle
+
+            For Each oColumn As GridColumn In pView.Columns
+                pView.FocusedColumn = oColumn
+
+                If pView.PostEditor() = True Then
+                    If pView.UpdateCurrentRow() = False Then
+                        Return False
+                    End If
+                Else
+                    Return False
+                End If
+            Next
+        Next
+
+        Return True
+    End Function
+
    Private Function btnFinish_continue()
        Try
            Dim oSQL = PROFIL_FINISH_SQL
@@ -5091,130 +5098,147 @@ Public Class frmValidator
                                End Try

                            Case "DevExpress.XtraGrid.GridControl"
-                                Try
-                                    Dim dgv As GridControl = oControl
+                                Dim oGrid As GridControl = oControl
+                                Dim oSettings = New ControlSettings() With {
+                                    .IndexName = oIndexName,
+                                    .ControlType = Type,
+                                    .Name = oControlName,
+                                    .IsRequired = oIsRequired,
+                                    .IDBAttributeType = oIDBTyp
+                                }
+                                Dim oGridColumnDefinition As DataTable = DT_COLUMNS_GRID.Clone()
+                                Dim oExpression = $"CONTROL_ID = {oControlRow.Item("GUID")}"
+                                DT_COLUMNS_GRID.Select(oExpression, "SEQUENCE").CopyToDataTable(oGridColumnDefinition, LoadOption.PreserveChanges)

-                                    Dim oRowCount As Integer = dgv.DataSource.Rows.Count
+                                Dim oResult = ValidateGridControl(oGrid, oSettings, oGridColumnDefinition, oMissing, oErrMsgMissingInput)
+                                If oResult = False Then
+                                    Exit For
+                                End If

-                                    LOGGER.Debug("Grid Row Count: [{0}]", oRowCount)
+                                'Try
+                                '    Dim dgv As GridControl = oControl

-                                    'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
-                                    If oIsRequired = True And oRowCount = 0 Then
-                                        oMissing = True
-                                        oErrMsgMissingInput = "Fehlende Eingabe in Tabelle '" & dgv.Name & "'"
-                                        oControl.BackColor = Color.Red
-                                        LOGGER.Warn(oErrMsgMissingInput)
-                                        Exit For
+                                '    Dim oRowCount As Integer = dgv.DataSource.Rows.Count
+
+                                '    LOGGER.Debug("Grid Row Count: [{0}]", oRowCount)
+
+                                '    'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
+                                '    If oIsRequired = True And oRowCount = 0 Then
+                                '        oMissing = True
+                                '        oErrMsgMissingInput = "Fehlende Eingabe in Tabelle '" & dgv.Name & "'"
+                                '        oControl.BackColor = Color.Red
+                                '        LOGGER.Warn(oErrMsgMissingInput)
+                                '        Exit For


-                                    ElseIf oRowCount > 0 Then
-                                        Dim ZeilenGrid As Integer = 0
-                                        Dim myVektorArr As String()
-                                        'Jeden Werte des Datagridviews durchlaufen
-                                        For Each row As DataRow In dgv.DataSource.Rows
-                                            Dim exists = False
-                                            Select Case oControlType
-                                                Case "TABLE"
-                                                    Dim oRowValue = row.Item(0)
-                                                    If IsNothing(oRowValue) Then
-                                                        oRowValue = String.Empty
-                                                    ElseIf IsDBNull(oRowValue) Then
-                                                        oRowValue = String.Empty
-                                                    End If
-                                                    ' MsgBox(row.Cells(0).Value.GetType.ToString)
-                                                    Dim str As String = String.Empty
-                                                    'If oRowValue <> String.Empty Then
-                                                    'Das Array anpassen
-                                                    ReDim Preserve myVektorArr(ZeilenGrid)
+                                '    ElseIf oRowCount > 0 Then
+                                '        Dim ZeilenGrid As Integer = 0
+                                '        Dim myVektorArr As String()
+                                '        'Jeden Werte des Datagridviews durchlaufen
+                                '        For Each oRow As DataRow In dgv.DataSource.Rows
+                                '            Dim exists = False
+                                '            Select Case oControlType
+                                '                Case "TABLE"
+                                '                    Dim oRowValue = oRow.Item(0)
+                                '                    If IsNothing(oRowValue) Then
+                                '                        oRowValue = String.Empty
+                                '                    ElseIf IsDBNull(oRowValue) Then
+                                '                        oRowValue = String.Empty
+                                '                    End If
+                                '                    ' MsgBox(row.Cells(0).Value.GetType.ToString)
+                                '                    Dim str As String = String.Empty
+                                '                    'If oRowValue <> String.Empty Then
+                                '                    'Das Array anpassen
+                                '                    ReDim Preserve myVektorArr(ZeilenGrid)

-                                                    Dim oValueList As New List(Of String)
+                                '                    Dim oValueList As New List(Of String)

-                                                    For Each item In row.ItemArray
-                                                        item = NotNull(item, String.Empty)
-                                                        If TypeOf item IsNot String Then item.ToString()
-                                                        oValueList.Add(item)
-                                                    Next
+                                '                    For Each item In oRow.ItemArray
+                                '                        item = NotNull(item, String.Empty)
+                                '                        If TypeOf item IsNot String Then item.ToString()
+                                '                        oValueList.Add(item)
+                                '                    Next

-                                                    str = String.Join(PMDelimiter, oValueList.ToArray)
+                                '                    str = String.Join(PMDelimiter, oValueList.ToArray)

-                                                    ' 22.10.2021 Attempt at fixing empty lines appearing in indexes
-                                                    LOGGER.Debug("Grid Value before saving: [{0}]", str)
-                                                    If str.Trim.Length = 0 Or str.Trim.Replace(PMDelimiter, "").Length = 0 Then
-                                                        LOGGER.Debug("Empty line in Grid [{0}]. Skipping.", oControlName)
-                                                        Continue For
-                                                    End If
+                                '                    ' 22.10.2021 Attempt at fixing empty lines appearing in indexes
+                                '                    LOGGER.Debug("Grid Value before saving: [{0}]", str)
+                                '                    If str.Trim.Length = 0 Or str.Trim.Replace(PMDelimiter, "").Length = 0 Then
+                                '                        LOGGER.Debug("Empty line in Grid [{0}]. Skipping.", oControlName)
+                                '                        Continue For
+                                '                    End If

-                                                    'Den Wert im Array speichern
-                                                    myVektorArr(ZeilenGrid) = str
-                                                    ZeilenGrid += 1
-                                                    'End If
-                                                Case Else
-                                                    ' MsgBox(row.Cells(0).Value.GetType.ToString)
-                                                    If row.Item(0) Is Nothing = False Then
-                                                        'Das Array anpassen
-                                                        ReDim Preserve myVektorArr(ZeilenGrid)
-                                                        'Den Wert im Array speichern
-                                                        myVektorArr(ZeilenGrid) = row.Item(0).Value.ToString
-                                                        ZeilenGrid += 1
-                                                    End If
-                                            End Select
+                                '                    'Den Wert im Array speichern
+                                '                    myVektorArr(ZeilenGrid) = str
+                                '                    ZeilenGrid += 1
+                                '                    'End If
+                                '                Case Else
+                                '                    ' MsgBox(row.Cells(0).Value.GetType.ToString)
+                                '                    If oRow.Item(0) Is Nothing = False Then
+                                '                        'Das Array anpassen
+                                '                        ReDim Preserve myVektorArr(ZeilenGrid)
+                                '                        'Den Wert im Array speichern
+                                '                        myVektorArr(ZeilenGrid) = oRow.Item(0).Value.ToString
+                                '                        ZeilenGrid += 1
+                                '                    End If
+                                '            End Select

-                                        Next
+                                '        Next


-                                        If IDB_ACTIVE = False Then
-                                            If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then
-                                                oMissing = True
-                                                oErrMsgMissingInput = $"Error while indexing table (1) {dgv.Name} - ERROR: " & idxerr_message
-                                                LOGGER.Warn(oErrMsgMissingInput)
-                                                Exit For
-                                            End If
-                                        Else
-                                            Dim oMyDT = DT_FOR_ARRAY(myVektorArr)
-                                            If oMyDT.Rows.Count > 0 Then
-                                                If IDBData.SetVariableValue(oIndexName, oMyDT, True, oIDBTyp) = False Then
-                                                    oMissing = True
-                                                    oErrMsgMissingInput = $"Error while indexing table IDB (1) {dgv.Name} - ERROR: " & idxerr_message
-                                                    LOGGER.Warn(oErrMsgMissingInput)
-                                                    Exit For
-                                                End If
-                                            End If
-                                        End If
+                                '        If IDB_ACTIVE = False Then
+                                '            If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then
+                                '                oMissing = True
+                                '                oErrMsgMissingInput = $"Error while indexing table (1) {dgv.Name} - ERROR: " & idxerr_message
+                                '                LOGGER.Warn(oErrMsgMissingInput)
+                                '                Exit For
+                                '            End If
+                                '        Else
+                                '            Dim oMyDT = DT_FOR_ARRAY(myVektorArr)
+                                '            If oMyDT.Rows.Count > 0 Then
+                                '                If IDBData.SetVariableValue(oIndexName, oMyDT, True, oIDBTyp) = False Then
+                                '                    oMissing = True
+                                '                    oErrMsgMissingInput = $"Error while indexing table IDB (1) {dgv.Name} - ERROR: " & idxerr_message
+                                '                    LOGGER.Warn(oErrMsgMissingInput)
+                                '                    Exit For
+                                '                End If
+                                '            End If
+                                '        End If


-                                    Else
-                                        LOGGER.Debug("Required = False And RowCount > 0")
+                                '    Else
+                                '        LOGGER.Debug("Required = False And RowCount > 0")

-                                        Dim oValue As New List(Of Object) From {String.Empty}
+                                '        Dim oValue As New List(Of Object) From {String.Empty}

-                                        If IDB_ACTIVE = False Then
-                                            If Indexiere_File(CURRENT_WMFILE, oIndexName, oValue.ToArray) = False Then
-                                                oMissing = True
-                                                'oErrorMessage = "Error while indexing der Tabelle - ERROR: " & idxerr_message
-                                                oErrMsgMissingInput = $"Error while indexing table (2) {dgv.Name} - ERROR: " & idxerr_message
-                                                LOGGER.Warn(oErrMsgMissingInput)
-                                                Exit For
-                                            End If
-                                        Else
-                                            Dim oOldAttributeResult = IDBData.GetVariableValue(oIndexName, oIDBTyp)
-                                            Dim oTypeOldResult = oOldAttributeResult.GetType.ToString
-                                            If oTypeOldResult = "System.Data.DataTable" Then
-                                                Dim oDT As DataTable = IDBData.GetVariableValue(oIndexName, oIDBTyp)
-                                                If oDT.Rows.Count > 0 Then
-                                                    LOGGER.Debug("User cleared the grid, so data needs to be erased!")
-                                                    IDBData.Delete_AttributeData(CURRENT_DOC_ID, oIndexName)
-                                                End If
-                                            Else
-                                                LOGGER.Debug("(String) User cleared the grid, so data needs to be erased!")
-                                                IDBData.Delete_AttributeData(CURRENT_DOC_ID, oIndexName)
-                                            End If
+                                '        If IDB_ACTIVE = False Then
+                                '            If Indexiere_File(CURRENT_WMFILE, oIndexName, oValue.ToArray) = False Then
+                                '                oMissing = True
+                                '                'oErrorMessage = "Error while indexing der Tabelle - ERROR: " & idxerr_message
+                                '                oErrMsgMissingInput = $"Error while indexing table (2) {dgv.Name} - ERROR: " & idxerr_message
+                                '                LOGGER.Warn(oErrMsgMissingInput)
+                                '                Exit For
+                                '            End If
+                                '        Else
+                                '            Dim oOldAttributeResult = IDBData.GetVariableValue(oIndexName, oIDBTyp)
+                                '            Dim oTypeOldResult = oOldAttributeResult.GetType.ToString
+                                '            If oTypeOldResult = "System.Data.DataTable" Then
+                                '                Dim oDT As DataTable = IDBData.GetVariableValue(oIndexName, oIDBTyp)
+                                '                If oDT.Rows.Count > 0 Then
+                                '                    LOGGER.Debug("User cleared the grid, so data needs to be erased!")
+                                '                    IDBData.Delete_AttributeData(CURRENT_DOC_ID, oIndexName)
+                                '                End If
+                                '            Else
+                                '                LOGGER.Debug("(String) User cleared the grid, so data needs to be erased!")
+                                '                IDBData.Delete_AttributeData(CURRENT_DOC_ID, oIndexName)
+                                '            End If

-                                        End If
+                                '        End If

-                                    End If
-                                Catch ex As Exception
-                                    LOGGER.Error(ex)
-                                End Try
+                                '    End If
+                                'Catch ex As Exception
+                                '    LOGGER.Error(ex)
+                                'End Try
                        End Select
                    End If  'End If für Control und ReadOnly = False
                Next
@@ -5243,6 +5267,184 @@ Public Class frmValidator
        End Try

    End Function
+
+    Private Class ControlSettings
+        Public Name As String
+        Public IsRequired As Boolean
+        Public IndexName As String
+        Public ControlType As String
+        Public IDBAttributeType As Integer
+    End Class
+
+    Private Function ValidateGridControl(pGrid As GridControl, pSettings As ControlSettings, pColumnDefinition As DataTable, ByRef pMissing As Boolean, ByRef pMissingMessage As String) As Boolean
+        Try
+            Dim oRowCount As Integer = pGrid.DataSource.Rows.Count
+
+            LOGGER.Debug("Grid Row Count: [{0}]", oRowCount)
+
+            'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
+            If pSettings.IsRequired = True And oRowCount = 0 Then
+                pMissing = True
+                pMissingMessage = "Fehlende Eingabe in Tabelle '" & pGrid.Name & "'"
+                pGrid.BackColor = Color.Red
+                LOGGER.Warn(pMissingMessage)
+
+                'Exit For
+                Return False
+
+            End If
+
+            If oRowCount > 0 Then
+
+                Dim oView As GridView = pGrid.FocusedView
+                Dim oDatasource As DataTable = pGrid.DataSource
+                Dim oRowIndex As Integer = 0
+
+                For Each oRow As DataRow In oDatasource.Rows
+                    For Each oColumn As DataColumn In oRow.Table.Columns
+
+                        Dim oValue = oRow.ItemEx(oColumn.ColumnName, "")
+                        Dim oDefinition = pColumnDefinition.AsEnumerable().
+                            Where(Function(row) row.Item("SPALTENNAME") = oColumn.ColumnName).
+                            FirstOrDefault()
+
+                        If oDefinition IsNot Nothing Then
+                            Dim oIsRequired = oDefinition.Item("VALIDATION")
+
+                            If oIsRequired = True And oValue = String.Empty Then
+
+                                ' Translates the visible row index into the internal rowhandle
+                                ' they might be different because of sorting
+                                Dim oRowHandle = oView.GetRowHandle(oRowIndex)
+
+                                oView.FocusedRowHandle = oRowHandle
+                                oView.FocusedColumn = oView.Columns.Item(oColumn.ColumnName)
+
+                                pMissing = True
+                                pMissingMessage = $"Fehlende Eingabe in Tabelle '{pGrid.Name}' in Spalte '{oDefinition.Item("SPALTEN_HEADER")}', Zeile '{oRowHandle + 1}'"
+                                Return False
+                            End If
+                        End If
+                    Next
+
+                    oRowIndex += 1
+                Next
+
+                Dim ZeilenGrid As Integer = 0
+                Dim myVektorArr As String()
+                'Jeden Werte des Datagridviews durchlaufen
+                For Each oRow As DataRow In pGrid.DataSource.Rows
+                    Dim exists = False
+                    Select Case pSettings.ControlType
+                        Case "TABLE"
+                            Dim oRowValue = oRow.Item(0)
+                            If IsNothing(oRowValue) Then
+                                oRowValue = String.Empty
+                            ElseIf IsDBNull(oRowValue) Then
+                                oRowValue = String.Empty
+                            End If
+                            ' MsgBox(row.Cells(0).Value.GetType.ToString)
+                            Dim str As String = String.Empty
+                            'If oRowValue <> String.Empty Then
+                            'Das Array anpassen
+                            ReDim Preserve myVektorArr(ZeilenGrid)
+
+                            Dim oValueList As New List(Of String)
+
+                            For Each item In oRow.ItemArray
+                                item = NotNull(item, String.Empty)
+                                If TypeOf item IsNot String Then item.ToString()
+                                oValueList.Add(item)
+                            Next
+
+                            str = String.Join(PMDelimiter, oValueList.ToArray)
+
+                            ' 22.10.2021 Attempt at fixing empty lines appearing in indexes
+                            LOGGER.Debug("Grid Value before saving: [{0}]", str)
+                            If str.Trim.Length = 0 Or str.Trim.Replace(PMDelimiter, "").Length = 0 Then
+                                LOGGER.Debug("Empty line in Grid [{0}]. Skipping.", pSettings.Name)
+                                Continue For
+                            End If
+
+                            'Den Wert im Array speichern
+                            myVektorArr(ZeilenGrid) = str
+                            ZeilenGrid += 1
+                            'End If
+                        Case Else
+                            ' MsgBox(row.Cells(0).Value.GetType.ToString)
+                            If oRow.Item(0) Is Nothing = False Then
+                                'Das Array anpassen
+                                ReDim Preserve myVektorArr(ZeilenGrid)
+                                'Den Wert im Array speichern
+                                myVektorArr(ZeilenGrid) = oRow.Item(0).Value.ToString
+                                ZeilenGrid += 1
+                            End If
+                    End Select
+
+                Next
+
+
+                If IDB_ACTIVE = False Then
+                    If Indexiere_File(CURRENT_WMFILE, pSettings.IndexName, myVektorArr) = False Then
+                        pMissing = True
+                        pMissingMessage = $"Error while indexing table (1) {pGrid.Name} - ERROR: " & idxerr_message
+                        LOGGER.Warn(pMissingMessage)
+                        'Exit For
+                        Return False
+                    End If
+                Else
+                    Dim oMyDT = DT_FOR_ARRAY(myVektorArr)
+                    If oMyDT.Rows.Count > 0 Then
+                        If IDBData.SetVariableValue(pSettings.IndexName, oMyDT, True, pSettings.IDBAttributeType) = False Then
+                            pMissing = True
+                            pMissingMessage = $"Error while indexing table IDB (1) {pGrid.Name} - ERROR: " & idxerr_message
+                            LOGGER.Warn(pMissingMessage)
+                            'Exit For
+                            Return False
+                        End If
+                    End If
+                End If
+
+
+            Else ' Row Count = 0
+
+                Dim oValue As New List(Of Object) From {String.Empty}
+
+                If IDB_ACTIVE = False Then
+                    If Indexiere_File(CURRENT_WMFILE, pSettings.IndexName, oValue.ToArray) = False Then
+                        pMissing = True
+                        'oErrorMessage = "Error while indexing der Tabelle - ERROR: " & idxerr_message
+                        pMissingMessage = $"Error while indexing table (2) {pGrid.Name} - ERROR: " & idxerr_message
+                        LOGGER.Warn(pMissingMessage)
+                        'Exit For
+                        Return False
+                    End If
+                Else
+                    Dim oOldAttributeResult = IDBData.GetVariableValue(pSettings.IndexName, pSettings.IDBAttributeType)
+                    Dim oTypeOldResult = oOldAttributeResult.GetType.ToString
+                    If oTypeOldResult = "System.Data.DataTable" Then
+                        Dim oDT As DataTable = IDBData.GetVariableValue(pSettings.IndexName, pSettings.IDBAttributeType)
+                        If oDT.Rows.Count > 0 Then
+                            LOGGER.Debug("User cleared the grid, so data needs to be erased!")
+                            IDBData.Delete_AttributeData(CURRENT_DOC_ID, pSettings.IndexName)
+                        End If
+                    Else
+                        LOGGER.Debug("(String) User cleared the grid, so data needs to be erased!")
+                        IDBData.Delete_AttributeData(CURRENT_DOC_ID, pSettings.IndexName)
+                    End If
+
+                End If
+
+            End If
+
+            Return True
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+
    Private Function Indexiere_File(_dok As WINDREAMLib.WMObject, pIndexName As String, pIndexValues As Object) As Boolean
        Dim File_indexiert As Boolean = False
        idxerr_message = ""
@@ -5329,11 +5531,13 @@ Public Class frmValidator
    End Sub
    Sub Datei_ueberspringen()
        Try
-            LOGGER.Debug("Skipping document....(Datei_ueberspringen)")
+            LOGGER.Debug("Dokument überspringen")
            'Das Dokument freigeben
            Free_File()
+
            Dim oSQL = $"EXECUTE PRPM_FILES_NOT_INDEXED '{USER_USERNAME}',{CURRENT_ProfilGUID},'{WMDocPathWindows}',{CURRENT_DOC_GUID}"
            DatabaseFallback.ExecuteNonQueryECM(oSQL)
+
            LOGGER.Debug($"Skipped DocGUID {CURRENT_DOC_GUID}")
            Load_Next_Document(False)
        Catch ex As Exception
Author	SHA1	Message	Date
Jonathan Jenne	8db3e410d6	Version 2.3.7.4	2022-06-24 13:24:47 +02:00
Jonathan Jenne	eee2c83eea	Rework validation for grids	2022-06-24 13:24:05 +02:00