[freeside-commits] branch master updated. ee2fb1a8744b88d699517ed636ab3cb1b99c53f0
Christopher Burger
burgerc at 420.am
Tue Sep 26 09:03:35 PDT 2017
The branch, master has been updated
via ee2fb1a8744b88d699517ed636ab3cb1b99c53f0 (commit)
from 3fda01cc7d4de589d93bf0219e2a959200da7e33 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit ee2fb1a8744b88d699517ed636ab3cb1b99c53f0
Author: Christopher Burger <burgerc at freeside.biz>
Date: Tue Sep 26 12:03:08 2017 -0400
RT# 77160 - created new customer time span report
diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html
index 8541456..defcc49 100644
--- a/httemplate/elements/menu.html
+++ b/httemplate/elements/menu.html
@@ -147,6 +147,7 @@ if ( $curuser->access_right('List contacts') ) {
$report_customers{'separator'} = '';
$report_customers{'Customer contacts'} = [ $fsurl. 'search/report_contact.html?link=cust_main' ];
$report_customers{'Customer stored payment information'} = [ $fsurl. 'search/report_cust_payby.html' ];
+ $report_customers{'Customer timespan'} = [ $fsurl. 'search/report_cust_timespan.html' ];
}
tie my %report_invoices_open, 'Tie::IxHash',
diff --git a/httemplate/search/cust_timespan.html b/httemplate/search/cust_timespan.html
new file mode 100644
index 0000000..a380b78
--- /dev/null
+++ b/httemplate/search/cust_timespan.html
@@ -0,0 +1,117 @@
+<& elements/search.html,
+ 'title' => emt('Customer Timespan Report'),
+ 'name' => emt('customers'),
+ 'query' => {
+ select => join(', ', @select),
+ table => $table,
+ addl_from => $addl_from,
+ extra_sql => $extra_sql,
+ },
+ 'count_query' => $count_query,
+ 'header' => \@header,
+ 'fields' => \@fields,
+ 'links' => \@links,
+
+&>
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Advanced customer search');
+
+my $table = 'cust_main';
+my $customer_link = [ "${p}view/cust_main.cgi?", 'custnum' ];
+my $agent_sql;
+
+## get agent numbers
+if (length($cgi->param('agentnum'))) {
+ $cgi->param('agentnum') =~ /^(\d+)$/ or errorpage("Illegal agentnum");
+ $agent_sql = ' and cust_main.agentnum = ' . $1;
+}
+
+
+## get selected requested customers
+my $cust_status = $cgi->param('cust_status');
+
+my %type_sql_map = (
+ 'cancelled' => 'cancel_sql',
+ 'suspended' => 'susp_sql',
+);
+
+my $type_sql = $type_sql_map{$cust_status};
+$type_sql = 'cancel_sql' unless $type_sql;
+
+my @custs = qsearch({
+ table => 'cust_main',
+ extra_sql => ' where ' . FS::cust_main->$type_sql,
+});
+my @customers = ('0');
+foreach my $cust (@custs) { push @customers, $cust->custnum; }
+
+## get locations
+my $location_sub = sub {
+ my $customer = shift;
+ my @cust_location = qsearch({
+ table => 'cust_location',
+ select => 'cust_location.*',
+ addl_from => ' LEFT JOIN cust_main ON (cust_location.locationnum = cust_main.bill_locationnum) ',
+ extra_sql => ' WHERE cust_main.custnum = ' . $customer->custnum ,
+ } );
+
+ my $location;
+ foreach my $loc (@cust_location) {
+ $location .= $loc->address1 unless !$loc->address1;
+ $location .= "<br>" . $loc->address2 unless !$loc->address2;
+ $location .= "<br>" . $loc->city . ", " . $loc->state . ' ' . $loc->zip unless !$loc->city;
+ }
+ $location;
+};
+
+## get contact emails for customer
+my $email_sub = sub {
+ my $customer = shift;
+ #can't because contactnum is in the wrong field #my @contact_email = $contact->contact_email;
+ my @contact_email = qsearch({
+ table => 'contact_email',
+ addl_from => ' LEFT JOIN cust_contact ON (contact_email.contactnum = cust_contact.contactnum) LEFT JOIN cust_main ON (cust_contact.custnum = cust_main.custnum) ',
+ extra_sql => ' WHERE cust_main.custnum = ' . $customer->custnum ,
+ } );
+ join('<br>', map $_->emailaddress, @contact_email);
+};
+
+## sql to get only canceled customers
+my @status = ('active', 'on hold', 'suspended', 'not yet billed', 'one-time charge');
+my $active_pkg_sql = 'select pkgnum from cust_pkg where cust_pkg.custnum = cust_main.custnum and ' . FS::cust_pkg->status_sql . " in ('".join( "', '", @status )."') limit 1";
+
+## sql to get the first active date, last cancel date, and last reason.
+my $active_date = 'select min(setup) from cust_pkg left join part_pkg using (pkgpart) where cust_pkg.custnum = cust_main.custnum and part_pkg.freq > \'0\'';
+my $cancel_date = 'select max(cancel) from cust_pkg where cust_pkg.custnum = cust_main.custnum';
+my $cancel_reason = 'select reason.reason from cust_pkg
+ left join cust_pkg_reason on (cust_pkg.pkgnum = cust_pkg_reason.pkgnum)
+ left join reason on (cust_pkg_reason.reasonnum = reason.reasonnum)
+ where cust_pkg.custnum = cust_main.custnum and cust_pkg_reason.date = ('.$cancel_date.')
+';
+
+my @header = ( '#', 'Name', 'Address', 'Phone', 'Email', 'Active Date', 'Cancelled Date', 'Reason', 'Active Days' );
+my @fields = ( 'custnum', 'custname', $location_sub, 'daytime', $email_sub, 'active_date', 'cancel_date', 'cancel_reason', 'active_days' );
+my @links = ( $customer_link, $customer_link, '', '', '', '', '', '', '' );
+my @select = (
+ 'cust_main.*',
+ 'cust_location.*',
+ 'part_pkg.*',
+ "(select to_char((select to_timestamp((".$active_date."))), 'Mon DD YYYY')) AS active_date",
+ "(select to_char((select to_timestamp((".$cancel_date."))), 'Mon DD YYYY')) AS cancel_date",
+ "($cancel_reason) AS cancel_reason",
+ "(select date_part('day', (select to_timestamp((".$cancel_date."))) - (select to_timestamp((".$active_date."))) )) AS active_days",
+ "CONCAT_WS(', ', last, first) AS custname",
+);
+my $addl_from = '
+ LEFT JOIN cust_location ON (cust_main.bill_locationnum = cust_location.locationnum)
+ LEFT JOIN cust_pkg ON (cust_main.custnum = cust_pkg.custnum)
+ LEFT JOIN part_pkg ON (cust_pkg.pkgpart = part_pkg.pkgpart)
+';
+my $extra_sql = " WHERE (".$active_date.") IS NOT NULL AND (".$cancel_date.") IS NOT NULL AND cust_main.custnum IN ('" . join( "', '", @customers ). "') $agent_sql ";
+
+## sql to get record count
+my $count_query = 'select COUNT(*) from ' . $table . ' ' . $extra_sql;
+
+</%init>
\ No newline at end of file
diff --git a/httemplate/search/report_cust_timespan.html b/httemplate/search/report_cust_timespan.html
new file mode 100644
index 0000000..4ff3bb8
--- /dev/null
+++ b/httemplate/search/report_cust_timespan.html
@@ -0,0 +1,42 @@
+<& /elements/header.html, mt($title) &>
+
+<FORM ACTION="cust_timespan.html" METHOD="GET">
+
+<TABLE BGCOLOR="#cccccc" CELLSPACING=0>
+
+ <& /elements/tr-select-agent.html,
+ 'curr_value' => scalar( $cgi->param('agentnum') ),
+ 'label' => emt('Contacts for agent: '),
+ 'disable_empty' => 0,
+ &>
+
+ <& /elements/tr-select.html,
+ 'label' => 'Customer status',
+ 'field' => 'cust_status',
+ 'options' => [ 'cancelled', 'suspended'],
+ 'labels' => { 'cancelled' => 'Cancelled Customers',
+ 'suspended' => 'Suspended Customers',
+ },
+ 'curr_value' => scalar( $cgi->param('cust_status') ),
+ &>
+
+</FORM>
+
+</TABLE>
+
+<BR>
+<INPUT TYPE="submit" VALUE="<% mt('Get Report') |h %>">
+
+</FORM>
+
+<& /elements/footer.html &>
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('List contacts');
+
+my $conf = new FS::Conf;
+
+my $title = 'Customer Timespan Report';
+
+</%init>
\ No newline at end of file
-----------------------------------------------------------------------
Summary of changes:
httemplate/elements/menu.html | 1 +
httemplate/search/cust_timespan.html | 117 ++++++++++++++++++++
...port_contact.html => report_cust_timespan.html} | 19 ++--
3 files changed, 127 insertions(+), 10 deletions(-)
create mode 100644 httemplate/search/cust_timespan.html
copy httemplate/search/{report_contact.html => report_cust_timespan.html} (55%)
More information about the freeside-commits
mailing list