public subroutine of_menu_check (menu am_menu); /*
**	Рекурсия по всему меню
*/ 
Integer	li_TotalItems, i

li_TotalItems = UpperBound (am_menu.Item)

For i =  1 	To	li_TotalItems
	If f_get_access_right (am_menu.Item[i].Tag) = - 1 	Then
		Disable (am_menu.Item[i])
		Hide (am_menu.Item[i])
		am_menu.Item[i].ToolbarItemVisible = FALSE
		//ps. можно в ф-ю добавить параметр типа безусловного отключения всех субпунктов меню,
		//и если права нет, то взводить....
	End If	
	of_menu_check (am_menu.Item[i])
Next	
end subroutine