[freeside-commits] branch master updated. 884585f495215f3728f19b6cd87796ef07ae7467

[Christopher Burger]

The branch, master has been updated
       via  884585f495215f3728f19b6cd87796ef07ae7467 (commit)
      from  386c1c45a7cb9e8ad93862d9aa2d59cdb4ed0d3a (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 884585f495215f3728f19b6cd87796ef07ae7467
Author: Christopher Burger <burgerc at freeside.biz>
Date:   Fri May 19 09:10:30 2017 -0400

    RT# 74789 - Updated electronic check batch td_eft1464 format to except refunds (bank credit).

diff --git a/FS/FS/pay_batch/td_eft1464.pm b/FS/FS/pay_batch/td_eft1464.pm
index 93612f1..3c60035 100644
--- a/FS/FS/pay_batch/td_eft1464.pm
+++ b/FS/FS/pay_batch/td_eft1464.pm
@@ -107,8 +107,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'},

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/pay_batch/td_eft1464.pm |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)