diff options
Diffstat (limited to 'httemplate/search/cust_credit_refund.html')
-rw-r--r-- | httemplate/search/cust_credit_refund.html | 135 |
1 files changed, 0 insertions, 135 deletions
diff --git a/httemplate/search/cust_credit_refund.html b/httemplate/search/cust_credit_refund.html deleted file mode 100644 index fd87aa575..000000000 --- a/httemplate/search/cust_credit_refund.html +++ /dev/null @@ -1,135 +0,0 @@ -<% include( 'elements/search.html', - 'title' => $title, - 'name' => 'net refunds', - 'query' => $sql_query, - 'count_query' => $count_query, - 'count_addl' => [ '$%.2f total refunded (net)', ], - 'header' => [ 'Net applied', - 'to Credit', - 'Refund', - 'By', - FS::UI::Web::cust_header(), - ], - 'fields' => [ - sub { $money_char. sprintf('%.2f', shift->amount ) }, - sub { my $ccr = shift; - '#'.$ccr->crednum. ' '. - time2str('%b %d %Y', $ccr->cust_credit_date ). - " ($money_char". - sprintf('%.2f', $ccr->cust_credit_amount). - ")" - }, - sub { my $ccr = shift; - time2str('%b %d %Y', $ccr->_date ). - " ($money_char". - sprintf('%.2f', $ccr->cust_refund_refund ). - ")" - }, - sub { shift->cust_refund->otaker }, - \&FS::UI::Web::cust_fields, - ], - 'sort_fields' => [ - 'amount', - '', #cust_credit_amount? cust_credit_date? prolly split field - '', #_date? cust_refund_refund? also split - ], - 'align' => 'rrrl'.FS::UI::Web::cust_aligns(), - 'links' => [ - '', - '', - '', - '', - ( map { $_ ne 'Cust. Status' ? $cust_link : '' } - FS::UI::Web::cust_header() - ), - ], - 'color' => [ - '', - '', - '', - '', - FS::UI::Web::cust_colors(), - ], - 'style' => [ - '', - '', - '', - '', - FS::UI::Web::cust_styles(), - ], - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); - -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - -my $title = 'Net Refund Search Results'; - -my @search = (); - -if ( $cgi->param('agentnum') && $cgi->param('agentnum') =~ /^(\d+)$/ ) { - push @search, "agentnum = $1"; - my $agent = qsearchs('agent', { 'agentnum' => $1 } ); - die "unknown agentnum $1" unless $agent; - $title = $agent->agent. " $title"; -} - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -push @search, "cust_credit._date >= $beginning ", - "cust_credit._date <= $ending"; - -#here is the agent virtualization -push @search, $FS::CurrentUser::CurrentUser->agentnums_sql; - -my $where = 'WHERE '. join(' AND ', @search); -# -my $count_query = 'SELECT COUNT(*), SUM(cust_credit_refund.amount) - FROM cust_credit_refund - LEFT JOIN cust_credit USING ( crednum ) - LEFT JOIN cust_main USING ( custnum ) '. - $where; - -my $sql_query = { - 'table' => 'cust_credit_refund', - 'select' => join(', ', - 'cust_credit_refund.*', - 'cust_refund.refund AS cust_refund_refund', - 'cust_credit._date AS cust_credit_date', - 'cust_credit.amount AS cust_credit_amnount', - 'cust_refund.custnum AS custnum', - 'cust_main.custnum AS cust_main_custnum', - FS::UI::Web::cust_sql_fields(), - ), - 'hashref' => {}, - 'extra_sql' => $where, - 'addl_from' => 'LEFT JOIN cust_credit USING ( crednum ) - LEFT JOIN cust_refund USING ( refundnum ) - LEFT JOIN cust_main ON ( cust_credit.custnum = cust_main.custnum )', -}; - -#my $cust_credit_link = sub { -# my $cust_credit_refund = shift; -# $cust_credit_refund->crednum -# ? [ "${p}view/cust_credit.cgi?", 'credum' ] -# : ''; -#}; - -#my $cust_refund_link = sub { -# my $cust_credit_refund = shift; -# $cust_credit_refund->refundnum -# ? [ "${p}view/cust_refund.cgi?", 'refundnum' ] -# : ''; -#}; - -my $cust_link = sub { - my $cust_credit_refund = shift; - $cust_credit_refund->cust_main_custnum - ? [ "${p}view/cust_main.cgi?", 'cust_main_custnum' ] - : ''; -}; - -</%init> |