t/wh/inventory.t

   1 use strict;
   2 use Test::More;
   3 use Test::Exception;
   4
   5 use lib 't';
   6
   7 use SL::Dev::Part qw(new_part new_assembly);
   8 use SL::Dev::Inventory qw(create_warehouse_and_bins set_stock);
   9 use SL::Dev::Record qw(create_sales_order);
  10
  11 use_ok 'Support::TestSetup';
  12 use_ok 'SL::DB::Bin';
  13 use_ok 'SL::DB::Part';
  14 use_ok 'SL::DB::Warehouse';
  15 use_ok 'SL::DB::Inventory';
  16 use_ok 'SL::WH';
  17 use_ok 'SL::Helper::Inventory';
  18
  19 Support::TestSetup::login();
  20
  21 my ($wh, $bin1, $bin2, $assembly1, $part1, $part2);
  22
  23 reset_db();
  24 create_standard_stock();
  25
  26
  27 # simple stock in, get_stock, get_onhand
  28 set_stock(
  29   part => $part1,
  30   qty => 25,
  31   bin => $bin1,
  32 );
  33
  34 is(SL::Helper::Inventory::get_stock(part => $part1), "25.00000", 'simple get_stock works');
  35 is(SL::Helper::Inventory::get_onhand(part => $part1), "25.00000", 'simple get_onhand works');
  36
  37 # stock on some more, get_stock, get_onhand
  38
  39 WH->transfer({
  40   parts_id          => $part1->id,
  41   qty               => 15,
  42   transfer_type     => 'stock',
  43   dst_warehouse_id  => $bin1->warehouse_id,
  44   dst_bin_id        => $bin1->id,
  45   comment           => 'more',
  46 });
  47
  48 WH->transfer({
  49   parts_id          => $part1->id,
  50   qty               => 20,
  51   transfer_type     => 'stock',
  52   chargenumber      => '298345',
  53   dst_warehouse_id  => $bin1->warehouse_id,
  54   dst_bin_id        => $bin1->id,
  55   comment           => 'more',
  56 });
  57
  58 is(SL::Helper::Inventory::get_stock(part => $part1), "60.00000", 'normal get_stock works');
  59 is(SL::Helper::Inventory::get_onhand(part => $part1), "60.00000", 'normal get_onhand works');
  60
  61 # allocate some stuff
  62
  63 my @allocations = SL::Helper::Inventory::allocate(
  64   part => $part1,
  65   qty  => 12,
  66 );
  67
  68 is_deeply(\%{ $allocations[0] }, {
  69    bestbefore        => undef,
  70    bin_id            => $bin1->id,
  71    chargenumber      => '',
  72    parts_id          => $part1->id,
  73    qty               => 12,
  74    warehouse_id      => $wh->id,
  75    comment           => undef, # comment is not a partition so is not set by allocate
  76    for_object_id     => undef,
  77  }, 'allocation works');
  78
  79 # allocate something where more than one result will match
  80
  81 @allocations = SL::Helper::Inventory::allocate(
  82   part => $part1,
  83   qty  => 55,
  84 );
  85
  86 is_deeply(\@allocations, [
  87   {
  88     bestbefore        => undef,
  89     bin_id            => $bin1->id,
  90     chargenumber      => '',
  91     parts_id          => $part1->id,
  92     qty               => '40.00000',
  93     warehouse_id      => $wh->id,
  94     comment           => undef,
  95     for_object_id     => undef,
  96   },
  97   {
  98     bestbefore        => undef,
  99     bin_id            => $bin1->id,
 100     chargenumber      => '298345',
 101     parts_id          => $part1->id,
 102     qty               => '15',
 103     warehouse_id      => $wh->id,
 104     comment           => undef,
 105     for_object_id     => undef,
 106   }
 107 ], 'complex allocation works');
 108
 109 # try to allocate too much
 110
 111 dies_ok(sub {
 112   SL::Helper::Inventory::allocate(part => $part1, qty => 100)
 113 },
 114 "allocate too much dies");
 115
 116 # produce something
 117
 118 reset_db();
 119 create_standard_stock();
 120
 121 set_stock(
 122   part => $part1,
 123   qty => 5,
 124   bin => $bin1,
 125 );
 126 set_stock(
 127   part => $part2,
 128   qty => 10,
 129   bin => $bin1,
 130 );
 131
 132
 133 my @alloc1 = SL::Helper::Inventory::allocate(part => $part1, qty => 3);
 134 my @alloc2 = SL::Helper::Inventory::allocate(part => $part2, qty => 3);
 135
 136 SL::Helper::Inventory::produce_assembly(
 137   part          => $assembly1,
 138   qty           => 3,
 139   allocations => [ @alloc1, @alloc2 ],
 140
 141   # where to put it
 142   bin          => $bin1,
 143   chargenumber => "537",
 144 );
 145
 146 is(SL::Helper::Inventory::get_stock(part => $assembly1), "3.00000", 'produce works');
 147 is(SL::Helper::Inventory::get_stock(part => $part1), "2.00000", 'and consumes...');
 148 is(SL::Helper::Inventory::get_stock(part => $part2), "7.00000", '..the materials');
 149
 150 # produce the same using auto_allocation
 151
 152 reset_db();
 153 create_standard_stock();
 154
 155 set_stock(
 156   part => $part1,
 157   qty => 5,
 158   bin => $bin1,
 159 );
 160 set_stock(
 161   part => $part2,
 162   qty => 10,
 163   bin => $bin1,
 164 );
 165
 166 SL::Helper::Inventory::produce_assembly(
 167   part          => $assembly1,
 168   qty           => 3,
 169   auto_allocate => 1,
 170
 171   # where to put it
 172   bin          => $bin1,
 173   chargenumber => "537",
 174 );
 175
 176 is(SL::Helper::Inventory::get_stock(part => $assembly1), "3.00000", 'produce with auto allocation works');
 177 is(SL::Helper::Inventory::get_stock(part => $part1), "2.00000", 'and consumes...');
 178 is(SL::Helper::Inventory::get_stock(part => $part2), "7.00000", '..the materials');
 179
 180 # try to produce without allocations dies
 181
 182 dies_ok(sub {
 183 SL::Helper::Inventory::produce_assembly(
 184   part          => $assembly1,
 185   qty           => 3,
 186
 187   # where to put it
 188   bin          => $bin1,
 189   chargenumber => "537",
 190 );
 191 }, "producing without allocations dies");
 192
 193 # try to produce with insufficient allocations dies
 194
 195 @alloc1 = SL::Helper::Inventory::allocate(part => $part1, qty => 1);
 196 @alloc2 = SL::Helper::Inventory::allocate(part => $part2, qty => 1);
 197
 198 dies_ok(sub {
 199 SL::Helper::Inventory::produce_assembly(
 200   part          => $assembly1,
 201   qty           => 3,
 202   allocations => [ @alloc1, @alloc2 ],
 203
 204   # where to put it
 205   bin          => $bin1,
 206   chargenumber => "537",
 207 );
 208 }, "producing with insufficient allocations dies");
 209
 210
 211
 212 # bestbefore tests
 213
 214 reset_db();
 215 create_standard_stock();
 216
 217 set_stock(
 218   part => $part1,
 219   qty => 5,
 220   bin => $bin1,
 221 );
 222 set_stock(
 223   part => $part2,
 224   qty => 10,
 225   bin => $bin1,
 226 );
 227
 228
 229
 230 SL::Helper::Inventory::produce_assembly(
 231   part          => $assembly1,
 232   qty           => 3,
 233   auto_allocate => 1,
 234
 235   bin               => $bin1,
 236   chargenumber      => "537",
 237   bestbefore        => DateTime->today->clone->add(days => -14), # expired 2 weeks ago
 238   shippingdate      => DateTime->today->clone->add(days => 1),
 239 );
 240
 241 is(SL::Helper::Inventory::get_stock(part => $assembly1), "3.00000", 'produce with bestbefore works');
 242 is(SL::Helper::Inventory::get_onhand(part => $assembly1), "3.00000", 'produce with bestbefore works');
 243 is(SL::Helper::Inventory::get_stock(
 244   part       => $assembly1,
 245   bestbefore => DateTime->today,
 246 ), undef, 'get_stock with bestbefore date skips expired');
 247 {
 248   local $::instance_conf->data->{show_bestbefore} = 1;
 249   is(SL::Helper::Inventory::get_onhand(
 250     part       => $assembly1,
 251   ), undef, 'get_onhand with bestbefore skips expired as of today');
 252 }
 253
 254 {
 255   local $::instance_conf->data->{show_bestbefore} = 0;
 256   is(SL::Helper::Inventory::get_onhand(
 257     part       => $assembly1,
 258   ), "3.00000", 'get_onhand without bestbefore finds all');
 259 }
 260
 261
 262 sub reset_db {
 263   SL::DB::Manager::Order->delete_all(all => 1);
 264   SL::DB::Manager::Inventory->delete_all(all => 1);
 265   SL::DB::Manager::Assembly->delete_all(all => 1);
 266   SL::DB::Manager::Part->delete_all(all => 1);
 267   SL::DB::Manager::Bin->delete_all(all => 1);
 268   SL::DB::Manager::Warehouse->delete_all(all => 1);
 269 }
 270
 271 sub create_standard_stock {
 272   ($wh, $bin1) = create_warehouse_and_bins();
 273   $bin2 = SL::DB::Bin->new(description => "Bin 2", warehouse => $wh)->save;
 274   $wh->load;
 275
 276   $assembly1  =  new_assembly(number_of_parts => 2)->save;
 277   ($part1, $part2) = map { $_->part } $assembly1->assemblies;
 278 }
 279
 280
 281 reset_db();
 282
 283 done_testing();
 284
 285 1;