AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS MassChange

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-06-08 10:13:00 +02:00
parent 2337a2954a
commit bce977a043
18 changed files with 2600 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -290,6 +290,7 @@ Public Class frmMain
Sub Layout_Single_Profile()
If GridControl_Docs.Visible = False Then
GridControl_Docs.Visible = True
pnlNavigator.Visible = True
SplitContainerDashboard.Visible = False
End If
End Sub
@@ -298,6 +299,7 @@ Public Class frmMain
If GridControl_Docs.Visible = True Then
GridControl_Docs.Visible = False
pnlNavigator.Visible = False
Dim groupCount As Integer
Dim charts As List(Of ChartControl)
SplitContainerDashboard.Visible = True
@@ -483,7 +485,7 @@ Public Class frmMain
Dim Columns_Removed = GridView_CheckInvalidColumns()
RestoreLayout()
lblViewType.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
End If
Catch ex As Exception
@@ -526,7 +528,8 @@ Public Class frmMain
End Select
Next
GridControl_Docs.DataSource = CURR_DT_PROFILEGRID
bindsourcegrid.DataSource = CURR_DT_PROFILEGRID
GridControl_Docs.DataSource = bindsourcegrid
'GridControlDocRow.ForceInitialize()
RestoreLayout()
@@ -769,8 +772,15 @@ Public Class frmMain
Case "GROUP"
CMGroupStart.Enabled = True
Case "ROW"
CMFileStart.Enabled = True
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
If selectedRows.Count > 1 Then
CMFileStart.Enabled = False
Else
CMFileStart.Enabled = True
End If
End Select
End Sub
Private Sub CMFileStart_Click(sender As Object, e As EventArgs) Handles CMFileStart.Click
@@ -868,60 +878,60 @@ Public Class frmMain
Private Sub MarkierteDateienAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkierteDateienAbschliessenToolStripMenuItem.Click
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
Dim workedFiles As Integer = 0
Dim dt As New DataTable
dt.Columns.Add("DOC_ID")
dt.Columns.Add("DOC_GUID")
dt.Columns.Add("FULL_PATH")
If Init_windream() = True Then
CURRENT_ProfilGUID = 0
Dim i As Integer = 0
For Each rowhandle As Integer In selectedRows
Dim PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
If PROFILE_ID <> CURRENT_ProfilGUID Then
Dim R As DataRow = dt.NewRow
Dim PROFILE_ID As Integer = 0
PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
If i = 0 And CURRENT_ProfilGUID = 0 Then
CURRENT_ProfilGUID = PROFILE_ID
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX")
If CURRENT_PROFILE_VEKTOR_LOG = "" Then
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX")
End If
End If
If CURRENT_PROFILE_VEKTOR_LOG = "" Then
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX")
If PROFILE_ID <> CURRENT_ProfilGUID Then
If CURRENT_USER_LANGUAGE <> "de_DE" Then
MsgBox("Sorry but You can only mass-validate docs which belong to he same profile!", MsgBoxStyle.Exclamation)
Else
MsgBox("Bitte bachten Sie dass Sie nur Dokumente, welche zum gleichen Profil gehören, mit der Massenfunktion bearbeiten können!", MsgBoxStyle.Exclamation)
End If
Exit Sub
End If
Dim DOC_ID = GridView_Docs.GetRowCellValue(rowhandle, "DOC_ID")
CURRENT_DOC_ID = DOC_ID
Dim DOC_PATH = GridView_Docs.GetRowCellValue(rowhandle, "FULL_FILE_PATH")
CURRENT_DOC_PATH = DOC_PATH
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
Dim WM_DOC = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, DOC_PATH.Substring(2))
If Not IsNothing(WM_DOC) Then
CURRENT_WMFILE = WM_DOC
If ClassFinalizeDoc.Write_Final_Metadata = True Then
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID)
ClassDatabase.Execute_non_Query(sql)
End If
End If
R("DOC_ID") = CURRENT_DOC_ID
R("FULL_PATH") = CURRENT_DOC_PATH
R("DOC_GUID") = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
dt.Rows.Add(R)
CURRENT_DT_MASS_CHANGE_DOCS = Nothing
CURRENT_DT_MASS_CHANGE_DOCS = dt
Next
End If
frmMassValidator.ShowDialog()
Load_Profile_items()
Decide_Load()
'Dim Row As DataRow
'Dim Rows() As DataRow
'Dim I As Integer
'ReDim Rows(GridView_Docs.SelectedRowsCount - 1)
'For I = 0 To GridView_Docs.SelectedRowsCount - 1
' Rows(I) = GridView_Docs.GetDataRow(GridView_Docs.GetSelectedRows(I))
'Next
'GridView_Docs.BeginSort()
'Try
' For Each Row In Rows
' Dim DOC_ID = GridView_Docs.GetRowCellValue(Row, GridView_Docs.Columns("DOC_ID")) ' GridView_Docs.GetRowCellValue(Row, "DOC_ID").ToString()
' Row.Delete()
' Next
'Finally
' GridView_Docs.EndSort()
'End Try
End Sub
Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click
Item_Scope()
@@ -975,6 +985,8 @@ Public Class frmMain
If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
lblViewType.Text = "Aktuell keine Workflowdaten vorhanden!"
'MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
GridControl_Docs.Visible = False
pnlNavigator.Visible = False
GridControl_Docs.DataSource = Nothing
Try
GridView_Docs.Columns.Clear()
@@ -984,6 +996,8 @@ Public Class frmMain
Cursor = Cursors.Default
Exit Sub
End If
GridControl_Docs.Visible = True
pnlNavigator.Visible = True
' Spalte für Status Icon erstellen
Dim columnStateIcon As New DataColumn()
columnStateIcon.DataType = GetType(Image)
@@ -1009,9 +1023,10 @@ Public Class frmMain
row.Item("ICON") = My.Resources.ampel_gruen
End Select
Next
bindsourcegrid.DataSource = CURR_DT_PROFILEGRID
GridControl_Docs.DataSource = bindsourcegrid
GridControl_Docs.DataSource = CURR_DT_PROFILEGRID
lblViewType.Text = "Gesamtübersicht"
'GridControlDocRow.ForceInitialize()
' GridControl1.DataSource = CURR_DT_PROFILEGRID
@@ -1082,6 +1097,8 @@ Public Class frmMain
'GridView_Docs.SaveLayoutToXml(GetXML_LayoutName())
SaveGridLayout()
Else
GridControl_Docs.Visible = False
pnlNavigator.Visible = False
GridControl_Docs.DataSource = Nothing
Try
GridView_Docs.Columns.Clear()
@@ -1093,6 +1110,7 @@ Public Class frmMain
Catch ex As Exception
ClassLogger.Add("Load_Grid_Overview - Fehler: " & ex.Message)
MsgBox("Fehler Load_Grid_Overview - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
@@ -1158,12 +1176,7 @@ Public Class frmMain
End Sub
Private Sub GridView_Docs_RowClick(sender As Object, e As RowClickEventArgs) Handles GridView_Docs.RowClick
If (ModifierKeys = Keys.Control) Then
GridView_Docs.OptionsSelection.MultiSelect = True
Else
GridView_Docs.OptionsSelection.MultiSelect = False
End If
End Sub
Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick