RKSV DE

SDL/kassenbuch/frmBelegNeu.vb

@@ -820,6 +820,7 @@ Public Class frmBelegNeu
                 '  Dim TEST_KASSE = (BELEG.Niederlassung = "WAI")
                 If KASSE.rksvDE_aktiv Then ' WENN für die Kasse die RKSV DEUTSCHLAND gilt
                     Dim answer = ""
+
                     If Not cRKSV_DE.insertRKSV_DE(PERSONAL, BELEG, KASSE, RKSV_Beleg_Id, If(EA = "E", summeBRUTTO, summeBRUTTO * -1), QR_CodeString, LastJWS, TESTBUCHUNG, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
                         If Not TESTBUCHUNG Then
                             KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, If(EA = "E", summeBRUTTO * -1, summeBRUTTO))
@@ -831,7 +832,7 @@ Public Class frmBelegNeu
                     KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
 
                     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-                    If KASSE.rksv_KassaGuid = "KASSE_01" Then
+                    If KASSE.rksv_KassaGuid = "KASSE_01" Then 'Testkasse
                         BELEG.rksv_jws = Nothing
                         BELEG.rksv_qr = Nothing
                     End If