jj

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -679,6 +679,14 @@ Public Class frmAdministration
         End If
     End Sub
 
+    Private Sub BarButtonItem27_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem27.ItemClick
+        If CtrlApplicationAssignment1.Control_EditAssignment() = False Then
+            MsgBox("Error while saving control", MsgBoxStyle.Critical, Text)
+        Else
+            Status_Changed("Feld-Zuordnung geändert")
+        End If
+    End Sub
+
     Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
         Dim oSQL As String = $"EXEC PRCW_COPY_PROFILE {PROFILE_IDTextBox.Text}, '{USER_USERNAME}'"