diff options
author | Christopher Burger <burgerc@freeside.biz> | 2018-11-06 13:57:35 -0500 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2018-11-06 13:57:35 -0500 |
commit | a6848eb9a7c77de01a4daadb2bddcf7a3d0c3fbf (patch) | |
tree | e5a2a37a1528c64f362aba81b436d9aa05489549 /FS/FS | |
parent | 94b60bb13c044e436800239be3e3c5a029bdff8e (diff) |
RT# 76093 - added ability for processing fee to be used with batch processing.
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/cust_main/Billing_Batch.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/FS/FS/cust_main/Billing_Batch.pm b/FS/FS/cust_main/Billing_Batch.pm index 1ea069d..0e713e9 100644 --- a/FS/FS/cust_main/Billing_Batch.pm +++ b/FS/FS/cust_main/Billing_Batch.pm @@ -170,6 +170,27 @@ sub batch_card { if ($options{'processing-fee'} > 0) { my $pf_cust_pkg; my $processing_fee_text = 'Payment Processing Fee'; + + unless ( $invnum ) { # probably from a payment screen + # do we have any open invoices? pick earliest + # uses the fact that cust_main->cust_bill sorts by date ascending + my @open = $self->open_cust_bill; + $invnum = $open[0]->invnum if scalar(@open); + } + + unless ( $invnum ) { # still nothing? pick last closed invoice + # again uses fact that cust_main->cust_bill sorts by date ascending + my @closed = $self->cust_bill; + $invnum = $closed[$#closed]->invnum if scalar(@closed); + } + + unless ( $invnum ) { + # XXX: unlikely case - pre-paying before any invoices generated + # what it should do is create a new invoice and pick it + warn '\PROCESS FEE AND NO INVOICES PICKED TO APPLY IT!'; + return ''; + } + my $pf_change_error = $self->charge({ 'amount' => $options{'processing-fee'}, 'pkg' => $processing_fee_text, |