-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathTaxLineDetail.cls
233 lines (115 loc) · 3.65 KB
/
TaxLineDetail.cls
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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "TaxLineDetail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private dReportingDate As Date
Property Get ReportingDate() As Date
Set ReportingDate = dReportingDate
End Property
Property Let ReportingDate(ReportingDate As Date)
Set dReportingDate = ReportingDate
End Property
Private sRevAccount As String
Property Get RevAccount() As String
Set RevAccount = sRevAccount
End Property
Property Let RevAccount(RevAccount As String)
Set sRevAccount = RevAccount
End Property
Private sSourcing As String
Property Get Sourcing() As String
Set Sourcing = sSourcing
End Property
Property Let Sourcing(Sourcing As String)
Set sSourcing = Sourcing
End Property
Private cTax As Currency
Property Get Tax() As Currency
Set Tax = cTax
End Property
Property Let Tax(Tax As Currency)
Set cTax = Tax
End Property
Private cTaxableAmount As Currency
Property Get TaxableAmount() As Currency
Set TaxableAmount = cTaxableAmount
End Property
Property Let TaxableAmount(TaxableAmount As Currency)
Set cTaxableAmount = TaxableAmount
End Property
Private cTaxCalculated As Currency
Property Get TaxCalculated() As Currency
Set TaxCalculated = cTaxCalculated
End Property
Property Let TaxCalculated(TaxCalculated As Currency)
Set cTaxCalculated = TaxCalculated
End Property
Private sTaxCode As String
Property Get TaxCode() As String
Set TaxCode = sTaxCode
End Property
Property Let TaxCode(TaxCode As String)
Set sTaxCode = TaxCode
End Property
Private cTaxCodeId As Long
Property Get TaxCodeId() As Long
Set TaxCodeId = cTaxCodeId
End Property
Property Let TaxCodeId(TaxCodeId As Long)
Set cTaxCodeId = TaxCodeId
End Property
Private dTaxDate As Date
Property Get TaxDate() As Date
Set TaxDate = dTaxDate
End Property
Property Let TaxDate(TaxDate As Date)
Set dTaxDate = TaxDate
End Property
Private sTaxEngine As String
Property Get TaxEngine() As String
Set TaxEngine = sTaxEngine
End Property
Property Let TaxEngine(TaxEngine As String)
Set sTaxEngine = TaxEngine
End Property
Private sTaxOverrideType As String
Property Get TaxOverrideType() As String
Set TaxOverrideType = sTaxOverrideType
End Property
Property Let TaxOverrideType(TaxOverrideType As String)
Set sTaxOverrideType = TaxOverrideType
End Property
Private cTaxOverrideAmount As Currency
Property Get TaxOverrideAmount() As Currency
Set TaxOverrideAmount = cTaxOverrideAmount
End Property
Property Let TaxOverrideAmount(TaxOverrideAmount As Currency)
Set cTaxOverrideAmount = TaxOverrideAmount
End Property
Private sTaxOverrideReason As String
Property Get TaxOverrideReason() As String
Set TaxOverrideReason = sTaxOverrideReason
End Property
Property Let TaxOverrideReason(TaxOverrideReason As String)
Set sTaxOverrideReason = TaxOverrideReason
End Property
Private bTaxIncluded As Boolean
Property Get TaxIncluded() As Boolean
Set TaxIncluded = bTaxIncluded
End Property
Property Let TaxIncluded(TaxIncluded As Boolean)
Set bTaxIncluded = TaxIncluded
End Property
Private sRateType As String
Property Get RateType() As String
Set RateType = sRateType
End Property
Property Let RateType(RateType As String)
Set sRateType = RateType
End Property
End Property