10.01.2016

2017-01-11 10:53:58 +01:00
parent 26812ffeb7
commit 03ae19ae3e
25 changed files with 666 additions and 390 deletions
--- a/app/DD-Record-Organiser/frmConstructor_Main.vb
+++ b/app/DD-Record-Organiser/frmConstructor_Main.vb
@@ -266,7 +266,7 @@ Public Class frmConstructor_Main

            Init_Grid_Control()
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error while Loading Form part 1: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try

        ' Hintergrund Bild initialisieren
@@ -323,7 +323,7 @@ Public Class frmConstructor_Main
                    Next
                    TreeViewMain.ImageList = TREEVIEW_IMAGELIST
                Catch ex As Exception
-                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Adding NodeConfigurations to TreeView: ", ex.Message)
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Adding NodeConfigurations to TreeView: ")
                End Try


@@ -369,8 +369,7 @@ Public Class frmConstructor_Main
            sw.Reset()
            If LogErrorsOnly = False Then ClassLogger.Add(" >> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False)
        Catch ex As System.Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Loading Form part 2: ", ex.Message)
-            System.Windows.Forms.MessageBox.Show(ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 2")
        End Try
        Me.Cursor = Cursors.Default
    End Sub
@@ -384,7 +383,7 @@ Public Class frmConstructor_Main
            Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
            grvwGridPos.SaveLayoutToXml(XMLPath)
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Save PosGrid Layout: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
    Sub Load_POSGrid_Layout()
@@ -402,7 +401,7 @@ Public Class frmConstructor_Main

            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load PosGrid Layout: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
    Sub Save_Grid_Layout()
@@ -415,7 +414,7 @@ Public Class frmConstructor_Main
            grvwGrid.SaveLayoutToXml(XMLPath)
            ' Update_Status_Label(True, "Grid Layout Loaded")
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Save Grid Layout: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
    Sub Save_DocGrid_Layout()
@@ -428,8 +427,7 @@ Public Class frmConstructor_Main
            GridViewDoc_Search.SaveLayoutToXml(XMLPath)
            ' Update_Status_Label(True, "Grid Layout Loaded")
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Save DocGrid Layout: ", ex.Message)
-
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
    Sub Load_DocGrid_Layout()
@@ -444,7 +442,7 @@ Public Class frmConstructor_Main
            End If

        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load DocGrid Layout: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
    Sub Load_Grid_Layout()
@@ -455,7 +453,7 @@ Public Class frmConstructor_Main
                grvwGrid.GuessAutoFilterRowValuesFromFilter()
            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load Grid Layout: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
    Sub Load_Splitter_Layout()
@@ -489,7 +487,7 @@ Public Class frmConstructor_Main
                End Select
            Next
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load_Splitter_Layout: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
    Sub Save_Splitter_Layout()
@@ -511,7 +509,7 @@ Public Class frmConstructor_Main
            End If
            layout.Save(settings)
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Save_Splitter_Layout: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub

@@ -1031,7 +1029,7 @@ Public Class frmConstructor_Main
                    End If

                Catch ex As Exception
-                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check Read-Limitations: ", ex.Message)
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
                    ClassLogger.Add("TempSQL so far: " & tempsql)
                End Try
            End If
@@ -1076,12 +1074,12 @@ Public Class frmConstructor_Main
                    End If

                Catch ex As Exception
-                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Check Read-Limitations WINDREAM: ", ex.Message)
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Check Read-Limitations WINDREAM: " & ex.StackTrace)
                    ClassLogger.Add("TempSQL so far: " & tempsql)
                End Try
            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check_Rights: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
 #End Region
@@ -1235,7 +1233,7 @@ Public Class frmConstructor_Main
                Try
                    Load_TreeView_Node_Navigation()
                Catch ex As Exception
-                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load TreeView Nodes Navigation: ", ex.Message)
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
                End Try
            Else
                ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
@@ -1312,7 +1310,7 @@ Public Class frmConstructor_Main

            sw.Done()
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load TreeView: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try

    End Sub
@@ -1428,7 +1426,7 @@ Public Class frmConstructor_Main
                If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Datafor_Entity2 took " & Format(elapsed, "0.000000000") & " seconds", False)
            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load Load_Datafor_Entity: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace)
        End Try

    End Sub
@@ -1483,7 +1481,7 @@ Public Class frmConstructor_Main

            Next
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Get_RecordCounts_Nodes: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace)
        End Try
    End Sub
    Function ReturnAmountofRecords(EntityID As Integer)
