XRechnung PDF

[farnk]

An alle die eine XRechnung in ein PDF packen wollen.
Mit Delphi 12.2 und fastreport vcl ist das möglich.
In den Demos von Fastreport sind XRechnungen enthalten.
Der Haken ist nur, das die dabei erzeugten PDFS zur zeit
noch invalide metadaten enthalten.
Wenn man in der frxExportPDF.pas in der Funktion TfrxPDFExport.AddMetaData;
seine eigenen validen Metadaten einbaut, klappt es.
(fehler ist schon an Fastreoort gemeldet).

// Austausch des meta_xml-Inhalts
xmlFile := TStringList.Create;
try
xmlFile.LoadFromFile('XRechnungMetadata.xml');
meta_xml := AnsiString(xmlFile.Text);
xmlFile.Free;
finally
// xmlFile.Free;
end;

Das hier ist der Knackpunkt.
// PDF-Export konfigurieren
frxPDFExport1.FileName := Rechname;
frxPDFExport1.PdfA := True;
frxPDFExport1.PDFStandard := psPDFA_3b;
frxPDFExport1.AddEmbeddedXML2('ZUGFeRD invoice', Now, XMLStream, TZUGFeRD2_Profile(3)); // 0 bis 5

Im XMLStream ist die zuvor mit Delphi erzeugte XRechnung.

Die Erstellung der RechnungsXML in Delphi ist relativ simple.
Man nehme sich eine MusterXML , baue sich Platzhalter in die Struktur
Lese die Struktur und ersetze die Platzhalter durch die Werte vom Programm.
Eine einzige Funktion mit weniger als 200 Zeilen code.
Mit https://erechnungsvalidator.service-bw.de/ kann man sich dann die XML validieren lassen.
das PDF mit verapdf (super !)
Das PDF kann man sich auch mit https://www.portinvoice.com/ validieren lassen

Gruss Frank