diff --git a/SDL/kassenbuch/frmFremdbeleg.vb b/SDL/kassenbuch/frmFremdbeleg.vb
index 7d179b2c..5dc2c342 100644
--- a/SDL/kassenbuch/frmFremdbeleg.vb
+++ b/SDL/kassenbuch/frmFremdbeleg.vb
@@ -139,7 +139,7 @@ Public Class frmFremdbeleg
             Else
 
                 If cRKSV.isforbiddenDate Then
-                    MsgBox("Die Kasse wir am Monatsende abgeschlossen. Es dürfen keine weiteren Belege erstellt werden. Bitte veruchen Sie den Vorgang nach Mitternacht erneut.")
+                    MsgBox("Die Kasse wir am Monatsende abgeschlossen. Es dürfen keine weiteren Belege erstellt werden. Bitte versuchen Sie den Vorgang nach Mitternacht erneut.")
                     Exit Sub
                 End If
 
@@ -225,26 +225,49 @@ Public Class frmFremdbeleg
 
                 Dim answer = ""
 
-                Dim client_chilkat As New cFiskaltrustClient_chilkat(KASSE.rksv_FT_RestServiceURL, KASSE.rksv_FT_CashboxID, KASSE.rksv_FT_AccessToken, KASSE.rksv_FT_Country)
-                Dim isFiskaltrust As Boolean = client_chilkat.isFiskaltrust()
+                Dim isFiskaltrust = False
+
+                If KASSE IsNot Nothing AndAlso KASSE.rksv_FT_RestServiceURL IsNot Nothing AndAlso KASSE.rksv_FT_CashboxID IsNot Nothing AndAlso KASSE.rksv_FT_AccessToken IsNot Nothing AndAlso KASSE.rksv_FT_Country IsNot Nothing Then
+
+                    Dim client_chilkat As New cFiskaltrustClient_chilkat(KASSE.rksv_FT_RestServiceURL, KASSE.rksv_FT_CashboxID, KASSE.rksv_FT_AccessToken, KASSE.rksv_FT_Country)
+                    isFiskaltrust = client_chilkat.isFiskaltrust()
+                End If
+
 
                 If KASSE.rksv_aktiv Then
 
-                    Dim verarbeitet As Boolean = False
+                        Dim verarbeitet As Boolean = False
 
-                    If KASSE.rksv_FT_RestServiceURL <> "" Then
-                        Dim result = cRKSV.insertRKSVFiskaltrustAsync(KASSE, BELEG, RKSV_Beleg_Id, summeBRUTTO, TESTBUCHUNG, QR_CodeString, LastJWS, IIf(Art = 1, ReceiptCaseIntern.EINGANG, ReceiptCaseIntern.AUSGANG))
-                        'result.Wait()
-                        verarbeitet = result
-                    Else
-                        verarbeitet = cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
+                        If KASSE.rksv_FT_RestServiceURL <> "" Then
+                            Dim result = cRKSV.insertRKSVFiskaltrustAsync(KASSE, BELEG, RKSV_Beleg_Id, summeBRUTTO, TESTBUCHUNG, QR_CodeString, LastJWS, IIf(Art = 1, ReceiptCaseIntern.EINGANG, ReceiptCaseIntern.AUSGANG))
+                            'result.Wait()
+                            verarbeitet = result
+                        Else
+                            verarbeitet = cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, BELEG.BelegDat, BELEG.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, TESTBUCHUNG, answer) 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
+                        End If
+
+
+                        If Not verarbeitet Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
+
+                            If Not isFiskaltrust Then
+
+                                If Not TESTBUCHUNG Then
+                                    KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, BELEG.rksv_umsatz * -1)
+                                    cRKSV.DELETE(BELEG, KASSE.rksv_firma)
+                                End If
+                                MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
+                                '  BELEG = cRKSV.STORNO(BELEG, "Programmfehler")
+                                'MsgBox("Programmfehler bei der digitalen Signatur.")
+                                Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
+                            Else
+                                BELEG.FT_MissingSignature = True 'nachträgliche Signierung, Beleg NICHT löschen!!
+                            End If
+
+                        End If
                     End If
 
-
-                    If Not verarbeitet Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
-
-                        If Not isFiskaltrust Then
-
+                    If KASSE.rksvDE_aktiv Then
+                        If Not cRKSV_DE.insertRKSV_DE(PERSONAL, BELEG, KASSE, RKSV_Beleg_Id, summeBRUTTO, 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, BELEG.rksv_umsatz * -1)
                                 cRKSV.DELETE(BELEG, KASSE.rksv_firma)
