projekt kivitendo

use SL::PriceSource;

sub get_best_price_and_discount_source {

  my ($class, $record, $item, %flags) = @_;

  my $ignore_given = !!$flags{ignore_given};

  my $price_source = SL::PriceSource->new(record_item => $item, record => $record);

  my $price_src;

  if ( $item->part->is_assortment ) {

    # add assortment items with price 0, as the components carry the price

    $price_src = $price_source->price_from_source("");

    $price_src->price(0);

  } elsif (!$ignore_given && defined $item->sellprice) {

    $price_src = $price_source->price_from_source("");

    $price_src->price($item->sellprice);

  } else {

    $price_src = $price_source->best_price

               ? $price_source->best_price

               : $price_source->price_from_source("");

    $price_src->price($::form->round_amount($price_src->price / $record->exchangerate, 5)) if $record->exchangerate;

    $price_src->price(0) if !$price_source->best_price;

  }

  my $discount_src;

  if (!$ignore_given && defined $item->discount) {

    $discount_src = $price_source->discount_from_source("");

    $discount_src->discount($item->discount);

  } else {

    $discount_src = $price_source->best_discount

                  ? $price_source->best_discount

                  : $price_source->discount_from_source("");

    $discount_src->discount(0) if !$price_source->best_discount;

  }

  return ($price_src, $discount_src);

}

=item C<get_best_price_and_discount_source>

Get the best price and discount source for an item. You have

to pass the record and the item.

If the flag C<ignore_given> is not set and a price or discount already exists

for this item, these will be used. This means, that the price source and

discount source are set to empty and price of the price source is set to

the existing price and/or the discount of the discount source is set to

the existing discount.

If the flag C<ignore_given> is set, the best price and discount source

is determined via C<SL::PriceSource> and a given price or discount in the

item will be ignored. This can be used to get an default price/discount

that can be displayed to the user even if a price/discount is already

entered.

Returns an reference to an array where the first element is the best

price source and the second element is the best discount source.

note "testing get price and discount sources";

reset_state();

reset_basic_sales_records();

reset_basic_purchase_records();

$purchase_quotation1->items_sorted->[0]->part->sellprice(500);

$purchase_quotation1->items_sorted->[0]->part->lastcost(300);

$purchase_quotation1->vendor->discount(5.0);

my ($price_source, $discount_source) = SL::Model::Record->get_best_price_and_discount_source($purchase_quotation1,

                                                                                             $purchase_quotation1->items_sorted->[0],

                                                                                             ignore_given => 1);

is($price_source->source_description, 'Master Data', 'get price source right with ignore_given');

is($price_source->price, 300, 'get price source purchase price right with ignore_given');

is($discount_source->source_description, 'Vendor Discount', 'get discount source right with ignore_given');

is($discount_source->discount, 5, 'get discount source purchase discount right with ignore_given');

$purchase_quotation1->items_sorted->[0]->discount(3);

($price_source, $discount_source)    = SL::Model::Record->get_best_price_and_discount_source($purchase_quotation1,

                                                                                             $purchase_quotation1->items_sorted->[0],

                                                                                             ignore_given => 0);

is($price_source->source_description, 'None (PriceSource)', 'get price source right with given price');

is($price_source->price, 70, 'get price source purchase price right with given price');

is($discount_source->source_description, 'None (PriceSource Discount)', 'get price source right with given price');

is($discount_source->discount, 3, 'get discount source purchase discount right with given price');