X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/19df37e1f983758cf6674580c5b191cff6e6ed10..0e83d54de99fbb7e0ab6471eb2c70db9a0b53466:/SL/DB/Helper/PriceTaxCalculator.pm diff --git a/SL/DB/Helper/PriceTaxCalculator.pm b/SL/DB/Helper/PriceTaxCalculator.pm index e1db34039..80c804728 100644 --- a/SL/DB/Helper/PriceTaxCalculator.pm +++ b/SL/DB/Helper/PriceTaxCalculator.pm @@ -145,8 +145,6 @@ sub _calculate_item { die "tax_amount != 0 but no chart_id for taxkey " . $taxkey->id . " tax " . $taxkey->tax->id; } - $self->netamount($self->netamount + $sellprice * (1 - $item->discount) * $item->qty / $item->price_factor); - my $chart = $part->get_chart(type => $data->{is_sales} ? 'income' : 'expense', taxzone => $self->taxzone_id); $data->{amounts}->{ $chart->id } ||= { taxkey => $taxkey->taxkey_id, tax_id => $taxkey->tax_id, amount => 0 }; $data->{amounts}->{ $chart->id }->{amount} += $linetotal; @@ -187,6 +185,8 @@ sub _calculate_amounts { $data->{taxes}->{$chart_id} = $rounded; } + $self->netamount(sum map { $_->{amount} } values %{ $data->{amounts} }); + my $amount = _round(($self->netamount + $tax_diff) * $data->{exchangerate}, 2); my $diff = $amount - ($self->netamount + $tax_diff) * $data->{exchangerate}; my $netamount = $amount;