1 package SL::DB::DeliveryOrder;
7 use SL::DB::MetaSetup::DeliveryOrder;
8 use SL::DB::Manager::DeliveryOrder;
9 use SL::DB::Helper::FlattenToForm;
10 use SL::DB::Helper::LinkedRecords;
11 use SL::DB::Helper::TransNumberGenerator;
13 use List::Util qw(first);
15 __PACKAGE__->meta->add_relationship(orderitems => { type => 'one to many',
16 class => 'SL::DB::DeliveryOrderItem',
17 column_map => { id => 'delivery_order_id' },
18 manager_args => { with_objects => [ 'part' ] }
22 class => 'SL::DB::Shipto',
23 column_map => { id => 'trans_id' },
24 query_args => [ module => 'DO' ],
28 __PACKAGE__->meta->initialize;
30 __PACKAGE__->before_save('_before_save_set_donumber');
34 sub _before_save_set_donumber {
37 $self->create_trans_number if !$self->donumber;
44 sub items { goto &orderitems; }
49 return [ sort {$a->id <=> $b->id } @{ $self->items } ];
57 require SL::DB::Order;
58 my $orders = SL::DB::Manager::Order->get_all(
60 ordnumber => $self->ordnumber,
61 @{ $params{query} || [] },
65 return first { $_->is_type('sales_order') } @{ $orders };
69 return shift->customer_id ? 'sales_delivery_order' : 'purchase_delivery_order';
72 sub displayable_state {
76 ($self->closed ? $::locale->text('closed') : $::locale->text('open')),
77 ($self->delivered ? $::locale->text('delivered') : $::locale->text('not delivered'));
85 my ($class, $source, %params) = @_;
87 croak("Unsupported source object type '" . ref($source) . "'") unless ref($source) eq 'SL::DB::Order';
89 my $terms = $source->can('payment_id') && $source->payment_id ? $source->payment_terms->terms_netto : 0;
91 my %args = ( map({ ( $_ => $source->$_ ) } qw(cp_id currency_id customer_id cusordnumber department_id employee_id globalproject_id intnotes language_id notes
92 ordnumber reqdate salesman_id shippingpoint shipvia taxincluded taxzone_id transaction_description vendor_id
95 is_sales => !!$source->customer_id,
98 transdate => DateTime->today_local,
101 # Custom shipto addresses (the ones specific to the sales/purchase
102 # record and not to the customer/vendor) are only linked from
103 # shipto -> delivery_orders. Meaning delivery_orders.shipto_id
104 # will not be filled in that case. Therefore we have to return the
105 # new shipto object as a separate object so that the caller can
108 if (!$source->shipto_id && $source->id) {
109 require SL::DB::Shipto;
111 my $old = SL::DB::Manager::Shipto->find_by(trans_id => $source->id);
113 $custom_shipto = SL::DB::Shipto->new(
114 map { +($_ => $old->$_) }
115 grep { !m{^ (?: itime | mtime | shipto_id | trans_id ) $}x }
117 @{ $old->meta->columns }
122 $args{shipto_id} = $source->shipto_id;
125 my $delivery_order = $class->new(%args, %params);
128 my $source_item = $_;
129 SL::DB::DeliveryOrderItem->new(map({ ( $_ => $source_item->$_ ) }
130 qw(base_qty cusordnumber description discount lastcost longdescription marge_price_factor ordnumber parts_id price_factor price_factor_id
131 project_id qty reqdate sellprice serialnumber transdate unit
133 } @{ $source->items_sorted };
135 $delivery_order->items(\@items);
137 return ($delivery_order, $custom_shipto);
149 SL::DB::DeliveryOrder - Rose model for delivery orders (table
158 An alias for L</transdate> for compatibility with other sales/purchase models.
160 =item C<displayable_state>
162 Returns a human-readable description of the state regarding being
163 closed and delivered.
167 An alias for L</deliver_orer_items> for compatibility with other
168 sales/purchase models.
170 =item C<items_sorted>
172 Returns the delivery order items sorted by their ID (same order they
173 appear in the frontend delivery order masks).
175 =item C<new_from $source>
177 Creates a new C<SL::DB::DeliveryOrder> instance and copies as much
178 information from C<$source> as possible. At the moment only instances
179 of C<SL::DB::Order> (sales quotations, sales orders, requests for
180 quotations and purchase orders) are supported as sources.
182 The conversion copies order items into delivery order items. Dates are copied
183 as appropriate, e.g. the C<transdate> field will be set to the current date.
185 Returns one or two objects depending on the context. In list context
186 the new delivery order instance and a shipto instance will be
187 returned. In scalar instance only the delivery order instance is
190 Custom shipto addresses (the ones specific to the sales/purchase
191 record and not to the customer/vendor) are only linked from C<shipto>
192 to C<delivery_orders>. Meaning C<delivery_orders.shipto_id> will not
193 be filled in that case. That's why a separate shipto object is created
196 The objects returned are not saved.
200 TODO: Describe sales_order
204 Returns a stringdescribing this record's type: either
205 C<sales_delivery_order> or C<purchase_delivery_order>.
215 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>