//*****************************************************************************
// Если БыстраяПечать= 1 , то печать производится в режиме быстрой продажи.
Процедура ПечатьТОРГ_12(БыстраяПечать= 0 )
	Если глРазрешитьНапечатать(Контекст, КонтекстФормыДокумента) =  0  Тогда
		Возврат;
	КонецЕсли; 
	
	СтрСортировки = "";
	Если (Модифицированность() =  1 ) И (глДокументСортируется(Контекст, СтрСортировки) =  1 ) Тогда
		Если глПользователь.ОтменитьВопросОСортировке =  1  Тогда
		    глСортироватьНакладную(Контекст);
		Иначе		
			Если Вопрос("Сортировать документ? "+СтрСортировки,"Да+Нет") = "Да" Тогда
				глСортироватьНакладную(Контекст);
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;

	//Для простоты настройки печатной формы примем следующие соглашения:
	//	-	высота строк в таблице печатной формы задана жестко,
	//		тогда известно, сколько строк помещается на странице;
	СтрокНаСтранице =  22 ;
	//	-	высота шапки и подвала задана жестко и кратна высоте строк таблицы,
	//		тогда можно указать, сколько строк занимают шапка и подвал
	//		в пересчете на строки таблицы;
	СтрокШапки =  14 ;
	СтрокПодвала =  8 ;
	//	-	для нормальной работы алгоритма необходимо, чтобы шапка и подвал
	//		могли поместиться на одной странице + хотя бы одна строка таблицы:
	//		СтрокНаСтранице >= СтрокШапки + СтрокПодвала +  1 
	//	-	если подвал не помещается на странице, он переносится на другую
	//		страницу с последней строкой; исключение составляет случай,
	//		когда в таблице всего одна строка.
	Если КоличествоСтрок() =  1  Тогда
		ПереноситьПоследнююСтроку =  0 ;
	Иначе
		ЦелыхСтраницСПодвалом = Цел((СтрокШапки+КоличествоСтрок()+СтрокПодвала)/СтрокНаСтранице);
		ЦелыхСтраницБезПодвала = Цел((СтрокШапки+КоличествоСтрок()- 1 )/СтрокНаСтранице);
		ПереноситьПоследнююСтроку = ЦелыхСтраницСПодвалом - ЦелыхСтраницБезПодвала;
	КонецЕсли;
	//Если ПереноситьПоследнююСтроку =  1  - переносить,
	//если ПереноситьПоследнююСтроку =  0  - не надо переносить.
	гВалютаПечати=Рубли;
	Фирма.ИспользоватьДату(ДатаДок);

	ПечПоставщик		= "";
	ПечПоставщикПа		= "";
	
	Таб=СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("ТОРГ-12");
	Если УчитыватьНП= 1  Тогда
		Секц="|НП";
	Иначе
		Секц="|БезНП";
	КонецЕсли;             
	вДата = ДатаДок;
	печДатаДокДень = глДатаФормат(вДата,"ДД");
	печДатаДокМесяц = глДатаФормат(вДата,"ММММ");
	печДатаДокГод = глДатаФормат(вДата,"ГГ");
	

	ОрганизацияАдрес = СокрЛП(Фирма.ПолнНаименование)+", ИНН "+СокрЛП(Фирма.ИНН)+", "+
	                   глАдресСтрокой(Фирма.ЮридическийАдрес);
	Если (ПустоеЗначение(Фирма) =  0 ) И (ПустоеЗначение(Клиент) =  0 ) Тогда
		ПечПоставщик		= СокрЛП(Фирма.ПолнНаименование)+", ИНН "+СокрЛП(Фирма.ИНН)+", "+глАдресСтрокой(Фирма.ЮридическийАдрес);
		ПечПоставщикПА		= СокрЛП(Фирма.ПолнНаименование)+", ИНН "+СокрЛП(Фирма.ИНН)+", "+глАдресСтрокой(Фирма.ПочтовыйАдрес);
	Иначе
		Предупреждение("Не выбран клиент или фирма!"); Возврат;
	КонецЕсли;          
	СчетФирмы = РасчетныйСчет;
	Если ПустоеЗначение(СчетФирмы) =  1  Тогда
		СчетФирмы = Фирма.СчетПоУмолчанию;
	КонецЕсли; 
	Если ПустоеЗначение(СчетФирмы) =  0  Тогда
		Если ПустоеЗначение(СчетФирмы.БанкОрганизации) =  0  Тогда
			ОрганизацияАдрес = ОрганизацияАдрес + ", БИК " + СчетФирмы.БанкОрганизации.Код;
			ОрганизацияАдрес = ОрганизацияАдрес + ", счет № " + СокрП(СчетФирмы.Номер);
			ОрганизацияАдрес = ОрганизацияАдрес + ", в " + СокрП(СчетФирмы.БанкОрганизации.Наименование);
		КонецЕсли;
	КонецЕсли;
	ДопСтрокаОснование = "";
	ДопСтрокаОснование = ДопСтрокаОснование + ?(ПустоеЗначение(ЧерезКого) =  1 , "", " через: " + СокрЛП(ЧерезКого));
	ДопСтрокаОснование = ДопСтрокаОснование + ?(ПустоеЗначение(НомерДоверенности) =  1 , "", " доверенность №" + СокрЛП(НомерДоверенности) + " от " + ДатаДоверенности);

	ПечГрузополучатель = глГрузополучательПеч(Контекст, 1 );


	СекцияШапки = Таб.ПолучитьСекцию("Шапка"+Секц);

	СекцияШапки.Область("Грузополучатель").Текст = ПечГрузополучатель;
	Если ПустоеЗначение(ПлательщикСтрокой) =  0  Тогда
		СекцияШапки.Область("ПлательщикСтрокой").Текст = СокрЛП(ПлательщикСтрокой);
	КонецЕсли; 
	Таб.ВывестиСекцию(СекцияШапки);

	//Таб.ВывестиСекцию("Шапка"+Секц);
	НомерСтраницы =  1 ;

	ИтогоКоличествоНаСтранице	=  0 ;
	ИтогоСуммаНаСтранице		=  0 ;
	ИтогоНДСНаСтранице			=  0 ;
	ИтогоСуммаСНДСНаСтранице	=  0 ;
	ИтогоНГСМНаСтранице			=  0 ;
	ИтогоНПНаСтранице			=  0 ;

	ИтогоКоличество	=  0 ;
	ИтогоСумма		=  0 ;
	ИтогоНДС		=  0 ;
	ИтогоСуммаСНДС	=  0 ;
	ИтогоНГСМ		=  0 ;
	ИтогоНП			=  0 ;

	ЭтоНоваяВерсияДокументаНДС = глЭтоНоваяВерсияДокументаСоСтавкойНДС(Контекст);
	
	ТаблЧ =  СоздатьОбъект("ТаблицаЗначений");;
	Сворачивать =  0 ;

	Сворачивать =  1 ;
	ТаблЧ =  глПодготовитьТаблицуДокументаТОГР12(Контекст);
	
	Таб.ВывестиСекцию("ЗаголовокТаблицы"+Секц);

	Ном= 0 ;
	Если Сворачивать =  1  Тогда
		ТаблЧ.ВыбратьСтроки();
		Пока ТаблЧ.ПолучитьСтроку() =  1  Цикл
			Ном=Ном+ 1 ;
			//Начинаем новую страницу, если предыдущая строка была последней на странице
			//или пора переносить последнюю строку на последнюю страницу с подвалом.
			ЦелаяСтраница = (СтрокШапки+Ном- 1 )/СтрокНаСтранице;
			Если (ЦелаяСтраница = Цел(ЦелаяСтраница))
			или ((ПереноситьПоследнююСтроку =  1 ) и (Ном = ТаблЧ.КоличествоСтрок())) Тогда
				Таб.ВывестиСекцию("ИтогоПоСтранице"+Секц);
				ИтогоКоличествоНаСтранице	=  0 ;
				ИтогоСуммаНаСтранице		=  0 ;
				ИтогоНДСНаСтранице			=  0 ;
				ИтогоСуммаСНДСНаСтранице	=  0 ;
				ИтогоНГСМНаСтранице			=  0 ;
				ИтогоНПНаСтранице			=  0 ;
				Таб.НоваяСтраница();
				НомерСтраницы				= НомерСтраницы +  1 ;
				Таб.ВывестиСекцию("ЗаголовокТаблицы"+Секц);
			КонецЕсли;
			
			прмТовар		= ТаблЧ.Товар;
			прмЕдиница		= ТаблЧ.Единица;
			прмКоличество	= ТаблЧ.Количество;
			
			ПромНДС			= ТаблЧ.ПромНДС;   
			ПечЦена			= глПересчет(ТаблЧ.Цена					,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечСумма		= глПересчет(ТаблЧ.Сумма				,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечСуммаБезНДС	= глПересчет(ТаблЧ.Сумма-ТаблЧ.ПромНДС	,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечНДС			= глПересчет(ТаблЧ.ПромНДС				,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечНП			= глПересчет(ТаблЧ.СуммаНП				,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечСтавкаНДС	= "Х";
			Если ПромНДС <>  0  Тогда
				Если ПустоеЗначение(СтавкаНДС) =  1  Тогда
					ПечСтавкаНДС=?(Розница= 1 ,"Х",?(ВсегдаПечататьНДС =  0 ,ТаблЧ.Товар.СтавкаНДС.Получить(ДатаДок),Перечисление.ЗначенияНДС.НоваяСтавкаНДС));
				Иначе
					ПечСтавкаНДС=?(Розница= 1 ,"Х",ТаблЧ.СтавкаНДС);
				КонецЕсли; 
			КонецЕсли; 
			
			Таб.ВывестиСекцию("СтрокаТЗ"+Секц);
			
			ИтогоКоличествоНаСтранице	= ИтогоКоличествоНаСтранице	+ прмКоличество;
			ИтогоСуммаНаСтранице		= ИтогоСуммаНаСтранице		+ ПечСумма - ПечНДС;
			ИтогоНДСНаСтранице			= ИтогоНДСНаСтранице		+ ПечНДС;
			ИтогоСуммаСНДСНаСтранице	= ИтогоСуммаСНДСНаСтранице	+ ПечСумма;
			ИтогоНПНаСтранице			= ИтогоНПНаСтранице			+ ПечНП;
			
			ИтогоКоличество	= ИтогоКоличество	+ прмКоличество;
			ИтогоСумма		= ИтогоСумма		+ ПечСумма - ПечНДС;
			ИтогоНДС		= ИтогоНДС			+ ПечНДС;
			ИтогоСуммаСНДС	= ИтогоСуммаСНДС	+ ПечСумма;
			ИтогоНП			= ИтогоНП			+ ПечНП;
		КонецЦикла;
	Иначе
		ВыбратьСтроки();
		Пока ПолучитьСтроку() =  1  Цикл
			Ном=Ном+ 1 ;
			//Начинаем новую страницу, если предыдущая строка была последней на странице
			//или пора переносить последнюю строку на последнюю страницу с подвалом.
			ЦелаяСтраница = (СтрокШапки+Ном- 1 )/СтрокНаСтранице;
			Если (ЦелаяСтраница = Цел(ЦелаяСтраница))
			или ((ПереноситьПоследнююСтроку =  1 ) и (Ном = КоличествоСтрок())) Тогда
				Таб.ВывестиСекцию("ИтогоПоСтранице"+Секц);
				ИтогоКоличествоНаСтранице	=  0 ;
				ИтогоСуммаНаСтранице		=  0 ;
				ИтогоНДСНаСтранице			=  0 ;
				ИтогоСуммаСНДСНаСтранице	=  0 ;
				ИтогоНГСМНаСтранице			=  0 ;
				ИтогоНПНаСтранице			=  0 ;
				Таб.НоваяСтраница();
				НомерСтраницы				= НомерСтраницы +  1 ;
				Таб.ВывестиСекцию("ЗаголовокТаблицы"+Секц);
			КонецЕсли;
			
			//ПромНДС = ?(ВсегдаПечататьНДС =  0 , НДС, ?(ДатаДок<Дата("01.01.04"),Сумма *  20  /  120 ,Сумма *  18  /  118 ));
			Если ЭтоНоваяВерсияДокументаНДС <>  1  Тогда
				ПромНДС = ?(ВсегдаПечататьНДС =  0 , НДС, ?(ДатаДок<Дата("01.01.04"),Сумма *  20  /  120 ,Сумма *  18  /  118 ));
			Иначе
				ПромНДС = НДС;
			КонецЕсли; 
			
			ПечЦена			= глПересчет(Цена - Окр(Цена*ПроцентСкидки/ 100 , 2 ) -ПромНДС/ ?(Количество= 0 , 1 ,Количество) ,Валюта,Курс,гВалютаПечати,Дата_Курса);
			//ПечЦена			= глПересчет(Цена-ПромНДС/Количество,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечСумма		= глПересчет(Сумма,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечСуммаБезНДС	= глПересчет(Сумма-ПромНДС,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечНДС			= глПересчет(ПромНДС,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечНП			= глПересчет(СуммаНП,Валюта,Курс,гВалютаПечати,Дата_Курса);
			ПечСтавкаНДС = "Х";
			Если ПромНДС <>  0  Тогда
				Если ПустоеЗначение(СтавкаНДС) =  1  Тогда
					ПечСтавкаНДС=?(Розница= 1 ,"Х",?(ВсегдаПечататьНДС =  0 ,Товар.СтавкаНДС.Получить(ДатаДок),Перечисление.ЗначенияНДС.НоваяСтавкаНДС));
				Иначе
					ПечСтавкаНДС=?(Розница= 1 ,"Х",СтавкаНДС);
				КонецЕсли; 
			КонецЕсли; 
			//ПечСтавкаНДС=?(Розница= 1 ,"Х",?(ВсегдаПечататьНДС =  0 ,Товар.СтавкаНДС.Получить(ДатаДок),Перечисление.ЗначенияНДС.НоваяСтавкаНДС));
			
			Таб.ВывестиСекцию("Строка"+Секц);
			
			ИтогоКоличествоНаСтранице	= ИтогоКоличествоНаСтранице	+ ?(Количество= 0 , 1 ,Количество);
			ИтогоСуммаНаСтранице		= ИтогоСуммаНаСтранице		+ ПечСумма - ПечНДС;
			ИтогоНДСНаСтранице			= ИтогоНДСНаСтранице		+ ПечНДС;
			ИтогоСуммаСНДСНаСтранице	= ИтогоСуммаСНДСНаСтранице	+ ПечСумма;
			ИтогоНПНаСтранице			= ИтогоНПНаСтранице			+ ПечНП;
			
			ИтогоКоличество	= ИтогоКоличество	+ Количество;
			ИтогоСумма		= ИтогоСумма		+ ПечСумма - ПечНДС;
			ИтогоНДС		= ИтогоНДС			+ ПечНДС;
			ИтогоСуммаСНДС	= ИтогоСуммаСНДС	+ ПечСумма;
			ИтогоНП			= ИтогоНП			+ ПечНП;
		КонецЦикла;
	КонецЕсли;

	//Если ЭтоНоваяВерсияДокументаНДС =  0  Тогда
	//	ПромИтогоНДС = ?(ВсегдаПечататьНДС =  0 , Итог("НДС"), ПромИтогоНДС);
	//Иначе
	//	ПромИтогоНДС = Итог("НДС");
	//КонецЕсли; 
	
	Таб.ВывестиСекцию("ИтогоПоСтранице"+Секц);
	Таб.ВывестиСекцию("Всего"+Секц);

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