SL/DB/DeliveryOrder.pm

   1 package SL::DB::DeliveryOrder;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::DeliveryOrder;
   6 use SL::DB::Manager::DeliveryOrder;
   7 use SL::DB::Order;
   8
   9 use List::Util qw(first);
  10
  11 __PACKAGE__->meta->add_relationship(orderitems => { type         => 'one to many',
  12                                                     class        => 'SL::DB::DeliveryOrderItem',
  13                                                     column_map   => { id => 'trans_id' },
  14                                                     manager_args => { with_objects => [ 'part' ] }
  15                                                   },
  16                                    );
  17
  18 __PACKAGE__->meta->initialize;
  19
  20 # methods
  21
  22 sub items { goto &orderitems; }
  23
  24 sub sales_order {
  25   my $self   = shift;
  26   my %params = @_;
  27
  28   my $orders = SL::DB::Manager::Order->get_all(
  29     query => [
  30       ordnumber => $self->ordnumber,
  31       @{ $params{query} || [] },
  32     ],
  33   );
  34
  35   return first { $_->is_type('sales_order') } @{ $orders };
  36 }
  37
  38 1;