[lmi-commits] [lmi] master e6f9397 14/25: Obtain DCV interest rate from i7702 object

[Greg Chicares]

branch: master
commit e6f939717767f2166b0cb69f94952cc43d7a8d77
Author: Gregory W. Chicares <gchicares@sbcglobal.net>
Commit: Gregory W. Chicares <gchicares@sbcglobal.net>

    Obtain DCV interest rate from i7702 object
---
 ihs_acctval.cpp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ihs_acctval.cpp b/ihs_acctval.cpp
index 64f0f2e..f613908 100644
--- a/ihs_acctval.cpp
+++ b/ihs_acctval.cpp
@@ -34,6 +34,7 @@
 #include "ihs_irc7702a.hpp"
 #include "input.hpp"                    // consummate()
 #include "interest_rates.hpp"
+#include "irc7702_interest.hpp"         // class i7702
 #include "ledger.hpp"
 #include "ledger_invariant.hpp"
 #include "ledger_variant.hpp"
@@ -1321,7 +1322,10 @@ void AccountValue::SetAnnualInvariants()
             ;
         }
 
-    YearsDcvIntRate         = GetMly7702iGlp()[Year];
+    // 7702 !! This is clearly wrong. This rate is net of certain
+    // asset-based charges, but those charges are explicitly
+    // deducted from DCV, so they must be ignored here.
+    YearsDcvIntRate         = i7702_->net_glp()[Year];
     YearsHoneymoonValueRate = InterestRates_->HoneymoonValueRate
         (GenBasis_
         ,mce_monthly_rate