Revision 44703001
Von Martin Helmling mh@waldpark.octosoft.eu vor fast 9 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 811 | 811 |
$query = qq|UPDATE ap SET paid = amount + paid, storno = 't' WHERE id = ?|; |
| 812 | 812 |
do_query($form, $dbh, $query, $id); |
| 813 | 813 |
|
| 814 |
$form->new_lastmtime('ap') if $id == $form->{id};
|
|
| 815 |
|
|
| 814 | 816 |
# now copy acc_trans entries |
| 815 | 817 |
$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.acc_trans_id|; |
| 816 | 818 |
my $rowref = selectall_hashref_query($form, $dbh, $query, $id); |
| SL/AR.pm | ||
|---|---|---|
| 772 | 772 |
$query = qq|UPDATE ar SET paid = amount + paid, storno = 't' WHERE id = ?|; |
| 773 | 773 |
do_query($form, $dbh, $query, $id); |
| 774 | 774 |
|
| 775 |
$form->new_lastmtime('ar') if $id == $form->{id};
|
|
| 776 |
|
|
| 775 | 777 |
# now copy acc_trans entries |
| 776 | 778 |
$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.acc_trans_id|; |
| 777 | 779 |
my $rowref = selectall_hashref_query($form, $dbh, $query, $id); |
Auch abrufbar als: Unified diff
4. Überarbeitung Prüfen beim Speichern, ob Dokument geändert ist(3)
In der Ruhe liegt die Kraft.
Jetzt sind die Zeilen in den storno-Funktionen wieder eingebaut