MS

2016-11-23 17:04:30 +01:00
parent fc9f391307
commit 8f457040bb
18 changed files with 2020 additions and 659 deletions
--- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
+++ b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
@@ -166,7 +166,22 @@ Partial Class frmConstructor_Main
        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.XtraTabPageVariant = New DevExpress.XtraTab.XtraTabPage()
+        Me.TabPageVariant = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+        Me.TBPMO_RECORD_VARIANTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
+        Me.GridViewVariants = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colREASON_CODE = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colCOMMENT = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colRECORD_ID = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.tsVariants = New System.Windows.Forms.ToolStrip()
+        Me.tslblVariantsCount = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnVariantDetailView = New System.Windows.Forms.ToolStripButton()
        Me.SplitContainerFORM = New DevExpress.XtraEditors.SplitContainerControl()
        Me.NavPane = New DevExpress.XtraBars.Navigation.TileNavPane()
        Me.NavButtonHome = New DevExpress.XtraBars.Navigation.NavButton()
@@ -182,7 +197,6 @@ Partial Class frmConstructor_Main
        Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
        Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
        Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
        Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
        Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
@@ -192,55 +206,61 @@ Partial Class frmConstructor_Main
        Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
        Me.RealTimeSource1 = New DevExpress.Data.RealTimeSource()
-        CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SplitContainerMain.SuspendLayout
-        CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SplitContainerTop.SuspendLayout
-        Me.CMSEntity.SuspendLayout
-        CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.ContextMenuGrid.SuspendLayout
-        CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.ToolStripRecords.SuspendLayout
-        CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.TCDetails.SuspendLayout
-        Me.TabDetails.SuspendLayout
-        CType(Me.SplitContainerDetails,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SplitContainerDetails.SuspendLayout
-        Me.pnlDocFill.SuspendLayout
-        Me.statStripDoc.SuspendLayout
-        Me.ToolStripEdit.SuspendLayout
-        Me.TabWindream.SuspendLayout
-        CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.ContextMenuStripResultFiles.SuspendLayout
-        CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.ToolStripDokumente.SuspendLayout
-        Me.TabFollowUp.SuspendLayout
-        Me.grpbxFU_Profile.SuspendLayout
-        Me.GroupBox4.SuspendLayout
-        Me.TabPos.SuspendLayout
-        Me.Panel1.SuspendLayout
-        CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.BindingNavigatorPOS.SuspendLayout
-        CType(Me.SplitContainerFORM,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SplitContainerFORM.SuspendLayout
-        Me.StatusStrip_Main.SuspendLayout
-        CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.TBPMO_FILES_USERBindingSource,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SuspendLayout
+        Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter()
+        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerMain.SuspendLayout()
+        CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerTop.SuspendLayout()
+        Me.CMSEntity.SuspendLayout()
+        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuGrid.SuspendLayout()
+        CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ToolStripRecords.SuspendLayout()
+        CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TCDetails.SuspendLayout()
+        Me.TabDetails.SuspendLayout()
+        CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerDetails.SuspendLayout()
+        Me.pnlDocFill.SuspendLayout()
+        Me.statStripDoc.SuspendLayout()
+        Me.ToolStripEdit.SuspendLayout()
+        Me.TabWindream.SuspendLayout()
+        CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStripResultFiles.SuspendLayout()
+        CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ToolStripDokumente.SuspendLayout()
+        Me.TabFollowUp.SuspendLayout()
+        Me.grpbxFU_Profile.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        Me.TabPos.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.BindingNavigatorPOS.SuspendLayout()
+        Me.TabPageVariant.SuspendLayout()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBPMO_RECORD_VARIANTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewVariants, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.tsVariants.SuspendLayout()
+        CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerFORM.SuspendLayout()
+        Me.StatusStrip_Main.SuspendLayout()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
        '
        'SplitContainerMain
        '
        Me.SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
        resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain")
-        Me.SplitContainerMain.Horizontal = false
+        Me.SplitContainerMain.Horizontal = False
        Me.SplitContainerMain.Name = "SplitContainerMain"
        Me.SplitContainerMain.Panel1.Controls.Add(Me.SplitContainerTop)
        resources.ApplyResources(Me.SplitContainerMain.Panel1, "SplitContainerMain.Panel1")
@@ -262,14 +282,14 @@ Partial Class frmConstructor_Main
        '
        'TreeViewMain
        '
-        Me.TreeViewMain.AllowDrop = true
+        Me.TreeViewMain.AllowDrop = True
        Me.TreeViewMain.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
        Me.TreeViewMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.TreeViewMain.ContextMenuStrip = Me.CMSEntity
        resources.ApplyResources(Me.TreeViewMain, "TreeViewMain")
-        Me.TreeViewMain.FullRowSelect = true
+        Me.TreeViewMain.FullRowSelect = True
        Me.TreeViewMain.Name = "TreeViewMain"
-        Me.TreeViewMain.ShowLines = false
+        Me.TreeViewMain.ShowLines = False
        '
        'CMSEntity
        '
@@ -327,7 +347,7 @@ Partial Class frmConstructor_Main
        '
        'GridControlMain
        '
-        Me.GridControlMain.AllowDrop = true
+        Me.GridControlMain.AllowDrop = True
        Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
        resources.ApplyResources(Me.GridControlMain, "GridControlMain")
        GridLevelNode1.LevelTemplate = Me.grvwGrid
@@ -449,25 +469,25 @@ Partial Class frmConstructor_Main
        '
        'grvwGrid
        '
-        Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"),System.Drawing.Color)
-        Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = true
+        Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = True
        Me.grvwGrid.GridControl = Me.GridControlMain
        resources.ApplyResources(Me.grvwGrid, "grvwGrid")
        Me.grvwGrid.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
        Me.grvwGrid.Name = "grvwGrid"
        Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
        Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
-        Me.grvwGrid.OptionsBehavior.Editable = false
-        Me.grvwGrid.OptionsBehavior.ReadOnly = true
+        Me.grvwGrid.OptionsBehavior.Editable = False
+        Me.grvwGrid.OptionsBehavior.ReadOnly = True
        Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = false
-        Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = false
-        Me.grvwGrid.OptionsSelection.EnableAppearanceHideSelection = false
-        Me.grvwGrid.OptionsSelection.MultiSelect = true
+        Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = False
+        Me.grvwGrid.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.grvwGrid.OptionsSelection.MultiSelect = True
        Me.grvwGrid.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
-        Me.grvwGrid.OptionsView.ColumnAutoWidth = false
-        Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = true
-        Me.grvwGrid.OptionsView.ShowAutoFilterRow = true
+        Me.grvwGrid.OptionsView.ColumnAutoWidth = False
+        Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
+        Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
        Me.grvwGrid.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
        Me.grvwGrid.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
        '
@@ -480,11 +500,11 @@ Partial Class frmConstructor_Main
        'grvwTiles
        '
        Me.grvwTiles.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat
-        Me.grvwTiles.FocusBorderColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
+        Me.grvwTiles.FocusBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
        Me.grvwTiles.GridControl = Me.GridControlMain
        Me.grvwTiles.Name = "grvwTiles"
-        Me.grvwTiles.OptionsBehavior.ReadOnly = true
-        Me.grvwTiles.OptionsFind.AlwaysVisible = true
+        Me.grvwTiles.OptionsBehavior.ReadOnly = True
+        Me.grvwTiles.OptionsFind.AlwaysVisible = True
        Me.grvwTiles.OptionsTiles.HorizontalContentAlignment = DevExpress.Utils.HorzAlignment.Near
        Me.grvwTiles.OptionsTiles.ItemSize = New System.Drawing.Size(240, 116)
        Me.grvwTiles.OptionsTiles.RowCount = 2
@@ -579,16 +599,16 @@ Partial Class frmConstructor_Main
        '
        'TCDetails
        '
-        Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor"),System.Drawing.Color)
-        Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor2 = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor2"),System.Drawing.Color)
-        Me.TCDetails.AppearancePage.HeaderHotTracked.Font = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.Font"),System.Drawing.Font)
-        Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = true
-        Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseFont = true
+        Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor"), System.Drawing.Color)
+        Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor2 = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor2"), System.Drawing.Color)
+        Me.TCDetails.AppearancePage.HeaderHotTracked.Font = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.Font"), System.Drawing.Font)
+        Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = True
+        Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseFont = True
        resources.ApplyResources(Me.TCDetails, "TCDetails")
-        Me.TCDetails.LookAndFeel.UseDefaultLookAndFeel = false
+        Me.TCDetails.LookAndFeel.UseDefaultLookAndFeel = False
        Me.TCDetails.Name = "TCDetails"
        Me.TCDetails.SelectedTabPage = Me.TabDetails
-        Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp, Me.TabPos, Me.XtraTabPageVariant})
+        Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp, Me.TabPos, Me.TabPageVariant})
        '
        'TabDetails
        '
@@ -600,8 +620,8 @@ Partial Class frmConstructor_Main
        '
        'SplitContainerDetails
        '
-        Me.SplitContainerDetails.Appearance.BackColor = CType(resources.GetObject("SplitContainerDetails.Appearance.BackColor"),System.Drawing.Color)
-        Me.SplitContainerDetails.Appearance.Options.UseBackColor = true
+        Me.SplitContainerDetails.Appearance.BackColor = CType(resources.GetObject("SplitContainerDetails.Appearance.BackColor"), System.Drawing.Color)
+        Me.SplitContainerDetails.Appearance.Options.UseBackColor = True
        Me.SplitContainerDetails.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D
        Me.SplitContainerDetails.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
        resources.ApplyResources(Me.SplitContainerDetails, "SplitContainerDetails")
@@ -615,7 +635,7 @@ Partial Class frmConstructor_Main
        '
        'pnlDetails
        '
-        Me.pnlDetails.AllowDrop = true
+        Me.pnlDetails.AllowDrop = True
        resources.ApplyResources(Me.pnlDetails, "pnlDetails")
        Me.pnlDetails.Name = "pnlDetails"
        '
@@ -633,9 +653,9 @@ Partial Class frmConstructor_Main
        '
        'tslblDocIDTab1
        '
