qq|FROM chart | .
qq|WHERE link LIKE ? |.
qq|ORDER BY accno|;
- my $sth = prepare_execute_query($form, $dbh, $query,
- $form->{ARAP} eq "AR" ? "AR" : "AP" );
+ my $sth = prepare_execute_query($form, $dbh, $query, '%' . $ARAP . '%');
$form->{PR}{ $form->{ARAP} } = ();
$form->{PR}{"$form->{ARAP}_paid"} = ();
$form->{"paid_$i"} =
$form->round_amount($form->{"paid_$i"} * $exchangerate, 2);
-
$pth->execute($form->{"id_$i"}) || $form->dberror;
($amount) = $pth->fetchrow_array;
$pth->finish;
$query = qq|UPDATE $arap SET $paid, datepaid = ? WHERE id = ?|;
@values = (conv_date($form->{datepaid}), conv_i($form->{"id_$i"}));
do_query($form, $dbh, $query, @values);
+ # saving the history
+ $form->{id} = $form->{"id_$i"};
+ if(!exists $form->{addition}) {
+ $form->{snumbers} = qq|invnumber_| . $form->{"invnumber_$i"};
+ $form->{addition} = "POSTED";
+ $form->save_history($form->dbconnect($myconfig));
+ }
+ # /saving the history
}
}