div. Änderungen

SDL/kassenbuch/frmBelegNeu.vb

@@ -1881,16 +1881,15 @@ Public Class frmBelegNeu
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
 
-        'KASSE.LOAD(6) 'AT-Kasse
-        KASSE.LOAD(12) 'DE-kasse
+        KASSE.LOAD(cboKassen._value)
 
         If KASSE.rksv_FT_RestServiceURL <> "" Then
 
             Dim client As New cFiskaltrustClient(KASSE.rksv_FT_RestServiceURL, KASSE.rksv_FT_CashboxID, KASSE.rksv_FT_AccessToken, KASSE.rksv_FT_Country)
-
             Dim result = client.Echo()
 
-
+        Else
+            MsgBox("keine Rest-Service URL hinterlegt!")
 
         End If