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/App.config
+++ b/app/RecordOrganizer_RightManager/App.config
@@ -5,6 +5,11 @@
            <section name="RecordOrganizer_RightManager.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
        </sectionGroup>
    </configSections>
+    <connectionStrings>
+        <add name="RecordOrganizer_RightManager.My.MySettings.DD_ECMConnectionString"
+            connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;User ID=sa;Password=dd"
+            providerName="System.Data.SqlClient" />
+    </connectionStrings>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
    </startup>
--- a/app/RecordOrganizer_RightManager/My
+++ b/app/RecordOrganizer_RightManager/My
@@ -99,5 +99,15 @@ Namespace My.Resources
                Return CType(obj,System.Drawing.Bitmap)
            End Get
        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property refresh_16xMD() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("refresh_16xMD", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
    End Module
 End Namespace
--- a/app/RecordOrganizer_RightManager/My
+++ b/app/RecordOrganizer_RightManager/My
@@ -124,10 +124,13 @@
  <data name="folder_Closed_16xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\folder_Closed_16xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="cancel1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\cancel1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
  <data name="112_RightArrowShort_Blue_24x24_72" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\112_RightArrowShort_Blue_24x24_72.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
+  <data name="cancel1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\cancel1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>
--- a/app/RecordOrganizer_RightManager/My
+++ b/app/RecordOrganizer_RightManager/My
@@ -66,6 +66,17 @@ Namespace My
                Me("MyConnectionString") = value
            End Set
        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;User ID=sa;Password"& _ 
+            "=dd")>  _
+        Public ReadOnly Property DD_ECMConnectionString() As String
+            Get
+                Return CType(Me("DD_ECMConnectionString"),String)
+            End Get
+        End Property
    End Class
 End Namespace

--- a/app/RecordOrganizer_RightManager/My
+++ b/app/RecordOrganizer_RightManager/My
@@ -5,5 +5,13 @@
    <Setting Name="MyConnectionString" Roaming="true" Type="System.String" Scope="User">
      <Value Profile="(Default)" />
    </Setting>
+    <Setting Name="DD_ECMConnectionString" Type="(Connection string)" Scope="Application">
+      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
+&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
+  &lt;ConnectionString&gt;Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+  &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
+&lt;/SerializableConnectionString&gt;</DesignTimeValue>
+      <Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;User ID=sa;Password=dd</Value>
+    </Setting>
  </Settings>
 </SettingsFile>