@@ -1576,7 +1574,7 @@ Public Class frmConstructor_Main
                tsslblRecord.Visible = True
            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Update_Record_Label: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
       
    End Sub
@@ -1670,7 +1668,7 @@ Public Class frmConstructor_Main
                            EBENE2_RECID = CURRENT_PARENT_RECORD_ID
                    End Select
                Catch ex As Exception
-                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load_ParentConnections: ", ex.Message)
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
                End Try
            End If
        End If
@@ -1689,10 +1687,12 @@ Public Class frmConstructor_Main
                CURRENT_RECORD_ID = NEW_RECORD_ID
                RECORD_ID = NEW_RECORD_ID
                SELECTED_RECORD_ID = NEW_RECORD_ID
+                ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID)
                If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
                    If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
-                        ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error inConnect Record: ", "Please check the logfile and inform the admin!")
-
+                        ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "In Connecting Record - Check the log!")
+                    Else
+                        ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
                    End If
                End If

@@ -1716,13 +1716,14 @@ Public Class frmConstructor_Main
                tsButtonAdd.Enabled = False
            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Inserting Record: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        Finally
            Me.Cursor = Cursors.Default
        End Try
    End Sub

    Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
+        Me.Cursor = Cursors.WaitCursor
        Save_Record()
    End Sub

@@ -1774,11 +1775,8 @@ Public Class frmConstructor_Main
                    ActivateAllTabs()
                    DisableEditMode()
                End If
-                If ClassProxy.MyPROXYConnectionString <> "" Then
-                    Me.Cursor = Cursors.WaitCursor
-                    ClassProxy.Refresh_Object_Change_Data()
-                    Me.Cursor = Cursors.Default
-                End If
+
+                ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, CURRENT_RECORD_ID)
            End If

            Dim recid As Integer
@@ -1793,7 +1791,7 @@ Public Class frmConstructor_Main
            RECORD_ID = recid
            CURRENT_RECORD_ID = RECORD_ID
            If RECORD_ID = 0 Then
-                ClassHelper.MSGBOX_Handler("INFO", "Attention", "Missing Input: ", "no current record selected")
+                ClassHelper.MSGBOX_Handler("ERROR", "Attention:", "No Current row selected")
                Me.Cursor = Cursors.Default
                Return False
            End If
@@ -1815,7 +1813,7 @@ Public Class frmConstructor_Main
                        Next
                        If EBENE1_RECID = 0 Then
                            'Bis jetzt konnte noch keine Parent-ID angelegt werden!
-                            ClassHelper.MSGBOX_Handler("INFO", "Attention", "Missing Input: ", "no parent-link created")
+                            ClassHelper.MSGBOX_Handler("INFO", "Attention", "No parent-link created!")
                            'Show_Verknuepfungen()
                        End If
                End Select
@@ -1859,16 +1857,16 @@ Public Class frmConstructor_Main

            If IS_SINGLE_RECORD = False Then
                If FORM_TYPE <> 5 Then
+                    Load_Entity_Data_Only()
+                    LocateRecordById(RECORD_ID)
                    If EDIT_STATE = EditState.Insert Then
                        'Die Daten neu laden
-                        Load_Entity_Data_Only()
-                        LocateRecordById(RECORD_ID)
+
                        'Get_Grid_Row_Handle(NEW_RECORD_ID)
                    Else
                        'Die Daten neu laden
-                        Load_Entity_Data_Only()
+
                        'Get_Grid_Row_Handle(RECORD_ID)
-                        LocateRecordById(RECORD_ID)
                        'Die Daten auf dem Panel laden
                        'ClassControlValues.LoadControlValues(RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
                        ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
@@ -1879,7 +1877,7 @@ Public Class frmConstructor_Main
            End If

        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Save Data: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
            Return False
        End Try

@@ -1924,9 +1922,6 @@ Public Class frmConstructor_Main
                Update_Status_Label(True, msg, EditState.Update)

                WD_DELETE_DOCS(DT_DOC_RESULT)
-                Me.Cursor = Cursors.WaitCursor
-                ClassProxy.Refresh_Object_Change_Data()
-                Me.Cursor = Cursors.Default
                SELECTED_RECORD_ID = 0
                RECORD_ID = 0
                CURRENT_RECORD_ID = 0
@@ -1975,9 +1970,9 @@ Public Class frmConstructor_Main

            tslblLocked.Visible = True
            If USER_LANGUAGE = "de-DE" Then
-                ClassHelper.MSGBOX_Handler("INFO", "Attention", "Datensatz ist in Bearbeitung: ", String.Format("Dieser Datensatz wird gerade vom Benutzer '{0}' bearbeitet und kann nur lesend abgerufen werden.", EditingUser))
+                ClassHelper.MSGBOX_Handler("INFO", "Achtung", "Record is in work: " & vbNewLine & String.Format("Dieser Datensatz wird gerade vom Benutzer '{0}' bearbeitet und kann nur lesend abgerufen werden.", EditingUser))
            Else
-                ClassHelper.MSGBOX_Handler("INFO", "Attention", "Record is in work: ", String.Format("This Record is currently being edited by User '{0}' and only available in Read-Only mode.", EditingUser))
+                ClassHelper.MSGBOX_Handler("INFO", "Attention", "Record is in work: " & vbNewLine & String.Format("This Record is currently being edited by User '{0}' and only available in Read-Only mode.", EditingUser))
            End If
            ' Wenn Record bearbeitet wird, EnableEditMode abbrechen!
            Exit Sub
@@ -2084,7 +2079,7 @@ Public Class frmConstructor_Main
            Dim ctrl As Control = sender
            ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, ENTITY_ID, RECORD_ID, pnlDetails.Controls)
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OpenEditAppointment: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub

@@ -2100,7 +2095,7 @@ Public Class frmConstructor_Main
            End If

        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in EditAppointment: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub

@@ -2112,7 +2107,7 @@ Public Class frmConstructor_Main
        Try
            Dim sel = 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})", ENTITY_ID, USER_GUID)
            If LogErrorsOnly = False Then ClassLogger.Add(" >> Select Rightsmanagement " & sel, False)
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
            If DT.Rows.Count > 0 Then
                For Each row As DataRow In DT.Rows
                    'RIGHT_EDIT_R = True
@@ -2180,7 +2175,7 @@ Public Class frmConstructor_Main
                RecordDeleteToolStripMenuItem.Enabled = False
            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in GetSet_Rights: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
    Sub Load_Entity_Data(ClickedLevel As Integer)
@@ -2246,15 +2241,15 @@ Public Class frmConstructor_Main
                tsbtnGeodata.Visible = False
            End If
            ACTIVATE_DOC_SEARCH_ON_EDIT = result.Item("ACTIVATE_DOC_SEARCH_ON_EDIT")
-            Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
-            DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, True)
-            sql_ResultList = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
-            DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, False)
+            sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
+            DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql, True)
+            sql = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
+            DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql, True)

-            sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
-            DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql_ResultList, False)
-            sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
-            DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql_ResultList, True)
+            sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
+            DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
+            sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
+            DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True)
            Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
                      Select form
                      Where form.Item("GUID") = ENTITY_ID).Single()
@@ -2272,7 +2267,8 @@ Public Class frmConstructor_Main
            If VIEW_ID_RUNTIME <> -1 Then
                GRID_TYPE_ID = VIEW_ID_RUNTIME
            Else
