Запрос в ЧЗ для разрешительного режима

Функция ВставкаСимволаРазделителяGS1ВШтрихкод(ДанныеКодаТовара) Экспорт     
    Штрихкод = Base64ВШтрихкод(ДанныеКодаТовара.ШтрихкодBase64);
	//РазделительGS1 = "<0x1D>";
	//РазделительGS1 = Символ(29);
	РазделительGS1 = "\u001d"; //ВАЖНО!!!!!!!!!!!!!!!!!!!
    
    Если Найти(Штрихкод, РазделительGS1) > 0 Тогда
        Возврат ДанныеКодаТовара.ШтрихкодBase64;
    КонецЕсли;
    
    //ДанныеКодаТовара.СерийныйНомер=5Bm2J/KPuYgVT
    ПозицияСерийногоНомера = Найти(Штрихкод, ДанныеКодаТовара.СерийныйНомер);
    ДлинаСерийногоНомера = СтрДлина(ДанныеКодаТовара.СерийныйНомер);
    
    Если ПозицияСерийногоНомера > 0 Тогда
        
        ЛеваяЧастьШтрихкода = Лев(Штрихкод, (ПозицияСерийногоНомера-1)+ДлинаСерийногоНомера);
        СредняЧастьШтрихкода = РазделительGS1 + Сред(Штрихкод, СтрДлина(ЛеваяЧастьШтрихкода) + 1, 6) + РазделительGS1;
        ПраваяЧастьШтрихкода = Сред(Штрихкод, СтрДлина(ЛеваяЧастьШтрихкода) + 7);
        
        Штрихкод = ЛеваяЧастьШтрихкода + СредняЧастьШтрихкода + ПраваяЧастьШтрихкода;
        
    Иначе    
        Возврат ДанныеКодаТовара.ШтрихкодBase64;
    КонецЕсли;    
	
	Возврат Штрихкод;
	//Возврат ШтрихкодВBase64(Штрихкод);
    
КонецФункции

Функция Base64ВШтрихкод(ШтрихкодВBase64) Экспорт //ебала не нужно 
	
	ДвоичныеДанные = Base64Значение(ШтрихкодВBase64);
	Если ДвоичныеДанные = Неопределено Тогда
		Штрихкод = ШтрихкодВBase64;
	Иначе
		Штрихкод = ПолучитьСтрокуИзДвоичныхДанных(ДвоичныеДанные);
	КонецЕсли;
	
	Возврат Штрихкод;
	
КонецФункции