--- a/app/RecordOrganizer_RightManager/My
+++ b/app/RecordOrganizer_RightManager/My
@@ -0,0 +1 @@
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
--- a/app/RecordOrganizer_RightManager/MyDataset.Designer.vb
+++ b/app/RecordOrganizer_RightManager/MyDataset.Designer.vb
--- a/app/RecordOrganizer_RightManager/MyDataset.xsc
+++ b/app/RecordOrganizer_RightManager/MyDataset.xsc
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--<autogenerated>
+     This code was generated by a tool.
+     Changes to this file may cause incorrect behavior and will be lost if
+     the code is regenerated.
+</autogenerated>-->
+<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+  <TableUISettings />
+</DataSetUISetting>
--- a/app/RecordOrganizer_RightManager/MyDataset.xsd
+++ b/app/RecordOrganizer_RightManager/MyDataset.xsd
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xs:schema id="MyDataset" targetNamespace="http://tempuri.org/MyDataset.xsd" xmlns:mstns="http://tempuri.org/MyDataset.xsd" xmlns="http://tempuri.org/MyDataset.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
+  <xs:annotation>
+    <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
+      <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+        <Connections>
+          <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.RecordOrganizer_RightManager.My.MySettings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
+        </Connections>
+        <Tables>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWPMO_RIGHTS_2B_WORKEDTableAdapter" GeneratorDataComponentClassName="VWPMO_RIGHTS_2B_WORKEDTableAdapter" Name="VWPMO_RIGHTS_2B_WORKED" UserDataComponentName="VWPMO_RIGHTS_2B_WORKEDTableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.VWPMO_RIGHTS_2B_WORKED" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
+                <SelectCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>SELECT        GUID, DOC_ID, USERNAME, RIGHT_MODIFY, FILE_RIGHT, WORKING, ADDED_WHO, ADDED_WHEN
+FROM            VWPMO_RIGHTS_2B_WORKED</CommandText>
+                    <Parameters />
+                  </DbCommand>
+                </SelectCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
+              <Mapping SourceColumn="DOC_ID" DataSetColumn="DOC_ID" />
+              <Mapping SourceColumn="USERNAME" DataSetColumn="USERNAME" />
+              <Mapping SourceColumn="RIGHT_MODIFY" DataSetColumn="RIGHT_MODIFY" />
+              <Mapping SourceColumn="FILE_RIGHT" DataSetColumn="FILE_RIGHT" />
+              <Mapping SourceColumn="WORKING" DataSetColumn="WORKING" />
+              <Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
+              <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
+            </Mappings>
+            <Sources />
+          </TableAdapter>
+        </Tables>
+        <Sources />
+      </DataSource>
+    </xs:appinfo>
+  </xs:annotation>
+  <xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
+    <xs:complexType>
+      <xs:choice minOccurs="0" maxOccurs="unbounded">
+        <xs:element name="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_TableClassName="VWPMO_RIGHTS_2B_WORKEDDataTable" msprop:Generator_TableVarName="tableVWPMO_RIGHTS_2B_WORKED" msprop:Generator_TablePropName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowDeletingName="VWPMO_RIGHTS_2B_WORKEDRowDeleting" msprop:Generator_RowChangingName="VWPMO_RIGHTS_2B_WORKEDRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_RIGHTS_2B_WORKEDRowDeleted" msprop:Generator_UserTableName="VWPMO_RIGHTS_2B_WORKED" msprop:Generator_RowChangedName="VWPMO_RIGHTS_2B_WORKEDRowChanged" msprop:Generator_RowEvArgName="VWPMO_RIGHTS_2B_WORKEDRowChangeEvent" msprop:Generator_RowClassName="VWPMO_RIGHTS_2B_WORKEDRow">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
+              <xs:element name="DOC_ID" msprop:Generator_ColumnVarNameInTable="columnDOC_ID" msprop:Generator_ColumnPropNameInRow="DOC_ID" msprop:Generator_ColumnPropNameInTable="DOC_IDColumn" msprop:Generator_UserColumnName="DOC_ID" type="xs:int" />
+              <xs:element name="USERNAME" msprop:Generator_ColumnVarNameInTable="columnUSERNAME" msprop:Generator_ColumnPropNameInRow="USERNAME" msprop:Generator_ColumnPropNameInTable="USERNAMEColumn" msprop:Generator_UserColumnName="USERNAME">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="RIGHT_MODIFY" msprop:Generator_ColumnVarNameInTable="columnRIGHT_MODIFY" msprop:Generator_ColumnPropNameInRow="RIGHT_MODIFY" msprop:Generator_ColumnPropNameInTable="RIGHT_MODIFYColumn" msprop:Generator_UserColumnName="RIGHT_MODIFY">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="30" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="FILE_RIGHT" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnFILE_RIGHT" msprop:Generator_ColumnPropNameInRow="FILE_RIGHT" msprop:Generator_ColumnPropNameInTable="FILE_RIGHTColumn" msprop:Generator_UserColumnName="FILE_RIGHT" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="WORKING" msprop:Generator_ColumnVarNameInTable="columnWORKING" msprop:Generator_ColumnPropNameInRow="WORKING" msprop:Generator_ColumnPropNameInTable="WORKINGColumn" msprop:Generator_UserColumnName="WORKING" type="xs:boolean" />
+              <xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+      </xs:choice>
+    </xs:complexType>
+    <xs:unique name="Constraint1" msdata:PrimaryKey="true">
+      <xs:selector xpath=".//mstns:VWPMO_RIGHTS_2B_WORKED" />
+      <xs:field xpath="mstns:GUID" />
+    </xs:unique>
+  </xs:element>
+</xs:schema>
--- a/app/RecordOrganizer_RightManager/MyDataset.xss
+++ b/app/RecordOrganizer_RightManager/MyDataset.xss
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--<autogenerated>
+     This code was generated by a tool to store the dataset designer's layout information.
+     Changes to this file may cause incorrect behavior and will be lost if
+     the code is regenerated.
+</autogenerated>-->
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="0" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+  <Shapes>
+    <Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="1" X="769" Y="276" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
+  </Shapes>
+  <Connectors />
+</DiagramLayout>
--- a/app/RecordOrganizer_RightManager/RecordOrganizer_RightManager.vbproj
+++ b/app/RecordOrganizer_RightManager/RecordOrganizer_RightManager.vbproj
@@ -53,10 +53,21 @@
    <Reference Include="DD_Rights">
      <HintPath>..\..\..\DDLibraries\app\DD_Libraries\bin\Debug\DD_Rights.dll</HintPath>
    </Reference>
+    <Reference Include="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
    <Reference Include="System" />
+    <Reference Include="System.ComponentModel.DataAnnotations" />
    <Reference Include="System.Data" />
+    <Reference Include="System.Data.Linq" />
    <Reference Include="System.Deployment" />
    <Reference Include="System.Drawing" />
+    <Reference Include="System.Web.Services" />
    <Reference Include="System.Windows.Forms" />
    <Reference Include="System.Xml" />
    <Reference Include="System.Core" />
