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

MS

Browse Source
This commit is contained in:
SchreiberM
2017-03-13 16:05:46 +01:00
parent 701f303176
commit f4db45d3aa
12 changed files with 3387 additions and 1861 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -194,6 +194,7 @@ Public Class frmRecordView
Select table Where table.Item("RECORD_ID") = RECORD_ID
Dim RECORD_ROW = query.ToList()
If RECORD_ROW.Count = 1 Then
lblTaskState.Visible = False
TabControlBottom.TabPages(1).Appearance.Header.BackColor = Color.Red
For Each _row In RECORD_ROW
TITLETextBox.Text = _row.Item("WF_TITLE")
@@ -224,7 +225,7 @@ Public Class frmRecordView
DUE_DATEDateTimePicker.Text = _row.Item("DUE_DATE")
End If
Next
Else
TITLETextBox.Text = ""
@@ -326,7 +327,6 @@ Public Class frmRecordView
STATE_IDComboBox.DataSource = DT
STATE_IDComboBox.DisplayMember = DT.Columns(1).ColumnName
STATE_IDComboBox.ValueMember = DT.Columns(0).ColumnName
lblTaskState.Visible = False
Else
lblTaskState.Text = "Workflow-Ende erreicht!"
If USER_LANGUAGE <> "de-DE" Then
@@ -371,6 +371,7 @@ Public Class frmRecordView
Exit Sub
End If
Dim upd
Dim ins
Dim STATE_id As Integer
Try
STATE_id = STATE_IDComboBox.SelectedValue
@@ -378,25 +379,28 @@ Public Class frmRecordView
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
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}',CHANGED_WHO = '{2}', TASK_DATE = '{3}' " & _
"WHERE GUID = {4}", Comment, DUE_DATEDateTimePicker.Value, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
ClassDatabase.Execute_non_Query(upd, True)
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}", Comment, DUE_DATEDateTimePicker.Value, STATE_id, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
If STATE_id > 0 Then
ins = String.Format("INSERT INTO TBPMO_WORKFLOW_TASK_HISTORY (WF_TASK_ID,STATE_ID,STATE_DESC,COMMENT,ADDED_WHO) VALUES" & _
"({0},{1},'{2}','{3}','{4}')", WF_TASK_ID, STATE_id, State_DESC, Comment, USER_USERNAME)
STATE_IDComboBox.SelectedIndex = -1
Else
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
If ClassDatabase.Execute_non_Query(ins, True) Then
ClassWorkflow.Refresh_Workflows_Entity()
ClassProxy.Refresh_Workflow_Data()
Load_Task_Data()