-                Dim VIEW_ID = ClassDatabase.Execute_Scalar(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, ENTITY_ID, USER_GUID))
+                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, ENTITY_ID, USER_GUID)
+                Dim VIEW_ID = ClassDatabase.Execute_Scalar(sql, True)
                If IsNothing(VIEW_ID) Then
                    ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & ENTITY_ID & ")")
                    VIEW_ID = 1
@@ -2497,7 +2493,7 @@ Public Class frmConstructor_Main
                    End While
                    DTEntity = async.dt
                Catch ex As Exception
-                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load_ViewData: ", ex.Message)
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
                End Try


@@ -2509,7 +2505,7 @@ Public Class frmConstructor_Main
                labelLoadEntity.Visible = False

                If IsNothing(DTEntity) Then
-                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in getting Entity-Data: ", "Check logfile")
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in getting Entity-Data - Check logfile")
                Else
                    DTEntity.TableName = "VWTEMP_PMO_FORM" & ENTITY_ID
                    Dim SQL_AutoValues = "SELECT GUID AS CONTROL_ID, CONNECTION_ID_1 AS CONNECTION_ID, SQL_COMMAND_1 AS SQL_COMMAND FROM TBPMO_CONTROL WHERE CONNECTION_ID_1 <> '' AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID
@@ -2625,7 +2621,7 @@ Public Class frmConstructor_Main
                Reload_Entity_while_Control_Load()
            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load_Entity_Data: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        Finally
            Me.Cursor = Cursors.Default
            ENTITY_LOADED = True
@@ -2659,7 +2655,7 @@ Public Class frmConstructor_Main
                End Select
            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load_Record_Direct: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
    End Sub
    Sub Load_Entity_Data_Only()
@@ -2673,7 +2669,7 @@ Public Class frmConstructor_Main
            LoadGrid_Selection()
            Load_Grid_Layout()
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load_Entity_Data_Only: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try
        ENTITY_LOADED = True
    End Sub
@@ -2770,7 +2766,7 @@ Public Class frmConstructor_Main
                End Select
            Next
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in LoadGrid_Selection: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
        End Try


@@ -2834,17 +2830,14 @@ Public Class frmConstructor_Main
                    Dim ResultMessage = Update_Record_OnChange()
                    Update_Status_Label(True, ResultMessage)
                Catch ex As Exception
-                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Save Record Changes: ", ex.Message)
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Save Record Changes: " & ex.Message, ex.StackTrace)
                End Try
            Else
-
                If CtrlCommandUI.IsInsert = True Then  ' Wenn nicht gespeichert werden soll, den Record wieder löschen
                    ClassHelper.DeleteRecord(SELECTED_RECORD_ID)
                End If
                tsButtonAdd.Enabled = True
-
            End If
-            ClassProxy.Refresh_Control_Data()
            CtrlCommandUI.IsEdit = False
            CtrlCommandUI.IsInsert = False
            RECORD_CHANGED = False
@@ -2861,9 +2854,12 @@ Public Class frmConstructor_Main
                    'Die neue Record-ID setzen
                    RECORD_ID = GRP_SINGLE_REC
                    SELECTED_RECORD_ID = RECORD_ID
+                    ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, SELECTED_RECORD_ID)
                    If ClassRecordCommands.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & ENTITY_ID.ToString) = False Then
                        MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
                        Return False
+                    Else
+                        ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, RECORD_ID)
                    End If
                Else
                    Return False
@@ -2876,7 +2872,7 @@ Public Class frmConstructor_Main
                RECORD_ID = CInt(GRP_SINGLE_REC)
                SELECTED_RECORD_ID = RECORD_ID
            Catch ex As Exception
-                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in getting CURRENT_RECORDID FOR PARENT_ID: ", ex.Message)
+                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in getting CURRENT_RECORDID FOR PARENT_ID: " & ex.Message, ex.StackTrace)
                Return False
            End Try
        End If
@@ -2936,7 +2932,7 @@ Public Class frmConstructor_Main
                    End If
            End Select
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in GET_LINKED_RECORD: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
            Return 0
        End Try
    End Function
