5 files changed, 96 insertions, 0 deletions
diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html
index c4422a017..1e7c12b2e 100644
--- a/httemplate/elements/menu.html
+++ b/httemplate/elements/menu.html
@@ -295,6 +295,7 @@ if($curuser->access_right('Financial reports')) {
   $report_financial{'Sales Tax Liability'} = [ $fsurl.'search/report_tax.html', 'Sales tax liability report (internal taxclass system)' ];
   $report_financial{'Tax Liability'} = [ $fsurl.'search/report_newtax.html', 'Tax liability report (vendor data tax products system)' ]
     if $conf->exists('enable_taxproducts');
+  $report_financial{'Customer Accounting Summary'} = [ $fsurl.'search/report_customer_accounting_summary.html', 'Customer accounting summary report' ];
 
 } elsif($curuser->access_right('Receivables report')) {
 
diff --git a/httemplate/graph/elements/monthly.html b/httemplate/graph/elements/monthly.html
index 7b1b98a61..de2b2e9d4 100644
--- a/httemplate/graph/elements/monthly.html
+++ b/httemplate/graph/elements/monthly.html
@@ -101,6 +101,7 @@ my $report = new FS::Report::Table::Monthly (
 
   'agentnum'     => $opt{'agentnum'},
   'remove_empty' => $opt{'remove_empty'},
+  'doublemonths' => $opt{'doublemonths'},
 );
 my $data = $report->data;
 
diff --git a/httemplate/graph/elements/report.html b/httemplate/graph/elements/report.html
index b831f3a4f..2a5a1420f 100644
--- a/httemplate/graph/elements/report.html
+++ b/httemplate/graph/elements/report.html
@@ -163,9 +163,11 @@ any delimiter and linked from the elements in @data.
 % } else {
 %
 <% include('/elements/header.html', $opt{'title'} ) %>
+% unless ( $opt{'graph_type'} eq 'none' ) {
 % $cgi->param('_type', 'png'); 
 
 <IMG SRC="<% $cgi->self_url %>" WIDTH="976" HEIGHT="384">
+% }
 <P ALIGN="right">
 
 % unless ( $opt{'disable_download'} ) { 
diff --git a/httemplate/search/customer_accounting_summary.html b/httemplate/search/customer_accounting_summary.html
new file mode 100644
index 000000000..8da8914c8
--- /dev/null
+++ b/httemplate/search/customer_accounting_summary.html
@@ -0,0 +1,59 @@
+<% include('/graph/elements/monthly.html',
+   #Dumper(
+                'title'        => $title,
+                'graph_type'   => 'none',
+                'items'        => \@items,
+                'params'       => \@params,
+                'labels'       => \@labels,
+                'graph_labels' => \@labels,
+                'remove_empty' => 1,
+                'bottom_total' => 1,
+                'agentnum'     => $agentnum,
+		'doublemonths' => \@doublemonths,
+		'nototal'	=> 1,
+             )
+%>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
+
+my @doublemonths = ( 'Billed', 'Paid' );
+
+my ($agentnum,$sel_agent);
+if ( $cgi->param('agentnum') eq 'all' ) {
+  $agentnum = 0;
+}
+elsif ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
+  $agentnum = $1;
+  $sel_agent = qsearchs('agent', { 'agentnum' => $agentnum } );
+  die "agentnum $agentnum not found!" unless $sel_agent;
+}
+my $title = $sel_agent ? $sel_agent->agent.' ' : '';
+$title .= 'Customer Accounting Summary Report';
+
+my @custs = ();
+@custs = qsearch('cust_main', {} ); 
+
+my @items  = ();
+my @params = ();
+my @labels = ();
+
+my $status = $cgi->param('status');
+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);
+
+  push @items, 'netsales', 'cashflow';
+
+  push @labels, $cust_main->name;
+
+  push @params, [ ('custnum' => $cust_main->custnum),
+		],
+		[ ('custnum' => $cust_main->custnum),
+		];
+}
+
+</%init>
diff --git a/httemplate/search/report_customer_accounting_summary.html b/httemplate/search/report_customer_accounting_summary.html
new file mode 100755
index 000000000..d20f756c8
--- /dev/null
+++ b/httemplate/search/report_customer_accounting_summary.html
@@ -0,0 +1,33 @@
+<% include('/elements/header.html', 'Customer Accounting Summary Report' ) %>
+
+<FORM ACTION="customer_accounting_summary.html" METHOD="GET">
+
+  <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
+
+    <% include( '/elements/tr-select-agent.html',
+                 'curr_value'    => scalar( $cgi->param('agentnum') ),
+                 'label'         => 'Agent ',
+                 'disable_empty' => 0,
+             )
+    %>
+
+    <% include('/elements/tr-select-from_to.html' ) %>
+    
+    <% include( '/elements/tr-select-cust_main-status.html',
+		'label' => 'Customer Status'
+    ) %>
+    
+  </TABLE>
+
+<BR>
+<INPUT TYPE="submit" VALUE="Get Report">
+
+</FORM>
+
+<% include('/elements/footer.html') %>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
+
+</%init>