MS

2016-08-24 10:17:51 +02:00
parent d7fc187148
commit 3f636e6812
22 changed files with 3134 additions and 414 deletions
--- a/app/RecordOrganizer_RightManager/frmStart.Designer.vb
+++ b/app/RecordOrganizer_RightManager/frmStart.Designer.vb
@@ -27,12 +27,40 @@ Partial Class frmStart
        Me.btnWorkUserRights = New System.Windows.Forms.Button()
        Me.btnWorkUserRightsSV_ADD = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
+        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
+        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
+        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.btnrefreshJobs = New System.Windows.Forms.Button()
+        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+        Me.VWPMO_RIGHTS_2B_WORKEDBindingSource = New System.Windows.Forms.BindingSource()
+        Me.MyDataset = New RecordOrganizer_RightManager.MyDataset()
+        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colDOC_ID = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colRIGHT_MODIFY = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colFILE_RIGHT = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colWORKING = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter = New RecordOrganizer_RightManager.MyDatasetTableAdapters.VWPMO_RIGHTS_2B_WORKEDTableAdapter()
+        Me.TableAdapterManager = New RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager()
+        Me.chkLogerrorsonly = New System.Windows.Forms.CheckBox()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControl1.SuspendLayout()
+        Me.XtraTabPage1.SuspendLayout()
+        Me.XtraTabPage2.SuspendLayout()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.VWPMO_RIGHTS_2B_WORKEDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button1.Location = New System.Drawing.Point(12, 12)
+        Me.Button1.Location = New System.Drawing.Point(3, 14)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(312, 45)
        Me.Button1.TabIndex = 0
@@ -43,7 +71,7 @@ Partial Class frmStart
        '
        Me.btnWorkUserRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnWorkUserRights.ForeColor = System.Drawing.Color.DarkRed
-        Me.btnWorkUserRights.Location = New System.Drawing.Point(12, 63)
+        Me.btnWorkUserRights.Location = New System.Drawing.Point(3, 65)
        Me.btnWorkUserRights.Name = "btnWorkUserRights"
        Me.btnWorkUserRights.Size = New System.Drawing.Size(312, 45)
        Me.btnWorkUserRights.TabIndex = 2
@@ -54,7 +82,7 @@ Partial Class frmStart
        '
        Me.btnWorkUserRightsSV_ADD.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnWorkUserRightsSV_ADD.ForeColor = System.Drawing.Color.DarkRed
-        Me.btnWorkUserRightsSV_ADD.Location = New System.Drawing.Point(12, 114)
+        Me.btnWorkUserRightsSV_ADD.Location = New System.Drawing.Point(3, 116)
        Me.btnWorkUserRightsSV_ADD.Name = "btnWorkUserRightsSV_ADD"
        Me.btnWorkUserRightsSV_ADD.Size = New System.Drawing.Size(312, 45)
        Me.btnWorkUserRightsSV_ADD.TabIndex = 3
@@ -63,9 +91,10 @@ Partial Class frmStart
        '
        'Button2
        '
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Button2.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.folder_Closed_16xSM
        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.Location = New System.Drawing.Point(706, 23)
+        Me.Button2.Location = New System.Drawing.Point(703, 14)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(111, 23)
        Me.Button2.TabIndex = 1
@@ -73,20 +102,213 @@ Partial Class frmStart
        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button2.UseVisualStyleBackColor = True
        '
