diff options
author | Mark Wells <mark@freeside.biz> | 2016-01-25 15:03:02 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2016-01-25 15:03:02 -0800 |
commit | 163d6b01bcfcd1fc78724248ebe6b451ae402d45 (patch) | |
tree | 5f67c0204ec6446a638757c43680a2ad5d9d475f /FS/FS/pay_batch | |
parent | 3cdd4af468c2c93e1fe4ab6a0ac95537aca5068e (diff) |
update batch payment for multiple payment methods, etc., #17878 and #23741
Diffstat (limited to 'FS/FS/pay_batch')
-rw-r--r-- | FS/FS/pay_batch/nacha.pm | 3 | ||||
-rw-r--r-- | FS/FS/pay_batch/paymentech.pm | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/pay_batch/nacha.pm b/FS/FS/pay_batch/nacha.pm index befba09..23dda4c 100644 --- a/FS/FS/pay_batch/nacha.pm +++ b/FS/FS/pay_batch/nacha.pm @@ -136,8 +136,9 @@ $DEBUG = 0; #XXX paytype should actually be in the batch, but this will do for now #27 checking debit, 37 savings debit - my $transaction_code = ( $cust_main->paytype =~ /savings/i ? '37' : '27' ); + my $transaction_code = ( $cust_pay_batch->paytype =~ /savings/i ? '37' : '27' ); + # not $self->payname? my $cust_name = substr($cust_main->name. (' 'x22), 0, 22); $i++; my $tracenum = $dest. substr(('0'x7). $i, -6); diff --git a/FS/FS/pay_batch/paymentech.pm b/FS/FS/pay_batch/paymentech.pm index 91abbf2..1282507 100644 --- a/FS/FS/pay_batch/paymentech.pm +++ b/FS/FS/pay_batch/paymentech.pm @@ -128,7 +128,7 @@ my %paymentech_countries = map { $_ => 1 } qw( US CA GB UK ); ) : ( ecpCheckRT => ($_->payinfo =~ /@(\d+)/), ecpCheckDDA => ($_->payinfo =~ /(\d+)@/), - ecpBankAcctType => $paytype{lc($_->cust_main->paytype)}, + ecpBankAcctType => $paytype{lc($_->paytype)}, ecpDelvMethod => 'A', ), avsZip => bytes_substr($_->zip, 0, 10), |