Revision 80499f9d
Von Jan Büren vor mehr als 8 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 39 | 39 |
use SL::Form; |
| 40 | 40 |
use SL::Util qw(trim); |
| 41 | 41 |
|
| 42 |
use SL::DB::Unit; |
|
| 43 |
use SL::DB::Assembly; |
|
| 44 |
|
|
| 45 | 42 |
use warnings; |
| 46 | 43 |
use strict; |
| 47 | 44 |
|
| ... | ... | |
| 162 | 159 |
my %params = @_; |
| 163 | 160 |
Common::check_params(\%params, qw(assembly_id dst_warehouse_id login qty unit dst_bin_id chargenumber bestbefore comment)); |
| 164 | 161 |
|
| 165 |
|
|
| 166 |
my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit});
|
|
| 167 |
if ($unit) {
|
|
| 168 |
my $assembly = SL::DB::Manager::Assembly->get_all( |
|
| 169 |
query => [ id => $params{assembly_id} ],
|
|
| 170 |
with_objects => ['part'], |
|
| 171 |
limit => 1, |
|
| 172 |
)->[0]; |
|
| 173 |
$params{qty} = $unit->convert_to($params{qty}, $assembly->part->unit_obj);
|
|
| 174 |
} |
|
| 175 |
|
|
| 176 | 162 |
# my $maxcreate=WH->check_assembly_max_create(assembly_id =>$params{'assembly_id'}, dbh => $my_dbh);
|
| 177 | 163 |
|
| 178 | 164 |
my $myconfig = \%main::myconfig; |
Auch abrufbar als: Unified diff
Revert "Einheiten beim Fertigen beachten"
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