From 80499f9da1fb349fd4ee2a5eef5a64c872240feb Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Tue, 19 Apr 2016 15:21:29 +0200 Subject: [PATCH] Revert "Einheiten beim Fertigen beachten" MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit This reverts commit be6eabfc4b62af1a8173e5cbcaff0b7f0d9b6db4. Nein, das war kein Fix für http://trac.kivitendo.de/ticket/2232 Implementiert wurde (imho): a) Wenn es eine gültige Einheit gibt b) Dann nimm das erstbeste Einzelteil einer Erzeugnis-Ware c) und konvertiere die ausgewählte Einheit des Erzeugnis in die Einheit der erstbesten Erzeugnis-Ware. Conflicts: SL/WH.pm --- SL/WH.pm | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/SL/WH.pm b/SL/WH.pm index f1dd565c5..3cc2e2375 100644 --- a/SL/WH.pm +++ b/SL/WH.pm @@ -39,9 +39,6 @@ use SL::DBUtils; use SL::Form; use SL::Util qw(trim); -use SL::DB::Unit; -use SL::DB::Assembly; - use warnings; use strict; @@ -162,17 +159,6 @@ sub transfer_assembly { my %params = @_; Common::check_params(\%params, qw(assembly_id dst_warehouse_id login qty unit dst_bin_id chargenumber bestbefore comment)); - - my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit}); - if ($unit) { - my $assembly = SL::DB::Manager::Assembly->get_all( - query => [ id => $params{assembly_id} ], - with_objects => ['part'], - limit => 1, - )->[0]; - $params{qty} = $unit->convert_to($params{qty}, $assembly->part->unit_obj); - } - # my $maxcreate=WH->check_assembly_max_create(assembly_id =>$params{'assembly_id'}, dbh => $my_dbh); my $myconfig = \%main::myconfig; -- 2.20.1