Каталог решений - Неблагодарное это дело – выдавать сообщения об ошибках

Каждому программисту время от времени приходится выдавать сообщения о тех или иных ошибках в данных. И часто возникает дилемма: либо черкнуть что-то простое, и продолжить решать поставленную задачу; либо, глубоко вздохнув, начать писать развернутое сообщение.

Это хороший тест, проверьте себя. Прагматы выбирают первый вариант, зануды (не в обиду) —  второй, а гении … — вообще игнорируют .

Это сообщение адресовано второй категории, к которой отношу и себя.  Итак, выбор сделан, решено  дать развернутое сообщение об ошибке. Но вот незадача – в той процедуре, в которой возникла ошибка, нет сведений для развернутого сообщения. Не беда. Добавляем параметры в процедуру и передаем в них недостающие сведения. Но и тут проблемы. В вызывающей процедуре имеется только часть этих сведений. Не очень радует, а что делать?

Ниже приводится простая процедура для преодоления этих трудностей. В комментариях к ней приводится пример использования.

Куда вставить эту процедуру? Можно в какой-нибудь общий модуль, можно в разные модули, где она понадобится. Например, в модуль управляемой формы, чтобы лишний раз не дергать сервер.

// Процедура обрабатывает текст ошибки
//
// Назначение:
//
//     1. Иерархическая обработка ошибок.
//        На каждом уровне иерархии ошибку можно дополнить уточняющими
//        сведениями о месте ее возникновения.
//        Примерамии иерархии являются: вложенный вызовов процедур,
//        вложенные циклы, вложенные условия «Если Тогда Иначе» и т. д.
//
//     2. Гибкость выбора места вывода ошибок.
//        Вопрос: где выводить ошибку, в процедуре, где она возникла,
//        или в вызывающей процедуре решается гибко.
//        Если внешнюю процедуру ошибка интересует, то ошибка будет передана ей,
//        иначе вывод ошибки будет сделан во внутренней процедуре.
//
//     3. Накопление списка ошибок и выдачи их единым результатом,
//
//
//
// Параметры
//
//     ТекстНакопительОшибок — либо Неопределено, либо строка. Входной и выходной параметр.
//                             Текст, содержащий список ошибок
//     ТекстОшибки           — строка, входной параметр.
//                             Текст ошибки или собранный ранее накопитель ошибок
//     КоординатыОшибки      — любой тип, входной параметр.
//                             Приводится к строковому типу. Текст информирующий пользователя
//                             о месте возникновения ошибки. Следует указать место в
//                             именительном падеже, например «Строка 1» или ЭтотОбъект.Ссылка
//
//
// Описание
//
// 1. Если ТекстНакопительОшибок — имеет тип «Строка», то ТекстОшибки и КоординатыОшибки
//    будут добавлены в ТекстНакопительОшибок, при этом, вывода на экран не будет
//
// 2. В противном случае ТекстОшибки и КоординатыОшибки будут выведены на экран
//
// Замечание 1. Повторные одинаковые ошибки накопитель отбрасывает
// Замечание 2. Если ТекстОшибки — не простая ошибка, а уже ранее собранный накопитель
//              ошибок, то КоординатыОшибки будут добавлены слева к уже существующим
//              координатам каждой из ошибок
//
//
//
// Пример.
//
//
//      Процедура ОбработатьСтроку(НомерСтроки, Ошибки = Неопределено)
//          ОшибкуОтдать(Ошибки, «Лимит превышен», «Строка » + НомерСтроки);
//      КонецПроцедуры
//
//
//      Процедура ВариантСУточнением(Ошибки = Неопределено)
//          Ош = «»;
//          ОбработатьСтроку(1, Ош);
//          ОбработатьСтроку(2, Ош);
//          Если ЗначениеЗаполнено(Ош) Тогда
//              ОшибкуОтдать(Ошибки, Ош, «ТЧ Данные»);  // отдаем ошибку нижнего уровня наверх,
//                                                      // уточняя своими координатами
//          КонецЕсли;
//      КонецПроцедуры
//
//
//      Процедура ВариантБезУточнения(Ошибки = Неопределено)
//          ОбработатьСтроку(1, Ошибки);             // Проносим ошибку без контроля
//          ОбработатьСтроку(2, Ошибки);             //
//      КонецПроцедуры
//
//
//      Процедура Испытание()
//          ВариантСУточнением();                    // выдаст:
//                                                   //     Лимит превышен. См. ТЧ Данные, Строка 1
//                                                   //     Лимит превышен. См. ТЧ Данные, Строка 2
//
//          Ошибки = «»;
//          ВариантСУточнением(Ошибки);
//          Если Ошибки <> «» Тогда
//              ОшибкуОтдать(, Ошибки, «Испытание»); // выдаст:
//                                                   //     Лимит превышен. См. Испытание, ТЧ Данные, Строка 1
//                                                   //     Лимит превышен. См. Испытание, ТЧ Данные, Строка 2
//          КонецЕсли;
//
//
//
//          ВариантБезУточнения();                   // выдаст:
//                                                   //     Лимит превышен. См. Строка 1
//                                                   //     Лимит превышен. См. Строка 2
//
//          Ошибки = «»;
//          ВариантБезУточнения(Ошибки);
//          Если Ошибки <> «» Тогда
//              ОшибкуОтдать(, Ошибки, «Испытание»); // выдаст:
//                                                   //     Лимит превышен. См. Испытание, Строка 1
//                                                   //     Лимит превышен. См. Испытание, Строка 2
//          КонецЕсли;
//      КонецПроцедуры
//
//
Процедура ОшибкуОтдать(ТекстНакопительОшибок = Неопределено, ТекстОшибки = «», КоординатыОшибки = Неопределено) Экспорт

    Если не ЗначениеЗаполнено(ТекстОшибки) Тогда
        Если не ЗначениеЗаполнено(ТекстНакопительОшибок) или не ЗначениеЗаполнено(КоординатыОшибки) Тогда
            Возврат;
        КонецЕсли;
    КонецЕсли;

    РазделительСписка = «..|..»;    // между ошибками
    Сцепка = «:,:»;                 // между текстом ошибки и координатами

    // Возможно пользователь использовал Символы.ПС в своих нуждах, поэтому
    // временно заменим все Символы.ПС на другую комбинацию символов.
    // Потом вернем назад

    ВместоПС = «{;}»;                 // временно заменяет Символы.ПС

    ТекстНак = СтрЗаменить(СокрЛП(ТекстНакопительОшибок), Символы.ПС, ВместоПС);
    ТекстНак = СтрЗаменить(ТекстНак, РазделительСписка, Символы.ПС);

    ТекстТек = СтрЗаменить(СокрЛП(ТекстОшибки), Символы.ПС, ВместоПС);
    ТекстТек = СтрЗаменить(ТекстТек, РазделительСписка, Символы.ПС);

    Коорд    = СокрЛП(КоординатыОшибки);

    // Разложение параметра ТекстНакопительОшибок в массив строк
    мвОшибки = Новый Массив;
    Для к = 1 По СтрЧислоСтрок(ТекстНак) Цикл
        мвОшибки.Добавить(СтрПолучитьСтроку(ТекстНак, к));
    КонецЦикла;

    // Разложение параметра ТекстОшибки на строки и их добавление в массив строк
    Для НомерСтроки = 1 По СтрЧислоСтрок(ТекстТек) Цикл

        ТекстСтроки = СокрЛП(СтрПолучитьСтроку(ТекстТек, НомерСтроки));
        КоордСтроки = «»;

        к = Найти(ТекстСтроки, Сцепка);
        Если к > 0 Тогда
            КоордСтроки = СокрЛП(Сред(ТекстСтроки, к + СтрДлина(Сцепка)));
            ТекстСтроки = СокрЛП(Лев(ТекстСтроки, к—1));
        КонецЕсли;

        Если Коорд <> «» Тогда
            Если КоордСтроки = «» Тогда
                КоордСтроки = Коорд;
            Иначе
                КоордСтроки = Коорд + «, » + КоордСтроки;
            КонецЕсли;
        КонецЕсли;

        Если КоордСтроки <> «» Тогда
            ТекстСтроки = ТекстСтроки + Сцепка + КоордСтроки;
        КонецЕсли;

        Если мвОшибки.Найти(ТекстСтроки) = Неопределено Тогда
            мвОшибки.Добавить(ТекстСтроки);
            ТекстНак = ТекстНак + ?(ТекстНак = «», «», Символы.ПС) + ТекстСтроки;
        КонецЕсли;

    КонецЦикла;

    Если ТипЗнч(ТекстНакопительОшибок) = Тип(«Строка») Тогда

        ТекстНак = СтрЗаменить(ТекстНак, Символы.ПС, РазделительСписка);
        ТекстНак = СтрЗаменить(ТекстНак, ВместоПС, Символы.ПС);

        ТекстНакопительОшибок = ТекстНак;

    Иначе

        ТекстНак = «»;
        Для каждого ТекстСтроки Из мвОшибки Цикл
            ТекстСтр = ТекстСтроки;
            Если СтрДлина(ТекстСтр) > 100 Тогда
                ТекстСтр = СтрЗаменить(ТекстСтр, Сцепка, ВместоПС + «См. «);
            Иначе
                ТекстСтр = СтрЗаменить(ТекстСтр, Сцепка, «. См. «);
            КонецЕсли;
            ТекстНак = ТекстНак + ?(ТекстНак = «», «», РазделительСписка) + ТекстСтр;
        КонецЦикла;

        ТекстНак = СтрЗаменить(ТекстНак, РазделительСписка, Символы.ПС); // каждую ошибку с новой строки
        ТекстНак = СтрЗаменить(ТекстНак, ВместоПС, Символы.ПС);          // обратная замена

        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = ТекстНак;
        Сообщение.Сообщить();

    КонецЕсли;

КонецПроцедуры