Заполнить несуществующее значение регистра сведений

Question

День добрый!
Есть БП 7.7 в ней есть справочник, назовем его СПРАВОЧНИК 1, в справочнике есть 2 периодических реквизита, оба реквизиты ссылаются на другой справочник СПРАВОЧНИК 2.

Задача, перенести данные в регистр сведений.

Создал регистр сведений - все данные беру из СПРАВОЧНИКА 1
НО в ЕРП создали дополнительно Перечисление с 2 значениями Причина150 и Причина60.
В БП 7.7. с такими же названиями были периодические реквизиты.

[1C-CODE]// Регистр сведений Причины
ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений");
ВыборкаДанных.НоваяКолонка("Период", "Дата");
ВыборкаДанных.НоваяКолонка("Активность");
ВыборкаДанных.НоваяКолонка("Декларация");
ВыборкаДанных.НоваяКолонка("ВидПричины");
ВыборкаДанных.НоваяКолонка("Причина");

Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "
	|Обрабатывать НеПомеченныеНаУдаление;
	|СпрОтгГТД = Справочник.ОтгГТД.ТекущийЭлемент;
	|Группировка СпрОтгГТД Упорядочить по СпрОтгГТД.Наименование Без групп;
	|";

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
	Возврат 0;
КонецЕсли;

Пока Запрос.Группировка("СпрОтгГТД") = 1 Цикл
	
	СпрОтгГТД  = СоздатьОбъект("Справочник.ОтгГТД");
	СпрОтгГТД.НайтиЭлемент(Запрос.СпрОтгГТД);
		
	Пер = СоздатьОбъект("Периодический");
	Пер.ИспользоватьОбъект("Причина150",СпрОтгГТД.ТекущийЭлемент());
	Пер.ВыбратьЗначения();

	Пока Пер.ПолучитьЗначение() = 1 Цикл
		Если Пер.Значение.Выбран() = 1 Тогда
			ВыборкаДанных.НоваяСтрока();
			ВыборкаДанных.Период = Пер.ДатаЗнач;
			ВыборкаДанных.Причина = Пер.Значение;
			ВыборкаДанных.Декларация = СпрОтгГТД.Наименование;
			ВыборкаДанных.ВидПричины =????????????????????????????;
			ВыборкаДанных.Активность = 1; 							
		КонецЕсли;
	КонецЦикла;
		
	Пер = СоздатьОбъект("Периодический");
	Пер.ИспользоватьОбъект("Причина60",СпрОтгГТД.ТекущийЭлемент());
	Пер.ВыбратьЗначения();
	
	Пока Пер.ПолучитьЗначение() = 1 Цикл
		Если Пер.Значение.Выбран() = 1 Тогда
			ВыборкаДанных.НоваяСтрока();
			ВыборкаДанных.Период = Пер.ДатаЗнач;
			ВыборкаДанных.Причина = Пер.Значение;
			ВыборкаДанных.Декларация = СпрОтгГТД.Наименование;
			ВыборкаДанных.ВидПричины = ???????????????????;
			ВыборкаДанных.Активность = 1; 							
		КонецЕсли;
	КонецЦикла;
	
КонецЦикла;[/1C-CODE]

Помогите пожалуйста, как заполнить ВидПричины, если это ссылка на справочник, а мне надо как то определить например, что это Причина150 и при загрузке выбрать необходимое перечисление??

Спасибо.

Accepted Answer

(1) [QUOTE]ВыборкаДанных.ВидПричины =????????????????????????????;[/QUOTE]
[CODE]ВыборкаДанных.ВидПричины = "Причина60";[/CODE]