1 package FS::pay_batch::eft_canada;
4 use vars qw(@ISA %import_info %export_info $name);
5 use FS::Record 'qsearch';
7 use FS::cust_pay_batch;
8 use Date::Format 'time2str';
9 use Time::Local 'timelocal';
16 %import_info = ( filetype => 'NONE' ); # see FS/bin/freeside-eftca-download
18 my ($trans_code, $process_date);
20 #ref http://gocanada.about.com/od/canadatravelplanner/a/canada_holidays.htm
21 my %holiday_yearly = (
22 1 => { map {$_=>1} 1 }, #new year's
23 11 => { map {$_=>1} 11 }, #remembrance day
24 12 => { map {$_=>1} 25 }, #christmas
25 12 => { map {$_=>1} 26 }, #boxing day
29 7 => { map {$_=>1} 2 }, #canada day
30 8 => { map {$_=>1} 6 }, #First Monday of August Civic Holiday
31 9 => { map {$_=>1} 3 }, #labour day
32 10 => { map {$_=>1} 8 }, #thanksgiving
34 2013 => { 2 => { map {$_=>1} 18 }, #family day
35 3 => { map {$_=>1} 29 }, #good friday
36 4 => { map {$_=>1} 1 }, #easter monday
37 5 => { map {$_=>1} 20 }, #victoria day
38 7 => { map {$_=>1} 1 }, #canada day
39 8 => { map {$_=>1} 5 }, #First Monday of August Civic Holiday
40 9 => { map {$_=>1} 2 }, #labour day
41 10 => { map {$_=>1} 14 }, #thanksgiving
43 2014 => { 2 => { map {$_=>1} 17 }, #family day
44 4 => { map {$_=>1} 18 }, #good friday
45 4 => { map {$_=>1} 21 }, #easter monday
46 5 => { map {$_=>1} 19 }, #victoria day
47 7 => { map {$_=>1} 1 }, #canada day
48 8 => { map {$_=>1} 4 }, #First Monday of August Civic Holiday
49 9 => { map {$_=>1} 1 }, #labour day
50 10 => { map {$_=>1} 13 }, #thanksgiving
52 2015 => { 2 => { map {$_=>1} 16 }, #family day
53 4 => { map {$_=>1} 3 }, #good friday
54 4 => { map {$_=>1} 6 }, #easter monday
55 5 => { map {$_=>1} 18 }, #victoria day
56 7 => { map {$_=>1} 1 }, #canada day
57 8 => { map {$_=>1} 3 }, #First Monday of August Civic Holiday
58 9 => { map {$_=>1} 7 }, #labour day
59 10 => { map {$_=>1} 12 }, #thanksgiving
67 my @config = $conf->config('batchconfig-eft_canada');
68 # SFTP login, password, trans code, delay time
70 ($trans_code, $process_delay) = @config[2,3];
71 $process_delay ||= 1; # days
73 my $pt = time + ($process_delay * 86400);
74 my @lt = localtime($pt);
75 while ( $lt[6] == 0 #Sunday
76 || $lt[6] == 6 #Saturday
77 || $holiday_yearly{ $lt[4]+1 }{ $lt[3] }
78 || $holiday{ $lt[5]+1900 }{ $lt[4]+1 }{ $lt[3] }
85 $process_date = time2str('%D', $pt);
88 delimiter => '', # avoid blank lines for header/footer
90 # EFT Upload Specification for .CSV Files, Rev. 2.0
91 # not a true CSV format--strings aren't quoted, so be careful
93 my ($cust_pay_batch, $pay_batch) = @_;
95 # company + empty or first + last
96 my $company = sprintf('%.64s', $cust_pay_batch->cust_main->company);
98 push @fields, $company, ''
101 push @fields, map { sprintf('%.64s', $_) }
102 $cust_pay_batch->first, $cust_pay_batch->last;
104 my ($account, $aba) = split('@', $cust_pay_batch->payinfo);
105 my($bankno, $branch);
106 if ( $aba =~ /^0(\d{3})(\d{5})$/ ) { # standard format for Canadian bank ID
107 ($bankno, $branch) = ( $1, $2 );
108 } elsif ( $aba =~ /^(\d{5})\.(\d{3})$/ ) { #how we store branches
109 ($branch, $bankno) = ( $1, $2 );
111 die "invalid branch/routing number '$aba'\n";
113 push @fields, sprintf('%05s', $branch),
114 sprintf('%03s', $bankno),
116 sprintf('%.02f', $cust_pay_batch->amount);
118 push @fields, 'DB', $trans_code, $process_date;
119 push @fields, $cust_pay_batch->paybatchnum; # reference
120 # strip illegal characters that might occur in customer name
121 s/[,|']//g foreach @fields; # better substitution for these?
122 return join(',', @fields) . "\n";