+<TABLE>
+ <TR>
+ <TD ALIGN="left">
+
%# payment links
% my $s = 0;
<A HREF="<% $p %>edit/cust_pay.cgi?payby=WEST;custnum=<% $custnum %>"><% mt('Enter Western Union payment') |h %></A>
% }
+<BR>
+% $s=0;
+
% if ( ( $payby{'CARD'} || $payby{'DCRD'} )
% && $curuser->access_right(['Process payment', 'Process credit card payment'])
% && ! $cust_main->is_encrypted($cust_main->payinfo)
<A HREF="<% $p %>edit/cust_refund.cgi?payby=MCRD;custnum=<% $custnum %>"><% mt('Post manual (offline/POS) credit card refund') |h %></A>
% }
+ </TD>
+ <TD ALIGN="right" VALIGN="top">
+
+%# invoice reports
+% if ( $curuser->access_right('List invoices') ) {
+ <A HREF="<% $p %>search/report_cust_bill.html?custnum=<% $custnum %>"><% mt('Invoice reports') |h %></A>
+% }
<BR>
+%# XXX payments, credits, refund reports
+
%# tax exemption link
% my $view_exemptions = $curuser->access_right('View customer tax exemptions');
<A HREF="<% $p %>search/cust_pay_pending.html?magic=_date;statusNOT=done;custnum=<% $custnum %>"><% mt('View pending payments') |h %></A><BR>
% }
+ </TD>
+ </TR>
+ <TR>
+ <TD COLSPAN=2>
+
%# and now the table
<& /elements/table-grid.html &>
%
% my $charge = exists($item->{'charge'})
% ? sprintf("$money_char\%.2f", $item->{'charge'})
-% : '';
+% : exists($item->{'charge_nobal'})
+% ? sprintf("$money_char\%.2f", $item->{'charge_nobal'})
+% : '';
%
% my $payment = exists($item->{'payment'})
% ? sprintf("- $money_char\%.2f", $item->{'payment'})
%}
</TABLE>
+ </TD>
+ </TR>
+</TABLE>
<SCRIPT TYPE="text/javascript">
)
);
+$opt{'date_format'} ||= '%m/%d/%Y';
+
+#legacy invoices
+foreach my $legacy_cust_bill ($cust_main->legacy_cust_bill) {
+ push @history, {
+ 'date' => $legacy_cust_bill->_date,
+ 'desc' => include('payment_history/legacy_invoice.html', $legacy_cust_bill, %opt ),
+ 'charge_nobal' => $legacy_cust_bill->charged,
+ };
+}
+
#invoices
foreach my $cust_bill ($cust_main->cust_bill) {
push @history, {
my $payby = $object->payby;
my $payinfo = $object->payinfo;
+ my $conf = new FS::Conf;
+
if ( $payby eq 'CARD' ) {
$payinfo = $object->paymask;
} elsif ( $payby eq 'CHEK' ) {