projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
043285c
)
S/H/Inventory Kosmetik. Kritische Parameter am Anfang der Routine abfragen
author
Jan Büren
<jan@kivitendo.de>
Mon, 7 Jun 2021 11:31:44 +0000
(13:31 +0200)
committer
Jan Büren
<jan@kivitendo.de>
Fri, 11 Jun 2021 13:55:11 +0000
(15:55 +0200)
SL/Helper/Inventory.pm
patch
|
blob
|
history
diff --git
a/SL/Helper/Inventory.pm
b/SL/Helper/Inventory.pm
index
147bc7d
..
cc7601f
100644
(file)
--- a/
SL/Helper/Inventory.pm
+++ b/
SL/Helper/Inventory.pm
@@
-285,6
+285,7
@@
sub produce_assembly {
my $part = $params{part} or Carp::croak('produce_assembly needs a part');
my $qty = $params{qty} or Carp::croak('produce_assembly needs a qty');
my $part = $params{part} or Carp::croak('produce_assembly needs a part');
my $qty = $params{qty} or Carp::croak('produce_assembly needs a qty');
+ my $bin = $params{bin} or Carp::croak("need target bin");
my $allocations = $params{allocations};
if ($params{auto_allocate}) {
my $allocations = $params{allocations};
if ($params{auto_allocate}) {
@@
-295,18
+296,15
@@
sub produce_assembly {
$allocations = $params{allocations};
}
$allocations = $params{allocations};
}
- my $bin = $params{bin} or Carp::croak("need target bin");
- my $chargenumber = $params{chargenumber};
- my $bestbefore = $params{bestbefore};
+ my $chargenumber = $params{chargenumber};
+ my $bestbefore = $params{bestbefore};
my $for_object_id = $params{for_object_id};
my $for_object_id = $params{for_object_id};
- my $comment = $params{comment} // '';
+ my $comment = $params{comment} // '';
+ my $invoice = $params{invoice};
+ my $project = $params{project};
+ my $shippingdate = $params{shippingsdate} // DateTime->now_local;
+ my $trans_id = $params{trans_id};
- my $invoice = $params{invoice};
- my $project = $params{project};
-
- my $shippingdate = $params{shippingsdate} // DateTime->now_local;
-
- my $trans_id = $params{trans_id};
($trans_id) = selectrow_query($::form, SL::DB->client->dbh, qq|SELECT nextval('id')| ) unless $trans_id;
my $trans_type_out = SL::DB::Manager::TransferType->find_by(direction => 'out', description => 'used');
($trans_id) = selectrow_query($::form, SL::DB->client->dbh, qq|SELECT nextval('id')| ) unless $trans_id;
my $trans_type_out = SL::DB::Manager::TransferType->find_by(direction => 'out', description => 'used');