Процедура СоздатьЗаказПоставщикуНажатие(Элемент)
	// получаем настройки СКД, хранимые в макете
	СхемаКомпоновкиДанных = ЭтотОбъект.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); 
	// получаем настройки СКД, введенные пользователем.
	Настройки = ЭтотОбъект.КомпоновщикНастроек.Настройки; 
	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
	МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки,,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
	
	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,);
	
	ТЗ = Новый ТаблицаЗначений;
    // вывод должен быть именно в коллекцию значений, а не в документ	
	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений; 
	
	ПроцессорВывода.УстановитьОбъект(ТЗ);
	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
	
	Док = Документы.ЗаказПоставщику.СоздатьДокумент();
	
	Для Каждого Стр из ТЗ Цикл
		Если Стр.КоличествоКЗаказу > 0 Тогда
			Товар = Док.Товары.Добавить();
			Товар.Номенклатура = Стр.Номенклатура;
			Товар.Количество = Стр.КоличествоКЗаказу;
		КонецЕсли;
	КонецЦикла;
	Форма = Док.ПолучитьФорму();
	Форма.Открыть();
КонецПроцедуры