neu

RKSV_DE/cRKSV_DE.vb

@@ -0,0 +1,121 @@
+Imports ItgKsV
+Public Class cRKSV_DE
+
+    Private Function SurroundingSub()
+
+
+        ' COM-Objekt anlegen
+
+        Dim licenseKey As String = "MEUCIQDg2GSwFrgOMHLzKBO7Sac+D3xBh9Ct+QRBXarDFPtdNgIgQyvotBil11sRfqQgdY+spD3aUve/HZS9cF7MS0D720w="
+        Dim m_ksv As ItgKsV.KsVCom = New ItgKsV.KsVCom()
+        Dim result As Integer = m_ksv.InitialiseLibrary("F:", "SwissbitDemo", "12345", licenseKey)
+
+        If result <> &H0 Then
+            MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+            Return False
+        End If
+
+
+
+        ' Setup bei erstmaliger Verwendung der Swissbit-TSE !!!
+
+        result = m_ksv.SetupTSEForFirstUse("123456", "12345", "98765", "SwissbitDemo")
+
+        If result <> &H0 Then
+            MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+        Else
+            MessageBox.Show("TSE setup succeeded.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        End If
+
+
+
+        ' BeginTransaction: für jede neue Rechnung wird eine Transaktion gestartet
+
+        Dim transactionNumber As Long = 0
+        result = m_ksv.StartTransaction(transactionNumber)
+
+        If result <> &H0 Then
+            MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+            Return False
+        End If
+
+
+
+        ' UpdateTransaction: processData bleibt leer
+
+        result = m_ksv.UpdateTransaction(transactionNumber, "", "KassenBeleg-V1")
+
+        If result <> &H0 Then
+            MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+        End If
+
+
+
+        ' FinishTransaction: Abschluss einer Rechnung, processData nach vorgegebenem Format
+
+        result = m_ksv.FinishTransaction(transactionNumber, "Beleg^19.99_0.00_0.00_0.00_0.00^19.99:Bar", "KassenBeleg-V1")
+
+        If result <> &H0 Then
+            MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+        End If
+
+
+
+        ' QR-Code und weitere Werte, die auf der Rechnung angedruckt werden müssen
+
+        ' QR-Code wird als base64 kodiertes bitmap geliefert
+
+        Dim qrCode As String = String.Empty
+
+        ' QR-Code Inhalt für die Ablage in der Datenbank, falls eine Rechnung nochmals gedruckt werden muss
+
+        Dim qrCodeContent As String = String.Empty
+        m_ksv.GetLastReceiptQrCode(qrCode)
+        m_ksv.GetLastReceiptQrCodeContent(qrCodeContent)
+        Dim sTransactionNumber As String = String.Empty
+        Dim serialNumber As String = String.Empty
+        Dim signature As String = String.Empty
+        Dim sigCounter As String = String.Empty
+        Dim dtStartTransaction As Date = Date.MinValue
+        Dim dtFinishTransaction As Date = Date.MinValue
+        m_ksv.GetLastReceiptValues(sTransactionNumber, serialNumber, signature, dtStartTransaction, dtFinishTransaction, sigCounter)
+
+
+        ' Anzeige der gestarteten/noch möglichen Transaktionen
+
+        Dim maxTransactions As Integer = 0
+        Dim openTransactions As Integer = 0
+        m_ksv.GetMaxStartedTransactions(maxTransactions)
+        m_ksv.GetStartedTransactions(openTransactions)
+        Dim startedTransactions As Integer() = Nothing
+        result = m_ksv.GetStartedTransactionNumbers(startedTransactions)
+
+        If result <> &H0 Then
+            MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+        End If
+
+
+
+        ' Export der TSE-Daten im TAR-Format
+
+        result = m_ksv.ExportAsTarFile("d:\export.tar")
+
+        If result <> 0 Then
+            MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+        End If
+
+
+
+        ' Bibliothek aufräumen, andernfalls wird ein power-cycle der TSE erforderlich um sie wieder einsetzen zu können
+
+        'result = CSharpImpl.__Assign(,, m_ksv.CleanupLibrary())
+        result = m_ksv.CleanupLibrary()
+
+        If result <> 0 Then
+            MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+        End If
+        Return True
+    End Function
+
+
+End Class