Автоматическое создание и запись документов

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