diff options
author | Christopher Burger <burgerc@freeside.biz> | 2018-07-16 14:40:39 -0400 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2018-07-16 16:27:02 -0400 |
commit | 98d491d009d8bc9000d6272aedaa0c315d0d9ffc (patch) | |
tree | 14fd84b78932e8d61e62b9668265eca14f1cba4b /httemplate/misc | |
parent | 3a532ec892ee17b58691d0c04baead999ebdbab9 (diff) |
RT# 74435 - added check, to make sure batch format can handle refunds
Diffstat (limited to 'httemplate/misc')
-rw-r--r-- | httemplate/misc/download-batch.cgi | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/httemplate/misc/download-batch.cgi b/httemplate/misc/download-batch.cgi index c4bc37e..c6a0b68 100644 --- a/httemplate/misc/download-batch.cgi +++ b/httemplate/misc/download-batch.cgi @@ -20,9 +20,18 @@ elsif ( $cgi->param('format') =~ /^([\w\- ]+)$/ ) { $opt{'format'} = $1; } -my $pay_batch = qsearchs('pay_batch', { batchnum => $batchnum } ); +my $credit_transactions = "EXISTS (SELECT 1 FROM cust_pay_batch WHERE batchnum = $batchnum AND paycode = 'C') AS arecredits"; +my $pay_batch = qsearchs({ 'select' => "*, $credit_transactions", + 'table' => 'pay_batch', + 'hashref' => { batchnum => $batchnum }, + }); die "Batch not found: '$batchnum'" if !$pay_batch; +if ($pay_batch->{Hash}->{arecredits}) { + my $export_format = "FS::pay_batch::".$opt{'format'}; + die "This format can not handle refunds." unless $export_format->can('can_handle_credits'); +} + my $exporttext = $pay_batch->export_batch(%opt); unless ($exporttext) { http_header('Content-Type' => 'text/html' ); |