Revision 2436f6e9
Von Jan Büren vor mehr als 3 Jahren hinzugefügt
| SL/Helper/Inventory.pm | ||
|---|---|---|
| 285 | 285 |
|
| 286 | 286 |
my $part = $params{part} or Carp::croak('produce_assembly needs a part');
|
| 287 | 287 |
my $qty = $params{qty} or Carp::croak('produce_assembly needs a qty');
|
| 288 |
my $bin = $params{bin} or Carp::croak("need target bin");
|
|
| 288 | 289 |
|
| 289 | 290 |
my $allocations = $params{allocations};
|
| 290 | 291 |
if ($params{auto_allocate}) {
|
| ... | ... | |
| 295 | 296 |
$allocations = $params{allocations};
|
| 296 | 297 |
} |
| 297 | 298 |
|
| 298 |
my $bin = $params{bin} or Carp::croak("need target bin");
|
|
| 299 |
my $chargenumber = $params{chargenumber};
|
|
| 300 |
my $bestbefore = $params{bestbefore};
|
|
| 299 |
my $chargenumber = $params{chargenumber};
|
|
| 300 |
my $bestbefore = $params{bestbefore};
|
|
| 301 | 301 |
my $for_object_id = $params{for_object_id};
|
| 302 |
my $comment = $params{comment} // '';
|
|
| 302 |
my $comment = $params{comment} // '';
|
|
| 303 |
my $invoice = $params{invoice};
|
|
| 304 |
my $project = $params{project};
|
|
| 305 |
my $shippingdate = $params{shippingsdate} // DateTime->now_local;
|
|
| 306 |
my $trans_id = $params{trans_id};
|
|
| 303 | 307 |
|
| 304 |
my $invoice = $params{invoice};
|
|
| 305 |
my $project = $params{project};
|
|
| 306 |
|
|
| 307 |
my $shippingdate = $params{shippingsdate} // DateTime->now_local;
|
|
| 308 |
|
|
| 309 |
my $trans_id = $params{trans_id};
|
|
| 310 | 308 |
($trans_id) = selectrow_query($::form, SL::DB->client->dbh, qq|SELECT nextval('id')| ) unless $trans_id;
|
| 311 | 309 |
|
| 312 | 310 |
my $trans_type_out = SL::DB::Manager::TransferType->find_by(direction => 'out', description => 'used'); |
Auch abrufbar als: Unified diff
S/H/Inventory Kosmetik. Kritische Parameter am Anfang der Routine abfragen