Ошибка при установке значения атрибута контекста вид

Содержание:

1.       Ошибка при установке значения атрибута контекста

2.       Ошибка при получении значения атрибута контекста

Одной из наиболее частых ошибок исполнения кода 1С являются ошибки, связанные с установкой реквизита либо получением реквизита через точку, либо ошибка при вызове функции или процедуры через точку. Все данные объекты являются атрибутами информационных объектов-владельцев, к которым они принадлежат. Рассмотрим примеры таких ошибок и причины их возникновения.  

1.    Ошибка при установке значения атрибута контекста

Ошибка при установке значения атрибута контекста говорит нам о невозможности присвоить выбранное значение определенному атрибуту информационного объекта. Вызвано это либо несовпадением типа атрибута и присваиваемого ей значения, отсутствием возможности присвоить значение выбранному атрибуту, так как его можно только читать, но не записывать в него, отсутствием прав у текущего пользователя на запись значений в данный атрибут. Например, в реквизит «ДатаДокумента» с типом «Дата» пытаемся записать строку, в реквизит с типом данных ссылки на документ пытаемся записать не ссылку, а объект, полученный по ссылке, что невозможно из-за несоответствия типов, что приводит к ошибке установки значения атрибута. 

Другой пример – проходя циклом выборку запроса, пытаемся в колонку выборки записать значение, что невозможно, так как значения выборки запроса можно только считывать, а для того, чтобы можно было полученные из запроса данные изменять в коде, нужно пользоваться не выборкой, а выгружать результат запроса в таблицу значений, в таком случае в цикле по ней можно будет менять значения в колонках, но только на значения, соответствующие типу колонки. Либо у пользователя, под которым выполняется код, нет прав на изменение даты документа, при попытке записать в данный реквизит новую дату, будет выведено сообщение об ошибке установке значения, но в причине будет указано отсутствие прав у пользователя.  

2.    Ошибка при получении значения атрибута контекста

Ошибка при получении значения атрибута контекста указывает на невозможность прочитать значение атрибута объекта в силу его отсутствия, либо отсутствия прав на его чтение. Например, обращение к несуществующему реквизиту объекта, несуществующему полю выборки из запроса, несуществующему свойству элемента формы и т.п. Так же как пример можно рассмотреть получение текущего пользователя из параметров сеанса — если данный параметр сеанса не установлен, то тоже будет выведена ошибка получения значения атрибута контекста, но в причине будет указана попытка получения неинициализированного значения параметра сеанса.

При возникновении данных ошибок значения атрибута в 1Св первую очередь следует проверить существование атрибута, к которому обращаются, затем проверить совпадение типов значений атрибута и присваиваемого ему значения, затем уже проверить права на установку либо чтение значения. Проверить, является ли дело в правах либо дать права на действия с атрибутом, можно, установив привилегированный режим для совершения действия с данным атрибутом, прописав перед строчкой с ошибкой УстановитьПривилегированныйРежим(Истина), после строчки — УстановитьПривилегированныйРежим(Ложь).  

Специалист компании «Кодерлайн»

Александр Суворов

Из 1с 8.2 подключаюсь к 1С 7.7 в которой необходимо создать элемент справочника и элемент подчиненного ему справочника.

При передаче значения реквизиту с типом Перечисления вылетает ошибка:

{ОбщийМодуль.РаботаСДокументами.Модуль(152)}: Ошибка при установке значения атрибута контекста (вид)

                               _адреса.вид = почтовый;

по причине:

Неизвестная ошибка

В чем может быть загвоздка?. Вот собственно сам код:

       глV7 = Новый COMОбъект («V77.Application»);

       Каталог=»/d\1Сbase1″;

       Открыта = глV7.Initialize(глV7.RMTrade, Каталог+» /NАвто», «»);

       
       Если Открыта = 0 Тогда

           Сообщить(«Ошибка открытия информационной базы»);

       Иначе

           
           _контрагенты=глV7.CreateObject(«Справочник.Покупатели»);

           _контрагенты.ВыбратьЭлементы();

           
           _страны=глV7.CreateObject(«Справочник.Страны»);

           _страны.ВыбратьЭлементы();

           
           _адреса=глV7.CreateObject(«Справочник.Адрес»);

           //    _адреса.ВыбратьЭлементы();

           
           
           чек = 0;

           пока _контрагенты.ПолучитьЭлемент()=1 цикл            

               док=_контрагенты.ТекущийЭлемент();

               Если Не СсылкаКлиент.ЭтоГруппа Тогда

                   //    Если док.родитель.код <> «» Тогда

                   Если СокрЛП(док.код) = СокрЛП(СсылкаКлиент.Код) Тогда

                       сообщить(«найден «+док.код);

                       чек = 1;

                       Прервать;

                   КонецЕсли;

                   //    КонецЕсли;                

               Иначе

                   Если док.родитель.код = «» Тогда    

                       Если СокрЛП(док.код) = СокрЛП(СсылкаКлиент.Код) Тогда

                           чек = 1;

                           Прервать;

                       КонецЕсли;

                   КонецЕсли;    

               КонецЕсли;                                            

           КонецЦикла;

           
           Если чек = 0 Тогда

               Если Не СсылкаКлиент.ЭтоГруппа Тогда

                   Клиент77 = глV7.CreateObject(«Справочник.Покупатели»);

                   Клиент77.Новый();

                   Клиент77.Код = СокрЛП(СсылкаКлиент.Код);

                   Клиент77.Наименование = СокрЛП(СсылкаКлиент.Наименование);

                   Клиент77.нип = СокрЛП(СсылкаКлиент.УНП);

                   Клиент77.регон = СокрЛП(СсылкаКлиент.Регон);

                   Клиент77.крс = СокрЛП(СсылкаКлиент.НКРС);

                   Клиент77.Power = СокрЛП(СсылкаКлиент.Power);

                   
                   СчСтрана = 0;

                   пока _страны.ПолучитьЭлемент()=1 цикл            

                       Страна77=_страны.ТекущийЭлемент();

                       Если СокрЛП(Страна77.наименование) = СокрЛП(СсылкаКлиент.Странарегистрации.Наименование) Тогда

                           Клиент77.страна = Страна77;

                           СчСтрана = 1;

                           Прервать;

                       КонецЕсли;

                   КонецЦикла;

                   Если СчСтрана = 0 и СсылкаКлиент.Странарегистрации.Наименование <> «» Тогда

                       Страна77 = глV7.CreateObject(«Справочник.Страны»);

                       Страна77.Новый();

                       Страна77.Код = СсылкаКлиент.Странарегистрации.ТекстКод;

                       Страна77.Наименование = СсылкаКлиент.Странарегистрации.Наименование;

                       Страна77.Записать();

                       Клиент77.страна = Страна77;

                   КонецЕсли;    

                   
                   Клиент77.Записать();

                   
                   //Ставим флаг ПереданВ1С77 в истину, чтоб больше автоматически не передавать этого клиента

                   Клиент82 = СсылкаКлиент.ПолучитьОбъект();

                   Клиент82.ПереданВ1С77 = Истина;

                   Клиент82.Записать();

                   
                   Сообщить(«Записан клиент «+Клиент77.код + » «+Клиент77.наименование);

                   
                   Для Каждого Стр Из Клиент82.Адреса Цикл

                       
                       _адреса=глV7.CreateObject(«Справочник.Адрес»);        

                           
                       _адреса.ИспользоватьВладельца(Клиент77);

                       _адреса.Новый();

                       _адреса.Наименование = Стр.Адрес;

                       _адреса.доп = Стр.Адрес;

                       Если Стр.ВидАдреса = Перечисления.ВидыАдресов.Почтовый Тогда

                                                           
                       _адреса.вид = глv7.Перечисление.ВидАдреса.почтовый;

                       ИначеЕсли Стр.ВидАдреса = Перечисления.ВидыАдресов.Юридический Тогда

                           _адреса.вид = глv7.Перечисление.ВидАдреса.юридический;

                       ИначеЕсли Стр.ВидАдреса = Перечисления.ВидыАдресов.электронный Тогда

                           _адреса.вид = глv7.Перечисление.ВидАдреса.электронный;

                       КонецЕсли;

                       _адреса.Записать();

                       
                   КонецЦикла;

                   
                   
               Иначе    

                   
               КонецЕсли;

           КонецЕсли;    

           
       КонецЕсли;

 // Реквизиты

ДобавляемыеРеквизиты = Новый Массив;


ИмяТаблицы = "КомандыДополнительныхОбработок";

ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(ИмяТаблицы, Новый ОписаниеТипов("ТаблицаЗначений")));

ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("Ссылка", Новый ОписаниеТипов("СправочникСсылка.ДополнительныеОтчетыИОбработки"), ИмяТаблицы));

ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("ВариантЗапуска", Новый ОписаниеТипов("ПеречислениеСсылка.СпособыВызоваДополнительныхОбработок"), ИмяТаблицы));

ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("ИмяЭлемента", Новый ОписаниеТипов("Строка"), ИмяТаблицы));

ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"), ИмяТаблицы));

ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("Представление", Новый ОписаниеТипов("Строка"), ИмяТаблицы));

ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("Идентификатор", Новый ОписаниеТипов("Строка"), ИмяТаблицы));

ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("ЭтоОтчет", Новый ОписаниеТипов("Булево"), ИмяТаблицы));



  


                       
  





Форма.ИзменитьРеквизиты(ДобавляемыеРеквизиты);





//реквизит

ИмяЭлемента = "Добавлен" + ИндексЭлемента;

Реквизит = Новый РеквизитФормы(ИмяЭлемента, ОписаниеТипов);

ДобавляемыеРеквизиты.Добавить(Реквизит);

ИзменитьРеквизиты(ДобавляемыеРеквизиты);


//команда печать

ИмяКомандыПечать = "ДобавленПечать" + ИндексЭлемента;

КомандаПечать = Команды.Добавить(ИмяКомандыПечать);

КомандаПечать.Действие = "ПечатьДокумента";

КомандаПечать.Подсказка = НСтр("ru = 'Печать документа...'");


//элемент формы

//Родитель                     = Элементы.ГруппаСформированныеДокументы;

Элемент                      = Элементы.Добавить(ИмяЭлемента, Тип("ПолеФормы"), ЭлементГруппа);

Элемент.Вид                  = ВидПоляФормы.ПолеНадписи;

Элемент.ПутьКДанным          = ИмяЭлемента;

Элемент.Гиперссылка          = Истина;

Элемент.ПоложениеЗаголовка   = ПоложениеЗаголовкаЭлементаФормы.Нет;


ЭтаФорма[ИмяЭлемента] = Документ;


//кнопка печать

ИмяЭлементаПечать = "ДобавленПечать" + ИндексЭлемента;

ЭлементПечать = Элементы.Добавить(ИмяЭлементаПечать, Тип("КнопкаФормы"), ЭлементГруппа);

ЭлементПечать.Картинка = БиблиотекаКартинок.Печать;

ЭлементПечать.Отображение = ОтображениеКнопки.Картинка;

ЭлементПечать.ИмяКоманды = ИмяКомандыПечать;