ИНН покупателя в чек ККТ

Процедура ОсновныеДействияФормыЧек(Кнопка)
	
	Перем ФУ;
	
	Если НомерЧекаККМ <> 0 Тогда
		Предупреждение("Чек уже пробит на фискальном устройстве!", 60);
		Возврат;
	КонецЕсли;
	
	Если Не РаботаСТорговымОборудованием.ПолучитьПроверитьПараметрыДляПробитияЧека(ФУ, Истина, Организация) Тогда
		Возврат;
	КонецЕсли;
	
	Если (НЕ Оплачено) ИЛИ (НЕ Проведен) ИЛИ Модифицированность Тогда
		Ответ = Вопрос("Провести документ?", РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да);
		Если Ответ <> КодВозвратаДиалога.Да Тогда
			Предупреждение("Операция не выполнена!");
			Возврат;
		КонецЕсли;
	КонецЕсли;
	
	Попытка
		
		НачатьТранзакцию();
		
		БылоОплачено = Оплачено;
		Оплачено = Истина;
		ИспользоватьРежимПроведения = ИспользованиеРежимаПроведения.Авто;
		ЗаписатьВФорме(РежимЗаписиДокумента.Проведение);
		
		ВидФУ = ПолучитьСерверТО().ПолучитьВид(ФУ);
		Если ВидФУ = Перечисления.ВидыТорговогоОборудования.ФискальныйРегистратор Тогда
			Позиция         = Неопределено;
			НомерСмены      = Неопределено;
			ТаблицаПлатежей = Новый ТаблицаЗначений();
			ТаблицаПлатежей.Колонки.Добавить("Заголовок");
			ТаблицаПлатежей.Колонки.Добавить("Сумма");
			ТаблицаПлатежей.Колонки.Добавить("НДС");
			
			Для Каждого Позиция Из РасшифровкаПлатежа Цикл
				СтрокаТаблицы           = ТаблицаПлатежей.Добавить();
				СтрокаТаблицы.Заголовок = "Принято от " + ПринятоОт
				+ "
				|Основание: " + Основание;
				СтрокаТаблицы.Сумма     = Позиция.СуммаПлатежа;
				СтрокаТаблицы.НДС       = УчетНДС.ПолучитьСтавкуНДС(Позиция.СтавкаНДС);
			КонецЦикла;
			
			Результат = ПолучитьСерверТО().ПечатьЧекаПКО(ФУ,
			"",
			НомерЧекаККМ,
			НомерСмены,
			ТаблицаПлатежей,
			СуммаДокумента,
			0);
			Если ЗначениеЗаполнено(Результат) Тогда
				ОтменитьТранзакцию();
				ТекстОшибки = ПолучитьСерверТО().ПолучитьТекстОшибкиФРТО(Результат);
				Предупреждение(ТекстОшибки);
				Возврат;
			КонецЕсли;
			
		Иначе
			ОписаниеПКС = КассовыеСменыВызовСервера.ОписаниеПоследнейКассовойСмены(ФУ);
			Если ОписаниеПКС = Неопределено ИЛИ ОписаниеПКС.Статус = Перечисления.СтатусыКассовойСмены.Закрыта Тогда
				ОбщегоНазначения.СообщитьОбОшибке("Кассовая смена не открыта");
				Возврат;
			КонецЕсли;
			
			ОбъектДрайвера = Неопределено;
			ОбработкаОбслуживания = Неопределено;
			ПолучитьСерверТО().ПолучитьОбъектДрайвера(ФУ, ОбработкаОбслуживания, ОбъектДрайвера);
			
			ОбработкаОбслуживания.ПолучитьПараметрыККТ(ОбъектДрайвера);
			ВерсияФормата = МенеджерОборудованияКлиентСервер.ВерсияФФД(ОбъектДрайвера.ВыходныеПараметры);
			
			ПараметрыЧека = МенеджерОборудованияКлиентСервер.ПараметрыОперацииФискализацииЧека();
			ПараметрыЧека.Вставить("ОписаниеПКС", ОписаниеПКС);
			
			//+ Дополнение 09.07.2019
			Если ЗначениеЗаполнено(Ссылка.Контрагент) Тогда 
					ПараметрыЧека.Получатель = Ссылка.Контрагент.НаименованиеПолное;
					ПараметрыЧека.ПолучательИНН = Ссылка.Контрагент.ИНН;
			КонецЕсли;
		// - Дополнение
		
		МенеджерОборудованияВызовСервера.ПодготовитьДанныеДляФискализацииЧека(Ссылка, ПараметрыЧека, ВерсияФормата, 
		ПолучитьСерверТО().ПолучитьМодель(ФУ), ПринятоОт, Основание);
		
		Результат = ОбработкаОбслуживания.ФискализироватьЧек(ОбъектДрайвера, ПараметрыЧека);
		Если Не ЗначениеЗаполнено(Результат) Тогда
			ЭтотОбъект.НомерЧекаККМ = ОбъектДрайвера.ВыходныеПараметры[1];
			ЭтотОбъект.ККМ = ОписаниеПКС.КассаККМ;
			ЭтотОбъект.ТекстЭлектронногоЧека = ПараметрыЧека.ТекстЭлектронногоЧека;
		Иначе
			Оплачено = БылоОплачено;
			ОбщегоНазначения.СообщитьОбОшибке(ОбъектДрайвера.ОписаниеОшибки);
		КонецЕсли;
		
	КонецЕсли;
	
	ПриЗаписиПерепроводить = Ложь;
	ЗаписатьВФорме(РежимЗаписиДокумента.Запись);
	ПриЗаписиПерепроводить = Истина;
	ЗафиксироватьТранзакцию();
	
Исключение
	
	ОтменитьТранзакцию();
	Предупреждение("Операция не выполнена!");
	
КонецПопытки;

КонецПроцедуры