Änderungen POS

SDL/kassenbuch/frmBelegNeu.vb

@@ -1357,6 +1357,8 @@ Public Class frmBelegNeu
         MsgBox(response)
         If returnCode = 0 Then 'Zahlung wurde erfolgreich durchgeführt
             setRKSV()
+        Else
+            Me.Cursor = Cursors.Default
         End If
     End Sub
 
@@ -1430,6 +1432,16 @@ Public Class frmBelegNeu
             ZVTKey.SetValue("ComSpeed", CInt(posTerminal.pos_comspeed), RegistryValueKind.DWord)
             ZVTKey.SetValue("ComStop", CInt(posTerminal.pos_comstop), RegistryValueKind.DWord)
             ZVTKey.SetValue("Lizenz", posTerminal.pos_lizenz, RegistryValueKind.String)
+
+            If posTerminal.pos_Protokollpfad <> "" Then
+                ZVTKey.SetValue("Protokollpfad", posTerminal.pos_Protokollpfad.Text, RegistryValueKind.String)
+            End If
+
+            If posTerminal.pos_XML And posTerminal.pos_Protokollpfad <> "" Then
+                ZVTKey.SetValue("Ausgabepfad", posTerminal.pos_Protokollpfad.Text, RegistryValueKind.String)
+            End If
+
+
             If Funktion = 0 Or Funktion = 4 Then
                 ZVTKey.SetValue("Betrag", Betrag * 100, RegistryValueKind.DWord) 'CENTbeträge 1€ --> 100 CENT
             End If
@@ -1629,12 +1641,12 @@ Public Class frmBelegNeu
 
                 Select Case BELEG.Belegart
                     Case "1"
-                        If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
+                        If True Then 'cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
                             'WARTEN
                             printErfolgreich = True
                         End If
                     Case "2"
-                        If cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then
+                        If True Then 'cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then
                             'WARTEN
                             printErfolgreich = True
                         End If