1С 8.3 БСП Проверить

Данные > 1С 8.3 БСП > Данные

ПРИМЕРЫ КОДА 1С

Перейти в раздел примеры кода 1С 8.3:

1С 8.3 БСП

1С 8.3 БСП Проверить. Вызывает исключение с текстом Сообщение, если Условие не равно Истина. Применяется для самодиагностики кода.

Официальная документация ИТС по функционалу

Примера кода от rayastar

ОбщегоНазначенияКлиентСервер.Проверить(Условие, Сообщение, КонтекстПроверки);

//
ОбщегоНазначенияКлиентСервер.Проверить(МаксимальнаяДлина >= 32,
НСтр("ru = 'Параметр МаксимальнаяДлина не может быть меньше 32'"),
"ОбщегоНазначения.СократитьСтрокуКонтрольнойСуммой");

// Типовая конфигурация Библиотека стандартных подсистем (далее - БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode

Метод БСП

// Вызывает исключение с текстом Сообщение, если Условие не равно Истина.
// Применяется для самодиагностики кода.
//
// Параметры:
//   Условие - Булево - если не равно Истина, то вызывается исключение.
//   Сообщение - Строка - текст сообщения. Если не задан, то исключение вызывается с сообщением по умолчанию.
//   КонтекстПроверки - Строка - например, имя процедуры или функции, в которой выполняется проверка.
//
Процедура Проверить(Знач Условие, Знач Сообщение = "", Знач КонтекстПроверки = "") Экспорт

   Если Условие <> Истина Тогда

       Если ПустаяСтрока(Сообщение) Тогда
           ТекстИсключения = НСтр("ru = 'Недопустимая операция'"); // Assertion failed
       Иначе
           ТекстИсключения = Сообщение;
       КонецЕсли;

       Если Не ПустаяСтрока(КонтекстПроверки) Тогда
           ТекстИсключения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
               НСтр("ru = '%1 в %2'"), ТекстИсключения, КонтекстПроверки);
       КонецЕсли;

       ВызватьИсключение ТекстИсключения;

   КонецЕсли;

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

комментарии

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник