DAtabase integriert

2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
--- a/app/DD-Record-Organizer/frmNodeNavigation.vb
+++ b/app/DD-Record-Organizer/frmNodeNavigation.vb
@@ -63,7 +63,7 @@ Public Class frmNodeNavigation
    End Enum

    Private DT_CONTROLS_ENTITY As DataTable
-    Private DT_WINDREAM_COLUMNS_GRID As DataTable
+    Private DT_COLUMNS_GRID_ENTITY As DataTable
    Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
    Private DT_RESULTLIST_OPTIONS As DataTable
    Private DT_RESULTLIST_VARIABLE_VALUE As DataTable
@@ -261,8 +261,8 @@ Public Class frmNodeNavigation
        Dim Sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
            "FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND  CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, oConstructID)

-        DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(Sql, True)
-        CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID), False)
+        DT_VWPMO_CONSTRUCTOR_FORMS = MYDB_ECM.GetDatatable(Sql)
+        CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = MYDB_ECM.GetDatatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID))
        ' Hintergrund Bild initialisieren
        'If (System.IO.File.Exists(Application.StartupPath + "\Resources\windream-portrait_col_RGB_Wordpress.png")) Then
        '    WM_LOGO = New Bitmap(Application.StartupPath + "\Resources\windream-portrait_col_RGB_Wordpress.png")
@@ -272,13 +272,13 @@ Public Class frmNodeNavigation
        'End If
        ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "NODE_NAVIGATION")
        Try
-            DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
+            DT_CONSTRUCT_VIEW = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
            Dim SEL1 = String.Format("SELECT * FROM TBPMO_FORM WHERE GUID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {0} AND  CONSTRUCT_ID = {1})", CURRENT_SCREEN_ID, CONSTRUCTORID)
-            DT_ENTITY_DATA = ClassDatabase.Return_Datatable(SEL1, True)
+            DT_ENTITY_DATA = MYDB_ECM.GetDatatable(SEL1)

            SEL1 = String.Format("SELECT *, dbo.FNPMO_GET_CONTROL_CAPTION ('{0}', 1, CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN", USER_LANGUAGE)
-            DT_VWPMO_CONTROL_SCREEN = ClassDatabase.Return_Datatable(SEL1, True)
-            'DT_CONTROL_SCREEN_SHOW_COL_0 = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CONTROL_SHOW_COLUMN = 0", "") 'ClassDatabase.Return_Datatable("SELECT FORM_ID, CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0", True)
+            DT_VWPMO_CONTROL_SCREEN = MYDB_ECM.GetDatatable(SEL1)
+
            If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then
                'Load Input Grid
                Me.Text = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE")
@@ -289,7 +289,7 @@ Public Class frmNodeNavigation
            '            "FROM TBPMO_WORKFLOW T,TBPMO_WORKFLOW_ENTITY_STATE T1 " &
            '            "WHERE T.GUID = T1.WF_ID " &
            '            "GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP"
-            'DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList)
+            'DT_WORKFLOWS_MANUAL = MYDB_ECM.GetDatatable(sql_ResultList)
            Load_Datafor_Entity()

            FORM_LOADED = True
@@ -303,10 +303,11 @@ Public Class frmNodeNavigation
        Try

            Dim oToken = RunningTaskTokenSource.Token
