diff options
Diffstat (limited to 'httemplate/search/report_receivables.cgi')
-rwxr-xr-x | httemplate/search/report_receivables.cgi | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi new file mode 100755 index 0000000..57228a5 --- /dev/null +++ b/httemplate/search/report_receivables.cgi @@ -0,0 +1,40 @@ +<% include( 'elements/cust_main_dayranges.html', + 'title' => 'Accounts Receivable Aging Summary', + 'range_sub' => \&balance, + 'payment_links' => 1, + ) +%> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Receivables report') + or $FS::CurrentUser::CurrentUser->access_right('Financial reports'); + +</%init> +<%once> + +#Example: +# +# my $balance = balance( +# $start, $end, $offset, +# '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 { + my($start, $end, $cutoff) = @_; #, %opt ? + + FS::cust_main->balance_date_sql( $start, $end, + 'cutoff' => $cutoff, + 'unapplied_date'=>1, + ); +} + +</%once> |