# This imports inventories when target_qty is given, transfers else.
# So we get the actual qty in stock and transfer the difference in case of
# a given target_qty
-sub check_qty{
+sub check_qty {
my ($self, $entry) = @_;
my $object = $entry->{object};
+ # parse qty (may be float values)
+ if (exists $entry->{raw_data}->{target_qty}) {
+ $entry->{raw_data}->{target_qty} = $::form->parse_amount(\%::myconfig, $entry->{raw_data}->{target_qty});
+ # $object->target_qty($entry->{raw_data}->{target_qty});
+ }
+ if (exists $entry->{raw_data}->{qty}) {
+ $entry->{raw_data}->{qty} = $::form->parse_amount(\%::myconfig, $entry->{raw_data}->{qty});
+ $object->qty($entry->{raw_data}->{qty});
+ }
if (! exists $entry->{raw_data}->{target_qty} && ! exists $entry->{raw_data}->{qty}) {
push @{ $entry->{errors} }, $::locale->text('Error: A quantity or a target quantity must be given.');
return 0;