intf.ZUGFeRDPaymentTerms.pas

{* 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.ZUGFeRDPaymentTerms;

interface

uses
  intf.ZUGFeRDHelper,
  intf.ZUGFeRDQuantityCodes;

type

  TZUGFeRDApplicableTradePaymentTerms = class
  private
    FCalculationPercent: double;
    FBasisPeriodMeasure: ZUGFeRDNullable<double>;
    FBasisAmount: Currency;
    FActualPenaltyAmount: Currency;
    FUnitCode: TZUGFeRDQuantityCodes;

    //TODO FBasisDateTime: ZUGFeRDNullable<TDateTime>;
  public
    //TODO property BasisDateTime: ZUGFeRDNullable<TDateTime> read FBasisDateTime write FBasisDateTime;
    property BasisPeriodMeasure : ZUGFeRDNullable<double> read FBasisPeriodMeasure write FBasisPeriodMeasure;
    property BasisAmount : Currency read FBasisAmount write FBasisAmount;
    property CalculationPercent : double read FCalculationPercent write FCalculationPercent;
    property ActualPenaltyAmount : Currency read FActualPenaltyAmount write FActualPenaltyAmount;
    property UnitCode: TZUGFeRDQuantityCodes read FUnitCode write FUnitCode;
  end;

  /// <summary>
  /// Condition that surrounds the payment part of an invoice, describing the specific details and the due date of the invoice.
  /// </summary>
  TZUGFeRDPaymentTerms = class
  private
    FDescription: string;
    FDueDate: ZUGFeRDNullable<TDateTime>;
    FDirectDebitMandateID: string;
    FApplicableTradePaymentDiscountTerms: TZUGFeRDApplicableTradePaymentTerms;
    FApplicableTradePaymentPenaltyTerms: TZUGFeRDApplicableTradePaymentTerms;
    FPartialPaymentAmount: Currency;
  public
    /// <summary>
    /// A textual description of the payment terms that apply to the amount due for payment (including description of possible penalties).
    /// </summary>
    property Description: string read FDescription write FDescription;
    /// <summary>
    /// The date when the payment is due
    /// </summary>
    property DueDate: ZUGFeRDNullable<TDateTime> read FDueDate write FDueDate;

    /// SEPA Mandatsreferenz
    ///
    /// https://de.wikipedia.org/wiki/Mandatsreferenz
    /// </summary>
    property DirectDebitMandateID: string read FDirectDebitMandateID write FDirectDebitMandateID;

    property PartialPaymentAmount: Currency read FPartialPaymentAmount write FPartialPaymentAmount;

    property ApplicableTradePaymentPenaltyTerms : TZUGFeRDApplicableTradePaymentTerms read FApplicableTradePaymentPenaltyTerms write FApplicableTradePaymentPenaltyTerms;

    property ApplicableTradePaymentDiscountTerms : TZUGFeRDApplicableTradePaymentTerms read FApplicableTradePaymentDiscountTerms write FApplicableTradePaymentDiscountTerms;
  public
    constructor Create;
    destructor Destroy; override;
  end;

implementation

{ TZUGFeRDPaymentTerms }

constructor TZUGFeRDPaymentTerms.Create;
begin
  FApplicableTradePaymentDiscountTerms:= TZUGFeRDApplicableTradePaymentTerms.Create;
  FApplicableTradePaymentPenaltyTerms:= TZUGFeRDApplicableTradePaymentTerms.Create;
end;

destructor TZUGFeRDPaymentTerms.Destroy;
begin
  if Assigned(FApplicableTradePaymentDiscountTerms) then begin FApplicableTradePaymentDiscountTerms.Free; FApplicableTradePaymentDiscountTerms := nil; end;
  if Assigned(FApplicableTradePaymentPenaltyTerms) then begin FApplicableTradePaymentPenaltyTerms.Free; FApplicableTradePaymentPenaltyTerms := nil; end;
  inherited;
end;

end.