Скрипт: Проверка доступности объекта
Добавлено: 22 июн 2007, 10:03
Скрипт конечно смешной - но когда пользователь закрывает доступ к какому нибудь объекту, а другой в это время из другого объекта пытается к нему обратиться по прямой ссылке (ID) - то чтобы Лоция не ругалась на ошибку что объект не существует
мы используем следующее
если 0 - то извините объекта нет или он для вас закрыт
если 1 - то пользуйтесь
мы используем следующее
Код: Выделить всё
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 )