httemplate/browse/cust_pay_batch.cgi

   1 <!-- mason kludge -->
   2 <%= header("Pending credit card batch", menubar( 'Main Menu' => $p,)) %>
   3
   4 <FORM ACTION="<%=$p%>misc/download-batch.cgi" METHOD="POST">
   5
   6 Download batch in format <SELECT NAME="format">
   7 <OPTION VALUE="csv">Generic CSV (comma-separated value)</OPTION>
   8 <OPTION VALUE="csv-td_canada_trust-merchant_pc_batch">CSV file for TD Canada Trust Merchant PC Batch</OPTION>
   9 </SELECT><INPUT TYPE="submit" VALUE="Download">
  10 <BR><BR>
  11
  12 <%= &table() %>
  13       <TR>
  14         <TH>#</TH>
  15         <TH><font size=-1>inv#</font></TH>
  16         <TH COLSPAN=2>Customer</TH>
  17         <TH>Card name</TH>
  18         <TH>Card</TH>
  19         <TH>Exp</TH>
  20         <TH>Amount</TH>
  21       </TR>
  22
  23 <%
  24 foreach my $cust_pay_batch ( sort { $a->paybatchnum <=> $b->paybatchnum }
  25                              qsearch('cust_pay_batch', {} )
  26 ) {
  27   my $cardnum = $cust_pay_batch->cardnum;
  28   #$cardnum =~ s/.{4}$/xxxx/;
  29   $cardnum = 'x'x(length($cardnum)-4). substr($cardnum,(length($cardnum)-4));
  30
  31   $cust_pay_batch->exp =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
  32   my( $mon, $year ) = ( $2, $1 );
  33   $mon = "0$mon" if $mon < 10;
  34   my $exp = "$mon/$year";
  35
  36 %>
  37
  38       <TR>
  39         <TD><%= $cust_pay_batch->paybatchnum %></TD>
  40         <TD><A HREF="../view/cust_bill.cgi?<%= $cust_pay_batch->invnum %>"><%= $cust_pay_batch->invnum %></TD>
  41         <TD><A HREF="../view/cust_main.cgi?<%= $cust_pay_batch->custnum %>"><%= $cust_pay_batch->custnum %></TD>
  42         <TD><%= $cust_pay_batch->get('last'). ', '. $cust_pay_batch->first %></TD>
  43         <TD><%= $cust_pay_batch->payname %></TD>
  44         <TD><%= $cardnum %></TD>
  45         <TD><%= $exp %></TD>
  46         <TD align="right">$<%= $cust_pay_batch->amount %></TD>
  47       </TR>
  48
  49 <% } %>
  50
  51     </TABLE>
  52   </BODY>
  53 </HTML>