X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f16aaa2a699fbf75a3d7f2f47242ef55d12700f2..400a18e91c4e1b2fd5847ad3da017e0d41afdc50:/SL/DB/Helper/PriceTaxCalculator.pm?ds=inline diff --git a/SL/DB/Helper/PriceTaxCalculator.pm b/SL/DB/Helper/PriceTaxCalculator.pm index c6ed109a5..6a3343548 100644 --- a/SL/DB/Helper/PriceTaxCalculator.pm +++ b/SL/DB/Helper/PriceTaxCalculator.pm @@ -114,7 +114,7 @@ sub _calculate_item { $self->netamount($self->netamount + $sellprice * $item->qty / $item->price_factor); my $chart = $item->part->get_chart(type => $data->{is_sales} ? 'income' : 'expense', taxzone => $self->taxzone_id); - $data->{amounts}->{ $chart->id } ||= { taxkey => $taxkey->id, amount => 0 }; + $data->{amounts}->{ $chart->id } ||= { taxkey => $taxkey->taxkey_id, amount => 0 }; $data->{amounts}->{ $chart->id }->{amount} += $linetotal; push @{ $data->{assembly_items} }, []; @@ -162,7 +162,7 @@ sub _calculate_amounts { sub _calculate_assembly_item { my ($self, $data, $part, $total_qty, $base_factor) = @_; - return 0 unless $::eur && $data->{is_invoice}; + return 0 if $::eur || !$data->{is_invoice}; foreach my $assembly_entry (@{ $part->assemblies }) { push @{ $data->{assembly_items}->[-1] }, { part => $assembly_entry->part, @@ -183,7 +183,7 @@ sub _calculate_part_item { _dbg("cpsi tq " . $total_qty); - return 0 unless $::eur && $data->{is_invoice} && $total_qty; + return 0 if $::eur || !$data->{is_invoice} || !$total_qty; my ($entry); $base_factor ||= 1;