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

14
app/DD-Record-Organiser/frmTask_Editor.vb
View File

@@ -60,7 +60,7 @@ Public Class frmTask_Editor
Sub Load_Following()
Try
Dim sql = "select WF_TASK_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS [Workflow-Title] from VWPMO_WF_ACTIVE where WF_TASK_ID <> " & Me.GUIDTextBox.Text & " AND RECORD_ID = " & CURRENT_RECORD_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "GET FOLLOWING TASKS")
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim msg As String = " nachfolgender Task"
If USER_LANGUAGE <> "de-DE" Then
msg = " following task:"
@@ -173,7 +173,7 @@ Public Class frmTask_Editor
Try
If e.Data.GetData(DataFormats.Text) Is Nothing = False Then
Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & e.Data.GetData(DataFormats.Text) & ")"
If ClassDatabase.Execute_non_Query(sql) = True Then
If ClassDatabase.Execute_non_Query(sql, False) = True Then
Load_TASK_USER()
End If
End If
@@ -186,7 +186,7 @@ Public Class frmTask_Editor
Try
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)
ClassDatabase.Execute_non_Query(sql, False)
Load_TASK_USER()
End If
@@ -200,9 +200,9 @@ Public Class frmTask_Editor
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
If result = MsgBoxResult.Yes Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE WF_TASK_ID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(sql, True) Then
If ClassDatabase.Execute_non_Query(sql) Then
sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(sql, True) Then
If ClassDatabase.Execute_non_Query(sql) Then
Load_Task()
Load_Following()
Load_TASK_USER()
@@ -232,7 +232,7 @@ Public Class frmTask_Editor
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher das Sie diesen nachfolgenden Task löschen wollen??", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
If result = MsgBoxResult.Yes Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & ID
If ClassDatabase.Execute_non_Query(sql, True) = True Then
If ClassDatabase.Execute_non_Query(sql) = True Then
Load_Task()
Load_Following()
Load_TASK_USER()
@@ -254,7 +254,7 @@ Public Class frmTask_Editor
Try
If ListBoxUser.SelectedIndex <> -1 And ListBoxUser.SelectedValue > 0 Then
Dim sql = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID]) VALUES (" & Me.GUIDTextBox.Text & ", " & ListBoxUser.SelectedValue & ")"
If ClassDatabase.Execute_non_Query(sql) = True Then
If ClassDatabase.Execute_non_Query(sql, False) = True Then
Load_TASK_USER()
End If
End If