MS

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