MS2

2017-03-07 16:51:36 +01:00
parent d821a07c18
commit dd721411f8
13 changed files with 681 additions and 120 deletions
--- a/app/RecordOrganizer_RightManager/frmStart.Designer.vb
+++ b/app/RecordOrganizer_RightManager/frmStart.Designer.vb
@@ -25,10 +25,11 @@ Partial Class frmStart
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
        Me.Button1 = New System.Windows.Forms.Button()
        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.btnCheckRenewRecordRights = New System.Windows.Forms.Button()
+        Me.btnCheckRenewUserRights = New System.Windows.Forms.Button()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.chkLogerrorsonly = New System.Windows.Forms.CheckBox()
        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
@@ -48,7 +49,6 @@ Partial Class frmStart
        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.btnCheckRenewUserRights = New System.Windows.Forms.Button()
        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabControl1.SuspendLayout()
        Me.XtraTabPage1.SuspendLayout()
@@ -67,31 +67,20 @@ Partial Class frmStart
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(312, 45)
        Me.Button1.TabIndex = 0
-        Me.Button1.Text = "Check Rights for documents belonging to entity"
+        Me.Button1.Text = "Check Rights for all documents " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "belonging to entity"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'btnWorkUserRights
        '
        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(3, 114)
+        Me.btnWorkUserRights.Location = New System.Drawing.Point(-1, 158)
        Me.btnWorkUserRights.Name = "btnWorkUserRights"
        Me.btnWorkUserRights.Size = New System.Drawing.Size(312, 45)
        Me.btnWorkUserRights.TabIndex = 2
        Me.btnWorkUserRights.Text = "Work User"
        Me.btnWorkUserRights.UseVisualStyleBackColor = True
        '
-        'btnWorkUserRightsSV_ADD
-        '
-        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(0, 164)
-        Me.btnWorkUserRightsSV_ADD.Name = "btnWorkUserRightsSV_ADD"
-        Me.btnWorkUserRightsSV_ADD.Size = New System.Drawing.Size(312, 45)
-        Me.btnWorkUserRightsSV_ADD.TabIndex = 3
-        Me.btnWorkUserRightsSV_ADD.Text = "Work User"
-        Me.btnWorkUserRightsSV_ADD.UseVisualStyleBackColor = True
-        '
        'Button2
        '
        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -117,16 +106,36 @@ Partial Class frmStart
        '
        'XtraTabPage1
        '
+        Me.XtraTabPage1.Controls.Add(Me.btnCheckRenewRecordRights)
        Me.XtraTabPage1.Controls.Add(Me.btnCheckRenewUserRights)
        Me.XtraTabPage1.Controls.Add(Me.GroupBox1)
        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(825, 222)
        Me.XtraTabPage1.Text = "Jobs and Tools"
        '
+        'btnCheckRenewRecordRights
+        '
+        Me.btnCheckRenewRecordRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnCheckRenewRecordRights.Location = New System.Drawing.Point(3, 114)
+        Me.btnCheckRenewRecordRights.Name = "btnCheckRenewRecordRights"
+        Me.btnCheckRenewRecordRights.Size = New System.Drawing.Size(312, 45)
+        Me.btnCheckRenewRecordRights.TabIndex = 8
+        Me.btnCheckRenewRecordRights.Text = "Check or Renew Rights for explicit records"
+        Me.btnCheckRenewRecordRights.UseVisualStyleBackColor = True
+        '
+        'btnCheckRenewUserRights
+        '
+        Me.btnCheckRenewUserRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnCheckRenewUserRights.Location = New System.Drawing.Point(3, 63)
+        Me.btnCheckRenewUserRights.Name = "btnCheckRenewUserRights"
+        Me.btnCheckRenewUserRights.Size = New System.Drawing.Size(312, 45)
+        Me.btnCheckRenewUserRights.TabIndex = 7
+        Me.btnCheckRenewUserRights.Text = "Check or Renew Rights for Users"
+        Me.btnCheckRenewUserRights.UseVisualStyleBackColor = True
+        '
        'GroupBox1
        '
        Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -155,7 +164,7 @@ Partial Class frmStart
        Me.XtraTabPage2.Controls.Add(Me.GridControl1)
        Me.XtraTabPage2.Controls.Add(Me.Label1)
        Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(825, 307)
+        Me.XtraTabPage2.Size = New System.Drawing.Size(825, 222)
        Me.XtraTabPage2.Text = "Rights 2b worked"
        '
        'btnrefreshJobs
@@ -303,16 +312,6 @@ Partial Class frmStart
        Me.TableAdapterManager.Connection = Nothing
        Me.TableAdapterManager.UpdateOrder = RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
        '
-        'btnCheckRenewUserRights
-        '
-        Me.btnCheckRenewUserRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnCheckRenewUserRights.Location = New System.Drawing.Point(3, 63)
-        Me.btnCheckRenewUserRights.Name = "btnCheckRenewUserRights"
-        Me.btnCheckRenewUserRights.Size = New System.Drawing.Size(312, 45)
-        Me.btnCheckRenewUserRights.TabIndex = 7
-        Me.btnCheckRenewUserRights.Text = "Check or Renew Rights for Users"
-        Me.btnCheckRenewUserRights.UseVisualStyleBackColor = True
-        '
        'frmStart
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -341,7 +340,6 @@ Partial Class frmStart
    Friend WithEvents Button1 As System.Windows.Forms.Button
    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
@@ -364,5 +362,6 @@ Partial Class frmStart
    Friend WithEvents chkLogerrorsonly As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents btnCheckRenewUserRights As System.Windows.Forms.Button
+    Friend WithEvents btnCheckRenewRecordRights As System.Windows.Forms.Button

 End Class