-            Dim Sql = String.Format("select T.GUID,T.RECORD_ID, T.NODE_CONFIG_ID,T.NODE_CAPTION,T.ID1, T.BACK_COLOR,T.PARENT_GUID from VWPMO_STRUCTURE_NODES T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", 1)
-            DTNODES = ClassDatabase.Return_Datatable(Sql, True)
-            Sql = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", 1)
-            Dim DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(Sql)
+            Dim Sql = String.Format("select T.GUID,T.RECORD_ID, T.NODE_CONFIG_ID,T.NODE_CAPTION,T.ID1, T.BACK_COLOR,T.PARENT_GUID from VWPMO_STRUCTURE_NODES T 
+                INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T.ENTITY_ID = {0}", CURRENT_ENTITY_ID)
+            DTNODES = MYDB_ECM.GetDatatable(Sql)
+            Sql = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T.ENTITY_ID = {0}", CURRENT_ENTITY_ID)
+            Dim DT_TREEVIEW_CONFIGURATION = MYDB_ECM.GetDatatable(Sql)
            For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
                Try
                    Dim bimage = row.Item("NODE_IMAGE")
@@ -397,10 +398,13 @@ Public Class frmNodeNavigation
    End Class

    Private Sub TreeListDevexpress_FocusedNodeChanged(sender As Object, e As FocusedNodeChangedEventArgs) Handles TreeListDevexpress.FocusedNodeChanged
+        FocusedNode = Nothing
        If oFilterActive Then
            Exit Sub
        End If
        For Each treeListNode As DevExpress.XtraTreeList.Nodes.TreeListNode In TreeListDevexpress.Selection
+            FocusedNode = treeListNode
+            RPGNodes.Enabled = True
            Dim oID = treeListNode.Id
            Dim PID = treeListNode.ParentNode
            Dim Column_pRecord As DevExpress.XtraTreeList.Columns.TreeListColumn = TreeListDevexpress.Columns("RECORD_ID")
@@ -536,7 +540,7 @@ Public Class frmNodeNavigation
    Sub Load_Adding_users()
        Try
            Dim oSql = String.Format("SELECT * FROM TBPMO_ENTITY_USERRIGHT_ADDING where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", oConstructID)
-            DT_ADDING_USERS = ClassDatabase.Return_Datatable(oSql, False)
+            DT_ADDING_USERS = MYDB_ECM.GetDatatable(oSql)
        Catch ex As Exception
            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Adding_users")
        End Try
@@ -544,7 +548,7 @@ Public Class frmNodeNavigation
    Private Sub Load_Configurable_Nodes()
        Try
            Dim oSql = String.Format("SELECT * FROM TBPMO_STRUCTURE_NODES_CONFIGURATION where TYPE_NODE = 1000 AND ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", oConstructID)
-            NODE_CONFIGURABLE_NODES_DT = ClassDatabase.Return_Datatable(oSql, False)
+            NODE_CONFIGURABLE_NODES_DT = MYDB_ECM.GetDatatable(oSql)
        Catch ex As Exception
            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Configurable_Nodes")
        End Try
@@ -633,7 +637,7 @@ Public Class frmNodeNavigation
            Dim sql
            'Dim sql = "SELECT CONTROL_ID, CONTROL_READ_ONLY FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & oEntityID
            DT_CONTROLS_ENTITY = ClassHelper.FILTER_DATATABLE(DT_VWPMO_CONTROL_SCREEN, "CTRLTYPE_ID NOT IN (1) AND CONTROL_ENTITY_ID = " & oEntityID, "")
-            'ClassDatabase.Return_Datatable(sql, True)
+

            expression = "CONTROL_READ_ONLY = " & 1
            Dim CONTROLS_ROW() As DataRow
@@ -671,13 +675,13 @@ Public Class frmNodeNavigation


            expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", oEntityID, USER_LANGUAGE)
-            DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
-            expression = String.Format("oEntityID = {0} AND TYPE_ID = 10 AND LANGUAGE = '{1}'", oEntityID, USER_LANGUAGE)
+            DT_COLUMNS_GRID_ENTITY = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
+            expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 10 AND LANGUAGE = '{1}'", oEntityID, USER_LANGUAGE)
            DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE")

            DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & oEntityID, "")
            expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", oEntityID, USER_LANGUAGE)
-            DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
+            DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
            Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
                              Select form
                              Where form.Item("GUID") = oEntityID).Single()
@@ -687,7 +691,7 @@ Public Class frmNodeNavigation
            DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & oEntityID, "")
            expression = String.Format("")
            sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", oEntityID, USER_GUID)
-            DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(sql, True)
+            DT_RIGHTS_GROUP = MYDB_ECM.GetDatatable(sql)
            sql = String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, oEntityID, USER_GUID)


@@ -710,9 +714,9 @@ Public Class frmNodeNavigation
            CURRENT_ENTITYSQL = Get_Grid_Sql_NODE_NAV(CONSTRUCTORID, oEntityID, CURRENT_CONSTRUCTOR_DETAIL_ID, USER_GUID)
            ' CURRENT_ENTITYSQL = GridSQL
            'Anzahl der Datensätze
-            ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & oEntityID, True)
+            ENTITY_RECORD_COUNT = MYDB_ECM.GetScalarValue("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & oEntityID)

-            ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_COLUMNS_GRID, oEntityID, SELECTED_NODE_RECORD_ID, True, True)
+            ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_COLUMNS_GRID_ENTITY, oEntityID, SELECTED_NODE_RECORD_ID, True, True)


            DT_TBPMO_FORM_VIEW = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_FORM_VIEW, "FORM_ID = " & oEntityID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, "")
