From 884585f495215f3728f19b6cd87796ef07ae7467 Mon Sep 17 00:00:00 2001 From: Christopher Burger Date: Fri, 19 May 2017 09:10:30 -0400 Subject: [PATCH] RT# 74789 - Updated electronic check batch td_eft1464 format to except refunds (bank credit). --- FS/FS/pay_batch/td_eft1464.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/FS/FS/pay_batch/td_eft1464.pm b/FS/FS/pay_batch/td_eft1464.pm index 93612f1ea..3c60035ce 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'}, -- 2.11.0