Refactoring
[kivitendo-erp.git] / SL / DB / OrderItem.pm
1 package SL::DB::OrderItem;
2
3 use strict;
4
5 use List::Util qw(sum);
6
7 use SL::DB::MetaSetup::OrderItem;
8 use SL::DB::Manager::OrderItem;
9 use SL::DB::Helper::CustomVariables (
10   sub_module  => 'orderitems',
11   cvars_alias => 1,
12   overloads   => {
13     parts_id => {
14       class => 'SL::DB::Part',
15       module => 'IC',
16     }
17   },
18 );
19
20 __PACKAGE__->meta->initialize;
21
22 sub is_price_update_available {
23   my $self = shift;
24   return $self->origprice > $self->part->sellprice;
25 }
26
27 sub shipped_qty {
28   my ($self) = @_;
29
30   my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder');
31   my @doi      = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @$d_orders;
32
33   require SL::AM;
34   return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi);
35 }
36
37 1;