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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-11-23 10:24:21 +01:00
parent a1d1b2a88e
commit fc9f391307
79 changed files with 7388 additions and 4524 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -17,7 +17,7 @@
Try
Me.TBPMO_WORKFLOWBindingSource.EndEdit()
If DD_DMSDataSet.TBPMO_WORKFLOW.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBox1.Text = Environment.UserName
Me.CHANGED_WHOTextBox1.Text = USER_USERNAME
Me.TBPMO_WORKFLOWBindingSource.EndEdit()
Me.TBPMO_WORKFLOWTableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW)
toolstriplabel(True, "Änderungen Task erfolgreich gespeichert - " & Now)
@@ -133,7 +133,7 @@
End Sub
Private Sub TBPMO_WORKFLOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WORKFLOWBindingSource.AddingNew
DD_DMSDataSet.TBPMO_WORKFLOW.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_WORKFLOW.ADDED_WHOColumn.DefaultValue = USER_USERNAME
End Sub
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
@@ -177,7 +177,7 @@
Try
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.EndEdit()
If DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBox.Text = Environment.UserName
Me.CHANGED_WHOTextBox.Text = USER_USERNAME
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.EndEdit()
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE)
toolstriplabel(True, "Änderungen erfolgreich gespeichert - " & Now)
@@ -188,8 +188,8 @@
End Sub
Private Sub TBPMO_WORKFLOW_TASK_STATEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WORKFLOW_TASK_STATEBindingSource.AddingNew
DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.ADDED_WHOColumn.DefaultValue = USER_USERNAME
DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn.DefaultValue = USER_USERNAME
End Sub
'Private Sub btnAddTask2Entity_Click(sender As Object, e As EventArgs) Handles btnAddTask2Entity.Click
@@ -203,7 +203,7 @@
' MsgBox("Please choose an entity.", MsgBoxStyle.Exclamation)
' Exit Sub
' End If
' TBPMO_WORKFLOW_FORMTableAdapter.Insert(_ENTITYID, GUIDTextBox1.Text, 1, Environment.UserName)
' TBPMO_WORKFLOW_FORMTableAdapter.Insert(_ENTITYID, GUIDTextBox1.Text, 1, USER_USERNAME)
' toolstriplabel(True, "Task erfolgreich zugeordnet - " & Now)
' Refresh_Workflow_Form(_ENTITYID)
' ' End If
@@ -388,7 +388,7 @@
'Private Sub btnAddState2Entity_Click_1(sender As Object, e As EventArgs) Handles btnAddState2Entity.Click
' Try
' If GUIDTextBox.Text <> "" And GUIDTextBox1.Text <> "" And _ENTITYID <> 0 Then
' Dim ins = String.Format("INSERT INTO TBPMO_WORKFLOW_ENTITY_STATE (WF_ID,ENTITY_ID,STATE_ID,ADDED_WHO) VALUES({0},{1},{2},'{3}')", GUIDTextBox1.Text, _ENTITYID, GUIDTextBox.Text, Environment.UserName)
' Dim ins = String.Format("INSERT INTO TBPMO_WORKFLOW_ENTITY_STATE (WF_ID,ENTITY_ID,STATE_ID,ADDED_WHO) VALUES({0},{1},{2},'{3}')", GUIDTextBox1.Text, _ENTITYID, GUIDTextBox.Text, USER_USERNAME)
' If ClassDatabase.Execute_non_Query(ins) Then
' Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now
' If USER_LANGUAGE <> "de-DE" Then
@@ -497,7 +497,7 @@
final = 1
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, Environment.UserName, final)
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
Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now
If USER_LANGUAGE <> "de-DE" Then