Revision 18709591
Von Moritz Bunkus vor fast 8 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 391 | 391 |
return; |
| 392 | 392 |
} |
| 393 | 393 |
|
| 394 |
# set inventory_accno_id, income_accno_id, expense_accno_id to defaults |
|
| 395 |
foreach my $type (qw(inventory income expense)) {
|
|
| 396 |
$query = |
|
| 397 |
qq|UPDATE parts | . |
|
| 398 |
qq|SET ${type}_accno_id = (SELECT ${type}_accno_id FROM defaults) | .
|
|
| 399 |
qq|WHERE ${type}_accno_id = ?|;
|
|
| 400 |
do_query($form, $dbh, $query, $form->{id});
|
|
| 401 |
} |
|
| 402 |
|
|
| 403 | 394 |
$query = qq|DELETE FROM tax |
| 404 | 395 |
WHERE chart_id = ?|; |
| 405 | 396 |
do_query($form, $dbh, $query, $form->{id});
|
Auch abrufbar als: Unified diff
Konto löschen: keine Updates auf parts mehr nötig
Die Konten-Spalten, die es in parts gab, gibt es schlicht nicht mehr.