diff options
author | Christopher Burger <burgerc@freeside.biz> | 2019-03-12 17:02:07 -0400 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2019-03-13 10:03:47 -0400 |
commit | 2163c682341bebc40b83dbe5bc7f027b17b6a50f (patch) | |
tree | 9eb098babb16e1c339e7aad8e2d0abf71fd00afb /FS | |
parent | 6a29166de4ccb8d3be83a407bb0b909b066592e8 (diff) |
RT# 82988 - added check for batch payment upload scripts to make sure they can handle credit batches.
Diffstat (limited to 'FS')
-rwxr-xr-x | FS/bin/freeside-eftca-upload | 6 | ||||
-rwxr-xr-x | FS/bin/freeside-paymentech-upload | 6 | ||||
-rwxr-xr-x | FS/bin/freeside-rbc-upload | 5 |
3 files changed, 17 insertions, 0 deletions
diff --git a/FS/bin/freeside-eftca-upload b/FS/bin/freeside-eftca-upload index 18656c97a..321b969d3 100755 --- a/FS/bin/freeside-eftca-upload +++ b/FS/bin/freeside-eftca-upload @@ -55,6 +55,12 @@ else { if $@; log_error_and_die( "Can't find payment batch '$batchnum'\n" ) if !@batches; + + if ($batches[0]->type eq "CREDIT") { + warn "running credit\n"; + log_error_and_die( "Batch number $batchnum is a credit (batch refund) batch, and this format can not handle batch refunds.\n" ) + unless FS::pay_batch->can_handle_electronic_refunds('eft_canada'); + } } my $conf = new FS::Conf; diff --git a/FS/bin/freeside-paymentech-upload b/FS/bin/freeside-paymentech-upload index 8ec8a5dd4..9903dd4aa 100755 --- a/FS/bin/freeside-paymentech-upload +++ b/FS/bin/freeside-paymentech-upload @@ -51,6 +51,12 @@ else { log_and_die("batchnum not passed\n".&usage) if !$batchnum; @batches = qsearchs('pay_batch', { batchnum => $batchnum } ); log_and_die("Can't find payment batch '$batchnum'\n") if !@batches; + + if ($batches[0]->type eq "CREDIT") { + warn "running credit\n"; + log_and_die( "Batch number $batchnum is a credit (batch refund) batch, and this format can not handle batch refunds.\n" ) + unless FS::pay_batch->can_handle_electronic_refunds('paymentech'); + } } my $conf = new FS::Conf; diff --git a/FS/bin/freeside-rbc-upload b/FS/bin/freeside-rbc-upload index 8f67a6e4f..5c0ebdd2e 100755 --- a/FS/bin/freeside-rbc-upload +++ b/FS/bin/freeside-rbc-upload @@ -43,6 +43,11 @@ else { die &usage if !$batchnum; @batches = qsearchs('pay_batch', { batchnum => $batchnum } ); die "Can't find payment batch '$batchnum'\n" if !@batches; + if ($batches[0]->type eq "CREDIT") { + warn "running credit\n"; + log_and_die( "Batch number $batchnum is a credit (batch refund) batch, and this format can not handle batch refunds.\n" ) + unless FS::pay_batch->can_handle_electronic_refunds('RBC'); + } } my $conf = new FS::Conf; |