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


&НаКлиенте
Процедура СоздатьПеремещение(Команда)
	Форма=ПолучитьФорму("Документ.ПеремещениеТоваров.ФормаОбъекта"); 
	ДанныеФормы=Форма.Объект;
	ДанныеФормы=СоздатьПеремещениеНаСервере(ДанныеФормы);
	КопироватьДанныеФормы(ДанныеФормы,Форма.Объект);
	Форма.Открыть();
КонецПроцедуры
   

 Процедура ПоискНажатие(Элемент)
Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
|	ДокументоОборот.Этап,
|	ДокументоОборот.Отдел,
|	ДокументоОборот.ФИО,
|	ДокументоОборот.ДатаВремя КАК Дата_Время,
|	ДокументоОборот.Документы,
|	ДокументоОборот.Примечание,
|	ДокументоОборот.Доставка
|ИЗ
|	РегистрСведений.ДокументоОборот КАК ДокументоОборот
|ГДЕ
|	ДокументоОборот.Документы ПОДОБНОДокументы
|	И ДокументоОборот.Доставка.Дата МЕЖДУДатаН ИДатаК
|
|УПОРЯДОЧИТЬ ПО
|	ДокументоОборот.ДатаВремя";  
Запрос.УстановитьПараметр("Документы", "%"+СокрЛП(Строка(СтрокаПоиска))+"%");
Запрос.УстановитьПараметр("ДатаК", КонПериода);
Запрос.УстановитьПараметр("ДатаН", НачПериода);
Рез=Запрос.Выполнить();
НайденДок = рез.Выгрузить();
ЭлементыФормы.НайденДок.СоздатьКолонки();   

 &НаСервере
Процедура СоздатьТаблицуФормы(Знач ИмяПоляТаблицыФормы, Знач ИмяРеквизитаДанныеФормыКоллекция, Знач ТаблицаЗначений)
    
    // Если руками не создали эелемент формы Таблица, то создается программно
    Если Элементы.Найти(ИмяПоляТаблицыФормы) = Неопределено Тогда
        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы, Тип("ТаблицаФормы"),);
        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция;
    КонецЕсли;
    
    УдаляемыеРеквизиты = Новый Массив;
    РеквизитыДляУдаления = ПолучитьРеквизиты(ИмяРеквизитаДанныеФормыКоллекция);
    Для Каждого РеквизитУдаления Из РеквизитыДляУдаления Цикл
        УдаляемыеРеквизиты.Добавить(ИмяРеквизитаДанныеФормыКоллекция+"."+РеквизитУдаления.Имя);
        // Удаляем элементы формы
        Элементы.Удалить(Элементы[ИмяПоляТаблицыФормы+РеквизитУдаления.Имя]);
    КонецЦикла;
    
    // Добавление реквизитов в таблицу формы
    ДобавляемыеРеквизиты = Новый Массив;
    Для каждого Колонка Из ТаблицаЗначений.Колонки Цикл
        ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, ИмяРеквизитаДанныеФормыКоллекция, Колонка.Заголовок));
    КонецЦикла;
    ИзменитьРеквизиты(ДобавляемыеРеквизиты,УдаляемыеРеквизиты);
    
    
    // Добавление элементов форму
    Для каждого Колонка Из ТаблицаЗначений.Колонки Цикл
        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы + Колонка.Имя, Тип("ПолеФормы"), Элементы[ИмяПоляТаблицыФормы]);
        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция + "." + Колонка.Имя;
        ЭлементРеквизита.Вид = ВидПоляФормы.ПолеВвода;
    КонецЦикла;
    
    ЗначениеВРеквизитФормы(ТаблицаЗначений, ИмяРеквизитаДанныеФормыКоллекция);      
КонецПроцедуры


&НаСервере
Процедура ВПоискНаСервере()
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	РеализацияТоваровУслугСерии.Серия КАК Серия,
	|	РеализацияТоваровУслугСерии.Ссылка КАК Реализация,
	|	РеализацияТоваровУслугСерии.Ссылка.ЗаказКлиента КАК ЗаказКлиента,
	|	РеализацияТоваровУслугСерии.Ссылка.Контрагент КАК Контрагент,
	|	РеализацияТоваровУслугСерии.Ссылка.Договор КАК Договор
	|ИЗ
	|	Документ.РеализацияТоваровУслуг.Серии КАК РеализацияТоваровУслугСерии
	|ГДЕ
	|	РеализацияТоваровУслугСерии.Серия В
	|			(ВЫБРАТЬ
	|				СерииНоменклатуры.Ссылка КАК Ссылка
	|			ИЗ
	|				Справочник.СерииНоменклатуры КАК СерииНоменклатуры
	|			ГДЕ
	|				СерииНоменклатуры.Наименование ПОДОБНОНаименование)
	|
	|УПОРЯДОЧИТЬ ПО
	|	Серия
	|АВТОУПОРЯДОЧИВАНИЕ"; 	
	Запрос.УстановитьПараметр("Наименование", "%"+НомерФН+"%");	
	РезультатЗапроса = Запрос.Выполнить();
	ТаблицаЗапроса = Запрос.Выполнить().Выгрузить();
	СоздатьТаблицуФормы("ТЗ","ТЗ",ТаблицаЗапроса);
КонецПроцедуры

&НаКлиенте
Процедура ВПоиск(Команда)
	ВПоискНаСервере();
КонецПроцедуры