Fix Barverkauf

SDL/kassenbuch/frmBelegNeu.vb

@@ -233,8 +233,7 @@ Public Class frmBelegNeu
         ' End Select
 
 
-        Button4.Visible = True
-
+        Button4.Visible = checkFiskaltrust()
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
             cboKassen.Enabled = True
@@ -1705,9 +1704,8 @@ Public Class frmBelegNeu
                     Dim answer = ""
 
                     Dim verarbeitet As Boolean = False
+                    Dim isFiskaltrust = checkFiskaltrust()
 
-                    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()
                     If isFiskaltrust Then
                             Dim result = cRKSV.insertRKSVFiskaltrustAsync(KASSE, BELEG, RKSV_Beleg_Id, If(EA = "E", summeBRUTTO, summeBRUTTO * -1), TESTBUCHUNG, QR_CodeString, LastJWS, ReceiptCaseIntern.VERKAUF)
                             verarbeitet = result
@@ -1885,6 +1883,21 @@ Public Class frmBelegNeu
 
 
 
+    End Function
+
+    Private Function checkFiskaltrust()
+
+        If PERSONAL.cRKSV_Kasse IsNot Nothing AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_RestServiceURL IsNot Nothing AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID IsNot Nothing AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_AccessToken IsNot Nothing AndAlso PERSONAL.cRKSV_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)
+            Return client_chilkat.isFiskaltrust()
+
+        Else
+            Return False
+
+        End If
+
     End Function
 
     Private Sub openZahlungsbeleg(daid As Integer)

SDL/kassenbuch/frmKassenbuch.vb

@@ -206,6 +206,10 @@ Public Class frmKassenbuch
 
         End If
 
+        lbldailyCashboxClosing.Text = ""
+
+        If PERSONAL.cRKSV_Kasse IsNot Nothing AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_RestServiceURL IsNot Nothing AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID IsNot Nothing AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_AccessToken IsNot Nothing AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_Country IsNot Nothing Then
+
             Dim client_chilkat As New cFiskaltrustClient_chilkat(PERSONAL.cRKSV_Kasse.rksv_FT_RestServiceURL, PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID, PERSONAL.cRKSV_Kasse.rksv_FT_AccessToken, PERSONAL.cRKSV_Kasse.rksv_FT_Country)
             If client_chilkat.isFiskaltrust() Then
 
@@ -282,6 +286,8 @@ Public Class frmKassenbuch
                 Button11.Visible = False
             End If
 
+        End If
+
 
         '  Label9.Text = PERSONAL.Name
         DataGridView2.ClearSelection()

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -363,8 +363,12 @@ Public Class frmNacherfassungLeihgeld
                 '  QR_Image = Nothing
                 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
                     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()
+                    isFiskaltrust = client_chilkat.isFiskaltrust()
+                End If
+
 
                 If KASSE.rksv_aktiv Then ' WENN für die Kasse die RKSV gilt
                         Dim answer = ""