Revision 21b7295d
Von Martin Helmling martin.helmling@octosoft.eu vor mehr als 3 Jahren hinzugefügt
| SL/Helper/Inventory.pm | ||
|---|---|---|
| 57 | 57 |
} |
| 58 | 58 |
|
| 59 | 59 |
if ($params{date}) {
|
| 60 |
Carp::croak("not DateTime ".$params{date}) unless ref($params{date}) eq 'DateTime';
|
|
| 60 | 61 |
push @where, sprintf "shippingdate <= ?"; |
| 61 | 62 |
push @values, $params{date};
|
| 62 | 63 |
} |
| 63 | 64 |
|
| 64 | 65 |
if ($params{bestbefore}) {
|
| 66 |
Carp::croak("not DateTime ".$params{date}) unless ref($params{bestbefore}) eq 'DateTime';
|
|
| 65 | 67 |
push @where, sprintf "bestbefore >= ?"; |
| 66 | 68 |
push @values, $params{bestbefore};
|
| 67 | 69 |
} |
| ... | ... | |
| 279 | 281 |
bin_id => 'bin_id', |
| 280 | 282 |
warehouse_id => 'warehouse_id', |
| 281 | 283 |
chargenumber => 'chargenumber', |
| 284 |
reserve_for => 'reserve_for_id', |
|
| 282 | 285 |
); |
| 283 | 286 |
|
| 284 | 287 |
for (keys %$constraints ) {
|
| ... | ... | |
| 290 | 293 |
|
| 291 | 294 |
if (any { !$whitelist{$_->$accessor} } @$allocations) {
|
| 292 | 295 |
my %error_constraints = ( |
| 293 |
bin_id => t8('Bins'),
|
|
| 294 |
warehouse_id => t8('Warehouses'),
|
|
| 295 |
chargenumber => t8('Chargenumbers'),
|
|
| 296 |
bin_id => t8('Bins'),
|
|
| 297 |
warehouse_id => t8('Warehouses'),
|
|
| 298 |
chargenumber => t8('Chargenumbers'),
|
|
| 299 |
reserve_for => t8('Reserve For'),
|
|
| 296 | 300 |
); |
| 297 | 301 |
my @allocs = grep { $whitelist{$_->$accessor} } @$allocations;
|
| 298 | 302 |
my $needed = sum map { $_->qty } grep { !$whitelist{$_->$accessor} } @$allocations;
|
Auch abrufbar als: Unified diff
Inventory-Helper: Constraints erweitert mit "reserve_for"
Nun können auch ausschließlich Reservierungen allokiert werden
zu egw #11765