ShippedQty: Fallunterschied für Einkauf/Verkauf gesetzt

diff --git a/SL/Helper/ShippedQty.pm b/SL/Helper/ShippedQty.pm
index b23e4fa4509d641c08d367c95ed55a13cf4c4945..3ad46197e112d1f792d7324ff2ca9175f58d9b5a 100644 (file)
--- a/SL/Helper/ShippedQty.pm
+++ b/SL/Helper/ShippedQty.pm
@@ -432,7 +432,9 @@ include a bulk mode to speed up multiple objects.
 
 =item C<new PARAMS>
 
 
 =item C<new PARAMS>
 

-Creates a new helper object. PARAMS may include:
+Creates a new helper object, $::form->{type} is mandatory.
+
+PARAMS may include:

 
 =over 4
 
 
 =over 4
 


@@ -472,6 +474,7 @@ than this modules provides.
 
 See C<matches> for the returned format.
 
 
 See C<matches> for the returned format.
 

+

 =back
 
 =item C<calculate OBJECTS>
 =back
 
 =item C<calculate OBJECTS>

diff --git a/t/helper/shipped_qty.t b/t/helper/shipped_qty.t
index c300bb5d43163f0dde329eee8d630d4db3261f65..7b3bc3afcea8fdb5960c9390f0a283c9d123b46e 100644 (file)
--- a/t/helper/shipped_qty.t
+++ b/t/helper/shipped_qty.t
@@ -63,6 +63,7 @@ my %default_transfer_params = ( wh => $wh, bin => $bin1, unit => 'Stck');
 
 note("testing purchases, no fill_up");
 
 
 note("testing purchases, no fill_up");
 

+$::form->{type} = 'purchase_order';

 my $purchase_order = create_purchase_order(
   save       => 1,
   orderitems => [ create_order_item(part => $part1, qty => 11),
 my $purchase_order = create_purchase_order(
   save       => 1,
   orderitems => [ create_order_item(part => $part1, qty => 11),


@@ -135,6 +136,7 @@ is($purchase_orderitem_part2->shipped_qty(require_stock_out => 1), 11, "OrderIte
 
 note('testing sales, no fill_up');
 
 
 note('testing sales, no fill_up');
 

+$::form->{type} = 'sales_order';

 my $sales_order = create_sales_order(
   save       => 1,
   orderitems => [ create_order_item(part => $part1, qty => 5),
 my $sales_order = create_sales_order(
   save       => 1,
   orderitems => [ create_order_item(part => $part1, qty => 5),