package OP;
-
-
sub overpayment {
$main::lxdebug->enter_sub();
my $fxamount = $form->round_amount($amount * $form->{exchangerate}, 2);
my ($paymentaccno) = split /--/, $form->{account};
-
+
my $vc_id = "$form->{vc}_id";
my $uid = time;
$dbh->do($query) || $form->dberror($query);
# add AR/AP
- ($accno) = split /--/, $form->{$form->{ARAP}};
-
+ ($accno) = split /--/, $form->{ $form->{ARAP} };
+
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount)
VALUES ($uid, (SELECT c.id FROM chart c
WHERE c.accno = '$accno'),
'1', '1')|;
$dbh->do($query) || $form->dberror($query);
}
-
+
$main::lxdebug->leave_sub();
}
-
1;