-        Me.tslblDocIDTab1.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top)  _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right)  _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.tslblDocIDTab1.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
        Me.tslblDocIDTab1.Name = "tslblDocIDTab1"
        resources.ApplyResources(Me.tslblDocIDTab1, "tslblDocIDTab1")
        '
@@ -713,7 +733,7 @@ Partial Class frmConstructor_Main
        '
        'TabWindream
        '
-        Me.TabWindream.AllowDrop = true
+        Me.TabWindream.AllowDrop = True
        Me.TabWindream.Controls.Add(Me.GridControlDocSearch)
        Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
        Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
@@ -722,7 +742,7 @@ Partial Class frmConstructor_Main
        '
        'GridControlDocSearch
        '
-        Me.GridControlDocSearch.AllowDrop = true
+        Me.GridControlDocSearch.AllowDrop = True
        Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
        resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
        Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
@@ -861,29 +881,29 @@ Partial Class frmConstructor_Main
        '
        'GridViewDoc_Search
        '
-        Me.GridViewDoc_Search.Appearance.OddRow.BackColor = CType(resources.GetObject("GridViewDoc_Search.Appearance.OddRow.BackColor"),System.Drawing.Color)
-        Me.GridViewDoc_Search.Appearance.OddRow.BackColor2 = CType(resources.GetObject("GridViewDoc_Search.Appearance.OddRow.BackColor2"),System.Drawing.Color)
-        Me.GridViewDoc_Search.Appearance.OddRow.Options.UseBackColor = true
+        Me.GridViewDoc_Search.Appearance.OddRow.BackColor = CType(resources.GetObject("GridViewDoc_Search.Appearance.OddRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDoc_Search.Appearance.OddRow.BackColor2 = CType(resources.GetObject("GridViewDoc_Search.Appearance.OddRow.BackColor2"), System.Drawing.Color)
+        Me.GridViewDoc_Search.Appearance.OddRow.Options.UseBackColor = True
        Me.GridViewDoc_Search.DetailVerticalIndent = 10
        Me.GridViewDoc_Search.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFullFocus
        Me.GridViewDoc_Search.GridControl = Me.GridControlDocSearch
        Me.GridViewDoc_Search.LevelIndent = 10
        Me.GridViewDoc_Search.Name = "GridViewDoc_Search"
        Me.GridViewDoc_Search.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridViewDoc_Search.OptionsDetail.ShowDetailTabs = false
-        Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedCell = false
-        Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedRow = false
-        Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceHideSelection = false
-        Me.GridViewDoc_Search.OptionsSelection.MultiSelect = true
+        Me.GridViewDoc_Search.OptionsDetail.ShowDetailTabs = False
+        Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedRow = False
+        Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDoc_Search.OptionsSelection.MultiSelect = True
        Me.GridViewDoc_Search.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
-        Me.GridViewDoc_Search.OptionsView.ColumnAutoWidth = false
-        Me.GridViewDoc_Search.OptionsView.EnableAppearanceOddRow = true
-        Me.GridViewDoc_Search.OptionsView.ShowAutoFilterRow = true
+        Me.GridViewDoc_Search.OptionsView.ColumnAutoWidth = False
+        Me.GridViewDoc_Search.OptionsView.EnableAppearanceOddRow = True
+        Me.GridViewDoc_Search.OptionsView.ShowAutoFilterRow = True
        Me.GridViewDoc_Search.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
        '
        'ToolStripDokumente
        '
-        Me.ToolStripDokumente.AllowDrop = true
+        Me.ToolStripDokumente.AllowDrop = True
        resources.ApplyResources(Me.ToolStripDokumente, "ToolStripDokumente")
        Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.tsdrdowbtnDocSearch, Me.ToolStripSeparator17, Me.tsTextboxFulltext, Me.ToolStripLabel1, Me.ToolStripSeparator18, Me.ToolStripSeparator3, Me.tsbtnDoc_Refresh})
        Me.ToolStripDokumente.Name = "ToolStripDokumente"
