kivitendo/SL/PriceSource/Pricegroup.pm @ 6c44a351
| eebe8e90 | Sven Schöling | package SL::PriceSource::Pricegroup;
|
||
use strict;
|
||||
use parent qw(SL::PriceSource::Base);
|
||||
use SL::PriceSource::Price;
|
||||
| df1b03d5 | Sven Schöling | use SL::DB::Price;
|
||
| eebe8e90 | Sven Schöling | use SL::Locale::String;
|
||
| 0409db7c | Sven Schöling | use List::UtilsBy qw(min_by);
|
||
use List::Util qw(first);
|
||||
| eebe8e90 | Sven Schöling | |||
sub name { 'pricegroup' }
|
||||
sub description { t8('Pricegroup') }
|
||||
sub available_prices {
|
||||
my ($self, %params) = @_;
|
||||
| df1b03d5 | Sven Schöling | return () unless $self->record->is_sales;
|
||
| eebe8e90 | Sven Schöling | my $item = $self->record_item;
|
||
| e48eb4dc | Geoffrey Richardson | my $query = [ parts_id => $item->parts_id, price => { gt => 0 } ];
|
||
# add a pricegroup_filter for obsolete pricegroups, unless part of an
|
||||
# existing pricegroup where that pricegroup was actually used.
|
||||
if ( $self->record->id and $item->active_price_source =~ m/^pricegroup/ ) {
|
||||
my ($pricegroup_id) = $item->active_price_source =~ m/^pricegroup\/(\d+)$/;
|
||||
push(@{$query}, or => [ 'pricegroup.obsolete' => 0, 'pricegroup_id' => $pricegroup_id ]);
|
||||
} else {
|
||||
push(@{$query}, 'pricegroup.obsolete' => 0);
|
||||
}
|
||||
| eebe8e90 | Sven Schöling | my $prices = SL::DB::Manager::Price->get_all(
|
||
| e48eb4dc | Geoffrey Richardson | query => $query,
|
||
| eebe8e90 | Sven Schöling | with_objects => 'pricegroup',
|
||
| e48eb4dc | Geoffrey Richardson | sort_by => 'pricegroup.sortkey',
|
||
| eebe8e90 | Sven Schöling | );
|
||
return () unless @$prices;
|
||||
return map {
|
||||
$self->make_price($_);
|
||||
} @$prices;
|
||||
}
|
||||
| 89b26688 | Sven Schöling | sub available_discounts { }
|
||
| eebe8e90 | Sven Schöling | sub price_from_source {
|
||
my ($self, $source, $spec) = @_;
|
||||
| df1b03d5 | Sven Schöling | my $price = SL::DB::Manager::Price->find_by(pricegroup_id => $spec, parts_id => $self->part->id);
|
||
| eebe8e90 | Sven Schöling | |||
| a5b2f9b4 | Bernd Bleßmann | if (!$price) {
|
||
return SL::PriceSource::Price->new(
|
||||
price_source => $self,
|
||||
missing => t8('Could not find an entry for this part in the pricegroup.'),
|
||||
);
|
||||
}
|
||||
| eebe8e90 | Sven Schöling | return $self->make_price($price);
|
||
}
|
||||
| e1c3b6b7 | Bernd Bleßmann | sub discount_from_source { }
|
||
| 0409db7c | Sven Schöling | sub best_price {
|
||
my ($self, %params) = @_;
|
||||
| df1b03d5 | Sven Schöling | return () unless $self->record->is_sales;
|
||
my @prices = $self->available_prices;
|
||||
| 0409db7c | Sven Schöling | my $customer = $self->record->customer;
|
||
| 7349649b | Geoffrey Richardson | return () if !$customer || !$customer->pricegroup_id;
|
||
| 0409db7c | Sven Schöling | |||
| 7349649b | Geoffrey Richardson | my $best_price = first { $_->spec == $customer->pricegroup_id } @prices;
|
||
| 0409db7c | Sven Schöling | |||
| df1b03d5 | Sven Schöling | return $best_price || ();
|
||
| 0409db7c | Sven Schöling | }
|
||
| 89b26688 | Sven Schöling | sub best_discount { }
|
||
| eebe8e90 | Sven Schöling | sub make_price {
|
||
my ($self, $price_obj) = @_;
|
||||
SL::PriceSource::Price->new(
|
||||
price => $price_obj->price,
|
||||
| df1b03d5 | Sven Schöling | spec => $price_obj->pricegroup->id,
|
||
| eebe8e90 | Sven Schöling | description => $price_obj->pricegroup->pricegroup,
|
||
price_source => $self,
|
||||
)
|
||||
}
|
||||
1;
|