Функция ВыполнитьОнлайнКонтрольМаркиЧестныйЗнак(Марка,Токен,ИНН,НомерФН,ТестовыйКонтур,ПлощадкаCDN) Экспорт
	
	
	Рез = Новый Структура();
	Рез.Вставить("ПродажаРазрешена",Истина);
	Рез.Вставить("ИдЗапроса","");
	Рез.Вставить("ВременнаяМетка","");
	Рез.Вставить("ТекстОшибки","");
	Рез.Вставить("ОтветПолучен",Ложь);
	Рез.Вставить("ВремяЗапроса",0);
	
	Заголовки = Новый Соответствие();
	Заголовки.Вставить("X-API-KEY",Токен);
	Заголовки.Вставить("Accept-Charset","utf-8");
	Заголовки.Вставить("Content-Type","application/json; charset=utf-8");
	
	HTTPЗапрос = Новый HTTPЗапрос("api/v4/true-api/codes/check",Заголовки);
	
	Если ЗначениеЗаполнено(ИНН) Тогда
		ЧастьЗапросаИНН = ",""inn"":"""+СокрЛП(ИНН)+"""";
	Иначе
		ЧастьЗапросаИНН = "";
	КонецЕсли;
	
	Если ЗначениеЗаполнено(НомерФН) Тогда
		ЧастьЗапросаФН  = ",""fiscalDriveNumber"":"""+СокрЛП(НомерФН)+"""";
	Иначе
		ЧастьЗапросаФН  = "";
	КонецЕсли;
	
	//Green+ 25.10.2024 23:10:49
	ТекущаяПозиция = Новый Структура("КонтрольнаяМарка",Неопределено);
	
	ТекущаяПозиция.КонтрольнаяМарка = Марка;
	ДанныеКодаТовара = МенеджерОборудованияМаркировкаКлиентСервер.РазобратьШтриховойКодТовара(ТекущаяПозиция.КонтрольнаяМарка);
	РеквизитКодаТовара = ДанныеКодаТовара.РеквизитКодаТовара;
	Если НЕ ПустаяСтрока(РеквизитКодаТовара) И Не ПустаяСтрока(ДанныеКодаТовара.ШтрихкодBase64) Тогда // Запись тега 1163
		ШтрихкодBase64 = ВставкаСимволаРазделителяGS1ВШтрихкод(ДанныеКодаТовара); //ВАЖНО ШтрихкодВBase64 не используется
	КонецЕсли;
	
	ТелоЗапросаJSON = "{""codes"":[""" + СтрЗаменить(ШтрихкодBase64, """", "\""")+"""]" +ЧастьЗапросаИНН+ЧастьЗапросаФН+"}";
	//Green-

	
	Сообщить("Текст запроса: "+ТелоЗапросаJSON);
	
	HTTPЗапрос.УстановитьТелоИзСтроки(ТелоЗапросаJSON, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
	
	Если ЗначениеЗаполнено(ПлощадкаCDN) Тогда
		
		ДанныеУРЛ = РазобратьСерверПортИзСтроки(ПлощадкаCDN);
		
		АдресРесурса  = ДанныеУРЛ.Адрес;
		ПортРесурса   = ?(ДанныеУРЛ.Порт<>0,ДанныеУРЛ.Порт,443);
		ИспШифрование = ДанныеУРЛ.Шифрование;
		
	Иначе	
	
		АдресРесурса  = ?(ТестовыйКонтур=Истина,"markirovka.sandbox.crptech.ru","markirovka.crpt.ru");
		ПортРесурса   = 443;
		ИспШифрование = Истина;
		
	КонецЕсли;	
	
	ВремяЗапроса = 0;
	
	Попытка
		
		Если ИспШифрование Тогда
			ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено,Неопределено);
		Иначе	                   
			ЗащищенноеСоединение = Неопределено;
		КонецЕсли;	
		
		Соединение = Новый HTTPСоединение(АдресРесурса,ПортРесурса,,,Неопределено,15,ЗащищенноеСоединение);
		
		ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
		
		HTTPОтвет = Соединение.ОтправитьДляОбработки(HTTPЗапрос); //post
		
		ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
		
		ВремяЗапроса = ВремяОкончания - ВремяНачала;
		
	Исключение
		
		//Нет соединения или таймаут - продажа разрешена
		
		Рез.ТекстОшибки = ОписаниеОшибки();
		
		Возврат Рез;
		
	КонецПопытки;
	
	ТелоОтветаJSON = HTTPОтвет.ПолучитьТелоКакСтроку();
	
	Сообщить("Код состояния: "+HTTPОтвет.КодСостояния);
	Сообщить("Текст ответа: "+ТелоОтветаJSON);
		
	Если HTTPОтвет.КодСостояния=200 Тогда
		
		Рез.ОтветПолучен = Истина;
		Рез.ВремяЗапроса = ВремяЗапроса;
		
		КодОшибки       = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"errorCode");
		
		ТекстОшибки     = "";
				
		Если (ЗначениеЗаполнено(КодОшибки))И(КодОшибки<>"0") Тогда
			
			ТекстОшибкиГИСМТ = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"message");
			
			Если КодОшибки = "1" Тогда
				ТекстОшибки = "Ошибка валидации КМ в ГИС МТ.";
			ИначеЕсли КодОшибки = "2" Тогда
				ТекстОшибки = "КМ не содержит GTIN.";
			ИначеЕсли КодОшибки = "3" Тогда
				ТекстОшибки = "КМ не содержит серийный номер.";
			ИначеЕсли КодОшибки = "4" Тогда
				ТекстОшибки = "КМ содержит недопустимые символы.";
			ИначеЕсли КодОшибки = "5" Тогда
				ТекстОшибки = "Ошибка верификации крипто-подписи КМ в ГИС МТ (формат крипто-подписи не соответствует типу КМ).";
			ИначеЕсли КодОшибки = "6" Тогда
				ТекстОшибки = "Ошибка верификации крипто-подписи КМ в ГИС МТ (крипто-подпись не валидная).";
			ИначеЕсли КодОшибки = "7" Тогда
				ТекстОшибки = "Ошибка верификации крипто-подписи КМ в ГИС МТ (крипто-ключ не валиден).";
			ИначеЕсли КодОшибки = "8" Тогда
				ТекстОшибки = "КМ не прошел верификацию в стране эмитента/ошибка разбора КМ.";
			ИначеЕсли КодОшибки = "9" Тогда
				ТекстОшибки = "Найденные AI в КМ не поддерживаются.";
			ИначеЕсли КодОшибки = "10" Тогда
				ТекстОшибки = "КМ не найден в ГИС МТ.";
			Иначе
				ТекстОшибки = "Неклассифицированная ошибка отправки запроса по КМ в ГИС МТ: "+КодОшибки+".";
			КонецЕсли;
			
			Рез.ТекстОшибки = ТекстОшибки+" "+ТекстОшибкиГИСМТ;
			Рез.ПродажаРазрешена = Ложь;
			Возврат Рез;
			
		Иначе     
			
			Валидность  = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"valid");
			Наличие     = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"found");
			Продан      = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"sold");
			Нанесен     = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"utilised");
			СераяЗона   = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"grayZone");
			БлокПродажи = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"isBlocked");
			Принадлежность = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"isOwner");
						
			УспешнаяПроверкаКриптоподписи = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"verified");
			ВозможностьРеализации         = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"realizable");
			
			Если Продан = "true" Тогда
				СтатусМарки = "Продан";
			ИначеЕсли ВозможностьРеализации = "true" Тогда
				Если Принадлежность="false" тогда
					СтатусМарки = "Принадлежит другой организации";
				Иначе	
					СтатусМарки = "В обороте";
				КонецЕсли;	
			ИначеЕсли (ВозможностьРеализации <> "true")И(Нанесен = "true") Тогда
				СтатусМарки = "Нанесен";
			ИначеЕсли Нанесен <> "true" Тогда
				СтатусМарки = "Эмитирован";
			Иначе
				СтатусМарки = "Неизвестен";
			КонецЕсли;
			
			Если СтатусМарки = "Неизвестен" Тогда
				
				Если Валидность <> "true" Тогда
					
					ТекстОшибки = "Структура данных кода маркировки некорректна.";
					
				ИначеЕсли УспешнаяПроверкаКриптоподписи <> "true" Тогда
					
					ТекстОшибки = "Проверка крипто-подписи кода маркировки в ГИС МТ завершилась с ошибкой.";
					
				ИначеЕсли Наличие <> "true" Тогда
					
					ТекстОшибки = "Код маркировки не найден в ГИС МТ.";
					
				КонецЕсли;
				
			КонецЕсли;	
			
			Если БлокПродажи = "true" Тогда
				
				ТекстОшибки = "Продажа заблокирована контролирующей организацией.";
				
			КонецЕсли;	
			
			Если СтатусМарки <> "В обороте" Тогда
				
				ТекстОшибки = ТекстОшибки +"; Недопустимый статус марки: "+СтатусМарки;
				
			КонецЕсли;	
			
			Если ТекстОшибки = "" Тогда
				
				Рез.ИДЗапроса = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"reqId");
				
				Рез.ВременнаяМетка = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"reqTimestamp");
				
				Возврат Рез;				
				
			Иначе 
				
				Рез.ТекстОшибки = ТекстОшибки;
				Рез.ПродажаРазрешена = Ложь;
				Возврат Рез;
				
			КонецЕсли;					
			
		КонецЕсли;	
				
	Иначе
		
		ТекстОшибкиГИСМТ = ПолучитьИзСтрокиJSON(ТелоОтветаJSON,"description");
		
		Рез.ТекстОшибки = "Не удалось выполнить проверку марки. Код ответа: "+Строка(HTTPОтвет.КодСостояния)+". "+ТекстОшибкиГИСМТ;
		Рез.ПродажаРазрешена = Ложь;
		Возврат Рез;
		
	КонецЕсли;	
	
	
КонецФункции