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

MS_12.03.2016

Browse Source
This commit is contained in:
SchreiberM
2016-03-14 09:21:32 +01:00
parent c3965e6243
commit 32a1c4cf5e
31 changed files with 2208 additions and 2864 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -118,11 +118,11 @@ Public Class frmTask_Editor
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim count As Integer = 0
If DT Is Nothing = False Then
ListView1.Items.Clear()
ListViewExclusiveUser.Items.Clear()
For Each row As DataRow In DT.Rows
ListView1.Items.Add(row.Item("GUID").ToString)
ListView1.Items(count).SubItems.Add(row.Item("TITLE").ToString)
ListView1.Items(count).SubItems.Add(row.Item("USERNAME").ToString)
ListViewExclusiveUser.Items.Add(row.Item("GUID").ToString)
ListViewExclusiveUser.Items(count).SubItems.Add(row.Item("TITLE").ToString)
ListViewExclusiveUser.Items(count).SubItems.Add(row.Item("USERNAME").ToString)
count += 1
Next
End If
@@ -133,9 +133,11 @@ Public Class frmTask_Editor
Private Sub frmWF_TaskEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Try
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, WF_IDTextBox.Text, CURRENT_FORM_ID)
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, CURRENT_FORM_ID)
Dim state = DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("STATE_DESC")
Me.STATE_IDComboBox.SelectedIndex = STATE_IDComboBox.FindStringExact(state)
Catch ex As Exception
MsgBox("Error in Load_TaskStates:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Load_Following()
Load_User()
@@ -153,7 +155,7 @@ Public Class frmTask_Editor
' End If
'End Sub
Private Sub ListView1_DragEnter(sender As Object, e As DragEventArgs) Handles ListView1.DragEnter
Private Sub ListView1_DragEnter(sender As Object, e As DragEventArgs) Handles ListViewExclusiveUser.DragEnter
' Check the format of the data being dropped.
If (e.Data.GetDataPresent(DataFormats.Text)) Then
' Display the copy cursor.
@@ -164,7 +166,7 @@ Public Class frmTask_Editor
End If
End Sub
Private Sub ListView1_DragDrop(sender As Object, e As DragEventArgs) Handles ListView1.DragDrop
Private Sub ListView1_DragDrop(sender As Object, e As DragEventArgs) Handles ListViewExclusiveUser.DragDrop
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) & ")"
@@ -179,8 +181,8 @@ Public Class frmTask_Editor
Private Sub btndeleteuser_Click(sender As Object, e As EventArgs) Handles btndeleteuser.Click
Try
If (Me.ListView1.SelectedItems.Count > 0) Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListView1.SelectedItems.Item(0).Text
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)
Load_TASK_USER()
End If