kivitendo/SL/PriceSource/PriceRules.pm @ 79b7fc43
| 9589ecd7 | Sven Schöling | package SL::PriceSource::PriceRules;
|
||
use strict;
|
||||
use parent qw(SL::PriceSource::Base);
|
||||
use SL::PriceSource::Price;
|
||||
| bc8c26f3 | Sven Schöling | use SL::PriceSource::Discount;
|
||
| 9589ecd7 | Sven Schöling | use SL::Locale::String;
|
||
use SL::DB::PriceRule;
|
||||
use List::UtilsBy qw(min_by max_by);
|
||||
sub name { 'price_rules' }
|
||||
| f8323c9e | Sven Schöling | sub description { t8('Price Rule') }
|
||
| 9589ecd7 | Sven Schöling | |||
sub available_rules {
|
||||
my ($self, %params) = @_;
|
||||
| bc8c26f3 | Sven Schöling | $self->{available} ||= SL::DB::Manager::PriceRule->get_all_matching(record => $self->record, record_item => $self->record_item);
|
||
}
|
||||
sub available_price_rules {
|
||||
my $rules = $_[0]->available_rules;
|
||||
grep { $_->price_type != SL::DB::Manager::PriceRule::PRICE_DISCOUNT() } @$rules
|
||||
}
|
||||
sub available_discount_rules {
|
||||
my $rules = $_[0]->available_rules;
|
||||
grep { $_->price_type == SL::DB::Manager::PriceRule::PRICE_DISCOUNT() } @$rules
|
||||
| 9589ecd7 | Sven Schöling | }
|
||
sub available_prices {
|
||||
my ($self, %params) = @_;
|
||||
| bc8c26f3 | Sven Schöling | map { $self->make_price_from_rule($_) } $self->available_price_rules;
|
||
| 9589ecd7 | Sven Schöling | }
|
||
| bc8c26f3 | Sven Schöling | sub available_discounts {
|
||
my ($self, %params) = @_;
|
||||
map { $self->make_discount_from_rule($_) } $self->available_discount_rules;
|
||||
}
|
||||
| fd938095 | Sven Schöling | |||
| 9589ecd7 | Sven Schöling | sub price_from_source {
|
||
my ($self, $source, $spec) = @_;
|
||||
my $rule = SL::DB::Manager::PriceRule->find_by(id => $spec);
|
||||
| bc8c26f3 | Sven Schöling | if ($rule->price_type == SL::DB::Manager::PriceRule::PRICE_DISCOUNT()) {
|
||
return $self->make_discount_from_rule($rule);
|
||||
} else {
|
||||
return $self->make_price_from_rule($rule);
|
||||
}
|
||||
| 9589ecd7 | Sven Schöling | }
|
||
sub best_price {
|
||||
my ($self) = @_;
|
||||
| bc8c26f3 | Sven Schöling | my @rules = $self->available_price_rules;
|
||
| 3a45c5ca | Sven Schöling | |||
| bc8c26f3 | Sven Schöling | return unless @rules;
|
||
| 3a45c5ca | Sven Schöling | |||
| bc8c26f3 | Sven Schöling | my @max_prio = max_by { $_->priority } @rules;
|
||
| 3a45c5ca | Sven Schöling | my $min_price = min_by { $self->price_for_rule($_) } @max_prio;
|
||
$self->make_price_from_rule($min_price);
|
||||
| 9589ecd7 | Sven Schöling | }
|
||
| bc8c26f3 | Sven Schöling | sub best_discount {
|
||
my ($self) = @_;
|
||||
my @rules = $self->available_discount_rules;
|
||||
return unless @rules;
|
||||
my @max_prio = max_by { $_->priority } @rules;
|
||||
my $max_discount = max_by { $_->discount } @max_prio;
|
||||
$self->make_discount_from_rule($max_discount);
|
||||
}
|
||||
| fd938095 | Sven Schöling | |||
| 9589ecd7 | Sven Schöling | sub price_for_rule {
|
||
my ($self, $rule) = @_;
|
||||
| bc8c26f3 | Sven Schöling | $rule->price_type != SL::DB::Manager::PriceRule::PRICE_NEW()
|
||
? (1 - $rule->reduction / 100) * ($rule->is_sales ? $self->part->sellprice : $self->part->lastcost)
|
||||
| a3f9809d | Sven Schöling | : $rule->price;
|
||
| 9589ecd7 | Sven Schöling | }
|
||
sub make_price_from_rule {
|
||||
my ($self, $rule) = @_;
|
||||
SL::PriceSource::Price->new(
|
||||
price => $self->price_for_rule($rule),
|
||||
spec => $rule->id,
|
||||
description => $rule->name,
|
||||
| 9f666261 | Sven Schöling | priority => $rule->priority,
|
||
| 9589ecd7 | Sven Schöling | price_source => $self,
|
||
| 9b8edca0 | Sven Schöling | (invalid => t8('This Price Rule is no longer valid'))x!!$rule->obsolete,
|
||
| 9589ecd7 | Sven Schöling | )
|
||
}
|
||||
| bc8c26f3 | Sven Schöling | sub make_discount_from_rule {
|
||
my ($self, $rule) = @_;
|
||||
SL::PriceSource::Discount->new(
|
||||
discount => $rule->discount / 100,
|
||||
spec => $rule->id,
|
||||
description => $rule->name,
|
||||
| 9f666261 | Sven Schöling | priority => $rule->priority,
|
||
| bc8c26f3 | Sven Schöling | price_source => $self,
|
||
| 9b8edca0 | Sven Schöling | (invalid => t8('This Price Rule is no longer valid'))x!!$rule->obsolete,
|
||
| bc8c26f3 | Sven Schöling | )
|
||
}
|
||||
| 9589ecd7 | Sven Schöling | 1;
|