@@ -954,10 +974,10 @@ Partial Class frmConstructor_Main
        '
        resources.ApplyResources(Me.ListViewFollowUps, "ListViewFollowUps")
        Me.ListViewFollowUps.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
-        Me.ListViewFollowUps.FullRowSelect = true
-        Me.ListViewFollowUps.HideSelection = false
+        Me.ListViewFollowUps.FullRowSelect = True
+        Me.ListViewFollowUps.HideSelection = False
        Me.ListViewFollowUps.Name = "ListViewFollowUps"
-        Me.ListViewFollowUps.UseCompatibleStateImageBehavior = false
+        Me.ListViewFollowUps.UseCompatibleStateImageBehavior = False
        Me.ListViewFollowUps.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader1
@@ -977,7 +997,7 @@ Partial Class frmConstructor_Main
        Me.grpbxFU_Profile.Controls.Add(Me.dtpFollowUp)
        Me.grpbxFU_Profile.Controls.Add(Me.lblWiedervorlage_Control)
        Me.grpbxFU_Profile.Name = "grpbxFU_Profile"
-        Me.grpbxFU_Profile.TabStop = false
+        Me.grpbxFU_Profile.TabStop = False
        '
        'GroupBox4
        '
@@ -989,25 +1009,25 @@ Partial Class frmConstructor_Main
        Me.GroupBox4.Controls.Add(Me.ListBoxUser2Profile)
        Me.GroupBox4.Controls.Add(Me.Label7)
        Me.GroupBox4.Name = "GroupBox4"
-        Me.GroupBox4.TabStop = false
+        Me.GroupBox4.TabStop = False
        '
        'btnRemoveUser_FollowUp
        '
        resources.ApplyResources(Me.btnRemoveUser_FollowUp, "btnRemoveUser_FollowUp")
        Me.btnRemoveUser_FollowUp.Name = "btnRemoveUser_FollowUp"
-        Me.btnRemoveUser_FollowUp.UseVisualStyleBackColor = true
+        Me.btnRemoveUser_FollowUp.UseVisualStyleBackColor = True
        '
        'btnAddUser_FollowUp
        '
        resources.ApplyResources(Me.btnAddUser_FollowUp, "btnAddUser_FollowUp")
        Me.btnAddUser_FollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580
        Me.btnAddUser_FollowUp.Name = "btnAddUser_FollowUp"
-        Me.btnAddUser_FollowUp.UseVisualStyleBackColor = true
+        Me.btnAddUser_FollowUp.UseVisualStyleBackColor = True
        '
        'cmbFollowUpUser
        '
        resources.ApplyResources(Me.cmbFollowUpUser, "cmbFollowUpUser")
-        Me.cmbFollowUpUser.FormattingEnabled = true
+        Me.cmbFollowUpUser.FormattingEnabled = True
        Me.cmbFollowUpUser.Name = "cmbFollowUpUser"
        '
        'Label6
@@ -1018,7 +1038,7 @@ Partial Class frmConstructor_Main
        'ListBoxUser2Profile
        '
        resources.ApplyResources(Me.ListBoxUser2Profile, "ListBoxUser2Profile")
-        Me.ListBoxUser2Profile.FormattingEnabled = true
+        Me.ListBoxUser2Profile.FormattingEnabled = True
        Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile"
        '
        'Label7
@@ -1036,7 +1056,7 @@ Partial Class frmConstructor_Main
        '
        resources.ApplyResources(Me.chkFollowUp, "chkFollowUp")
        Me.chkFollowUp.Name = "chkFollowUp"
-        Me.chkFollowUp.UseVisualStyleBackColor = true
+        Me.chkFollowUp.UseVisualStyleBackColor = True
        '
        'dtpFollowUp
        '
@@ -1058,9 +1078,9 @@ Partial Class frmConstructor_Main
        '
        Me.TabPos.Controls.Add(Me.Panel1)
        Me.TabPos.Controls.Add(Me.BindingNavigatorPOS)
-        Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"),System.Drawing.Image)
+        Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
        Me.TabPos.Name = "TabPos"
-        Me.TabPos.PageVisible = false
+        Me.TabPos.PageVisible = False
        resources.ApplyResources(Me.TabPos, "TabPos")
        '
        'Panel1
