summaryrefslogtreecommitdiff
path: root/FS/FS/pay_batch
diff options
context:
space:
mode:
authorMark Wells <mark@freeside.biz>2016-01-25 15:03:02 -0800
committerMark Wells <mark@freeside.biz>2016-01-25 15:03:02 -0800
commit163d6b01bcfcd1fc78724248ebe6b451ae402d45 (patch)
tree5f67c0204ec6446a638757c43680a2ad5d9d475f /FS/FS/pay_batch
parent3cdd4af468c2c93e1fe4ab6a0ac95537aca5068e (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.pm3
-rw-r--r--FS/FS/pay_batch/paymentech.pm2
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),