Delphi und XRechnung

[sh17]

in diesem Repository

https://github.com/LandrixSoftware/XRechnung-for-Delphi

ist die Klasse nicht enthalten.

Einlesen von XRechnungen ist rudimentär begonnen worden, es fehlen aber noch Teile. Du
könntest sie selbst ergänzen und beisteuern. Im Moment komme ich zeitlich nicht dazu,
werde das aber dann mit Version 3.0.1. umsetzen.

[SnergleTheDwarf]

Gibt es eine Möglichkeit Einblick zu bekommen in den rudimentären Teil oder fange ich bei null an?

Auf der anderen Seite und nach kurzem Einblick in den Code gibt es dort ja schon eine Einlese-Funktion,
welche auf den ersten Blick nur zur Validation (mittels TXRechnungInvoiceAdapter) der erzeugten XRechnung genutzt
werden. Gehe ich richtig in der Annahme, dass diese ergänzt werden müssen, um so die XML-Daten in das
TInvoice-Objekt zu bekommen?

Stellt das TZUGFeRDCrossIndustryDocument-Objekt einen wesentlichen Unterschied zum TInvoice-Objekt dar oder
ist es nur TZUGFeRDCrossIndustryDocument = class(TInvoice)?

Leider habe ich kaum Erfahrung im Umgang mit github und müsste mich dort erst einarbeiten, um dort aktiv helfen
zu können. Ich melde mich mal und schaue mir es mir an.

[sh17]

Zitat von SnergleTheDwarf:

Gibt es eine Möglichkeit Einblick zu bekommen in den rudimentären Teil oder fange ich bei null an?

Auf der anderen Seite und nach kurzem Einblick in den Code gibt es dort ja schon eine Einlese-Funktion,
welche auf den ersten Blick nur zur Validation (mittels TXRechnungInvoiceAdapter) der erzeugten XRechnung genutzt
werden. Gehe ich richtig in der Annahme, dass diese ergänzt werden müssen, um so die XML-Daten in das
TInvoice-Objekt zu bekommen?

richtig

Zitat von SnergleTheDwarf:

Stellt das TZUGFeRDCrossIndustryDocument-Objekt einen wesentlichen Unterschied zum TInvoice-Objekt dar oder
ist es nur TZUGFeRDCrossIndustryDocument = class(TInvoice)?

TZUGFeRDCrossIndustryDocument stammt aus der ZUGFeRD-Schnittstelle (diese programmiere ich gerade komplett neu) und hat
in diesem Fall nichts mit TInvoice aus der XRechnung zu tun.

Du kannst Dur auch den Quellcode unter https://github.com/LandrixSoftware/X...ses/tag/v2.3.1
einfach runterladen und dran arbeiten und die Änderungen mir der dann per Mail schicken. Ich arbeite es dann ins Github ein.

Grundsätzlich könnte ich auch helfen, wenn der Aufwand nicht zu hoch ist. Das müssten wir dann aber per EMail separat absprechen.

[harfes]

Ich habe mir gerade die Dateien von GitHub gezogen und wollte das Sample testen - leider kommt da beim Compilieren immer: "[dcc32 Fehler] XRechnungUnit1.pas(741): E2003 Undeklarierter Bezeichner: 'XRechnungVersion_300_UBL' ". Was fehlt da bzw was mache ich falsch?

Hartmut

[harfes]

Hab gerade noch die Version 2.3.1 versucht - die funktioniert. Was fehlt bei der V. 3?

Hartmut

[sh17]

Bitte nur mit dem Release arbeiten

https://github.com/LandrixSoftware/X...ses/tag/v2.3.1

[harfes]

Hallo Sven,

ja, da war ich wohl zu übereifrig mit der aktuellen Version 3...aber kein Problem, zum Testen genügt ja die V. 2.3.1. Sollte es dann zur Umsetzung kommen, muss ich es ja eh bei Dir lizensieren, da gewerblich genutzt.

Hartmut

[dpKlaus]

Guten Tag!

Ich arbeite gerade mit der xRechnung Demo und habe den „Zuschlag fuer Kommuikation“ und „Nachlass 2 ohne Angabe von Basisbetrag und Nachlassprozente“ deaktiviert (auskommentiert)

Dann hab ich folgende Einträge vorgenommen, bzw. angepasst:

if cbAllowanceCharges.Checked then
begin
inv.LineAmount := inv.LineAmount;
inv.AllowanceTotalAmount := 5.00 + 5.00;
inv.ChargeTotalAmount := 0;
inv.TaxAmountSubtotals[1].TaxableAmount := inv.TaxAmountSubtotals[1].TaxableAmount - 5.00 - 5.00;
inv.TaxAmountSubtotals[1].TaxAmount := inv.TaxAmountSubtotals[1].TaxAmount - 0.95 - 0.95;
inv.TaxAmountTotal := inv.TaxAmountTotal - 0.95 - 0.95;
inv.TaxExclusiveAmount := inv.TaxExclusiveAmount - inv.AllowanceTotalAmount + inv.ChargeTotalAmount;
inv.TaxInclusiveAmount := inv.TaxInclusiveAmount - 5.00 - 0.95 - 5.00 - 0.95;
inv.PayableAmount := inv.TaxInclusiveAmount;
end;

ich erhalte dann aber folgende Fehlermeldung:

Pos Code Adj. Grad Text
val-sch.1.1 BR-CO-10 error [BR-CO-10]-Sum of Invoice line net amount (BT-106) = Σ Invoice line net amount (BT-131).
Pfad: /ubl:Invoice/cac:LegalMonetaryTotal[1]
val-sch.1.2 BR-CO-11 error [BR-CO-11]-Sum of allowances on document level (BT-107) = Σ Document level allowance amount (BT-92).
Pfad: /ubl:Invoice/cac:LegalMonetaryTotal[1]

Welche Variablen müssen noch bearbeitet werden?

Zur Übersicht habe ich mir die Inhalte der Variablen vor der Änderung der Variablen bei „if cbAllowanceCharges.Checked then“ per Showmessage (siehe Anhang Summen 001) anzeigen lassen und danach (siehe Anhang Summen 002). Diese Werte stimmen soweit.