my $bin = $params{bin} or Carp::croak("need target bin");
my $chargenumber = $params{chargenumber};
my $bestbefore = $params{bestbefore};
+ my $oe_id = $params{oe_id};
my $comment = $params{comment} // '';
my $production_order_item = $params{production_order_item};
trans_type => $trans_type_out,
shippingdate => $shippingdate,
employee => SL::DB::Manager::Employee->current,
+ oe_id => $oe_id,
);
}
comment => $comment,
prod => $production_order_item,
employee => SL::DB::Manager::Employee->current,
+ oe_id => $oe_id,
);
SL::DB->client->with_transaction(sub {