Class MyPack.TClassificator Extends %Persistent
{
....
/// Родитель данного классификатора
Property Parent As TClassificator;

/// Потомки данного классификатора
Property Children As list Of TClassificator;

/// Записи в таблице
Property Rows As list Of TNode;
...

Method delete()
{
	set current=..Children.GetNext()
	while (current'="")
	{
			do current.delete()
			do ..%DeleteId(current.%Id())	
			set current=..Children.GetNext()
			
	}
	set current=..Rows.GetNext()
	while(current'="")
	{
		do current.%DeleteId(current.%Id())
		set current=..Rows.GetNext()
	}
	do ..Parent.Children.RemoveAt(..Parent.Children.FindOref(##this))
	do ..Parent.%Save()
	do ..%DeleteId(##this.%Id())
}

}