How to attach ZUGFeRD-XML to a PDF with perl?

Question

I need to create a PDF/A 3b-document with an XML attached to it like it's declared in ZUGFeRD. For this purpose I wrote myself a perl-script which can create the XML-file as a string and attach it to a PDF. I followed the tutorial of the pdflib-cookbook, but I never get my XML to be 100% attached to the PDF. I see it under attached files, and I can save it from there to my filesystem, but if I check the PDF with an editor I just see the XMP-Metadata and not my XML.

I guess I need to attach the XML as an Embedded File Stream or something like that, but I'm not quite sure if I'm missing something in my code or I just need to add it in another way.

This is my XMP-File:





BASIC
ZUGFeRD-invoice.xml
INVOICE
1.0






ZUGFeRD PDFA Extension Schema
urn:ferd:pdfa:CrossIndustryDocument:invoice:1p0#
zf



DocumentFileName
Text
external
name of the embedded XML invoice file


DocumentType
Text
external
INVOICE


Version
Text
external
The actual version of the ZUGFeRD XML schema


ConformanceLevel
Text
external
The conformance level of the embedded ZUGFeRD data

This is my created XML-String:

    Zweck des Forums für elektronische Rechnungen bei der AWV e.V („FeRD“) ist u.a. die Schaffung und Spezifizierung
    eines offenen Datenformats für strukturierten elektronischen Datenaustausch auf der Grundlage offener und nicht
    diskriminierender, standardisierter Technologien („ZUGFeRD Datenformat“)

    Das ZUGFeRD Datenformat wird nach Maßgabe des FeRD sowohl Unternehmen als auch der öffentlichen Verwaltung
    frei zugänglich gemacht. Hierfür bietet FeRD allen Unternehmen und Organisationen der öffentlichen Verwaltung eine
    Lizenz für die Nutzung des urheberrechtlich geschützten ZUGFeRD-Datenformats zu fairen, sachgerechten und nicht
    diskriminierenden Bedingungen an.

    Die Spezifikation des FeRD zur Implementierung des ZUGFeRD Datenformats ist in ihrer jeweils geltenden Fassung
    abrufbar unter www.ferd-net.de.

    Im Einzelnen schließt die Nutzungsgewährung ein:
    =====================================

    FeRD räumt eine Lizenz für die Nutzung des urheberrechtlich geschützten ZUGFeRD Datenformats in der jeweils
    geltenden und akzeptierten Fassung (www.ferd-net.de) ein.
    Die Lizenz beinhaltet ein unwiderrufliches Nutzungsrecht einschließlich des Rechts der Weiterentwicklung,
    Weiterbearbeitung und Verbindung mit anderen Produkten.
    Die Lizenz gilt insbesondere für die Entwicklung, die Gestaltung, die Herstellung, den Verkauf, die Nutzung oder
    anderweitige Verwendung des ZUGFeRD Datenformats für Hardware- und/oder Softwareprodukte sowie sonstige
    Anwendungen und Dienste.
    Diese Lizenz schließt nicht die wesentlichen Patente der Mitglieder von FeRD ein. Als wesentliche Patente sind Patente
    und Patentanmeldungen weltweit zu verstehen, die einen oder mehrere Patentansprüche beinhalten, bei denen es sich um
    notwendige Ansprüche handelt. Notwendige Ansprüche sind lediglich jene Ansprüche der Wesentlichen Patente, die durch
    die Implementierung des ZUGFeRD Datenformats notwendigerweise verletzt würden.
    Der Lizenznehmer ist berechtigt, seinen jeweiligen Konzerngesellschaften ein unbefristetes, weltweites, nicht übertragbares,
    unwiderrufliches Nutzungsrecht einschließlich des Rechts der Weiterentwicklung, Weiterbearbeitung und Verbindung mit
    anderen Produkten einzuräumen.

    Die Lizenz wird kostenfrei zur Verfügung gestellt.

    Außer im Falle vorsätzlichen Verschuldens oder grober Fahrlässigkeit haftet FeRD weder für Nutzungsausfall, entgangenen
    Gewinn, Datenverlust, Kommunikationsverlust, Einnahmeausfall, Vertragseinbußen, Geschäftsausfall oder für Kosten,
    Schäden, Verluste oder Haftpflichten im Zusammenhang mit einer Unterbrechung der Geschäftstätigkeit, noch für konkrete,
    beiläufig entstandene, mittelbare Schäden, Straf- oder Folgeschäden und zwar auch dann nicht, wenn die Möglichkeit der
    Kosten, Verluste bzw. Schäden hätte normalerweise vorhergesehen werden können.-->
    
      
        
          urn:ferd:pdfa:CrossIndustryDocument:invoice:1p0#
        
      
      
        380
        2012-12345
        INVOICE
        
          20160503
        
      
      
        
          
            Verkäufer AG
          
          
            Käufer GmbH
          
        
        
          
            
              20161103
            
          
        
      
      
        
          ABCD
          
            DE123 12312 12312 1231231
            BigBoss
          
          
            WELADE9999999
          
        
        
          123.22
          VAT
          0.19
        
        
          120
          111
          20
          15
          11
          111
          1234.11
        
        EUR
      
      
        
          5
        
        
          Foo
        
      
      
        
          3
        
        
          Bar
        
      
      
        
          15
        
        
          FooBar

This is my perl-code to attach the XMP and XML to the file: use pdflib_pl;

    my $pdf = PDF_new();

    PDF_set_parameter($pdf, "textformat", "utf8");
    PDF_set_parameter($pdf, "SearchPath", "/usr/share/htmldoc/fonts");
    PDF_set_parameter($pdf, "FontAFM", "Helvetica=Helvetica.afm");
    PDF_set_parameter($pdf, "FontOutline", "Helvetica=Helvetica.pfa");

    my $font = PDF_load_font($pdf, "Helvetica", "unicode", "embedding=true");

    PDF_begin_document($pdf,'test.pdf', "pdfa=PDF/A-3b metadata={filename=zugferd/ZUGFeRD-invoice.xmp}");
    PDF_load_iccprofile($pdf, "sRGB", "usage=outputintent");

    # At this point I create the XML-File I attached to this question
    my $xmlData = CreateXmlData();

    PDF_create_pvf($pdf, '/pvf/ZUGFeRD-invoice.xml', $xmlData, "");

    my $xml_asset = PDF_load_asset($pdf,
                                   "Attachment",
                                   '/pvf/ZUGFeRD-invoice.xml',
                                   "mimetype=text/xml description={Rechnungsdaten im Zugferd-Xml-Format} relationship=Alternative documentattachment=true");

    PDF_begin_page($pdf, 595, 842);
    PDF_setfont($pdf, $font, 12);
    PDF_fit_textline($pdf, 'test', 400, 600, "boxsize={50 20}");
    PDF_end_page($pdf);

    PDF_end_document($pdf, "associatedfiles={" . $xml_asset . "} metadata={filename=zugferd/ZUGFeRD-invoice.xmp}");
    PDF_delete_pvf($pdf, '/pvf/ZUGFeRD-invoice.xml');

    PDF_end_document($pdf, "associatedfiles={" . $xml_asset . "} metadata={filename=zugferd/ZUGFeRD-invoice.xmp}");
    PDF_delete_pvf($pdf, $virtualXml);

How to attach ZUGFeRD-XML to a PDF with perl?

Answers (1)

Related Questions