@@ -742,7 +746,7 @@ Public Class frmNodeNavigation

                Dim DT_AUTOVALUES = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONNECTION_ID_1 > 0 AND SQL_COMMAND_1 <> '' AND FORM_ID = " & oEntityID, "")

-                'Dim DT_AUTOVALUES As DataTable = ClassDatabase.Return_Datatable(SQL_AutoValues, True)
+
                CURRENT_SQL_AUTO_VALUES_DT = DT_AUTOVALUES

                If USER_WAN = True Then
@@ -790,11 +794,7 @@ Public Class frmNodeNavigation
            Dim SQL As String = "SELECT ADDED_WHO, CONVERT(VARCHAR(16),ADDED_WHEN,20) AS ADDED_WHEN, COALESCE(CHANGED_WHO,'') AS CHANGED_WHO, COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') AS CHANGED_WHEN FROM TBPMO_RECORD WHERE GUID = " & RecordId
            Dim expression = "[Record-ID] = " & RecordId
            Dim resultDT As DataTable
-            If CtrlCommandUI.IsInsert = True Then
-                resultDT = ClassDatabase.Return_Datatable(SQL)
-            Else
-                resultDT = ClassDatabase.Return_Datatable(SQL, True)
-            End If
+            resultDT = MYDB_ECM.GetDatatable(SQL)


            If Not IsNothing(resultDT) Then
@@ -1195,7 +1195,8 @@ Public Class frmNodeNavigation

        CURRENT_CHANGE_STEP += 1
        Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", USER_USERNAME.ToUpper)
-        ClassDatabase.Execute_non_Query(del)
+        MYDB_ECM.ExecuteNonQuery(del)
+
        Lock_RecordControls(False)
        Me.bbtnitmRecSave.Enabled = True

@@ -1254,14 +1255,6 @@ Public Class frmNodeNavigation
        '    tsButtonAdd.Enabled = True
        'End If
        bbtnitmRecSave.Enabled = False
-        Dim stg As String
-        If USER_LANGUAGE = "de-DE" Then
-            stg = "Bearbeiten"
-        Else
-            stg = "Edit record"
-        End If
-        bbtnitmRecSave.Caption = stg
-        bbtnitmRecSave.Caption = stg

        If Not IsNothing(CtrlCommandUI) Then
            'ActivateAllTabs()
@@ -1456,14 +1449,14 @@ Public Class frmNodeNavigation
 #End Region
    Private Sub Customer_Run_Procedures()
        Try
-            Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & oEntityID)
+            Dim DT As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & oEntityID)
            If Not DT Is Nothing Then
                For Each row As DataRow In DT.Rows
                    Dim prsql As String = row.Item("EXECUTE_COMMAND")
                    prsql = prsql.ToUpper.Replace("@FORM_ID", oEntityID)
                    prsql = prsql.ToUpper.Replace("@ENTITY_ID", oEntityID)
                    prsql = prsql.ToUpper.Replace("@RECORD_ID", SELECTED_NODE_RECORD_ID)
-                    ClassDatabase.Execute_non_Query(prsql)
+                    MYDB_ECM.ExecuteNonQuery(prsql)
                Next
            End If
        Catch ex As Exception
@@ -1507,7 +1500,7 @@ Public Class frmNodeNavigation

            End If
            Dim DT_RESULT As DataTable
-            DT_RESULT = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_COLUMNS_GRID, oEntityID, SELECTED_NODE_RECORD_ID, True)
+            DT_RESULT = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_COLUMNS_GRID_ENTITY, oEntityID, SELECTED_NODE_RECORD_ID, True)

            If IsNothing(DT_RESULT) Then
                Dim msg = "wrong DocSearch-Configuration or unexpected Error in Get_DOC_RESULTTABLE - Check logfile and contact Digital Data"
