КодClass del.t1 Extends %Persistent
{

Property c1 As %Integer [ReadOnly];
Property c2 As %Integer;

ClassMethod Initialize(isObject As %Boolean={$$$YES}) As %Integer
{
  Quit $Select(isObject:333,1:555)
}

Method %OnNew(
  c1 As %Integer = {..Initialize()},
  c2 As %Integer) As %Status [ Private, ServerOnly = 1 ]
{
  Set i%c1=c1
  Set i%c2=c2
  Quit $$$OK
}

Trigger InsertBefore1 [ Event = INSERT ]
{
  Set {c1}=..Initialize($$$NO)
}

ClassMethod Test()
{
  Do ..%KillExtent()
  Do ..%New().%Save()
  &sql(insert into del.t1 default values)
}

}