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

[u2020]

Hallo zusammen

ich bin neu in diesem Forum und auch neu in Delphi (habe erst Delphi Rio angefangen.

@Bernau: Vielen Dank für dein Testprogramm.

Für das korrekte erzeugen des QR-Codes musste ich in deinem Testprogramm ein paar Änderungen vornehmen:
Unit: cc.KassenSichV.DsFinVK.ProcessTypeData.types;

Code:

   Function TDsFinVKFormatProcs.ProcessDataBetragAsString(const aBetrag: Double): string;
  begin
      ...
   //  Result := FloatToStrF(aBetrag, ffGeneral, 15, 2, lFormatSettings);
       Result := FloatToStrF(aBetrag, ffFixed, 15, 2, lFormatSettings);   // Udo  31.07.2020  ffGeneral durch ffFixed ersetzt
  end;
                     

Function TDsFinVKFormatProcs.TransactionDateTimeAsString(const aDateTime: TDatetime): string;
begin
//Result := FormatDateTime('YYYY-MM-DDThh:mm:ss:fffZ', aDateTime);
  Result := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss.zzz"Z"', aDateTime);       // udo 31.07.2020
end;

function TccDsFinVkTransactionData.QrCode: string;
begin
  Result :=
    'V0;' + // qr-code-version
    KassenSeriennummer + ';' +
    TccDsFinVkProcessTypeProc.EnumAsString(ProcessType) + ';' +
    ProcessData + ';' +
    IntToStr(TransaktionsNummer) + ';' +
    IntToStr(SignaturZaehler) + ';' +
    //IntToStr(TransaktionsNummer) + ';' +     // udo 31.07.2020               <---  diese Zeile muss raus 
    TDsFinVKFormatProcs.TransactionDateTimeAsString(StartZeit) + ';' +
    TDsFinVKFormatProcs.TransactionDateTimeAsString(LogTime) + ';' +
    SigAlg + ';' +
    LogTimeFormat + ';' +
    Signatur + ';' +
    PublicKey;
end;

Nach diesen Änderungen war die Prüfung des QR-Code OK.

Gruß
Udo

[bernau]

Zitat von u2020:

Für das korrekte erzeugen des QR-Codes musste ich in deinem Testprogramm ein paar Änderungen vornehmen:

Super Danke.

Ich werde es einarbeiten.

[michaelg]

Die WormAPI.DLL benutzt die VCRuntime140.dll, die Bestandteil des "Visual C++ Redistributable für Visual Studio 2015" ist.

95% unserer Anwender haben gar nicht das Kassenmodul. Es wäre blöd, wenn alle Anwender das nachinstallieren müssten, damit ihre Software weiter ordnungsgemäß startet.

Ich sehe bei der Art der DLL-Anbindung jedoch keine Chance, die DLL erst zu laden, wenn sie benötigt wird. Sehe ich das richtig oder gibt es einen Trick?

[bernau]

Da mein Kassenprogramm ein eigenständiges Programm, abgetrennt von unserer anderen Software ist, habe ich die Implementation mit der statischen Bindung einfach gemacht. Das setzt natürlich das vorhanden sein der DLL voraus. Es gibt auch die Möglichkeit mit LoadLibrary die DLL Dynamisch zu laden, dann muss aber viel umgeschrieben werden. Dafür fehlt mir leider die Zeit. Wobei mir das Dynamische Laden auch lieber ist.

[bernau]

Das Ganze dynamisch einzubinden war doch nicht so zeitaufwändig, wie ich dachte.

Es gibt jetzt Sie Version 0.2

[michaelg]

Meio mio, bist Du schnell...ich hatte vorhin einen DLL-Konverter angefangen, der war auch schon fast fertig...egal, was solls, wenigstens mal wieder was dazugelernt über die Unterschiede der DLL-Deklarationen.

Vielen Dank für Deine Mühe!!!!