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

[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.