Lagerbewegungs-Import: Charge beim Ermitteln des Bestands berücksichtigen.
[kivitendo-erp.git] / SL / PriceSource / Pricegroup.pm
1 package SL::PriceSource::Pricegroup;
2
3 use strict;
4 use parent qw(SL::PriceSource::Base);
5
6 use SL::PriceSource::Price;
7 use SL::DB::Price;
8 use SL::Locale::String;
9 use List::UtilsBy qw(min_by);
10 use List::Util qw(first);
11
12 sub name { 'pricegroup' }
13
14 sub description { t8('Pricegroup') }
15
16 sub available_prices {
17   my ($self, %params) = @_;
18
19   return () unless $self->record->is_sales;
20
21   my $item = $self->record_item;
22
23   my $prices = SL::DB::Manager::Price->get_all(
24     query        => [ parts_id => $item->parts_id, price => { gt => 0 } ],
25     with_objects => 'pricegroup',
26     order_by     => 'pricegroun.id',
27   );
28
29   return () unless @$prices;
30
31   return map {
32     $self->make_price($_);
33   } @$prices;
34 }
35
36 sub available_discounts { }
37
38 sub price_from_source {
39   my ($self, $source, $spec) = @_;
40
41   my $price = SL::DB::Manager::Price->find_by(pricegroup_id => $spec, parts_id => $self->part->id);
42
43   # TODO: if someone deletes the prices entry, this fails. add a fallback
44   return $self->make_price($price);
45 }
46
47 sub best_price {
48   my ($self, %params) = @_;
49
50   return () unless $self->record->is_sales;
51
52   my @prices    = $self->available_prices;
53   my $customer  = $self->record->customer;
54
55   return () if !$customer || !$customer->klass;
56
57   my $best_price = first { $_->spec == $customer->klass } @prices;
58
59   return $best_price || ();
60 }
61
62 sub best_discount { }
63
64 sub make_price {
65   my ($self, $price_obj) = @_;
66
67   SL::PriceSource::Price->new(
68     price        => $price_obj->price,
69     spec         => $price_obj->pricegroup->id,
70     description  => $price_obj->pricegroup->pricegroup,
71     price_source => $self,
72   )
73 }
74
75 1;