do_unit => $unit,
delivered => $self->order->delivered,
row => $row,
- itme_id => $item_id,
+ item_id => $item_id,
);
}
# You need a custom shipto object to call cvars_by_config to get the cvars.
$self->order->custom_shipto(SL::DB::Shipto->new(module => 'OE', custom_variables => [])) if !$self->order->custom_shipto;
+ $self->prepare_stock_info($_) for $self->order->items;
+
return $self->order;
}
push @items, $item;
$pos++;
}
+
+ $self->prepare_stock_info($_) for $order->items, @items;
+
$order->add_items(grep {!$_->id} @items);
return $order;
# saved. Adding empty custom_variables to new orderitem here solves this problem.
$item ||= SL::DB::DeliveryOrderItem->new(custom_variables => []);
+ # handle stock info
+ if (my $stock_info = delete $attr->{stock_info}) {
+ my %existing = map { $_->id => $_ } $item->delivery_order_stock_entries;
+ my @save;
+
+ for my $line (@{ DO->unpack_stock_information(packed => $stock_info) }) {
+ # lookup existing or make new
+ my $obj = delete $existing{$line->{delivery_order_items_stock_id}}
+ // SL::DB::DeliveryOrderItemsStock->new;
+
+ # assign attributes
+ $obj->$_($line->{$_}) for qw(bin_id warehouse_id chargenumber qty unit);
+ $obj->bestbefore_as_date($line->{bestfbefore})
+ if $line->{bestbefore} && $::instance_conf->get_show_bestbefore;
+ push @save, $obj;
+ }
+
+ $item->delivery_order_stock_entries(@save);
+ }
+
$item->assign_attributes(%$attr);
if ($is_new) {
return $item;
}
+sub prepare_stock_info {
+ my ($self, $item) = @_;
+
+ $item->{stock_info} = SL::YAML::Dump([
+ map +{
+ delivery_order_items_stock_id => $_->id,
+ qty => $_->qty,
+ warehouse_id => $_->warehouse_id,
+ bin_id => $_->bin_id,
+ chargenumber => $_->chargenumber,
+ unit => $_->unit,
+ }, $item->delivery_order_stock_entries
+ ]);
+}
+
sub setup_order_from_cv {
my ($order) = @_;