[freeside-commits] branch FREESIDE_3_BRANCH updated. 5153c04218af1627d1e4e7c8216887fa3c54db7c
Christopher Burger
burgerc at 420.am
Tue Oct 24 08:31:21 PDT 2017
The branch, FREESIDE_3_BRANCH has been updated
via 5153c04218af1627d1e4e7c8216887fa3c54db7c (commit)
via 08ec0a26405eab73e9fe80632e788d9af4c76fe7 (commit)
from 57d4a5ffe7b86d032339d6eefe1a22277f3ca113 (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 5153c04218af1627d1e4e7c8216887fa3c54db7c
Author: Christopher Burger <burgerc at freeside.biz>
Date: Tue Oct 24 11:30:45 2017 -0400
RT# 77160 - updated query to not use cust_contact as that table does not exist in V3
diff --git a/httemplate/search/cust_timespan.html b/httemplate/search/cust_timespan.html
index a380b78..370b0b6 100644
--- a/httemplate/search/cust_timespan.html
+++ b/httemplate/search/cust_timespan.html
@@ -72,7 +72,7 @@ my $email_sub = sub {
#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) ',
+ addl_from => ' LEFT JOIN contact ON (contact_email.contactnum = contact.contactnum) LEFT JOIN cust_main ON (contact.custnum = cust_main.custnum) ',
extra_sql => ' WHERE cust_main.custnum = ' . $customer->custnum ,
} );
join('<br>', map $_->emailaddress, @contact_email);
commit 08ec0a26405eab73e9fe80632e788d9af4c76fe7
Author: Christopher Burger <burgerc at freeside.biz>
Date: Tue Sep 26 12:03:08 2017 -0400
RT# 77160 - created new customer time span report
Conflicts:
httemplate/elements/menu.html
diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html
index 045bbdf..9b30b6c 100644
--- a/httemplate/elements/menu.html
+++ b/httemplate/elements/menu.html
@@ -146,6 +146,7 @@ $report_customers{'Advanced customer reports'} = [ $fsurl. 'search/report_cust_m
if ( $curuser->access_right('List contacts') ) {
$report_customers{'separator'} = '';
$report_customers{'Customer contacts'} = [ $fsurl. 'search/report_contact.html?link=cust_main' ];
+ $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