use strict;
use vars qw(@ISA %import_info %export_info $name);
use Date::Format 'time2str';
+use Date::Parse;
use FS::Conf;
use Encode 'encode';
use feature 'state';
'filetype' => 'fixed',
#this only really applies to Debit Detail, but we otherwise only need first char
'formatre' =>
- '^(.).{3}(.{10}).{5}(.{4}).{3}(.).{11}(.{19}).{6}(.{30}).{17}(.{9})(.{18}).{6}(.{14}).{23}(.).{9}\r?$',
+ '^(.).{3}(.{10}).{5}(.{4}).{3}(.).{11}(.{19}).{6}(.{30})(.{2})(.{2})(.{4}).{9}(.{9})(.{18}).{6}(.{14}).{23}(.).{9}\r?$',
'fields' => [ qw(
recordtype
clientnum
subtype
paybatchnum
custname
+ paydate_month
+ paydate_day
+ paydate_year
bank
payinfo
paid
my $hash = shift;
$hash->{'paid'} = sprintf("%.2f", $hash->{'paid'} / 100 );
- $hash->{'_date'} = time;
+ my $paydate = $hash->{'paydate_year'} . $hash->{'paydate_month'} . $hash->{'paydate_day'};
+ $hash->{'_date'} = str2time($paydate, 'local');
$hash->{'payinfo'} =~ s/^(\S+).*/$1/; # these often have trailing spaces
$hash->{'payinfo'} = $hash->{'payinfo'} . '@' . $hash->{'bank'};
}
## set custname to business name if business checking or savings account is used otherwise leave as first and last name.
- my $custname = $cust_pay_batch->cust_main->first . ' ' . $cust_pay_batch->cust_main->last;
- $custname = $cust_pay_batch->cust_main->company
- if (($cust_pay_batch->{Hash}->{paytype} eq "Business checking" || $cust_pay_batch->{Hash}->{paytype} eq "Business savings") && $cust_pay_batch->cust_main->company);
+ my $custname = $cust_pay_batch->cust_main->batch_payment_payname($cust_pay_batch);
$i++;
},
);
+## this format can handle credit transactions
+sub can_handle_credits {
+ 1;
+}
+
1;