ZUGFeRD Adapter fix

LandrixSoftware · Oct 7, 2024 · e55c267 · e55c267
1 parent b3315c2
commit e55c267
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/intf.XRechnung.pas b/intf.XRechnung.pas
@@ -1666,14 +1666,14 @@ class function TZUGFeRDInvoiceAdapter.LoadFromInvoiceDescriptor(
     end;
   end;
 
-  //Achtung, CII-Format maximal ein Element erlaubt, UBL-Format beliebig viele
-  if _InvoiceDescriptor.InvoiceReferencedDocument <> nil then
-  if (_InvoiceDescriptor.InvoiceReferencedDocument.ID <> '') and
-     (_InvoiceDescriptor.InvoiceReferencedDocument.IssueDateTime.GetValueOrDefault > 100) then
+  //Achtung, CII-Format <= v2.2 maximal ein Element erlaubt, UBL-Format beliebig viele
+  for i := 0 to _InvoiceDescriptor.InvoiceReferencedDocuments.Count-1 do
+  if (_InvoiceDescriptor.InvoiceReferencedDocuments[i].ID <> '') and
+     (_InvoiceDescriptor.InvoiceReferencedDocuments[i].IssueDateTime.GetValueOrDefault > 100) then
   with _Invoice.PrecedingInvoiceReferences.AddPrecedingInvoiceReference do
   begin
-    ID := _InvoiceDescriptor.InvoiceReferencedDocument.ID;
-    IssueDate := _InvoiceDescriptor.InvoiceReferencedDocument.IssueDateTime.GetValueOrDefault(0);
+    ID := _InvoiceDescriptor.InvoiceReferencedDocuments[i].ID;
+    IssueDate := _InvoiceDescriptor.InvoiceReferencedDocuments[i].IssueDateTime.GetValueOrDefault(0);
   end;
 
   _Invoice.TaxAmountTotal := _InvoiceDescriptor.TaxTotalAmount.GetValueOrDefault(0);