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
use SL::Form;
use SL::Util qw(trim);
-use SL::DB::Unit;
-use SL::DB::Assembly;
-
use warnings;
use strict;
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;