X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/336f48b84d380456867ecf20cc42b2e05272a935..5f0dde28fbedc190991b94b7d4128dc7adb6a715:/SL/WH.pm

diff --git a/SL/WH.pm b/SL/WH.pm
index d0bb4c085..8ff63f219 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -137,9 +137,7 @@ sub transfer {
         )->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}));
+          $part->update_attributes(warehouse_id  => $dst_wh->id, bin_id => $dst_bin->id);
         }
       }