dw

Aviso/frmHauptfenster.vb

@@ -5447,4 +5447,14 @@ ELSE_ATILLA:
         Dim f As New frmReferenzenSicherheiten(writepermissions)
         f.ShowDialog(Me)
     End Sub
+
+    Private Sub KLIPPHAUSENToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KLIPPHAUSENToolStripMenuItem.Click
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "KLIPP"
+            VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = "KLIPP" 'Nochmal, sonst wird es durch MA geändert 
+            showMeNew()
+        Else
+            MsgBox("Keine Berechtigung!")
+        End If
+    End Sub
 End Class