diff options
author | Christopher Burger <burgerc@freeside.biz> | 2018-05-18 11:41:21 -0400 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2018-05-18 11:46:11 -0400 |
commit | 9baab880cb616a2b9bd7812306563e2f13a4880d (patch) | |
tree | 76e36daf716c00fca001d8056be27e6d662c39ae /FS | |
parent | e96f711e84bba96db24a91a1053e8a48e807b816 (diff) |
RT# 77792 - Created method to decide if batch payname should be name on card or personal name or business name.
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cust_main.pm | 21 | ||||
-rw-r--r-- | FS/FS/pay_batch/RBC.pm | 4 |
2 files changed, 22 insertions, 3 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index d71ade0..22d0dcc 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -4080,6 +4080,27 @@ sub name { $name; } +=item batch_payment_payname + +Returns a name string for this customer, either "cust_batch_payment->payname" or "First Last" or "Company, +based on if a company name exists and is the account being used a business account. + +=cut + +sub batch_payment_payname { + my $self = shift; + my $cust_pay_batch = shift; + my $name; + + if ($cust_pay_batch->{Hash}->{payby} eq "CARD") { $name = $cust_pay_batch->payname; } + else { $name = $self->first .' '. $self->last; } + + $name = $self->company + if (($cust_pay_batch->{Hash}->{paytype} eq "Business checking" || $cust_pay_batch->{Hash}->{paytype} eq "Business savings") && $self->company); + + $name; +} + =item service_contact Returns the L<FS::contact> object for this customer that has the 'Service' diff --git a/FS/FS/pay_batch/RBC.pm b/FS/FS/pay_batch/RBC.pm index 14b9993..18a6170 100644 --- a/FS/FS/pay_batch/RBC.pm +++ b/FS/FS/pay_batch/RBC.pm @@ -175,9 +175,7 @@ $name = 'RBC'; } ## set custname to business name if business checking or savings account is used otherwise leave as first and last name. - my $custname = $cust_pay_batch->cust_main->first . ' ' . $cust_pay_batch->cust_main->last; - $custname = $cust_pay_batch->cust_main->company - if (($cust_pay_batch->{Hash}->{paytype} eq "Business checking" || $cust_pay_batch->{Hash}->{paytype} eq "Business savings") && $cust_pay_batch->cust_main->company); + my $custname = $cust_pay_batch->cust_main->batch_payment_payname($cust_pay_batch); $i++; sprintf("%06u", $i). |