Revision 1cf410d3
Von Sven Schöling vor mehr als 4 Jahren hinzugefügt
| SL/Helper/Inventory.pm | ||
|---|---|---|
|
use SL::MoreCommon qw(listify);
|
||
|
use SL::DBUtils qw(selectall_hashref_query selectrow_query);
|
||
|
use SL::DB::TransferType;
|
||
|
use SL::Helper::Number qw(_round_qty _qty);
|
||
|
use SL::Helper::Number qw(_number _round_number);
|
||
|
use SL::X;
|
||
|
|
||
|
our @EXPORT_OK = qw(get_stock get_onhand allocate allocate_for_assembly produce_assembly check_constraints);
|
||
| ... | ... | |
|
reserve_for_table => $chunk->{reserve_for_table},
|
||
|
for_object_id => undef,
|
||
|
);
|
||
|
$rest_qty -= _round_qty($qty);
|
||
|
$rest_qty -= _round_number($qty, 5);
|
||
|
}
|
||
|
$rest_qty = _round_qty($rest_qty);
|
||
|
$rest_qty = _round_number($rest_qty, 5);
|
||
|
last if $rest_qty == 0;
|
||
|
}
|
||
|
if ($rest_qty > 0) {
|
||
|
die SL::X::Inventory::Allocation->new(
|
||
|
error => 'not enough to allocate',
|
||
|
msg => t8("can not allocate #1 units of #2, missing #3 units", _qty($qty), $part->displayable_name, _qty($rest_qty)),
|
||
|
msg => t8("can not allocate #1 units of #2, missing #3 units", _number(\%::myconfig, $qty), $part->displayable_name, _number(\%::myconfig, $rest_qty)),
|
||
|
);
|
||
|
} else {
|
||
|
if ($params{constraints}) {
|
||
| ... | ... | |
|
$err .= ' '.t8('part \'#\'1 in bin \'#2\' only with qty #3 (need additional #4) and chargenumber \'#5\'.',
|
||
|
SL::DB::Part->load_cached($_->parts_id)->description,
|
||
|
SL::DB::Bin->load_cached($_->bin_id)->full_description,
|
||
|
_qty($_->qty), _qty($needed), $_->chargenumber ? $_->chargenumber : '--') for @allocs;
|
||
|
_number($_->qty), _number($needed), $_->chargenumber ? $_->chargenumber : '--') for @allocs;
|
||
|
die SL::X::Inventory::Allocation->new(
|
||
|
error => 'allocation constraints failure',
|
||
|
msg => $err,
|
||
Auch abrufbar als: Unified diff
Inventory Helper: _qty auf _number umgestellt