Revert "RT# 39340 - configured the minimal selfservice to get mac address from radius...
[freeside.git] / httemplate / search / agent_credit_payment.html
1 <& elements/grid-report.html,
2     title => $title.'Package Agent Credits and Payments',
3     rows  => $rows,
4         cells => $cells,
5     head  => <<END,
6 <P>Shows agent commission credits, and payments applied to invoices for packages that triggered those credits.</P>
7 <STYLE SCOPED>
8 td.creditcell { background-color: #ffff99; }
9 td.paycell    { background-color: #66ff66; }
10 </STYLE>
11 END
12 &>
13
14 <%init>
15
16 my $curuser = $FS::CurrentUser::CurrentUser;
17 die "access denied"
18   unless $curuser->access_right('Financial reports');
19
20 my $extra_sql = '';
21
22 # search for agent
23 my ($agentnum,$sel_agent);
24 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
25   $agentnum = $1;
26   $sel_agent = qsearchs('agent', { 'agentnum' => $agentnum } );
27   die "agentnum $agentnum not found!" unless $sel_agent;
28   $extra_sql .= "  AND cust_credit.commission_agentnum = $agentnum\n";
29 }
30 my $title = $sel_agent ? $sel_agent->agent.' ' : '';
31
32 # search for credits in time period (applied to payments in $query)
33 my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
34 $extra_sql .= "  AND cust_credit._date >= $beginning\n";
35 $extra_sql .= "  AND cust_credit._date <= $ending\n";
36
37 # agent virtualization
38 my $agentnums_sql = $curuser->agentnums_sql( table => 'agent' );
39
40 my $join = <<END;
41   LEFT JOIN agent ON ( cust_credit.commission_agentnum = agent.agentnum )
42   LEFT JOIN cust_pkg ON ( cust_credit.commission_pkgnum = cust_pkg.pkgnum )
43   LEFT JOIN part_pkg ON ( cust_pkg.pkgpart = part_pkg.pkgpart )
44 END
45
46 my $query = <<END;
47 SELECT DISTINCT
48   agent,
49   cust_pkg.custnum AS xcustnum,
50   cust_credit.commission_pkgnum AS xpkgnum,
51   pkg,
52   'cust_pay' AS xtable,
53   cust_pay.paynum AS xnum,
54   to_timestamp(cust_pay._date) AS xdate,
55   cust_pay.paid AS xamount,
56   cust_pay.order_number AS order_number
57 FROM cust_pay
58   INNER JOIN cust_bill_pay ON ( cust_pay.paynum = cust_bill_pay.paynum )
59   INNER JOIN cust_bill_pkg ON ( cust_bill_pay.invnum = cust_bill_pkg.invnum )
60   INNER JOIN cust_credit ON ( cust_bill_pkg.pkgnum = cust_credit.commission_pkgnum )
61 $join
62 WHERE cust_credit.commission_pkgnum IS NOT NULL
63   AND cust_pay._date >= $beginning
64   AND cust_pay._date <= $ending
65   AND $agentnums_sql
66 $extra_sql
67 UNION
68 SELECT DISTINCT
69   agent,
70   cust_pkg.custnum AS xcustnum,
71   cust_credit.commission_pkgnum AS xpkgnum,
72   pkg,
73   'cust_credit' AS xtable,
74   cust_credit.crednum AS xnum,
75   to_timestamp(cust_credit._date) AS xdate,
76   cust_credit.amount AS xamount,
77   '' AS order_number
78 FROM cust_credit
79 $join
80 WHERE cust_credit.commission_pkgnum is not null
81   AND $agentnums_sql
82 $extra_sql
83 ORDER BY agent, xcustnum, xpkgnum, xdate
84 END
85
86 my $sth = dbh->prepare($query) or die dbh->errstr;
87 $sth->execute() or die $sth->errstr;
88
89 my $cells = [];
90 my $rows  = [];
91 my $agentstack = [];
92 my $custstack = [];
93 my $pkgstack = [];
94 my ($prev_agent,$count_agent,$prev_cust,$count_cust,$prev_pkg,$count_pkg);
95 while (my $row = $sth->fetchrow_arrayref) {
96   my @row = @$row;
97   my $curr_agent = shift @row;
98   my $curr_cust  = shift @row;
99   my $curr_pkg   = (shift @row) . ': ' . (shift @row);
100
101   if ($curr_pkg eq $prev_pkg) {
102     $count_pkg += 1;
103   } else {
104     unshift @{$$pkgstack[0]}, { value => $prev_pkg, rowspan => $count_pkg } if @$pkgstack;;
105     push @$custstack, @$pkgstack;
106     $pkgstack = [];
107     $count_pkg = 1;
108   }
109   $prev_pkg = $curr_pkg;
110
111   if ($curr_cust eq $prev_cust) {
112     $count_cust += 1;
113   } else {
114     if (@$custstack) {
115       my $cust_main = qsearchs('cust_main',{ custnum => $prev_cust });
116       unshift @{$$custstack[0]}, { value => $cust_main->name, rowspan => $count_cust } if @$custstack;;
117     }
118     push @$agentstack, @$custstack;
119     $custstack = [];
120     $count_cust = 1;
121   }
122   $prev_cust = $curr_cust;
123
124   if ($curr_agent eq $prev_agent) {
125     $count_agent += 1;
126   } else {
127     unshift @{$$agentstack[0]}, { value => $prev_agent, rowspan => $count_agent } if @$agentstack;;
128     push @$cells, @$agentstack;
129     $agentstack = [];
130     $count_agent = 1;
131   }
132   $prev_agent = $curr_agent;
133
134   my %coloropts = ($row[0] eq 'cust_credit') ? ( 'class' => 'creditcell' ) : ( 'class' => 'paycell' );
135   push @$pkgstack, [ map { { value => $_, %coloropts } } @row ];
136 }
137
138 unshift @{$$pkgstack[0]}, { value => $prev_pkg, rowspan => $count_pkg } if @$pkgstack;;
139 push @$custstack, @$pkgstack;
140 if (@$custstack) {
141   my $cust_main = qsearchs('cust_main',{ custnum => $prev_cust });
142   unshift @{$$custstack[0]}, { value => $cust_main->name, rowspan => $count_cust } if @$custstack;;
143 }
144 push @$agentstack, @$custstack;
145 unshift @{$$agentstack[0]}, { value => $prev_agent, rowspan => $count_agent } if @$agentstack;;
146 push @$cells, @$agentstack;
147
148 $sth->finish;
149
150 my $rows  = [ map { {} } @$cells ];
151
152 unshift @$cells, [ map { { value => $_, header => 1 } } ('Agent','Customer','Package','Table','#','Date','Amount','Order Number') ];
153 unshift @$rows, { header => 1 };
154
155 </%init>