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::DeliveryOrderItemsStock;
  10 use SL::DB::Helper::ActsAsList;
  11 use SL::DB::Helper::LinkedRecords;
  12 use SL::DB::Helper::RecordItem;
  13 use SL::DB::Helper::CustomVariables (
  14   sub_module  => 'orderitems',
  15   cvars_alias => 1,
  16   overloads   => {
  17     parts_id => {
  18       class => 'SL::DB::Part',
  19       module => 'IC',
  20     }
  21   },
  22 );
  23
  24 __PACKAGE__->meta->initialize;
  25
  26 __PACKAGE__->configure_acts_as_list(group_by => [qw(trans_id)]);
  27
  28 sub is_price_update_available {
  29   my $self = shift;
  30   return $self->origprice > $self->part->sellprice;
  31 }
  32
  33 sub shipped_qty {
  34   my ($self) = @_;
  35
  36   my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder');
  37   my @doi      = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @$d_orders;
  38
  39   require SL::AM;
  40   return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi);
  41 }
  42
  43 sub delivered_qty {
  44   my ($self) = @_;
  45
  46   return $self->_delivered_qty;
  47 }
  48
  49 sub _delivered_qty {
  50   my ($self) = @_;
  51
  52   return $self->{delivered_qty} if $self->{delivered_qty};
  53
  54   my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder');
  55
  56   my @d_orders_delivered = grep { $_->delivered } @$d_orders;
  57
  58   my @doi_delivered      = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @d_orders_delivered;
  59
  60   require SL::AM;
  61   $self->{delivered_qty} =  sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi_delivered);
  62
  63   return $self->{delivered_qty};
  64 }
  65
  66 sub value_of_goods {
  67   my ($self) = @_;
  68
  69   my $price_factor = $self->price_factor || 1;
  70
  71   $self->_delivered_qty;
  72   return ($self->_delivered_qty * $self->sellprice * (1 - $self->discount ) / $price_factor);
  73 }
  74
  75 sub stocked_qty {
  76   my ($self) = @_;
  77
  78   my $d_orders   = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder');
  79   my @doi        = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @$d_orders;
  80
  81   return 0 if !@doi;
  82
  83   my $doi_stocks = SL::DB::Manager::DeliveryOrderItemsStock->get_all(query => [delivery_order_item_id => [ map {$_->id} @doi ]]);
  84
  85   require SL::AM;
  86   return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @{ $doi_stocks });
  87 }
  88
  89 sub taxincluded {
  90   my ($self) = @_;
  91
  92   return SL::DB::Manager::Order->find_by(id => $self->trans_id)->taxincluded ?  $::locale->text('WARN: Tax included value!') : '';
  93 }
  94
  95 sub record { goto &order }
  96
  97 1;