MS2
This commit is contained in:
SchreiberM
207
app/RecordOrganizer_RightManager/frmCheckRightsRecords.vb
Normal file
207
app/RecordOrganizer_RightManager/frmCheckRightsRecords.vb
Normal file
@@ -0,0 +1,207 @@
|
||||
Imports DD_Rights
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.XtraEditors.Repository
|
||||
Imports DevExpress.Utils
|
||||
|
||||
Public Class frmCheckRightsRecords
|
||||
Private _formloaded As Boolean = False
|
||||
Private DT_FILES As DataTable
|
||||
Private _error As Boolean = False
|
||||
Private countfiles As Integer = 0
|
||||
Private WorkingFiles As Integer = 0
|
||||
Private CURR_DOCID As Integer
|
||||
Private CURR_DOCPATH As String
|
||||
Private ENTITY_ID As Integer
|
||||
Dim righterrors As Boolean = False
|
||||
Private DT_DATA As DataTable
|
||||
Private Sub frmCheckRightsRecords_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
Dim sql = String.Format("SELECT T.FORM_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.[FORM_VIEW_ID]), 1) AS FORM_TITLE FROM VWPMO_CONSTRUCTOR_FORMS T WHERE DOCUMENT_VIEW = 1", USER_LANGUAGE)
|
||||
Dim DT As DataTable = clsDatabase.Return_Datatable(sql)
|
||||
cmbentity.DataSource = DT
|
||||
cmbentity.ValueMember = DT.Columns(0).ColumnName
|
||||
cmbentity.DisplayMember = DT.Columns(1).ColumnName
|
||||
lblstate.Visible = False
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected error in load form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnCheckRights_Click(sender As Object, e As EventArgs) Handles btnCheckRights.Click
|
||||
If cmbentity.SelectedIndex <> -1 And DT_DATA.Rows.Count > 0 Then
|
||||
Try
|
||||
DT_DATA.AcceptChanges()
|
||||
|
||||
righterrors = False
|
||||
CURR_DOCID = 0
|
||||
ENTITY_ID = cmbentity.SelectedValue
|
||||
countfiles = 0
|
||||
Me.ProgressBar1.Visible = True
|
||||
'BackgroundWorker erstellen ...
|
||||
BW_RightsEntity = New BackgroundWorker
|
||||
BW_RightsEntity.WorkerReportsProgress = True
|
||||
BW_RightsEntity.WorkerSupportsCancellation = True
|
||||
Dim listRecords As New ArrayList
|
||||
|
||||
If DD_Rights.ClassWDRights.Init(chklogging.Checked, ClassDatabase.ConnectionStringRM) = False Then
|
||||
MsgBox("Could not init rights management. " & vbNewLine & "Check logfile", MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
End If
|
||||
For Each row As DataRow In DT_DATA.Rows
|
||||
If row.Item("Selection") = True Then
|
||||
Dim recid = row.Item("Record-ID")
|
||||
If Not IsNothing(recid) Then
|
||||
listRecords.Add(recid)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Record As String In listRecords
|
||||
Dim sqlfiles = String.Format("SELECT TRL.DOC_ID FROM TBPMO_DOC_RECORD_LINK TRL WHERE TRL.RECORD_ID = {0} ORDER BY TRL.DOC_ID", Record)
|
||||
DT_FILES = clsDatabase.Return_Datatable(sqlfiles)
|
||||
If DT_FILES.Rows.Count > 0 Then
|
||||
countfiles += DT_FILES.Rows.Count
|
||||
End If
|
||||
Next
|
||||
|
||||
If countfiles = 0 Then
|
||||
MsgBox("No files were found! Please check docsearch!", MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
Else
|
||||
clsLogger.Add(String.Format(">> {0} files must be Checked!", countfiles), False)
|
||||
End If
|
||||
btncancel.Visible = True
|
||||
lblstate.Visible = True
|
||||
lblstate.Text = "Starting Background Worker...."
|
||||
WorkingFiles = 0
|
||||
ProgressBar1.Maximum = countfiles
|
||||
AddHandler BW_RightsEntity.DoWork, AddressOf bw_DoWork
|
||||
'.. und starten
|
||||
BW_RightsEntity.RunWorkerAsync()
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected error in starting backgroundworker: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Me.ProgressBar1.Visible = False
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BW_RightsEntity_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BW_RightsEntity.ProgressChanged
|
||||
Dim state = "Working on file '" & WorkingFiles.ToString & "' of '" & countfiles.ToString & "'"
|
||||
lblstate.Text = state
|
||||
Me.ProgressBar1.Value = e.ProgressPercentage
|
||||
End Sub
|
||||
Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
|
||||
Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
|
||||
_error = False
|
||||
Dim i As Integer = 1
|
||||
'Jede Datei einzeln verarbeiten
|
||||
Dim listRecords As New ArrayList
|
||||
For Each row As DataRow In DT_DATA.Rows
|
||||
If row.Item("Selection") = True Then
|
||||
Dim recid = row.Item("Record-ID")
|
||||
If Not IsNothing(recid) Then
|
||||
listRecords.Add(recid)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Record As String In listRecords
|
||||
Dim sqlfiles = String.Format("SELECT T.DocID,T.FULL_FILENAME FROM VWPMO_DOC_SEARCH T, TBPMO_DOC_RECORD_LINK TRL where T.DocID = TRL.DOC_ID AND TRL.RECORD_ID = {0} ORDER BY DocID", Record)
|
||||
DT_FILES = clsDatabase.Return_Datatable(sqlfiles)
|
||||
If DT_FILES.Rows.Count > 0 Then
|
||||
For Each row As DataRow In DT_FILES.Rows
|
||||
If BW_RightsEntity.CancellationPending = True Then
|
||||
MsgBox("Backgroundworker aborting - check log!", MsgBoxStyle.Critical)
|
||||
e.Cancel = True
|
||||
Exit For
|
||||
Else
|
||||
'###
|
||||
WorkingFiles += 1
|
||||
CURR_DOCID = row.Item("DocID")
|
||||
CURR_DOCPATH = row.Item("FULL_FILENAME")
|
||||
If DD_Rights.ClassWDRights.Doc_Renew_Rights(CURR_DOCID, CURR_DOCPATH, True) Then
|
||||
If DD_Rights.ClassWDRights.MSG_RESULT <> "" Then
|
||||
righterrors = True
|
||||
End If
|
||||
Else
|
||||
MsgBox("Unexpected Error in DD_Rights.ClassWDRights.Doc_Renew_Rights - Check the log!", MsgBoxStyle.Exclamation)
|
||||
If DD_Rights.ClassWDRights.MSG_RESULT <> "" Then
|
||||
MsgBox(DD_Rights.ClassWDRights.MSG_RESULT, MsgBoxStyle.Information)
|
||||
End If
|
||||
_error = True
|
||||
End If
|
||||
BW_RightsEntity.ReportProgress(i)
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
|
||||
' Cancel the asynchronous operation.
|
||||
Me.BW_RightsEntity.CancelAsync()
|
||||
End Sub
|
||||
Private Sub BW_RightsEntity_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BW_RightsEntity.RunWorkerCompleted
|
||||
Try
|
||||
btncancel.Visible = False
|
||||
lblstate.Visible = False
|
||||
ProgressBar1.Visible = False
|
||||
If _error = False Then
|
||||
'clsDatabase.Execute_non_Query("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET RUN_SERVICE = 1 WHERE GUID = 1")
|
||||
If righterrors = True Then
|
||||
MsgBox("All rights of files belonging to selected records were checked and refreshed, " & vbNewLine & "BUT some Userrights could not be set. Check the logfile!", MsgBoxStyle.Exclamation, "Attention")
|
||||
Else
|
||||
MsgBox("All rights of files belonging to selected records were checked and refreshed!", MsgBoxStyle.Information)
|
||||
End If
|
||||
Else
|
||||
MsgBox("Some errors occured while preparing and queuing rights...please check the log!", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub cmbentity_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbentity.SelectedIndexChanged
|
||||
Try
|
||||
If _formloaded = False Then Exit Sub
|
||||
|
||||
If cmbentity.SelectedIndex <> -1 Then
|
||||
ENTITY_ID = cmbentity.SelectedValue
|
||||
Dim ViewName As String = "VWTEMP_PMO_FORM" & cmbentity.SelectedValue.ToString
|
||||
Dim EntitySQL As String = "SELECT CONVERT(BIT,0) as Selection, T.* FROM " & ViewName & " T where [file count] > 0"
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
DT_DATA = clsDatabase.Return_Datatable(EntitySQL)
|
||||
GridControlMain.DataSource = Nothing
|
||||
If GridViewMain.Columns.Count > 0 Then
|
||||
GridViewMain.Columns.Clear()
|
||||
End If
|
||||
If Not IsNothing(DT_DATA) Then
|
||||
GridControlMain.DataSource = DT_DATA
|
||||
Dim checkboxEdit = New RepositoryItemCheckEdit()
|
||||
Dim dateEdit As New RepositoryItemTimeEdit()
|
||||
' checkboxEdit vor-formatieren
|
||||
checkboxEdit.ValueChecked = True
|
||||
checkboxEdit.ValueUnchecked = False
|
||||
' dateEdit vor-formatieren
|
||||
dateEdit.DisplayFormat.FormatType = FormatType.DateTime
|
||||
dateEdit.Mask.UseMaskAsDisplayFormat = True
|
||||
' Editoren zum Grid hinzufügen
|
||||
GridViewMain.GridControl.RepositoryItems.AddRange({checkboxEdit, dateEdit})
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmCheckRightsRecords_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
_formloaded = True
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user