-
-
Notifications
You must be signed in to change notification settings - Fork 4
/
intf.ZUGFeRDTax.pas
91 lines (83 loc) · 3.1 KB
/
intf.ZUGFeRDTax.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
{* 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.ZUGFeRDTax;
interface
uses
System.SysUtils,System.Math,
intf.ZUGFeRDTaxTypes,
intf.ZUGFeRDTaxCategoryCodes,
intf.ZUGFeRDTaxExemptionReasonCodes;
type
/// <summary>
/// Structure for holding tax information (generally applicable trade tax)
/// </summary>
TZUGFeRDTax = class
private
FBasisAmount: Currency;
FPercent: Currency;
FTypeCode: TZUGFeRDTaxTypes;
FCategoryCode: TZUGFeRDTaxCategoryCodes;
FAllowanceChargeBasisAmount: Currency;
FExemptionReasonCode: TZUGFeRDTaxExemptionReasonCodes;
FExemptionReason: string;
function GetTaxAmount: Currency;
public
/// <summary>
/// Returns the amount of the tax (Percent * BasisAmount)
///
/// This information is calculated live.
/// </summary>
property TaxAmount: Currency read GetTaxAmount;
/// <summary>
/// VAT category taxable amount
/// </summary>
property BasisAmount: Currency read FBasisAmount write FBasisAmount;
/// <summary>
/// Tax rate
/// </summary>
property Percent: Currency read FPercent write FPercent;
/// <summary>
/// Type of tax.
///
/// Generally, the fixed value is: "VAT"
/// </summary>
property TypeCode: TZUGFeRDTaxTypes read FTypeCode write FTypeCode default TZUGFeRDTaxTypes.VAT;
/// <summary>
/// The code valid for the invoiced goods sales tax category.
/// </summary>
property CategoryCode: TZUGFeRDTaxCategoryCodes read FCategoryCode write FCategoryCode default TZUGFeRDTaxCategoryCodes.S;
/// <summary>
/// Total amount of charges / allowances on document level
/// </summary>
property AllowanceChargeBasisAmount: Currency read FAllowanceChargeBasisAmount write FAllowanceChargeBasisAmount;
/// <summary>
/// ExemptionReasonCode for no Tax
/// </summary>
property ExemptionReasonCode: TZUGFeRDTaxExemptionReasonCodes read FExemptionReasonCode write FExemptionReasonCode;
/// <summary>
/// Exemption Reason Text for no Tax
/// </summary>
property ExemptionReason: string read FExemptionReason write FExemptionReason;
end;
implementation
{ TZUGFeRDTax }
function TZUGFeRDTax.GetTaxAmount: Currency;
begin
//TODO pruefen System.Math.Round(0.01m * this.Percent * this.BasisAmount, 2, MidpointRounding.AwayFromZero);
Result := RoundTo(0.01 * FPercent * FBasisAmount,-2);
end;
end.