Revision 1c62d23e
Von Kivitendo Admin vor mehr als 10 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 46 | 46 |
use SL::IO; |
| 47 | 47 |
use SL::MoreCommon; |
| 48 | 48 |
use SL::DB::Default; |
| 49 |
use SL::DB::TaxZone; |
|
| 49 | 50 |
use List::Util qw(min); |
| 50 | 51 |
|
| 51 | 52 |
use strict; |
| ... | ... | |
| 672 | 673 |
|
| 673 | 674 |
# set values which could be empty |
| 674 | 675 |
my $taxzone_id = $form->{taxzone_id} * 1;
|
| 676 |
$taxzone_id = SL::DB::Manager::TaxZone->get_default->id unless SL::DB::Manager::TaxZone->find_by(id => $taxzone_id); |
|
| 675 | 677 |
|
| 676 | 678 |
# Seit neuestem wird die department_id schon übergeben UND $form->department nicht mehr |
| 677 | 679 |
# korrekt zusammengebaut. Sehr wahrscheinlich beim Umstieg auf T8 kaputt gegangen |
| ... | ... | |
| 682 | 684 |
} |
| 683 | 685 |
$form->{invnumber} = $form->{id} unless $form->{invnumber};
|
| 684 | 686 |
|
| 685 |
$taxzone_id = 0 if (3 < $taxzone_id) || (0 > $taxzone_id); |
|
| 686 |
|
|
| 687 | 687 |
# save AP record |
| 688 | 688 |
$query = qq|UPDATE ap SET |
| 689 | 689 |
invnumber = ?, ordnumber = ?, quonumber = ?, transdate = ?, |
| ... | ... | |
| 963 | 963 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
| 964 | 964 |
|
| 965 | 965 |
my $transdate = $form->{invdate} ? $dbh->quote($form->{invdate}) : "current_date";
|
| 966 |
my $taxzone_id = $form->{taxzone_id} * 1;
|
|
| 967 | 966 |
|
| 968 |
$taxzone_id = 0 if ((3 < $taxzone_id) || (0 > $taxzone_id)); |
|
| 967 |
my $taxzone_id = $form->{taxzone_id} * 1;
|
|
| 968 |
$taxzone_id = SL::DB::Manager::TaxZone->get_default->id unless SL::DB::Manager::TaxZone->find_by(id => $taxzone_id); |
|
| 969 | 969 |
|
| 970 | 970 |
# retrieve individual items |
| 971 | 971 |
$query = |
| ... | ... | |
| 1219 | 1219 |
} |
| 1220 | 1220 |
|
| 1221 | 1221 |
my $taxzone_id = $form->{taxzone_id} * 1;
|
| 1222 |
$taxzone_id = 0 if ((3 < $taxzone_id) || (0 > $taxzone_id));
|
|
| 1222 |
$taxzone_id = SL::DB::Manager::TaxZone->get_default->id unless SL::DB::Manager::TaxZone->find_by(id => $taxzone_id);
|
|
| 1223 | 1223 |
|
| 1224 | 1224 |
my $query = |
| 1225 | 1225 |
qq|SELECT |
Auch abrufbar als: Unified diff
Steuerzone - Default eingeführt (statt id 0)
Als Defaultsteuerzone gilt nun die Steuerzone mit dem höchsten Sortcode, der
nicht obsolet ist (in der Regel also id 1).
Bernd hatte noch ein paar Stellen gefunden, wo als Default 0 gesetzt wird.
Außerdem Doku angepasst, taxzone_id ist nun nicht mehr im Bereich 0-3.