Revision 301fdeba
Von Bernd Bleßmann vor fast 2 Jahren hinzugefügt
| SL/SEPA.pm | ||
|---|---|---|
| 29 | 29 |
|
| 30 | 30 |
my $mandate = $params{vc} eq 'customer' ? " AND COALESCE(vc.mandator_id, '') <> '' AND vc.mandate_date_of_signature IS NOT NULL " : '';
|
| 31 | 31 |
|
| 32 |
my $is_sepa_blocked = $params{vc} eq 'customer' ? 'FALSE' : "${arap}.is_sepa_blocked";
|
|
| 33 |
|
|
| 32 | 34 |
# open_amount is not the current open amount according to bookkeeping, but |
| 33 | 35 |
# the open amount minus the SEPA transfer amounts that haven't been closed yet |
| 34 | 36 |
my $query = |
| ... | ... | |
| 38 | 40 |
(${arap}.amount - (${arap}.amount * pt.percent_skonto)) as amount_less_skonto,
|
| 39 | 41 |
(${arap}.amount * pt.percent_skonto) as skonto_amount,
|
| 40 | 42 |
vc.name AS vcname, vc.language_id, ${arap}.duedate as duedate, ${arap}.direct_debit,
|
| 43 |
${is_sepa_blocked} AS is_sepa_blocked,
|
|
| 41 | 44 |
vc.${vc_vc_id} as vc_vc_id,
|
| 42 | 45 |
|
| 43 | 46 |
COALESCE(vc.iban, '') <> '' AND COALESCE(vc.bic, '') <> '' ${mandate} AS vc_bank_info_ok,
|
Auch abrufbar als: Unified diff
SEPA-Überweisungen sperren könnnen (Einkauf)