httemplate/browse/cust_pay_batch.cgi

   1 <!-- mason kludge -->
   2 <%= include("/elements/header.html","Pending credit card batch", menubar( 'Main Menu' => $p,)) %>
   3
   4 <FORM ACTION="<%=$p%>misc/download-batch.cgi" METHOD="POST">
   5 Download batch in format <SELECT NAME="format">
   6 <OPTION VALUE="">Default batch mode</OPTION>
   7 <OPTION VALUE="csv-td_canada_trust-merchant_pc_batch">CSV file for TD Canada Trust Merchant PC Batch</OPTION>
   8 <OPTION VALUE="BoM">Bank of Montreal ECA results</OPTION>
   9 </SELECT><INPUT TYPE="submit" VALUE="Download"></FORM>
  10 <BR><BR>
  11
  12 <FORM ACTION="<%=$p%>misc/upload-batch.cgi" METHOD="POST" ENCTYPE="multipart/form-data">
  13 Upload results<BR>
  14 Filename <INPUT TYPE="file" NAME="batch_results"><BR>
  15 Format <SELECT NAME="format">
  16 <OPTION VALUE="">Default batch mode</OPTION>
  17 <OPTION VALUE="csv-td_canada_trust-merchant_pc_batch">CSV results from TD Canada Trust Merchant PC Batch</OPTION>
  18 <OPTION VALUE="BoM">Bank of Montreal ECA batch</OPTION>
  19 </SELECT><BR>
  20 <INPUT TYPE="submit" VALUE="Upload"></FORM>
  21 <BR>
  22
  23 <%
  24   my $statement = "SELECT SUM(amount) from cust_pay_batch";
  25   my $sth = dbh->prepare($statement) or die dbh->errstr. "doing $statement";
  26   $sth->execute or die "Error executing \"$statement\": ". $sth->errstr;
  27   my $total = $sth->fetchrow_arrayref->[0];
  28
  29   my $c_statement = "SELECT COUNT(*) from cust_pay_batch";
  30   my $c_sth = dbh->prepare($c_statement)
  31     or die dbh->errstr. "doing $c_statement";
  32   $c_sth->execute or die "Error executing \"$c_statement\": ". $c_sth->errstr;
  33   my $cards = $c_sth->fetchrow_arrayref->[0];
  34 %>
  35 <%= $cards %> credit card payments batched<BR>
  36 $<%= sprintf("%.2f", $total) %> total in pending batch<BR>
  37
  38 <BR>
  39 <%= &table() %>
  40       <TR>
  41         <TH>#</TH>
  42         <TH><font size=-1>inv#</font></TH>
  43         <TH COLSPAN=2>Customer</TH>
  44         <TH>Card name</TH>
  45         <TH>Card</TH>
  46         <TH>Exp</TH>
  47         <TH>Amount</TH>
  48       </TR>
  49
  50 <%
  51 foreach my $cust_pay_batch ( sort { $a->paybatchnum <=> $b->paybatchnum }
  52                              qsearch('cust_pay_batch', {} )
  53 ) {
  54   my $cardnum = $cust_pay_batch->payinfo;
  55   #$cardnum =~ s/.{4}$/xxxx/;
  56   $cardnum = 'x'x(length($cardnum)-4). substr($cardnum,(length($cardnum)-4));
  57
  58   $cust_pay_batch->exp =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
  59   my( $mon, $year ) = ( $2, $1 );
  60   $mon = "0$mon" if $mon < 10;
  61   my $exp = "$mon/$year";
  62
  63 %>
  64
  65       <TR>
  66         <TD><%= $cust_pay_batch->paybatchnum %></TD>
  67         <TD><A HREF="../view/cust_bill.cgi?<%= $cust_pay_batch->invnum %>"><%= $cust_pay_batch->invnum %></TD>
  68         <TD><A HREF="../view/cust_main.cgi?<%= $cust_pay_batch->custnum %>"><%= $cust_pay_batch->custnum %></TD>
  69         <TD><%= $cust_pay_batch->get('last'). ', '. $cust_pay_batch->first %></TD>
  70         <TD><%= $cust_pay_batch->payname %></TD>
  71         <TD><%= $cardnum %></TD>
  72         <TD><%= $exp %></TD>
  73         <TD align="right">$<%= $cust_pay_batch->amount %></TD>
  74       </TR>
  75
  76 <% } %>
  77
  78     </TABLE>
  79   </BODY>
  80 </HTML>