'cust_main' => $cust_main,
'actionlabel' => emt('Enter check payment'),
'width' => 392,
+ 'height' => 392,
&>
% }
'cust_main' => $cust_main,
'actionlabel' => emt('Enter cash payment'),
'width' => 392,
+ 'height' => 392,
&>
% }
</TD>
<TD ALIGN="right" VALIGN="top">
-%# invoice reports
+%# invoice reports, combined statement
% if ( $curuser->access_right('List invoices') ) {
+% if ( $conf->exists('cust_main-print_statement_link')
+% and $num_cust_bill > 0 ) {
+ <A HREF="<% $p %>view/cust_main_statement-pdf.cgi?<% $custnum %>"><%
+ mt('Print a current statement') |h %></A>
+ <BR>
+% }
<A HREF="<% $p %>search/report_cust_bill.html?custnum=<% $custnum %>"><% mt('Invoice reports') |h %></A>
% }
<BR>
)
);
+$opt{'date_format'} ||= '%m/%d/%Y';
+
#legacy invoices
foreach my $legacy_cust_bill ($cust_main->legacy_cust_bill) {
push @history, {
}
#invoices
+my $num_cust_bill = 0;
foreach my $cust_bill ($cust_main->cust_bill) {
push @history, {
'date' => $cust_bill->_date,
'desc' => include('payment_history/invoice.html', $cust_bill, %opt ),
'charge' => $cust_bill->charged,
};
+ $num_cust_bill++;
}
#statements
sub translate_payby {
my ($payby,$payinfo) = (shift,shift);
my %payby = (
+ FS::payby->payby2shortname,
BILL => $payinfo ? emt('Check #') : '',
CHEK => emt('Electronic check '),
PREP => emt('Prepaid card '),
CARD => emt('Credit card #'),
COMP => emt('Complimentary by '),
- CASH => emt('Cash'),
- WEST => emt('Western Union'),
- MCRD => emt('Manual credit card'),
+ #CASH => emt('Cash'),
+ #WEST => emt('Western Union'),
+ #MCRD => emt('Manual credit card'),
);
$payby = (exists $payby{$payby}) ? $payby{$payby} : $payby;
$payby;
sub translate_payby_refund {
my ($payby,$payinfo) = (shift,shift);
my %payby = (
+ FS::payby->payby2shortname,
BILL => $payinfo ? emt('Check #') : emt('Check'),
CHEK => emt('Electronic check '),
CARD => emt('Credit card #'),