t/helper/shipped_qty.t

   1 use strict;
   2 use Test::More;
   3
   4 use lib 't';
   5 use Support::TestSetup;
   6 use Carp;
   7 use Test::Exception;
   8 use Data::Dumper;
   9 use SL::DB::Part;
  10 use SL::DB::Inventory;
  11 use SL::DB::TransferType;
  12 use SL::DB::Order;
  13 use SL::DB::DeliveryOrder;
  14 use SL::DB::Customer;
  15 use SL::DB::Vendor;
  16 use SL::DB::RecordLink;
  17 use SL::DB::DeliveryOrderItemsStock;
  18 use SL::DB::Bin;
  19 use SL::WH;
  20 use SL::AM;
  21 use SL::Dev::ALL qw(:ALL);
  22 use SL::Helper::ShippedQty;
  23 use DateTime;
  24
  25 Support::TestSetup::login();
  26
  27 clear_up();
  28
  29 my ($customer, $vendor, @parts, $unit);
  30
  31 $customer = new_customer(name => 'Testkunde'    )->save;
  32 $vendor   = new_vendor(  name => 'Testlieferant')->save;
  33
  34 my $default_sellprice = 10;
  35 my $default_lastcost  =  4;
  36
  37 my ($wh) = create_warehouse_and_bins();
  38 my $bin1 = SL::DB::Manager::Bin->find_by(description => "Bin 1");
  39 my $bin2 = SL::DB::Manager::Bin->find_by(description => "Bin 2");
  40
  41 my %part_defaults = (
  42     sellprice    => $default_sellprice,
  43     warehouse_id => $wh->id,
  44     bin_id       => $bin1->id
  45 );
  46
  47 # create 3 parts to be used in test
  48 for my $i ( 1 .. 4 ) {
  49   new_part( %part_defaults, partnumber => $i, description => "part $i test" )->save;
  50 };
  51
  52 my $part1 = SL::DB::Manager::Part->find_by( partnumber => '1' );
  53 my $part2 = SL::DB::Manager::Part->find_by( partnumber => '2' );
  54 my $part3 = SL::DB::Manager::Part->find_by( partnumber => '3' );
  55 my $part4 = SL::DB::Manager::Part->find_by( partnumber => '4' );
  56
  57 my @part_ids; # list of all part_ids to run checks against
  58 push( @part_ids, $_->id ) foreach ( $part1, $part2, $part3, $part4 );
  59 my %default_transfer_params = ( wh => $wh, bin => $bin1, unit => 'Stck');
  60
  61
  62 # test purchases first, so there is actually stock available when sales is tested
  63
  64 note("testing purchases, no fill_up");
  65
  66 $::form->{type} = 'purchase_order';
  67 my $purchase_order = create_purchase_order(
  68   save       => 1,
  69   orderitems => [ create_order_item(part => $part1, qty => 11),
  70                   create_order_item(part => $part2, qty => 12),
  71                   create_order_item(part => $part3, qty => 13),
  72                 ]
  73 );
  74
  75 Rose::DB::Object::Helpers::forget_related($purchase_order, 'orderitems');
  76 $purchase_order->orderitems;
  77
  78 SL::Helper::ShippedQty
  79   ->new(require_stock_out => 1)  # should make no difference while there is no delivery order
  80   ->calculate($purchase_order)
  81   ->write_to_objects;
  82
  83 is($purchase_order->items_sorted->[0]->{shipped_qty}, 0, "first purchase orderitem has no shipped_qty");
  84 ok(!$purchase_order->items_sorted->[0]->{delivered},     "first purchase orderitem is not delivered");
  85
  86 my $purchase_orderitem_part1 = SL::DB::Manager::OrderItem->find_by( parts_id => $part1->id, trans_id => $purchase_order->id);
  87
  88 is($purchase_orderitem_part1->shipped_qty, 0, "OrderItem shipped_qty method ok");
  89
  90 is($purchase_order->closed,     0, 'purchase order is open');
  91 ok(!$purchase_order->delivered,    'purchase order is not delivered');
  92
  93 note('converting purchase order to delivery order');
  94 # create purchase delivery order from purchase order
  95 my $purchase_delivery_order = $purchase_order->convert_to_delivery_order;
  96 is($purchase_order->closed,    0, 'purchase order is open');
  97 note('purchase order is not general now delivered');
  98 ok(!$purchase_order->delivered,   'purchase order is not delivered');
  99
 100 SL::Helper::ShippedQty
 101   ->new(require_stock_out => 0)
 102   ->calculate($purchase_order)
 103   ->write_to_objects;
 104
 105 is($purchase_order->items_sorted->[0]->{shipped_qty}, 11, "require_stock_out => 0: first purchase orderitem has shipped_qty");
 106 ok($purchase_order->items_sorted->[0]->{delivered},       "require_stock_out => 0: first purchase orderitem is delivered");
 107
 108 Rose::DB::Object::Helpers::forget_related($purchase_order, 'orderitems');
 109 $purchase_order->orderitems;
 110
 111 SL::Helper::ShippedQty
 112   ->new(require_stock_out => 1)
 113   ->calculate($purchase_order)
 114   ->write_to_objects;
 115
 116 is($purchase_order->items_sorted->[0]->{shipped_qty}, 0,  "require_stock_out => 1: first purchase orderitem has no shipped_qty");
 117 ok(!$purchase_order->items_sorted->[0]->{delivered},      "require_stock_out => 1: first purchase orderitem is not delivered");
 118
 119 # ship items from delivery order
 120 transfer_purchase_delivery_order($purchase_delivery_order);
 121
 122 Rose::DB::Object::Helpers::forget_related($purchase_order, 'orderitems');
 123 $purchase_order->orderitems;
 124
 125 SL::Helper::ShippedQty
 126   ->new(require_stock_out => 1, keep_matches => 1)  # shouldn't make a difference now after shipping
 127   ->calculate($purchase_order)
 128   ->write_to_objects;
 129
 130 is($purchase_order->items_sorted->[0]->{shipped_qty}, 11, "require_stock_out => 1: first purchase orderitem has shipped_qty");
 131 ok($purchase_order->items_sorted->[0]->{delivered},       "require_stock_out => 1: first purchase orderitem is delivered");
 132
 133 my $purchase_orderitem_part2 = SL::DB::Manager::OrderItem->find_by(parts_id => $part1->id, trans_id => $purchase_order->id);
 134
 135 is($purchase_orderitem_part2->shipped_qty(require_stock_out => 1), 11, "OrderItem shipped_qty from helper ok");
 136
 137
 138 note('testing sales, no fill_up');
 139
 140 $::form->{type} = 'sales_order';
 141 my $sales_order = create_sales_order(
 142   save       => 1,
 143   orderitems => [ create_order_item(part => $part1, qty => 5),
 144                   create_order_item(part => $part2, qty => 6),
 145                   create_order_item(part => $part3, qty => 7),
 146                 ]
 147 );
 148
 149 Rose::DB::Object::Helpers::forget_related($sales_order, 'orderitems');
 150 $sales_order->orderitems;
 151
 152 SL::Helper::ShippedQty
 153   ->new(require_stock_out => 1)  # should make no difference while there is no delivery order
 154   ->calculate($sales_order)
 155   ->write_to_objects;
 156
 157 is($sales_order->items_sorted->[0]->{shipped_qty}, 0,  "first sales orderitem has no shipped_qty");
 158 ok(!$sales_order->items_sorted->[0]->{delivered},      "first sales orderitem is not delivered");
 159
 160 my $orderitem_part1 = SL::DB::Manager::OrderItem->find_by(parts_id => $part1->id, trans_id => $sales_order->id);
 161 my $orderitem_part2 = SL::DB::Manager::OrderItem->find_by(parts_id => $part2->id, trans_id => $sales_order->id);
 162
 163 is($orderitem_part1->shipped_qty, 0, "OrderItem shipped_qty method ok");
 164
 165 # create sales delivery order from sales order
 166 my $sales_delivery_order = $sales_order->convert_to_delivery_order;
 167
 168 SL::Helper::ShippedQty
 169   ->new(require_stock_out => 0)
 170   ->calculate($sales_order)
 171   ->write_to_objects;
 172
 173 is($sales_order->items_sorted->[0]->{shipped_qty}, 5, "require_stock_out => 0: first sales orderitem has shipped_qty");
 174 ok($sales_order->items_sorted->[0]->{delivered},      "require_stock_out => 0: first sales orderitem is delivered");
 175
 176 Rose::DB::Object::Helpers::forget_related($sales_order, 'orderitems');
 177 $sales_order->orderitems;
 178
 179 SL::Helper::ShippedQty
 180   ->new(require_stock_out => 1)
 181   ->calculate($sales_order)
 182   ->write_to_objects;
 183
 184 is($sales_order->items_sorted->[0]->{shipped_qty}, 0,  "require_stock_out => 1: first sales orderitem has no shipped_qty");
 185 ok(!$sales_order->items_sorted->[0]->{delivered},      "require_stock_out => 1: first sales orderitem is not delivered");
 186
 187 # ship items from delivery order
 188 transfer_sales_delivery_order($sales_delivery_order);
 189
 190 Rose::DB::Object::Helpers::forget_related($sales_order, 'orderitems');
 191 $sales_order->orderitems;
 192
 193 SL::Helper::ShippedQty
 194   ->new(require_stock_out => 1)
 195   ->calculate($sales_order)
 196   ->write_to_objects;
 197
 198 is($sales_order->items_sorted->[0]->{shipped_qty}, 5, "require_stock_out => 1: first sales orderitem has no shipped_qty");
 199 ok($sales_order->items_sorted->[0]->{delivered},      "require_stock_out => 1: first sales orderitem is not delivered");
 200
 201 $orderitem_part1 = SL::DB::Manager::OrderItem->find_by(parts_id => $part1->id, trans_id => $sales_order->id);
 202
 203 is($orderitem_part1->shipped_qty(require_stock_out => 1), 5, "OrderItem shipped_qty from helper ok");
 204
 205
 206 note('misc tests');
 207 my $number_of_linked_items = SL::DB::Manager::RecordLink->get_all_count( where => [ from_table => 'orderitems', to_table => 'delivery_order_items' ] );
 208 is ($number_of_linked_items , 6, "6 record_links for items, 3 from sales order, 3 from purchase order");
 209
 210 note('testing optional orderitems');
 211
 212 my $item_optional = create_order_item(part => $part3, qty => 7, optional => 1);
 213 ok($item_optional->{optional},       "optional order item");
 214
 215 my $sales_order_opt = create_sales_order(
 216   save       => 1,
 217   orderitems => [ create_order_item(part => $part1, qty => 5),
 218                   create_order_item(part => $part2, qty => 6),
 219                   $item_optional,
 220                 ]
 221 );
 222
 223
 224 SL::Helper::ShippedQty
 225   ->new(require_stock_out => 1)  # should make no difference while there is no delivery order
 226   ->calculate($sales_order_opt)
 227   ->write_to_objects;
 228
 229 is($sales_order_opt->items_sorted->[2]->{shipped_qty}, 0,  "third optional sales orderitem has no shipped_qty");
 230 ok(!$sales_order_opt->items_sorted->[2]->{delivered},      "third optional sales orderitem is not delivered");
 231 ok($sales_order_opt->items_sorted->[2]->{optional},        "third optional sales orderitem is optional");
 232
 233 my $orderitem_part3_opt = SL::DB::Manager::OrderItem->find_by(parts_id => $part3->id, trans_id => $sales_order_opt->id);
 234 is($orderitem_part3_opt->shipped_qty, 0, "OrderItem shipped_qty method ok");
 235
 236 # create sales delivery order from sales order
 237 my $sales_delivery_order_opt = $sales_order_opt->convert_to_delivery_order;
 238 is(scalar @{ $sales_delivery_order_opt->items_sorted }, 3,   "third optional sales delivery orderitem is there");
 239
 240 # and delete third item
 241 my $optional =  SL::DB::Manager::DeliveryOrderItem->find_by(parts_id => $part3->id, delivery_order_id => $sales_delivery_order_opt->id);
 242 SL::DB::DeliveryOrderItem->new(id => $optional->id)->delete;
 243 $sales_delivery_order_opt->save(cascade => 1);
 244 my $new_sales_delivery_order_opt = SL::DB::Manager::DeliveryOrder->find_by(id => $sales_delivery_order_opt->id);
 245 is(scalar @{ $new_sales_delivery_order_opt->items_sorted }, 2,   "third optional sales delivery orderitem is undef");
 246
 247 SL::Helper::ShippedQty
 248   ->new(require_stock_out => 0)
 249   ->calculate($sales_order_opt)
 250   ->write_to_objects;
 251
 252 is($sales_order_opt->items_sorted->[0]->{shipped_qty}, 5,  "require_stock_out => 0: first sales orderitem has shipped_qty");
 253 ok($sales_order_opt->items_sorted->[0]->{delivered},       "require_stock_out => 0: first sales orderitem is delivered");
 254 ok($sales_order_opt->items_sorted->[1]->{delivered},       "require_stock_out => 0: second sales orderitem is delivered");
 255 ok(!$sales_order_opt->items_sorted->[2]->{delivered},      "require_stock_out => 0: third sales orderitem is NOT delivered");
 256 is($sales_order_opt->items_sorted->[2]->{shipped_qty}, 0,  "require_stock_out => 0: third sales orderitem has no shipped_qty");
 257 ok($sales_order_opt->{delivered},                          "require_stock_out => 0: order IS delivered");
 258
 259 clear_up();
 260
 261 {
 262 #  legacy unlinked scenario:
 263 #
 264 #  order with two positions of the same part, qtys: 5, 3.
 265 #  3 linked delivery orders, with positions:
 266 #    1:  3 unlinked
 267 #    2:  1 linked to 1, 3 linked to 2
 268 #    3:  1 linked to 1
 269 #
 270 #  should be resolved under fill_up as 5/3, but gets resolved as 4/4
 271   my $part = new_part()->save;
 272   my $order = create_sales_order(
 273     orderitems => [
 274       create_order_item(part => $part, qty => 5),
 275       create_order_item(part => $part, qty => 3),
 276     ],
 277   )->save;
 278   my $do1 = create_sales_delivery_order(
 279     orderitems => [
 280       create_delivery_order_item(part => $part, qty => 3),
 281     ],
 282   );
 283   my $do2 = create_sales_delivery_order(
 284     orderitems => [
 285       create_delivery_order_item(part => $part, qty => 1),
 286       create_delivery_order_item(part => $part, qty => 3),
 287     ],
 288   );
 289   my $do3 = create_sales_delivery_order(
 290     orderitems => [
 291       create_delivery_order_item(part => $part, qty => 1),
 292     ],
 293   );
 294   $order->link_to_record($do1);
 295   $order->link_to_record($do2);
 296   $order->items_sorted->[0]->link_to_record($do2->items_sorted->[0]);
 297   $order->items_sorted->[1]->link_to_record($do2->items_sorted->[1]);
 298   $order->link_to_record($do3);
 299   $order->items_sorted->[0]->link_to_record($do3->items->[0]);
 300
 301   SL::Helper::ShippedQty
 302     ->new(fill_up => 1, require_stock_out => 0)
 303     ->calculate($order)
 304     ->write_to_objects;
 305
 306   is $order->items_sorted->[0]->{shipped_qty}, 5, 'unlinked legacy position test 1';
 307   is $order->items_sorted->[1]->{shipped_qty}, 3, 'unlinked legacy position test 2';
 308 }
 309
 310 clear_up();
 311
 312 done_testing;
 313
 314 sub clear_up {
 315   foreach ( qw(Inventory DeliveryOrderItem DeliveryOrder Price OrderItem Order Part Customer Vendor Bin Warehouse) ) {
 316     "SL::DB::Manager::${_}"->delete_all(all => 1);
 317   }
 318 };