Ввод в регистр сведений

)ФормаНоменклатуры = Справочники.Номенклатура.ПолучитьФормуВыбораГруппы();
	ФормаНоменклатуры.Заголовок = "Выберите группу номенклатуры";
	ФормаНоменклатуры.РежимВыбора = Истина;
	Группа = ФормаНоменклатуры.ОткрытьМодально();
	
		

	Если Товары.Количество() > 0  Тогда

		ТекстВопроса = "Перед заполнением табличная часть будет очищена. Заполнить?";
		Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да, Метаданные().Представление());
		Если Ответ <> КодВозвратаДиалога.Да Тогда
			Возврат;
		КонецЕсли; 

		Товары.Очистить();

	КонецЕсли;
	
	Если НЕ ЗначениеЗаполнено(ТипЦен) Тогда

		ОбщегоНазначения.СообщитьОбОшибке("Не выбран тип цен номенклатуры");
		// Ничего делать не надо
		Возврат;

	КонецЕсли;

	// Заполним все требуемые реквизиты
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("ДатаЦен", Дата);
	Запрос.УстановитьПараметр("ТипЦен", ТипЦен);
	Запрос.УстановитьПараметр("Ложь", Ложь);
	Запрос.УстановитьПараметр("Группа", Группа);
	Текст = 
	"ВЫБРАТЬ
	|	СправочникНоменклатура.Ссылка КАК Номенклатура,
	|	ВЫБОР
	|		КОГДА ЦеныНоменклатуры.Цена ЕСТЬ NULL
	|			ТОГДА 0
	|		ИНАЧЕ ЦеныНоменклатуры.Цена
	|	КОНЕЦ КАК Цена,
	|	ВЫБОР
	|		КОГДА ЦеныНоменклатуры.Валюта ЕСТЬ NULL
	|			ТОГДА ТипыЦенСправочник.ВалютаЦены
	|		ИНАЧЕ ЦеныНоменклатуры.Валюта
	|	КОНЕЦ КАК Валюта,
	|	СправочникНоменклатура.Артикул
	|ИЗ
	|	Справочник.Номенклатура КАК СправочникНоменклатура
	|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&ДатаЦен, ТипЦен = &ТипЦен) КАК ЦеныНоменклатуры
	|		ПО СправочникНоменклатура.Ссылка = ЦеныНоменклатуры.Номенклатура
	|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ТипыЦенНоменклатуры КАК ТипыЦенСправочник
	|		ПО (ЦеныНоменклатуры.ТипЦен = ТипыЦенСправочник.Ссылка)
	|ГДЕ
	|	СправочникНоменклатура.ЭтоГруппа = &Ложь";
		Если ЗначениеЗаполнено(Группа) Тогда
		Текст = Текст + 
		" И
		|	СправочникНоменклатура.Ссылка В ИЕРАРХИИ (&Группа)
		|";
	КонецЕсли;
    Запрос.Текст = Текст;
	Выборка = Запрос.Выполнить().Выбрать();
	

 
 
	Пока Выборка.Следующий() Цикл
		
		СтруктураОтбора = Новый Структура();
		СтруктураОтбора.Вставить("Номенклатура", Выборка.Номенклатура);

		СтрокаТабличнойЧасти = ОбработкаТабличныхЧастей.НайтиСтрокуТабЧасти(Товары, СтруктураОтбора);
		Если СтрокаТабличнойЧасти = Неопределено и Выборка.Артикул  = артикул Тогда
			
			СтрокаТабличнойЧасти = Товары.Добавить();
				СтрокаТабличнойЧасти.Номенклатура = Выборка.Номенклатура;
			КонецЕсли;
			
			  ТекущиеЗначение = РегистрыСведений.КодПечатиЯрлыка.СоздатьНаборЗаписей();
		ТекущиеЗначение.Добавить();
		ТекущиеЗначение.Номенклатура=Выборка.Номеклатура;
		ТекущиеЗначение.КодПечати = КодПечати;

			
		КонецЦикла;
		
.

 ТекущиеЗначение = РегистрыСведений.КодПечатиЯрлыка.СоздатьНаборЗаписей();
		ТекущиеЗначение.Добавить();
		ТекущиеЗначение.Номенклатура=Выборка.Номеклатура;
		ТекущиеЗначение.КодПечати = КодПечати;