@@ -1565,7 +1558,7 @@ Public Class frmNodeNavigation
                        ClassWindreamDocGrid.FillColumns(
                           GridViewDoc_Search,
                           DT_RESULT,
-                           DT_WINDREAM_COLUMNS_GRID,
+                           DT_COLUMNS_GRID_ENTITY,
                           DT_DOCRESULT_DROPDOWN_ITEMS,
                           AddressOf OnCBSelectedValueChanged,
                           AddressOf OnDateSelectedValueChanged,
@@ -1633,7 +1626,7 @@ Public Class frmNodeNavigation
        Dim sw As New SW("RUN_ENTITY_DOC_SEARCH")
        Try
            Dim oSQL = $"SELECT ENTITY_DOC_SEARCH FROM TBPMO_FORM WHERE GUID = {oEntityID}"
-            CURRENT_DOCSEARCH_SQL = ClassDatabase.Execute_Scalar(oSQL, True)
+            CURRENT_DOCSEARCH_SQL = MYDB_ECM.GetScalarValue(oSQL)
            If CURRENT_DOCSEARCH_SQL <> String.Empty Then
                Dim oText = $"Die Entität-weite Suche wird im Hintergrund ausgeführt und in einem separaten Fenster angezeigt sobald sie fertig ist."
                If USER_LANGUAGE <> "de-De" Then
@@ -1691,7 +1684,7 @@ Public Class frmNodeNavigation
            Dim user As String = USER_USERNAME

            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, SELECTED_NODE_RECORD_ID, configId, value, user)
-            If ClassDatabase.Execute_non_Query(Sql) = False Then
+            If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
                MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
            Else
                ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
@@ -1740,7 +1733,7 @@ Public Class frmNodeNavigation
            Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, SELECTED_NODE_RECORD_ID, configid, dateString, user)

-            If ClassDatabase.Execute_non_Query(Sql) = False Then
+            If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
                ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
            Else
                ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
@@ -1774,7 +1767,7 @@ Public Class frmNodeNavigation
            Dim user As String = USER_USERNAME

            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user)
-            If ClassDatabase.Execute_non_Query(Sql) = False Then
+            If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
                ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
            Else
                ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
@@ -1804,7 +1797,7 @@ Public Class frmNodeNavigation
            Dim user As String = USER_USERNAME

            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user)
-            If ClassDatabase.Execute_non_Query(Sql) = False Then
+            If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
                ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
            Else
                ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
@@ -1947,13 +1940,13 @@ Public Class frmNodeNavigation
            End If
            If oEntityID <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then
                Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
-                Dim count_DT = ClassDatabase.Execute_Scalar(sql, True)
+                Dim count_DT = MYDB_ECM.GetScalarValue(sql)
                If count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID = 0 Then
                    MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
                    Exit Sub
                ElseIf count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID <> 0 Then
                    sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORM_ID = " & CURRENT_ENTITY_REDUNDANT_ID
-                    count_DT = ClassDatabase.Execute_Scalar(sql, True)
+                    count_DT = MYDB_ECM.GetScalarValue(sql)
                    If count_DT = 0 Then
                        MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
                        Exit Sub
@@ -2014,6 +2007,7 @@ Public Class frmNodeNavigation
                If NEW_FILES_ADDED = True Then
                    Me.Cursor = Cursors.WaitCursor
                    RUN_WDSEARCH_GRID(True)
+                    ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
                    TimerClearResultfiles.Start()
                Else
                    LOGGER.Debug("No new files were added or windream tab is not focused!")
@@ -2073,13 +2067,13 @@ Public Class frmNodeNavigation
            End If

            Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
-            Dim count_DT = ClassDatabase.Execute_Scalar(sql, True)
+            Dim count_DT = MYDB_ECM.GetScalarValue(sql)
            If count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID = 0 Then
                ClassHelper.MSGBOX_Handler("INFO", "Attention", "Configuration missing: ", "No documenttypes for this entity (" & FORMVIEW_ID.ToString & ") configured! Indexing is not possible! Please check the configuration.")
                Exit Sub
            ElseIf count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID <> 0 Then
                sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORM_ID = " & CURRENT_ENTITY_REDUNDANT_ID
-                count_DT = ClassDatabase.Execute_Scalar(sql, True)
+                count_DT = MYDB_ECM.GetScalarValue(sql)
                If count_DT = 0 Then
                    ClassHelper.MSGBOX_Handler("INFO", "Attention", "Configuration missing: ", "No documenttypes for the redundant entity (" & CURRENT_ENTITY_REDUNDANT_ID.ToString & ") configured! Indexing is not possible! Please check the configuration.")
                    Exit Sub
@@ -2190,8 +2184,8 @@ Public Class frmNodeNavigation
            End If
            If EDIT_STATE = EditState.Insert Then

