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

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organiser/frmTask_Management.vb
View File

@@ -288,7 +288,7 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(del) Then
If ClassDatabase.Execute_non_Query(del, False) Then
Load_ENTITY_States("ENT")
End If
End If
@@ -334,7 +334,7 @@
sql = String.Format("SELECT GUID as ID,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),FV_ID), 1) AS Entity,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5),WF_ID), 1) AS [Task/Workflow],dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),STATE_ID), 1) AS [State],Final FROM VWPMO_WORKFLOW_ENTITY_STATE WHERE STATE_ID = {1}", USER_LANGUAGE, GUIDTextBox.Text)
End Select
' Dim sql = String.Format("SELECT T.GUID,T1.STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE T, TBPMO_WORKFLOW_TASK_STATE T1 WHERE T.STATE_ID = T1.GUID AND T.WF_ID = {0} AND T.ENTITY_ID = {1}", Workflow_ID, _ENTITYID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Get Entity-States")
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
DataGridView1.DataSource = DT
lblSelection.Text = txtlbl
DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
@@ -498,7 +498,7 @@
End Select
Dim ins = String.Format("INSERT INTO TBPMO_WORKFLOW_ENTITY_STATE (WF_ID,ENTITY_ID,STATE_ID,ADDED_WHO,FINAL) VALUES({0},{1},{2},'{3}',{4})", GUIDTextBox1.Text, txtEntity.Tag, txtState.Tag, USER_USERNAME, final)
If ClassDatabase.Execute_non_Query(ins) Then
If ClassDatabase.Execute_non_Query(ins, False) Then
Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now
If USER_LANGUAGE <> "de-DE" Then
txt = "The record was added successfully - " & Now
@@ -552,7 +552,7 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim upd = "UPDATE TBPMO_WORKFLOW_ENTITY_STATE SET COMMENT = '" & txtComment.Text & "' WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(upd) = False Then
If ClassDatabase.Execute_non_Query(upd, False) = False Then
MsgBox("Workflow Comment could not be updated -Check log", MsgBoxStyle.Critical)
End If
End If