X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f0ce00ebc34b16381f25c9ce75d36521bd046e1f..62a9b7075e66ccbf41e9f0bc6314359aa70af8e6:/SL/AP.pm diff --git a/SL/AP.pm b/SL/AP.pm index 2da4eca6c..b5e252096 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -776,7 +776,7 @@ sub storno { do_query($form, $dbh, $query, $id); # now copy acc_trans entries - $query = qq|SELECT a.*, c.link FROM acc_trans a LEFT JOIN chart c ON a.chart_id = c.id WHERE a.trans_id = ?|; + $query = qq|SELECT a.*, c.link FROM acc_trans a LEFT JOIN chart c ON a.chart_id = c.id WHERE a.trans_id = ? ORDER BY a.oid|; my $rowref = selectall_hashref_query($form, $dbh, $query, $id); # kill all entries containing payments, which are the last 2n rows, of which the last has link =~ /paid/