- $form->update_balance($dbh, "parts", "onhand",
- qq|id = $form->{"id_$i"}|,
- $baseqty * -1)
+ $form->update_balance($dbh, "parts", "onhand", qq|id = ?|,
+ $baseqty * -1, $form->{"id_$i"})
# record assembly item as allocated
&process_assembly($dbh, $form, $form->{"id_$i"}, $baseqty);
} else {
# record assembly item as allocated
&process_assembly($dbh, $form, $form->{"id_$i"}, $baseqty);
} else {
- $form->update_balance($dbh, "parts", "onhand",
- qq|id = $form->{"id_$i"}|,
- $baseqty * -1)
+ $form->update_balance($dbh, "parts", "onhand", qq|id = ?|,
+ $baseqty * -1, $form->{"id_$i"})
unless $form->{shipped};
$allocated = &cogs($dbh, $form, $form->{"id_$i"}, $baseqty, $basefactor, $i);
unless $form->{shipped};
$allocated = &cogs($dbh, $form, $form->{"id_$i"}, $baseqty, $basefactor, $i);
map { $form->{$_} = $ref->{$_} } keys %$ref;
my $query = qq|SELECT sum(a.amount - a.paid) AS dunning_amount FROM ar a
map { $form->{$_} = $ref->{$_} } keys %$ref;
my $query = qq|SELECT sum(a.amount - a.paid) AS dunning_amount FROM ar a
$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});
map { $form->{$_} = $ref->{$_} } keys %$ref;
my $query = qq|SELECT dnn.dunning_description AS max_dunning_level FROM dunning_config dnn
$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});
map { $form->{$_} = $ref->{$_} } keys %$ref;
my $query = qq|SELECT dnn.dunning_description AS max_dunning_level FROM dunning_config dnn
ORDER BY dunning_level DESC LIMIT 1|;
$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});
map { $form->{$_} = $ref->{$_} } keys %$ref;
ORDER BY dunning_level DESC LIMIT 1|;
$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});
map { $form->{$_} = $ref->{$_} } keys %$ref;