X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b987fa17f53deb2782f2ad7b35049c700c26f01a..867a69bcc3730b4a3f0be8e2221f21e16eb89960:/t/helper/shipped_qty.t

diff --git a/t/helper/shipped_qty.t b/t/helper/shipped_qty.t
index c300bb5d4..7b3bc3afc 100644
--- 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");
 
+$::form->{type} = 'purchase_order';
 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');
 
+$::form->{type} = 'sales_order';
 my $sales_order = create_sales_order(
   save       => 1,
   orderitems => [ create_order_item(part => $part1, qty => 5),