EDMI: Add CheckInOutFile Method

2022-03-25 16:06:00 +01:00
parent 13e2b6413b
commit 3dc62ae677
20 changed files with 564 additions and 64 deletions
--- a/GUIs.Common/frmDocumentResultList.Designer.vb
+++ b/GUIs.Common/frmDocumentResultList.Designer.vb
@@ -41,7 +41,7 @@ Partial Class frmDocumentResultList
        Me.MenuItemFolderOpen = New DevExpress.XtraBars.BarButtonItem()
        Me.MenuItemFilepathCopy = New DevExpress.XtraBars.BarButtonItem()
        Me.MenuItemFolderpathCopy = New DevExpress.XtraBars.BarButtonItem()
-        Me.MenuItemPropertiesECM = New DevExpress.XtraBars.BarButtonItem()
+        Me.MenuItemProperties = New DevExpress.XtraBars.BarButtonItem()
        Me.MenuItemsOpenFileZooFlow = New DevExpress.XtraBars.BarButtonItem()
        Me.MenuItemPropertiesZooFlow = New DevExpress.XtraBars.BarButtonItem()
        Me.ButtonRefresh = New DevExpress.XtraBars.BarButtonItem()
@@ -51,10 +51,10 @@ Partial Class frmDocumentResultList
        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
        Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
        Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem()
+        Me.MenuItemStartAdhocWorkflow = New DevExpress.XtraBars.BarButtonItem()
+        Me.MenuItemCheckInFile = New DevExpress.XtraBars.BarButtonItem()
+        Me.MenuItemCheckOutFile = New DevExpress.XtraBars.BarButtonItem()
+        Me.MenuItemVersionFile = New DevExpress.XtraBars.BarButtonItem()
        Me.chkGridShowQuickfilter = New DevExpress.XtraBars.BarCheckItem()
        Me.chkGridShowGrouping = New DevExpress.XtraBars.BarCheckItem()
        Me.chkGridShowTitle = New DevExpress.XtraBars.BarCheckItem()
@@ -190,7 +190,7 @@ Partial Class frmDocumentResultList
        'RibbonControl
        '
        Me.RibbonControl.ExpandCollapseItem.Id = 0
-        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonResetLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemPropertiesECM, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.chkGridShowQuickfilter, Me.chkGridShowGrouping, Me.chkGridShowTitle, Me.MenuItemSaveProperties, Me.BarButtonItem11, Me.BarWorkspaceMenuItem1})
+        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonResetLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemProperties, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.MenuItemStartAdhocWorkflow, Me.MenuItemCheckInFile, Me.MenuItemCheckOutFile, Me.MenuItemVersionFile, Me.chkGridShowQuickfilter, Me.chkGridShowGrouping, Me.chkGridShowTitle, Me.MenuItemSaveProperties, Me.BarButtonItem11, Me.BarWorkspaceMenuItem1})
        resources.ApplyResources(Me.RibbonControl, "RibbonControl")
        Me.RibbonControl.MaxItemId = 46
        Me.RibbonControl.Name = "RibbonControl"
@@ -317,12 +317,12 @@ Partial Class frmDocumentResultList
        Me.MenuItemFolderpathCopy.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.open
        Me.MenuItemFolderpathCopy.Name = "MenuItemFolderpathCopy"
        '
-        'MenuItemPropertiesECM
+        'MenuItemProperties
        '
