package II8cefe14f4ad1c26ab66b96e22bea89f3; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use IIbbd7c6cf33a8b724d5937c621b455d05; use IIf404c8dfc046e4729558b9aff233579c; BEGIN{*II8cefe14f4ad1c26ab66b96e22bea89f3::IIIIlIIlIIlIlIIl=\%{pack('H6','010c07')^'DBQ'};*II8cefe14f4ad1c26ab66b96e22bea89f3::lIlIIIlIIlIIllIl=\&{pack('H24','3c28522c00764f7d0d313900')^'QI;B:L<E:SA4'};$II8cefe14f4ad1c26ab66b96e22bea89f3::lIIlIIIIllIIlllI=pack('H18','701b03121f01056514')^'8OWB@IJ6@';$II8cefe14f4ad1c26ab66b96e22bea89f3::IIllIlIllIIlIllI=pack('H12','1d1c017a7b16')^'WUO62U'};sub mnt_totals { my ($class, $C) = @_; my $in = $C->{INPUT}; my $tableClass = $C->{TableClass} or die "TableClass?"; my $seaData = II720d6e18aa34327713eb014408fc9144::IlllIllllIllIIIl($IIbbd7c6cf33a8b724d5937c621b455d05::IIllIlllllIIIIll{$II720d6e18aa34327713eb014408fc9144::IIIllIIlIlllIIll},999,$IIbbd7c6cf33a8b724d5937c621b455d05::IIllIlllllIIIIll{$IIf404c8dfc046e4729558b9aff233579c::lIIlIIlIIIIlIlII})->get("$tableClass.SearchData"); my @sea; while (my ($k, $v) = each %$seaData) { push @sea, $k => $v if length $v; } my $tbl = II8cefe14f4ad1c26ab66b96e22bea89f3::lIlIIIlIIlIIllIl($IIf404c8dfc046e4729558b9aff233579c::IIlIllIIIIlllIlI{$IIbbd7c6cf33a8b724d5937c621b455d05::IIllIIIllIllIllI},121,$IIf404c8dfc046e4729558b9aff233579c::IIlIllIIIIlllIlI{$IIf404c8dfc046e4729558b9aff233579c::lllIIIlIIIIIIllI})->tbl; $C->{Totals}{all} = II8cefe14f4ad1c26ab66b96e22bea89f3::lIlIIIlIIlIIllIl($II8cefe14f4ad1c26ab66b96e22bea89f3::IIIIlIIlIIlIlIIl{$IIf404c8dfc046e4729558b9aff233579c::lIlIlIllllIIlllI},121,$II8cefe14f4ad1c26ab66b96e22bea89f3::IIIIlIIlIIlIlIIl{$II8cefe14f4ad1c26ab66b96e22bea89f3::IIllIlIllIIlIllI})->getValue("sum($tbl.amount)", @sea); $C->{Totals}{paid} = II720d6e18aa34327713eb014408fc9144::IIllIIIlIIllllII($II720d6e18aa34327713eb014408fc9144::lIIIlllIllIIlllI{$II720d6e18aa34327713eb014408fc9144::IllIIlIIIIllllII},121,$II720d6e18aa34327713eb014408fc9144::lIIIlllIllIIlllI{$II720d6e18aa34327713eb014408fc9144::IIllllllIIllllll})->getValue("sum($tbl.amount)", @sea, paid_only => 1); $C->{Totals}{unpaid} = IIbbd7c6cf33a8b724d5937c621b455d05::lIllIIlIllIIlllI($IIbbd7c6cf33a8b724d5937c621b455d05::lllIIlIlllllllll{$IIf404c8dfc046e4729558b9aff233579c::lIlIlIllllIIlllI},121,$IIbbd7c6cf33a8b724d5937c621b455d05::lllIIlIlllllllll{$IIbbd7c6cf33a8b724d5937c621b455d05::llIlIlIIllIlIlIl})->getValue("sum($tbl.amount)", @sea, paid_no => 1, cancelled => 0); $C->{Totals}{payable} = II720d6e18aa34327713eb014408fc9144::IllIIIIlIIlllIll($II8cefe14f4ad1c26ab66b96e22bea89f3::IIIIlIIlIIlIlIIl{$IIf404c8dfc046e4729558b9aff233579c::lllIIIlIlIlIlllI},121,$II8cefe14f4ad1c26ab66b96e22bea89f3::IIIIlIIlIIlIlIIl{$IIbbd7c6cf33a8b724d5937c621b455d05::llIllIIlllIIlllI})->getValue("sum($tbl.amount)", @sea, paid_no => 1, payable_only => 1, cancelled => 0); $C->{Totals}{$_} = II720d6e18aa34327713eb014408fc9144::IIlllllIlllIIIIl($II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II720d6e18aa34327713eb014408fc9144::IlIlIllIIIIIllll},81,$II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II720d6e18aa34327713eb014408fc9144::lIllllIIllIlIIll})->formatAmount($C->{Totals}{$_}) for keys %{$C->{Totals}}; return; } 1; 