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

MS_workflow_2609

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-09-26 10:36:29 +02:00
parent 5437af61d2
commit 5d659602db
7 changed files with 78 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -380,9 +380,9 @@ Public Class frmRecordView
Private Sub btnSaveWorkflow_Click(sender As Object, e As EventArgs) Handles btnSaveWorkflow.Click
Try
If _Changed = False Then
Exit Sub
End If
'If _Changed = False Then
' Exit Sub
'End If
Dim upd
Dim ins = ""
Dim STATE_id As Integer
@@ -411,11 +411,11 @@ Public Class frmRecordView
End If
If STATE_id > 0 Then
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET STATE_ID= {5}, 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, STATE_id)
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET STATE_ID = {5}, COMMENT = '{0}', DUE_DATE = '{1}',CHANGED_WHO = '{2}', TASK_DATE = '{3}' " &
"WHERE GUID = {4}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID, STATE_id)
Else
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)
"WHERE GUID = {4}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
End If
If ClassDatabase.Execute_non_Query(upd) Then
If clsDatabase.DB_PROXY_INITIALIZED = True Then
@@ -430,10 +430,10 @@ Public Class frmRecordView
Load_Task_Data()
Load_States()
Check_end()
If XtraTabControl1.SelectedTabPageIndex = 1 Then
Load_History()
End If
_Changed = False
If XtraTabControl1.SelectedTabPageIndex = 1 Then
Load_History()
End If
_Changed = False
' Me.TBPMO_WORKFLOW_TASKTableAdapter.cmdUpdate(COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, USER_USERNAME, DateTimePicker1.Value, Me.GUIDTextBox.Text)
Catch ex As Exception
@@ -443,6 +443,7 @@ Public Class frmRecordView
Private Sub frmRecordView_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Try
STATE_IDComboBox.SelectedValue = 0
Select Case JUMP_STATE
Case 2
TabControlBottom.SelectedTabPageIndex = 1