@@ -1078,12 +1098,12 @@ Partial Class frmConstructor_Main
        '
        'grvwGridPos
        '
-        Me.grvwGridPos.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGridPos.Appearance.EvenRow.BackColor"),System.Drawing.Color)
-        Me.grvwGridPos.Appearance.EvenRow.Options.UseBackColor = true
+        Me.grvwGridPos.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGridPos.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.grvwGridPos.Appearance.EvenRow.Options.UseBackColor = True
        Me.grvwGridPos.GridControl = Me.GridControlPos
        Me.grvwGridPos.Name = "grvwGridPos"
-        Me.grvwGridPos.OptionsView.EnableAppearanceEvenRow = true
-        Me.grvwGridPos.OptionsView.ShowAutoFilterRow = true
+        Me.grvwGridPos.OptionsView.EnableAppearanceEvenRow = True
+        Me.grvwGridPos.OptionsView.ShowAutoFilterRow = True
        '
        'BindingNavigatorPOS
        '
@@ -1161,21 +1181,123 @@ Partial Class frmConstructor_Main
        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
        resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
        '
-        'XtraTabPageVariant
+        'TabPageVariant
        '
-        Me.XtraTabPageVariant.Appearance.Header.BackColor = CType(resources.GetObject("XtraTabPageVariant.Appearance.Header.BackColor"),System.Drawing.Color)
-        Me.XtraTabPageVariant.Appearance.Header.Font = CType(resources.GetObject("XtraTabPageVariant.Appearance.Header.Font"),System.Drawing.Font)
-        Me.XtraTabPageVariant.Appearance.Header.ForeColor = CType(resources.GetObject("XtraTabPageVariant.Appearance.Header.ForeColor"),System.Drawing.Color)
-        Me.XtraTabPageVariant.Appearance.Header.Options.UseBackColor = true
-        Me.XtraTabPageVariant.Appearance.Header.Options.UseFont = true
-        Me.XtraTabPageVariant.Appearance.Header.Options.UseForeColor = true
-        Me.XtraTabPageVariant.Name = "XtraTabPageVariant"
-        Me.XtraTabPageVariant.PageVisible = false
-        resources.ApplyResources(Me.XtraTabPageVariant, "XtraTabPageVariant")
+        Me.TabPageVariant.Appearance.Header.BackColor = CType(resources.GetObject("TabPageVariant.Appearance.Header.BackColor"), System.Drawing.Color)
+        Me.TabPageVariant.Appearance.Header.Font = CType(resources.GetObject("TabPageVariant.Appearance.Header.Font"), System.Drawing.Font)
+        Me.TabPageVariant.Appearance.Header.ForeColor = CType(resources.GetObject("TabPageVariant.Appearance.Header.ForeColor"), System.Drawing.Color)
+        Me.TabPageVariant.Appearance.Header.Options.UseBackColor = True
+        Me.TabPageVariant.Appearance.Header.Options.UseFont = True
+        Me.TabPageVariant.Appearance.Header.Options.UseForeColor = True
+        Me.TabPageVariant.Controls.Add(Me.GridControl1)
+        Me.TabPageVariant.Controls.Add(Me.tsVariants)
+        Me.TabPageVariant.Name = "TabPageVariant"
+        Me.TabPageVariant.PageVisible = False
+        resources.ApplyResources(Me.TabPageVariant, "TabPageVariant")
+        '
+        'GridControl1
+        '
+        Me.GridControl1.DataSource = Me.TBPMO_RECORD_VARIANTBindingSource
+        resources.ApplyResources(Me.GridControl1, "GridControl1")
+        Me.GridControl1.MainView = Me.GridViewVariants
+        Me.GridControl1.Name = "GridControl1"
+        Me.GridControl1.ShowOnlyPredefinedDetails = True
+        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewVariants})
+        '
+        'TBPMO_RECORD_VARIANTBindingSource
+        '
+        Me.TBPMO_RECORD_VARIANTBindingSource.DataMember = "TBPMO_RECORD_VARIANT"
+        Me.TBPMO_RECORD_VARIANTBindingSource.DataSource = Me.DD_DMSDataSet
+        '
+        'DD_DMSDataSet
+        '
+        Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
+        Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'GridViewVariants
+        '
+        Me.GridViewVariants.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewVariants.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewVariants.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewVariants.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.colREASON_CODE, Me.colCOMMENT, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colRECORD_ID})
+        Me.GridViewVariants.GridControl = Me.GridControl1
+        Me.GridViewVariants.Name = "GridViewVariants"
+        Me.GridViewVariants.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewVariants.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewVariants.OptionsBehavior.Editable = False
+        Me.GridViewVariants.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewVariants.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewVariants.OptionsView.ColumnAutoWidth = False
+        Me.GridViewVariants.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewVariants.OptionsView.ShowAutoFilterRow = True
+        Me.GridViewVariants.OptionsView.ShowGroupPanel = False
+        '
+        'GridColumn1
+        '
+        resources.ApplyResources(Me.GridColumn1, "GridColumn1")
+        Me.GridColumn1.FieldName = "GUID"
+        Me.GridColumn1.Name = "GridColumn1"
+        '
+        'colREASON_CODE
+        '
+        resources.ApplyResources(Me.colREASON_CODE, "colREASON_CODE")
+        Me.colREASON_CODE.FieldName = "REASON_CODE"
+        Me.colREASON_CODE.Name = "colREASON_CODE"
+        '
+        'colCOMMENT
+        '
+        resources.ApplyResources(Me.colCOMMENT, "colCOMMENT")
+        Me.colCOMMENT.FieldName = "COMMENT"
+        Me.colCOMMENT.Name = "colCOMMENT"
+        '
+        'colADDED_WHO
+        '
+        resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO")
+        Me.colADDED_WHO.FieldName = "ADDED_WHO"
+        Me.colADDED_WHO.Name = "colADDED_WHO"
+        '
+        'colADDED_WHEN
+        '
+        resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN")
+        Me.colADDED_WHEN.FieldName = "ADDED_WHEN"
+        Me.colADDED_WHEN.Name = "colADDED_WHEN"
+        '
+        'colRECORD_ID
+        '
+        resources.ApplyResources(Me.colRECORD_ID, "colRECORD_ID")
+        Me.colRECORD_ID.FieldName = "RECORD_ID"
+        Me.colRECORD_ID.Name = "colRECORD_ID"
+        '
+        'tsVariants
+        '
+        Me.tsVariants.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblVariantsCount, Me.ToolStripSeparator23, Me.ToolStripButton1, Me.tsbtnVariantDetailView})
+        resources.ApplyResources(Me.tsVariants, "tsVariants")
+        Me.tsVariants.Name = "tsVariants"
+        '
+        'tslblVariantsCount
+        '
+        resources.ApplyResources(Me.tslblVariantsCount, "tslblVariantsCount")
+        Me.tslblVariantsCount.Name = "tslblVariantsCount"
+        '
+        'ToolStripSeparator23
+        '
+        Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
+        resources.ApplyResources(Me.ToolStripSeparator23, "ToolStripSeparator23")
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG
+        resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        '
+        'tsbtnVariantDetailView
+        '
+        Me.tsbtnVariantDetailView.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
+        resources.ApplyResources(Me.tsbtnVariantDetailView, "tsbtnVariantDetailView")
+        Me.tsbtnVariantDetailView.Name = "tsbtnVariantDetailView"
        '
        'SplitContainerFORM
        '
-        Me.SplitContainerFORM.Collapsed = true
+        Me.SplitContainerFORM.Collapsed = True
        Me.SplitContainerFORM.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
        resources.ApplyResources(Me.SplitContainerFORM, "SplitContainerFORM")
        Me.SplitContainerFORM.Name = "SplitContainerFORM"
@@ -1210,8 +1332,8 @@ Partial Class frmConstructor_Main
        '
        Me.NavButtonHome.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
        Me.NavButtonHome.Caption = ""
-        Me.NavButtonHome.Glyph = CType(resources.GetObject("NavButtonHome.Glyph"),System.Drawing.Image)
-        Me.NavButtonHome.IsMain = true
+        Me.NavButtonHome.Glyph = CType(resources.GetObject("NavButtonHome.Glyph"), System.Drawing.Image)
+        Me.NavButtonHome.IsMain = True
        Me.NavButtonHome.Name = "NavButtonHome"
        '
        'NavButtonRefresh
@@ -1219,7 +1341,7 @@ Partial Class frmConstructor_Main
        Me.NavButtonRefresh.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right
        Me.NavButtonRefresh.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
        Me.NavButtonRefresh.Caption = ""
-        Me.NavButtonRefresh.Glyph = CType(resources.GetObject("NavButtonRefresh.Glyph"),System.Drawing.Image)
+        Me.NavButtonRefresh.Glyph = CType(resources.GetObject("NavButtonRefresh.Glyph"), System.Drawing.Image)
        Me.NavButtonRefresh.Name = "NavButtonRefresh"
        '
        'StatusStrip_Main
@@ -1230,9 +1352,9 @@ Partial Class frmConstructor_Main
        '
        'tsslblStatus
        '
