use SL::DB::Inventory;
use SL::DB::TransferType;
use SL::DBUtils;
+use SL::Helper::ShippedQty;
use SL::PriceSource;
use SL::TransNumber;
use SL::Util qw(trim);
push @{ $entry->{errors} }, $::locale->text('Error: More than one source order found');
}
+ foreach my $order (@$orders) {
+ $self->{remaining_source_qtys_by_item_id} = { map { $_->id => $_->qty } @{ $order->items } };
+ }
+
$record->{source_orders} = $orders;
}
return if !@{ $record->{source_orders} };
+ # Todo: units?
+
foreach my $order (@{ $record->{source_orders} }) {
- $item->{source_item} = first { $item->parts_id == $_->parts_id && $item->qty == $_->qty} @{ $order->items_sorted };
- last if $item->{source_item};
+ # First: Excact matches and source order position is still complete.
+ $item->{source_item} = first {
+ $item->parts_id == $_->parts_id
+ && $item->qty == $_->qty
+ && $self->{remaining_source_qtys_by_item_id}->{$_->id} == $_->qty
+ } @{ $order->items_sorted };
+ if ($item->{source_item}) {
+ $self->{remaining_source_qtys_by_item_id}->{$item->{source_item}->id} -= $item->qty;
+ last;
+ }
+
+ # Second: Smallest remaining order qty greater or equal delivery order qty.
+ $item->{source_item} = first {
+ $item->parts_id == $_->parts_id
+ && $self->{remaining_source_qtys_by_item_id}->{$_->id} >= $item->qty
+ } sort { $self->{remaining_source_qtys_by_item_id}->{$a->id} <=> $self->{remaining_source_qtys_by_item_id}->{$b->id} } @{ $order->items_sorted };
+ if ($item->{source_item}) {
+ $self->{remaining_source_qtys_by_item_id}->{$item->{source_item}->id} -= $item->qty;
+ last;
+ }
+
+ # Last: Overdelivery?
+ # $item->{source_item} = first {
+ # $item->parts_id == $_->parts_id
+ # } @{ $order->items_sorted };
+ # if ($item->{source_item}) {
+ # $self->{remaining_source_qtys_by_item_id}->{$item->{source_item}->id} -= $item->qty;
+ # last;
+ # }
}
}
# delivery order for all positions created?
if (scalar(@$orders)) {
- foreach my $order (@{ $orders }) {
- my $all_deliverd;
- foreach my $orderitem (@{ $order->items }) {
- my $delivered_qty = 0;
- foreach my $do_item (@{$orderitem->linked_records(to => 'DeliveryOrderItem')}) {
- $delivered_qty += $do_item->unit_obj->convert_to($do_item->qty, $orderitem->unit_obj);
- }
- $all_deliverd = $orderitem->qty <= $delivered_qty;
- last if !$all_deliverd;
- }
- $order->update_attributes(delivered => !!$all_deliverd);
- }
+ SL::Helper::ShippedQty->new->calculate($orders)->write_to_objects;
+ $_->update_attributes(delivered => $_->delivered) for @{ $orders };
}
# inventory (or use WH->transfer?)