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/frmEntities.vb
View File

@@ -52,7 +52,7 @@ Public Class frmEntities
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 1 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2}))", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
LOGGER.Debug(Now.ToString & "Level 0 >>" & DT_SQL, False)
Dim DT As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
Dim DT As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
If DT.Rows.Count > 0 Then
TreeViewEntity.Nodes.Clear()
For Each Row As DataRow In DT.Rows
@@ -65,7 +65,7 @@ Public Class frmEntities
"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 IN ({2},0) AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("GUID"), USER_GUID)
LOGGER.Debug(Now.ToString & "Level 1 >>" & DT_SQL, False)
'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
@@ -76,7 +76,7 @@ Public Class frmEntities
LOGGER.Debug(Now.ToString & "Level 2 >>" & DT_SQL, False)
' 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
@@ -92,7 +92,7 @@ Public Class frmEntities
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' " & _
"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 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2})) ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
'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)
LOGGER.Debug(Now.ToString & "Indepentent Entities >>" & DT_SQL, False)
If DT3.Rows.Count > 0 Then
Dim Node As TreeNode
@@ -248,7 +248,7 @@ Public Class frmEntities
' Save FORM_VIEW Properties
If insert = True Then
Dim sql = "SELECT (MAX(GUID)) FROM TBPMO_FORM"
Dim FORM_ID = ClassDatabase.Execute_Scalar(sql)
Dim FORM_ID = MYDB_ECM.GetScalarValue(SQL)
Dim ADDED_WHO As String = USER_USERNAME
@@ -257,7 +257,7 @@ Public Class frmEntities
'ggg()
If FORM_ID Is Nothing = False Then
sql = String.Format("INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO,LANGUAGE) VALUES ({0}, {1},'{2}','{3}','{4}','{5}')", FORM_ID, CURRENT_SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO, USER_LANGUAGE)
ClassDatabase.Execute_non_Query(sql)
MYDB_ECM.ExecuteNonQuery(Sql)
End If
Load_TreeView()
Else
@@ -294,7 +294,7 @@ Public Class frmEntities
Try
Dim CurrentID = GetCurrentGUID()
Dim sql = "EXEC PRPMO_DELETE_ENTITY " & CurrentID
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
MsgBox("Entity was deleted!", MsgBoxStyle.Information)
Load_TreeView()
Load_Forms(999999999)
@@ -309,7 +309,7 @@ Public Class frmEntities
End Sub
Private Sub btninsert_Click(sender As Object, e As EventArgs) Handles btninsert.Click
Dim anz_ent = ClassDatabase.Execute_Scalar("SELECT Count(GUID) FROM TBPMO_FORM where PARENT_ID = 0 and FORM_TYPE_ID = 1")
Dim anz_ent = MYDB_ECM.GetScalarValue("SELECT Count(GUID) FROM TBPMO_FORM where PARENT_ID = 0 and FORM_TYPE_ID = 1")
anz_ent += 1
If anz_ent > LICENSE_DOSSIER_COUNT Then
Dim msg = String.Format("Die Anzahl an lizensierten Sichten/Akten {0} ist erreicht! Bitte kontaktieren Sie Digital Data!", LICENSE_DOSSIER_COUNT.ToString)
@@ -350,7 +350,7 @@ Public Class frmEntities
Try
Dim CurrentID = GetCurrentGUID()
Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString & ", '" & USER_USERNAME & "'"
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information)
Load_TreeView()
Load_Forms(999999999)
@@ -416,7 +416,7 @@ Public Class frmEntities
BW_Entity.RunWorkerAsync()
End Sub
Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
DT_RESULT = ClassDatabase.Return_Datatable(EXECUTE_STATEMENT)
DT_RESULT = MYDB_ECM.GetDatatable(EXECUTE_STATEMENT)
End Sub
Private Sub BW_Entity_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BW_Entity.ProgressChanged