5 use Support::TestSetup;
10 use SL::DB::Inventory;
11 use SL::DB::TransferType;
13 use SL::DB::DeliveryOrder;
16 use SL::DB::RecordLink;
17 use SL::DB::DeliveryOrderItemsStock;
22 use SL::Helper::ShippedQty;
25 Support::TestSetup::login();
29 my ($customer, $vendor, @parts, $unit);
31 $customer = SL::Dev::CustomerVendor::create_customer(name => 'Testkunde' )->save;
32 $vendor = SL::Dev::CustomerVendor::create_vendor( name => 'Testlieferant')->save;
34 my $default_sellprice = 10;
35 my $default_lastcost = 4;
37 my ($wh) = SL::Dev::Inventory::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");
42 sellprice => $default_sellprice,
43 warehouse_id => $wh->id,
47 # create 3 parts to be used in test
48 for my $i ( 1 .. 4 ) {
49 SL::Dev::Part::create_part( %part_defaults, partnumber => $i, description => "part $i test" )->save;
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' );
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');
62 # test purchases first, so there is actually stock available when sales is tested
64 note("testing purchases, no fill_up");
66 my $purchase_order = SL::Dev::Record::create_purchase_order(
68 orderitems => [ SL::Dev::Record::create_order_item(part => $part1, qty => 11),
69 SL::Dev::Record::create_order_item(part => $part2, qty => 12),
70 SL::Dev::Record::create_order_item(part => $part3, qty => 13),
74 SL::Helper::ShippedQty
75 ->new(require_stock_out => 1) # should make no difference while there is no delivery order
76 ->calculate($purchase_order)
79 is($purchase_order->orderitems->[0]->{shipped_qty}, undef, "first purchase orderitem has no shipped_qty");
80 is($purchase_order->orderitems->[0]->{delivered}, '', "first purchase orderitem is not delivered");
82 my $purchase_orderitem_part1 = SL::DB::Manager::OrderItem->find_by( parts_id => $part1->id, trans_id => $purchase_order->id);
84 is($purchase_orderitem_part1->shipped_qty, undef, "OrderItem shipped_qty method ok");
86 is($purchase_order->closed, 0, 'purchase order is open');
87 is($purchase_order->delivered, '', 'purchase order is not delivered');
89 note('converting purchase order to delivery order');
90 # create purchase delivery order from purchase order
91 my $purchase_delivery_order = $purchase_order->convert_to_delivery_order;
92 is($purchase_order->closed, 0, 'purchase order is open');
93 is($purchase_order->delivered, 1, 'purchase order is now delivered');
95 SL::Helper::ShippedQty
96 ->new(require_stock_out => 0)
97 ->calculate($purchase_order)
100 is($purchase_order->orderitems->[0]->{shipped_qty}, 11, "require_stock_out => 0: first purchase orderitem has shipped_qty");
101 is($purchase_order->orderitems->[0]->{delivered}, 1, "require_stock_out => 0: first purchase orderitem is delivered");
103 Rose::DB::Object::Helpers::forget_related($purchase_order, 'orderitems');
104 $purchase_order->orderitems;
106 SL::Helper::ShippedQty
107 ->new(require_stock_out => 1)
108 ->calculate($purchase_order)
111 is($purchase_order->orderitems->[0]->{shipped_qty}, undef, "require_stock_out => 1: first purchase orderitem has no shipped_qty");
112 is($purchase_order->orderitems->[0]->{delivered}, '', "require_stock_out => 1: first purchase orderitem is not delivered");
114 # ship items from delivery order
115 SL::Dev::Inventory::transfer_purchase_delivery_order($purchase_delivery_order);
117 Rose::DB::Object::Helpers::forget_related($purchase_order, 'orderitems');
118 $purchase_order->orderitems;
120 SL::Helper::ShippedQty
121 ->new(require_stock_out => 1) # shouldn't make a difference now after shipping
122 ->calculate($purchase_order)
125 is($purchase_order->orderitems->[0]->{shipped_qty}, 11, "require_stock_out => 1: first purchase orderitem has shipped_qty");
126 is($purchase_order->orderitems->[0]->{delivered}, 1, "require_stock_out => 1: first purchase orderitem is delivered");
128 my $purchase_orderitem_part2 = SL::DB::Manager::OrderItem->find_by(parts_id => $part1->id, trans_id => $purchase_order->id);
130 is($purchase_orderitem_part2->shipped_qty(require_stock_out => 1), 11, "OrderItem shipped_qty from helper ok");
133 note('testing sales, no fill_up');
135 my $sales_order = SL::Dev::Record::create_sales_order(
137 orderitems => [ SL::Dev::Record::create_order_item(part => $part1, qty => 5),
138 SL::Dev::Record::create_order_item(part => $part2, qty => 6),
139 SL::Dev::Record::create_order_item(part => $part3, qty => 7),
143 SL::Helper::ShippedQty
144 ->new(require_stock_out => 1) # should make no difference while there is no delivery order
145 ->calculate($sales_order)
148 is($sales_order->orderitems->[0]->{shipped_qty}, undef, "first sales orderitem has no shipped_qty");
149 is($sales_order->orderitems->[0]->{delivered}, '', "first sales orderitem is not delivered");
151 my $orderitem_part1 = SL::DB::Manager::OrderItem->find_by(parts_id => $part1->id, trans_id => $sales_order->id);
152 my $orderitem_part2 = SL::DB::Manager::OrderItem->find_by(parts_id => $part2->id, trans_id => $sales_order->id);
154 is($orderitem_part1->shipped_qty, undef, "OrderItem shipped_qty method ok");
156 # create sales delivery order from sales order
157 my $sales_delivery_order = $sales_order->convert_to_delivery_order;
159 SL::Helper::ShippedQty
160 ->new(require_stock_out => 0)
161 ->calculate($sales_order)
164 is($sales_order->orderitems->[0]->{shipped_qty}, 5, "require_stock_out => 0: first sales orderitem has shipped_qty");
165 is($sales_order->orderitems->[0]->{delivered}, 1, "require_stock_out => 0: first sales orderitem is delivered");
167 Rose::DB::Object::Helpers::forget_related($sales_order, 'orderitems');
168 $sales_order->orderitems;
170 SL::Helper::ShippedQty
171 ->new(require_stock_out => 1)
172 ->calculate($sales_order)
175 is($sales_order->orderitems->[0]->{shipped_qty}, undef, "require_stock_out => 1: first sales orderitem has no shipped_qty");
176 is($sales_order->orderitems->[0]->{delivered}, '', "require_stock_out => 1: first sales orderitem is not delivered");
178 # ship items from delivery order
179 SL::Dev::Inventory::transfer_sales_delivery_order($sales_delivery_order);
181 Rose::DB::Object::Helpers::forget_related($sales_order, 'orderitems');
182 $sales_order->orderitems;
184 SL::Helper::ShippedQty
185 ->new(require_stock_out => 1)
186 ->calculate($sales_order)
189 is($sales_order->orderitems->[0]->{shipped_qty}, 5, "require_stock_out => 1: first sales orderitem has no shipped_qty");
190 is($sales_order->orderitems->[0]->{delivered}, 1, "require_stock_out => 1: first sales orderitem is not delivered");
192 $orderitem_part1 = SL::DB::Manager::OrderItem->find_by(parts_id => $part1->id, trans_id => $sales_order->id);
194 is($orderitem_part1->shipped_qty(require_stock_out => 1), 5, "OrderItem shipped_qty from helper ok");
198 my $number_of_linked_items = SL::DB::Manager::RecordLink->get_all_count( where => [ from_table => 'orderitems', to_table => 'delivery_order_items' ] );
199 is ($number_of_linked_items , 6, "6 record_links for items, 3 from sales order, 3 from purchase order");
206 foreach ( qw(Inventory DeliveryOrderItem DeliveryOrder Price OrderItem Order Part Customer Vendor Bin Warehouse) ) {
207 "SL::DB::Manager::${_}"->delete_all(all => 1);