Функция СформироватьТелоЗапроса()
	Фильтр	= СоздатьОбъект("СписокЗначений");
	СзФильтр	= СоздатьОбъект("СписокЗначений");
	СпGTIN		= СоздатьОбъект("СписокЗначений");
	СпGTIN.ДобавитьЗначение(СокрЛП(GTIN));
	СпСтатусов 	= СоздатьОбъект("СписокЗначений");
	Стат		= СоздатьОбъект("СписокЗначений");
	Стат.ДобавитьЗначение(Статус.ПолучитьЗначение(Статус.ТекущаяСтрока()), "status");
	СпСтатусов.ДобавитьЗначение(Стат);
	СпПаг		= СоздатьОбъект("СписокЗначений");
	СзГр		= СоздатьОбъект("СписокЗначений");
	СзГр.ДобавитьЗначение(ТГ.Идентификатор());
	СпПаг.ДобавитьЗначение(1000, "perPage");
	СпПаг.ДобавитьЗначение(ПреобразоватьДатуВСтрХМЛ(ДатаЭМ) + ВернутьВремяСтрокойXML("00:00:01") + ".000Z", "lastEmissionDate");
	СпПаг.ДобавитьЗначение(СокрЛП(GTIN) + "0000000000000", "sgtin");
	СпПаг.ДобавитьЗначение(0, "direction");
	СзФильтр.ДобавитьЗначение(СпGTIN, "gtins");
	Если ПустоеЗначение(СокрЛП(Статус.ПолучитьЗначение(Статус.ТекущаяСтрока()))) = 0 Тогда
	 	СзФильтр.ДобавитьЗначение(СпСтатусов, "states");   
	КонецЕсли;
	СзФильтр.ДобавитьЗначение(СзГр, "productGroups");
	СзФильтр.ДобавитьЗначение(СпПаг, "pagination");
 	Фильтр.ДобавитьЗначение(СзФильтр, "filter");
 	Тело 		= ЗначениеВJSON(Фильтр); 
	Возврат Тело;	
КонецФункции

Процедура Сформировать()
	Перем СЗ;
	СЗ	= СоздатьОбъект("СписокЗначений");
	Если ПроверитьПолучитьТокен() = 0 Тогда
		Если Вопрос("Отсутствует токен авторизации. Если это рабочее место имеет доступ к ЭЦП, нажмите ""Да"", иначе нажмите ""Нет"" и выполните проверку связи с ЦРПТ с рабочего места, имеющего доступ к ЭЦП.", 4, 15) = 6 Тогда
       		СтрОшибка 					= "";
	   		ТекТокен 					= ПолучитьТокенЦРПТ(глПользователь.ЭЦП, ПрефиксВерсии, СтрОшибка);
		Иначе
			СтатусВозврата(0);
			Возврат;
		КонецЕсли;	   		
	КонецЕсли;
	сзЗаголовки 						= СоздатьОбъект("СписокЗначений");
	сзЗаголовки.ДобавитьЗначение("Ansi", 				"Accept-Charset");
	сзЗаголовки.ДобавитьЗначение("application/json", 	"Content-Type"); 
	СтрОшибка							= "";	
	Тело	= СформироватьТелоЗапроса();
	// Отладка
//	Тхт		= СоздатьОбъект("Текст");
//	Тхт.ДобавитьСтроку(Тело);
//	Тхт.Записать("C:\Temp\TeloZapMarok.txt");
	// КонецОтладки 
	Url		= АдресСервераМОТП + "/" + ПрефиксВерсииНов + "/cises/search";
	Ответ = глXmlHttp_ВыполнитьЗапрос("POST", Url, Тело, ТекТокен, сзЗаголовки, СтрОшибка);
	// Отладка 
