use SL::DBUtils;
+use strict;
+
sub overpayment {
$main::lxdebug->enter_sub();
do_query($form, $dbh, $query, @values);
# add AR/AP
- ($accno) = split /--/, $form->{ $form->{ARAP} };
+ my ($accno) = split /--/, $form->{ $form->{ARAP} };
$query =
qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) | .