Имя: Пароль:
1C
1С v8
Блокирование не всей формы
0 _barracuda_
 
30.11.17
12:37
добрый день.подскажите альтернативу Доступность,потому как при Доступности  даже закладки блокируются так что их нельзя проклацать и даже посмотреть что на них.была использована ТолькоПросмотр на форму но понадобилось освободить некоторые реквизиты на редактирование.ТолькоПросмотр в Истину позволял смотреть документ  по любым закладкам и даже печатать.а Доступность ничего не позволяет делать

                                    Для каждого Элемент Из ЭтаФорма.ЭлементыФормы цикл
                    Имя_ = Элемент.Имя;
                    Если имя_="Название" ИЛИ  имя_="Комментарий" ИЛИ имя_="Статус" Тогда
                        //    продолжить
                        Элемент.Доступность= Истина;
                    Иначе
                        Элемент.Доступность= Ложь;
                    КонецЕсли;
                КонецЦикла;
1 Гипервизор
 
30.11.17
12:43
(0) ТолькоПросмотр для избранных элементов формы чем не устраивает?
2 _barracuda_
 
30.11.17
12:44
(1)Элемент.ТолькоПросмотр = Истина;
ругается
3 _barracuda_
 
30.11.17
12:46
Элемент.ТолькоПросмотр = Истина;
                    Иначе
                        Элемент.ТолькоПросмотр = Ложь;
                    КонецЕсли;


Поле объекта не обнаружено (ТолькоПросмот)
4 Dmitriy_76
 
30.11.17
12:53
(3) а что у тебя в Элемент ?
5 Dmitriy_76
 
30.11.17
12:54
не у всех элементов формы есть ТолькоПросмотр
6 Dmitriy_76
 
30.11.17
12:55
смотри на его Вид
7 Ц_У
 
30.11.17
12:56
Процедура ДоступностьЭлементовФормыПриСозданииНаСервере(Форма,СписокЭлементов) Экспорт
    Если ЗначениеЗаполнено(СписокЭлементов) Тогда
        Элементы = Новый Структура(СписокЭлементов,);
        Для каждого Элемент Из Форма.Элементы Цикл
            
            Если Элементы.Свойство(Элемент.Имя) Тогда
                Элемент.Доступность = Истина;
            Иначе
                //исключения, кнопки, группы элементов и ТЧ
                Если ТипЗнч(Элемент) = Тип("ГруппаФормы") ИЛИ ТипЗнч(Элемент) = Тип("КнопкаФормы") Тогда
                    Продолжить;
                КонецЕсли;    
                //ТЧ и ее состав
                Если ТипЗнч(Элемент) = Тип("ТаблицаФормы") Тогда
                    Элемент.ТолькоПросмотр = Истина;
                    Продолжить;
                КонецЕсли;    
                //элементы ТЧ не блокируем они и так "для чтения" по родителю
                Если ТипЗнч(Элемент.Родитель) = Тип("ТаблицаФормы") Тогда
                    Продолжить;
                КонецЕсли;    
                //
                Попытка
                    Элемент.Доступность = Ложь;
                Исключение
                    Продолжить;
                КонецПопытки;
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;
КонецПроцедуры
8 _barracuda_
 
30.11.17
12:58
(6) наверное тип?
9 _barracuda_
 
30.11.17
12:59
(7)спасибо
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.