httemplate/view/cust_pay.html

   1 % if ( $link eq 'popup' ) {
   2
   3   <% include('/elements/header-popup.html', "Payment Receipt" ) %>
   4
   5   <CENTER><A HREF="javascript:self.parent.location = '<% $pr_link %>'">Print</A></CENTER><BR>
   6
   7 % } elsif ( $link eq 'print' ) {
   8
   9   <% include('/elements/header-popup.html', "Payment Receipt" ) %>
  10
  11 % } else {
  12
  13   <% include('/elements/header.html', "Payment Receipt", menubar(
  14        "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  15        'Print receipt' => $pr_link,
  16      ))
  17   %>
  18
  19 % }
  20
  21 % unless ($link eq 'popup' ) {
  22   <% include('/elements/small_custview.html',
  23                $custnum,
  24                scalar($conf->config('countrydefault')),
  25                1, #no balance
  26             )
  27   %>
  28   <BR><BR>
  29 % }
  30
  31 <% ntable("#cccccc", 2) %>
  32
  33 <TR>
  34   <TD ALIGN="right">Payment#</TD>
  35   <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->paynum %></B></TD>
  36 </TR>
  37
  38 <TR>
  39   <TD ALIGN="right">Date</TD>
  40   <TD BGCOLOR="#FFFFFF"><B><% time2str"%a&nbsp;%b&nbsp;%o,&nbsp;%Y&nbsp;%r", $cust_pay->_date %></B></TD>
  41 </TR>
  42
  43 <TR>
  44   <TD ALIGN="right">Amount</TD>
  45   <TD BGCOLOR="#FFFFFF"><B><% $money_char. $cust_pay->paid %></B></TD>
  46 </TR>
  47
  48 <TR>
  49   <TD ALIGN="right">Payment method</TD>
  50   <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->payby_name %> #<% $cust_pay->paymask %></B></TD>
  51 </TR>
  52
  53 % if ( $cust_pay->payby =~ /^(CARD|CHEK|LECB)$/ && $cust_pay->paybatch ) {
  54
  55     <TR>
  56       <TD ALIGN="right">Processor</TD>
  57       <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->processor %></B></TD>
  58     </TR>
  59
  60     <TR>
  61       <TD ALIGN="right">Authorization#</TD>
  62       <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->authorization %></B></TD>
  63     </TR>
  64
  65 %   if ( $cust_pay->order_number ) {
  66       <TR>
  67         <TD ALIGN="right">Order#</TD>
  68         <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->order_number %></B></TD>
  69       </TR>
  70 %   }
  71
  72 % }
  73
  74 </TABLE>
  75
  76 % if ( $link eq 'print' ) {
  77
  78   <SCRIPT TYPE="text/javascript">
  79     window.print();
  80   </SCRIPT>
  81
  82 % }
  83
  84 % if ( $link =~ /^(popup|print)$/ ) {
  85     </BODY>
  86   </HTML>
  87 % } else {
  88   <% include('/elements/footer.html') %>
  89 % }
  90
  91 <%init>
  92
  93 my $curuser = $FS::CurrentUser::CurrentUser;
  94
  95 die "access denied"
  96   unless $curuser->access_right('View invoices') #remove this in 1.9
  97       || $curuser->access_right('View customer payments');
  98
  99 $cgi->param('paynum') =~ /^(\d+)$/ or die "no paynum";
 100 my $paynum = $1;
 101
 102 my $link = '';
 103 if ( $cgi->param('link') =~ /^(\w+)$/ ) {
 104   $link = $1;
 105 }
 106
 107 my $cust_pay = qsearchs({
 108   'select'    => 'cust_pay.*',
 109   'table'     => 'cust_pay',
 110   'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
 111   'hashref'   => { 'paynum' => $paynum },
 112   'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
 113 });
 114 die "Payment #$paynum not found!" unless $cust_pay;
 115
 116 my $pr_link = "${p}view/cust_pay.html?link=print;paynum=$paynum";
 117
 118 my $custnum = $cust_pay->custnum;
 119
 120 my $conf = new FS::Conf;
 121
 122 my $money_char = $conf->config('money_char') || '$';
 123
 124 tie my %payby, 'Tie::IxHash', FS::payby->payby2longname;
 125
 126 </%init>