Маркировка шин (Альфа-Авто ред. 4 + Атол ДТО8) передача тэга 1162 в ККМ

Функция ПечатьСтрокиЧека(ТипЧека,НомерПоз,Наименование,Отдел,Цена,
	Количество,Сумма,НаименованиеСкидки,
	СуммаСкидки,ПроцентСкидки, СтавкаНалога = -1, СуммаНалога = 0, НомерНалога = -1, Комментарий = "",ТипМаркировки, GTINМаркировки, СерийныйНомерМаркировки, ШКМишлен)
	//	Печатает строку чека 
	//	Регистрируем строку чека
	//	.. ТипЧека		= Перечисление.ТипыЧеков (продажа или возврат)
	//	.. НомерПоз		= Число(<Позиция чека>)
	//	.. Товар		= Справочник.Номенклатура(<Товар>)
	//	.. Отдел		= Справочник.МестаХранения(<Отдел товара>)
	//	.. Цена			= Число(<Цена товара>)
	//	.. Количество	= Число(<Количество товара>)
	//	.. Сумма		= Число(<Стоимость товара>)
	//	.. НетСТ		= 0/1 Флаг отсутствия скидки на вид товара
	//	.. НетСК		= 0/1 Флаг отсутствия скидки на количество проданного товара
	//	.. ПроцСТ		= Число(<Процент скидки на вид товара>)
	//	.. ПроцСК		= Число(<Процент скидки на количество проданного товара>)
	//	.. СуммаСТ		= Число(<Сумма скидки на вид товара>)
	//	.. СуммаСК		= Число(<Сумма скидки на количество проданного товара>)
	//  .. флФиск		= Число 0/1(<Флаг фискального документа>)
	//	.. Возврат		= Число(<Код ошибки оборудования>)
	//
	
	стрНаименование = ПривестиНаименование(Наименование, НомерПоз,,,"");
	
	Если флФиск=1 Тогда // Печать фискального чека
		
		Если ЗначениеЗаполнено(ТипМаркировки) И ТипМаркировки <> -1 Тогда
			
			Устройство.BeginItem();
			Устройство.ItemType=1;
			
			Если ЗначениеЗаполнено(ТипМаркировки) И ТипМаркировки <> -1 Тогда
				
				ДанныеМарки = Новый Структура;
				ДанныеМарки.Вставить("ГТИН",GTINМаркировки);
				ДанныеМарки.Вставить("СЕРИЯ",СерийныйНомерМаркировки);
				
				СтрокаМаркировки = ПолучитьКодДляПередачиТега1162_010320(ДанныеМарки);
				
				//СтрокаМаркировки = "44 4D ";
				//
				//СтрокаМаркировки = СтрокаМаркировки + ПолучитьПоБайтамЧисло(Число(GTINМаркировки), 6);
				//СтрокаМаркировки = СтрокаМаркировки + ПолучитьПоБайтамСтроку(СерийныйНомерМаркировки, 13);
				
				//Устройство.setParamStrHex(1162, СтрокаМаркировки);
				
				Устройство.StreamFormat = 5;
				Устройство.AttrNumber = 1162;
				Устройство.AttrValue = СокрЛП(СтрокаМаркировки);
				Устройство.WriteAttribute();
				
			КонецЕсли;
			
			Устройство.Name = стрНаименование;
			Устройство.Price = Цена;
			Устройство.Quantity = Количество;
			Устройство.Department = Отдел;
			Устройство.Summ = Сумма;
			Устройство.TaxTypeNumber = НомерНалога;
			
			Устройство.EndItem();
			
		Иначе
			
			// Печатаем строку чека
			//Поз=Строка(НомерПоз);
			// Добавил возможность печати наименования товара на нескольких строчках
			//Если ЧислоСтрокНаименования > 1 И ЧислоСтрокНаименования <> 1 Тогда
			//	Устройство.РасширеннаяРегистрация =Ложь;
			//	Устройство.Наименование= ПривестиНаименование(Наименование, Поз);
			//Иначе
			//	Устройство.Наименование="  "+Поз+") "+Лев(Наименование,ДлинаНаименования-СтрДлина(Поз)-4);
			//КонецЕсли;
			Устройство.ПереносТекста =2;
			
			// Печатаем характеристику
			Если Не ПустаяСтрока(Комментарий) Тогда
				Устройство.Строка= Комментарий;
				КодОшибки = ВыполнитьКоманду("ПечатьСтроки"); Если КодОшибки<>0 Тогда Возврат КодОшибки; КонецЕсли;
			КонецЕсли;
			
			Устройство.Наименование  = стрНаименование;
			Устройство.Цена			 = Цена;
			Устройство.Количество	 = Количество;
			Если НомерНалога = -1 Тогда
				Устройство.Секция = Число(Отдел);
			Иначе
				Если (НомерНалога < 1) ИЛИ (НомерНалога > 16) Тогда
					КодОшибки = 22109;
					ТекстОшибки = "Номер налога вне допустимого диапазона (1..16)";
					Возврат КодОшибки;	
				КонецЕсли;
				Устройство.Секция = Число(НомерНалога); // У АТОЛ-а налоги привязаны к отделам
			КонецЕсли;
			
			Попытка
				Если Поддерживает54ФЗ Тогда
					Устройство.НомерНалога = Число(НомерНалога);
					Устройство.ЗначениеСкидки = СуммаСкидки;
					Устройство.ТипСкидки = 0;
				КонецЕсли;
			Исключение
				КодОшибки=0;
			КонецПопытки;
			
			// Регистрируем продажу
			Если 	  ТипЧека=0 Тогда КодОшибки = ВыполнитьКоманду("Регистрация");
			ИначеЕсли ТипЧека=1 Тогда КодОшибки = ВыполнитьКоманду("Возврат");
			КонецЕсли;
			Если КодОшибки<>0 Тогда Возврат КодОшибки; КонецЕсли;
			
			// Регистрируем скидку
			Если НЕ Поддерживает54ФЗ И СуммаСкидки <> 0 Тогда
				Устройство.Сумма=обМод(СуммаСкидки);
				Устройство.ОбластьДействия=1; // Скидка на позицию (а не на чек)
				Если СуммаСкидки>=0 Тогда 
					КодОшибки = ВыполнитьКоманду("Скидка");
				Иначе 
					КодОшибки = ВыполнитьКоманду("Надбавка");
				КонецЕсли;
				Если КодОшибки<>0 Тогда Возврат КодОшибки; КонецЕсли;
			КонецЕсли;
		КонецЕсли;
		////////////////////////////////////////////////////////////­////////////////////////
		// НЕФИСКАЛЬНАЯ КОПИЯ ЧЕКА
	Иначе 
		Устройство.ПереносТекста = 2;
		Устройство.Строка= стрНаименование;
		КодОшибки = ВыполнитьКоманду("ПечатьСтроки"); Если КодОшибки<>0 Тогда Возврат КодОшибки; КонецЕсли;
		
		// Печатаем строку с количеством
		Отдел = " " + Строка(Отдел);
		Устройство.Строка=Отдел + обСтрокаПривести(Формат(Количество, "ЧДЦ=3") + " Х "+
		СокрЛ(Формат(Цена,"ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=' '; ЧН=0.00")) + 
		" ="+СокрЛ(Формат(Сумма,"ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=' '; ЧН=0.00")),
		" ",ДлинаСтроки - СтрДлина(Отдел));
		
		КодОшибки = ВыполнитьКоманду("ПечатьСтроки");
		Если КодОшибки<>0 Тогда Возврат КодОшибки; КонецЕсли;
		
		// Эмулируем регистрацию скидки на вид товара
		Если СуммаСкидки<>0 Тогда
			Если СуммаСкидки>=0 Тогда Стр="СКИДКА "; Иначе Стр="НАДБАВКА " КонецЕсли;
			Устройство.Строка=Стр+обСтрокаПривести("="+СокрЛ(Формат(обМод(СуммаСкидки),"ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=' '; ЧН=0.00"))
			," ",ДлинаСтроки-СтрДлина(Стр));
			КодОшибки = ВыполнитьКоманду("ПечатьСтроки"); Если КодОшибки<>0 Тогда Возврат КодОшибки; КонецЕсли;
		КонецЕсли;
		
		//Эмулируем печать налогов
		Если (СтавкаНалога > 0) Тогда
			Стр = "ВКЛЮЧАЯ НАЛОГ  " + Формат(СтавкаНалога, "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=' '; ЧН=0.00") + "%";	
			Устройство.Строка = Стр + обСтрокаПривести("=" + СокрЛ(Формат(СуммаНалога, "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=' '; ЧН=0.00")),
			" ", ДлинаСтроки-СтрДлина(Стр));
			Устройство.ШрифтЖирный = Истина;
			Устройство.ШрифтДвойнаяВысота = Истина;
			Устройство.ШрифтДвойнаяШирина = Истина;
			КодОшибки = ВыполнитьКоманду("ПечатьСтроки"); Если КодОшибки <> 0 Тогда Возврат КодОшибки; КонецЕсли;
		КонецЕсли;
		
	КонецЕсли;
	
	// Все ОК,закончили
	Возврат 0;
КонецФункции

Устройство.WriteAttribute();