//	Тхт = СоздатьОбъект("Текст");
//	Тхт.ДобавитьСтроку(Ответ);
//	Тхт.Записать("C:\Temp\OtvMarki.txt");
	// КонецОтладки
	ТзРез	= РазборJSON_SQLLite(Ответ);
	ТЗ 		= СоздатьОбъект("ТаблицаЗначений");
	ТЗ.НоваяКолонка("SGTIN");
	ТЗ.НоваяКолонка("СпРекв");
	ЕстьЕщеСтраницы	= "";
	ТзРез.ВыбратьСтроки();
	Пока ТзРез.ПолучитьСтроку() = 1 Цикл
		Если (ТзРез.Ключ = "sgtin") Или (ТзРез.Ключ = "isLastPage") Тогда
			Если СЗ.РазмерСписка() > 0 Тогда
			    ТЗ.СпРекв = СЗ;
			КонецЕсли;
			
			СЗ	= СоздатьОбъект("СписокЗначений");
			Если ТзРез.Ключ = "sgtin" Тогда
		   		ТЗ.НоваяСтрока();
		   		ТЗ.SGTIN		= ТзРез.Значение;
		   	Иначе
		   		ЕстьЕщеСтраницы	= ТзРез.Значение;	
		   	КонецЕсли;	
		 Иначе
		   	СЗ.ДобавитьЗначение(ТзРез.Значение, ТзРез.Ключ);
		 КонецЕсли;
	КонецЦикла;                              
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Марки");
	Таб.ВывестиСекцию("Шапка");
	Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
	ТЗ.ВыбратьСтроки();
	Пока ТЗ.ПолучитьСтроку() = 1 Цикл
		ПечКиз	= СокрЛП(ТЗ.SGTIN);
		СпРекв	= ТЗ.СпРекв;
		Таб.ВывестиСекцию("КИЗ");
	КонецЦикла;
	Таб.ВывестиСекцию("Подвал");
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Список марок по GTIN","");	
КонецПроцедуры

Процедура ОбработкаЯчейкиТаблицы(ЗначЯчейки, Фл)
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("РасшифровкаМарки");
	Таб.ВывестиСекцию("Шапка");
	Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
	Сч = 0;
	Для Сч = 1 По ЗначЯчейки.РазмерСписка() Цикл
		ИмяПок  	= "";
		ЗначПок 	= ПеревестиОтветыЧЗ_НаЧеловеческийЯзык(ЗначЯчейки.ПолучитьЗначение(Сч, ИмяПок));
		ПозДаты		= Найти(ИмяПок, "Date");
		СГ 			= 0;
		Если ИмяПок = "expirationDate" Тогда
		    СГ		= 1;
		КонецЕсли;
		Если ИмяПок = "expiration" Тогда
		    ПечИмяПок	= ПеревестиОтветыЧЗ_НаЧеловеческийЯзык(ИмяПок, 3);
		Иначе
			ПечИмяПок	= ПеревестиОтветыЧЗ_НаЧеловеческийЯзык(ИмяПок);
		КонецЕсли;
		Если (Лев(ЗначПок, 1) = "[") Или (Лев(ЗначПок, 1) = "{") Тогда
			СзПок	= глРазборJSON(ЗначПок);
			Если СзПок.РазмерСписка() = 0 Тогда
				ЗначПок	= "";
			Иначе
				
			КонецЕсли;
		КонецЕсли;
		Если ПозДаты > 0 Тогда
			Если СГ = 0 Тогда
				ЗначПок	= "Дата, время: " + ВернутьДатуВремяСучЧПстрокой(ЗначПок, Константа.ЧасовойПояс, 1);
			Иначе
				ЗначПок	= "Дата, время: " + ВернутьДатуВремяСучЧПстрокой(ЗначПок, 0, 1);
			КонецЕсли;
		Иначе
			Если ЗначПок = "-1" Тогда
				ЗначПок = "Да";
			ИначеЕсли ЗначПок = "0" Тогда
					ЗначПок	= "Нет";
			КонецЕсли;
		КонецЕсли;
		Таб.ВывестиСекцию("СтрокаПар");
	КонецЦикла;
	Таб.ВывестиСекцию("Подвал");
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Информация по марке","");	
КонецПроцедуры