Inventory Helper: Dokument für Allocations extra

Sollen beim Produzieren/Abfüllen für die notwendigen Artikel auch
Dokumente angegeben werden, so müssen diese extra in die Allocation
Struktur eingebracht werden.

Automatischer Test angepasst: Inventoryhelper nun mit Parameter oe_id

zu #11216

diff --git a/SL/Helper/Inventory.pm b/SL/Helper/Inventory.pm
index 1225a7d..4da9bb7 100644 (file)
--- a/SL/Helper/Inventory.pm
+++ b/SL/Helper/Inventory.pm
@@ -207,6 +207,7 @@ sub allocate {
         bestbefore        => $chunk->{bestbefore},
         reserve_for_id    => $chunk->{reserve_for_id},
         reserve_for_table => $chunk->{reserve_for_table},
+        oe_id             => undef,
       );
       $rest_qty -= $qty;
     }
@@ -346,7 +347,7 @@ sub produce_assembly {
       trans_type   => $trans_type_out,
       shippingdate => $shippingdate,
       employee     => SL::DB::Manager::Employee->current,
-      oe_id        => $oe_id,
+      oe_id        => $allocation->oe_id,
     );
   }
 
@@ -381,7 +382,7 @@ sub produce_assembly {
 }
 
 package SL::Helper::Inventory::Allocation {
-  my @attributes = qw(parts_id qty bin_id warehouse_id chargenumber bestbefore comment reserve_for_id reserve_for_table);
+  my @attributes = qw(parts_id qty bin_id warehouse_id chargenumber bestbefore comment reserve_for_id reserve_for_table oe_id);
   my %attributes = map { $_ => 1 } @attributes;
 
   for my $name (@attributes) {
@@ -463,6 +464,7 @@ SL::WH - Warehouse and Inventory API
     bestbefore        => undef,
     reserve_for_id    => undef,
     reserve_for_table => undef,
+    oe_id             => $my_document,
   );
 
   # produce_assembly:
@@ -750,12 +752,17 @@ each of the following attributes to be set at creation time:
 
 =item * reserve_for_table
 
+=item * oe_id
+
+Must be explicit set if the allocation needs also an (other) document.
+
 =back
 
-C<chargenumber>, C<bestbefore>, C<reserve_for_id> and C<reserve_for_table> may
+C<chargenumber>, C<bestbefore>, C<reserve_for_id>, C<reserve_for_table> and oe_id  may
 be C<undef> (but must still be present at creation time). Instances are
 considered immutable.
 
+
 =head1 CONSTRAINTS
 
   # whitelist constraints

diff --git a/t/wh/inventory.t b/t/wh/inventory.t
index 1a6306d..c209436 100644 (file)
--- a/t/wh/inventory.t
+++ b/t/wh/inventory.t
@@ -88,7 +88,9 @@ is_deeply(\%{ $allocations[0] }, {
    reserve_for_id    => undef,
    reserve_for_table => undef,
    warehouse_id      => $wh->id,
- }, 'allocatiion works');
+   comment           => undef,
+   oe_id             => undef,
+ }, 'allocation works');
 
 # simple