Revision bc88a0d1
Von Moritz Bunkus vor fast 13 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1413 | 1413 |
do_query($form, $dbh, qq|UPDATE ar SET storno = 'f', paid = 0 WHERE id = ?|, $invoice_id); |
| 1414 | 1414 |
} |
| 1415 | 1415 |
|
| 1416 |
# delete AR record |
|
| 1417 |
do_query($form, $dbh, qq|DELETE FROM ar WHERE id = ?|, @values); |
|
| 1418 |
|
|
| 1419 | 1416 |
# delete spool files |
| 1420 | 1417 |
my @spoolfiles = selectall_array_query($form, $dbh, qq|SELECT spoolfile FROM status WHERE trans_id = ?|, @values); |
| 1421 | 1418 |
|
| 1422 |
# delete status entries |
|
| 1423 |
do_query($form, $dbh, qq|DELETE FROM status WHERE trans_id = ?|, @values); |
|
| 1419 |
my @queries = ( |
|
| 1420 |
qq|DELETE FROM status WHERE trans_id = ?|, |
|
| 1421 |
qq|DELETE FROM periodic_invoices WHERE ar_id = ?|, |
|
| 1422 |
qq|DELETE FROM ar WHERE id = ?|, |
|
| 1423 |
); |
|
| 1424 |
|
|
| 1425 |
map { do_query($form, $dbh, $_, @values) } @queries;
|
|
| 1424 | 1426 |
|
| 1425 | 1427 |
my $rc = $dbh->commit; |
| 1426 | 1428 |
|
Auch abrufbar als: Unified diff
Löschen von periodisch erzeugten Rechnungen fixen
Fix für Bug 1734.