use SL::DBUtils;
+use strict;
+
sub paymentaccounts {
$main::lxdebug->enter_sub();
qq| WHERE c2.accno = ?) AS category | .
qq|FROM acc_trans a | .
qq|JOIN chart c ON (c.id = a.chart_id) | .
- qq|WHERE a.transdate < date ? AND a.cleared = '1' AND c.accno = ?|;
+ qq|WHERE a.transdate < ? AND a.cleared = '1' AND c.accno = ?|;
@values = ($form->{accno}, conv_date($form->{fromdate}), $form->{accno});
} else {
($form->{beginningbalance}, $form->{category}) =
selectrow_query($form, $dbh, $query, @values);
- my %oid = ('Pg' => 'ac.oid',
+ my %oid = ('Pg' => 'ac.acc_trans_id',
'Oracle' => 'ac.rowid');
@values = ();
$query =
my $dbh = $form->dbconnect($myconfig);
my ($query, $i);
- my %oid = ('Pg' => 'oid',
+ my %oid = ('Pg' => 'acc_trans_id',
'Oracle' => 'rowid');
# clear flags