neu

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -1330,4 +1330,12 @@ Public Class frmKundenUebersichtZOLL
         End If
 
     End Sub
+
+    Private Sub SYSKAÜbertragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SYSKAÜbertragToolStripMenuItem.Click
+        If KUNDE Is Nothing Then Exit Sub
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then
+            Dim f As New frmKundenSyska_DatenÜbertragen(KUNDE.KundenNrZentrale)
+            f.ShowDialog(Me)
+        End If
+    End Sub
 End Class