@@ -2988,7 +2984,7 @@ Public Class frmConstructor_Main
                tslbldisplayRecords.Text = msg & Get_Grid_Row_Count()
            End If
        Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in LoadGrid_Selection: ", ex.Message)
+            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
            Return False
        End Try

@@ -4212,9 +4208,6 @@ Public Class frmConstructor_Main
            End If
            'Nur wenn neue Dateien abgelegt wurden muss die Prozedur zur aktualisierung der windream Dateien ausgeführt werden...ansonsten muss nichts passieren
            If NEW_FILES_ADDED = True Then
-                If ClassProxy.MyPROXYConnectionString <> "" Then
-                    ClassProxy.Refresh_Doc_Data()
-                End If
                Me.Cursor = Cursors.WaitCursor
                RUN_WDSEARCH_GRID()
            Else
@@ -4257,7 +4250,7 @@ Public Class frmConstructor_Main
                Next
                DROPPED_CHECKED = True
            End If
-           
+
            Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
            Dim count_DT = ClassDatabase.Execute_Scalar(sql, True)
            If count_DT = 0 And CURRENT_ENTITY_REDUNDANT_ID = 0 Then
@@ -4509,7 +4502,7 @@ Public Class frmConstructor_Main
                    text += " - " & _row.Item("DUE_DATE")
                    tsslblWorkflowstate.Text = text
                    'Direkten Zugriff auf RecordView Workflow erlauben
-                   
+
                    Dim Colorstring = _row.Item("COLOR")
                    If IsDBNull(Colorstring) Then
                        Exit Sub
@@ -4793,7 +4786,10 @@ Public Class frmConstructor_Main
                        If Not IsNothing(recid) Then
                            'Die neue Record-ID setzen
                            POS_RECORD_ID = recid
-                            ClassRecordCommands.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString)
+                            ClassProxy.PRPROXY_RECORD_UPD_INS(POS_ENTITY, POS_RECORD_ID)
+                            If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString) = True Then
+                                ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, POS_RECORD_ID)
+                            End If
                        Else
                            MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
                        End If
@@ -5113,8 +5109,6 @@ Public Class frmConstructor_Main
                                        If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 0) = True Then
                                            ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
                                            Cursor = Cursors.WaitCursor
-                                            ClassProxy.Refresh_Doc_Data()
-                                            Cursor = Cursors.Default
                                            RUN_WDSEARCH_GRID()
                                        End If
                                    Else
@@ -5199,8 +5193,6 @@ Public Class frmConstructor_Main
                    msg = "The record '" & SELECTED_RECORD_ID & "' could not be deleted. Check the log"
                End If
                MsgBox(msg, MsgBoxStyle.Exclamation)
-            Else
-                ClassProxy.Refresh_Control_Data()
            End If
        End If
        tsButtonCancel.Visible = False
@@ -5390,7 +5382,9 @@ Public Class frmConstructor_Main
            Save_Grid_Layout()
            frmMass_Change.ShowDialog()
            If SUCCESSFULL = True Then
+                Cursor = Cursors.WaitCursor
                Load_Datafor_Entity()
+                Cursor = Cursors.Default
            End If
        Catch ex As Exception
            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in MassChange Collector:", ex.Message)
@@ -5398,7 +5392,7 @@ Public Class frmConstructor_Main
    End Sub
    Private Sub GridViewDoc_Search_ColumnWidthChanged(sender As Object, e As ColumnEventArgs) Handles GridViewDoc_Search.ColumnWidthChanged
        Try
-        
+
        Catch ex As Exception
            ClassLogger.Add(">> Unexpected Error in ColumnWidth-Change DocResult: " & ex.Message, False)
        End Try
@@ -5443,9 +5437,6 @@ Public Class frmConstructor_Main
            Refresh_Selected_Table()
            Dim frm As New frmDocLink_to_Record() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
            frm.Show()
-            Cursor = Cursors.WaitCursor
-            ClassProxy.Refresh_Doc_Data()
-            Cursor = Cursors.Default
        Catch ex As Exception
            MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
        End Try
