$sth->execute || $form->dberror($query);
if ($sth->fetchrow_array) {
- $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};
}
$sth->finish;
# 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);
map { $form->{$_} = $ref->{$_} } keys %$ref;
my $query = qq|SELECT sum(a.amount - a.paid) AS dunning_amount FROM ar a
- WHERE a.paid < a.amount AND a.customer_id = ? AND a.dunning_id IS NOT NULL|;
+ WHERE a.paid < a.amount AND a.customer_id = ? AND a.dunning_config_id IS NOT NULL|;
$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
- WHERE id in (SELECT dunning_id from ar WHERE paid < amount AND customer_id = ? AND dunning_id IS NOT NULL)
+ WHERE id in (SELECT dunning_config_id from ar WHERE paid < amount AND customer_id = ? AND dunning_config_id IS NOT NULL)
ORDER BY dunning_level DESC LIMIT 1|;
$ref = selectfirst_hashref_query($form, $dbh, $query, $form->{customer_id});
map { $form->{$_} = $ref->{$_} } keys %$ref;