Revision 876169ef
Von Waldemar Toews vor fast 8 Jahren hinzugefügt
| SL/SEPA.pm | ||
|---|---|---|
| 138 | 138 |
my $q_insert = |
| 139 | 139 |
qq|INSERT INTO sepa_export_items (id, sepa_export_id, ${arap}_id, chart_id,
|
| 140 | 140 |
amount, requested_execution_date, reference, end_to_end_id, |
| 141 |
our_iban, our_bic, vc_iban, vc_bic,
|
|
| 141 |
our_iban, our_bic, our_depositor, vc_iban, vc_bic, vc_depositor,
|
|
| 142 | 142 |
skonto_amount, payment_type ${c_mandate})
|
| 143 | 143 |
VALUES (?, ?, ?, ?, |
| 144 |
?, ?, ?, ?,
|
|
| 144 |
?, ?, ?, ?, ?, ?,
|
|
| 145 | 145 |
?, ?, ?, ?, |
| 146 | 146 |
?, ? ${p_mandate})|;
|
| 147 | 147 |
my $h_insert = prepare_query($form, $dbh, $q_insert); |
| ... | ... | |
| 188 | 188 |
conv_i($transfer->{"${arap}_id"}), conv_i($transfer->{chart_id}),
|
| 189 | 189 |
$transfer->{amount}, conv_date($transfer->{requested_execution_date}),
|
| 190 | 190 |
$transfer->{reference}, $end_to_end_id,
|
| 191 |
map { my $pfx = $_; map { $transfer->{"${pfx}_${_}"} } qw(iban bic) } qw(our vc));
|
|
| 191 |
map { my $pfx = $_; map { $transfer->{"${pfx}_${_}"} } qw(iban bic depositor) } qw(our vc));
|
|
| 192 | 192 |
# save value of skonto_amount and payment_type |
| 193 | 193 |
if ( $transfer->{payment_type} eq 'without_skonto' ) {
|
| 194 | 194 |
push(@values, 0); |
| ... | ... | |
| 532 | 532 |
return 1; |
| 533 | 533 |
} |
| 534 | 534 |
|
| 535 |
sub is_depositor_name_valid {
|
|
| 536 |
my ($class, $depositor) = @_; |
|
| 537 |
return $depositor =~ /[^A-Za-z0-9\/\?\:\(\)\.\,\'\+\- ]/ ? 0 : 1; |
|
| 538 |
} |
|
| 539 |
|
|
| 535 | 540 |
1; |
Auch abrufbar als: Unified diff
SEPA + Stammdaten: Implementierung Kontoinhaber mit Formatierungsprüfung
- Das Eingabefeld 'Kontoinhaber' soll als Firmenname in SEPA-XML-Export übernommen werden.
- Bei der Eingabe der Kontoinhaben wird geprüft, ob Eingabe SEPA konform ist.
- Bei CSV-Import wird auch darauf geprüft.