Проблемка в следующем: Есть свой класс DatePicker_

DatePicker_.ValueDate_Access:

RETURN DATE(THIS.YEAR,THIS.MONTH,THIS.DAY)

DatePicker_.ValueDate_Assign:

LPARAMETERS vNewVal
THIS.DAY=DAY(vNewVal)
THIS.MONTH=MONTH(vNewVal)
THIS.YEAR=YEAR(vNewVal)
THIS.valuedate = m.vNewVal

В Init формы для присвоения значения используется следующая конструкция:

SELECT MAIN
SET ORDER TO TAG_DATE && DATAOPER
GO TOP
THISFORMSET.Form1.DatePicker_1.ValueDate = MAIN.DATAOPER
GO BOTTOM
THISFORMSET.Form1.DatePicker_2.ValueDate = MAIN.DATAOPER

Начал вылетать при присвоении даты второму DatePicker. Поэкспериментировал следующим образом:

THISFORMSET.Form1.DatePicker_2.ValueDate = {^2005-12-30} - не вылетает

THISFORMSET.Form1.DatePicker_2.ValueDate = {^2005-12-31} - вылетает

Что бы это значило?

Все очень просто.

LPARAMETERS vNewVal
THIS.YEAR=YEAR(vNewVal)
THIS.MONTH=MONTH(vNewVal)
THIS.DAY=DAY(vNewVal)
THIS.valuedate = m.vNewVal

Возникает из за того что в том месяце который был выставлен до операции THISFORMSET.Form1.DatePicker_2.ValueDate = {^2005-12-31} - не бывает 31 день

Спасибо большое