Скрипт: Проверка доступности объекта

[Александр]

Скрипт конечно смешной - но когда пользователь закрывает доступ к какому нибудь объекту, а другой в это время из другого объекта пытается к нему обратиться по прямой ссылке (ID) - то чтобы Лоция не ругалась на ошибку что объект не существует
мы используем следующее

Код: Выделить всё

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') )

если 0 - то извините объекта нет или он для вас закрыт

Код: Выделить всё

свое сообщение об ошибке доступа

если 1 - то пользуйтесь

Код: Выделить всё

Temp_Object = SetByID ( Parent_ID_int )
WndTree ( Temp_Object , a_LinkType )