diff options
Diffstat (limited to 'httemplate/search/unapplied_cust_pay.html')
| -rwxr-xr-x | httemplate/search/unapplied_cust_pay.html | 36 |
1 files changed, 9 insertions, 27 deletions
diff --git a/httemplate/search/unapplied_cust_pay.html b/httemplate/search/unapplied_cust_pay.html index 35abd6bbc..8d064d174 100755 --- a/httemplate/search/unapplied_cust_pay.html +++ b/httemplate/search/unapplied_cust_pay.html @@ -2,7 +2,8 @@ #'title' => 'Prepaid Balance Aging Summary', #??? 'title' => 'Unapplied Payments Aging Summary', 'range_sub' => \&unapplied_payments, - ); + ) +%> <%init> die "access denied" @@ -11,35 +12,16 @@ die "access denied" </%init> <%once> -#Example: -# -# my $balance = balance( -# $start, $end, -# 'no_as' => 1, #set to true when using in a WHERE clause (supress AS clause) -# #or 0 / omit when using in a SELECT clause as a column -# # ("AS balance_$start_$end") -# 'sum' => 1, #set to true to get a SUM() of the values, for totals -# -# #obsolete? options for totals (passed to cust_main::balance_date_sql) -# 'total' => 1, #set to true to remove all customer comparison clauses -# 'join' => $join, #JOIN clause -# 'where' => \@where, #WHERE clause hashref (elements "AND"ed together) -# ) - -#sub balance { sub unapplied_payments { my($start, $end, %opt) = @_; -#XXX fill-in -# #handle start and end ranges (86400 = 24h * 60m * 60s) -# my $str2time = str2time_sql; -# my $closing = str2time_sql_closing; -# $start = $start ? "( $str2time now() $closing - ".($start * 86400). ' )' : ''; -# $end = $end ? "( $str2time now() $closing - ".($end * 86400). ' )' : ''; -# -# #$opt{'unapplied_date'} = 1; -# -# FS::cust_main->balance_date_sql( $start, $end, %opt ). + #handle start and end ranges (86400 = 24h * 60m * 60s) + my $str2time = str2time_sql; + my $closing = str2time_sql_closing; + $start = $start ? "( $str2time now() $closing - ".($start * 86400). ' )' : ''; + $end = $end ? "( $str2time now() $closing - ".($end * 86400). ' )' : ''; + + FS::cust_main->unapplied_payments_date_sql( $start, $end ); } |