PaymentMeans, PaymentMeansTypeCodes, PaymentTerms

landrix · landrix · commit 814b642f99aa · 2023-06-12T10:58:06.000+02:00
diff --git a/Test/DUnitXZUGFeRDTest.dpr b/Test/DUnitXZUGFeRDTest.dpr
@@ -71,7 +71,8 @@ uses
   intf.ZUGFeRDTaxExemptionReasonCodes.UnitTests,
   intf.ZUGFeRDSubjectCodes.UnitTests,
   intf.ZUGFeRDReferenceTypeCodes.UnitTests,
-  intf.ZUGFeRDProfile.UnitTests
+  intf.ZUGFeRDProfile.UnitTests,
+  intf.ZUGFeRDPaymentMeansTypeCodes.UnitTests
   ;
 
   //Übersetze folgenden C#-Code nach Delphi. Wenn ein Klassenname übersetzt wird, setze ihm den Präfix TZUGFeRD vorran. Stelle alles als Codeblock dar.
diff --git a/Test/intf.ZUGFeRDPaymentMeansTypeCodes.UnitTests.pas b/Test/intf.ZUGFeRDPaymentMeansTypeCodes.UnitTests.pas
@@ -0,0 +1,126 @@
+﻿{* 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.ZUGFeRDPaymentMeansTypeCodes.UnitTests;
+
+interface
+
+uses
+  DUnitX.TestFramework, intf.ZUGFeRDPaymentMeansTypeCodes;
+
+type
+  [TestFixture]
+  TZUGFeRDPaymentMeansTypeCodesTest = class
+  public
+    [Test]
+    procedure TestFromString;
+    //[Test]
+    //procedure TestEnumValueToString;
+    [Test]
+    procedure TestEnumToString;
+  end;
+
+implementation
+
+procedure TZUGFeRDPaymentMeansTypeCodesTest.TestFromString;
+var
+  Code: TZUGFeRDPaymentMeansTypeCodes;
+begin
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('1');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.NotDefined, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('3');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.AutomatedClearingHouseDebit, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('10');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.InCash, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('20');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.Cheque, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('30');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.CreditTransfer, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('31');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.DebitTransfer, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('42');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.PaymentToBankAccount, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('48');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.BankCard, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('49');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.DirectDebit, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('57');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.StandingAgreement, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('58');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.SEPACreditTransfer, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('59');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.SEPADirectDebit, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('97');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.ClearingBetweenPartners, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('0');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.Unknown, Code);
+  Code := TZUGFeRDPaymentMeansTypeCodesExtensions.FromString('Invalid');
+  Assert.AreEqual(TZUGFeRDPaymentMeansTypeCodes.Unknown, Code);
+end;
+
+procedure TZUGFeRDPaymentMeansTypeCodesTest.TestEnumToString;
+var
+  Value: string;
+begin
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.Unknown);
+  Assert.AreEqual('0', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.NotDefined);
+  Assert.AreEqual('1', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.AutomatedClearingHouseDebit);
+  Assert.AreEqual('3', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.InCash);
+  Assert.AreEqual('10', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.Cheque);
+  Assert.AreEqual('20', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.CreditTransfer);
+  Assert.AreEqual('30', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.DebitTransfer);
+  Assert.AreEqual('31', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.PaymentToBankAccount);
+  Assert.AreEqual('42', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.BankCard);
+  Assert.AreEqual('48', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.DirectDebit);
+  Assert.AreEqual('49', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.StandingAgreement);
+  Assert.AreEqual('57', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.SEPACreditTransfer);
+  Assert.AreEqual('58', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.SEPADirectDebit);
+  Assert.AreEqual('59', Value);
+  Value := TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(TZUGFeRDPaymentMeansTypeCodes.ClearingBetweenPartners);
+  Assert.AreEqual('97', Value);
+end;
+
+initialization
+
+//I was hoping to use RTTI to discover the TestFixture classes, however unlike .NET
+//if we don't touch the class somehow then the linker will remove
+//the class from the resulting exe.
+//We could just do this:
+//TMyExampleTests.ClassName;
+//TExampleFixture2.ClassName;
+//which is enough to make the compiler link the classes into the exe, but that seems a
+//bit redundent so I guess we'll just use manual registration. If you use the
+//{$STRONGLINKTYPES ON} compiler directive then it will link the TestFixtures in and you
+//can use RTTI. The downside to that is the resulting exe will potentially much larger.
+//Not sure which version {$STRONGLINKTYPES ON} was introduced so we'll allow RTTI and
+//manual registration for now.
+
+//  TDUnitX.RegisterTestFixture(TZUGFeRDPaymentMeansTypeCodesTest);
+
+end.
diff --git a/intf.ZUGFeRDPaymentMeans.pas b/intf.ZUGFeRDPaymentMeans.pas
@@ -0,0 +1,82 @@
+﻿{* 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.ZUGFeRDPaymentMeans;
+
+interface
+
+uses
+  intf.ZUGFeRDFinancialCard,intf.ZUGFeRDPaymentMeansTypeCodes;
+
+type
+  TZUGFeRDPaymentMeans = class
+  private
+    FTypeCode: TZUGFeRDPaymentMeansTypeCodes;
+    FInformation: string;
+    FSEPACreditorIdentifier: string;
+    FSEPAMandateReference: string;
+    FFinancialCard: TZUGFeRDFinancialCard;
+  public
+    constructor Create;
+    destructor Destroy; override;
+  public
+    /// <summary>
+    /// The means expressed as code, for how a payment is expected to be or has been settled.
+    /// </summary>
+    property TypeCode: TZUGFeRDPaymentMeansTypeCodes read FTypeCode write FTypeCode;
+
+    /// <summary>
+    /// The means expressed as code, for how a payment is expected to be or has been settled.
+    /// </summary>
+    property Information: string read FInformation write FInformation;
+
+    /// <summary>
+    /// Gläubiger-Identifikationsnummer
+    ///
+    /// https://de.wikipedia.org/wiki/Gl%C3%A4ubiger-Identifikationsnummer
+    /// </summary>
+    property SEPACreditorIdentifier: string read FSEPACreditorIdentifier write FSEPACreditorIdentifier;
+
+    /// <summary>
+    /// Mandatsreferenz
+    ///
+    /// https://de.wikipedia.org/wiki/Mandatsreferenz
+    /// </summary>
+    property SEPAMandateReference: string read FSEPAMandateReference write FSEPAMandateReference;
+
+    /// <summary>
+    /// Payment card information.
+    /// </summary>
+    property FinancialCard: TZUGFeRDFinancialCard read FFinancialCard write FFinancialCard;
+  end;
+
+implementation
+
+{ TZUGFeRDPaymentMeans }
+
+constructor TZUGFeRDPaymentMeans.Create;
+begin
+  FFinancialCard := TZUGFeRDFinancialCard.Create;
+end;
+
+destructor TZUGFeRDPaymentMeans.Destroy;
+begin
+  if Assigned(FFinancialCard) then begin FFinancialCard.Free; FFinancialCard := nil; end;
+  inherited;
+end;
+
+end.
diff --git a/intf.ZUGFeRDPaymentMeansTypeCodes.pas b/intf.ZUGFeRDPaymentMeansTypeCodes.pas
@@ -0,0 +1,175 @@
+﻿{* 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.ZUGFeRDPaymentMeansTypeCodes;
+
+interface
+
+uses
+  System.SysUtils,System.TypInfo
+  ;
+
+type
+  /// <summary>
+  /// Adopted to ZUGFeRD 1.0, German description from ZUGFeRD specification
+  /// </summary>
+  TZUGFeRDPaymentMeansTypeCodes = (
+    /// <summary>
+    /// Unknown/ invalid value
+    /// </summary>
+    Unknown = 0,
+
+    /// <summary>
+    /// Keine Zahlungsart definiert
+    /// Available in: Extended
+    /// </summary>
+    NotDefined = 1,
+
+    /// <summary>
+    /// Belastung durch automatisierte Clearingstelle, Z.B. bei Abwicklung durch Zahlungsdienstleister wie Online-Bezahlsysteme
+    /// </summary>
+    AutomatedClearingHouseDebit = 3,
+
+    /// <summary>
+    /// Bar
+    /// Available in: Basic, Extended
+    /// </summary>
+    InCash = 10,
+
+    /// <summary>
+    /// Scheck
+    /// Available in: Basic, Extended
+    /// </summary>
+    Cheque = 20,
+
+    /// <summary>
+    /// Available in: Basic, Extended
+    /// </summary>
+    CreditTransfer = 30,
+
+    /// <summary>
+    /// Lastschriftübermittlung:
+    /// Zahlung durch Belastung eines Geldbetrages eines
+    /// Kontos zugunsten eines anderen.
+    /// Überweisung international und nationale SEPA-Überweisung
+    ///
+    /// Available in: Extended
+    /// </summary>
+    DebitTransfer = 31,
+
+    /// <summary>
+    /// Zahlung an Bankkonto
+    /// Überweisung national, vor SEPA-Umstellung
+    /// Available in: Basic, Extended
+    /// </summary>
+    PaymentToBankAccount = 42,
+
+    /// <summary>
+    /// Bankkkarte, Kreditkarte
+    /// Available in: Basic, Extended
+    /// </summary>
+    BankCard = 48,
+
+    /// <summary>
+    /// Lastschriftverfahren
+    ///
+    /// Available in: Basic, Extended
+    /// /// </summary>
+    DirectDebit = 49,
+
+    /// <summary>
+    /// Available in: Basic, Extended
+    /// </summary>
+    StandingAgreement = 57,
+
+
+    /// <summary>
+    /// Available in: Basic, Extended
+    /// </summary>
+    SEPACreditTransfer = 58,
+
+    /// <summary>
+    /// Available in: Basic, Extended
+    /// </summary>
+    SEPADirectDebit = 59,
+
+    /// <summary>
+    /// Ausgleich zwischen Partnern.
+    /// Beträge, die zwei Partner sich gegenseitig schulden werden ausgeglichen um unnütze Zahlungen zu vermeiden.
+    /// Available in: Basic, Extended
+    /// </summary>
+    ClearingBetweenPartners = 97
+  );
+
+  TZUGFeRDPaymentMeansTypeCodesExtensions = class
+  public
+    class function FromString(const s: string): TZUGFeRDPaymentMeansTypeCodes;
+    class function EnumToString(t: TZUGFeRDPaymentMeansTypeCodes): string;
+  end;
+
+implementation
+
+class function TZUGFeRDPaymentMeansTypeCodesExtensions.FromString(const s: string): TZUGFeRDPaymentMeansTypeCodes;
+begin
+  if SameText(s,'1') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.NotDefined
+  else
+  if SameText(s,'3') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.AutomatedClearingHouseDebit
+  else
+  if SameText(s,'10') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.InCash
+  else
+  if SameText(s,'20') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.Cheque
+  else
+  if SameText(s,'30') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.CreditTransfer
+  else
+  if SameText(s,'31') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.DebitTransfer
+  else
+  if SameText(s,'42') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.PaymentToBankAccount
+  else
+  if SameText(s,'48') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.BankCard
+  else
+  if SameText(s,'49') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.DirectDebit
+  else
+  if SameText(s,'57') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.StandingAgreement
+  else
+  if SameText(s,'58') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.SEPACreditTransfer
+  else
+  if SameText(s,'59') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.SEPADirectDebit
+  else
+  if SameText(s,'97') then
+    Result := TZUGFeRDPaymentMeansTypeCodes.ClearingBetweenPartners
+  else
+    Result := TZUGFeRDPaymentMeansTypeCodes.Unknown
+end;
+
+class function TZUGFeRDPaymentMeansTypeCodesExtensions.EnumToString(t: TZUGFeRDPaymentMeansTypeCodes): string;
+begin
+  Result := IntToStr(Integer(t));
+end;
+
+end.
diff --git a/intf.ZUGFeRDPaymentTerms.pas b/intf.ZUGFeRDPaymentTerms.pas

Original file line number	Diff line number	Diff line change
`@@ -71,7 +71,8 @@ uses`
`71`	`71`	`intf.ZUGFeRDTaxExemptionReasonCodes.UnitTests,`
`72`	`72`	`intf.ZUGFeRDSubjectCodes.UnitTests,`
`73`	`73`	`intf.ZUGFeRDReferenceTypeCodes.UnitTests,`
`74`		`- intf.ZUGFeRDProfile.UnitTests`
	`74`	`+ intf.ZUGFeRDProfile.UnitTests,`
	`75`	`+ intf.ZUGFeRDPaymentMeansTypeCodes.UnitTests`
`75`	`76`	`;`
`76`	`77`
`77`	`78`	`//Übersetze folgenden C#-Code nach Delphi. Wenn ein Klassenname übersetzt wird, setze ihm den Präfix TZUGFeRD vorran. Stelle alles als Codeblock dar.`