sync ZUGFeRDInvoiceDecriptor23CIIWriter with C# library, add intf.ZUGFeRDIncludedReferencedProduct

Author: PeterSawatzki-MGGM

intf.ZUGFeRDAdditionalReferencedDocument.pas

@@ -37,6 +37,8 @@   TZUGFeRDAdditionalReferencedDocument = class(TZUGFeRDBaseReferencedDocument)
   private
     FReferenceTypeCode: TZUGFeRDReferenceTypeCodes;
     FName: string;
+    FLineID: string;
+    FURIID: string;
     FAttachmentBinaryObject: TMemoryStream;
     FFilename: string;
     FTypeCode: TZUGFeRDAdditionalReferencedDocumentTypeCode;
@@ -45,6 +47,18 @@   TZUGFeRDAdditionalReferencedDocument = class(TZUGFeRDBaseReferencedDocument)
     constructor Create(CreateAttachmentBinaryObject : Boolean);
     destructor Destroy; override;
   public
+    /// <summary>
+    /// External document location
+    /// BT-124, BT-X-28
+    /// </summary>
+    property URIID: string read FURIID write FURIID;
+
+    /// <summary>
+    /// Referenced position
+    /// BT-X-29
+    /// </summary>
+    property LineID: string read FLineID write FLineID;
+
     /// <summary>
     /// Reference documents are strongly typed, specify ReferenceTypeCode to allow easy processing by invoicee
     /// </summary>

intf.ZUGFeRDAssociatedDocument.pas

@@ -32,6 +32,7 @@   TZUGFeRDAssociatedDocument = class
     FLineID: string;
     FLineStatusCode: string;
     FLineStatusReasonCode: string;
+    FParentLineID: string;
   public
     constructor Create(lineID: string);
     destructor Destroy; override;
@@ -46,6 +47,19 @@   TZUGFeRDAssociatedDocument = class
     /// </summary>
     property LineID: string read FLineID write FLineID;
 
+    /// <summary>
+    /// Refers to the superior line in a hierarchical structure.
+    /// This property is used to map a hierarchy tree of invoice items, allowing child items to reference their parent line.
+    /// BT-X-304
+    ///
+    /// Example usage:
+    /// <code>
+    /// var tradeLineItem:= TZUGFeRDTradeLineItem.Create;
+    /// tradeLineItem.SetParentLineId('1');
+    /// </code>
+    /// </summary>
+    property ParentLineID: string read FParentLineID write FParentLineID;
+
     //Typ der Rechnungsposition (Code)
     //qdt:LineStatusCodeType
     //Zeigt an, ob die Rechnungsposition Preise beinhaltet, die bei der

intf.ZUGFeRDIncludedReferencedProduct.pas

@@ -0,0 +1,62 @@
+{* Licensed to the Apache Software Foundation (ASF) under one
+ * or more contributor license agreements.  See the NOTICE file
+ * distributed with this work for additional information
+ * regarding copyright ownership.  The ASF licenses this file
+ * to you under the Apache License, Version 2.0 (the
+ * "License"); you may not use this file except in compliance
+ * with the License.  You may obtain a copy of the License at
+ *
+ *   http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing,
+ * software distributed under the License is distributed on an
+ * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+ * KIND, either express or implied.  See the License for the
+ * specific language governing permissions and limitations
+ * under the License.}
+
+unit intf.ZUGFeRDIncludedReferencedProduct;
+
+interface
+
+uses
+  System.Generics.Collections,
+  intf.ZUGFeRDHelper,
+  intf.ZUGFeRDQuantityCodes;
+
+type
+  /// <summary>
+  /// An included Item referenced from this trade product.
+  /// </summary>
+  TZUGFeRDIncludedReferencedProduct = class
+  private
+    FName: string;
+    FUnitQuantity: ZUGFeRDNullable<Double>;
+    FUnitCode: TZUGFeRDQuantityCodes;
+  public
+    /// <summary>
+    /// Name of Included Item
+    ///
+    /// BT-X-18
+    /// </summary>
+    property Name: string read FName write FName;
+
+    /// <summary>
+    /// Included quantity
+    ///
+    /// BT-X-20
+    /// </summary>
+    property UnitQuantity: ZUGFeRDNullable<Double> read FUnitQuantity write FUnitQuantity;
+
+    /// <summary>
+    /// Item Base Quantity Unit Code
+    ///
+    /// BT-X-20-1
+    /// </summary>
+    property UnitCode: TZUGFeRDQuantityCodes read FUnitCode write FUnitCode;
+
+   end;
+
+implementation
+
+end.

intf.ZUGFeRDInvoiceDescriptor.pas

@@ -97,6 +97,7 @@   TZUGFeRDInvoiceDescriptor = class
     FSellerElectronicAddress: TZUGFeRDElectronicAddress;
     FInvoicee: TZUGFeRDParty;
     FShipTo: TZUGFeRDParty;
+    FUltimateShipTo: TZUGFeRDParty;
     FPayee: TZUGFeRDParty;
     FShipFrom: TZUGFeRDParty;
     FNotes: TObjectList<TZUGFeRDNote>;
@@ -259,6 +260,11 @@   TZUGFeRDInvoiceDescriptor = class
     /// </summary>
     property ShipTo: TZUGFeRDParty read FShipTo write FShipTo;
 
+    /// <summary>
+    /// This party is optional and only relevant for Extended profile
+    /// </summary>
+    property UltimateShipTo: TZUGFeRDParty read FUltimateShipTo write FUltimateShipTo;
+
     /// <summary>
     /// This party is optional and only relevant for Extended profile
     /// </summary>
@@ -867,6 +873,7 @@ constructor TZUGFeRDInvoiceDescriptor.Create;
   FInvoicee                      := nil;//TZUGFeRDParty.Create;
   FInvoicer                      := nil;//TZUGFeRDParty.Create;
   FShipTo                        := nil;//TZUGFeRDParty.Create;
+  FUltimateShipTo                := nil;//TZUGFeRDParty.Create;
   FPayee                         := nil;//TZUGFeRDParty.Create;
   FShipFrom                      := nil;//TZUGFeRDParty.Create;
   FNotes                         := TObjectList<TZUGFeRDNote>.Create;
@@ -903,6 +910,7 @@ destructor TZUGFeRDInvoiceDescriptor.Destroy;
   if Assigned(FInvoicee                      ) then begin FInvoicee.Free; FInvoicee := nil; end;
   if Assigned(FInvoicer                      ) then begin FInvoicer.Free; FInvoicer := nil; end;
   if Assigned(FShipTo                        ) then begin FShipTo.Free; FShipTo := nil; end;
+  if Assigned(FUltimateShipTo                ) then begin FUltimateShipTo.Free; FUltimateShipTo := nil; end;
   if Assigned(FPayee                         ) then begin FPayee.Free; FPayee := nil; end;
   if Assigned(FShipFrom                      ) then begin FShipFrom.Free; FShipFrom := nil; end;
   if Assigned(FNotes                         ) then begin FNotes.Free; FNotes := nil; end;