projekt kivitendo

          my $record        = _make_record();

          my $price_source  = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);

          my $best_price    = $price_source->best_price;

          my $best_discount = $price_source->best_discount;

          if ($best_price) {

            $::form->{"sellprice_$i"}           = $best_price->price;

            $::form->{"active_price_source_$i"} = $best_price->source;

          }

          if ($best_discount) {

            $::form->{"discount_$i"}               = $best_discount->discount;

            $::form->{"active_discount_source_$i"} = $best_discount->source;

          }