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

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

		РеализацияТов.Записать();
		
		СтрокаДок=РеализацияТов.Товары.Добавить();
		
		СтрокаДок.Номенклатура=СтрокаТаблицыЗапроса.ВидПодписки.ВидНоменклатуры;                                              
		СтрокаДок.Содержание=СтрокаТаблицыЗапроса.ВидПодписки.ВидНоменклатуры.Наименование+" за "+ИмяМесяцаПоНомеру(ГлобТекущаяДата)+" "+Год(ГлобТекущаяДата)+"г";
		СтрокаДок.ЕдиницаИзмерения=СтрокаТаблицыЗапроса.ВидПодписки.ВидНоменклатуры.ЕдиницаХраненияОстатков;
		СтрокаДок.Коэффициент=СтрокаТаблицыЗапроса.ВидПодписки.ВидНоменклатуры.ЕдиницаХраненияОстатков.Коэффициент;
		СтрокаДок.Количество=1;
		
		РеализацияТов.Записать();
		СтрокаДок.СтавкаНДС=СтрокаТаблицыЗапроса.ВидПодписки.ВидНоменклатуры.СтавкаНДС;
		Сумма1=ОпределитьСуммуПоПериодичности(СтрокаТаблицыЗапроса.ВидПодписки,СтрокаТаблицыЗапроса.Периодичность);
		
		Если СтрокаТаблицыЗапроса.ВидПодписки.ВидНоменклатуры.СтавкаНДС=Перечисления.СтавкиНДС.НДС10 Тогда
			СтрокаДок.СуммаНДС=Сумма1-Сумма1/110*100;
		ИначеЕсли СтрокаТаблицыЗапроса.ВидПодписки.ВидНоменклатуры.СтавкаНДС=Перечисления.СтавкиНДС.НДС18 Тогда
			СтрокаДок.СуммаНДС=Сумма1-Сумма1/118*100;
		КонецЕсли;
        СтрокаДок.Цена=Сумма1;
		СтрокаДок.Сумма=Сумма1*СтрокаДок.Количество;
		//бухгалтерский учет
		СчетаУчета= ПолучитьСчетаУчетаНоменклатуры(Организация,СтрокаТаблицыЗапроса.ВидПодписки.ВидНоменклатуры);
		РеализацияТов.ЗаполнитьСчетаБУРегл(СтрокаДок, "Товары", СчетаУчета, истина);
		РеализацияТов.ЗаполнитьСчетаНУРегл(СтрокаДок, "Товары", СчетаУчета, истина);
		
		//управление взаиморасчетами
		СчетаУчетаКонтр = ПолучитьСчетаРасчетовСКонтрагентом(Организация, СтрокаТаблицыЗапроса.Клиент, СтрокаТаблицыЗапроса.Клиент.ОсновнойДоговорКонтрагента);
		РеализацияТов.СчетУчетаРасчетовСКонтрагентом=СчетаУчетаКонтр.СчетАвансовПокупателя;
		РеализацияТов.СчетУчетаРасчетовПоАвансам=СчетаУчетаКонтр.СчетРасчетовПокупателя;
		РеализацияТов.СуммаДокумента=СтрокаДок.Сумма;
		ТаблицаПоТоварам=РеализацияТов.Товары;
		ТаблицаПоУслугам=РеализацияТов.Услуги;
		//РеализацияТов.ПодготовитьТаблицыДокумента(СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаПоУслугам,);
		РеализацияТов.Записать();
		РеализацияТов.Записать(РежимЗаписиДокумента.Проведение);
		ТекущаяРеализация=РеализацияТов.Ссылка;
	КонецПроцедуры