1 package SL::DB::DeliveryOrder;
5 use SL::DB::MetaSetup::DeliveryOrder;
6 use SL::DB::Manager::DeliveryOrder;
7 use SL::DB::Helper::LinkedRecords;
8 use SL::DB::Helper::TransNumberGenerator;
11 use List::Util qw(first);
13 __PACKAGE__->meta->add_relationship(orderitems => { type => 'one to many',
14 class => 'SL::DB::DeliveryOrderItem',
15 column_map => { id => 'trans_id' },
16 manager_args => { with_objects => [ 'part' ] }
20 __PACKAGE__->meta->initialize;
24 sub items { goto &orderitems; }
30 my $orders = SL::DB::Manager::Order->get_all(
32 ordnumber => $self->ordnumber,
33 @{ $params{query} || [] },
37 return first { $_->is_type('sales_order') } @{ $orders };