Wie sieht die Zukunft mit XRechnung, ZUGFerD, Peppol und Co. aus ?

[BlueStarHH]

Zitat von sh17:

Zitat von johndoe049:

Frage ist, ob Landrix auch XRechnung lesen kann oder es eine alternative Bibliothek gibt.

Ja, kann auch einlesen. Und wenn etwas fehlt, wird es ergänzt.

Super! Gerade weil Du das ganze als OpenSource veröffentlicht hast, sehe ich hier auch einen Vorteil: Mehere Entwickler nutzen das in Ihren Projekten. So fällt dann schneller auf, was fehlt oder erweitert werden müsste. So kommt man dann schneller an eine komplette Lösung.

[KlausV]

Ich hänge mich hier mal mit rein weil wir in unsere eigene kleine ERP Anwendung auch Rechnungen schreiben. Leider ist alles uralt und noch unter Delphi7 geschrieben. Ich bin mit dem Entwickler von Landrix schon am schreiben, ob es evt. eine eigene DLL geben wird. Die Github Variante lässt sich leider in Delphi 7 nicht einbinden, weil zig DCU's fehlen.
Klaus

[Redeemer]

Änderungen, um XRechnung unter Delphi 2010 zum Laufen zu bringen (kompiliert, aber ich habe es noch nicht getestet!):

• Bei Delphi-Units die Namespaces löschen (Achtung: bei Generics.Collections nur System. löschen) - das betrifft an einigen Stellen nicht nur uses sondern auch Aufrufe
• UITypes brauchte man damals nicht
• Eigenen Base64-Encoder und -Decoder benutzen, da NetEncoding fehlt und sich nicht ohne weiteres zurückportieren lässt
• TStringHelper ersetzen:
  • Objektorientiertes node.Text.EndsWith(x, true) durch EndsText(x, node.Text) ersetzen; StartsWith analog
  • TStringHelper.Split selbst implementieren
  • TStringHelper.IsEmpty durch vergleich gegen Leer ersetzen (Hinweis: Es wird ausschließlich negiert benutzt)
• TEncoding.ANSI wäre TEncoding.Default - das ist aber ohnehin ein Bug im Original, denn cmd unterstützt kein ANSI sondern nur OEM (also 850).
• Bezüge zu WebBrowser2 aus der Demo löschen
• {$ENDIF} zu {$IFEND}

Kann ich als Fork bereitstellen, wenn das irgendjemanden interessiert.

Mangels Generics halte ich sämtliche Portierungen auf Delphi vor 2009 für Quatsch.

Ich verstehe nicht, warum das Zugferd-Repo so komplett anders ist als X-Rechnung, obwohl es sich um exakt dasselbe Format handelt...

[sh17]

Zitat von Redeemer:

Ich verstehe nicht, warum das Zugferd-Repo so komplett anders ist als X-Rechnung, obwohl es sich um exakt dasselbe Format handelt...

Rein historisch bedingt, XRechnung-Repo gibt es schon lange, seit es die Anforderung der Behörden seitens eRechnung gibt. Da waren XRechnung und ZUGFeRD noch nicht kompatibel. Technisch ist XRechnung nun ein Profil in ZUGFeRD 2.1. Um für 2025 gerüstet zu sein, müssten beide Repos kombiniert werden, was ich so machen werde, aber ist eben auch noch etwas Arbeit fällig

[Sourcecoder]

Ich hab das Projekt (XRechnung) schon nach Delphi 7 portiert. Läuft prima. Generics kann man leicht umschreiben. Base64 mit TIdEncoderMIME und TIdDecoderMIME. Webbrower2 geht auch für den Prüfbericht, nur beim "XRechnung nach HTML" ruf ich einfach Firefox oder Edge auf.

[Redeemer]

Zitat von sh17:

Zitat von Redeemer:

Ich verstehe nicht, warum das Zugferd-Repo so komplett anders ist als X-Rechnung, obwohl es sich um exakt dasselbe Format handelt...

Rein historisch bedingt, XRechnung-Repo gibt es schon lange, seit es die Anforderung der Behörden seitens eRechnung gibt. Da waren XRechnung und ZUGFeRD noch nicht kompatibel. Technisch ist XRechnung nun ein Profil in ZUGFeRD 2.1. Um für 2025 gerüstet zu sein, müssten beide Repos kombiniert werden, was ich so machen werde, aber ist eben auch noch etwas Arbeit fällig

