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)

[ODee68]

Brauche hier schon die erste Hilfe

Delphi-Quellcode:

function TccSwissBitTseByteData.asHexString: String;
var
  a: Integer;
begin
  Result := '';
  for a := 0 to Length(Bytes) - 1 do
    begin
      Result := Result + IntToHex(Bytes[a]);
    end;
end;

Beim Compilieren bekomme ich folgende Fehlermeldung

Code:

[dcc32 Fehler] cc.KassenSichV.Swissbit.classes.pas(367): E2250 Es gibt keine überladene Version von 'IntToHex', die man mit diesen Argumenten aufrufen kann

kommentiere ich die Zeile aus, läßt sich die SwissbitGui auch starten, aber dann stimmen sicherlich einige Werte nicht mehr, weil die Funktion ja nur noch einen leeren String zurück gibt.
Habe die Funktion mal einen festen Wert zurückgeben lassen, siehe 2. Bild.

Gruß Oliver

[Poelser]

IntToHex() braucht 2 Parameter, da gehört noch die Anzahl Stellen dazu, z.B. IntToHex(123, 2).

[ODee68]

Das ist schon richtig, so wäre die die Standardfunktion, diese ist aber aus einer eigene Klasse und hat diesen 2. Parameter nicht.
Welchen Größe müsste ich dahinter setzen? Macht das einen Unterschied für das Ergenbnis, ob 2 oder 3, etc.?

Gruß Oliver

[jaenicke]

Zitat von Poelser:

IntToHex() braucht 2 Parameter, da gehört noch die Anzahl Stellen dazu, z.B. IntToHex(123, 2).

In alten Delphiversionen war das mal so, ja. Heute wird ohne den zweiten Parameter schlicht die Größe des Datentyps als Standard verwendet.

Beim Datentyp Byte wird so per Compiler Magic aus IntToHex(ByteValue) einfach IntToHex(ByteValue, 2). Ich gehe mal bei Bytes[a] davon aus, dass auch hier die 2 als zweiter Parameter korrekt ist und diese dann bei älteren Delphiversionen angegeben werden muss.

[ODee68]

Zitat von jaenicke:

Zitat von Poelser:

IntToHex() braucht 2 Parameter, da gehört noch die Anzahl Stellen dazu, z.B. IntToHex(123, 2).

In alten Delphiversionen war das mal so, ja. Heute wird ohne den zweiten Parameter schlicht die Größe des Datentyps als Standard verwendet.

Beim Datentyp Byte wird so per Compiler Magic aus IntToHex(ByteValue) einfach IntToHex(ByteValue, 2). Ich gehe mal bei Bytes[a] davon aus, dass auch hier die 2 als zweiter Parameter korrekt ist und diese dann bei älteren Delphiversionen angegeben werden muss.

Vielen Dank Sebastian!

[noisy_master]

Hallo zusammen,

hier die Version für Delphi 2006 etc. Bitte bei den höheren Versionen in den Projektoptionen die Unit Scopes angeben....

bei Fragen einfach melden.

Gruß

[bernau]

Es gibt eine neue Version (Siehe erster Beitrag)

[noisy_master]

Hallo zusammen,

vielen Dank erstmal an Bernau für die neue Variante(auch wenn diesmal das Backporting auf die alten Delphi Versionen noch schwieriger geworden ist).

Nun bin ich langsam beim DSFinV-K Export angelangt, und dort stellen sich mir einige Fragen:

- Welches ist das Trennzeichen, was bei den .csv Dateien zu nutzen ist?
- Müssen die einzelnen Felder "gequotet" sein, oder nicht?
- wenn "gequoted": welches Zeichen ? " ?
- was passiert mit Feldern, die nicht gefüllt werden(müssen)? bleiben die leer, oder werden die mit der entsprechenden Feldlänge an Leerzeichen gefüllt?
- wie muss denn das Feld TAXONOMIE_VERSION aussehen? 2.2? "2.2"?, V2.2...
- müssen .csv Dateien erzeugt werden,die leer sind, oder können die weg bleiben?
- sollen in den csv Dateien Headerzeilen mit den Feldern eingefügt werden?

Vielleicht nur dumme Fragen weil ich habe was essentielles in der Dokumentation übersehen habe, oder es steht wirklich nicht drin.
Aber vielleicht findet sich ja hier jemand(bin ich mir fast sicher), der meine Fragen beantworten kann, bzw mir einen entsprechenden Link verpassen kann.

Danke euch wieder vielmals im Voraus!

Gruß

[DeddyH]

Schau doch mal auf https://www.bzst.de/DE/Unternehmen/A...finv_node.html und dort unter Downloads.

[noisy_master]

Ja, dort steht die DSFinV_ in der Version 2.2 zum download. Aber die beantwortet meine gestellten Fragen nicht(oder ich habe es dort übersehen. Wenn enthalten: wo konkret stehen die Antworten zu meinen Fragen?)