Трассировщик маршрута мобильного приложения

Работая с мобильным клиентом, и в частности передавая данные с сервера на ТСД и обратно, часто сталкивался с нарушением (ошибкой) передачи данных. В процессе поиска ошибки в некоторых случаях выяснялось, что ошибка возникает из-за нестабильной сетевой структуры. Возникали ошибки на WI-FI антеннах (WI-FI контур покрытия склада), которые нужно было перезагружать админам. Также ошибки самой сети (отвалился провод, потеря пакетов). А также ошибки на промежуточном оборудовании и серверах.

В связи с чем, для быстрого понимания где возникает ошибка (в коде или сети) был написан "трассировщик" маршрута. Суть данной разработки, это пройти весь путь от клиента/ТСД (места старта), включая внешние базы, и вернуться обратно без ошибок.

На просторах интернета есть функционал ("Использование MS SQL Profiler и 1С" или описанный в статье на //infostart.ru/1c/articles/19127/). Они проводят анализ используя технологический журнал или данные SQL. Это все необходимо "разворачивать", да и полного анализа они все равно не смогут предоставить.

Первое, что необходимо, это на стороне внешней/публикуемой базы прописать функцию HTTP-сервиса для установки факта получения сигнала/данных. Мы используем текстовое сообщение (ТекстСообщения). В эту переменную мы прописывает:
            1) В какой базе мы находимся.
            2) Где мы находимся (на сервере или на клиенте)
            3) На каком компьютере (функция ИмяКомпьютера())
            4) Точное время, когда мы сюда пришли (функция Формат(ТекущаяДата(), "ДЛФ=T"))

"Точное время, когда мы сюда пришли" берется с компьютера, на котором мы сейчас находимся (в данном случае на сервере 1С) и берется время именно этого компьютера.
 

//Функция HTTP-сервиса внешней/публикуемой базы
&НаСервере
Функция ЗамерВремениОтправкиИ_ПередачиДанных(Запрос)
    ТекстСообщения = "";
    
    ИнформационнаяБаза = "УТ";
    ТекстСообщения = ТекстСообщения+ИнформационнаяБаза+"_НаСервере - перешли на сервер "+ИнформационнаяБаза+" :"Символы.ПС+
    "Имя компьютера:"+ИмяКомпьютера()+Символы.ПС+
    Формат(ТекущаяДата(), "ДЛФ=T");
    
    Результат = ТекстСообщения;
    
    HTTPОтветСтруктура = Новый Структура("RequestJSON, ErrorText", Результат, "");
    Возврат Ответ(HTTPОтветСтруктура,Ложь);
КонецФункции

&НаСервере
Функция Ответ(Данные, Ошибка = Ложь)    
    Если Ошибка = Истина Тогда
        Ответ = Новый HTTPСервисОтвет(500);
    Иначе
        Ответ = Новый HTTPСервисОтвет(200);
    КонецЕсли;
    
    Ответ.Заголовки.Вставить("Accept-Charset", "utf-8");
    Ответ.Заголовки.Вставить("Content-Type", "application/json;charset=utf-8");
    Ответ.Заголовки["Cache-Control"] = "no-cache";
    
    Ответ.УстановитьТелоИзСтроки(ДанныеJSON(Данные));
    
    Возврат Ответ;
КонецФункции

&НаСервере
Функция ДанныеJSON(Данные)    

    ЗаписьJSON = Новый ЗаписьJSON;
    ПараметрыJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Авто," ",Истина,,Истина,Истина,Истина,Истина,Истина);
    ЗаписьJSON.УстановитьСтроку(ПараметрыJSON);
    ЗаписатьJSON(ЗаписьJSON, Данные);
    
    Возврат ЗаписьJSON.Закрыть();
КонецФункции

Второе, это в мобильном приложении создаем команду для запуска самого парсинга (ТСД - место старта). Таким образом запуск "Трассировщика" произойдет на стороне мобильного приложения "НаКлиенте". В текстовое сообщение мы прописываем все пройденные этапы. А самое главное - фиксируем время их прохождения.

//Процедуры мобильного приложения (ТСД - место старта)
&НаКлиенте
Процедура ЗамерВремениОтправкиИ_ПередачиДанных_НаКлиенте(Команда)
    ТекстСообщения = "Имя ТСД: "+ИмяКомпьютера();
    
    ТекстСообщения = ТекстСообщения+Символы.ПС+
    "ТСД_НаКлиенте - нажата кнопка:"+Символы.ПС+
    Формат(ТекущаяДата(), "ДЛФ=T");
    
    ЗамерВремениОтправкиИ_ПередачиДанныхНаСервере(ТекстСообщения);
    
    ТекстСообщения = ТекстСообщения+Символы.ПС+
    "ТСД_НаКлиенте - выведено сообщение:"+Символы.ПС+
    Формат(ТекущаяДата(), "ДЛФ=T");
    
    Сообщить(ТекстСообщения);
