#use FS::Conf;
$name = 'NACHA';
-
+my $i;
$DEBUG = 0;
%import_info = (
'1'. #Format code
$dest_name. #Immediate Destination Name / 23 char bank name
$company. #Immediate Origin Name / 23 char company name
- $refcode. #Reference Code (internal/optional)
+ $refcode. "\n". #Reference Code (internal/optional)
###
# Batch Header Record
(' 'x3). #Settlement Date / Reserved
'1'. #Originator Status Code
substr($dest, 0, 8). #Originating Financial Institution
- $batchnum #Batch Number ("number batches sequentially")
+ $batchnum. "\n" #Batch Number ("number batches sequentially")
},
my ($account, $aba) = split('@', $cust_pay_batch->payinfo);
+ $conf->config('batchconfig-nacha-destination') =~ /^\s*(\d{9})\s*$/
+ or die 'illegal NACHA Destination';
+ my $dest = $1;
+
# "Total of all positions 4-11 on each 6 record"
$entry_hash += substr($aba,0,8);
my $transaction_code = ( $cust_main->paytype =~ /savings/i ? '37' : '27' );
my $cust_name = substr($cust_main->name. (' 'x22), 0, 22);
-
+ $i++;
+ my $tracenum = $dest. substr(('0'x7). $i, -6);
#non-PPD transactions? future
warn "building PPD Record\n" if $DEBUG;
$transaction_code. #Transaction Code
$aba. #Receiving DFI Identification, check digit
substr($account.(' 'x17), 0, 17). #DFI Account number (Left justify)
- sprintf('%010d', $cust_pay_batch->amount * 100). #Amount
+ sprintf('%010.0f', $cust_pay_batch->amount * 100). #Amount
$cust_identifier. #Individual Identification Number, 15 char
$cust_name. #Individual name (22-char)
' '. #2 char "company internal use if desired"
'0'. #Addenda Record Indicator
- (' 'x15) #15 digit "bank will assign trace number"
- # (00000?)
+# (' 'x15). #15 digit "bank will assign trace number"
+ $tracenum.
+ "\n" # (00000?)
},
'footer' => sub {
# 200 mixed debits&credits)
sprintf('%06d', $batchcount). #Entry / Addenda Count
$entry_hash.
- sprintf('%012d', $batchtotal * 100). #Debit total
+ sprintf('%012.0f', $batchtotal * 100). #Debit total
'000000000000'. #Credit total
$origin. #Company Identification (Immediate Origin)
(' 'x19). #Message Authentication Code (19 char blank)
(' 'x6). #Federal Reserve Use (6 char blank)
substr($dest, 0, 8). #Originating Financial Institution
- $batchnum. #Batch Number ("number batches sequentially")
+ $batchnum. "\n". #Batch Number ("number batches sequentially")
###
# File Control Record
sprintf('%06d', $batchcount + 4). #num of physical blocks on the file..?
sprintf('%08d', $batchcount). #total # of entry detail and addenda
$entry_hash.
- sprintf('%012d', $batchtotal * 100). #Debit total
+ sprintf('%012.0f', $batchtotal * 100). #Debit total
'000000000000'. #Credit total
( ' 'x39 ) #Reserved / blank