In einen anderen Thread hier in der Delphi-Praxis hatte ich wegen einem Gemeinschaftsprojekt zur Ansteuerung der SwissBit-TSE angefragt. Da es nicht wirklich ein bestehendes Projekt gab, habe ich einfach mal angefangen. Ist stehe etwas unter Zeitdruck, deshalb wollte ich nicht erst ein Gemeinschaftsprojekt organisieren. Zwischenzeitlich habe ich einige Anfragen von Personen erhalten, die auch noch am Anfang der Entwicklung stehen. Die KassenSichV ist ein heikles Thema und ich denke mehrere Augen sehen mehr als Zwei. Deshalb möchte ich hiermit meine
Unit-Sammlung, die ich in den letzten Tagen geschrieben habe, der Allgemeinheit zur Verfügung stellen.
Etwas zur Lizenz:
Es wird die Beerware-Lizenz verwendet.
https://de.wikipedia.org/wiki/Beerware
Kurz gesagt, mach mit der Unitsammlung was du willst. Wenn es möglich ich, dann sende mir einfach eine Flasche Bier aus deiner Region zu. Vielleicht noch einen zugehörigen Bierdeckel.
Es kann auf einem gemeinsammen Delphi-Event (z.B. die Foren-Tage
https://forentage.de) auch gerne ein Bier ausgegeben werden.
Gegen einen Leckeren Single-Malt-Whiskey hätte ich auch nichts einzuwenden
Grundsätzlich erfolgt die Nutzung dieser Unitsammlung auf eigenes Risiko. Ich weise ausdrücklich darauf hin, dass bei falscher Nutzung die Hardware (TSE) unbrauchbar gemacht werden kann.
SwissBit-TSE / DsFinV-K
Ursprünglich wollte ich nur einen kleinen Wrapper für die
DLL der SwissBit-TSE. Nun ist noch eine Klasse hinzugekommen, mit der die
DLL noch etwas komfortabler angesprochen werden kann. Eine Kassenbeleg in mit wenigen Zeilen Quellcode erstellt und die benötigten Rückgabewerte für den Kassenbon werden in einem einfachen Record inkl. dem Inhalt des QR-Codes zurückgegeben. Da aber auch vieles davon in die DsFinV-K übergeht, werde ich ziemlich zügig noch weitere Klassen erstellen, die einen ordentlichen Export für die DsFinV-K ermöglicht. Die entsprechenden Units werde ich nachreichen.
Demo-Programm
Damit die Units von Interessenten einfach getestet werden können, habe ich ein kleines
VCL-Programm beigefügt. Nichts besonderes. Soll nur zeigen, wie Funktionen angesprochen werden. Hier zwei Screenshots:
Version 0.2
Die
DLL kann nun dynamisch geladen werden. Informationen dazu stehen in der Datei "
cc.KassenSichV.License"
Diverse Fehler behoben.
Version 0.4
Event OnSelftestNotify zugefügt.
Automatisch Steuersatzzuordnung.
Kontrolle ob Bruttoumsatz und Zahlungen stimmig sind.
Compilerdirective WORMAPIDLL_STATIC zugefügt.
Verschiedene Hilfsfunktionen
Singleton-Funktion
Version 1.0
Neue Funktionen neuerer
SDK > 5.7.1
keepalive_configure
LAN-TSE (von Uwe Koch)
Log-Funktionen
Weitere Events
Details stehen in der Datei "
cc.KassensichV.ChangeLog.pas"
Erweiterung der SwissbitGui. (Siehe Bilder)