如何为 ZUGFeRD 发票创建虚拟 XML

Question

我尝试创建一个 PDF/A-3b 文件，其中包含符合 ZUGFeRD 的嵌入式 XML 文件。为此，我使用 Perl 和 PDFLib。那里的 PDFLib 文档仅适用于 Java 和 PHP。创建 PDF 工作正常，但 XML 部分是我的问题。

那么我怎样才能从 xml 创建一个 pvf 并将其加入到我的 pdf 中？

这是PDFLib 在 Java 中推荐的内容：

// Place XML stream in a virtual PVF file
String pvf_name = "/pvf/ZUGFeRD-invoice.xml";
byte[] xml_bytes = xml_string.getBytes("UTF-8");
p.create_pvf(pvf_name, xml_bytes, "");

// Create file attachment (asset) from PVF file
int xml_asset = p.load_asset("Attachment", pvf_name,
     "mimetype=text/xml description={ZUGFeRD invoice in XML format} "
   + "relationship=Alternative documentattachment=true");

// Associate file attachment with the document
p.end_document("associatedfiles={" + xml_asset + "}");

所以我想，举个例子，让它适应 perl：

my $xmldata = read_file($xmlfile, binmode => ':utf8'); #I use example xml at the moment

my $pvf_xml = "/pvf/ZUGFeRD-invoice.xml";
PDF_create_pvf($pdf, $pvf_xml, $xmldata, ""); #because no OOP i need to call it this way (works with all other PDF Functions)

my $xml_invoice = PDF_load_asset("Attachment", $pvf_xml, "mimetype=text/xml "
                                                         ."description={Rechnungsdaten im Zugferd-Xml-Format} "
                                                         ."relationship=Alternative documentattachment=true");

PDF_end_document($pdf, "associatedfiles={".$xml_invoice."}");

在 PHP 示例中，也不需要在读取 xml 后转换为 ByteArray。用 unpack 进一步尝试，但似乎不是问题。

如果我调用我的脚本，我就会得到：

用法：load_asset(type, filename, optlist);在signatur_test.pl 行 41.

我认为问题在于 pvf_xml 之前没有创建该行。 以前有人这样做过，但不知道如何解决？

Answer 1

Arg，我只是缺少 load_asset 方法中的 PDF 句柄：

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

这样就可以了。