-<!-- mason kludge -->
-<%
-
- my $charged = <<END;
- sum( charged
- - coalesce(
- ( select sum(amount) from cust_bill_pay
- where cust_bill.invnum = cust_bill_pay.invnum )
- ,0
- )
- - coalesce(
- ( select sum(amount) from cust_credit_bill
- where cust_bill.invnum = cust_credit_bill.invnum )
- ,0
- )
-
- )
-END
-
- my $owed_cols = <<END;
- coalesce(
- ( select $charged from cust_bill
- where cust_bill._date > extract(epoch from now())-2592000
- and cust_main.custnum = cust_bill.custnum
- )
- ,0
- ) as owed_0_30,
-
- coalesce(
- ( select $charged from cust_bill
- where cust_bill._date > extract(epoch from now())-5184000
- and cust_bill._date <= extract(epoch from now())-2592000
- and cust_main.custnum = cust_bill.custnum
- )
- ,0
- ) as owed_30_60,
-
- coalesce(
- ( select $charged from cust_bill
- where cust_bill._date > extract(epoch from now())-7776000
- and cust_bill._date <= extract(epoch from now())-5184000
- and cust_main.custnum = cust_bill.custnum
- )
- ,0
- ) as owed_60_90,
-
- coalesce(
- ( select $charged from cust_bill
- where cust_bill._date <= extract(epoch from now())-7776000
- and cust_main.custnum = cust_bill.custnum
- )
- ,0
- ) as owed_90_plus,
-
- coalesce(
- ( select $charged from cust_bill
- where cust_main.custnum = cust_bill.custnum
- )
- ,0
- ) as owed_total
-END
-
- my $recurring = <<END;
- 0 < ( select freq from part_pkg
- where cust_pkg.pkgpart = part_pkg.pkgpart )
-END
-
- my $packages_cols = <<END;
-
- ( select count(*) from cust_pkg
- where cust_main.custnum = cust_pkg.custnum
- and $recurring
- and ( cancel = 0 or cancel is null )
- ) as uncancelled_pkgs,
-
- ( select count(*) from cust_pkg
- where cust_main.custnum = cust_pkg.custnum
- and $recurring
- and ( cancel = 0 or cancel is null )
- and ( susp = 0 or susp is null )
- ) as active_pkgs
-
-END
-
- my $sql = <<END;
-
-select *, $owed_cols, $packages_cols from cust_main
-where 0 <
- coalesce(
- ( select $charged from cust_bill
- where cust_main.custnum = cust_bill.custnum
- )
- ,0
- )
-
-order by lower(company), lower(last)
-
-END
-
- my $total_sql = "select $owed_cols";
-
- my $sth = dbh->prepare($sql) or die dbh->errstr;
- $sth->execute or die $sth->errstr;
-
- my $total_sth = dbh->prepare($total_sql) or die dbh->errstr;
- $total_sth->execute or die $total_sth->errstr;
-
-%>
-<%= header('Accounts Receivable Aging Summary', menubar( 'Main Menu'=>$p, ) ) %>
-<%= table() %>
- <TR>
- <TH>Customer</TH>
- <TH>Status</TH>
- <TH>0-30</TH>
- <TH>30-60</TH>
- <TH>60-90</TH>
- <TH>90+</TH>
- <TH>Total</TH>
- </TR>
-<% while ( my $row = $sth->fetchrow_hashref() ) {
- my $status = 'Cancelled';
- my $statuscol = 'FF0000';
- if ( $row->{uncancelled_pkgs} ) {
- $status = 'Suspended';
- $statuscol = 'FF9900';
- if ( $row->{active_pkgs} > $row->{uncancelled_pkgs} ) {
- $status = 'Active';
- $statuscol = '00CC00';
- }
- }
-%>
- <TR>
- <TD><A HREF="<%= $p %>view/cust_main.cgi?<%= $row->{'custnum'} %>">
- <%= $row->{'company'} ? $row->{'company'}. ' (' : '' %><%= $row->{'last'}. ', '. $row->{'first'} %><%= $row->{'company'} ? ')' : '' %></A>
- </TD>
- <TD><B><FONT SIZE=-1 COLOR="#<%= $statuscol %>"><%= $status %></FONT></B></TD>
- <TD ALIGN="right">$<%= sprintf("%.2f", $row->{'owed_0_30'} ) %></TD>
- <TD ALIGN="right">$<%= sprintf("%.2f", $row->{'owed_30_60'} ) %></TD>
- <TD ALIGN="right">$<%= sprintf("%.2f", $row->{'owed_60_90'} ) %></TD>
- <TD ALIGN="right">$<%= sprintf("%.2f", $row->{'owed_90_plus'} ) %></TD>
- <TD ALIGN="right"><B>$<%= sprintf("%.2f", $row->{'owed_total'} ) %></B></TD>
- </TR>
-<% } %>
-<% my $row = $total_sth->fetchrow_hashref(); %>
- <TR>
- <TD COLSPAN=6> </TD>
- </TR>
- <TR>
- <TD COLSPAN=2><I>Total</I></TD>
- <TD ALIGN="right"><I>$<%= sprintf("%.2f", $row->{'owed_0_30'} ) %></TD>
- <TD ALIGN="right"><I>$<%= sprintf("%.2f", $row->{'owed_30_60'} ) %></TD>
- <TD ALIGN="right"><I>$<%= sprintf("%.2f", $row->{'owed_60_90'} ) %></TD>
- <TD ALIGN="right"><I>$<%= sprintf("%.2f", $row->{'owed_90_plus'} ) %></TD>
- <TD ALIGN="right"><I><B>$<%= sprintf("%.2f", $row->{'owed_total'} ) %></B></I></TD>
- </TR>
-</TABLE>
-</BODY>
-</HTML>
+<& elements/cust_main_dayranges.html,
+ 'title' => emt('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>
projects / freeside.git / blobdiff