diff --git a/home/konrad/laz_projekte/Geschaeft/zugferd_xml.pas b/home/konrad/Downloads/ZUGFeRD_xml.pas index 93182b7..f436122 100644 --- a/home/konrad/laz_projekte/Geschaeft/zugferd_xml.pas +++ b/home/konrad/Downloads/ZUGFeRD_xml.pas @@ -1,4 +1,4 @@ -unit zugferd_xml; +unit ZUGFeRD_xml; {$mode objfpc}{$H+}{$modeswitch advancedrecords} @@ -101,9 +101,6 @@ type LineTotalNet: Double; // Summe der Zeile netto TaxIndex: Integer; // array index +1 ! see InvoiceHeader.makeTaxType() - BillingSpecifiedPeriodStart: String; // Lieferzeitraum Beginn // format "YYYYMMDD" e.g. '20241231' // Hinzugefügt KoBraSoft - BillingSpecifiedPeriodEnd: String; // Lieferzeitraum Ende // format "YYYYMMDD" e.g. '20241231' // Hinzugefügt KoBraSoft - end; PLineItem = ^TLineItem; TItemArray = Array of TLineItem; @@ -408,7 +405,7 @@ end; procedure TZUGFeRD_XML.addNodes_LineItem(const Item: TLineItem; const InvoiceHeader: TInvoiceHeader); // Rechnungsposten var Tax: PTaxType; - n, LineNode, SettlementNode, PeriodNode: TDOMElement; + n, LineNode, SettlementNode: TDOMElement; begin if FProfileType=Minimum_Profile then Exit; // line items not allowed in Minimum profile @@ -445,16 +442,6 @@ begin makeNode(n, 'ram:CategoryCode', Tax^.TaxCategory); // e.g. 'S' makeNode(n, 'ram:RateApplicablePercent', formatDecimal(Tax^.TaxRate) ); // Steuersatz in Prozent end; - // Rechnungspositionszeitraum - if (Item.BillingSpecifiedPeriodStart<>'') and (Item.BillingSpecifiedPeriodEnd<>'') and (FProfileType<>Minimum_Profile) then // no empty nodes allowed - begin - PeriodNode := makeNode(SettlementNode, 'ram:BillingSpecifiedPeriod'); - n := makeNode(PeriodNode, 'ram:StartDateTime'); - makeNode(n, 'udt:DateTimeString', Item.BillingSpecifiedPeriodStart).SetAttribute('format', '102'); - n := makeNode(PeriodNode, 'ram:EndDateTime'); - makeNode(n, 'udt:DateTimeString', Item.BillingSpecifiedPeriodEnd).SetAttribute('format', '102'); - end; - // line total, Zeilensumme n := makeNode(SettlementNode, 'ram:SpecifiedTradeSettlementLineMonetarySummation');