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

56
app/DD-Record-Organizer/frmTask_Management.vb
View File

@@ -79,7 +79,7 @@
Try
Dim DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0", USER_LANGUAGE, CURRENT_SCREEN_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim DT As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
If DT.Rows.Count > 0 Then
TreeViewEntities.Nodes.Clear()
For Each Row As DataRow In DT.Rows
@@ -90,7 +90,7 @@
'Jetzt die Ebene1Knoten einhängen
DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID in (2,5) AND PARENT_ID = {2} ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("ID"))
'Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL"
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim dtEbene1 As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
If dtEbene1.Rows.Count > 0 Then
For Each row1 As DataRow In dtEbene1.Rows
Dim Node1 As TreeNode
@@ -99,7 +99,7 @@
DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID in (3,5) AND PARENT_ID = {2} ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, row1.Item("ID"))
' Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL"
'Jetzt die Ebene2 Knoten einhängen
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim dtEbene2 As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
If dtEbene2.Rows.Count > 0 Then
For Each row2 As DataRow In dtEbene2.Rows
Dim Node2 As TreeNode
@@ -114,7 +114,7 @@
Next
DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID = 4 AND PARENT_ID = 0 ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID)
'Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE"
Dim DT3 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim DT3 As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
If DT3.Rows.Count > 0 Then
Dim Node As TreeNode
Node = TreeViewEntities.Nodes.Add("INDEPENDENT ENTITIES")
@@ -288,22 +288,11 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(del) Then
If MYDB_ECM.ExecuteNonQuery(del) Then
Load_ENTITY_States("ENT")
End If
End If
'If ListBoxEntityWorkflow.SelectedIndex <> -1 Then
' Dim ID = ListBoxEntityWorkflow.SelectedValue
' If ClassDatabase.Execute_non_Query(del) = True Then
' Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now
' If USER_LANGUAGE <> "de-DE" Then
' txt = "The record has been deleted - " & Now
' End If
' Refresh_Workflow_Form(_ENTITYID)
' toolstriplabel(True, txt)
' End If
'End If
Catch ex As Exception
MsgBox("Error in delete entity-workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -334,7 +323,7 @@
sql = String.Format("SELECT GUID as ID,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),FV_ID), 1) AS Entity,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5),WF_ID), 1) AS [Task/Workflow],dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),STATE_ID), 1) AS [State],Final FROM VWPMO_WORKFLOW_ENTITY_STATE WHERE STATE_ID = {1}", USER_LANGUAGE, GUIDTextBox.Text)
End Select
' Dim sql = String.Format("SELECT T.GUID,T1.STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE T, TBPMO_WORKFLOW_TASK_STATE T1 WHERE T.STATE_ID = T1.GUID AND T.WF_ID = {0} AND T.ENTITY_ID = {1}", Workflow_ID, _ENTITYID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
DataGridView1.DataSource = DT
lblSelection.Text = txtlbl
DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
@@ -389,7 +378,7 @@
' 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, USER_USERNAME)
' If ClassDatabase.Execute_non_Query(ins) Then
' If MYDB_ECM.ExecuteNonQuery(ins) Then
' Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now
' If USER_LANGUAGE <> "de-DE" Then
' txt = "The record was added successfully - " & Now
@@ -429,31 +418,6 @@
End Try
End Sub
'Private Sub btndeleteEntityState_Click(sender As Object, e As EventArgs) Handles btndeleteEntityState.Click
' Try
' 'If ListBoxEntity_State.SelectedIndex <> -1 Then
' ' Dim ID = ListBoxEntity_State.SelectedValue
' ' Dim del = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE STATE_ID = " & ID
' ' If ClassDatabase.Execute_non_Query(del) = True Then
' ' del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & ID
' ' If ClassDatabase.Execute_non_Query(del) = True Then
' ' Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now
' ' If USER_LANGUAGE <> "de-DE" Then
' ' txt = "The record has been deleted - " & Now
' ' End If
' ' If Not IsNothing(ListBoxEntity_State.SelectedItem) And _ENTITYID > 0 Then
' ' Load_ENTITY_States(ListBoxEntity_State.SelectedItem)
' ' End If
' ' toolstriplabel(True, txt)
' ' End If
' ' End If
' 'End If
' Catch ex As Exception
' MsgBox("Error in delete entity-workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try
'End Sub
Private Sub TBPMO_WORKFLOW_TASK_STATEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_WORKFLOW_TASK_STATEBindingSource.CurrentChanged
If GUIDTextBox.Text <> "" And _ENTITYID <> 0 Then
@@ -498,7 +462,7 @@
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, USER_USERNAME, final)
If ClassDatabase.Execute_non_Query(ins, False) Then
If MYDB_ECM.ExecuteNonQuery(ins) Then
Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now
If USER_LANGUAGE <> "de-DE" Then
txt = "The record was added successfully - " & Now
@@ -532,7 +496,7 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim sel = "SELECT COMMENT FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
Dim result = ClassDatabase.Execute_Scalar(sel)
Dim result = MYDB_ECM.GetScalarValue(sel)
txtComment.Text = result
End If
Catch ex As Exception
@@ -552,7 +516,7 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim upd = "UPDATE TBPMO_WORKFLOW_ENTITY_STATE SET COMMENT = '" & txtComment.Text & "' WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(upd, False) = False Then
If MYDB_ECM.ExecuteNonQuery(upd) = False Then
MsgBox("Workflow Comment could not be updated -Check log", MsgBoxStyle.Critical)
End If
End If