drosenkranz
Programmer
I have a grid that will not refresh and display recalculated fields. I tried refreshing the grid after the form was refreshed but it still won't update. Why?
The grid has a RecordSourceRType = 4 and uses the following statement in the RecordSource: SELECT * FROM cspl_interest ORDER BY start_date DESC INTO CURSOR Cursor1 NOCONSOLE
The dataenvironment for this form has the cspl_interest table in it.
Here's the code in the recalc button:
gc_adhoc_recalc = "OK"
DO FORM frm_adhoc_recalc && used to recalc the query for a pay off date
IF gc_adhoc_recalc = "OK" then
* Do the ReCalc
DO prg_interest_recalc
THISFORM.REFRESH
THISFORM.GRID1.REFRESH
THISFORM.text2.VALUE = gn_judgement_int && Update Accrued Interest
THISFORM.text3.VALUE = gn_judgement_amt + gn_judgement_int &&Total
ELSE
* = "Cancel" (The ReCalc was canceled)
ENDIF
Here's the code in the prg_interest_recalc program:
select cspl_interest
GO BOTT
REPLACE days WITH ((gd_adhoc_new_end_date - Start_date) + 1) && days in period
REPLACE per_diem WITH ;
((interest_rate/100)/((gd_adhoc_new_end_date - Start_Date) + 1) * gn_judgement_amt) && recalc per_diem
REPLACE interest_amt WITH ((((interest_rate/100)/365) * gn_judgement_amt) *days)
SUM interest_amt TO gn_judgement_int
RETURN
The 2nd mouse gets the cheese.