[lmi-commits] [4816] Subtract gross withdrawal from 7702 'premiums paid'

[Greg Chicares]

Revision: 4816
          http://svn.sv.gnu.org/viewvc/?view=rev&root=lmi&revision=4816
Author:   chicares
Date:     2010-03-26 12:57:51 +0000 (Fri, 26 Mar 2010)
Log Message:
-----------
Subtract gross withdrawal from 7702 'premiums paid'

Modified Paths:
--------------
    lmi/trunk/ihs_avmly.cpp

Modified: lmi/trunk/ihs_avmly.cpp
===================================================================
--- lmi/trunk/ihs_avmly.cpp     2010-03-25 20:28:35 UTC (rev 4815)
+++ lmi/trunk/ihs_avmly.cpp     2010-03-26 12:57:51 UTC (rev 4816)
@@ -2686,14 +2686,23 @@
     TaxBasis    -= NetWD;
     CumWD       += NetWD;
 
+    if(Solving || mce_run_gen_curr_sep_full == RunBasis_)
+        {
+        if(!SolvingForGuarPremium)
+            {
+            double fake_cum_pmt = 0.0; // TODO ?? Needs work.
+            // TODO ?? Should also use *gross* above in CumPmts etc.
+            double premiums_paid_increment = -GrossWD;
+            Irc7702_->ProcessGptPmt(Year, premiums_paid_increment, 
fake_cum_pmt);
+            }
+        }
+
 // This seems wrong. If we're changing something that's invariant among
 // bases, why do we change it for each basis?
 // TODO ?? Shouldn't this be moved to FinalizeMonth()?
     InvariantValues().NetWD[Year] = NetWD;
 
     ReduceSurrChg(Year, partial_surrchg);
-
-// TODO ?? Still need to reflect this in GPT premium limits.
 }
 
 //============================================================================