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

MS_05042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-05 17:28:12 +02:00
parent b9eb1e1981
commit d1eb7ecb5b
72 changed files with 11883 additions and 9088 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -52,31 +52,29 @@ Public Class frmTask_Editor
Sub Load_Task()
Try
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, CURRENT_RECORD_ID, Environment.UserName)
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName, CURRENT_RECORD_ID)
Catch ex As Exception
MsgBox("Error in Load_Task:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Load_Following()
Try
Dim sql = "select WF_TASK_ID,TITLE from VWPMO_WF_ACTIVE where WF_TASK_ID <> " & Me.GUIDTextBox.Text
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 sql As String = "SELECT T.GUID as [Task-ID],T1.TITLE as Task, T2.STATE_DESC As Status ,T.DUE_DATE as Fälligkeit" & _
' " FROM TBPMO_WORKFLOW_TASK T, TBPMO_WORKFLOW T1, TBPMO_WORKFLOW_TASK_STATE T2" & _
' " WHERE T.WF_ID = T1.GUID AND T.STATE_ID = T2.GUID AND T2.GUID NOT IN (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATIOn WHERE GUID = 1) AND T.RECORD_ID = " & CURRENT_RECORD_ID & " and T.GUID <> " & Me.GUIDTextBox.Text
'Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
'If DT Is Nothing Then
' Me.DataGridView1.Visible = False
' Exit Sub
'End If
If DT.rows.count > 0 Then
If DT.rows.count = 1 Then
Label1.Text = "1 nachfolgender Task:"
Dim msg As String = " nachfolgender Task"
If USER_LANGUAGE <> "de-DE" Then
msg = " following task:"
End If
If DT.Rows.Count > 0 Then
If DT.Rows.Count = 1 Then
Label1.Text = "1" & msg
Else
Label1.Text = DT.rows.count.ToString & " nachfolgende Tasks:"
If USER_LANGUAGE <> "de-DE" Then
msg = " following tasks:"
Else
msg = " nachfolgende Tasks:"
End If
Label1.Text = DT.Rows.Count.ToString & msg
End If
ListBoxFollowing.Visible = True
@@ -86,7 +84,12 @@ Public Class frmTask_Editor
ListBoxFollowing.ValueMember = DT.Columns(0).ColumnName
'Me.DataGridView1.DataSource = DT
Else
Label1.Text = "Keine nachfolgenden Tasks"
If USER_LANGUAGE <> "de-DE" Then
msg = "No following tasks"
Else
msg = "Keine nachfolgenden Tasks"
End If
Label1.Text = msg
Me.ListBoxFollowing.Visible = False
btndelete_following.Visible = False
End If
@@ -134,7 +137,7 @@ 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, USER_LANGUAGE, WF_IDTextBox.Text, CURRENT_FORM_ID)
Dim state = DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("STATE_DESC")
Dim state = DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("STATE_TITLE")
Me.STATE_IDComboBox.SelectedIndex = STATE_IDComboBox.FindStringExact(state)
Catch ex As Exception
MsgBox("Error in Load_TaskStates:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)