>
- |
+ |
% unless ( !$target || $target{$target}++ ) {
% }
- <% time2str("%D",$item->{'date'}) %>
+ <% time2str($date_format, $item->{'date'}) %>
% if ( $target && $target{$target} == 1 ) {
@@ -564,26 +296,26 @@
|
<% $item->{'desc'} %>
|
-
+ |
<% $charge %>
|
-
+ |
<% $payment %>
|
-
+ |
<% $credit %>
|
-
+ |
<% $refund %>
|
-
+ |
<% $showbalance %>
|
% }
%if ( scalar(@history) && $hidden && ! $seen++ ) {
-% balance_forward_row($balance, $lastdate);
+% balance_forward_row($balance, $lastdate, $money_char);
%}
@@ -611,6 +343,7 @@ my( $cust_main ) = @_;
my $custnum = $cust_main->custnum;
my $conf = new FS::Conf;
+my $date_format = $conf->config('date_format') || '%m/%d/%Y';
my $curuser = $FS::CurrentUser::CurrentUser;
@@ -627,4 +360,122 @@ my %status = (
'All' => '',
);
+#get payment history
+my @history = ();
+
+my %opt = (
+ ( map { $_ => scalar($conf->config($_)) }
+ qw( card_refund-days date_format )
+ ),
+ ( map { $_ => $conf->exists($_) }
+ qw( deleteinvoices deletepayments deleterefunds pkg-balances )
+ )
+);
+
+#invoices
+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,
+ };
+}
+
+#statements
+foreach my $cust_statement ($cust_main->cust_statement) {
+ push @history, {
+ 'date' => $cust_statement->_date,
+ 'desc' => include('payment_history/statement.html', $cust_statement, %opt ),
+ #'charge' => $cust_bill->charged,
+ };
+}
+
+#payments (some false laziness w/credits)
+foreach my $cust_pay ($cust_main->cust_pay) {
+ push @history, {
+ 'date' => $cust_pay->_date,
+ 'desc' => include('payment_history/payment.html', $cust_pay, %opt ),
+ 'payment' => $cust_pay->paid,
+ #'target' => $target, #XXX
+ };
+}
+
+#pending payments
+foreach my $cust_pay_pending ($cust_main->cust_pay_pending) {
+ push @history, {
+ 'date' => $cust_pay_pending->_date,
+ 'desc' => include('payment_history/pending_payment.html', $cust_pay_pending, %opt ),
+ 'void_payment' => $cust_pay_pending->paid,
+ };
+}
+
+
+#voided payments
+foreach my $cust_pay_void ($cust_main->cust_pay_void) {
+ push @history, {
+ 'date' => $cust_pay_void->_date,
+ 'desc' => include('payment_history/voided_payment.html', $cust_pay_void, %opt ),
+ 'void_payment' => $cust_pay_void->paid,
+ };
+
+}
+
+#declined payments
+foreach my $cust_pay_pending ($cust_main->cust_pay_pending_attempt) {
+ push @history, {
+ 'date' => $cust_pay_pending->_date,
+ 'desc' => include('payment_history/attempted_payment.html', $cust_pay_pending, %opt ),
+ 'void_payment' => $cust_pay_pending->paid, #??
+ #'target' => $target, #XXX
+ };
+}
+
+#credits (some false laziness w/payments)
+foreach my $cust_credit ($cust_main->cust_credit) {
+ push @history, {
+ 'date' => $cust_credit->_date,
+ 'desc' => include('payment_history/credit.html', $cust_credit, %opt ),
+ 'credit' => $cust_credit->amount,
+ };
+
+}
+
+#refunds
+foreach my $cust_refund ($cust_main->cust_refund) {
+ push @history, {
+ 'date' => $cust_refund->_date,
+ 'desc' => include('payment_history/refund.html', $cust_refund),
+ 'refund' => $cust_refund->refund,
+ };
+
+}
+
+sub translate_payby {
+ my ($payby,$payinfo) = (shift,shift);
+ my %payby = (
+ BILL => $payinfo ? mt('Check #') : '',
+ CHEK => mt('Electronic check '),
+ PREP => mt('Prepaid card '),
+ CARD => mt('Credit card #'),
+ COMP => mt('Complimentary by '),
+ CASH => mt('Cash'),
+ WEST => mt('Western Union'),
+ MCRD => mt('Manual credit card'),
+ );
+ $payby = (exists $payby{$payby}) ? $payby{$payby} : $payby;
+ $payby;
+};
+
+sub translate_payby_refund {
+ my ($payby,$payinfo) = (shift,shift);
+ my %payby = (
+ BILL => $payinfo ? mt('Check #') : mt('Check'),
+ CHEK => mt('Electronic check '),
+ CARD => 'CARD ',
+ COMP => 'COMP ',
+ );
+ $payby = (exists $payby{$payby}) ? $payby{$payby} : $payby;
+ $payby;
+};
+