X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fsearch%2Freport_receivables.cgi;h=9c5c0e2d9fb209280b081dac467a52211b2faa0b;hp=4c31f2afab80e48f835130e7dc5e686e396f05c3;hb=c3da5cf1caa244937d280e0f406927103beef148;hpb=9397849cb897ebc82a8c30846ce5556382b06920 diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi index 4c31f2afa..9c5c0e2d9 100755 --- a/httemplate/search/report_receivables.cgi +++ b/httemplate/search/report_receivables.cgi @@ -1,216 +1,39 @@ -<% - - sub owed { - my($start, $end, %opt) = @_; - - my @where = (); - - #handle start and end ranges - - #24h * 60m * 60s - push @where, "cust_bill._date <= extract(epoch from now())-". - ($start * 86400) - if $start; - - push @where, "cust_bill._date > extract(epoch from now()) - ". - ($end * 86400) - if $end; - - #handle 'cust' option - - push @where, "cust_main.custnum = cust_bill.custnum" - if $opt{'cust'}; - - #handle 'agentnum' option - my $join = ''; - if ( $opt{'agentnum'} ) { - $join = 'LEFT JOIN cust_main USING ( custnum )'; - push @where, "agentnum = '$opt{'agentnum'}'"; - } - - my $where = scalar(@where) ? 'WHERE '.join(' AND ', @where) : ''; - - my $as = $opt{'noas'} ? '' : "as owed_${start}_$end"; - - my $charged = < 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'); + + +<%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, ); +} - my $owed_cols = join(',', map owed( @$_, 'cust'=>1 ), @ranges ); - - my $select_count_pkgs = FS::cust_main->select_count_pkgs_sql; - - my $active_sql = FS::cust_pkg->active_sql; - my $inactive_sql = FS::cust_pkg->inactive_sql; - my $suspended_sql = FS::cust_pkg->inactive_sql; - my $cancelled_sql = FS::cust_pkg->inactive_sql; - - my $packages_cols = <1, 'noas'=>1). " > 0"; - - my $agentnum = ''; - if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { - $agentnum = $1; - $where .= " AND agentnum = '$agentnum' "; - } - - #here is the agent virtualization - $where .= ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql; - - my $count_sql = "select count(*) from cust_main $where"; - - my $sql_query = { - 'table' => 'cust_main', - 'hashref' => {}, - 'select' => "*, $owed_cols, $packages_cols", - 'extra_sql' => "$where order by coalesce(lower(company), ''), lower(last)", - }; - - my $total_sql = "select ". - join(',', map owed( @$_, 'agentnum'=>$agentnum ), @ranges ); - - my $total_sth = dbh->prepare($total_sql) or die dbh->errstr; - $total_sth->execute or die "error executing $total_sql: ". $total_sth->errstr; - my $row = $total_sth->fetchrow_hashref(); - - my $conf = new FS::Conf; - my $money_char = $conf->config('money_char') || '$'; - - my $align = join('', map { /#/ ? 'r' : 'l' } FS::UI::Web::cust_header() ). - 'crrrrr'; - - my $clink = [ "${p}view/cust_main.cgi?", 'custnum' ]; - - my $status_statuscol = sub { - #conceptual false laziness with cust_main::status... - my $row = shift; - - my $status = 'unknown'; - if ( $row->num_pkgs == 0 ) { - $status = 'prospect'; - } elsif ( $row->active_pkgs > 0 ) { - $status = 'active'; - } elsif ( $row->inactive_pkgs > 0 ) { - $status = 'inactive'; - } elsif ( $row->suspended_pkgs > 0 ) { - $status = 'suspended'; - } elsif ( $row->cancelled_pkgs > 0 ) { - $status = 'cancelled' - } - - ( ucfirst($status), $FS::cust_main::statuscolor{$status} ); - }; - - -%><%= include( 'elements/search.html', - 'title' => 'Accounts Receivable Aging Summary', - 'name' => 'customers', - 'query' => $sql_query, - 'count_query' => $count_sql, - 'header' => [ - FS::UI::Web::cust_header(), - 'Status', # (me)', - #'Status', # (cust_main)', - '0-30', - '30-60', - '60-90', - '90+', - 'Total', - ], - 'footer' => [ - 'Total', - ( map '', - ( 1 .. - scalar(FS::UI::Web::cust_header()-1) - ) - ), - '', - #'', - sprintf( $money_char.'%.2f', - $row->{'owed_0_30'} ), - sprintf( $money_char.'%.2f', - $row->{'owed_30_60'} ), - sprintf( $money_char.'%.2f', - $row->{'owed_60_90'} ), - sprintf( $money_char.'%.2f', - $row->{'owed_90_0'} ), - sprintf( ''. $money_char.'%.2f'. '', - $row->{'owed_0_0'} ), - ], - 'fields' => [ - \&FS::UI::Web::cust_fields, - sub { ( &{$status_statuscol}($row) )[0] }, - #sub { ucfirst(shift->status) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_0_30') ) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_30_60') ) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_60_90') ) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_90_0') ) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_0_0') ) }, - ], - 'links' => [ - ( map $clink, FS::UI::Web::cust_header() ), - '', - #'', - '', - '', - '', - '', - '', - ], - #'align' => 'rlccrrrrr', - 'align' => $align, - #'size' => [ '', '', '-1', '-1', '', '', '', '', '', ], - #'style' => [ '', '', 'b', 'b', '', '', '', '', 'b', ], - 'size' => [ ( map '', FS::UI::Web::cust_header() ), - '-1', '', '', '', '', '', ], - 'style' => [ ( map '', FS::UI::Web::cust_header() ), - 'b', '', '', '', '', 'b', ], - 'color' => [ - ( map '', FS::UI::Web::cust_header() ), - sub { ( &{$status_statuscol}($row) )[1] }, - #sub { shift->statuscolor; }, - '', - '', - '', - '', - '', - ], - - ) -%> +