diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-06-25 10:33:06 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-06-25 10:33:06 -0700 |
| commit | 725118b4ae55c06cefb2d0b2ef41c7addf4a3a97 (patch) | |
| tree | 2313ef186a798640620e32faf2dea55e06dc9a14 | |
| parent | f0034d887c4ffae655ae00e4e2e8617bd441c7ec (diff) | |
padding with lines of all 9999s to blocks of 10 lines, RT#33622
| -rw-r--r-- | FS/FS/pay_batch/nacha.pm | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/FS/FS/pay_batch/nacha.pm b/FS/FS/pay_batch/nacha.pm index c8d784d70..0361304e3 100644 --- a/FS/FS/pay_batch/nacha.pm +++ b/FS/FS/pay_batch/nacha.pm @@ -174,6 +174,15 @@ $DEBUG = 0; my $batchnum = substr( ('0'x7). $pay_batch->batchnum, -7); + my $lines = $batchcount + 4; + my $blocks = int($lines/10); + my $fill = ''; + + if ( my $remainder = $lines % 10 ) { + $blocks++; + $fill = ("\n".('9'x94))x( 10 - $remainder ); + } + warn "building Batch & File Control Records\n" if $DEBUG; ### @@ -199,12 +208,18 @@ $DEBUG = 0; '9'. #Record Type Code '000001'. #Batch Counter (# of batch header recs) - sprintf('%06d', $batchcount + 4). #num of physical blocks on the file..? + sprintf('%06d', $blocks). #num of physical blocks on the file sprintf('%08d', $batchcount). #total # of entry detail and addenda $entry_hash. sprintf('%012.0f', $batchtotal * 100). #Debit total '000000000000'. #Credit total - ( ' 'x39 ) #Reserved / blank + ( ' 'x39 ). #Reserved / blank + + ### + # Pad with 9999 records to blocks of 10 + ### + + $fill }, |