ustva, etc.

SDL/kassenbuch/frmBelegNeu.vb

@@ -1391,8 +1391,14 @@ Public Class frmBelegNeu
         MsgBox(response)
         If returnCode = 0 Then 'Zahlung wurde erfolgreich durchgeführt
             setRKSV()
+        ElseIf returnCode = 1000 Then 'Workaround, wenn nicht in Registry geschrieben wurden konnte.
+            If vbYes = MsgBox("In der Registry wurde der Returncode 1000 abgegeben! " & vbNewLine & "Wurde die Zahlung dennoch vom Zahlungsterminal erfolgreich durchgeführt, dann mit Ja bestätigen", MsgBoxStyle.YesNoCancel) Then
+                setRKSV()
+            Else
+                Me.Cursor = Cursors.Default
+            End If
         Else
-            Me.Cursor = Cursors.Default
+                Me.Cursor = Cursors.Default
         End If
     End Sub
 
@@ -1408,15 +1414,16 @@ Public Class frmBelegNeu
             Exit Sub
         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
             Case 0
                 MsgBox("Für diese Kasse ist kein aktives POS-Terminal hinterlegt!")
             Case 1
                 If Not printRoutine() Then
                     Exit Sub
                 End If
+
                 SetRegEntries()
 
             Case Else
@@ -1488,6 +1495,7 @@ Public Class frmBelegNeu
             Else
                 ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord)
             End If
+
             ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann
             ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String)