-        Me.tsslblStatus.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top)  _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right)  _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.tsslblStatus.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
        Me.tsslblStatus.BorderStyle = System.Windows.Forms.Border3DStyle.Etched
        Me.tsslblStatus.Name = "tsslblStatus"
        resources.ApplyResources(Me.tsslblStatus, "tsslblStatus")
@@ -1240,17 +1362,17 @@ Partial Class frmConstructor_Main
        'tsslblRecord
        '
        Me.tsslblRecord.BackColor = System.Drawing.SystemColors.ControlLight
-        Me.tsslblRecord.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top)  _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right)  _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.tsslblRecord.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
        Me.tsslblRecord.Name = "tsslblRecord"
        resources.ApplyResources(Me.tsslblRecord, "tsslblRecord")
        '
        'tslblDocIDMain
        '
-        Me.tslblDocIDMain.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top)  _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right)  _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.tslblDocIDMain.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
        Me.tslblDocIDMain.Name = "tslblDocIDMain"
        resources.ApplyResources(Me.tslblDocIDMain, "tslblDocIDMain")
        '
@@ -1278,25 +1400,20 @@ Partial Class frmConstructor_Main
        '
        'ImageCollection1
        '
-        Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"),DevExpress.Utils.ImageCollectionStreamer)
+        Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
        '
        'ContextMenuDetails
        '
        Me.ContextMenuDetails.Name = "ContextMenuDetails"
        resources.ApplyResources(Me.ContextMenuDetails, "ContextMenuDetails")
        '
-        'DD_DMSDataSet
-        '
-        Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
-        Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
        'VWPMO_WF_USER_ACTIVETableAdapter
        '
-        Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = true
+        Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True
        '
        'TableAdapterManager
        '
-        Me.TableAdapterManager.BackupDataSetBeforeUpdate = false
+        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
        Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
@@ -1337,7 +1454,7 @@ Partial Class frmConstructor_Main
        '
        'TBPMO_FILES_USERTableAdapter
        '
-        Me.TBPMO_FILES_USERTableAdapter.ClearBeforeFill = true
+        Me.TBPMO_FILES_USERTableAdapter.ClearBeforeFill = True
        '
        'VWPMO_WF_ACTIVEBindingSource
        '
@@ -1346,7 +1463,7 @@ Partial Class frmConstructor_Main
        '
        'VWPMO_WF_ACTIVETableAdapter
        '
-        Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = true
+        Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
        '
        'TBPMO_FILES_USERBindingSource
        '
@@ -1356,7 +1473,11 @@ Partial Class frmConstructor_Main
        'RealTimeSource1
        '
        Me.RealTimeSource1.DisplayableProperties = Nothing
-        Me.RealTimeSource1.UseWeakEventHandler = true
+        Me.RealTimeSource1.UseWeakEventHandler = True
+        '
+        'TBPMO_RECORD_VARIANTTableAdapter
+        '
+        Me.TBPMO_RECORD_VARIANTTableAdapter.ClearBeforeFill = True
        '
        'frmConstructor_Main
        '
@@ -1366,62 +1487,69 @@ Partial Class frmConstructor_Main
        Me.Controls.Add(Me.StatusStrip_Main)
        Me.Controls.Add(Me.NavPane)
        Me.Name = "frmConstructor_Main"
-        CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).EndInit
-        Me.SplitContainerMain.ResumeLayout(false)
-        CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit
-        Me.SplitContainerTop.ResumeLayout(false)
-        Me.CMSEntity.ResumeLayout(false)
-        CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ContextMenuGrid.ResumeLayout(false)
-        CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ToolStripRecords.ResumeLayout(false)
-        Me.ToolStripRecords.PerformLayout
-        CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).EndInit
-        Me.TCDetails.ResumeLayout(false)
-        Me.TabDetails.ResumeLayout(false)
-        Me.TabDetails.PerformLayout
-        CType(Me.SplitContainerDetails,System.ComponentModel.ISupportInitialize).EndInit
-        Me.SplitContainerDetails.ResumeLayout(false)
-        Me.pnlDocFill.ResumeLayout(false)
-        Me.pnlDocFill.PerformLayout
-        Me.statStripDoc.ResumeLayout(false)
-        Me.statStripDoc.PerformLayout
-        Me.ToolStripEdit.ResumeLayout(false)
-        Me.ToolStripEdit.PerformLayout
-        Me.TabWindream.ResumeLayout(false)
-        Me.TabWindream.PerformLayout
-        CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ContextMenuStripResultFiles.ResumeLayout(false)
-        CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ToolStripDokumente.ResumeLayout(false)
-        Me.ToolStripDokumente.PerformLayout
-        Me.TabFollowUp.ResumeLayout(false)
-        Me.TabFollowUp.PerformLayout
-        Me.grpbxFU_Profile.ResumeLayout(false)
-        Me.grpbxFU_Profile.PerformLayout
-        Me.GroupBox4.ResumeLayout(false)
-        Me.GroupBox4.PerformLayout
-        Me.TabPos.ResumeLayout(false)
-        Me.TabPos.PerformLayout
-        Me.Panel1.ResumeLayout(false)
-        CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).EndInit
-        Me.BindingNavigatorPOS.ResumeLayout(false)
-        Me.BindingNavigatorPOS.PerformLayout
-        CType(Me.SplitContainerFORM,System.ComponentModel.ISupportInitialize).EndInit
-        Me.SplitContainerFORM.ResumeLayout(false)
-        Me.StatusStrip_Main.ResumeLayout(false)
-        Me.StatusStrip_Main.PerformLayout
-        CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.TBPMO_FILES_USERBindingSource,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ResumeLayout(false)
+        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerMain.ResumeLayout(False)
+        CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerTop.ResumeLayout(False)
+        Me.CMSEntity.ResumeLayout(False)
+        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuGrid.ResumeLayout(False)
+        CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ToolStripRecords.ResumeLayout(False)
+        Me.ToolStripRecords.PerformLayout()
+        CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TCDetails.ResumeLayout(False)
+        Me.TabDetails.ResumeLayout(False)
+        Me.TabDetails.PerformLayout()
+        CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerDetails.ResumeLayout(False)
+        Me.pnlDocFill.ResumeLayout(False)
+        Me.pnlDocFill.PerformLayout()
+        Me.statStripDoc.ResumeLayout(False)
+        Me.statStripDoc.PerformLayout()
+        Me.ToolStripEdit.ResumeLayout(False)
+        Me.ToolStripEdit.PerformLayout()
+        Me.TabWindream.ResumeLayout(False)
+        Me.TabWindream.PerformLayout()
+        CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStripResultFiles.ResumeLayout(False)
+        CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ToolStripDokumente.ResumeLayout(False)
+        Me.ToolStripDokumente.PerformLayout()
+        Me.TabFollowUp.ResumeLayout(False)
+        Me.TabFollowUp.PerformLayout()
+        Me.grpbxFU_Profile.ResumeLayout(False)
+        Me.grpbxFU_Profile.PerformLayout()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
+        Me.TabPos.ResumeLayout(False)
+        Me.TabPos.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.BindingNavigatorPOS.ResumeLayout(False)
+        Me.BindingNavigatorPOS.PerformLayout()
+        Me.TabPageVariant.ResumeLayout(False)
+        Me.TabPageVariant.PerformLayout()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBPMO_RECORD_VARIANTBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewVariants, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.tsVariants.ResumeLayout(False)
+        Me.tsVariants.PerformLayout()
+        CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerFORM.ResumeLayout(False)
+        Me.StatusStrip_Main.ResumeLayout(False)
+        Me.StatusStrip_Main.PerformLayout()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
        Me.PerformLayout

 End Sub
@@ -1575,7 +1703,7 @@ End Sub
    Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
-    Friend WithEvents XtraTabPageVariant As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents TabPageVariant As DevExpress.XtraTab.XtraTabPage
    Friend WithEvents SplitContainerDetails As DevExpress.XtraEditors.SplitContainerControl
    Friend WithEvents tsbtnRefresh_Entity As System.Windows.Forms.ToolStripButton
    Friend WithEvents ToolStripSeparator19 As System.Windows.Forms.ToolStripSeparator
@@ -1590,4 +1718,19 @@ End Sub
    Friend WithEvents tslblDocIDTab1 As System.Windows.Forms.ToolStripStatusLabel
    Friend WithEvents tslblDocViewLocked As System.Windows.Forms.ToolStripStatusLabel
    Friend WithEvents tslblDocIDMain As System.Windows.Forms.ToolStripStatusLabel
+    Friend WithEvents tsVariants As System.Windows.Forms.ToolStrip
+    Friend WithEvents tslblVariantsCount As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents ToolStripSeparator23 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TBPMO_RECORD_VARIANTBindingSource As System.Windows.Forms.BindingSource
+    Friend WithEvents TBPMO_RECORD_VARIANTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter
+    Friend WithEvents tsbtnVariantDetailView As System.Windows.Forms.ToolStripButton
+    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewVariants As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colREASON_CODE As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colCOMMENT As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colRECORD_ID As DevExpress.XtraGrid.Columns.GridColumn
 End Class