Примеры работы с API в Честный знак (обувь)

//*******************************************
// RFC 8259 The JavaScript Object Notation (JSON) Data Interchange Format
// в базе есть обработка JSON_Туда_И_Обратно
//
//Соответствие значений JSON значениям 1С
//Запись(Object) - СписокЗначений
//Массив(Array) - ТаблицаЗначений
//Число - Число
//Строка - Строка с поддержкой  \', \", \\, \/, \t, \n, \r, \f, \b; без поддержки \uFFFF.
//Литерал true - "true"
//Литерал false - "false"
//Литерал null - "null"
Функция ОбъектВТекстJSON(Объект,ПереноситьСтроки=0,ВходящийОтступ="",Время="") Экспорт
	//                          ^              ^              ^-время если для даты нужно точно указать время отличное от "00:00:00"
	//                          ^              ^-отступ текущего уровня
	//                          ^-признак формирования удобочитаемого файла (в основном для отладки)
	Если ПереноситьСтроки=1 Тогда
		ТекущийОтступ=РазделительСтрок+ВходящийОтступ;
		Отступ=" ";
		Двоеточие=": ";
	Иначе
		ТекущийОтступ="";
		Отступ="";
		Двоеточие=":";
	КонецЕсли;
	
	СтрокаJSON="";
	Если ТипЗначенияСтр(Объект)="СписокЗначений" Тогда // Object
		СтрокаJSON=СтрокаJSON+"{";
		Для iii=1 По Объект.РазмерСписка() Цикл
			ИмяСвойства="";
			ЗначениеСвойства=Объект.ПолучитьЗначение(iii,ИмяСвойства);
			Если ИмяСвойства="signature" Тогда
			СтрокаJSON=СтрокаJSON+ТекущийОтступ+Отступ+""""+ИмяСвойства+­""""+Двоеточие+""""+ЗначениеСвойства+"""";
				//////Текст=СоздатьОбъект("Текст");
				//////Текст.ДобавитьСтроку(""""+ЗначениеСвойства+"""");
				//////Текст.ДобавитьСтроку(ОбъектВТекстJSON(ЗначениеСвойства,ПереноситьСтроки,ВходящийОтступ+Отступ));
				//////Текст.Записать(КаталогПользователя()+"signature.txt");
			Иначе
			СтрокаJSON=СтрокаJSON+ТекущийОтступ+Отступ+""""+ИмяСвойства+­""""+Двоеточие+ОбъектВТекстJSON(ЗначениеСвойства,ПереноситьСтроки,ВходящийОтступ+Отступ);
			КонецЕсли;
			Если iii<Объект.РазмерСписка() Тогда
				СтрокаJSON=СтрокаJSON+",";
			КонецЕсли;
		КонецЦикла;
		СтрокаJSON=СтрокаJSON+?(Объект.РазмерСписка()>0,ТекущийОтступ,"")+"}";
		
	ИначеЕсли ТипЗначенияСтр(Объект)="ТаблицаЗначений" Тогда // Array
		СтрокаJSON=СтрокаJSON+"[";
		Для iii=1 По Объект.КоличествоСтрок() Цикл
			ЗначениеСтроки=Объект.ПолучитьЗначение(iii,1); // берём данные только из первой колонки !!!
			СтрокаJSON=СтрокаJSON+ТекущийОтступ+Отступ+ОбъектВТекстJSON(ЗначениеСтроки,ПереноситьСтроки,ВходящийОтступ+Отступ);
			Если iii<Объект.КоличествоСтрок() Тогда
				СтрокаJSON=СтрокаJSON+",";
			КонецЕсли;
		КонецЦикла;
		СтрокаJSON=СтрокаJSON+?(Объект.КоличествоСтрок()>0,ТекущийОтступ,"")+"]";
		
	ИначеЕсли ТипЗначенияСтр(Объект)="Строка" Тогда
		Если Объект="true" Тогда
			СтрокаJSON=СтрокаJSON+"true";
		ИначеЕсли Объект="false" Тогда
			СтрокаJSON=СтрокаJSON+"false";
		ИначеЕсли Объект="null" Тогда
			СтрокаJSON=СтрокаJSON+"null";
		////////ИначеЕсли Лев(Объект,5)="<?xml" Тогда
		////////	СтрОбъект=Объект;
		////////	СтрОбъект=СтрЗаменить(СтрОбъект,"\n","");
		////////	СтрокаJSON=СтрокаJSON+""""+СтрОбъект+"""";
		Иначе
			СтрОбъект=Объект;
			СтрОбъект=СтрЗаменить(СтрОбъект,"\", "\\");
			// СтрОбъект=СтрЗаменить(СтрОбъект,"/", "\/"); убрал 09.06.2021 т.к. в КМТ не проходило подписание
			СтрОбъект=СтрЗаменить(СтрОбъект,"""","\""");
			СтрОбъект=СтрЗаменить(СтрОбъект,Симв( 8),"\b");
			СтрОбъект=СтрЗаменить(СтрОбъект,Симв( 9),"\t");
			СтрОбъект=СтрЗаменить(СтрОбъект,Симв(10),"\n");
			СтрОбъект=СтрЗаменить(СтрОбъект,Симв(12),"\f");
			СтрОбъект=СтрЗаменить(СтрОбъект,Симв(13),"\r");
			СтрокаJSON=СтрокаJSON+""""+СтрОбъект+"""";
		КонецЕсли;
		
	ИначеЕсли ТипЗначенияСтр(Объект)="Число" Тогда
		СтрокаJSON=СтрокаJSON+Строка(Объект);
		
	ИначеЕсли ТипЗначенияСтр(Объект)="Дата" Тогда
		СтрОбъект=Формат(Объект,"ДГГГГММДД");
		СтрОбъект=Лев(СтрОбъект,4)+"-"+Сред(СтрОбъект,5,2)+"-"+Прав(СтрОбъект,2);
		Если ПустоеЗначение(Время)=1 Тогда
			Время="00:00:00"+".000Z";
		Иначе
			Если Время="23:59:59" Тогда
				Время=Время+".999Z";
			Иначе
				Время=Время+".000Z";
			КонецЕсли;
		КонецЕсли;
		СтрОбъект=СтрОбъект+"T"+Время;
		СтрокаJSON=СтрокаJSON+""""+СтрОбъект+"""";
	КонецЕсли;
	Возврат СтрокаJSON;
КонецФункции // ОбъектВТекстJSON

//*********************************************************************************
// RFC 8259 The JavaScript Object Notation (JSON) Data Interchange Format
// в базе есть обработка JSON_Туда_И_Обратно
// в Install есть обработка КОП_JSON.ert там всё 
// есть обработка https://infostart.ru/public/396905/
// здесь используется
// https://forum.mista.ru/topic.php?id=741536
// Функция JSON(Объект, Детализация=0) Экспорт
Функция ОбъектВТекстJSON_(Объект,Детализация=0) Экспорт
	Тип = ТипЗначенияСтр(Объект);
	
	Если Тип = "Справочник" Тогда
		Результат = СоздатьОбъект("Текст");
		Вид = Объект.Вид();
		
		Идентификатор = Метаданные.Справочник(Вид).Идентификатор;
		ПолныйИдентификатор = Метаданные.Справочник(Вид).ПолныйИдентификатор();
		
		Результат.ДобавитьСтроку("{");
		Результат.ДобавитьСтроку(""""+ПолныйИдентификатор+""""+": {");
		
		Код = Объект.Код;
		Результат.ДобавитьСтроку("""Код"": "+""""+Код+""",");
		Наименование = Объект.Наименование;
		Результат.ДобавитьСтроку("""Наименование"": "+""""+Наименование+"""");
		
		Если Детализация>=1 Тогда
			Результат.ДобавитьСтроку(",");
			
			КоличествоРеквизитов = Метаданные.Справочник(Вид).Реквизит();
			Для НомерРеквизита=1 По КоличествоРеквизитов Цикл
				Реквизит = Метаданные.Справочник(Вид).Реквизит(НомерРеквизита);
				РеквизитИдентификатор = Реквизит.Идентификатор;
				Результат.ДобавитьСтроку(""""+РеквизитИдентификатор+""""+": ");
				РеквизитЗначение = Объект.ПолучитьАтрибут(РеквизитИдентификатор);
				
				лТекстРеквизит = ОбъектВТекстJSON(РеквизитЗначение, Детализация-1);
				
				КоличествоСтрокРеквизит = лТекстРеквизит.КоличествоСтрок();
				Для НомерСтрокиРеквизит=1 По КоличествоСтрокРеквизит Цикл
					Результат.ДобавитьСтроку(лТекстРеквизит.ПолучитьСтроку(НомерСтрокиРеквизит));
				КонецЦикла;
				
				Если НомерРеквизита<КоличествоРеквизитов Тогда
					Результат.ДобавитьСтроку(",");
				Иначе
					
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
		
		Результат.ДобавитьСтроку("}");
		Результат.ДобавитьСтроку("}");
		
		Возврат Результат;
	ИначеЕсли (Тип = "Документ") Тогда
		// еще не наваяно
		
	ИначеЕсли (Тип = "ТаблицаЗначений") ИЛИ (Тип = "СписокЗначений") Тогда
		// еще не наваяно
		
	ИначеЕсли Тип = "Строка" Тогда
		Если Объект = "true" Тогда
			_Рез="true";
		ИначеЕсли Объект = "false" Тогда
			_Рез="false";
		ИначеЕсли Объект = "null" Тогда
			_Рез="null";
		Иначе
			_Рез = СокрЛП(Объект);
			_Рез = СтрЗаменить(_Рез, "\",				"\\");
			_Рез = СтрЗаменить(_Рез, "/",				"\/");
			_Рез = СтрЗаменить(_Рез, """",				"\""");
			_Рез = СтрЗаменить(_Рез, Симв(8),			"\b"); // Символ Backspace
			_Рез = СтрЗаменить(_Рез, Симв(9),			"\t"); // СимволТабуляции
			_Рез = СтрЗаменить(_Рез, Симв(10),			"\n"); // перевод строки
			_Рез = СтрЗаменить(_Рез, Симв(12),			"\f"); // перевод страницы
			_Рез = СтрЗаменить(_Рез, Симв(13),			"\r"); // возврат каретки
			_Рез = """" + _Рез + """";
			Возврат _Рез;
		КонецЕсли;
	ИначеЕсли Тип = "Число" Тогда
		//Результат = СоздатьОбъект("Текст");
		//Результат.ДобавитьСтроку(Объект);
		//Возврат Результат;
		Возврат Строка(Объект);
	ИначеЕсли Тип = "Дата" Тогда
		//Результат = СоздатьОбъект("Текст");
		Если ПустоеЗначение(Детализация)=1 Тогда
			_Время="00:00:00"+".000Z";
		Иначе
			Если Детализация="23:59:59" Тогда
				_Время=Детализация+".999Z";
			Иначе
				_Время=Детализация+".000Z";
			КонецЕсли;
		КонецЕсли;
		_Рез=ОбъектВТекстJSON(Формат(Объект,"ДГГГГ-ММ-ДД")+"T"+_Время);
		//Результат.ДобавитьСтроку();
		Возврат _Рез;
	Иначе
		//Результат = СоздатьОбъект("Текст");
		//Результат.ДобавитьСтроку(ОбъектВТекстJSON(Строка(Объект)));
		//Возврат Результат;
		Возврат Строка(Объект);
	КонецЕсли;
КонецФункции // ОбъектВТекстJSON

//******************************************************************************
Функция РасшифроватьТокенJWT(Токен) Экспорт
	ТокенJWT=СоздатьОбъект("ТаблицаЗначений");
	//ТокенJWT.НоваяКолонка("user_status");			// текущий статус пользователя в системе ИС МП
	//ТокенJWT.НоваяКолонка("inn");					// ИНН
	//ТокенJWT.НоваяКолонка("id");					// Регистрационный номер участника в ИС МП
	//ТокенJWT.НоваяКолонка("exp");					// Время окончания срока действия, формат Unix time (number)
	//ТокенJWT.НоваяКолонка("organisation_status");	// Статус регистрации участника в ИС МП
	//ТокенJWT.НоваяКолонка("client_id");				// Служебный атрибут ИС МП
	//ТокенJWT.НоваяКолонка("jti");					// Надеюсь, что это clientToken
	ТокенJWT.НоваяСтрока();
	
	ЧастиТокена = СтрЗаменить(Токен,".",РазделительСтрок);
	Если СтрКоличествоСтрок(ЧастиТокена) <> 3 Тогда
		Сообщить("Токен не соответствует формату JWT");
		Возврат 0;
	КонецЕсли;
	
	ДанныеТокена = base64_decode(СтрПолучитьСтроку(ЧастиТокена,2));
	
	спРезультатРазбора=ТекстJSONВОбъект(ДанныеТокена);
	
	Для iii=1 По спРезультатРазбора.РазмерСписка() Цикл
		ПараметрJWT="";
		ЗначениеJWT=спРезультатРазбора.ПолучитьЗначение(iii,ПараметрJWT);
		ТокенJWT.НоваяКолонка(ПараметрJWT);
		ТокенJWT.УстановитьЗначение(1,ПараметрJWT,ЗначениеJWT);
		Если флОтладка=1 Тогда
			Сообщить("ТокенJWT "+ПараметрJWT+": "+Преобразовать_из_UTF8(ЗначениеJWT));
		КонецЕсли;
	КонецЦикла;
	Если флОтладка=1 Тогда
		//ыыы=1;ТокенJWT.ВыбратьСтроку(iii); // вывод результата разбора
	КонецЕсли;
	Возврат ТокенJWT;
КонецФункции // РасшифроватьТокенJWT