MS - Updateverhalten PRoxyserver

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -1734,6 +1734,9 @@ Public Class frmConstructor_Main
                 Me.Cursor = Cursors.Default
                 Return False
             Else
+                If RECORD_CHANGED = True Then
+                    RECORD_CHANGED = False
+                End If
                 If CtrlCommandUI.IsInsert Then
                     ActivateAllTabs()
                     DisableEditMode()
@@ -4651,7 +4654,6 @@ Public Class frmConstructor_Main
                             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
-                            Load_Pos_Data()
                         Else
                             MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
                         End If
@@ -4701,11 +4703,15 @@ Public Class frmConstructor_Main
     End Sub
 
     Private Sub grvwGridPos_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGridPos.RowStyle
+        If e.RowHandle = -1 Then
+            Exit Sub
+        End If
         If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
             e.Appearance.BackColor = Color.Orange 'LemonChiffon
         End If
     End Sub
 
+
     Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle
         If e.RowHandle = -1 Then
             Exit Sub
@@ -6547,4 +6553,6 @@ Public Class frmConstructor_Main
             Save_Record()
         End If
     End Sub
+
+
 End Class