Имя: Пароль:
1C
1С v8
Подменю выбора операции
0 deadpuma
 
27.09.12
10:27
Пытаюсь сделать подменю выбора операции (взял из бухи) выдает ошибку:
Поле объекта недоступно для записи (ВидОперации)
ДокументОбъект.ВидОперации = Перечисления[ДокументОбъект.ВидОперации.Метаданные().Имя][Вид.Значение];

что не так делаю?


Процедура ВыбратьВидОперации(ДокументОбъект,Отказ, МассивИсключений = Неопределено) Экспорт
           
       Если ТипЗнч(МассивИсключений) <> Тип("Массив") Тогда
           МассивИсключений = Новый Массив;
       КонецЕсли;
       
       СписокВидов = Новый СписокЗначений();
       Для каждого ЭлементЗаполнения из ДокументОбъект.ВидОперации.Метаданные().ЗначенияПеречисления Цикл
           Если МассивИсключений.Найти(ЭлементЗаполнения.Имя) = Неопределено Тогда
               СписокВидов.Добавить(ЭлементЗаполнения.Имя, ЭлементЗаполнения.Синоним);
           КонецЕсли;
       КонецЦикла;
       
       Вид = СписокВидов.ВыбратьЭлемент("Выбор вида операции документа");
       
       Если НЕ Вид = Неопределено Тогда
           ДокументОбъект.ВидОперации = Перечисления[ДокументОбъект.ВидОперации.Метаданные().Имя][Вид.Значение];
       Иначе
           Отказ = Истина;
       Конецесли;
   
КонецПроцедуры
2 + 2 = 3.9999999999999999999999999999999...