blob: 73361c00b15000d9be6072ecdfe14e96e642c242 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
<% include( 'elements/cust_main_dayranges.html',
#'title' => 'Prepaid Balance Aging Summary', #???
'title' => 'Unapplied Payments Aging Summary',
'range_sub' => \&unapplied_payments,
)
%>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
</%init>
<%once>
sub unapplied_payments {
my($start, $end, $offset) = @_;
#handle start and end ranges (86400 = 24h * 60m * 60s)
my $str2time = str2time_sql;
my $closing = str2time_sql_closing;
$start = "( $str2time now() $closing - ".($start + $offset) * 86400 . ' )';
$end = $end ?
"( $str2time now() $closing - ".($end + $offset) * 86400 . ' )'
: '';
FS::cust_main->unapplied_payments_date_sql( $start, $end );
}
</%once>
|
