Revision 5d92bf35
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
|
push(@values, $form->{minamount});
|
||
|
}
|
||
|
|
||
|
$query =
|
||
|
qq|SELECT id
|
||
|
FROM dunning_config
|
||
|
WHERE dunning_level = (SELECT MAX(dunning_level) FROM dunning_config)|;
|
||
|
my ($id_for_max_dunning_level) = selectrow_query($form, $dbh, $query);
|
||
|
|
||
|
$query =
|
||
|
qq|SELECT
|
||
|
a.id, a.ordnumber, a.transdate, a.invnumber, a.amount,
|
||
| ... | ... | |
|
LEFT JOIN dunning_config cfg ON (a.dunning_config_id = cfg.id)
|
||
|
LEFT JOIN dunning_config nextcfg ON
|
||
|
(nextcfg.id =
|
||
|
(SELECT id
|
||
|
FROM dunning_config
|
||
|
WHERE dunning_level >
|
||
|
COALESCE((SELECT dunning_level
|
||
|
FROM dunning_config
|
||
|
WHERE id = a.dunning_config_id
|
||
|
ORDER BY dunning_level DESC
|
||
|
LIMIT 1),
|
||
|
0)
|
||
|
LIMIT 1))
|
||
|
COALESCE(
|
||
|
(SELECT id
|
||
|
FROM dunning_config
|
||
|
WHERE dunning_level >
|
||
|
COALESCE((SELECT dunning_level
|
||
|
FROM dunning_config
|
||
|
WHERE id = a.dunning_config_id
|
||
|
ORDER BY dunning_level DESC
|
||
|
LIMIT 1),
|
||
|
0)
|
||
|
ORDER BY dunning_level ASC
|
||
|
LIMIT 1)
|
||
|
, ?))
|
||
|
LEFT JOIN dunning d ON ((d.trans_id = a.id) AND (cfg.dunning_level = d.dunning_level))
|
||
|
|
||
|
WHERE (a.paid < a.amount)
|
||
| ... | ... | |
|
$where
|
||
|
|
||
|
ORDER BY a.id, transdate, duedate, name|;
|
||
|
my $sth = prepare_execute_query($form, $dbh, $query, @values);
|
||
|
my $sth = prepare_execute_query($form, $dbh, $query, $id_for_max_dunning_level, @values);
|
||
|
|
||
|
$form->{DUNNINGS} = [];
|
||
|
|
||
Auch abrufbar als: Unified diff
Mahnwesen:
1. Beim Erzeugen neuer Mahnungen wurden unter Umständen überall die falschen nächsten Mahnstufen vorausgewählt.
2. Rechnungen, die bereits auf der höchsten Mahnstufe waren, wurden nicht mehr angezeigt.