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
28 2013 => { 2 => { map {$_=>1} 18 }, #family day
29 3 => { map {$_=>1} 29 }, #good friday
30 4 => { map {$_=>1} 1 }, #easter monday
31 5 => { map {$_=>1} 20 }, #victoria day
32 7 => { map {$_=>1} 1 }, #canada day
33 8 => { map {$_=>1} 5 }, #First Monday of August Civic Holiday
34 9 => { map {$_=>1} 2 }, #labour day
35 10 => { map {$_=>1} 14 }, #thanksgiving
37 2014 => { 2 => { map {$_=>1} 17 }, #family day
38 4 => { map {$_=>1} 18 }, #good friday
39 4 => { map {$_=>1} 21 }, #easter monday
40 5 => { map {$_=>1} 19 }, #victoria day
41 7 => { map {$_=>1} 1 }, #canada day
42 8 => { map {$_=>1} 4 }, #First Monday of August Civic Holiday
43 9 => { map {$_=>1} 1 }, #labour day
44 10 => { map {$_=>1} 13 }, #thanksgiving
46 2015 => { 2 => { map {$_=>1} 16 }, #family day
47 4 => { map {$_=>1} 3 }, #good friday
48 4 => { map {$_=>1} 6 }, #easter monday
49 5 => { map {$_=>1} 18 }, #victoria day
50 7 => { map {$_=>1} 1 }, #canada day
51 8 => { map {$_=>1} 3 }, #First Monday of August Civic Holiday
52 9 => { map {$_=>1} 7 }, #labour day
53 10 => { map {$_=>1} 12 }, #thanksgiving
63 if ( $conf->exists('batch-spoolagent') ) {
64 @config = $conf->config('batchconfig-eft_canada', $agentnum);
66 @config = $conf->config('batchconfig-eft_canada');
68 # SFTP login, password, trans code, delay time
69 ($trans_code) = $config[2];
71 $process_date = time2str('%D', process_date($conf, $agentnum));
74 delimiter => '', # avoid blank lines for header/footer
76 # EFT Upload Specification for .CSV Files, Rev. 2.0
77 # not a true CSV format--strings aren't quoted, so be careful
79 my ($cust_pay_batch, $pay_batch) = @_;
81 # company + empty or first + last
82 my $company = sprintf('%.64s', $cust_pay_batch->cust_main->company);
84 push @fields, 'Business';
85 push @fields, $company, ''
88 push @fields, 'Personal';
89 push @fields, map { sprintf('%.64s', $_) }
90 $cust_pay_batch->first, $cust_pay_batch->last;
92 my ($account, $aba) = split('@', $cust_pay_batch->payinfo);
94 if ( $aba =~ /^0(\d{3})(\d{5})$/ ) { # standard format for Canadian bank ID
95 ($bankno, $branch) = ( $1, $2 );
96 } elsif ( $aba =~ /^(\d{5})\.(\d{3})$/ ) { #how we store branches
97 ($branch, $bankno) = ( $1, $2 );
99 die "invalid branch/routing number '$aba'\n";
101 push @fields, sprintf('%05s', $branch),
102 sprintf('%03s', $bankno),
104 sprintf('%.02f', $cust_pay_batch->amount);
106 push @fields, 'DB', $trans_code, $process_date;
107 push @fields, $cust_pay_batch->paybatchnum; # reference
108 # strip illegal characters that might occur in customer name
109 s/[,|']//g foreach @fields; # better substitution for these?
110 return join(',', @fields) . "\n";
115 sub download_note { # is a class method
117 my $pay_batch = shift;
118 my $conf = FS::Conf->new;
119 my $agentnum = $pay_batch->agentnum;
120 my $tomorrow = (localtime(time))[2] >= 10;
121 my $process_date = process_date($conf, $agentnum);
122 my $upload_date = $process_date - 86400;
123 my $date_format = $conf->config('date_format') || '%D';
126 if ( $process_date - time < 86400*2 ) {
127 $note = 'Upload this file before 11:00 AM '.
128 ($tomorrow ? 'tomorrow' : 'today') .
129 ' (' . time2str($date_format, $upload_date) . '). ';
131 $note = 'Upload this file before 11:00 AM on '.
132 time2str($date_format, $upload_date) . '. ';
134 $note .= 'Payments will be processed on '.
135 time2str($date_format, $process_date) . '.';
141 my ($conf, $agentnum) = @_;
143 if ( $conf->exists('batch-spoolagent') ) {
144 @config = $conf->config('batchconfig-eft_canada', $agentnum);
146 @config = $conf->config('batchconfig-eft_canada');
149 my $process_delay = $config[3] || 1;
151 if ( (localtime(time))[2] >= 10 and $process_delay == 1 ) {
152 # If downloading the batch after 10:00 local time, it likely won't make
153 # the cutoff for next-day turnaround, and EFT will reject it.
157 my $pt = time + ($process_delay * 86400);
158 my @lt = localtime($pt);
159 while ( $lt[6] == 0 #Sunday
160 || $lt[6] == 6 #Saturday
161 || $holiday_yearly{ $lt[4]+1 }{ $lt[3] }
162 || $holiday{ $lt[5]+1900 }{ $lt[4]+1 }{ $lt[3] }
166 @lt = localtime($pt);