Revision 6dd6719d
Von Jan Büren vor fast 11 Jahren hinzugefügt
SL/AM.pm | ||
---|---|---|
482 | 482 |
WHERE chart_id = ?|; |
483 | 483 |
do_query($form, $dbh, $query, $form->{id}); |
484 | 484 |
|
485 |
# delete chart of account record |
|
486 |
$query = qq|DELETE FROM chart |
|
487 |
WHERE id = ?|; |
|
488 |
do_query($form, $dbh, $query, $form->{id}); |
|
489 |
|
|
490 | 485 |
# delete account taxkeys |
491 | 486 |
$query = qq|DELETE FROM taxkeys |
492 | 487 |
WHERE chart_id = ?|; |
493 | 488 |
do_query($form, $dbh, $query, $form->{id}); |
494 | 489 |
|
490 |
# delete chart of account record |
|
491 |
# last step delete chart, because we have a constraint |
|
492 |
# to taxkeys |
|
493 |
$query = qq|DELETE FROM chart |
|
494 |
WHERE id = ?|; |
|
495 |
do_query($form, $dbh, $query, $form->{id}); |
|
496 |
|
|
495 | 497 |
# commit and redirect |
496 | 498 |
my $rc = $dbh->commit; |
497 | 499 |
$dbh->disconnect; |
Auch abrufbar als: Unified diff
Bugfix 2443: Löschen von neu angelegten Konten, aufgrund von Constraint taxkeys nicht möglich
fixt #2443