%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
},
'skip_condition' => sub {
my $hash = shift;
- $hash->{'subtype'} ne '0';
+ $hash->{'recordtype'} eq '3' ||
+ $hash->{'subtype'} ne '0';
},
);
sprintf("%3s",$trans_code).
sprintf("%10s",$client_num).
' '.
- sprintf("%-19s", $cust_pay_batch->cust_main->custnum).
+ sprintf("%-19s", $cust_pay_batch->paybatchnum).
'00'.
sprintf("%04s", $bankno).
sprintf("%05s", $branch).