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.