S/H/Inventory.pm Kommentare beim Erzeugnis fertigen für verbrauchte Artikel

diff --git a/SL/Helper/Inventory.pm b/SL/Helper/Inventory.pm
index cc7601f..c9092c7 100644 (file)
--- a/SL/Helper/Inventory.pm
+++ b/SL/Helper/Inventory.pm
@@ -332,6 +332,7 @@ sub produce_assembly {
       trans_type   => $trans_type_out,
       shippingdate => $shippingdate,
       employee     => SL::DB::Manager::Employee->current,
+      comment      => t8('Used for assembly #1 #2', $part->partnumber, $part->description),
     );
   }
 

diff --git a/t/wh/inventory.t b/t/wh/inventory.t
index a10b9cf..5b59c92 100644 (file)
--- a/t/wh/inventory.t
+++ b/t/wh/inventory.t
@@ -1,4 +1,5 @@
 use strict;
+use Test::Deep qw(cmp_deeply ignore superhashof);
 use Test::More;
 use Test::Exception;
 
@@ -177,6 +178,37 @@ is(SL::Helper::Inventory::get_stock(part => $assembly1), "3.00000", 'produce wit
 is(SL::Helper::Inventory::get_stock(part => $part1), "2.00000", 'and consumes...');
 is(SL::Helper::Inventory::get_stock(part => $part2), "7.00000", '..the materials');
 
+# check comments and warehouses
+$::form->{l_comment}        = 'Y';
+$::form->{l_warehouse_from} = 'Y';
+$::form->{l_warehouse_to}   = 'Y';
+local $::instance_conf->data->{produce_assembly_same_warehouse} = 1;
+
+my @contents = WH->get_warehouse_journal(sort => 'date');
+
+cmp_deeply(\@contents,
+           [ ignore(), ignore(),
+              superhashof({
+                'comment'        => 'Used for assembly 6 Test Assembly',
+                'warehouse_from' => 'Warehouse'
+              }),
+              superhashof({
+                'comment'        => 'Used for assembly 6 Test Assembly',
+                'warehouse_from' => 'Warehouse'
+              }),
+              superhashof({
+                'part_type'    => 'assembly',
+                'warehouse_to' => 'Warehouse'
+              }),
+           ],
+          "Comments for assembly productions are ok"
+);
+
+
+
+
+
+
 # try to produce without allocations dies
 
 dies_ok(sub {