Revision e90048c8
Von Bernd Bleßmann vor etwa 11 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 45 | 45 |
use SL::DB::AuthUser; |
| 46 | 46 |
use SL::DB::Default; |
| 47 | 47 |
use SL::DB::Employee; |
| 48 |
use SL::GenericTranslations; |
|
| 48 | 49 |
|
| 49 | 50 |
use strict; |
| 50 | 51 |
|
| ... | ... | |
| 1652 | 1653 |
taxnumber = (SELECT accno FROM chart WHERE id= ? ), |
| 1653 | 1654 |
chart_categories = ? |
| 1654 | 1655 |
WHERE id = ?|; |
| 1655 |
push(@values, $form->{id});
|
|
| 1656 | 1656 |
|
| 1657 | 1657 |
} else {
|
| 1658 | 1658 |
#ok |
| 1659 |
($form->{id}) = selectfirst_array_query($form, $dbh, qq|SELECT nextval('id')|);
|
|
| 1659 | 1660 |
$query = qq|INSERT INTO tax ( |
| 1660 | 1661 |
taxkey, |
| 1661 | 1662 |
taxdescription, |
| 1662 | 1663 |
rate, |
| 1663 | 1664 |
chart_id, |
| 1664 | 1665 |
taxnumber, |
| 1665 |
chart_categories |
|
| 1666 |
chart_categories, |
|
| 1667 |
id |
|
| 1666 | 1668 |
) |
| 1667 |
VALUES (?, ?, ?, ?, (SELECT accno FROM chart WHERE id = ?), ? )|;
|
|
| 1669 |
VALUES (?, ?, ?, ?, (SELECT accno FROM chart WHERE id = ?), ?, ?)|;
|
|
| 1668 | 1670 |
} |
| 1671 |
push(@values, $form->{id});
|
|
| 1669 | 1672 |
do_query($form, $dbh, $query, @values); |
| 1673 |
|
|
| 1674 |
foreach my $language_id (keys %{ $form->{translations} }) {
|
|
| 1675 |
GenericTranslations->save('dbh' => $dbh,
|
|
| 1676 |
'translation_type' => 'SL::DB::Tax/taxdescription', |
|
| 1677 |
'translation_id' => $form->{id},
|
|
| 1678 |
'language_id' => $language_id, |
|
| 1679 |
'translation' => $form->{translations}->{$language_id});
|
|
| 1680 |
} |
|
| 1670 | 1681 |
|
| 1671 | 1682 |
$dbh->commit(); |
| 1672 | 1683 |
|
Auch abrufbar als: Unified diff
Steuernamen übersetztbar gemacht.