projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT#33582: RBC return batch processing failure
[freeside.git]
/
FS
/
FS
/
pay_batch
/
RBC.pm
diff --git
a/FS/FS/pay_batch/RBC.pm
b/FS/FS/pay_batch/RBC.pm
index
a5c4683
..
a9b670d
100644
(file)
--- a/
FS/FS/pay_batch/RBC.pm
+++ b/
FS/FS/pay_batch/RBC.pm
@@
-14,7
+14,7
@@
$name = 'RBC';
%import_info = (
'filetype' => 'fixed',
'formatre' =>
%import_info = (
'filetype' => 'fixed',
'formatre' =>
- '^(
.
).{18}(.{4}).{3}(.).{11}(.{19}).{6}(.{30}).{17}(.{9})(.{18}).{6}(.{14}).{23}(.).{9}\r?$',
+ '^(
[0134]
).{18}(.{4}).{3}(.).{11}(.{19}).{6}(.{30}).{17}(.{9})(.{18}).{6}(.{14}).{23}(.).{9}\r?$',
'fields' => [ qw(
recordtype
batchnum
'fields' => [ qw(
recordtype
batchnum
@@
-61,7
+61,8
@@
$name = 'RBC';
},
'skip_condition' => sub {
my $hash = shift;
},
'skip_condition' => sub {
my $hash = shift;
- $hash->{'subtype'} ne '0';
+ $hash->{'recordtype'} eq '3' ||
+ $hash->{'subtype'} ne '0';
},
);
},
);
@@
-108,7
+109,7
@@
$name = 'RBC';
sprintf("%3s",$trans_code).
sprintf("%10s",$client_num).
' '.
sprintf("%3s",$trans_code).
sprintf("%10s",$client_num).
' '.
- sprintf("%-19s", $cust_pay_batch->
cust_main->cust
num).
+ sprintf("%-19s", $cust_pay_batch->
paybatch
num).
'00'.
sprintf("%04s", $bankno).
sprintf("%05s", $branch).
'00'.
sprintf("%04s", $bankno).
sprintf("%05s", $branch).