Zooflow: CheckInOut
This commit is contained in:
Jonathan Jenne
@@ -118,6 +118,7 @@
|
||||
<Compile Include="DataResultList\frmDataResultList.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DocumentResultList\CheckInOut.vb" />
|
||||
<Compile Include="DocumentResultList\Layout.vb" />
|
||||
<Compile Include="DocumentResultList\Loader.vb" />
|
||||
<Compile Include="DocumentResultList\Config.vb" />
|
||||
|
||||
49
GUIs.Common/DocumentResultList/CheckInOut.vb
Normal file
49
GUIs.Common/DocumentResultList/CheckInOut.vb
Normal file
@@ -0,0 +1,49 @@
|
||||
Imports DigitalData.Modules.Base
|
||||
Imports DigitalData.Modules.EDMI.API
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Namespace DocumentResultList
|
||||
Public Class CheckInOut
|
||||
Inherits BaseClass
|
||||
Private Client As Client
|
||||
|
||||
Public Sub New(pLogConfig As LogConfig, pClient As Client)
|
||||
MyBase.New(pLogConfig)
|
||||
Client = pClient
|
||||
End Sub
|
||||
|
||||
Public Async Function GetCheckoutState(pObjectId As Long) As Task(Of CheckoutState)
|
||||
Try
|
||||
Dim oSQL = $"SELECT * FROM VWOBJECT_CHECKED_OUT WHERE IDB_OBJ_ID = {pObjectId}"
|
||||
Dim oResponse = Await Client.GetDatatableFromIDBAsync(oSQL)
|
||||
|
||||
If oResponse.ok = False Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
If oResponse.Table.Rows.Count = 0 Then
|
||||
Return New CheckoutState()
|
||||
End If
|
||||
|
||||
Dim oRow = oResponse.Table.Rows.Item(0)
|
||||
Dim oState As New CheckoutState With {
|
||||
.IsCheckedOut = True,
|
||||
.CheckedOutWhen = oRow.Item("CHECKED_OUT_WHEN"),
|
||||
.CheckedOutWho = oRow.Item("EMAIL")
|
||||
}
|
||||
|
||||
Return oState
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Class CheckoutState
|
||||
Public Property IsCheckedOut As Boolean = False
|
||||
Public Property CheckedOutWhen As Date = Nothing
|
||||
Public Property CheckedOutWho As String = Nothing
|
||||
End Class
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -1,10 +1,11 @@
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, 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.XtraEditors.ProgressBarControl, 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.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, 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.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
|
||||
@@ -122,7 +122,6 @@ Partial Class ctrlObjectPropertyDialog
|
||||
'XtraTabControl1
|
||||
'
|
||||
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom
|
||||
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 30)
|
||||
Me.XtraTabControl1.Name = "XtraTabControl1"
|
||||
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageObject
|
||||
|
||||
163
GUIs.Common/frmDocumentResultList.Designer.vb
generated
163
GUIs.Common/frmDocumentResultList.Designer.vb
generated
@@ -21,7 +21,7 @@ Partial Class frmDocumentResultList
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocumentResultList))
|
||||
Dim PushTransition1 As DevExpress.Utils.Animation.PushTransition = New DevExpress.Utils.Animation.PushTransition()
|
||||
Dim FadeTransition1 As DevExpress.Utils.Animation.FadeTransition = New DevExpress.Utils.Animation.FadeTransition()
|
||||
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridView1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView()
|
||||
@@ -96,6 +96,17 @@ Partial Class frmDocumentResultList
|
||||
Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components)
|
||||
Me.DockPanelFileList = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer()
|
||||
Me.panelContainer1 = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanelStatus = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.ControlContainer1 = New DevExpress.XtraBars.Docking.ControlContainer()
|
||||
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
|
||||
Me.txtCheckedOutWho = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.dateCheckedOutWhen = New DevExpress.XtraEditors.DateEdit()
|
||||
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
|
||||
Me.DockPanelMetadata = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer()
|
||||
Me.CtrlObjectPropertyDialog = New DigitalData.GUIs.Common.ctrlObjectPropertyDialog()
|
||||
@@ -126,6 +137,19 @@ Partial Class frmDocumentResultList
|
||||
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.DockPanelFileList.SuspendLayout()
|
||||
Me.DockPanel2_Container.SuspendLayout()
|
||||
Me.panelContainer1.SuspendLayout()
|
||||
Me.DockPanelStatus.SuspendLayout()
|
||||
Me.ControlContainer1.SuspendLayout()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.LayoutControl1.SuspendLayout()
|
||||
CType(Me.txtCheckedOutWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dateCheckedOutWhen.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dateCheckedOutWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.DockPanelMetadata.SuspendLayout()
|
||||
Me.DockPanel3_Container.SuspendLayout()
|
||||
Me.DockPanelDocViewer.SuspendLayout()
|
||||
@@ -192,7 +216,7 @@ Partial Class frmDocumentResultList
|
||||
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.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.MaxItemId = 48
|
||||
Me.RibbonControl.Name = "RibbonControl"
|
||||
Me.RibbonControl.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategoryFile, Me.RibbonPageCategoryAttribute})
|
||||
Me.RibbonControl.PageHeaderItemLinks.Add(Me.BarWorkspaceMenuItem1)
|
||||
@@ -321,7 +345,7 @@ Partial Class frmDocumentResultList
|
||||
'
|
||||
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.ImageOptions.SvgImage = CType(resources.GetObject("MenuItemProperties.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.MenuItemProperties.Name = "MenuItemProperties"
|
||||
'
|
||||
'MenuItemsOpenFileZooFlow
|
||||
@@ -455,7 +479,7 @@ Partial Class frmDocumentResultList
|
||||
'WorkspaceManager1
|
||||
'
|
||||
Me.WorkspaceManager1.TargetControl = Me
|
||||
Me.WorkspaceManager1.TransitionType = PushTransition1
|
||||
Me.WorkspaceManager1.TransitionType = FadeTransition1
|
||||
'
|
||||
'RibbonPageCategoryFile
|
||||
'
|
||||
@@ -695,7 +719,7 @@ Partial Class frmDocumentResultList
|
||||
'DockManager1
|
||||
'
|
||||
Me.DockManager1.Form = Me
|
||||
Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanelFileList, Me.DockPanelMetadata, Me.DockPanelDocViewer})
|
||||
Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanelFileList, Me.panelContainer1, Me.DockPanelDocViewer})
|
||||
Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "System.Windows.Forms.StatusBar", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"})
|
||||
'
|
||||
'DockPanelFileList
|
||||
@@ -714,10 +738,109 @@ Partial Class frmDocumentResultList
|
||||
resources.ApplyResources(Me.DockPanel2_Container, "DockPanel2_Container")
|
||||
Me.DockPanel2_Container.Name = "DockPanel2_Container"
|
||||
'
|
||||
'panelContainer1
|
||||
'
|
||||
Me.panelContainer1.ActiveChild = Me.DockPanelStatus
|
||||
Me.panelContainer1.Controls.Add(Me.DockPanelStatus)
|
||||
Me.panelContainer1.Controls.Add(Me.DockPanelMetadata)
|
||||
Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right
|
||||
Me.panelContainer1.ID = New System.Guid("3d77391e-21ef-4574-8521-d9f3b7468ebe")
|
||||
resources.ApplyResources(Me.panelContainer1, "panelContainer1")
|
||||
Me.panelContainer1.Name = "panelContainer1"
|
||||
Me.panelContainer1.OriginalSize = New System.Drawing.Size(275, 200)
|
||||
Me.panelContainer1.Tabbed = True
|
||||
'
|
||||
'DockPanelStatus
|
||||
'
|
||||
Me.DockPanelStatus.Controls.Add(Me.ControlContainer1)
|
||||
Me.DockPanelStatus.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
|
||||
Me.DockPanelStatus.FloatVertical = True
|
||||
Me.DockPanelStatus.ID = New System.Guid("ef61c6cb-3dbd-4dd5-9df0-9d331a859d3d")
|
||||
resources.ApplyResources(Me.DockPanelStatus, "DockPanelStatus")
|
||||
Me.DockPanelStatus.Name = "DockPanelStatus"
|
||||
Me.DockPanelStatus.Options.ShowCloseButton = False
|
||||
Me.DockPanelStatus.OriginalSize = New System.Drawing.Size(273, 97)
|
||||
'
|
||||
'ControlContainer1
|
||||
'
|
||||
Me.ControlContainer1.Controls.Add(Me.LayoutControl1)
|
||||
resources.ApplyResources(Me.ControlContainer1, "ControlContainer1")
|
||||
Me.ControlContainer1.Name = "ControlContainer1"
|
||||
'
|
||||
'LayoutControl1
|
||||
'
|
||||
Me.LayoutControl1.Controls.Add(Me.txtCheckedOutWho)
|
||||
Me.LayoutControl1.Controls.Add(Me.dateCheckedOutWhen)
|
||||
resources.ApplyResources(Me.LayoutControl1, "LayoutControl1")
|
||||
Me.LayoutControl1.Name = "LayoutControl1"
|
||||
Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1068, 325, 650, 400)
|
||||
Me.LayoutControl1.Root = Me.Root
|
||||
'
|
||||
'txtCheckedOutWho
|
||||
'
|
||||
resources.ApplyResources(Me.txtCheckedOutWho, "txtCheckedOutWho")
|
||||
Me.txtCheckedOutWho.MenuManager = Me.RibbonControl
|
||||
Me.txtCheckedOutWho.Name = "txtCheckedOutWho"
|
||||
Me.txtCheckedOutWho.Properties.ReadOnly = True
|
||||
Me.txtCheckedOutWho.StyleController = Me.LayoutControl1
|
||||
'
|
||||
'dateCheckedOutWhen
|
||||
'
|
||||
resources.ApplyResources(Me.dateCheckedOutWhen, "dateCheckedOutWhen")
|
||||
Me.dateCheckedOutWhen.MenuManager = Me.RibbonControl
|
||||
Me.dateCheckedOutWhen.Name = "dateCheckedOutWhen"
|
||||
Me.dateCheckedOutWhen.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("DateEdit1.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
|
||||
Me.dateCheckedOutWhen.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("DateEdit1.Properties.CalendarTimeProperties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
|
||||
Me.dateCheckedOutWhen.Properties.ReadOnly = True
|
||||
Me.dateCheckedOutWhen.StyleController = Me.LayoutControl1
|
||||
'
|
||||
'Root
|
||||
'
|
||||
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.Root.GroupBordersVisible = False
|
||||
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1, Me.EmptySpaceItem1})
|
||||
Me.Root.Name = "Root"
|
||||
Me.Root.Size = New System.Drawing.Size(268, 434)
|
||||
Me.Root.TextVisible = False
|
||||
'
|
||||
'LayoutControlGroup1
|
||||
'
|
||||
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2})
|
||||
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
|
||||
Me.LayoutControlGroup1.Size = New System.Drawing.Size(248, 93)
|
||||
resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1")
|
||||
'
|
||||
'LayoutControlItem1
|
||||
'
|
||||
Me.LayoutControlItem1.Control = Me.txtCheckedOutWho
|
||||
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.LayoutControlItem1.Name = "LayoutControlItem1"
|
||||
Me.LayoutControlItem1.Size = New System.Drawing.Size(224, 24)
|
||||
resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
|
||||
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(126, 13)
|
||||
'
|
||||
'LayoutControlItem2
|
||||
'
|
||||
Me.LayoutControlItem2.Control = Me.dateCheckedOutWhen
|
||||
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 24)
|
||||
Me.LayoutControlItem2.Name = "LayoutControlItem2"
|
||||
Me.LayoutControlItem2.Size = New System.Drawing.Size(224, 24)
|
||||
resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2")
|
||||
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(126, 13)
|
||||
'
|
||||
'EmptySpaceItem1
|
||||
'
|
||||
Me.EmptySpaceItem1.AllowHotTrack = False
|
||||
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 93)
|
||||
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
|
||||
Me.EmptySpaceItem1.Size = New System.Drawing.Size(248, 321)
|
||||
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
|
||||
'
|
||||
'DockPanelMetadata
|
||||
'
|
||||
Me.DockPanelMetadata.Controls.Add(Me.DockPanel3_Container)
|
||||
Me.DockPanelMetadata.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right
|
||||
Me.DockPanelMetadata.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
|
||||
Me.DockPanelMetadata.ID = New System.Guid("a7688cec-f13e-448b-82cf-a6bb020fb3f7")
|
||||
resources.ApplyResources(Me.DockPanelMetadata, "DockPanelMetadata")
|
||||
Me.DockPanelMetadata.Name = "DockPanelMetadata"
|
||||
@@ -743,7 +866,7 @@ Partial Class frmDocumentResultList
|
||||
resources.ApplyResources(Me.DockPanelDocViewer, "DockPanelDocViewer")
|
||||
Me.DockPanelDocViewer.Name = "DockPanelDocViewer"
|
||||
Me.DockPanelDocViewer.Options.ShowCloseButton = False
|
||||
Me.DockPanelDocViewer.OriginalSize = New System.Drawing.Size(324, 200)
|
||||
Me.DockPanelDocViewer.OriginalSize = New System.Drawing.Size(329, 200)
|
||||
'
|
||||
'DockPanel1_Container
|
||||
'
|
||||
@@ -761,7 +884,7 @@ Partial Class frmDocumentResultList
|
||||
resources.ApplyResources(Me, "$this")
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.DockPanelDocViewer)
|
||||
Me.Controls.Add(Me.DockPanelMetadata)
|
||||
Me.Controls.Add(Me.panelContainer1)
|
||||
Me.Controls.Add(Me.DockPanelFileList)
|
||||
Me.Controls.Add(Me.RibbonStatusBar)
|
||||
Me.Controls.Add(Me.RibbonControl)
|
||||
@@ -794,6 +917,19 @@ Partial Class frmDocumentResultList
|
||||
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.DockPanelFileList.ResumeLayout(False)
|
||||
Me.DockPanel2_Container.ResumeLayout(False)
|
||||
Me.panelContainer1.ResumeLayout(False)
|
||||
Me.DockPanelStatus.ResumeLayout(False)
|
||||
Me.ControlContainer1.ResumeLayout(False)
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.LayoutControl1.ResumeLayout(False)
|
||||
CType(Me.txtCheckedOutWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dateCheckedOutWhen.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dateCheckedOutWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.DockPanelMetadata.ResumeLayout(False)
|
||||
Me.DockPanel3_Container.ResumeLayout(False)
|
||||
Me.DockPanelDocViewer.ResumeLayout(False)
|
||||
@@ -884,4 +1020,15 @@ Partial Class frmDocumentResultList
|
||||
Friend WithEvents RibbonPageCategoryAttribute As DevExpress.XtraBars.Ribbon.RibbonPageCategory
|
||||
Friend WithEvents RibbonPageAttribute As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents DockPanelStatus As DevExpress.XtraBars.Docking.DockPanel
|
||||
Friend WithEvents ControlContainer1 As DevExpress.XtraBars.Docking.ControlContainer
|
||||
Friend WithEvents panelContainer1 As DevExpress.XtraBars.Docking.DockPanel
|
||||
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
|
||||
Friend WithEvents txtCheckedOutWho As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents dateCheckedOutWhen As DevExpress.XtraEditors.DateEdit
|
||||
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
|
||||
Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup
|
||||
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
|
||||
End Class
|
||||
|
||||
@@ -391,7 +391,7 @@
|
||||
<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">
|
||||
<data name="MenuItemProperties.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
@@ -496,7 +496,7 @@
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>318, 459</value>
|
||||
<value>323, 459</value>
|
||||
</data>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="DocumentViewer1.TabIndex" type="System.Int32, mscorlib">
|
||||
@@ -518,7 +518,7 @@
|
||||
<value>3, 26</value>
|
||||
</data>
|
||||
<data name="DockPanel1_Container.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>318, 459</value>
|
||||
<value>323, 459</value>
|
||||
</data>
|
||||
<data name="DockPanel1_Container.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
@@ -539,7 +539,7 @@
|
||||
<value>585, 158</value>
|
||||
</data>
|
||||
<data name="DockPanelDocViewer.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>324, 489</value>
|
||||
<value>329, 489</value>
|
||||
</data>
|
||||
<data name="DockPanelDocViewer.Text" xml:space="preserve">
|
||||
<value>Vorschau</value>
|
||||
@@ -556,6 +556,136 @@
|
||||
<data name=">>DockPanelDocViewer.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="txtCheckedOutWho.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>162, 45</value>
|
||||
</data>
|
||||
<data name="txtCheckedOutWho.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>82, 20</value>
|
||||
</data>
|
||||
<data name="txtCheckedOutWho.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>4</value>
|
||||
</data>
|
||||
<data name=">>txtCheckedOutWho.Name" xml:space="preserve">
|
||||
<value>txtCheckedOutWho</value>
|
||||
</data>
|
||||
<data name=">>txtCheckedOutWho.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>txtCheckedOutWho.Parent" xml:space="preserve">
|
||||
<value>LayoutControl1</value>
|
||||
</data>
|
||||
<data name=">>txtCheckedOutWho.ZOrder" xml:space="preserve">
|
||||
<value>4</value>
|
||||
</data>
|
||||
<data name="dateCheckedOutWhen.EditValue" type="System.Resources.ResXNullRef, System.Windows.Forms">
|
||||
<value />
|
||||
</data>
|
||||
<data name="dateCheckedOutWhen.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>162, 69</value>
|
||||
</data>
|
||||
<assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<data name="DateEdit1.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
|
||||
<value>Combo</value>
|
||||
</data>
|
||||
<data name="DateEdit1.Properties.CalendarTimeProperties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
|
||||
<value>Combo</value>
|
||||
</data>
|
||||
<data name="dateCheckedOutWhen.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>82, 20</value>
|
||||
</data>
|
||||
<data name="dateCheckedOutWhen.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>5</value>
|
||||
</data>
|
||||
<data name=">>dateCheckedOutWhen.Name" xml:space="preserve">
|
||||
<value>dateCheckedOutWhen</value>
|
||||
</data>
|
||||
<data name=">>dateCheckedOutWhen.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>dateCheckedOutWhen.Parent" xml:space="preserve">
|
||||
<value>LayoutControl1</value>
|
||||
</data>
|
||||
<data name=">>dateCheckedOutWhen.ZOrder" xml:space="preserve">
|
||||
<value>5</value>
|
||||
</data>
|
||||
<data name="LayoutControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
|
||||
<value>Fill</value>
|
||||
</data>
|
||||
<data name="LayoutControl1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="LayoutControlItem1.Text" xml:space="preserve">
|
||||
<value>Bearbeitet von</value>
|
||||
</data>
|
||||
<data name="LayoutControlItem2.Text" xml:space="preserve">
|
||||
<value>In Bearbeitung genommen</value>
|
||||
</data>
|
||||
<data name="LayoutControlGroup1.Text" xml:space="preserve">
|
||||
<value>In Bearbeitung</value>
|
||||
</data>
|
||||
<data name="LayoutControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>268, 434</value>
|
||||
</data>
|
||||
<data name="LayoutControl1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="LayoutControl1.Text" xml:space="preserve">
|
||||
<value>LayoutControl1</value>
|
||||
</data>
|
||||
<data name=">>LayoutControl1.Name" xml:space="preserve">
|
||||
<value>LayoutControl1</value>
|
||||
</data>
|
||||
<data name=">>LayoutControl1.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>LayoutControl1.Parent" xml:space="preserve">
|
||||
<value>ControlContainer1</value>
|
||||
</data>
|
||||
<data name=">>LayoutControl1.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="ControlContainer1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="ControlContainer1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>268, 434</value>
|
||||
</data>
|
||||
<data name="ControlContainer1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name=">>ControlContainer1.Name" xml:space="preserve">
|
||||
<value>ControlContainer1</value>
|
||||
</data>
|
||||
<data name=">>ControlContainer1.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.Docking.ControlContainer, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>ControlContainer1.Parent" xml:space="preserve">
|
||||
<value>DockPanelStatus</value>
|
||||
</data>
|
||||
<data name=">>ControlContainer1.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="DockPanelStatus.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>4, 26</value>
|
||||
</data>
|
||||
<data name="DockPanelStatus.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>268, 434</value>
|
||||
</data>
|
||||
<data name="DockPanelStatus.Text" xml:space="preserve">
|
||||
<value>Status</value>
|
||||
</data>
|
||||
<data name=">>DockPanelStatus.Name" xml:space="preserve">
|
||||
<value>DockPanelStatus</value>
|
||||
</data>
|
||||
<data name=">>DockPanelStatus.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.Docking.DockPanel, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>DockPanelStatus.Parent" xml:space="preserve">
|
||||
<value>panelContainer1</value>
|
||||
</data>
|
||||
<data name=">>DockPanelStatus.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="CtrlObjectPropertyDialog.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
|
||||
<value>Fill</value>
|
||||
</data>
|
||||
@@ -563,7 +693,7 @@
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="CtrlObjectPropertyDialog.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>273, 460</value>
|
||||
<value>268, 434</value>
|
||||
</data>
|
||||
<data name="CtrlObjectPropertyDialog.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
@@ -581,10 +711,10 @@
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="DockPanel3_Container.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>4, 26</value>
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="DockPanel3_Container.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>273, 460</value>
|
||||
<value>268, 434</value>
|
||||
</data>
|
||||
<data name="DockPanel3_Container.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
@@ -602,10 +732,10 @@
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="DockPanelMetadata.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>909, 158</value>
|
||||
<value>4, 26</value>
|
||||
</data>
|
||||
<data name="DockPanelMetadata.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>280, 489</value>
|
||||
<value>268, 434</value>
|
||||
</data>
|
||||
<data name="DockPanelMetadata.Text" xml:space="preserve">
|
||||
<value>Eigenschaften</value>
|
||||
@@ -617,11 +747,32 @@
|
||||
<value>DevExpress.XtraBars.Docking.DockPanel, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>DockPanelMetadata.Parent" xml:space="preserve">
|
||||
<value>$this</value>
|
||||
<value>panelContainer1</value>
|
||||
</data>
|
||||
<data name=">>DockPanelMetadata.ZOrder" xml:space="preserve">
|
||||
<value>1</value>
|
||||
</data>
|
||||
<data name="panelContainer1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>914, 158</value>
|
||||
</data>
|
||||
<data name="panelContainer1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>275, 489</value>
|
||||
</data>
|
||||
<data name="panelContainer1.Text" xml:space="preserve">
|
||||
<value>panelContainer1</value>
|
||||
</data>
|
||||
<data name=">>panelContainer1.Name" xml:space="preserve">
|
||||
<value>panelContainer1</value>
|
||||
</data>
|
||||
<data name=">>panelContainer1.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.Docking.DockPanel, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>panelContainer1.Parent" xml:space="preserve">
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>panelContainer1.ZOrder" xml:space="preserve">
|
||||
<value>1</value>
|
||||
</data>
|
||||
<data name="DockPanel2_Container.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>3, 26</value>
|
||||
</data>
|
||||
@@ -1149,6 +1300,36 @@
|
||||
<data name=">>DockManager1.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>Root.Name" xml:space="preserve">
|
||||
<value>Root</value>
|
||||
</data>
|
||||
<data name=">>Root.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=">>LayoutControlGroup1.Name" xml:space="preserve">
|
||||
<value>LayoutControlGroup1</value>
|
||||
</data>
|
||||
<data name=">>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=">>LayoutControlItem1.Name" xml:space="preserve">
|
||||
<value>LayoutControlItem1</value>
|
||||
</data>
|
||||
<data name=">>LayoutControlItem1.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=">>LayoutControlItem2.Name" xml:space="preserve">
|
||||
<value>LayoutControlItem2</value>
|
||||
</data>
|
||||
<data name=">>LayoutControlItem2.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=">>EmptySpaceItem1.Name" xml:space="preserve">
|
||||
<value>EmptySpaceItem1</value>
|
||||
</data>
|
||||
<data name=">>EmptySpaceItem1.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraLayout.EmptySpaceItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>SvgImageCollection1.Name" xml:space="preserve">
|
||||
<value>SvgImageCollection1</value>
|
||||
</data>
|
||||
|
||||
@@ -6,7 +6,6 @@ Imports DevExpress.Utils
|
||||
Imports DevExpress.XtraBars
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
Imports DevExpress.XtraGrid.Views.BandedGrid
|
||||
Imports DevExpress.XtraGrid.Views.Base
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
@@ -21,6 +20,7 @@ Imports DigitalData.Modules.ZooFlow.Constants
|
||||
Imports DigitalData.Modules.Base.IDB.FileStore
|
||||
Imports DigitalData.Controls.MessageBoxEx
|
||||
Imports DigitalData.GUIs.Common.Base
|
||||
Imports DigitalData.GUIs.Common.DocumentResultList
|
||||
|
||||
Public Class frmDocumentResultList
|
||||
Implements IResultForm, IBaseForm
|
||||
@@ -39,6 +39,7 @@ Public Class frmDocumentResultList
|
||||
Private Client As Client
|
||||
Private Documentloader As DocumentResultList.Loader
|
||||
Private ControlManager As AttributeControls
|
||||
Private CheckoutManager As CheckInOut
|
||||
|
||||
Private ReadOnly Config As ConfigManager(Of DocumentResultList.Config)
|
||||
Private ReadOnly Environment As Environment
|
||||
@@ -63,6 +64,7 @@ Public Class frmDocumentResultList
|
||||
Private ReadOnly ColumnFilename As String = "Filename"
|
||||
Private ReadOnly ColumnDocumentId As String = "DocID"
|
||||
Private ReadOnly ColumnIcon As String = "ICON"
|
||||
Private ReadOnly ColumnCheckedOut As String = "CHECKED_OUT"
|
||||
|
||||
Private Property _ActiveGrid As GridControl = Nothing
|
||||
Private Property _ActiveGridBand As GridBand = Nothing
|
||||
@@ -98,15 +100,15 @@ Public Class frmDocumentResultList
|
||||
Params = pParams
|
||||
ResultLists = pParams.Results
|
||||
|
||||
Config = New ConfigManager(Of DocumentResultList.Config)(pLogConfig, oConfigPath, oConfigPath)
|
||||
Config = New ConfigManager(Of Config)(pLogConfig, oConfigPath, oConfigPath)
|
||||
Helpers = New DocumentResultList.Helpers(pLogConfig)
|
||||
Filesystem = New Modules.Filesystem.File(pLogConfig)
|
||||
GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3})
|
||||
FileEx = New Modules.Windows.File(pLogConfig)
|
||||
Watcher = New DocumentResultList.Watcher(pLogConfig)
|
||||
LayoutManager = New DocumentResultList.Layout(pLogConfig, Config, New List(Of GridView) From {GridView1, GridView2, GridView3})
|
||||
Watcher = New Watcher(pLogConfig)
|
||||
LayoutManager = New Layout(pLogConfig, Config, New List(Of GridView) From {GridView1, GridView2, GridView3})
|
||||
|
||||
UserLanguage = Utils.NotNull(Me.Environment.User.Language, State.UserState.LANG_EN_US)
|
||||
UserLanguage = Utils.NotNull(Environment.User.Language, State.UserState.LANG_EN_US)
|
||||
End Sub
|
||||
|
||||
Private Function GetOperationMode() As OperationMode
|
||||
@@ -254,6 +256,15 @@ Public Class frmDocumentResultList
|
||||
'End If
|
||||
|
||||
Await CtrlObjectPropertyDialog.LoadObject(oObjectId)
|
||||
|
||||
Dim oCheckoutState = Await CheckOutManager.GetCheckoutState(oObjectId)
|
||||
If oCheckoutState IsNot Nothing Then
|
||||
txtCheckedOutWho.EditValue = oCheckoutState.CheckedOutWho
|
||||
dateCheckedOutWhen.EditValue = oCheckoutState.CheckedOutWhen
|
||||
Else
|
||||
txtCheckedOutWho.EditValue = Nothing
|
||||
dateCheckedOutWhen.EditValue = Nothing
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
RibbonPageCategoryFile.Visible = False
|
||||
@@ -381,6 +392,7 @@ Public Class frmDocumentResultList
|
||||
|
||||
Client = New Client(LogConfig, oAddress, oPort)
|
||||
ControlManager = New AttributeControls(LogConfig, Environment, Client)
|
||||
CheckoutManager = New CheckInOut(LogConfig, Client)
|
||||
|
||||
If Not Client.Connect() Then
|
||||
Logger.Warn("Client could not connect to Service at [{0}]", Environment.Service.Address)
|
||||
@@ -540,7 +552,7 @@ Public Class frmDocumentResultList
|
||||
|
||||
Private Sub CreateDocumentGrid(GridView As BandedGridView, Result As DocumentResultList.DocumentResult)
|
||||
Try
|
||||
If IsNothing(GridView.Columns(ColumnIcon)) Then
|
||||
If GridView.Columns.Item(ColumnIcon) Is Nothing Then
|
||||
Dim oIconColumn = GridView.Columns.AddVisible(ColumnIcon, ColumnIcon)
|
||||
With oIconColumn
|
||||
.OptionsColumn.AllowSort = False
|
||||
@@ -557,7 +569,6 @@ Public Class frmDocumentResultList
|
||||
oFirstBand.Columns.MoveTo(0, oIconColumn)
|
||||
End If
|
||||
|
||||
|
||||
Dim oColumnsToHide As New List(Of String) From {
|
||||
ColumnDocumentId,
|
||||
ColumnFilepath,
|
||||
@@ -632,40 +643,43 @@ Public Class frmDocumentResultList
|
||||
|
||||
|
||||
|
||||
'Private Sub GridView1_CustomDrawCell(sender As Object, e As RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell
|
||||
' If e.RowHandle <> GridControl.NewItemRowHandle AndAlso e.Column.FieldName = COLUMN_ICON Then
|
||||
' Dim oRow As DataRow = TryCast(sender, GridView)?.GetDataRow(e.RowHandle)
|
||||
' Dim oValue = oRow.Item(COLUMN_FILENAME)
|
||||
Private Sub GridView1_CustomDrawCell(sender As Object, e As RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell
|
||||
|
||||
' If oValue.ToString.EndsWith(".pdf") Then
|
||||
' Dim oIcon = My.Resources.pdf
|
||||
' e.Cache.DrawImage(oIcon, e.Bounds.X + 0, e.Bounds.Y + 0, 18, 18)
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' 'Try
|
||||
' ' If e.RowHandle < 0 Then
|
||||
' ' Exit Sub
|
||||
' ' End If
|
||||
|
||||
' ' e.DefaultDraw()
|
||||
'If e.RowHandle <> GridControl.NewItemRowHandle AndAlso e.Column.FieldName = ColumnIcon Then
|
||||
' Dim oRow As DataRow = TryCast(sender, GridView)?.GetDataRow(e.RowHandle)
|
||||
' Dim oValue = oRow.Item(COLUMN_FILENAME)
|
||||
|
||||
' ' Dim oView As GridView = TryCast(sender, GridView)
|
||||
' ' Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo)
|
||||
' ' Dim oRow As DataRow = oView.GetDataRow(e.RowHandle)
|
||||
' ' Dim oValue = oRow.Item(COLUMN_FILENAME)
|
||||
' If oValue.ToString.EndsWith(".pdf") Then
|
||||
' Dim oIcon = My.Resources.pdf
|
||||
' e.Cache.DrawImage(oIcon, e.Bounds.X + 0, e.Bounds.Y + 0, 18, 18)
|
||||
' End If
|
||||
'End If
|
||||
|
||||
' ' If e.Column.FieldName = COLUMN_ICON Then
|
||||
' ' Dim oIcon = Helpers.GetIconByExtension(oValue)
|
||||
' ' Dim offsetX = 0
|
||||
' ' Dim offsetY = 0
|
||||
'Try
|
||||
' If e.RowHandle < 0 Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' ' e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18)
|
||||
' ' End If
|
||||
' 'Catch ex As Exception
|
||||
' ' Logger.Error(ex)
|
||||
' 'End Try
|
||||
'End Sub
|
||||
' e.DefaultDraw()
|
||||
|
||||
' Dim oView As GridView = TryCast(sender, GridView)
|
||||
' Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo)
|
||||
' Dim oRow As DataRow = oView.GetDataRow(e.RowHandle)
|
||||
' Dim oValue = oRow.Item(COLUMN_FILENAME)
|
||||
|
||||
' If e.Column.FieldName = COLUMN_ICON Then
|
||||
' Dim oIcon = Helpers.GetIconByExtension(oValue)
|
||||
' Dim offsetX = 0
|
||||
' Dim offsetY = 0
|
||||
|
||||
' e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18)
|
||||
' End If
|
||||
'Catch ex As Exception
|
||||
' Logger.Error(ex)
|
||||
'End Try
|
||||
End Sub
|
||||
|
||||
Private Sub BarButtonItemExportGrid1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemExportGrid1.ItemClick
|
||||
Dim oActiveGrid = GetActiveGridControl()
|
||||
@@ -856,6 +870,43 @@ Public Class frmDocumentResultList
|
||||
Process.Start(oInfo)
|
||||
End Sub
|
||||
|
||||
Private Async Sub MenuItemCheckOutFile_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemCheckOutFile.ItemClick
|
||||
Dim oObjectId = _CurrentDocument?.Id
|
||||
Dim oResultComment As String = ShowCheckInOutCommentForm()
|
||||
If IsNothing(oResultComment) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Await Client.CheckOutFile(oObjectId, oResultComment)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItemCheckInFile_ItemClick(sender As Object, e As ItemClickEventArgs) Handles MenuItemCheckInFile.ItemClick
|
||||
Dim oObjectId = _CurrentDocument?.Id
|
||||
Client.CheckInFile(oObjectId)
|
||||
End Sub
|
||||
|
||||
Private Function ShowCheckInOutCommentForm()
|
||||
Dim editor As New MemoEdit()
|
||||
Dim args As New XtraInputBoxArgs With {
|
||||
.Caption = "Checkout/in Kommentar",
|
||||
.Prompt = "Kommentar",
|
||||
.DefaultButtonIndex = 0,
|
||||
.Editor = editor,
|
||||
.DefaultResponse = ""
|
||||
}
|
||||
args.ContentPadding = args.ButtonPadding
|
||||
|
||||
AddHandler args.Showing, AddressOf Args_Showing
|
||||
|
||||
Dim result = XtraInputBox.Show(args).ToString()
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Sub Args_Showing(ByVal sender As Object, ByVal e As XtraMessageShowingArgs)
|
||||
e.Form.Icon = Me.Icon
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
#Region "Drag to Export"
|
||||
|
||||
@@ -974,4 +1025,13 @@ Public Class frmDocumentResultList
|
||||
Private Sub CtrlObjectPropertyDialog_Leave(sender As Object, e As EventArgs) Handles CtrlObjectPropertyDialog.Leave
|
||||
RibbonPageCategoryAttribute.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub GridView1_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView1.RowStyle
|
||||
Dim oGridView As BandedGridView = sender
|
||||
Dim oRow As DataRowView = oGridView.GetRow(e.RowHandle)
|
||||
|
||||
If oRow IsNot Nothing AndAlso oRow.Row.Item(ColumnCheckedOut) IsNot Nothing AndAlso oRow.Row.Item(ColumnCheckedOut) = True Then
|
||||
e.Appearance.BackColor = Color.LightSalmon
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user