1
0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-02-09 13:47:03 +02:00

Отладочные сообщения

This commit is contained in:
Anton Titovets 2024-03-29 15:25:54 +03:00
parent 2956bdfe28
commit 1fcc093215
2 changed files with 15 additions and 6 deletions

View File

@ -13,7 +13,7 @@
Процедура ОсновнойОбработчик()
Отладка = Ложь;
Отладка = Истина;
Парсер = Новый ПарсерАргументовКоманднойСтроки();
ОбъектОПИ = Новый СвязьОПИ();
Команды = ОбъектОПИ.СоответствиеКомандМодулей;
@ -85,7 +85,13 @@
Если ЗначениеЗаполнено(Вывод) Тогда
Сообщить(Вывод);
Иначе
Справка.ВывестиСообщениеИсключения(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Если Отладка Тогда
Информация = ОписаниеОшибки();
Иначе
Информация = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
КонецЕсли;
Справка.ВывестиСообщениеИсключения(Информация);
КонецЕсли;
КонецПопытки;
@ -201,10 +207,12 @@
Исключение
Если Отладка Тогда
Сообщить(ОписаниеОшибки());
Информация = ОписаниеОшибки();
Иначе
Справка.ВывестиСообщениеИсключения(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Конецесли;
Информация = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
КонецЕсли;
Справка.ВывестиСообщениеИсключения(Информация);
КонецПопытки;

View File

@ -67,6 +67,7 @@
Для Н = 0 По Значение.ВГраница() Цикл
Значение[Н] = СокрЛП(Значение[Н]);
Сообщить("I" + Значение[Н] + "I");
КонецЦикла;
КонецПроцедуры