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

[ODee68]

Frohes neues Jahr erstmal!

Ich komme auch mal dazu, auch wenn ich jetzt echt in Zeitnot komme, da ich bis Ende März 2021 soweit durch sein muss.

Die Entscheidung unsere Kassensoftware doch weiter zu nutzen, kam leider sehr spät. Habe heute erst die Entwickler TSE bestellen können.
Ich hoffe, ich kann hier etwas Hilfe bekommen, ich verfolge eure Diskussion schon etwas länger und wollte anfangs die TSE der Bundesdruckerei einsetzen, mit der ich aber gar nicht klar kam und auch nichts im Netz finden konnte.

Ich finde die Idee der gemeinsamen Entwicklung echt klasse, hat es uns doch irgendwie allen Kopfzerbrechen bereitet und alles war so schwammig am Anfang.


Auf gute Zusammenarbeit!

LG Oliver

[OlliWW]

Zitat von ODee68:

Die Entscheidung unsere Kassensoftware doch weiter zu nutzen, kam leider sehr spät. Habe heute erst die Entwickler TSE bestellen können.
Ich hoffe, ich kann hier etwas Hilfe bekommen, ich verfolge eure Diskussion schon etwas länger und wollte anfangs die TSE der Bundesdruckerei einsetzen, mit der ich aber gar nicht klar kam und auch nichts im Netz finden konnte.

Ich habe den Stick der Bundesdruckerei mittlerweile per Delphi angeschlossen. Die Kommunikation mit den Technikern dort ist eigentlich sehr gut, sie können zwar keine Delphi-Hilfe geben aber generelle technische Fragen sehr gut und sehr schnell beantworten. Mit deren Hilfe habe ich es relativ schnell geschafft einen DLL Wrapper zu schreiben und einzusetzen. Die Java / C++ Beispiele bieten eine gute Grundlage. Man muss natürlich immer überlegen was Pointer auf Pointer auf UInt8 Array in Delphi heisst

Wenn man gar keinen Stick anbinden will, ist ggf. auch die Cloud / Hybrid "Key" von der deutschen Fiskal interessant, hier muss man nur einen Rest Service ansprechen (aber mit Indy nicht mit den REST Bibliotheken von Embarcadero)

[noisy_master]

Hallo zusammen,

da ich mich immer noch mit alten(ja, Asche auf mein Haupt) Delphi Versionen rumschlage(2006 und XE5) habe ich mal deine Sourcen back-ported. Heisst nun kann man das gute Stück ohne Änderungen auf 2006 und XE5 compilieren(und es läuft sogar noch ). Ich vermute somit lässt es sich auch auf aktuellen Delphis compilieren.
Habe auch eine kleine Base64 Encode Implementierung drin(ist wohl nicht extrem performant, aber portabel)...Nur den Singelton habe ich unter 2006 nicht zum Laufen bekommen.

Sobald jemand Interesse anmeldet, lade ich den Port gerne hoch!

Gruß

[ODee68]

Zitat von noisy_master:

Hallo zusammen,

da ich mich immer noch mit alten(ja, Asche auf mein Haupt) Delphi Versionen rumschlage(2006 und XE5) habe ich mal deine Sourcen back-ported. Heisst nun kann man das gute Stück ohne Änderungen auf 2006 und XE5 compilieren(und es läuft sogar noch ). Ich vermute somit lässt es sich auch auf aktuellen Delphis compilieren.
Habe auch eine kleine Base64 Encode Implementierung drin(ist wohl nicht extrem performant, aber portabel)...Nur den Singelton habe ich unter 2006 nicht zum Laufen bekommen.

Sobald jemand Interesse anmeldet, lade ich den Port gerne hoch!

Gruß

Das wäre echt klasse! Kann nicht schaden, sich das mal in Ruhe anzuschauen, vielleicht hilft es mir und anderen ja weiter?

Gruß Oliver

[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