I might even try this:

Code:
        Procedure OnChange String sNewValue String sOldValue
             Date dVal
             Forward Send OnChange sNewValue sOldValue
             WebGet psValue to dVal
             WebSet pdToday of oTestView to dVal
        End_Procedure