-<!-- 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 $sql = <<END;
-
-select *, $owed_cols from cust_main
-where 0 <
- coalesce(
- ( select $charged from cust_bill
- where cust_main.custnum = cust_bill.custnum
- )
- ,0
- )
-
-order by company, 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;
-
+<% include( 'elements/cust_main_dayranges.html',
+ 'title' => 'Accounts Receivable Aging Summary',
+ 'range_sub' => \&balance,
+ 'payment_links' => 1,
+ )