-        resources.ApplyResources(Me.MenuItemPropertiesECM, "MenuItemPropertiesECM")
-        Me.MenuItemPropertiesECM.Id = 26
-        Me.MenuItemPropertiesECM.ImageOptions.SvgImage = CType(resources.GetObject("MenuItemPropertiesECM.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.MenuItemPropertiesECM.Name = "MenuItemPropertiesECM"
+        resources.ApplyResources(Me.MenuItemProperties, "MenuItemProperties")
+        Me.MenuItemProperties.Id = 26
+        Me.MenuItemProperties.ImageOptions.SvgImage = CType(resources.GetObject("MenuItemPropertiesECM.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.MenuItemProperties.Name = "MenuItemProperties"
        '
        'MenuItemsOpenFileZooFlow
        '
@@ -382,33 +382,33 @@ Partial Class frmDocumentResultList
        Me.BarButtonItem6.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.clearpivottable
        Me.BarButtonItem6.Name = "BarButtonItem6"
        '
-        'BarButtonItem7
+        'MenuItemStartAdhocWorkflow
        '
-        resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7")
-        Me.BarButtonItem7.Id = 36
-        Me.BarButtonItem7.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.bo_transition
-        Me.BarButtonItem7.Name = "BarButtonItem7"
+        resources.ApplyResources(Me.MenuItemStartAdhocWorkflow, "MenuItemStartAdhocWorkflow")
+        Me.MenuItemStartAdhocWorkflow.Id = 36
+        Me.MenuItemStartAdhocWorkflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.bo_transition
+        Me.MenuItemStartAdhocWorkflow.Name = "MenuItemStartAdhocWorkflow"
        '
-        'BarButtonItem8
+        'MenuItemCheckInFile
        '
-        resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
-        Me.BarButtonItem8.Id = 37
-        Me.BarButtonItem8.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.security_unlock
-        Me.BarButtonItem8.Name = "BarButtonItem8"
+        resources.ApplyResources(Me.MenuItemCheckInFile, "MenuItemCheckInFile")
+        Me.MenuItemCheckInFile.Id = 37
+        Me.MenuItemCheckInFile.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.security_unlock
+        Me.MenuItemCheckInFile.Name = "MenuItemCheckInFile"
        '
-        'BarButtonItem9
+        'MenuItemCheckOutFile
        '
-        resources.ApplyResources(Me.BarButtonItem9, "BarButtonItem9")
-        Me.BarButtonItem9.Id = 38
-        Me.BarButtonItem9.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources._private
-        Me.BarButtonItem9.Name = "BarButtonItem9"
+        resources.ApplyResources(Me.MenuItemCheckOutFile, "MenuItemCheckOutFile")
+        Me.MenuItemCheckOutFile.Id = 38
+        Me.MenuItemCheckOutFile.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources._private
+        Me.MenuItemCheckOutFile.Name = "MenuItemCheckOutFile"
        '
-        'BarButtonItem10
+        'MenuItemVersionFile
        '
-        resources.ApplyResources(Me.BarButtonItem10, "BarButtonItem10")
-        Me.BarButtonItem10.Id = 39
-        Me.BarButtonItem10.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.enablescrolling
-        Me.BarButtonItem10.Name = "BarButtonItem10"
+        resources.ApplyResources(Me.MenuItemVersionFile, "MenuItemVersionFile")
+        Me.MenuItemVersionFile.Id = 39
+        Me.MenuItemVersionFile.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.enablescrolling
+        Me.MenuItemVersionFile.Name = "MenuItemVersionFile"
        '
        'chkGridShowQuickfilter
        '
@@ -474,7 +474,7 @@ Partial Class frmDocumentResultList
        'RibbonPageGroup3
        '
        Me.RibbonPageGroup3.ItemLinks.Add(Me.MenuItemFileOpen)
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.MenuItemPropertiesECM)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.MenuItemProperties)
        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
        resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
        '
@@ -494,15 +494,15 @@ Partial Class frmDocumentResultList
        '
        'RibbonPageGroup4
        '
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem7)
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.MenuItemStartAdhocWorkflow)
        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
        resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
        '
        'RibbonPageGroup8
        '
-        Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem9)
-        Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem8)
-        Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem10)
+        Me.RibbonPageGroup8.ItemLinks.Add(Me.MenuItemCheckOutFile)
+        Me.RibbonPageGroup8.ItemLinks.Add(Me.MenuItemCheckInFile)
+        Me.RibbonPageGroup8.ItemLinks.Add(Me.MenuItemVersionFile)
        Me.RibbonPageGroup8.Name = "RibbonPageGroup8"
        resources.ApplyResources(Me.RibbonPageGroup8, "RibbonPageGroup8")
        '
@@ -838,7 +838,7 @@ Partial Class frmDocumentResultList
    Friend WithEvents MenuItemFolderOpen As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents MenuItemFilepathCopy As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents MenuItemFolderpathCopy As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents MenuItemPropertiesECM As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents MenuItemProperties As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents MenuItemsOpenFileZooFlow As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents MenuItemPropertiesZooFlow As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents ButtonRefresh As DevExpress.XtraBars.BarButtonItem
@@ -867,10 +867,10 @@ Partial Class frmDocumentResultList
    Friend WithEvents RibbonPageCategoryFile As DevExpress.XtraBars.Ribbon.RibbonPageCategory
    Friend WithEvents RibbonPageActions2 As DevExpress.XtraBars.Ribbon.RibbonPage
    Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents MenuItemStartAdhocWorkflow As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents MenuItemCheckInFile As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents MenuItemCheckOutFile As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents MenuItemVersionFile As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
    Friend WithEvents chkGridShowQuickfilter As DevExpress.XtraBars.BarCheckItem
    Friend WithEvents chkGridShowGrouping As DevExpress.XtraBars.BarCheckItem
--- a/GUIs.Common/frmDocumentResultList.resx
+++ b/GUIs.Common/frmDocumentResultList.resx
@@ -388,7 +388,7 @@
  <data name="MenuItemFolderpathCopy.Caption" xml:space="preserve">
    <value>Ordnerpfad kopieren</value>
  </data>
