projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
omit due date option, RT#73002
[freeside.git]
/
FS
/
FS
/
pay_batch
/
BoM.pm
diff --git
a/FS/FS/pay_batch/BoM.pm
b/FS/FS/pay_batch/BoM.pm
index
7bfc22a
..
b609df3
100644
(file)
--- 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;
},
header => sub {
my $pay_batch = shift;
- sprintf( "A%10s%04u%06u%05u%5
4s\n",
+ sprintf( "A%10s%04u%06u%05u%5
3s\n", #80
$origid,
$pay_batch->batchnum,
jdate($pay_batch->download),
$datacenter,
"") .
$origid,
$pay_batch->batchnum,
jdate($pay_batch->download),
$datacenter,
"") .
- sprintf( "XD%03u%06u%-15s%-30s%09u%-12s
\n",
+ sprintf( "XD%03u%06u%-15s%-30s%09u%-12s
", #80
$typecode,
jdate($pay_batch->download),
$shortname,
$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);
row => sub {
my ($cust_pay_batch, $pay_batch) = @_;
my ($account, $aba) = split('@', $cust_pay_batch->payinfo);
- sprintf( "D%010.0f%09u%-12s%-29s%-1
9s\n",
+ sprintf( "D%010.0f%09u%-12s%-29s%-1
8s ", #80
$cust_pay_batch->amount * 100,
$aba,
$account,
$cust_pay_batch->amount * 100,
$aba,
$account,
@@
-58,8
+58,8
@@
$name = 'BoM';
},
footer => sub {
my ($pay_batch, $batchcount, $batchtotal) = @_;
},
footer => sub {
my ($pay_batch, $batchcount, $batchtotal) = @_;
- sprintf( "YD%08u%014.0f%5
6s\n", $batchcount, $batchtotal*100, "").
- sprintf( "Z%014
u%04u%014u%05u%41s\n",
+ sprintf( "YD%08u%014.0f%5
5s\n", $batchcount, $batchtotal*100, ""). #80
+ sprintf( "Z%014
.0f%05u%014u%05u%40s", #80 now
$batchtotal*100, $batchcount, "0", "0", "");
},
);
$batchtotal*100, $batchcount, "0", "0", "");
},
);