-                'Dim exec = String.Format("EXEC PRPMO_CLIENT_AFTER_RECORD_INSERT {0}", CURRENT_RECORD_ID)
-                'ClassDatabase.Execute_non_Query_withConn(exec, 1)
+                Dim exec = String.Format("EXEC PRPMO_CLIENT_AFTER_RECORD_INSERT {0}", CURRENT_RECORD_ID)
+                MYDB_ECM.ExecuteNonQuery(exec)
            ElseIf EDIT_STATE = EditState.Update Then
                'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden

@@ -2380,7 +2374,7 @@ Public Class frmNodeNavigation

            Try
                Dim oSQLDRList = $"Select COALESCE(IN_WORK_USER,'') IN_WORK_USER, COALESCE(IN_WORK_COMMENT,'') IN_WORK_COMMENT,IN_WORK FROM TBPMO_DOCRESULT_LIST where DocID = {ClassWindreamDocGrid.SELECTED_DOC_ID}"
-                Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQLDRList)
+                Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQLDRList)
                If Not IsNothing(oDT) Then
                    If oDT.Rows.Count = 1 Then
                        IW_USER = oDT.Rows(0).Item("IN_WORK_USER")
@@ -2533,7 +2527,7 @@ Public Class frmNodeNavigation
                Exit Sub
            End If
            Refresh_Selected_Table()
-            Dim frm As New frmDocRecordLink ' frmDocLink_Record_Entities() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
+            Dim frm As New frmDocRecordLink
            frm.Show()
        Catch ex As Exception
            MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
@@ -2686,7 +2680,7 @@ Public Class frmNodeNavigation
        Load_nodes()
    End Sub

-    Private Sub UnterknotenNeuOrdnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnterknotenNeuOrdnenToolStripMenuItem.Click
+    Private Sub UnterknotenNeuOrdnenToolStripMenuItem_Click(sender As Object, e As EventArgs)
        MyTreeListViewState = New TreeListViewState(TreeListDevexpress)
        Dim oQuestion = "Wollen Sie die gesamte Struktur unterhalb dieses Knotens neu ordnen lassen?" & vbNewLine & "Nein, wenn nur die direkten Unterknoten neu geordnet werden sollen!"
        If USER_LANGUAGE <> "de-DE" Then
@@ -2712,7 +2706,7 @@ Public Class frmNodeNavigation
            MyTreeListViewState.SaveState()
            oNodeGUID = oID
            oSQL += $" {oNodeGUID},{oSubnodes} "
-            ClassDatabase.Execute_non_Query(oSQL)
+            MYDB_ECM.ExecuteNonQuery(oSQL)
            ReloadTreeView()
            MyTreeListViewState.LoadState()
            TreeListDevexpress.FocusedNode = FocusedNode
@@ -2725,14 +2719,121 @@ Public Class frmNodeNavigation

    Private Sub TreeListDevexpress_MouseUp(sender As Object, e As MouseEventArgs) Handles TreeListDevexpress.MouseUp
        Dim tree As TreeList = TryCast(sender, TreeList)
-        If e.Button = MouseButtons.Right AndAlso ModifierKeys = Keys.None AndAlso tree.State = TreeListState.Regular Then
+        Dim oLocation = e.Location
+        'If e.Button = MouseButtons.Right AndAlso ModifierKeys = Keys.None AndAlso tree.State = TreeListState.Regular Then

