|
package SL::PriceSource::CustomerPrice;
|
|
|
|
use strict;
|
|
use parent qw(SL::PriceSource::Base);
|
|
|
|
use SL::PriceSource::Price;
|
|
use SL::Locale::String;
|
|
use SL::DB::PartCustomerPrice;
|
|
# use List::UtilsBy qw(min_by max_by);
|
|
|
|
sub name { 'customer_price' }
|
|
|
|
sub description { t8('Customer specific Price') }
|
|
|
|
sub available_prices {
|
|
my ($self, %params) = @_;
|
|
|
|
return () if !$self->part;
|
|
return () if !$self->record->is_sales;
|
|
|
|
map { $self->make_price_from_customerprice($_) }
|
|
grep { $_->customer_id == $self->record->customer_id }
|
|
$self->part->customerprices;
|
|
}
|
|
|
|
sub available_discounts { }
|
|
|
|
sub price_from_source {
|
|
my ($self, $source, $spec) = @_;
|
|
|
|
my $customerprice = SL::DB::Manager::PartCustomerPrice->find_by(id => $spec);
|
|
|
|
return $self->make_price_from_customerprice($customerprice);
|
|
|
|
}
|
|
|
|
sub best_price {
|
|
my ($self, %params) = @_;
|
|
|
|
return () if !$self->record->is_sales;
|
|
|
|
# min_by { $_->price } $self->available_prices;
|
|
# max_by { $_->price } $self->available_prices;
|
|
&available_prices;
|
|
|
|
}
|
|
|
|
sub best_discount { }
|
|
|
|
sub make_price_from_customerprice {
|
|
my ($self, $customerprice) = @_;
|
|
|
|
return SL::PriceSource::Price->new(
|
|
price => $customerprice->price,
|
|
spec => $customerprice->id,
|
|
description => $customerprice->customer_partnumber,
|
|
price_source => $self,
|
|
);
|
|
}
|
|
|
|
|
|
1;
|