httemplate/search/cust_bill_event.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 #false laziness with view/cust_bill.cgi
   5
   6 $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/;
   7 my $beginning = str2time($1) || 0;
   8
   9 $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/;
  10 my $ending = str2time($1) + 86399;
  11
  12 my @cust_bill_event =
  13   sort { $a->_date <=> $b->_date }
  14     qsearch('cust_bill_event', {
  15       _date => { op=> '>=', value=>$beginning },
  16       statustext => { op=> '!=', value=>'' },
  17 # i wish...
  18 #      _date => { op=> '<=', value=>$ending },
  19     }, '', "AND _date <= $ending");
  20
  21 %>
  22
  23 <%= header('Failed billing events') %>
  24
  25 <%= table() %>
  26 <TR>
  27   <TH>Event</TH>
  28   <TH>Date</TH>
  29   <TH>Status</TH>
  30   <TH>Invoice</TH>
  31   <TH>(bill) name</TH>
  32   <TH>company</TH>
  33 <% if ( defined dbdef->table('cust_main')->column('ship_last') ) { %>
  34   <TH>(service) name</TH>
  35   <TH>company</TH>
  36 <% } %>
  37 </TR>
  38
  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;
  46 %>
  47 <TR>
  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>
  57   <% } %>
  58 </TR>
  59 <% } %>
  60 </TABLE>
  61
  62 </BODY></HTML>