4 #false laziness with view/cust_bill.cgi
6 $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/;
7 my $beginning = str2time($1) || 0;
9 $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/;
10 my $ending = ( $1 ? str2time($1) : 4294880896 ) + 86399;
13 sort { $a->_date <=> $b->_date }
14 qsearch('cust_bill_event', {
15 _date => { op=> '>=', value=>$beginning },
16 statustext => { op=> '!=', value=>'' },
18 # _date => { op=> '<=', value=>$ending },
19 }, '', "AND _date <= $ending");
23 <%= header('Failed billing events') %>
33 <% if ( defined dbdef->table('cust_main')->column('ship_last') ) { %>
34 <TH>(service) name</TH>
39 <% foreach my $cust_bill_event ( @cust_bill_event ) {
40 my $status = $cust_bill_event->status;
41 $status .= ': '.$cust_bill_event->statustext if $cust_bill_event->statustext;
42 my $cust_bill = $cust_bill_event->cust_bill;
43 my $cust_main = $cust_bill->cust_main;
44 my $invlink = "${p}view/cust_bill.cgi?". $cust_bill->invnum;
45 my $custlink = "${p}view/cust_main.cgi?". $cust_main->custnum;
48 <TD><%= $cust_bill_event->part_bill_event->event %></TD>
49 <TD><%= time2str("%a %b %e %T %Y", $cust_bill_event->_date) %></TD>
50 <TD><%= $status %></TD>
51 <TD><A HREF="<%=$invlink%>">Invoice #<%= $cust_bill->invnum %> (<%= time2str("%D", $cust_bill->_date ) %>)</A></TD>
52 <TD><A HREF="<%=$custlink%>"><%= $cust_main->last. ', '. $cust_main->first %></A></TD>
53 <TD><A HREF="<%=$custlink%>"><%= $cust_main->company %></A></TD>
54 <% if ( defined dbdef->table('cust_main')->column('ship_last') ) { %>
55 <TD><A HREF="<%=$custlink%>"><%= $cust_main->ship_last. ', '. $cust_main->ship_first %></A></TD>
56 <TD><A HREF="<%=$custlink%>"><%= $cust_main->ship_company %></A></TD>