-  <data name="MenuItemPropertiesECM.Caption" xml:space="preserve">
+  <data name="MenuItemProperties.Caption" xml:space="preserve">
    <value>Eigenschaften</value>
  </data>
  <data name="MenuItemPropertiesECM.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -447,16 +447,16 @@
  <data name="BarButtonItem6.Caption" xml:space="preserve">
    <value>Fenster Layout zurücksetzen</value>
  </data>
-  <data name="BarButtonItem7.Caption" xml:space="preserve">
+  <data name="MenuItemStartAdhocWorkflow.Caption" xml:space="preserve">
    <value>Adhoc Workflow starten</value>
  </data>
-  <data name="BarButtonItem8.Caption" xml:space="preserve">
+  <data name="MenuItemCheckInFile.Caption" xml:space="preserve">
    <value>Einchecken</value>
  </data>
-  <data name="BarButtonItem9.Caption" xml:space="preserve">
+  <data name="MenuItemCheckOutFile.Caption" xml:space="preserve">
    <value>Auschecken</value>
  </data>
-  <data name="BarButtonItem10.Caption" xml:space="preserve">
+  <data name="MenuItemVersionFile.Caption" xml:space="preserve">
    <value>Versionieren</value>
  </data>
  <data name="chkGridShowQuickfilter.Caption" xml:space="preserve">
@@ -861,10 +861,10 @@
  <data name="&gt;&gt;MenuItemFolderpathCopy.Type" xml:space="preserve">
    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
-  <data name="&gt;&gt;MenuItemPropertiesECM.Name" xml:space="preserve">
-    <value>MenuItemPropertiesECM</value>
+  <data name="&gt;&gt;MenuItemProperties.Name" xml:space="preserve">
+    <value>MenuItemProperties</value>
  </data>
-  <data name="&gt;&gt;MenuItemPropertiesECM.Type" xml:space="preserve">
+  <data name="&gt;&gt;MenuItemProperties.Type" xml:space="preserve">
    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
  <data name="&gt;&gt;MenuItemsOpenFileZooFlow.Name" xml:space="preserve">
@@ -921,28 +921,28 @@
  <data name="&gt;&gt;BarButtonItem6.Type" xml:space="preserve">
    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
-  <data name="&gt;&gt;BarButtonItem7.Name" xml:space="preserve">
-    <value>BarButtonItem7</value>
+  <data name="&gt;&gt;MenuItemStartAdhocWorkflow.Name" xml:space="preserve">
+    <value>MenuItemStartAdhocWorkflow</value>
  </data>
-  <data name="&gt;&gt;BarButtonItem7.Type" xml:space="preserve">
+  <data name="&gt;&gt;MenuItemStartAdhocWorkflow.Type" xml:space="preserve">
    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
-  <data name="&gt;&gt;BarButtonItem8.Name" xml:space="preserve">
-    <value>BarButtonItem8</value>
+  <data name="&gt;&gt;MenuItemCheckInFile.Name" xml:space="preserve">
+    <value>MenuItemCheckInFile</value>
  </data>
-  <data name="&gt;&gt;BarButtonItem8.Type" xml:space="preserve">
+  <data name="&gt;&gt;MenuItemCheckInFile.Type" xml:space="preserve">
    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
-  <data name="&gt;&gt;BarButtonItem9.Name" xml:space="preserve">
-    <value>BarButtonItem9</value>
+  <data name="&gt;&gt;MenuItemCheckOutFile.Name" xml:space="preserve">
+    <value>MenuItemCheckOutFile</value>
  </data>
-  <data name="&gt;&gt;BarButtonItem9.Type" xml:space="preserve">
+  <data name="&gt;&gt;MenuItemCheckOutFile.Type" xml:space="preserve">
    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
-  <data name="&gt;&gt;BarButtonItem10.Name" xml:space="preserve">
-    <value>BarButtonItem10</value>
+  <data name="&gt;&gt;MenuItemVersionFile.Name" xml:space="preserve">
+    <value>MenuItemVersionFile</value>
  </data>
-  <data name="&gt;&gt;BarButtonItem10.Type" xml:space="preserve">
+  <data name="&gt;&gt;MenuItemVersionFile.Type" xml:space="preserve">
    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
  <data name="&gt;&gt;chkGridShowQuickfilter.Name" xml:space="preserve">
--- a/GUIs.Common/frmDocumentResultList.vb
+++ b/GUIs.Common/frmDocumentResultList.vb
@@ -803,7 +803,7 @@ Public Class frmDocumentResultList
    End Function

 #Region "File Actions"
-    Private Sub MenuItem_OpenProperties_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemPropertiesECM.ItemClick
+    Private Sub MenuItem_OpenProperties_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemProperties.ItemClick
        If _CurrentDocument Is Nothing Then
            Exit Sub
        End If