Okay, danke.

Zitat von Sourcecoder:

Ich hab das Projekt (XRechnung) schon nach Delphi 7 portiert. Läuft prima. Generics kann man leicht umschreiben. Base64 mit TIdEncoderMIME und TIdDecoderMIME. Webbrower2 geht auch für den Prüfbericht, nur beim "XRechnung nach HTML" ruf ich einfach Firefox oder Edge auf.

Wäre die Frage, ob hier von @sh17 eine Version mit Compiler-Verzweigungen gewünscht ist, die unter verschiedenen Versionen kompiliert. Ist derzeit leider nicht so einfach, weil alle DocWikis down sind, die keine Stadt sind.

[sh17]

Ich würde es mir zumindest anschauen, wenn mir jemand die Delphi 7 Variante zusendet, ob ich das easy mischen kann.

Der Wunsch nach FPC steht ja auch noch im Raum.

[Sourcecoder]

Zitat von sh17:

Ich würde es mir zumindest anschauen, wenn mir jemand die Delphi 7 Variante zusendet, ob ich das easy mischen kann.

Der Wunsch nach FPC steht ja auch noch im Raum.

Klar. Kann ich zusenden.

[Redeemer]

Das ging jetzt recht schnell zu implementieren, aber eine Sache konnte ich nicht herausfinden: Es ist verpflichtend eine nicht-leere Leitweg-ID eingezugeben, aber wenn ich eine Rechnung an ein Privatunternehmen oder einen Privatverbraucher schicke, habe ich die nicht. Was trägt man da ein? Man kann da natürlich 'nen lustigen Spruch oder so eintragen, aber das ist ja nicht Sinn der Sache.

Ich meine, einen Bug in der Bibliothek gefunden zu haben: Es gibt einige optionale Felder, die leer ausgegeben werden, wenn sie leer sind. Das Ausgeben leerer Felder führt immer immer zu einem ungültigen Dokument als Ergebnis. Das ist besonders dann ärgerlich, wenn das Feld optional ist, also gar nicht bereitgestellt werden muss. Das sind zum Beispiel <cac:AccountingCustomerParty><cac:Party><cac:Contact> und alle drei möglichen Kinder – das Motto ist offiziell: alles kann, nichts muss.

Falsch:

Delphi-Quellcode:

    with AddChild('cac:Contact') do
    begin
      AddChild('cbc:Name').Text := _Invoice.AccountingCustomerParty.ContactName;
      AddChild('cbc:Telephone').Text := _Invoice.AccountingCustomerParty.ContactTelephone;
      AddChild('cbc:ElectronicMail').Text := _Invoice.AccountingCustomerParty.ContactElectronicMail;
    end;

Richtig:

Delphi-Quellcode:

    if (_Invoice.AccountingCustomerParty.ContactName <> '') or (_Invoice.AccountingCustomerParty.ContactTelephone <> '') or (_Invoice.AccountingCustomerParty.ContactElectronicMail <> '') then
    with AddChild('cac:Contact') do
    begin
      if _Invoice.AccountingCustomerParty.ContactName <> '' then
      AddChild('cbc:Name').Text := _Invoice.AccountingCustomerParty.ContactName;
      if _Invoice.AccountingCustomerParty.ContactTelephone <> '' then
      AddChild('cbc:Telephone').Text := _Invoice.AccountingCustomerParty.ContactTelephone;
      if _Invoice.AccountingCustomerParty.ContactElectronicMail <> '' then
      AddChild('cbc:ElectronicMail').Text := _Invoice.AccountingCustomerParty.ContactElectronicMail;
    end;

Achtung: Betrifft nur AccountingCustomerParty – bei AccountingSupplierParty sind alle drei Knoten und der Elternknoten verpflichtend!

[Papaschlumpf73]

Zitat von Redeemer:

Es ist verpflichtend eine nicht-leere Leitweg-ID eingezugeben, aber wenn ich eine Rechnung an ein Privatunternehmen oder einen Privatverbraucher schicke, habe ich die nicht. Was trägt man da ein? Man kann da natürlich 'nen lustigen Spruch oder so eintragen, aber das ist ja nicht Sinn der Sache.

Über diese Problematik bin ich auch schon bei einer Software von Lexware gestoßen. Auch dort muss für jeden Empfänger von XRechnungen dessen Leitweg-ID verpflichtend angegeben werden. Eine Lösung habe ich aber auch noch nicht gefunden.