@@ -253,49 +276,32 @@ Public Class frmFremdbeleg
                             '  BELEG = cRKSV.STORNO(BELEG, "Programmfehler")
                             'MsgBox("Programmfehler bei der digitalen Signatur.")
                             Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
-                        Else
-                            BELEG.FT_MissingSignature = True 'nachträgliche Signierung, Beleg NICHT löschen!!
                         End If
+                        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+                        If KASSE.rksv_KassaGuid = "KASSE_01" Then
+                            BELEG.rksv_jws = Nothing
+                            BELEG.rksv_qr = Nothing
+                        End If
+                        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
 
                     End If
-                    End If
 
-                If KASSE.rksvDE_aktiv Then
-                    If Not cRKSV_DE.insertRKSV_DE(PERSONAL, BELEG, KASSE, RKSV_Beleg_Id, summeBRUTTO, 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, BELEG.rksv_umsatz * -1)
-                            cRKSV.DELETE(BELEG, KASSE.rksv_firma)
-                        End If
-                        MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
-                        '  BELEG = cRKSV.STORNO(BELEG, "Programmfehler")
-                        'MsgBox("Programmfehler bei der digitalen Signatur.")
-                        Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
-                    End If
-                    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-                    If KASSE.rksv_KassaGuid = "KASSE_01" Then
-                        BELEG.rksv_jws = Nothing
-                        BELEG.rksv_qr = Nothing
-                    End If
-                    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
+
+                    If Not isFiskaltrust Then KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
+
+                    'RKSV-Daten beim Beleg ergänzen:
+                    BELEG.rksv_jws = LastJWS
+                    BELEG.rksv_qr = QR_CodeString
+                    BELEG.rksv_BelegId = RKSV_Beleg_Id
+                    BELEG.rksv_id = KASSE.rksv_id
+                    BELEG.SAVE()
+
+                    If cbxBelegDrucken.Checked Then cRKSV.printFremdBeleg(BELEG, KASSE, PERSONAL, KBEntry, KBEntryGB, cboPrinter.SelectedItem.ToString)
+
+                    Me.Cursor = Cursors.Default
 
                 End If
-
-
-                If Not isFiskaltrust Then KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
-
-                'RKSV-Daten beim Beleg ergänzen:
-                BELEG.rksv_jws = LastJWS
-                BELEG.rksv_qr = QR_CodeString
-                BELEG.rksv_BelegId = RKSV_Beleg_Id
-                BELEG.rksv_id = KASSE.rksv_id
-                BELEG.SAVE()
-
-                If cbxBelegDrucken.Checked Then cRKSV.printFremdBeleg(BELEG, KASSE, PERSONAL, KBEntry, KBEntryGB, cboPrinter.SelectedItem.ToString)
-
-                Me.Cursor = Cursors.Default
-
-            End If
-            Me.Close()
+                Me.Close()
         Catch ex As Exception
             Me.Cursor = Cursors.Default
             MsgBox("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!")
diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
index 77148d1a..b48bcd32 100644
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
@@ -364,7 +364,7 @@ Public Class frmNacherfassungLeihgeld
                 Dim QR_CodeString As String = ""
                 Dim LastJWS As String = ""
                 Dim isFiskaltrust As Boolean = False
-                If KASSE.rksv_FT_RestServiceURL IsNot Nothing AndAlso KASSE.rksv_FT_CashboxID IsNot Nothing AndAlso KASSE.rksv_FT_AccessToken IsNot Nothing AndAlso KASSE.rksv_FT_Country IsNot Nothing Then
+                If KASSE IsNot Nothing AndAlso KASSE.rksv_FT_RestServiceURL IsNot Nothing AndAlso KASSE.rksv_FT_CashboxID IsNot Nothing AndAlso KASSE.rksv_FT_AccessToken IsNot Nothing AndAlso KASSE.rksv_FT_Country IsNot Nothing Then
                     Dim client_chilkat As New cFiskaltrustClient_chilkat(KASSE.rksv_FT_RestServiceURL, KASSE.rksv_FT_CashboxID, KASSE.rksv_FT_AccessToken, KASSE.rksv_FT_Country)
                     isFiskaltrust = client_chilkat.isFiskaltrust()
                 End If