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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
app/DD-Record-Organizer/frmTask_Editor.vb
View File

@@ -6,7 +6,7 @@ Public Class frmTask_Editor
Try
Dim upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', STATE_ID = {2}, ACTIVE = {3}, CHANGED_WHO = '{4}', TASK_DATE = '{5}' " & _
"WHERE GUID = {6}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, USER_USERNAME, DateTimePicker1.Value, Me.GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(upd, True) Then
If MYDB_ECM.ExecuteNonQuery(upd) Then
Me.Close()
Else
MsgBox("Update not successfull. Please check logfile.", MsgBoxStyle.Exclamation)
@@ -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)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
Dim msg As String = " nachfolgender Task"
If USER_LANGUAGE <> "de-DE" Then
msg = " following task:"
@@ -101,7 +101,7 @@ Public Class frmTask_Editor
Try
Dim Sql = "SELECT T.GUID as [User-ID], T.NAME + ', ' + T.PRENAME AS [User] FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If DT Is Nothing = False Then
Me.ListBoxUser.Visible = True
Me.ListBoxUser.DataSource = DT
@@ -119,7 +119,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
Try
'Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE LOWER(USERNAME) = '" & USER_USERNAME & "' AND WF_TASK_ID = " & Me.GUIDTextBox.Text
Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE WF_TASK_ID = " & Me.GUIDTextBox.Text
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
Dim count As Integer = 0
If DT Is Nothing = False Then
ListViewExclusiveUser.Items.Clear()
@@ -174,7 +174,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
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, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Load_TASK_USER()
End If
End If
@@ -187,7 +187,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
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, False)
MYDB_ECM.ExecuteNonQuery(SQL)
Load_TASK_USER()
End If
@@ -201,9 +201,9 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
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) Then
If MYDB_ECM.ExecuteNonQuery(Sql) Then
sql = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(sql) Then
If MYDB_ECM.ExecuteNonQuery(Sql) Then
Load_Task()
Load_Following()
Load_TASK_USER()
@@ -233,7 +233,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
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 Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
Load_Task()
Load_Following()
Load_TASK_USER()
@@ -255,7 +255,7 @@ WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
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, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
Load_TASK_USER()
End If
End If