Revision 72c4037d
Von Sven Schöling vor mehr als 7 Jahren hinzugefügt
| t/helper/shipped_qty.t | ||
|---|---|---|
|
|
||
|
clear_up();
|
||
|
|
||
|
{
|
||
|
# legacy unlinked scenario:
|
||
|
#
|
||
|
# order with two positions of the same part, qtys: 5, 3.
|
||
|
# 3 linked delivery orders, with positions:
|
||
|
# 1: 3 unlinked
|
||
|
# 2: 1 linked to 1, 3 linked to 2
|
||
|
# 3: 1 linked to 1
|
||
|
#
|
||
|
# should be resolved under fill_up as 5/3, but gets resolved as 4/4
|
||
|
my $part = new_part()->save;
|
||
|
my $order = create_sales_order(
|
||
|
orderitems => [
|
||
|
create_order_item(part => $part, qty => 5),
|
||
|
create_order_item(part => $part, qty => 3),
|
||
|
],
|
||
|
)->save;
|
||
|
my $do1 = create_sales_delivery_order(
|
||
|
orderitems => [
|
||
|
create_delivery_order_item(part => $part, qty => 3),
|
||
|
],
|
||
|
);
|
||
|
my $do2 = create_sales_delivery_order(
|
||
|
orderitems => [
|
||
|
create_delivery_order_item(part => $part, qty => 1),
|
||
|
create_delivery_order_item(part => $part, qty => 3),
|
||
|
],
|
||
|
);
|
||
|
my $do3 = create_sales_delivery_order(
|
||
|
orderitems => [
|
||
|
create_delivery_order_item(part => $part, qty => 1),
|
||
|
],
|
||
|
);
|
||
|
$order->link_to_record($do1);
|
||
|
$order->link_to_record($do2);
|
||
|
$order->items_sorted->[0]->link_to_record($do2->items_sorted->[0]);
|
||
|
$order->items_sorted->[1]->link_to_record($do2->items_sorted->[1]);
|
||
|
$order->link_to_record($do3);
|
||
|
$order->items_sorted->[0]->link_to_record($do3->items->[0]);
|
||
|
|
||
|
SL::Helper::ShippedQty
|
||
|
->new(fill_up => 1, require_stock_out => 0)
|
||
|
->calculate($order)
|
||
|
->write_to_objects;
|
||
|
|
||
|
is $order->items_sorted->[0]->{shipped_qty}, 5, 'unlinked legacy position test 1';
|
||
|
is $order->items_sorted->[1]->{shipped_qty}, 3, 'unlinked legacy position test 2';
|
||
|
}
|
||
|
|
||
|
clear_up();
|
||
|
|
||
|
done_testing;
|
||
|
|
||
|
sub clear_up {
|
||
Auch abrufbar als: Unified diff
shipped_qty: Testfall uas realem Bug