Barverkauf (fiskaltrust)

SDL/kassenbuch/frmBelegNeu.vb

@@ -232,6 +232,10 @@ Public Class frmBelegNeu
         '     Case "WAI" : cboFiliale.changeItem(5103)
         ' End Select
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
+            Button4.Visible = True
+        End If
+
         AddHandler kdkunde.PropertyChanged, Sub()
                                                 If kdkunde.KdNr > 0 Then
                                                     lblKunde_Strasse.Text = kdkunde.KdData_ADRESSEN.Straße
@@ -1590,8 +1594,8 @@ Public Class frmBelegNeu
                 Me.Cursor = Cursors.WaitCursor
 
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                    'KASSE.LOAD(6) 'AT-Kasse
-                    KASSE.LOAD(12) 'DE-kasse
+                    KASSE.LOAD(6) 'AT-Kasse
+                    'KASSE.LOAD(12) 'DE-kasse
                     'Laden der Kasse anhand der Auswahlbox
                 Else
                     KASSE.LOAD(cboKassen._value) 'Laden der Kasse anhand der Auswahlbox
@@ -1875,6 +1879,24 @@ Public Class frmBelegNeu
         Process.Start("https://wiki.verag.ag/de/software/aviso/howtos/Bankomat")
     End Sub
 
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+
+        'KASSE.LOAD(6) 'AT-Kasse
+        KASSE.LOAD(12) 'DE-kasse
+
+        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()
+
+
+
+        End If
+
+
+    End Sub
+
     'Private Sub generatePOSUmbuchung()
     '    Dim isUmbuchung = True
     '    Dim frmFremdbeleg As New frmFremdbeleg(isUmbuchung)