1
|
|
|
<?php |
2
|
|
|
/* |
3
|
|
|
* Copyright (C) 2020 Jan Böhmer |
4
|
|
|
* |
5
|
|
|
* This program is free software: you can redistribute it and/or modify |
6
|
|
|
* it under the terms of the GNU Affero General Public License as published |
7
|
|
|
* by the Free Software Foundation, either version 3 of the License, or |
8
|
|
|
* (at your option) any later version. |
9
|
|
|
* |
10
|
|
|
* This program is distributed in the hope that it will be useful, |
11
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
12
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13
|
|
|
* GNU Affero General Public License for more details. |
14
|
|
|
* |
15
|
|
|
* You should have received a copy of the GNU Affero General Public License |
16
|
|
|
* along with this program. If not, see <https://www.gnu.org/licenses/>. |
17
|
|
|
*/ |
18
|
|
|
|
19
|
|
|
namespace App\Services; |
20
|
|
|
|
21
|
|
|
use App\Entity\BankAccount; |
22
|
|
|
use App\Entity\PaymentOrder; |
23
|
|
|
use App\Exception\SEPAExportAutoModeNotPossible; |
24
|
|
|
use Digitick\Sepa\DomBuilder\BaseDomBuilder; |
25
|
|
|
use Digitick\Sepa\DomBuilder\DomBuilderFactory; |
26
|
|
|
use Digitick\Sepa\GroupHeader; |
27
|
|
|
use Digitick\Sepa\PaymentInformation; |
28
|
|
|
use Digitick\Sepa\TransferFile\CustomerCreditTransferFile; |
29
|
|
|
use Digitick\Sepa\TransferInformation\CustomerCreditTransferInformation; |
30
|
|
|
use Doctrine\ORM\EntityManagerInterface; |
31
|
|
|
use InvalidArgumentException; |
32
|
|
|
use RuntimeException; |
33
|
|
|
use Symfony\Component\OptionsResolver\Options; |
34
|
|
|
use Symfony\Component\OptionsResolver\OptionsResolver; |
35
|
|
|
|
36
|
|
|
/** |
37
|
|
|
* This service allows to create a SEPA-XML file from a payment order that can be used to import it in an online |
38
|
|
|
* banking system. |
39
|
|
|
*/ |
40
|
|
|
class PaymentOrdersSEPAExporter |
41
|
|
|
{ |
42
|
|
|
protected const PARTY_NAME = 'StuRa FSU Jena'; |
43
|
|
|
protected const ID_PREFIX = 'StuRa Export'; |
44
|
|
|
protected const PAYMENT_PREFIX = 'Payment'; |
45
|
|
|
|
46
|
|
|
protected $fsr_kom_bank_account_id; |
47
|
|
|
protected $entityManager; |
48
|
|
|
|
49
|
|
|
public function __construct(int $fsr_kom_bank_account_id, EntityManagerInterface $entityManager) |
50
|
|
|
{ |
51
|
|
|
$this->fsr_kom_bank_account_id = $fsr_kom_bank_account_id; |
52
|
|
|
$this->entityManager = $entityManager; |
53
|
|
|
} |
54
|
|
|
|
55
|
|
|
/** |
56
|
|
|
* Exports the given paymentOrders as SEPA-XML files. |
57
|
|
|
* |
58
|
|
|
* @throws \Digitick\Sepa\Exception\InvalidArgumentException |
59
|
|
|
*/ |
60
|
|
|
public function export(array $payment_orders, array $options): array |
61
|
|
|
{ |
62
|
|
|
$resolver = new OptionsResolver(); |
63
|
|
|
$this->configureOptions($resolver); |
64
|
|
|
$options = $resolver->resolve($options); |
65
|
|
|
|
66
|
|
|
$accounts = []; |
67
|
|
|
$return = []; |
68
|
|
|
|
69
|
|
|
if ('manual' === $options['mode']) { |
70
|
|
|
$accounts[0] = [ |
71
|
|
|
'iban' => $options['iban'], |
72
|
|
|
'bic' => $options['bic'], |
73
|
|
|
'name' => $options['name'], |
74
|
|
|
'entries' => $payment_orders, |
75
|
|
|
]; |
76
|
|
|
} elseif ('auto' === $options['mode']) { |
77
|
|
|
$accounts = $this->groupByBankAccounts($payment_orders); |
78
|
|
|
} elseif ('auto_single' === $options['mode']) { |
79
|
|
|
//Export every payment order separately and return early |
80
|
|
|
foreach ($payment_orders as $payment_order) { |
81
|
|
|
$return[$payment_order->getIDString()] = $this->exportSinglePaymentOrder($payment_order); |
82
|
|
|
} |
83
|
|
|
|
84
|
|
|
return $return; |
85
|
|
|
} else { |
86
|
|
|
throw new RuntimeException('Unknown mode'); |
87
|
|
|
} |
88
|
|
|
|
89
|
|
|
foreach ($accounts as $account_info) { |
90
|
|
|
$groupHeader = $this->getGroupHeader(); |
91
|
|
|
$sepaFile = new CustomerCreditTransferFile($groupHeader); |
92
|
|
|
|
93
|
|
|
// A single payment info where all PaymentOrders are added as transactions |
94
|
|
|
$payment = new PaymentInformation( |
95
|
|
|
static::PAYMENT_PREFIX.' '.uniqid('', false), |
96
|
|
|
$account_info['iban'], |
97
|
|
|
$account_info['bic'], |
98
|
|
|
$account_info['name'] |
99
|
|
|
); |
100
|
|
|
|
101
|
|
|
$this->addPaymentOrderTransactions($payment, $account_info['entries']); |
102
|
|
|
$payment->setBatchBooking(false); |
103
|
|
|
$sepaFile->addPaymentInformation($payment); |
104
|
|
|
|
105
|
|
|
// Or if you want to use the format 'pain.001.001.03' instead |
106
|
|
|
$domBuilder = DomBuilderFactory::createDomBuilder($sepaFile, 'pain.001.001.03'); |
107
|
|
|
|
108
|
|
|
if (!$domBuilder instanceof BaseDomBuilder) { |
109
|
|
|
throw new InvalidArgumentException('$domBuilder must be an BaseDomBuilder instance!'); |
110
|
|
|
} |
111
|
|
|
|
112
|
|
|
$return[$account_info['name']] = $domBuilder->asXml(); |
113
|
|
|
} |
114
|
|
|
|
115
|
|
|
return $return; |
116
|
|
|
} |
117
|
|
|
|
118
|
|
|
/** |
119
|
|
|
* Generates the SEPA-XML file from a single PaymentOrder. |
120
|
|
|
* |
121
|
|
|
* @param PaymentOrder $paymentOrder The payment order that should be exported |
122
|
|
|
* @param string|null $account_name The name of the debitor account that should be used in export. Set to null to determine automatically |
123
|
|
|
* @param string|null $iban The IBAN of the debitor account that should be used in export. Set to null to determine automatically |
124
|
|
|
* @param string|null $bic The BIC of the debitor account that should be used in export. Set to null to determine automatically |
125
|
|
|
*/ |
126
|
|
|
public function exportSinglePaymentOrder(PaymentOrder $paymentOrder, ?string $account_name = null, ?string $iban = null, ?string $bic = null): string |
127
|
|
|
{ |
128
|
|
|
//If null values were passed determine them from default bank account |
129
|
|
|
if (null === $account_name || null === $iban || null === $bic) { |
130
|
|
|
$bank_account = $this->getResolvedBankAccount($paymentOrder); |
131
|
|
|
|
132
|
|
|
$account_name = $bank_account->getExportAccountName(); |
133
|
|
|
$iban = $bank_account->getIban(); |
134
|
|
|
$bic = $bank_account->getBic(); |
135
|
|
|
} elseif (!($account_name && $iban && $bic)) { |
136
|
|
|
throw new RuntimeException('You have to pass $account_name, $iban and $bic if you want manually select a debitor account!'); |
137
|
|
|
} |
138
|
|
|
|
139
|
|
|
//Strip spaces from IBAN or we will run into problems |
140
|
|
|
$iban = str_replace(' ', '', $iban); |
141
|
|
|
|
142
|
|
|
$groupHeader = $this->getGroupHeader(); |
143
|
|
|
$sepaFile = new CustomerCreditTransferFile($groupHeader); |
144
|
|
|
|
145
|
|
|
// A single payment info where all PaymentOrders are added as transactions |
146
|
|
|
$payment = new PaymentInformation( |
147
|
|
|
$paymentOrder->getIDString().' '.uniqid('', false), |
148
|
|
|
$iban, |
149
|
|
|
$bic, |
150
|
|
|
$account_name |
151
|
|
|
); |
152
|
|
|
|
153
|
|
|
$this->addPaymentOrderTransactions($payment, [$paymentOrder]); |
154
|
|
|
//This line is important |
155
|
|
|
$payment->setBatchBooking(false); |
156
|
|
|
$sepaFile->addPaymentInformation($payment); |
157
|
|
|
|
158
|
|
|
// Or if you want to use the format 'pain.001.001.03' instead |
159
|
|
|
$domBuilder = DomBuilderFactory::createDomBuilder($sepaFile, 'pain.001.001.03'); |
160
|
|
|
|
161
|
|
|
if (!$domBuilder instanceof BaseDomBuilder) { |
|
|
|
|
162
|
|
|
throw new InvalidArgumentException('$domBuilder must be an BaseDomBuilder instance!'); |
163
|
|
|
} |
164
|
|
|
|
165
|
|
|
return $domBuilder->asXml(); |
166
|
|
|
} |
167
|
|
|
|
168
|
|
|
/** |
169
|
|
|
* Generates a group header for a SEPA file. |
170
|
|
|
*/ |
171
|
|
|
protected function getGroupHeader(): GroupHeader |
172
|
|
|
{ |
173
|
|
|
return new GroupHeader( |
174
|
|
|
static::ID_PREFIX.' '.uniqid('', false), |
175
|
|
|
static::PARTY_NAME |
176
|
|
|
); |
177
|
|
|
} |
178
|
|
|
|
179
|
|
|
/** |
180
|
|
|
* Generates a payment info ID for the given PaymentOrder. |
181
|
|
|
* Please not that the results change between calls, as the ID contains a random part to be unique. |
182
|
|
|
*/ |
183
|
|
|
protected function getPaymentInfoID(PaymentOrder $paymentOrder): string |
184
|
|
|
{ |
185
|
|
|
return $paymentOrder->getIDString().' '.uniqid('', false); |
186
|
|
|
} |
187
|
|
|
|
188
|
|
|
/** |
189
|
|
|
* Add the given PaymentOrders as transactions to the SEPA PaymentInformation group. |
190
|
|
|
* |
191
|
|
|
* @param PaymentOrder[] $payment_orders |
192
|
|
|
*/ |
193
|
|
|
protected function addPaymentOrderTransactions(PaymentInformation $payment, array $payment_orders): void |
194
|
|
|
{ |
195
|
|
|
//We only have one SEPA-Payment but it contains multiple transactions (each for one PaymentOrder) |
196
|
|
|
foreach ($payment_orders as $payment_order) { |
197
|
|
|
/** @var PaymentOrder $payment_order */ |
198
|
|
|
|
199
|
|
|
$transfer = new CustomerCreditTransferInformation( |
200
|
|
|
$payment_order->getAmount(), |
201
|
|
|
//We need a IBAN without spaces |
202
|
|
|
str_replace(' ', '', $payment_order->getBankInfo()->getIban()), |
203
|
|
|
$payment_order->getBankInfo() |
204
|
|
|
->getAccountOwner() |
205
|
|
|
); |
206
|
|
|
if (!empty($payment_order->getBankInfo()->getBic())) { |
207
|
|
|
$transfer->setBic($payment_order->getBankInfo()->getBic()); |
208
|
|
|
} |
209
|
|
|
$transfer->setEndToEndIdentification($payment_order->getIDString()); |
210
|
|
|
$transfer->setRemittanceInformation($payment_order->getBankInfo()->getReference()); |
211
|
|
|
$payment->addTransfer($transfer); |
212
|
|
|
} |
213
|
|
|
} |
214
|
|
|
|
215
|
|
|
/** |
216
|
|
|
* This function groups the paymentOrders by bank accounts. |
217
|
|
|
* |
218
|
|
|
* @param PaymentOrder[] $payment_orders |
219
|
|
|
*/ |
220
|
|
|
protected function groupByBankAccounts(array $payment_orders): array |
221
|
|
|
{ |
222
|
|
|
$tmp = []; |
223
|
|
|
|
224
|
|
|
foreach ($payment_orders as $payment_order) { |
225
|
|
|
$bank_account = $this->getResolvedBankAccount($payment_order); |
226
|
|
|
|
227
|
|
|
//That case should never really happen in reality (except for testing purposes) |
228
|
|
|
//But as it leads silently to wrong behavior it should throw an exception. |
229
|
|
|
if (null === $bank_account->getId()) { |
230
|
|
|
throw new RuntimeException('The associated bank account must be persisted in DB / have an ID to be groupable!'); |
231
|
|
|
} |
232
|
|
|
|
233
|
|
|
//Create entry for bank account if not existing yet |
234
|
|
|
if (!isset($tmp[$bank_account->getId()])) { |
235
|
|
|
$tmp[$bank_account->getId()] = [ |
236
|
|
|
'iban' => $bank_account->getIbanWithoutSpaces(), |
237
|
|
|
'bic' => $bank_account->getBic(), |
238
|
|
|
'name' => $bank_account->getExportAccountName(), |
239
|
|
|
'entries' => [], |
240
|
|
|
]; |
241
|
|
|
} |
242
|
|
|
|
243
|
|
|
//Add the current payment order to list |
244
|
|
|
$tmp[$bank_account->getId()]['entries'][] = $payment_order; |
245
|
|
|
} |
246
|
|
|
|
247
|
|
|
return $tmp; |
248
|
|
|
} |
249
|
|
|
|
250
|
|
|
/** |
251
|
|
|
* Get Bank account for PaymentOrder and resolve FSR-Kom bank account if needed. |
252
|
|
|
*/ |
253
|
|
|
protected function getResolvedBankAccount(PaymentOrder $payment_order): BankAccount |
254
|
|
|
{ |
255
|
|
|
//Try to resolve FSRKom transactions if possible |
256
|
|
|
if ($payment_order->isFsrKomResolution()) { |
257
|
|
|
return $this->getFSRKomBankAccount(); |
258
|
|
|
} |
259
|
|
|
|
260
|
|
|
$bank_account = $payment_order->getDepartment() |
261
|
|
|
->getBankAccount(); |
262
|
|
|
|
263
|
|
|
//Throw an error if auto mode is not possible (as bank account definitions are missing) |
264
|
|
|
if (null === $bank_account) { |
265
|
|
|
throw new SEPAExportAutoModeNotPossible($payment_order->getDepartment()); |
266
|
|
|
} |
267
|
|
|
|
268
|
|
|
return $bank_account; |
269
|
|
|
} |
270
|
|
|
|
271
|
|
|
protected function configureOptions(OptionsResolver $resolver): void |
272
|
|
|
{ |
273
|
|
|
$resolver->setRequired([ |
274
|
|
|
'iban', //The IBAN of the sender |
275
|
|
|
'bic', //The BIC of the sender |
276
|
|
|
'name', //The name of the sender |
277
|
|
|
]); |
278
|
|
|
|
279
|
|
|
$resolver->setAllowedTypes('iban', ['string', 'null']); |
280
|
|
|
$resolver->setAllowedTypes('bic', ['string', 'null']); |
281
|
|
|
$resolver->setAllowedTypes('name', ['string', 'null']); |
282
|
|
|
|
283
|
|
|
/* Two different modes, in "manual" all transactions are put in a single payment from the given account data, |
284
|
|
|
the accounts for the payment order departments are used automatically and are put in (if needed) multiple |
285
|
|
|
payments from different accounts */ |
286
|
|
|
$resolver->setDefault('mode', 'manual'); |
287
|
|
|
$resolver->setAllowedValues('mode', ['auto', 'manual', 'auto_single']); |
288
|
|
|
|
289
|
|
|
$resolver->setNormalizer('iban', function (Options $options, $value) { |
290
|
|
|
if (null === $value) { |
291
|
|
|
return null; |
292
|
|
|
} |
293
|
|
|
//Return spaces from IBAN |
294
|
|
|
return str_replace(' ', '', $value); |
295
|
|
|
}); |
296
|
|
|
} |
297
|
|
|
|
298
|
|
|
/** |
299
|
|
|
* Returns the bank account associated with FSR-Kom (this is configured by FSR_KOM_ACCOUNT_ID env). |
300
|
|
|
*/ |
301
|
|
|
public function getFSRKomBankAccount(): BankAccount |
302
|
|
|
{ |
303
|
|
|
return $this->entityManager->find(BankAccount::class, $this->fsr_kom_bank_account_id); |
|
|
|
|
304
|
|
|
} |
305
|
|
|
} |
306
|
|
|
|