diff options
Diffstat (limited to 'FS/FS/cust_refund.pm')
| -rw-r--r-- | FS/FS/cust_refund.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/FS/FS/cust_refund.pm b/FS/FS/cust_refund.pm index abc131e44..894d19086 100644 --- a/FS/FS/cust_refund.pm +++ b/FS/FS/cust_refund.pm @@ -321,17 +321,23 @@ Returns an SQL fragment to retreive the unapplied amount. =cut sub unapplied_sql { - #my $class = shift; + my ($class, $start, $end) = shift; + my $credit_start = $start ? "AND cust_credit_refund._date <= $start" : ''; + my $credit_end = $end ? "AND cust_credit_refund._date > $end" : ''; + my $pay_start = $start ? "AND cust_pay_refund._date <= $start" : ''; + my $pay_end = $end ? "AND cust_pay_refund._date > $end" : ''; "refund - COALESCE( ( SELECT SUM(amount) FROM cust_credit_refund - WHERE cust_refund.refundnum = cust_credit_refund.refundnum ) + WHERE cust_refund.refundnum = cust_credit_refund.refundnum + $credit_start $credit_end ) ,0 ) - COALESCE( ( SELECT SUM(amount) FROM cust_pay_refund - WHERE cust_refund.refundnum = cust_pay_refund.refundnum ) + WHERE cust_refund.refundnum = cust_pay_refund.refundnum + $pay_start $pay_end ) ,0 ) "; |