@@ -5548,13 +5539,12 @@ Public Class frmConstructor_Main
    Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
        GridViewDoc_Search.EndSelection()
        ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
+        Refresh_DocID()
        If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
            If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then
                e.Cancel = True
            End If
-
        End If
-
        File_in_Work()
        Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
        If Not IsNothing(Result) Then
@@ -5583,9 +5573,6 @@ Public Class frmConstructor_Main
        Else
            e.Cancel = True
        End If
-
-
-
    End Sub
    Sub File_in_Work()
        docCM_InWork.Enabled = True
@@ -5642,7 +5629,6 @@ Public Class frmConstructor_Main
            Dim msg1 As String
            If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Then
                If ClassFileResult.Set_InWork(0, "") = True Then
-                    ClassProxy.Refresh_Doc_Data()
                    RUN_WDSEARCH_GRID()
                End If
            Else
@@ -5656,7 +5642,6 @@ Public Class frmConstructor_Main
        Else
            frmFileInWork.ShowDialog()
            ClassWindreamDocGrid.SELECTED_INWORK = ClassFileResult.InWork
-            ClassProxy.Refresh_Doc_Data()
            RUN_WDSEARCH_GRID()
        End If
    End Sub
@@ -5711,7 +5696,7 @@ Public Class frmConstructor_Main
                If USER_LANGUAGE <> "de-DE" Then
                    msg = String.Format("file '" & vbNewLine & "{0}'" & vbNewLine & "Please check the logfile!", row.Item("DOC_PATH"))
                End If
-                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Rights module", "Could not read file Parameters: ", msg)
+                ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Rights module", "Error while setting rights: (Scroll down) ", msg)
            End If
            'Create Session um Fehler bei windows Session icht zu erzeugen
            FAU_AD_USER = ""
@@ -5806,10 +5791,15 @@ Public Class frmConstructor_Main
                                        msg = String.Format("The file {0} could not be deleted! Check the logfile!", row.Item("DOC_PATH"))
                                    End If
                                    MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
+
                                End If
                            End If

                        End If
+                        If LICENSE_SITE_PROXY = True And ClassProxy.MyPROXYConnectionString <> String.Empty Then
+                            Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", row.Item("DOC_ID"))
+                            ClassDatabase.Execute_non_Query(proc, True)
+                        End If
                    Catch ex As Exception
                        ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in delete file: ", ex.Message)
                    End Try
@@ -5819,9 +5809,6 @@ Public Class frmConstructor_Main
            If CURRENT_SEARCH_TYPE = "ENTITY" Then
                CURRENT_DT_DOC_ENTITY_SEARCH = Nothing
            End If
-            Cursor = Cursors.WaitCursor
-            ClassProxy.Refresh_Doc_Data()
-            Cursor = Cursors.Default
            RUN_WDSEARCH_GRID()
        End If

@@ -5892,7 +5879,6 @@ Public Class frmConstructor_Main
                        If USER_LANGUAGE <> "de-DE" Then
                            msg = String.Format("The record was successfully relinked with entity {0}", ENTITY_STRING.ToString)
                        End If
-                        ClassProxy.Refresh_Object_Change_Data()
                        MsgBox(msg, MsgBoxStyle.Information)
                        Load_Datafor_Entity()
                    End If
@@ -6047,8 +6033,8 @@ Public Class frmConstructor_Main
        frmNewVariant.ShowDialog()
        If recid <> CURRENT_RECORD_ID Then
            Me.Cursor = Cursors.WaitCursor
-            ClassProxy.Refresh_Object_Change_Data()
-            ClassProxy.PRROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD_VARIANT")
+            ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD_VARIANT")
+            ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD")
            Me.Cursor = Cursors.Default
            Load_Datafor_Entity()
            LocateRecordById(CURRENT_RECORD_ID)