КонецПроцедуры

Саму процедуру передачи текстового сообщения (где так же фексируются все пройденные этапы и их время) создаем на сервере.

//Процедуры мобильного приложения (ТСД - место передачи данных во внешние системы/базы)
&НаСервере
Процедура ЗамерВремениОтправкиИ_ПередачиДанныхНаСервере(ТекстСообщения)
    ТекстСообщения = ТекстСообщения+Символы.ПС+
    "ТСД_НаСервере - перешли на сервер ТСД:"+Символы.ПС+
    "Имя компьютера:"+ИмяКомпьютера()+Символы.ПС+
    Формат(ТекущаяДата(), "ДЛФ=T");
    
    ЗамерВремениОтправкиИ_ПередачиДанных(ТекстСообщения);
КонецПроцедуры

Передача текстового сообщения осуществляется через HTTP запрос методом GET, через параметр "MeasuringTheTimeOfSendingAndTransferringData".

&НаСервере
Функция ЗамерВремениОтправкиИ_ПередачиДанных(ТекстСообщения) Экспорт
    Попытка
        ТекстСообщения = ТекстСообщения+Символы.ПС+
        "ТСД_НаСервере - отправили данные с ТСД:"+Символы.ПС+
        Формат(ТекущаяДата(), "ДЛФ=T");
        
        Путь = "hs/TSD/MeasuringTheTimeOfSendingAndTransferringData";
        Ответ = Запрос_HTTP_GET(Путь);
        Если Ответ["ErrorText"] <> "" Тогда
            ТекстСообщения = ТекстСообщения+Символы.ПС+
            "ТСД_НаСервере - получили ответ от УТ:"+Символы.ПС+
            Формат(ТекущаяДата(), "ДЛФ=T");

            ТекстСообщения = ТекстСообщения+Символы.ПС+
            ("Ошибка отправки данных из ТСД. КодСостояния = "+Ответ.КодСостояния+Символы.ПС+
            Ответ.ПолучитьТелоКакСтроку());

            Возврат ТекстСообщения;
        КонецЕсли;
        
        Данные = Ответ["RequestJSON"];
        ТекстСообщения = ТекстСообщения+Символы.ПС+
        Данные;

        ТекстСообщения = ТекстСообщения+Символы.ПС+
        "ТСД_НаСервере - получили ответ от УТ:"+Символы.ПС+
        Формат(ТекущаяДата(), "ДЛФ=T");

    Исключение
        ТекстСообщения = ТекстСообщения+Символы.ПС+
        "Произошла ошибка при отправке данных из ТСД:"+Символы.ПС+
        Формат(ТекущаяДата(), "ДЛФ=T");

        ТекстСообщения = ТекстСообщения+Символы.ПС+ОписаниеОшибки();
    КонецПопытки;
    
    Возврат ТекстСообщения;
КонецФункции



//Константы:
//Сайт - указан сайт/домен подключения
//ВнешняяБаза - указана база подключения
&НаСервере
Функция Запрос_HTTP_GET(Путь) Экспорт    
    Сайт = Константы.Сайт.Получить();//Имя сервера внешней базы (например: Сервер_1С-1)
    ВнешняяБаза = Константы.ВнешняяБаза.Получить();// Имя внешней базы (например: УТ)  
    ПолныйПуть = СубДоменБазы + Путь;
    
    ФайлРезультата = ПолучитьИмяВременногоФайла();
    Соед = Новый HTTPСоединение(Сайт,,,,,1800);
    
    ЗаголовокHTTP = Новый Соответствие();
    ЗаголовокHTTP.Вставить("Content-Type", "application/x-www-form-urlencoded");
    
    Ответ = Соед.Получить(Новый HTTPЗапрос(ПолныйПуть),ФайлРезультата);
    
    Если Ответ.КодСостояния = 200 Тогда    
        Текст = Новый ЧтениеТекста(ФайлРезультата, КодировкаТекста.UTF8);
        СодRaw = Текст.Прочитать();
        Чтение = Новый ЧтениеJSON();
        Чтение.УстановитьСтроку(СодRaw);
        Данные = ПрочитатьJSON(Чтение,Истина);

        возврат Данные;
    Иначе
        Данные = Новый Структура();
        ТекстСообшения = "Произошла ошибка. Код состояния: "+Ответ.КодСостояния;
        Данные.Вставить("ErrorText",ТекстСообшения);
        возврат Данные;
    КонецЕсли;    
КонецФункции