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