From 90e334773bc11bba47ab857530ff602009f4c4ce Mon Sep 17 00:00:00 2001 From: Christopher Burger Date: Mon, 11 Mar 2019 11:13:28 -0400 Subject: [PATCH] RT# 82988 - fixed resolve credit batches from RBC --- FS/FS/pay_batch/RBC.pm | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/FS/FS/pay_batch/RBC.pm b/FS/FS/pay_batch/RBC.pm index 7c165a315..691e2a2af 100644 --- 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; - # Debit Detail Record - if ($hash->{recordtype} eq '1') { + # Detail Record + if ($hash->{recordtype} eq '1' || $hash->{recordtype} eq '2') { $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 ) = @_; - 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. @@ -120,8 +115,7 @@ $name = 'RBC'; }, '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; -- 2.11.0