Ошибка в редакции 6

Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.

Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте rarus-soft.ru

RSS

Ошибка в редакции 6

Данил Василига

Посетитель

Сообщений: 664 Регистрация: 09.04.2013

06.07.2021 08:14:16

Добрый день.

В последнем релизе 6.0.29.10 в справочнике "Автомобили" добавили реквизит "Прослеживаемый" и функция ПолучитьОбязательныеРеквизиты() в менеджере объекта стала следующей:

Код

Функция ПолучитьОбязательныеРеквизиты(Объект) Экспорт
   
   // Обязательные реквизиты документа
   ОбязательныеРеквизиты = Новый Массив();
   ОбязательныеРеквизиты.Добавить("Наименование");
   
   Если НЕ Объект.ЭтоГруппа Тогда
      ОбязательныеРеквизиты.Добавить("Марка");
      ОбязательныеРеквизиты.Добавить("Модель");
      
      Если АвтомобилиСервер.VINОбязательный(Объект.Ссылка) Тогда
         ОбязательныеРеквизиты.Добавить("VIN");
      КонецЕсли;
      
      Если АвтомобилиСервер.НомерШассиОбязательный(Объект.Ссылка) Тогда
         ОбязательныеРеквизиты.Добавить("НомерШасси");
      КонецЕсли;
      
   КонецЕсли;
   
   Если Объект.Прослеживаемый Тогда
      ОбязательныеРеквизиты.Добавить("КодТНВЭД");
   КонецЕсли;
   
   // Возвращаем сформированные параметры проверки
   Возврат ОбязательныеРеквизиты;
   
КонецФункции

Однако эта функция выдает ошибку "Преобразование значения к типу Булево не может быть выполнено" в том случае, когда создается не элемент справочника, а группа, у которой реквизитов как у элементов не бывает (в данном случае речь про реквизит "Прослеживаемый "). Чтобы этой ошибки не было, код функции должен быть следующим:

Код

Функция ПолучитьОбязательныеРеквизиты(Объект) Экспорт
   
   // Обязательные реквизиты документа
   ОбязательныеРеквизиты = Новый Массив();
   ОбязательныеРеквизиты.Добавить("Наименование");
   
   Если НЕ Объект.ЭтоГруппа Тогда
      ОбязательныеРеквизиты.Добавить("Марка");
      ОбязательныеРеквизиты.Добавить("Модель");
      
      Если АвтомобилиСервер.VINОбязательный(Объект.Ссылка) Тогда
         ОбязательныеРеквизиты.Добавить("VIN");
      КонецЕсли;
      
      Если АвтомобилиСервер.НомерШассиОбязательный(Объект.Ссылка) Тогда
         ОбязательныеРеквизиты.Добавить("НомерШасси");
      КонецЕсли;

      Если Объект.Прослеживаемый Тогда
         ОбязательныеРеквизиты.Добавить("КодТНВЭД");
      КонецЕсли;
   КонецЕсли;
   
   // Возвращаем сформированные параметры проверки
   Возврат ОбязательныеРеквизиты;
   
КонецФункции

Валентина Кузнецова Заглянувший Сообщений: 511 Регистрация: 24.02.2014	#2 07.07.2021 11:52:00 Добрый день, Данил! Благодарим за информацию. Данная ошибка уже исправлена: пользователям (по запросу на почту alfa@rarus.ru) могут быть оперативно предоставлены исправления в виде расширения, также исправления войдут в следующий релиз.

Читают тему

Поддержка отраслевых решений «1С-Рарус»

Узнать подробнее