@@ -119,6 +130,11 @@
      <DependentUpon>Settings.settings</DependentUpon>
      <DesignTimeSharedInput>True</DesignTimeSharedInput>
    </Compile>
+    <Compile Include="MyDataset.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>MyDataset.xsd</DependentUpon>
+    </Compile>
  </ItemGroup>
  <ItemGroup>
    <EmbeddedResource Include="frmSupervisorEntity.resx">
@@ -133,6 +149,7 @@
    <EmbeddedResource Include="frmStart.resx">
      <DependentUpon>frmStart.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
    <EmbeddedResource Include="My Project\Resources.resx">
      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -153,6 +170,17 @@
    <None Include="App.config" />
  </ItemGroup>
  <ItemGroup>
+    <None Include="MyDataset.xsc">
+      <DependentUpon>MyDataset.xsd</DependentUpon>
+    </None>
+    <None Include="MyDataset.xsd">
+      <SubType>Designer</SubType>
+      <Generator>MSDataSetGenerator</Generator>
+      <LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="MyDataset.xss">
+      <DependentUpon>MyDataset.xsd</DependentUpon>
+    </None>
    <None Include="Resources\cancel.png" />
  </ItemGroup>
  <ItemGroup>
@@ -163,6 +191,7 @@
  </ItemGroup>
  <ItemGroup>
    <Content Include="navigate_right2.ico" />
+    <None Include="Resources\refresh_16xMD.png" />
    <None Include="Resources\112_RightArrowShort_Blue_24x24_72.png" />
  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
--- a/app/RecordOrganizer_RightManager/Resources/refresh_16xMD.png
+++ b/app/RecordOrganizer_RightManager/Resources/refresh_16xMD.png
--- 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
--- a/app/RecordOrganizer_RightManager/frmStart.resx
+++ b/app/RecordOrganizer_RightManager/frmStart.resx
@@ -117,6 +117,18 @@
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
+  <metadata name="VWPMO_RIGHTS_2B_WORKEDBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>127, 17</value>
+  </metadata>
+  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="VWPMO_RIGHTS_2B_WORKEDTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>424, 17</value>
+  </metadata>
+  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>716, 17</value>
+  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
--- a/app/RecordOrganizer_RightManager/frmStart.vb
+++ b/app/RecordOrganizer_RightManager/frmStart.vb
@@ -1,12 +1,14 @@
 Imports DD_Rights
 Public Class frmStart
    Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
+       
        Try
            DD_Rights.ClassLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
            If DD_Rights.ClassDatabase.Init(My.Settings.MyConnectionString) = False Then
                MsgBox("Error in Initializing Database. Please check log.", MsgBoxStyle.Critical)
                Me.Close()
            End If
+            chkLogerrorsonly.Checked = CBool(ClassDatabase.Execute_Scalar("SELECT LOG_ERR_ONLY_RIGHTS_MANAGER FROM TBPMO_KONFIGURATION WHERE GUID = 1"))
            Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", Environment.UserName)
            ClassLogger.Add(">> Login at: " & Now.ToString, False)
            ClassLogger.Add(">> Username: " & Environment.UserName, False)
@@ -109,4 +111,39 @@ Public Class frmStart
        frmSupervisorEntity.ShowDialog()
        Check_USER_REWORK()
    End Sub
+
+    Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
+        Select Case XtraTabControl1.SelectedTabPageIndex
+            Case 1
+                Load_jobs()
+        End Select
+    End Sub
+    Sub Load_Jobs()
+        Try
+            Cursor = Cursors.WaitCursor
+            Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
+            Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter.Fill(Me.MyDataset.VWPMO_RIGHTS_2B_WORKED)
+            If MyDataset.VWPMO_RIGHTS_2B_WORKED.Rows.Count > 0 Then
+                XtraTabPage2.Text = "Rights 2b worked (" & MyDataset.VWPMO_RIGHTS_2B_WORKED.Rows.Count.ToString & " rights waiting)"
+            End If
+
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in Load_Jobs: " & ex.Message, True)
+            MsgBox("Unexpected Error in Load_Jobs: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+        Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnrefreshJobs_Click(sender As Object, e As EventArgs) Handles btnrefreshJobs.Click
+        Load_Jobs()
+    End Sub
+
+    Private Sub chkLogerrorsonly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogerrorsonly.CheckedChanged
+        Dim _set = 0
+        If chkLogerrorsonly.Checked Then
+            _set = 1
+        End If
+        Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET LOG_ERR_ONLY_RIGHTS_MANAGER = {0} where GUID = 1", _set)
+        ClassDatabase.Execute_non_Query(upd)
+    End Sub
 End Class
				`@@ -0,0 +1 @@`
				`DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a`