use SL::DBUtils;
use Data::Dumper;
use List::Util qw(sum);
-# use strict;
-# use warnings;
+# use warnings;
+use strict;
# new implementation of balance sheet
# readme!
my $glwhere = "";
my $prwhere = "";
my $subwhere = "";
+ my $inwhere = "";
my $item;
if ($fromdate) {
my $glwhere = '';
my $glsumwhere = '';
my $tofrom;
+ my ($fromdate, $todate);
if ($form->{fromdate} || $form->{todate}) {
if ($form->{fromdate}) {