-            Dim info As TreeListHitInfo = tree.CalcHitInfo(e.Location)
+        '    Dim info As TreeListHitInfo = tree.CalcHitInfo(e.Location)
+
+        '    FocusedNode = tree.FocusedNode
+        '    Dim SavedTopIndex As Integer = tree.TopVisibleNodeIndex
+        '    tree.FocusedNode = info.Node
+        '    cmsTreeView.Show(TreeListDevexpress, e.Location)
+        'End If
+    End Sub
+
+    Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
+        If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
+            e.Appearance.BackColor = Color.Yellow
+        Else
+            If e.RowHandle = -1 Then
+                Exit Sub
+            End If
+            Try
+                Dim rowCellValue = GridViewDoc_Search.GetRowCellValue(e.RowHandle, "in work?")
+                If Not IsNothing(rowCellValue) Then
+                    Dim inwork = rowCellValue
+                    If inwork = True Then
+                        e.Appearance.BackColor = Color.Orchid
+                        e.HighPriority = True
+                    End If
+                End If
+            Catch ex As Exception
+                LOGGER.Warn("Unexpected Error in Checking Value In Work: " & ex.Message)
+            End Try
+
+            Try
+                Dim DROPDOWN_VALUE
+                If Not IsNothing(DT_DOCRESULT_DROPDOWN_ITEMS) Then
+                    'Den ColumnTitle aus ConfigTableholen
+                    If DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count > 0 Then
+                        For Each confrow As DataRow In DT_DOCRESULT_DROPDOWN_ITEMS.Rows
+                            Dim CAPTION = confrow.Item("HEADER_CAPTION")
+                            DROPDOWN_VALUE = GridViewDoc_Search.GetRowCellValue(e.RowHandle, CAPTION)
+                            If Not IsNothing(DROPDOWN_VALUE) Then
+                                Exit For
+                            End If
+                        Next
+
+                        If Not IsNothing(DROPDOWN_VALUE) Then
+                            Dim ColorRow As Color
+                            Dim expression As String = String.Format("VALUE = '{0}'", DROPDOWN_VALUE)
+                            Dim matchingRows() As DataRow = DT_DOCRESULT_DROPDOWN_ITEMS.Select(expression, "SEQUENCE")
+                            Dim rowcolorname As String = ""
+                            'Die Color für den value auswählen
+                            For Each matchingRow As DataRow In matchingRows
+                                rowcolorname = ""
+                                If Not IsDBNull(matchingRow.Item("COLOR")) Then
+                                    rowcolorname = matchingRow.Item("COLOR")
+                                End If
+
+                                If rowcolorname <> "" Then
+                                    Exit For
+                                End If
+                            Next
+                            If rowcolorname <> "" Then
+                                ColorRow = Color.FromName(rowcolorname)
+                                e.Appearance.BackColor = ColorRow
+                                e.HighPriority = True
+                            End If
+
+
+                            'Dim c As Color = DirectCast(rowCellValue, Color)
+
+                        End If
+                    End If
+
+
+                End If
+            Catch ex As Exception
+                LOGGER.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message)
+            End Try

-            FocusedNode = tree.FocusedNode
-            Dim SavedTopIndex As Integer = tree.TopVisibleNodeIndex
-            tree.FocusedNode = info.Node
-            cmsTreeView.Show(TreeListDevexpress, e.Location)
        End If
    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnitmNodeReorder.ItemClick
+        MyTreeListViewState = New TreeListViewState(TreeListDevexpress)
+        Dim oQuestion = "Wollen Sie die gesamte Struktur unterhalb dieses Knotens neu ordnen lassen?" & vbNewLine & "Nein, wenn nur die direkten Unterknoten neu geordnet werden sollen!"
+        If USER_LANGUAGE <> "de-DE" Then
+            oQuestion = "Do you want to reorder the entire structure below this node?" & vbNewLine & "No, if only the direct subnodes are to be reordered!"
+        End If
+        Dim result As MsgBoxResult
+        result = MessageBox.Show(oQuestion, CAPTION_CONFIRMATION, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
+        Dim oSubnodes As String = "0"
+        If result = MsgBoxResult.Yes Then
+            oSubnodes = "1"
+        ElseIf result = MsgBoxResult.Cancel Then
+            Exit Sub
+        End If
+        Cursor = Cursors.WaitCursor
+        Dim oSQL = $"EXEC PRCUST_REORDER_CHILD_NODES "
+        Dim oNodeGUID As Integer = 0
+        Dim oID = FocusedNode.Id
+        Dim PID = FocusedNode.ParentNode
+        Dim Column_pRecord As TreeListColumn = TreeListDevexpress.Columns("RECORD_ID")
+        Dim Column_Caption As TreeListColumn = TreeListDevexpress.Columns("NODE_CAPTION")
+
+        If oID > 0 Then
+            MyTreeListViewState.SaveState()
+            oNodeGUID = oID
+            oSQL += $" {oNodeGUID},{oSubnodes} "
+            MYDB_ECM.ExecuteNonQuery(oSQL)
+            ReloadTreeView()
+            MyTreeListViewState.LoadState()
+            TreeListDevexpress.FocusedNode = FocusedNode
+            Update_Status_Label(True, "Nodes reordered")
+        End If
+
+        Cursor = Cursors.Default
+    End Sub
 End Class