use SL::Dev::Part qw(new_part new_assembly);
use SL::Dev::Inventory qw(create_warehouse_and_bins set_stock);
use SL::Dev::Record qw(create_sales_order);
-use SL::DB::Helper::Reservation qw(make_reservation);
use_ok 'Support::TestSetup';
use_ok 'SL::DB::Bin';
is(SL::Helper::Inventory::get_stock(part => $assembly1), "60.00000", 'normal get_stock works');
is(SL::Helper::Inventory::get_onhand(part => $assembly1), "60.00000", 'normal get_onhand works');
-# reserve some of it, get_stock, get_onhand
-
-my $order = create_sales_order(save => 1);
-
-make_reservation(
- part => $assembly1,
- bin => $bin1,
- reserve_for => $order,
- qty => 25,
-);
-
-is(WH->get_stock_(part => $assembly1), "60.00000", 'normal get_stock works');
-is(WH->get_onhand_(part => $assembly1), "35.00000", 'normal get_onhand works');
-
# allocate some stuff
my @allocations = SL::Helper::Inventory::allocate(
chargenumber => '',
parts_id => $assembly1->id,
qty => 12,
- reserve_for_id => undef,
- reserve_for_table => undef,
warehouse_id => $wh->id,
comment => undef,
for_object_id => undef,
# simple
-# with reservation
-
# more than exists
# produce something