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 => 'delivery_order_id' },
16 manager_args => { with_objects => [ 'parts' ] }
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 };
41 return shift->customer_id ? 'sales_delivery_order' : 'purchase_delivery_order';
44 sub displayable_state {
48 ($self->closed ? $::locale->text('closed') : $::locale->text('open')),
49 ($self->delivered ? $::locale->text('delivered') : $::locale->text('not delivered'));