1 package FS::pay_batch::BoM;
4 use vars qw(@ISA %import_info %export_info $name);
5 use Time::Local 'timelocal';
9 my ($origid, $datacenter, $typecode, $shortname, $longname, $mybank, $myacct);
16 'hook' => sub { die "Can't import BoM" },
17 'approved' => sub { 1 },
18 'declined' => sub { 0 },
30 $myacct) = $conf->config("batchconfig-BoM");
33 my $pay_batch = shift;
34 sprintf( "A%10s%04u%06u%05u%54s\n", #80
37 jdate($pay_batch->download),
40 sprintf( "XD%03u%06u%-15s%-30s%09u%-12s \n", #80
42 jdate($pay_batch->download),
49 my ($cust_pay_batch, $pay_batch) = @_;
50 my ($account, $aba) = split('@', $cust_pay_batch->payinfo);
51 sprintf( "D%010.0f%09u%-12s%-29s%-19s\n", #80
52 $cust_pay_batch->amount * 100,
55 $cust_pay_batch->payname,
56 $cust_pay_batch->paybatchnum
60 my ($pay_batch, $batchcount, $batchtotal) = @_;
61 sprintf( "YD%08u%014.0f%56s\n", $batchcount, $batchtotal*100, ""). #80
62 sprintf( "Z%014u%04u%014u%05u%42s\n", #80 now
63 $batchtotal*100, $batchcount, "0", "0", "");
68 my (@date) = localtime(shift);
69 sprintf("%03d%03d", $date[5] % 100, $date[7] + 1);