From ce8bcf20a61c68d02a8837e61e5cb27db686d27c Mon Sep 17 00:00:00 2001 From: Rene Krenn Date: Tue, 2 Jun 2020 12:34:55 +0200 Subject: [PATCH] TT#82318 handle period costs when re-rating Change-Id: Id7a965d82c72b4ad7246bc55256e6d7d6ca5561a --- rate-o-mat.pl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/rate-o-mat.pl b/rate-o-mat.pl index 2f1ab3f..f59959d 100755 --- a/rate-o-mat.pl +++ b/rate-o-mat.pl @@ -2050,8 +2050,8 @@ sub update_cdr { $cdr->{start_time}, $cdr->{duration}, $cdr->{source_customer_billing_profile_id}, - $cdr->{source_customer_cost}, - $cdr->{source_reseller_cost}, + -1.0 * ($cdr->{source_customer_cost_old} || 0.0) + $cdr->{source_customer_cost}, + -1.0 * ($cdr->{source_reseller_cost_old} || 0.0) + $cdr->{source_reseller_cost}, ) unless $dupdbh; write_cdr_cols($cdr,$cdr->{id}, $acc_cash_balance_col_model_key, @@ -2071,8 +2071,8 @@ sub update_cdr { $cdr->{start_time}, $cdr->{duration}, $cdr->{source_customer_billing_profile_id}, - $cdr->{source_customer_cost}, - $cdr->{source_reseller_cost}, + -1.0 * ($cdr->{source_customer_cost_old} || 0.0) + $cdr->{source_customer_cost}, + -1.0 * ($cdr->{source_reseller_cost_old} || 0.0) + $cdr->{source_reseller_cost}, ); write_cdr_cols($cdr,$dup_cdr_id, @@ -3267,9 +3267,11 @@ RATING_DURATION_FOUND: $cdr->{duration} = $rating_duration; } } - + $cdr->{source_carrier_cost} = $source_carrier_cost; + $cdr->{source_reseller_cost_old} = $cdr->{source_reseller_cost}; $cdr->{source_reseller_cost} = $source_reseller_cost; + $cdr->{source_customer_cost_old} = $cdr->{source_customer_cost}; $cdr->{source_customer_cost} = $source_customer_cost; $cdr->{source_carrier_free_time} = $source_carrier_free_time; $cdr->{source_reseller_free_time} = $source_reseller_free_time;