Fehlerhandling verbessert, wenn ZVT nicht auf dem TS installiert ist

SDL/kassenbuch/frmBelegNeu.vb

@@ -1352,13 +1352,10 @@ Public Class frmBelegNeu
 
     Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click
 
-
-
         If cboKassen.SelectedItem.Text = "" Or Betrag <= 0 Then
             Exit Sub
         End If
 
-
         dt = SQL.loadDgvBySql("SELECT * FROM tblRKSV_POS WHERE [pos_aktiv] = 1 AND [pos_kasse]='" & cboKassen.SelectedItem.Value & "'", "FMZOLL")
 
         Select Case dt.Rows.Count
@@ -1397,6 +1394,12 @@ Public Class frmBelegNeu
         Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
         Dim Typ As Long
 
+        If ZVTKey Is Nothing Then
+            MsgBox("EasyZVT ist nicht installiert." & vbNewLine & "In der Master-Kasse unter POS-Terminal als Systemadministrator installieren!" & vbNewLine & "INFO: EasyZVT wird als RegKey unter CurrentUser gesetzt.")
+            Me.Cursor = Cursors.Default
+            Exit Sub
+        End If
+
         Try
 
             ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord)