diff options
author | Jeremy Davis <jeremyd@freeside.biz> | 2013-02-25 13:57:28 -0500 |
---|---|---|
committer | Jeremy Davis <jeremyd@freeside.biz> | 2013-02-25 13:57:28 -0500 |
commit | 20759b9bc29a5501ddfb62b25ba7a17d80d5832b (patch) | |
tree | 7fe1339e858e6914f270ab663873d2eb193c41a8 /FS/FS/pay_batch | |
parent | 21c3ee38fc44a1ff55f1dc1755ab13ffde82de16 (diff) |
#19723 Fixed BoM format
Diffstat (limited to 'FS/FS/pay_batch')
-rw-r--r-- | FS/FS/pay_batch/BoM.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/FS/FS/pay_batch/BoM.pm b/FS/FS/pay_batch/BoM.pm index 719b504..a3708d4 100644 --- a/FS/FS/pay_batch/BoM.pm +++ b/FS/FS/pay_batch/BoM.pm @@ -31,13 +31,13 @@ $name = 'BoM'; }, header => sub { my $pay_batch = shift; - sprintf( "A%10s%04u%06u%05u%54s\n", #80 + sprintf( "A%10s%04u%06u%05u%53s\n", #80 $origid, $pay_batch->batchnum, jdate($pay_batch->download), $datacenter, "") . - sprintf( "XD%03u%06u%-15s%-30s%09u%-12s \n", #80 + sprintf( "XD%03u%06u%-15s%-30s%09u%-12s ", #80 $typecode, jdate($pay_batch->download), $shortname, @@ -48,7 +48,7 @@ $name = 'BoM'; row => sub { my ($cust_pay_batch, $pay_batch) = @_; my ($account, $aba) = split('@', $cust_pay_batch->payinfo); - sprintf( "D%010.0f%09u%-12s%-29s%-19s\n", #80 + sprintf( "D%010.0f%09u%-12s%-29s%-18s ", #80 $cust_pay_batch->amount * 100, $aba, $account, @@ -58,8 +58,8 @@ $name = 'BoM'; }, footer => sub { my ($pay_batch, $batchcount, $batchtotal) = @_; - sprintf( "YD%08u%014.0f%56s\n", $batchcount, $batchtotal*100, ""). #80 - sprintf( "Z%014u%04u%014u%05u%42s\n", #80 now + sprintf( "YD%08u%014.0f%55s\n", $batchcount, $batchtotal*100, ""). #80 + sprintf( "Z%014u%05u%014u%05u%40s", #80 now $batchtotal*100, $batchcount, "0", "0", ""); }, ); |