add advertising source to customer accounting summary, RT#18349

diff --git a/httemplate/search/customer_accounting_summary.html b/httemplate/search/customer_accounting_summary.html
index 8da8914..72a00ed 100644 (file)
--- a/httemplate/search/customer_accounting_summary.html
+++ b/httemplate/search/customer_accounting_summary.html
@@ -30,6 +30,19 @@ elsif ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
   die "agentnum $agentnum not found!" unless $sel_agent;
 }
 my $title = $sel_agent ? $sel_agent->agent.' ' : '';
+
+my ($refnum,$sel_part_referral);
+#if ( $cgi->param('refnum') eq 'all' ) {
+#  $refnum = 0;
+#} els
+if ( $cgi->param('refnum') =~ /^(\d+)$/ ) {
+  $refnum = $1;
+  $sel_part_referral = qsearchs('part_referral', { 'refnum' => $refnum } );
+  die "refnum $refnum not found!" unless $sel_part_referral;
+}
+$title .=  $sel_part_referral->referral.' '
+  if $sel_part_referral;
+
 $title .= 'Customer Accounting Summary Report';
 
 my @custs = ();
@@ -45,6 +58,7 @@ die "invalid status" unless $status =~ /^\w+|$/;
 foreach my $cust_main ( @custs ) {
   next unless ($status eq '' || $status eq $cust_main->status); 
   next unless ($agentnum == 0 || $cust_main->agentnum eq $agentnum);
+  next unless ($refnum   == 0 || $cust_main->refnum eq $refnum);
 
   push @items, 'netsales', 'cashflow';
 

diff --git a/httemplate/search/report_customer_accounting_summary.html b/httemplate/search/report_customer_accounting_summary.html
index d20f756..f2a13a2 100755 (executable)
--- a/httemplate/search/report_customer_accounting_summary.html
+++ b/httemplate/search/report_customer_accounting_summary.html
@@ -11,6 +11,14 @@
              )
     %>
 
+    <% include( '/elements/tr-select-part_referral.html',
+                 'curr_value'    => scalar( $cgi->param('refnum') ),
+                 'label'         => 'Advertising source ',
+                 'disable_empty' => 0,
+                 'empty_label'   => 'all',
+             )
+    %>
+
     <% include('/elements/tr-select-from_to.html' ) %>
     
     <% include( '/elements/tr-select-cust_main-status.html',