Revision bee7eaaa
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
| 662 | 662 |
$query = sprintf 'INSERT INTO gl (%s) VALUES (%s)', join(', ', keys %$storno_row), join(', ', map '?', values %$storno_row);
|
| 663 | 663 |
do_query($form, $dbh, $query, (values %$storno_row)); |
| 664 | 664 |
|
| 665 |
$query = qq|UPDATE gl SET storno = 't' WHERE id = ?|; |
|
| 666 |
do_query($form, $dbh, $query, $id); |
|
| 667 |
|
|
| 665 | 668 |
# now copy acc_trans entries |
| 666 | 669 |
$query = qq|SELECT * FROM acc_trans WHERE trans_id = ?|; |
| 667 | 670 |
my $rowref = selectall_hashref_query($form, $dbh, $query, $id); |
Auch abrufbar als: Unified diff
Stornierte Rechnnung muss auf storno = true haben