cc.KassenSichV.* - Die Unitsammlung zur Kassensicherungverordnung des BMF

[bernau]

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)

[noisy_master]

So, da ist nun die "aktuelle" Version für Delphi 2006 ff.
Ich habe übrigens noch eine Kleinigkeit hinzugefügt: Die Klasse findet jetzt ihr TSE selber(oder eben nicht) allerdings wird nur beim Instantiieren der Klasse nachgeschaut...

Gruß

[noisy_master]

Hallo zusammen,

Ich bin noch bei der DSFIN. Nun stellen sich mir schon wieder Fragen: Die BonPos soll ja fortlaufend sein(je Beleg). Aber welcher Beleg ist gemeint? Der ZBeleg, oder der Bon?
Und mit dem Abrechnungskreis komme ich leider auch nicht klar: In der DSFIn wird gesagt man könnte z.B. den Tisch nehmen. Was nimmt man denn in einer "Scannerkasse"? Muss man da je Bon was anderes(eindeutiges) nehmen?

Ach das Ding ist einfach nicht schön beschrieben

Gruß

[ODee68]

Zitat von noisy_master:

So, da ist nun die "aktuelle" Version für Delphi 2006 ff.
Ich habe übrigens noch eine Kleinigkeit hinzugefügt: Die Klasse findet jetzt ihr TSE selber(oder eben nicht) allerdings wird nur beim Instantiieren der Klasse nachgeschaut...

Gruß

Es fehlt leider die "ExceptionLog", wenn ich die entferne, schmeiß die GUI beim Starten und Connecten Exceptions.

Gruß Oliver

[noisy_master]

Hi,

Zitat von ODee68:

Es fehlt leider die "ExceptionLog", wenn ich die entferne, schmeiß die GUI beim Starten und Connecten Exceptions.
Gruß Oliver

ich kann dir leider nicht folgen... Hast du noch mal ein paar Details zu dem Problem? Wo Steht die drin?...

Gruß

[noisy_master]

Ich habe Eurekalog mal deaktiviert... vielleicht sind ja jetzt deine Probleme weg...

[bernau]

Zitat von noisy_master:

@Bernau: ich weiss, dass du die vielen neuen Sprachfeatures magst, aber es wäre schon toll, wenn du die fürderhin nicht allzu intensiv nutzt

Da ich immer nur "eine" Delphi-Version verwende, weis ich nicht (mehr), welche Sprachfeatures in den alten Versionen vorhanden sind.

Viel Neues wird auch nicht mehr bzgl. der TSE hinzukommen. Beim DsFinV-K-Export schon

[noisy_master]

Zitat von bernau:

... der TSE hinzukommen. Beim DsFinV-K-Export schon

Hört sich gut an: wann darf man denn mit der ersten Preview rechnen?

Gruß

[bernau]

Da hat jemand die Lizenz-Info gelesen.

Danke an Stefan.

[mlc42]

Vielen Dank an den Author dieser Bibliothek.

Ich hab das mal in mein Programm eingebunden und kann
auch Bonvorgänge absetzen, Der QrCode wird gedruckt
und ich speicher die TSE Antwort in meiner Bontabelle.

Da ich nur einfache Artikelverkäufe habe nutze ich das so
wie in der Kassenfunktion. Aber warum gibt es da den Betrag und
den Zahlbetrag ? Wenn ich das in der SwissbitGUI unterschiedlich
angebe gibt es nur eine Fehlermeldung. Wenn das doch immer
gleich sein muss wieso dann zwei Beträge ? Ich hab in den Dokus
nix dazu gefunden. (Bei der Menge kann man aber leicht was übersehen)

Martin


Nachtrag: Ich hab jetzt gesehen das es wohl um die unterschiedlichen MWST Sätze geht

[bernau]

Zitat von mlc42:

Nachtrag: Ich hab jetzt gesehen das es wohl um die unterschiedlichen MWST Sätze geht

Fast. Es geht nicht nur um unterschiedliche MwSt-Stätze, sondern auch um unterschiedliche Währungen.

Die Klasse kontrolliert deine Eingaben, bevor der Kassenbeleg erzeugt wird.

Es wird die Summe aus den fünf verschiedenen Brutto-Umsätzen (verschiedene MwSt-Sätze) mit der Summe der Zahlungen verglichen. Diese Summen müssen identisch sein, ansonsten gibt es eine Fehlermeldung. Das ist beim Kassieren von reinen EUR-Beträgen kein Problem. Wenn du aber einen Teil in EUR und einen Teil in einer anderen Währung (z.B.CHF) kassierst, dann passen die Summen nicht mehr. Deshalb muss zusätzlich zur "Fremdwährung" der zugehörige EUR-Betrag angegeben werden.

Ich versuche diesen Bereich besser zu dokumentieren.