Stornierung bei POS-Zahlungen eingebaut (Umbuchung BK/Kassa wird ebenfalls storniert).

SDL/Classes/cRKSV.vb

@@ -918,7 +918,8 @@ Public Class cRKSV
     Shared Function STORNO(BELEG As EABeleg, ByVal grund As String, Firma As String, Optional stornoGegenbuchen As Boolean = False) As EABeleg
         If (Not BELEG.gebuchtStorno) Or stornoGegenbuchen Then
             '   MsgBox("SELECT * FROM tblKassenbuch WHERE  [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ(BELEG.BelegDat) & "' AND BelegNr='" & BELEG.BelegNr & "'")
-            Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE  [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND BelegNr='" & BELEG.BelegNr & "'", "FMZOLL")
+            'Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE  [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND BelegNr='" & BELEG.BelegNr & "'", "FMZOLL")
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE  [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND rksv_BelegId='" & BELEG.rksv_BelegId & "'", "FMZOLL")
             ' Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, getGJ(BELEG.BelegDat))
             If dt IsNot Nothing Then
                 For Each r In dt.Rows
@@ -2287,6 +2288,7 @@ Public Class cRKSV
                     ' EINTRAG: Umbuchung bei EC-Zahlung
                     '################
                     If Finanzwege = "EC" Then
+                        Dim BelegNrEC = -1
 
                         For i = 0 To 1
 
@@ -2295,6 +2297,7 @@ Public Class cRKSV
                             If i = 0 Then
 
                                 KBEntryEC.Konto = POSFIBU
+                                BelegNrEC = getNewBelegNr(BELEG, Firma) '& KBEntryEC.Belegart 'zur Generierung von eigenem Buchungssatz
                             Else
                                 KBEntryEC.Konto = PERSONAL.KassenbuchNr
                             End If
@@ -2304,7 +2307,7 @@ Public Class cRKSV
                             KBEntryEC.Buchungsdatum = Now.ToShortDateString
                             KBEntryEC.BelegDat = BELEG.BelegDat.ToShortDateString
                             KBEntryEC.Belegart = 3
-                            KBEntryEC.BelegNr = BELEG.BelegNr & KBEntryEC.Belegart 'zur Generierung von eigenem Buchungssatz
+                            KBEntryEC.BelegNr = BelegNrEC
                             If BELEG.Belegart = 1 Then
                                 If i = 0 Then
                                     KBEntryEC.Soll = Bruttobetrag

SDL/kassenbuch/frmBelegNeu.vb

@@ -302,7 +302,7 @@ Public Class frmBelegNeu
         AddHandler EasyZVT_Worker.DoWork, New ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async)
         AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
 
-        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kassenbuch_POS_Terminalzahlungen", Me) Then
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kassenbuch_POS_Terminalzahlungen", Me) Then
             btnPOS.Enabled = False
         End If
 
@@ -1434,11 +1434,11 @@ Public Class frmBelegNeu
             ZVTKey.SetValue("Lizenz", posTerminal.pos_lizenz, RegistryValueKind.String)
 
             If posTerminal.pos_Protokollpfad <> "" Then
-                ZVTKey.SetValue("Protokollpfad", posTerminal.pos_Protokollpfad.Text, RegistryValueKind.String)
+                ZVTKey.SetValue("Protokollpfad", posTerminal.pos_Protokollpfad, RegistryValueKind.String)
             End If
 
             If posTerminal.pos_XML And posTerminal.pos_Protokollpfad <> "" Then
-                ZVTKey.SetValue("Ausgabepfad", posTerminal.pos_Protokollpfad.Text, RegistryValueKind.String)
+                ZVTKey.SetValue("Ausgabepfad", posTerminal.pos_Protokollpfad, RegistryValueKind.String)
             End If
 
 
@@ -1463,6 +1463,7 @@ Public Class frmBelegNeu
 
         Catch ex As Exception
             MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message)
+            Me.Cursor = Cursors.Default
             Exit Sub
         End Try
         ZVTKey.Close()
@@ -1641,7 +1642,7 @@ 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