--- /dev/null
+<% 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>