1 package FS::pay_batch::td_eftack264;
4 use vars qw(@ISA %import_info %export_info $name);
5 use Date::Format 'time2str';
7 use FS::Record qw(qsearch);
11 td_eftack264 - TD Commercial Banking EFT 264 byte acknowledgement file
15 $name = 'td_eftack264';
18 'filetype' => 'fixed',
20 '^(.)(.{9})(.{10})(.{4})(.{3})(.{10})(.{6})(.{9})(.{12}).{25}(.{15})(.{30})(.{30})(.{10})(.{19})(.{9})(.{12}).{15}.{22}(..)(.{11})$',
43 $hash->{'_date'} = time;
44 $hash->{'paid'} = sprintf('%.2f', $hash->{'paid'} / 100);
45 $hash->{'payinfo'} =~ s/^(\S+).*/$1/; # remove trailing spaces
46 $hash->{'payinfo'} = $hash->{'payinfo'} . '@' . $hash->{'bank'};
48 'approved' => sub { 0 },
49 'declined' => sub { 1 },
50 'skip_condition' => sub {
52 $hash->{'recordtype'} ne 'D'; # Debit Detail record
54 'close_condition' => sub { 0 },
57 %export_info = ( filetype => 'NONE' );