Standardlagerplatz direkt beim Umlagern ändern, falls entsprechend angehakt

[mfinanz.git] / SL / WH.pm

diff --git a/SL/WH.pm b/SL/WH.pm
index 28e836e485cd22b3a7018b93182b004025c2678f..f7ca693e3e32569015bb10aa99d80d2fa4570fee 100644 (file)
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -132,7 +132,13 @@ sub transfer {
           bin       => $dst_bin->id,
           qty       => $qty,
         )->save;
-      }
+        # Standardlagerplatz in Stammdaten gleich mitverschieben
+        if (defined($transfer->{change_default_bin})){
+          my $part = SL::DB::Part->new(id        => conv_i($transfer->{parts_id}))->load;
+          $part->update_attributes(warehouse_id  => conv_i($transfer->{dst_warehouse_id}));
+          $part->update_attributes(bin_id        => conv_i($transfer->{dst_bin_id}));
+        }
+     }
 
       push @trans_ids, $trans_id;
     }