Fiskaltrust, etc.

SDL/kassenbuch/frmBelegNeu.Designer.vb

@@ -1253,9 +1253,9 @@ Partial Class frmBelegNeu
         Me.Button4.Location = New System.Drawing.Point(120, 38)
         Me.Button4.Name = "Button4"
         Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
-        Me.Button4.Size = New System.Drawing.Size(51, 21)
+        Me.Button4.Size = New System.Drawing.Size(70, 21)
         Me.Button4.TabIndex = 49
-        Me.Button4.Text = "TEST"
+        Me.Button4.Text = "TEST FT"
         Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button4.UseVisualStyleBackColor = True
         Me.Button4.Visible = False
@@ -1334,7 +1334,6 @@ Partial Class frmBelegNeu
         Me.cboKassen._allowedValuesFreiText = Nothing
         Me.cboKassen._allowFreiText = False
         Me.cboKassen._value = ""
-        Me.cboKassen.Enabled = False
         Me.cboKassen.FormattingEnabled = True
         Me.cboKassen.Location = New System.Drawing.Point(50, 9)
         Me.cboKassen.Name = "cboKassen"

SDL/kassenbuch/frmBelegNeu.vb

@@ -236,6 +236,13 @@ Public Class frmBelegNeu
             Button4.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            cboKassen.Enabled = True
+        Else
+            cboKassen.Enabled = False
+        End If
+
+
         AddHandler kdkunde.PropertyChanged, Sub()
                                                 If kdkunde.KdNr > 0 Then
                                                     lblKunde_Strasse.Text = kdkunde.KdData_ADRESSEN.Straße
@@ -1594,7 +1601,8 @@ Public Class frmBelegNeu
                 Me.Cursor = Cursors.WaitCursor
 
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                    KASSE.LOAD(6) 'AT-Kasse
+                    KASSE.LOAD(cboKassen._value)
+                    'KASSE.LOAD(6) 'AT-Kasse
                     'KASSE.LOAD(12) 'DE-kasse
                     'Laden der Kasse anhand der Auswahlbox
                 Else
@@ -1879,38 +1887,28 @@ 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
+    Private Async Function Button4_ClickAsync(sender As Object, e As EventArgs) As Task Handles Button4.Click
+        Try
 
-        KASSE.LOAD(cboKassen._value)
+            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 As String = Await client.Echo()
+                Dim result2 As String = Await client.SignReceiptAsync_test()
+                MsgBox(result)
+                MsgBox(result2)
 
-        If KASSE.rksv_FT_RestServiceURL <> "" Then
+            Else
+                MsgBox("keine Rest-Service URL hinterlegt!")
 
-            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
+
+        Catch ex As Exception
+
+        End Try
 
 
-        Else
-            MsgBox("keine Rest-Service URL hinterlegt!")
-
-        End If
-
-
-    End Sub
-
-    'Private Sub generatePOSUmbuchung()
-    '    Dim isUmbuchung = True
-    '    Dim frmFremdbeleg As New frmFremdbeleg(isUmbuchung)
-    '    frmFremdbeleg.PERSONAL = PERSONAL
-    '    frmFremdbeleg.Art = 2
-    '    frmFremdbeleg.Show()
-    '    frmFremdbeleg.cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Umbuchung Kassa/Bankomat", "3281"))
-    '    frmFremdbeleg.cboKonto.changeItem("3281")
-    '    frmFremdbeleg.txtReferenz.Text = BELEG.BelegNr
-    '    frmFremdbeleg.txtBetrag._value = Betrag
-    '    frmFremdbeleg.cbxBelegDrucken.Checked = False
-    '    frmFremdbeleg.btn.PerformClick()
-
-    'End Sub
+    End Function
 
 End Class