Revision e7d334c9
Von Sven Schöling vor fast 8 Jahren hinzugefügt
| t/helper/shipped_qty.t | ||
|---|---|---|
|
]
|
||
|
);
|
||
|
|
||
|
Rose::DB::Object::Helpers::forget_related($purchase_order, 'orderitems');
|
||
|
$purchase_order->orderitems;
|
||
|
|
||
|
SL::Helper::ShippedQty
|
||
|
->new(require_stock_out => 1) # should make no difference while there is no delivery order
|
||
|
->calculate($purchase_order)
|
||
|
->write_to_objects;
|
||
|
|
||
|
is($purchase_order->orderitems->[0]->{shipped_qty}, 0, "first purchase orderitem has no shipped_qty");
|
||
|
is($purchase_order->orderitems->[0]->{delivered}, '', "first purchase orderitem is not delivered");
|
||
|
ok(!$purchase_order->orderitems->[0]->{delivered}, "first purchase orderitem is not delivered");
|
||
|
|
||
|
my $purchase_orderitem_part1 = SL::DB::Manager::OrderItem->find_by( parts_id => $part1->id, trans_id => $purchase_order->id);
|
||
|
|
||
|
is($purchase_orderitem_part1->shipped_qty, 0, "OrderItem shipped_qty method ok");
|
||
|
|
||
|
is($purchase_order->closed, 0, 'purchase order is open');
|
||
|
is($purchase_order->delivered, '', 'purchase order is not delivered');
|
||
|
ok(!$purchase_order->delivered, 'purchase order is not delivered');
|
||
|
|
||
|
note('converting purchase order to delivery order');
|
||
|
# create purchase delivery order from purchase order
|
||
|
my $purchase_delivery_order = $purchase_order->convert_to_delivery_order;
|
||
|
is($purchase_order->closed, 0, 'purchase order is open');
|
||
|
is($purchase_order->delivered, 1, 'purchase order is now delivered');
|
||
|
ok($purchase_order->delivered, 'purchase order is now delivered');
|
||
|
|
||
|
SL::Helper::ShippedQty
|
||
|
->new(require_stock_out => 0)
|
||
| ... | ... | |
|
->write_to_objects;
|
||
|
|
||
|
is($purchase_order->orderitems->[0]->{shipped_qty}, 11, "require_stock_out => 0: first purchase orderitem has shipped_qty");
|
||
|
is($purchase_order->orderitems->[0]->{delivered}, 1, "require_stock_out => 0: first purchase orderitem is delivered");
|
||
|
ok($purchase_order->orderitems->[0]->{delivered}, "require_stock_out => 0: first purchase orderitem is delivered");
|
||
|
|
||
|
Rose::DB::Object::Helpers::forget_related($purchase_order, 'orderitems');
|
||
|
$purchase_order->orderitems;
|
||
| ... | ... | |
|
->write_to_objects;
|
||
|
|
||
|
is($purchase_order->orderitems->[0]->{shipped_qty}, 0, "require_stock_out => 1: first purchase orderitem has no shipped_qty");
|
||
|
is($purchase_order->orderitems->[0]->{delivered}, '', "require_stock_out => 1: first purchase orderitem is not delivered");
|
||
|
ok(!$purchase_order->orderitems->[0]->{delivered}, "require_stock_out => 1: first purchase orderitem is not delivered");
|
||
|
|
||
|
# ship items from delivery order
|
||
|
SL::Dev::Inventory::transfer_purchase_delivery_order($purchase_delivery_order);
|
||
| ... | ... | |
|
$purchase_order->orderitems;
|
||
|
|
||
|
SL::Helper::ShippedQty
|
||
|
->new(require_stock_out => 1) # shouldn't make a difference now after shipping
|
||
|
->new(require_stock_out => 1, keep_matches => 1) # shouldn't make a difference now after shipping
|
||
|
->calculate($purchase_order)
|
||
|
->write_to_objects;
|
||
|
|
||
|
is($purchase_order->orderitems->[0]->{shipped_qty}, 11, "require_stock_out => 1: first purchase orderitem has shipped_qty");
|
||
|
is($purchase_order->orderitems->[0]->{delivered}, 1, "require_stock_out => 1: first purchase orderitem is delivered");
|
||
|
ok($purchase_order->orderitems->[0]->{delivered}, "require_stock_out => 1: first purchase orderitem is delivered");
|
||
|
|
||
|
my $purchase_orderitem_part2 = SL::DB::Manager::OrderItem->find_by(parts_id => $part1->id, trans_id => $purchase_order->id);
|
||
|
|
||
| ... | ... | |
|
]
|
||
|
);
|
||
|
|
||
|
Rose::DB::Object::Helpers::forget_related($purchase_order, 'orderitems');
|
||
|
$sales_order->orderitems;
|
||
|
|
||
|
SL::Helper::ShippedQty
|
||
|
->new(require_stock_out => 1) # should make no difference while there is no delivery order
|
||
|
->calculate($sales_order)
|
||
|
->write_to_objects;
|
||
|
|
||
|
is($sales_order->orderitems->[0]->{shipped_qty}, 0, "first sales orderitem has no shipped_qty");
|
||
|
is($sales_order->orderitems->[0]->{delivered}, '', "first sales orderitem is not delivered");
|
||
|
ok(!$sales_order->orderitems->[0]->{delivered}, "first sales orderitem is not delivered");
|
||
|
|
||
|
my $orderitem_part1 = SL::DB::Manager::OrderItem->find_by(parts_id => $part1->id, trans_id => $sales_order->id);
|
||
|
my $orderitem_part2 = SL::DB::Manager::OrderItem->find_by(parts_id => $part2->id, trans_id => $sales_order->id);
|
||
| ... | ... | |
|
->write_to_objects;
|
||
|
|
||
|
is($sales_order->orderitems->[0]->{shipped_qty}, 5, "require_stock_out => 0: first sales orderitem has shipped_qty");
|
||
|
is($sales_order->orderitems->[0]->{delivered}, 1, "require_stock_out => 0: first sales orderitem is delivered");
|
||
|
ok($sales_order->orderitems->[0]->{delivered}, "require_stock_out => 0: first sales orderitem is delivered");
|
||
|
|
||
|
Rose::DB::Object::Helpers::forget_related($sales_order, 'orderitems');
|
||
|
$sales_order->orderitems;
|
||
| ... | ... | |
|
->write_to_objects;
|
||
|
|
||
|
is($sales_order->orderitems->[0]->{shipped_qty}, 0, "require_stock_out => 1: first sales orderitem has no shipped_qty");
|
||
|
is($sales_order->orderitems->[0]->{delivered}, '', "require_stock_out => 1: first sales orderitem is not delivered");
|
||
|
ok(!$sales_order->orderitems->[0]->{delivered}, "require_stock_out => 1: first sales orderitem is not delivered");
|
||
|
|
||
|
# ship items from delivery order
|
||
|
SL::Dev::Inventory::transfer_sales_delivery_order($sales_delivery_order);
|
||
| ... | ... | |
|
->write_to_objects;
|
||
|
|
||
|
is($sales_order->orderitems->[0]->{shipped_qty}, 5, "require_stock_out => 1: first sales orderitem has no shipped_qty");
|
||
|
is($sales_order->orderitems->[0]->{delivered}, 1, "require_stock_out => 1: first sales orderitem is not delivered");
|
||
|
ok($sales_order->orderitems->[0]->{delivered}, "require_stock_out => 1: first sales orderitem is not delivered");
|
||
|
|
||
|
$orderitem_part1 = SL::DB::Manager::OrderItem->find_by(parts_id => $part1->id, trans_id => $sales_order->id);
|
||
|
|
||
Auch abrufbar als: Unified diff
t/helper/shipped_qty.t: diverse Kleinigkeiten
- delivered flag is boolean und muss mit ok() geprüft werden falls
internas geändert werden
- wenn write_to in die items schreiben soll, müssen die auch vorher
geladen sein.