мы используем следующее
Код: Выделить всё
test = Set ( f_ExecSQLSelect_2 ('select count(*) from lsdbo.object_reference_view where lsdbo.object_reference_view.id='+string(Parent_ID_int ),'','') )
GoTo ( if(number(trim(test))=0 ,'','next') )
Код: Выделить всё
свое сообщение об ошибке доступа
Код: Выделить всё
Temp_Object = SetByID ( Parent_ID_int )
WndTree ( Temp_Object , a_LinkType )