+        'XtraTabControl1
+        '
+        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
+        Me.XtraTabControl1.Name = "XtraTabControl1"
+        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
+        Me.XtraTabControl1.Size = New System.Drawing.Size(827, 332)
+        Me.XtraTabControl1.TabIndex = 4
+        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
+        '
+        'XtraTabPage1
+        '
+        Me.XtraTabPage1.Controls.Add(Me.chkLogerrorsonly)
+        Me.XtraTabPage1.Controls.Add(Me.Button1)
+        Me.XtraTabPage1.Controls.Add(Me.Button2)
+        Me.XtraTabPage1.Controls.Add(Me.btnWorkUserRightsSV_ADD)
+        Me.XtraTabPage1.Controls.Add(Me.btnWorkUserRights)
+        Me.XtraTabPage1.Name = "XtraTabPage1"
+        Me.XtraTabPage1.Size = New System.Drawing.Size(821, 304)
+        Me.XtraTabPage1.Text = "Jobs and Tools"
+        '
+        'XtraTabPage2
+        '
+        Me.XtraTabPage2.AutoScroll = True
+        Me.XtraTabPage2.Controls.Add(Me.btnrefreshJobs)
+        Me.XtraTabPage2.Controls.Add(Me.GridControl1)
+        Me.XtraTabPage2.Controls.Add(Me.Label1)
+        Me.XtraTabPage2.Name = "XtraTabPage2"
+        Me.XtraTabPage2.Size = New System.Drawing.Size(821, 304)
+        Me.XtraTabPage2.Text = "Rights 2b worked"
+        '
+        'btnrefreshJobs
+        '
+        Me.btnrefreshJobs.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnrefreshJobs.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.refresh_16xMD
+        Me.btnrefreshJobs.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnrefreshJobs.Location = New System.Drawing.Point(739, 5)
+        Me.btnrefreshJobs.Name = "btnrefreshJobs"
+        Me.btnrefreshJobs.Size = New System.Drawing.Size(75, 23)
+        Me.btnrefreshJobs.TabIndex = 2
+        Me.btnrefreshJobs.Text = "Refresh"
+        Me.btnrefreshJobs.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnrefreshJobs.UseVisualStyleBackColor = True
+        '
+        'GridControl1
+        '
+        Me.GridControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.GridControl1.DataSource = Me.VWPMO_RIGHTS_2B_WORKEDBindingSource
+        Me.GridControl1.Location = New System.Drawing.Point(11, 34)
+        Me.GridControl1.MainView = Me.GridView1
+        Me.GridControl1.Name = "GridControl1"
+        Me.GridControl1.Size = New System.Drawing.Size(803, 263)
+        Me.GridControl1.TabIndex = 1
+        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        '
+        'VWPMO_RIGHTS_2B_WORKEDBindingSource
+        '
+        Me.VWPMO_RIGHTS_2B_WORKEDBindingSource.DataMember = "VWPMO_RIGHTS_2B_WORKED"
+        Me.VWPMO_RIGHTS_2B_WORKEDBindingSource.DataSource = Me.MyDataset
+        '
+        'MyDataset
+        '
+        Me.MyDataset.DataSetName = "MyDataset"
+        Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'GridView1
+        '
+        Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colDOC_ID, Me.colUSERNAME, Me.colRIGHT_MODIFY, Me.colFILE_RIGHT, Me.colWORKING, Me.colADDED_WHO, Me.colADDED_WHEN})
+        Me.GridView1.GridControl = Me.GridControl1
+        Me.GridView1.Name = "GridView1"
+        Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsBehavior.Editable = False
+        Me.GridView1.OptionsBehavior.ReadOnly = True
+        Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridView1.OptionsView.ColumnAutoWidth = False
+        Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridView1.OptionsView.ShowAutoFilterRow = True
+        '
+        'colGUID
+        '
+        Me.colGUID.Caption = "ID"
+        Me.colGUID.FieldName = "GUID"
+        Me.colGUID.Name = "colGUID"
+        Me.colGUID.Visible = True
+        Me.colGUID.VisibleIndex = 0
+        Me.colGUID.Width = 43
+        '
+        'colDOC_ID
+        '
+        Me.colDOC_ID.Caption = "DocID"
+        Me.colDOC_ID.FieldName = "DOC_ID"
+        Me.colDOC_ID.Name = "colDOC_ID"
+        Me.colDOC_ID.Visible = True
+        Me.colDOC_ID.VisibleIndex = 1
+        Me.colDOC_ID.Width = 56
+        '
+        'colUSERNAME
+        '
+        Me.colUSERNAME.Caption = "Username"
+        Me.colUSERNAME.FieldName = "USERNAME"
+        Me.colUSERNAME.Name = "colUSERNAME"
+        Me.colUSERNAME.Visible = True
+        Me.colUSERNAME.VisibleIndex = 2
+        Me.colUSERNAME.Width = 155
+        '
+        'colRIGHT_MODIFY
+        '
+        Me.colRIGHT_MODIFY.Caption = "Type"
+        Me.colRIGHT_MODIFY.FieldName = "RIGHT_MODIFY"
+        Me.colRIGHT_MODIFY.Name = "colRIGHT_MODIFY"
+        Me.colRIGHT_MODIFY.Visible = True
+        Me.colRIGHT_MODIFY.VisibleIndex = 3
+        Me.colRIGHT_MODIFY.Width = 120
+        '
+        'colFILE_RIGHT
+        '
+        Me.colFILE_RIGHT.Caption = "file right"
+        Me.colFILE_RIGHT.FieldName = "FILE_RIGHT"
+        Me.colFILE_RIGHT.Name = "colFILE_RIGHT"
+        Me.colFILE_RIGHT.Visible = True
+        Me.colFILE_RIGHT.VisibleIndex = 4
+        Me.colFILE_RIGHT.Width = 151
+        '
+        'colWORKING
+        '
+        Me.colWORKING.Caption = "working?"
+        Me.colWORKING.FieldName = "WORKING"
+        Me.colWORKING.Name = "colWORKING"
+        Me.colWORKING.Visible = True
+        Me.colWORKING.VisibleIndex = 5
+        Me.colWORKING.Width = 52
+        '
+        'colADDED_WHO
+        '
+        Me.colADDED_WHO.Caption = "Added who"
+        Me.colADDED_WHO.FieldName = "ADDED_WHO"
+        Me.colADDED_WHO.Name = "colADDED_WHO"
+        Me.colADDED_WHO.Visible = True
+        Me.colADDED_WHO.VisibleIndex = 6
+        Me.colADDED_WHO.Width = 73
+        '
+        'colADDED_WHEN
+        '
+        Me.colADDED_WHEN.Caption = "Added when"
+        Me.colADDED_WHEN.FieldName = "ADDED_WHEN"
+        Me.colADDED_WHEN.Name = "colADDED_WHEN"
+        Me.colADDED_WHEN.Visible = True
+        Me.colADDED_WHEN.VisibleIndex = 7
+        Me.colADDED_WHEN.Width = 134
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(11, 10)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(536, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Following rights will be set within the next minutes.  If not check wether Servic" & _
+    "e DD Rights Manager is running."
+        '
+        'VWPMO_RIGHTS_2B_WORKEDTableAdapter
+        '
+        Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter.ClearBeforeFill = True
+        '
+        'TableAdapterManager
+        '
+        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.Connection = Nothing
+        Me.TableAdapterManager.UpdateOrder = RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        '
+        'chkLogerrorsonly
+        '
+        Me.chkLogerrorsonly.AutoSize = True
+        Me.chkLogerrorsonly.Location = New System.Drawing.Point(624, 43)
+        Me.chkLogerrorsonly.Name = "chkLogerrorsonly"
+        Me.chkLogerrorsonly.Size = New System.Drawing.Size(190, 17)
+        Me.chkLogerrorsonly.TabIndex = 4
+        Me.chkLogerrorsonly.Text = "Service DDRights - Log errors only"
+        Me.chkLogerrorsonly.UseVisualStyleBackColor = True
+        '
        'frmStart
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(829, 173)
-        Me.Controls.Add(Me.btnWorkUserRightsSV_ADD)
-        Me.Controls.Add(Me.btnWorkUserRights)
-        Me.Controls.Add(Me.Button2)
-        Me.Controls.Add(Me.Button1)
+        Me.ClientSize = New System.Drawing.Size(827, 332)
+        Me.Controls.Add(Me.XtraTabControl1)
        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmStart"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Rights Manager"
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControl1.ResumeLayout(False)
+        Me.XtraTabPage1.ResumeLayout(False)
+        Me.XtraTabPage1.PerformLayout()
+        Me.XtraTabPage2.ResumeLayout(False)
+        Me.XtraTabPage2.PerformLayout()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.VWPMO_RIGHTS_2B_WORKEDBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
@@ -94,5 +316,25 @@ Partial Class frmStart
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents btnWorkUserRights As System.Windows.Forms.Button
    Friend WithEvents btnWorkUserRightsSV_ADD As System.Windows.Forms.Button
+    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents MyDataset As RecordOrganizer_RightManager.MyDataset
+    Friend WithEvents VWPMO_RIGHTS_2B_WORKEDBindingSource As System.Windows.Forms.BindingSource
+    Friend WithEvents VWPMO_RIGHTS_2B_WORKEDTableAdapter As RecordOrganizer_RightManager.MyDatasetTableAdapters.VWPMO_RIGHTS_2B_WORKEDTableAdapter
+    Friend WithEvents TableAdapterManager As RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager
+    Friend WithEvents btnrefreshJobs As System.Windows.Forms.Button
+    Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colDOC_ID As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colRIGHT_MODIFY As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colFILE_RIGHT As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colWORKING 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 chkLogerrorsonly As System.Windows.Forms.CheckBox

 End Class