SL/DB/OrderItem.pm

   1 package SL::DB::OrderItem;
   2
   3 use strict;
   4
   5 use List::Util qw(sum);
   6 use SL::AM;
   7
   8 use SL::DB::MetaSetup::OrderItem;
   9 use SL::DB::Helper::CustomVariables (
  10   sub_module  => 'orderitems',
  11   cvars_alias => 1,
  12   overloads   => {
  13     parts_id => 'SL::DB::Part',
  14   },
  15 );
  16
  17 __PACKAGE__->meta->add_relationship(
  18   part => {
  19     type         => 'one to one',
  20     class        => 'SL::DB::Part',
  21     column_map   => { parts_id => 'id' },
  22   },
  23   price_factor_obj => {
  24     type           => 'one to one',
  25     class          => 'SL::DB::PriceFactor',
  26     column_map     => { price_factor_id => 'id' },
  27   },
  28   unit_obj       => {
  29     type         => 'one to one',
  30     class        => 'SL::DB::Unit',
  31     column_map   => { unit => 'name' },
  32   },
  33   order => {
  34     type         => 'one to one',
  35     class        => 'SL::DB::Order',
  36     column_map   => { trans_id => 'id' },
  37   },
  38 );
  39
  40 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
  41 __PACKAGE__->meta->make_manager_class;
  42
  43 __PACKAGE__->meta->initialize;
  44
  45 sub is_price_update_available {
  46   my $self = shift;
  47   return $self->origprice > $self->part->sellprice;
  48 }
  49
  50 sub shipped_qty {
  51   my ($self) = @_;
  52
  53   my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder');
  54   my @doi      = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @$d_orders;
  55
  56   return sum(map { AM->convert_unit($_->unit => $self->unit) * $_->qty } @doi);
  57 }
  58
  59 package SL::DB::Manager::OrderItem;
  60
  61 use SL::DB::Helper::Paginated;
  62 use SL::DB::Helper::Sorted;
  63
  64 sub _sort_spec {
  65   return ( columns => { delivery_date => [ 'deliverydate',        ],
  66                         description   => [ 'lower(orderitems.description)',  ],
  67                         partnumber    => [ 'part.partnumber',     ],
  68                         qty           => [ 'qty'                  ],
  69                         ordnumber     => [ 'order.ordnumber'      ],
  70                         customer      => [ 'lower(customer.name)', ],
  71                         position      => [ 'trans_id', 'runningnumber' ],
  72                         reqdate       => [ 'COALESCE(orderitems.reqdate, order.reqdate)' ],
  73                         orddate       => [ 'order.orddate' ],
  74                         sellprice     => [ 'sellprice' ],
  75                         discount      => [ 'discount' ],
  76                         transdate     => [ 'transdate::date', 'order.reqdate' ],
  77                       },
  78            default => [ 'position', 1 ],
  79            nulls   => { }
  80          );
  81 }
  82
  83 sub default_objects_per_page { 40 }
  84
  85 1;