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

4
app/DD-Record-Organizer/frmTask_Overview.vb
View File

@@ -2,7 +2,7 @@
Public Sub Refresh()
Try
Dim DTACTIVE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID NOT IN (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)")
Dim DTACTIVE As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID NOT IN (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)")
ListViewActive.Items.Clear()
Dim anz As Integer = 0
For Each row As DataRow In DTACTIVE.Rows
@@ -27,7 +27,7 @@
End Try
Try
Dim DTACTIVE As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID = (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)")
Dim DTACTIVE As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM VWPMO_WF_OVERVIEW_AUTHORITY WHERE RECORD_ID = " & CURRENT_RECORD_ID & " AND STATE_ID = (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATION WHERE GUID = 1)")
ListViewDone.Items.Clear()
Dim anz As Integer = 0
For Each row As DataRow In DTACTIVE.Rows