edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fehlerhandling verbessert, wenn ZVT nicht auf dem TS installiert ist

Browse Source
This commit is contained in:
d.breimaier
2023-03-07 10:05:07 +01:00
parent e2fdf8aea6
commit 5bb09d964e
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -1352,13 +1352,10 @@ Public Class frmBelegNeu
Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click
If cboKassen.SelectedItem.Text = "" Or Betrag <= 0 Then If cboKassen.SelectedItem.Text = "" Or Betrag <= 0 Then
Exit Sub Exit Sub
End If End If
dt = SQL.loadDgvBySql("SELECT * FROM tblRKSV_POS WHERE [pos_aktiv] = 1 AND [pos_kasse]='" & cboKassen.SelectedItem.Value & "'", "FMZOLL") dt = SQL.loadDgvBySql("SELECT * FROM tblRKSV_POS WHERE [pos_aktiv] = 1 AND [pos_kasse]='" & cboKassen.SelectedItem.Value & "'", "FMZOLL")
Select Case dt.Rows.Count Select Case dt.Rows.Count
@@ -1397,6 +1394,12 @@ Public Class frmBelegNeu
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
Dim Typ As Long 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 Try
ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord)