projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6f08493
)
RT# 82988 - fixed resolve credit batches from RBC
author
Christopher Burger
<burgerc@freeside.biz>
Mon, 11 Mar 2019 15:13:28 +0000
(11:13 -0400)
committer
Christopher Burger
<burgerc@freeside.biz>
Mon, 11 Mar 2019 15:32:20 +0000
(11:32 -0400)
FS/FS/pay_batch/RBC.pm
patch
|
blob
|
history
diff --git
a/FS/FS/pay_batch/RBC.pm
b/FS/FS/pay_batch/RBC.pm
index
7c165a3
..
691e2a2
100644
(file)
--- a/
FS/FS/pay_batch/RBC.pm
+++ b/
FS/FS/pay_batch/RBC.pm
@@
-94,22
+94,17
@@
$name = 'RBC';
},
'begin_condition' => sub {
my $hash = shift;
},
'begin_condition' => sub {
my $hash = shift;
- # De
bit De
tail Record
- if ($hash->{recordtype} eq '1') {
+ # Detail Record
+ if ($hash->{recordtype} eq '1'
|| $hash->{recordtype} eq '2'
) {
$declined = {};
$totaloffset = 0;
return 1;
$declined = {};
$totaloffset = 0;
return 1;
- # Credit Detail Record, will immediately trigger end condition & error
- } elsif ($hash->{recordtype} eq '2') {
- return 1;
} else {
return 0;
}
},
'end_hook' => sub {
my( $hash, $total, $line ) = @_;
} else {
return 0;
}
},
'end_hook' => sub {
my( $hash, $total, $line ) = @_;
- return "Can't process Credit Detail Record, aborting import"
- if ($hash->{'recordtype'} eq '2');
$total += $totaloffset;
$total = sprintf("%.2f", $total);
# We assume here that this is an 'All Records' or 'Input Records' report.
$total += $totaloffset;
$total = sprintf("%.2f", $total);
# We assume here that this is an 'All Records' or 'Input Records' report.
@@
-120,8
+115,7
@@
$name = 'RBC';
},
'end_condition' => sub {
my $hash = shift;
},
'end_condition' => sub {
my $hash = shift;
- return ($hash->{recordtype} eq '4') # Client Trailer Record
- || ($hash->{recordtype} eq '2'); # Credit Detail Record, will throw error in end_hook
+ return ($hash->{recordtype} eq '4'); # Client Trailer Record
},
'skip_condition' => sub {
my $hash = shift;
},
'skip_condition' => sub {
my $hash = shift;