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

MS_ChangesKW38

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-09-25 13:59:52 +02:00
parent 0e5a48f92c
commit ce89aef1cd
16 changed files with 3549 additions and 3978 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -400,32 +400,41 @@ Public Class frmRecordView
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)
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
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)
If ClassDatabase.Execute_non_Query(ins) Then
If clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_HISTORY_INS " & WF_TASK_ID, True)
End If
End If
STATE_IDComboBox.SelectedIndex = -1
End If
If ClassDatabase.Execute_non_Query(ins, True) Then
ClassWorkflow.Refresh_Workflows_Entity()
ClassProxy.Refresh_Workflow_Data()
Load_Task_Data()
Load_States()
Check_end()
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)
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)
End If
If ClassDatabase.Execute_non_Query(upd) Then
If clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassDatabase.Execute_non_Query("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_UPDATE " & WF_TASK_ID, True)
End If
End If
STATE_IDComboBox.SelectedIndex = -1
ClassWorkflow.Refresh_Workflows_Entity()
ClassProxy.Refresh_Workflow_Data()
Load_Task_Data()
Load_States()
Check_end()
If XtraTabControl1.SelectedTabPageIndex = 1 Then
Load_History()
End If
_Changed = False
Else
MsgBox("Update not successfull. Please check logfile.", MsgBoxStyle.Exclamation)
End If
' 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
MsgBox("Error in save Workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -734,7 +743,9 @@ Public Class frmRecordView
If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text
ClassDatabase.Execute_non_Query(sql, False)
ClassProxy.Refresh_Workflow_Data()
If clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(sql, False)
End If
Load_TASK_USER()
End If
Catch ex As Exception