AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS1003

Browse Source
This commit is contained in:
SchreiberM
2017-03-10 11:52:55 +01:00
parent b623a129f5
commit 701f303176
15 changed files with 300 additions and 250 deletions
Download Patch File Download Diff File Expand all files Collapse all files

170
app/DD-Record-Organizer/frmRecordView.vb
View File

@@ -5,7 +5,7 @@ Imports DD_LIB_Standards
Public Class frmRecordView
Private recordView As ClassRecordView
Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID As Integer
Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID, RECORD_ID As Integer
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
@@ -50,13 +50,15 @@ Public Class frmRecordView
Me.Text = "Detailansicht Record"
End If
recordView = New ClassRecordView(pnlDetails)
recordView.LoadRecord(JUMP_RECORD_ID)
RECORD_ID = JUMP_RECORD_ID
recordView.LoadRecord(RECORD_ID)
'Titel updaten
Me.Text &= " " + JUMP_RECORD_ID.ToString()
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & JUMP_RECORD_ID
Me.Text &= " " + RECORD_ID.ToString()
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID
ENTITY_ID = ClassDatabase.Execute_Scalar(sql, True)
ClassRightManagement.Check_Set_Rights(JUMP_RECORD_ID, ENTITY_ID)
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
ClassProxy.Refresh_Workflow_Data()
sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
@@ -74,7 +76,7 @@ Public Class frmRecordView
End Try
RUN_WDSEARCH_GRID()
Load_Tasks()
Load_Task_Data()
End Sub
Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
@@ -139,7 +141,7 @@ Public Class frmRecordView
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, JUMP_RECORD_ID)
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID)
If IsNothing(DT_RESULT) Then
Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
tslblWindreamView.Text = msg
@@ -147,9 +149,9 @@ Public Class frmRecordView
Exit Sub
End If
If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
Dim msg = "Windream-Dokumente für Record: " & JUMP_RECORD_ID
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
If USER_LANGUAGE <> "de-DE" Then
msg = "windream-files for record: " & JUMP_RECORD_ID
msg = "windream-files for record: " & RECORD_ID
End If
tslblWindreamView.Text = msg
@@ -164,12 +166,12 @@ Public Class frmRecordView
AddressOf OnDateSelectedValueChanged,
AddressOf OnTextSelectedValueChanged,
AddressOf OnCheckboxValueChanged,
"RECORD", JUMP_RECORD_ID)
"RECORD", RECORD_ID)
End If
Else
Dim msg = "Keine Windream-Dokumente für Record: " & JUMP_RECORD_ID & " gefunden"
Dim msg = "Keine Windream-Dokumente für Record: " & RECORD_ID & " gefunden"
If USER_LANGUAGE <> "de-DE" Then
msg = "No windream-files found for record: " & JUMP_RECORD_ID
msg = "No windream-files found for record: " & RECORD_ID
End If
@@ -186,14 +188,59 @@ Public Class frmRecordView
End Try
Cursor = Cursors.Default
End Sub
Private Sub Load_Tasks()
Private Sub Load_Task_Data()
Try
'Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME, JUMP_RECORD_ID)
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then
Dim query = From table In CURRENT_VWPMO_WF_ACTIVE.AsEnumerable()
Select table Where table.Item("RECORD_ID") = RECORD_ID
Dim RECORD_ROW = query.ToList()
If RECORD_ROW.Count = 1 Then
TabControlBottom.TabPages(1).Appearance.Header.BackColor = Color.Red
For Each _row In RECORD_ROW
TITLETextBox.Text = _row.Item("WF_TITLE")
txtStateActual.Text = _row.Item("STATE_TITLE")
WF_IDTextBox.Text = _row.Item("WF_ID")
WF_TASK_IDTextBox.Text = _row.Item("WF_TASK_ID")
If Not IsDBNull(_row.Item("COMMENT")) Then
COMMENTTextBox.Text = _row.Item("COMMENT")
Else
COMMENTTextBox.Text = ""
End If
If Not IsDBNull(_row.Item("COMMENT")) Then
End If
If Not IsDBNull(_row.Item("CHANGED_WHO")) Then
CHANGED_WHOTextBox.Text = _row.Item("CHANGED_WHO")
End If
If Not IsDBNull(_row.Item("CHANGED_WHEN")) Then
CHANGED_WHENTextBox.Text = _row.Item("CHANGED_WHEN")
End If
If Not IsDBNull(_row.Item("TASK_DATE")) Then
DateTimePickerTASK_DATE.Text = _row.Item("TASK_DATE")
End If
If Not IsDBNull(_row.Item("DUE_DATE")) Then
DUE_DATEDateTimePicker.Text = _row.Item("DUE_DATE")
End If
Next
Else
TITLETextBox.Text = ""
txtStateActual.Text = ""
WF_IDTextBox.Text = ""
WF_TASK_IDTextBox.Text = ""
COMMENTTextBox.Text = ""
CHANGED_WHOTextBox.Text = ""
CHANGED_WHENTextBox.Text = ""
COMMENTTextBox.Enabled = False
DUE_DATEDateTimePicker.Enabled = False
DateTimePickerTASK_DATE.Enabled = False
STATE_IDComboBox.Enabled = False
lblTaskState.Visible = True
btnSaveWorkflow.Enabled = False
TabControlBottom.TabPages(1).Appearance.Header.BackColor = Nothing
End If
@@ -201,6 +248,8 @@ Public Class frmRecordView
FORMVIEW_ID = ClassDatabase.Execute_Scalar(Sql, True)
Sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(Sql, True)
Catch ex As Exception
MsgBox("Error in Load_Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -209,41 +258,29 @@ Public Class frmRecordView
Private Sub TabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TabControlBottom.SelectedPageChanged
Try
If TabControlBottom.SelectedTabPageIndex = 1 Then
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count = 0 Then
COMMENTTextBox.Enabled = False
DUE_DATEDateTimePicker.Enabled = False
DateTimePickerTASK_DATE.Enabled = False
STATE_IDComboBox.Enabled = False
lblTaskState.Visible = True
btnSaveWorkflow.Enabled = False
Else
If WF_TASK_IDTextBox.Text <> "" Then
WF_TASK_ID = WF_TASK_IDTextBox.Text
End If
Try
If WF_IDTextBox.Text <> "" Then
' Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, ENTITY_ID)
Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID, True)
If Not IsNothing(sel) Then
Load_Selectable_Users(sel)
End If
End If
Catch ex As Exception
MsgBox("Error in load States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
COMMENTTextBox.Enabled = True
DUE_DATEDateTimePicker.Enabled = True
DateTimePickerTASK_DATE.Enabled = True
STATE_IDComboBox.Enabled = True
lblTaskState.Text = "No active workflows"
lblTaskState.Visible = False
Load_Task_Data()
If WF_TASK_IDTextBox.Text <> "" Then
WF_TASK_ID = WF_TASK_IDTextBox.Text
btnSaveWorkflow.Enabled = True
Load_TASK_USER()
Load_States()
Check_end()
Else
WF_TASK_ID = 0
btnSaveWorkflow.Enabled = False
End If
Try
If WF_TASK_ID > 0 Then
lblTaskState.Text = "No active workflows"
lblTaskState.Visible = False
Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID, True)
If Not IsNothing(sel) Then
Load_Selectable_Users(sel)
End If
End If
Catch ex As Exception
MsgBox("Error in load States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Load_TASK_USER()
Load_States()
Check_end()
_Changed = False
End If
Catch ex As Exception
@@ -334,18 +371,35 @@ Public Class frmRecordView
Exit Sub
End If
Dim upd
If STATE_IDComboBox.SelectedIndex <> -1 Then
Dim STATE_id As Integer
Try
STATE_id = STATE_IDComboBox.SelectedValue
Catch ex As Exception
STATE_id = 0
End Try
If STATE_id > 0 Then
Dim sql = String.Format("SELECT dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_TASK_STATE WHERE GUID = {1}", USER_LANGUAGE, STATE_IDComboBox.SelectedValue)
Dim State_DESC = ClassDatabase.Execute_Scalar(sql, True)
Dim Comment
If COMMENTTextBox.Text <> "" Then
Comment = String.Format(COMMENTTextBox.Text & vbNewLine & ">> " & Now.ToString & ": User {0} changed the state to: {1}", Environment.UserName, State_DESC)
Else
Comment = String.Format(">> " & Now.ToString & ": User {0} Changed the state to: {1}", Environment.UserName, State_DESC)
End If
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', STATE_ID = {2}, ACTIVE = {3}, CHANGED_WHO = '{4}', TASK_DATE = '{5}' " & _
"WHERE GUID = {6}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
"WHERE GUID = {6}", Comment, DUE_DATEDateTimePicker.Value, STATE_id, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
STATE_IDComboBox.SelectedIndex = -1
Else
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', ACTIVE = {2}, CHANGED_WHO = '{3}', TASK_DATE = '{4}' " & _
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = (SELECT )'{0}', DUE_DATE = '{1}', ACTIVE = {2}, CHANGED_WHO = '{3}', TASK_DATE = '{4}' " & _
"WHERE GUID = {5}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
STATE_IDComboBox.SelectedIndex = -1
End If
If ClassDatabase.Execute_non_Query(upd, True) Then
ClassWorkflow.Refresh_Workflows_Entity()
ClassProxy.Refresh_Workflow_Data()
Load_Tasks()
Load_Task_Data()
Load_States()
Check_end()
If XtraTabControl1.SelectedTabPageIndex = 1 Then
@@ -479,18 +533,18 @@ Public Class frmRecordView
' RUN_WDSEARCH_GRID()
'End If
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
End If
Else
CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
@@ -524,7 +578,7 @@ Public Class frmRecordView
'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
CURRENT_FILEID = Filerow.Item("GUID")
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITY_ID
CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
CURRENT_ENTITY_ID = ENTITY_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
If CURRENT_TBPMO_FILES_USER.Rows.Count = 1 Then