projekt kivitendo

  my $sellprice = $item->sellprice; # don't include rounded discount into sellprice

  # any time the sellprice is multiplied with qty discount has to be considered as part of the multiplication

  $item->price_factor(      ! $item->price_factor_obj   ? 1 : ($item->price_factor_obj->factor   || 1));

  $item->marge_price_factor(! $part->price_factor ? 1 : ($part->price_factor->factor || 1));

  my $linetotal = _round($sellprice * (1-$item->discount) * $item->qty / $item->price_factor, 2) * $data->{exchangerate};