diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2017-05-19 09:10:30 -0400 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2019-04-01 09:56:29 -0400 |
| commit | 3d864cbee010079d9062d0f8569d6d1d8ab31a1d (patch) | |
| tree | 7306efb867b5cc9f775857301da2b7d3297e5599 /FS/FS/pay_batch | |
| parent | e375a026a7b95ae4bd238441c1d8716ef32e3519 (diff) | |
RT# 74789 - Updated electronic check batch td_eft1464 format to except refunds (bank credit).
Diffstat (limited to 'FS/FS/pay_batch')
| -rw-r--r-- | FS/FS/pay_batch/td_eft1464.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/FS/FS/pay_batch/td_eft1464.pm b/FS/FS/pay_batch/td_eft1464.pm index 609a728..e16b0ee 100644 --- a/FS/FS/pay_batch/td_eft1464.pm +++ b/FS/FS/pay_batch/td_eft1464.pm @@ -108,8 +108,13 @@ $name = 'td_eft1464'; $i++; # The 1464 byte format supports up to 5 payments per line, # but we're only going to send 1. + + ## set to D for debit by default, then override to what cust_pay_batch has as payments may not have paycode. + my $debitorcredit = 'D'; + $debitorcredit = $cust_pay_batch->paycode unless !$cust_pay_batch->paycode; + my $control = join('', - 'D', # for 'debit' + $debitorcredit, # D for 'debit' or C for Credit sprintf("%09u", $i), #record number $opt{'origid'}, $opt{'fcn'}, |