При выполнении Update
// Update the DataWindow
к нижеидущему коду проблем нет, он работал правильно.
dw_1.SetRedraw (false)
if dw_1.Update() = - 1  then
	rollback;
else
	commit;
end if
dw_1.SetRedraw (true)

 1 . текущую дату, например,  07 . 12 . 2006  запишем в поле, сохраним при условии, что с помощью Sybase Central в свойствах 
во вкладке Value установлю ‘current date’. 
При этом другую дату нельзя ввести.
Если даже введу, то после выполнения Update
всё равно будет текущая из компьютера.
Здесь я поменял на выбор текущей даты и уже аварийно не завершается.

 2 . Если с помощью Sybase Central в свойствах убрать 
во вкладке Value ‘current date’, то error:

SQLSTATE =  23000 
[Sybase][ODBC Driver][Adaptive Server Anywhere] integrity constraint 
violation: Column ‘date’ in table “ttt”
cannot be NULL

Код таков:
 1 .В событии Open окна:
dw_1.SetTransObject(SQLCA) 
dw_1.SetRowFocusIndicator(Hand!)
dw_1.Modify("DataWindow.ReadOnly = YES") 

 2 .ниже строка заполняет data window  3   500  записями
и к кнопке отдельной прикреплена:
dw_1.Retrieve()

 3 . к очередной кнопке прикрепил код добавления
пустой строки для заполнения полей новой добавляемой записи:

dw_1.enabled = true 
dw_1.Modify("DataWindow.ReadOnly = NO") 
long	ll_new_row 
ll_new_row = dw_1.InsertRow( 0 )

dw_1.SetFocus()
dw_1.ScrollToRow(ll_new_row)
dw_1.SetColumn( 1 )
// 1  dw_1.AcceptText()  пробовал эту строку
dw_1.object.datepldor[ll_new_row]=Today()

// пробовал и ниже идущую строку
// 2  dw_1.object.datepldor[ll_new_row]=datetime(Today())
dw_1.AcceptText()  // suggest from forum , но к успеху не привело

 1 . текущую дату, например,  07 . 12 . 2006  запишем в поле, сохраним при условии, что с помощью Sybase Central в свойствах 
во вкладке Value установлю ‘current date’. 
При этом другую дату нельзя ввести.
Если даже введу, то после выполнения Update
всё равно будет текущая из компьютера.
Здесь я поменял на выбор текущей даты и уже аварийно не завершается.