Help for this page

Select Code to Download

Select or download this

my %totals;
for my $r (@$res) {
    $totals{ $r->{AcNo}}{$r->{Type} } = $r->{SUM};
}