@@ -6180,9 +6166,6 @@ Public Class frmConstructor_Main
    Private Sub DateiVersionierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiVersionierenToolStripMenuItem.Click
        Refresh_Selected_Table()
        frmWD_CreateVersion.ShowDialog()
-        Cursor = Cursors.WaitCursor
-        ClassProxy.Refresh_Doc_Data()
-        Cursor = Cursors.Default
        RUN_WDSEARCH_GRID()
    End Sub
    Sub Refresh_Selected_Table()
@@ -6215,9 +6198,6 @@ Public Class frmConstructor_Main
        CURRENT_FORMVIEW_ID = FORMVIEW_ID
        Refresh_Selected_Table()
        frmWD_ChangeDoctype.ShowDialog()
-        Cursor = Cursors.WaitCursor
-        ClassProxy.Refresh_Doc_Data()
-        Cursor = Cursors.Default
        RUN_WDSEARCH_GRID()
    End Sub
    Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.Click
@@ -6232,16 +6212,22 @@ Public Class frmConstructor_Main
        If e.KeyCode = Keys.Return Then
            Try
                If CMDoc_TextBoxRenameFile.Text <> "" Then
-                    Dim OldName, NewName As String
+                    Dim OldName, NewName, OnlyFilename As String
                    OldName = ClassWindreamDocGrid.SELECTED_DOC_PATH
                    ' Define file names.
                    NewName = CMDoc_TextBoxRenameFile.Text
+                    OnlyFilename = NewName
                    Dim name1 = Path.Combine(Path.GetDirectoryName(ClassWindreamDocGrid.SELECTED_DOC_PATH), NewName)
                    NewName = NewName & Path.GetExtension(ClassWindreamDocGrid.SELECTED_DOC_PATH)
+                    OnlyFilename &= Path.GetExtension(ClassWindreamDocGrid.SELECTED_DOC_PATH)
                    ' Rename file.
                    My.Computer.FileSystem.RenameFile(OldName, NewName)
                    Cursor = Cursors.WaitCursor
-                    ClassProxy.Refresh_Doc_Data()
+                    If LICENSE_SITE_PROXY = True And ClassProxy.MyPROXYConnectionString <> String.Empty Then
+                        Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Filename = '{0}', FULL_FILENAME = '{1}', CHANGED_WHO = '{2}', CHANGED_WHEN = GETDATE() WHERE DocID = {3}", _
+                                                OnlyFilename, NewName, USER_USERNAME, ClassWindreamDocGrid.SELECTED_DOC_ID)
+                        ClassDatabase.Execute_non_Query(upd, True)
+                    End If
                    Cursor = Cursors.Default
                    RUN_WDSEARCH_GRID()
                    ContextMenuStripResultFiles.Close()
@@ -6267,8 +6253,6 @@ Public Class frmConstructor_Main
                If CMDoc_TextBoxRenameDisplay.Text <> "" Then
                    If ClassFileResult.Set_Displayname(CMDoc_TextBoxRenameDisplay.Text) Then
                        Cursor = Cursors.WaitCursor
-                        ClassProxy.Refresh_Doc_Data()
-                        Cursor = Cursors.Default
                        RUN_WDSEARCH_GRID()
                        ContextMenuStripResultFiles.Close()
                    End If
@@ -6335,6 +6319,8 @@ Public Class frmConstructor_Main
            'Dim NEWRECORD As Integer = ClassControlCommandsUI.GetLastRecord(ENTITY_ID)
            Dim NEWNODE = New TreeNode(tsmINewText.Text)
            If Not IsNothing(NEWRECORD) Then
+                ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, NEWRECORD)
+
                If Not IsNothing(CURRENT_NODE_CONFIGURABLE_ID) And CURRENT_NODE_CONFIGURABLE_ID > 0 Then
                    Dim index As Integer = 0
                    For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@@ -6370,7 +6356,7 @@ Public Class frmConstructor_Main
                        TreeViewMain.SelectedNode.Expand()
                    End If
                End If
-                End If
+            End If
        Catch ex As Exception
            ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Unexpected Error in Adding ConfigNode: ", ex.Message)
        End Try