Revision 840aea13
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1700 | 1700 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
| 1701 | 1701 |
|
| 1702 | 1702 |
my $query = qq|SELECT sum(a.amount - a.paid) AS dunning_amount FROM ar a |
| 1703 |
WHERE a.paid < a.amount AND a.customer_id = ? AND a.dunning_id IS NOT NULL|; |
|
| 1703 |
WHERE a.paid < a.amount AND a.customer_id = ? AND a.dunning_config_id IS NOT NULL|;
|
|
| 1704 | 1704 |
$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});
|
| 1705 | 1705 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
| 1706 | 1706 |
|
| 1707 | 1707 |
my $query = qq|SELECT dnn.dunning_description AS max_dunning_level FROM dunning_config dnn |
| 1708 |
WHERE id in (SELECT dunning_id from ar WHERE paid < amount AND customer_id = ? AND dunning_id IS NOT NULL) |
|
| 1708 |
WHERE id in (SELECT dunning_config_id from ar WHERE paid < amount AND customer_id = ? AND dunning_id IS NOT NULL)
|
|
| 1709 | 1709 |
ORDER BY dunning_level DESC LIMIT 1|; |
| 1710 | 1710 |
$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});
|
| 1711 | 1711 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
Auch abrufbar als: Unified diff
Mahnwesen: Die Tabelle dunning so umgebaut, dass gemeinsam gestartete Mahnungen auch später gemeinsam erneut ausgedruckt werden können. Dafür auch die Listenansicht bereits gestarteter Mahnungen verbessert.