From 026e477863b9fa9f1d5e8d025a56803ad4c4cb2b Mon Sep 17 00:00:00 2001 From: wakadakawaka Date: Mon, 19 May 2025 21:09:07 +0500 Subject: [PATCH] new --- .../Работа с документами/Проверка заполнения документа.md | 34 +++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 src/content/docs/knowledge-base/Примеры кода, шаблоны/БСП и типовые/1. Библиотека стандартных подсистем/Работа с документами/Проверка заполнения документа.md diff --git a/src/content/docs/knowledge-base/Примеры кода, шаблоны/БСП и типовые/1. Библиотека стандартных подсистем/Работа с документами/Проверка заполнения документа.md b/src/content/docs/knowledge-base/Примеры кода, шаблоны/БСП и типовые/1. Библиотека стандартных подсистем/Работа с документами/Проверка заполнения документа.md new file mode 100644 index 0000000..b7e94bb --- /dev/null +++ b/src/content/docs/knowledge-base/Примеры кода, шаблоны/БСП и типовые/1. Библиотека стандартных подсистем/Работа с документами/Проверка заполнения документа.md @@ -0,0 +1,34 @@ + +```bsl +Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) + + НепроверяемыеРеквизиты = Новый Массив; // сюда имена реквизитов, которые нужно исключить из проверки + + Если Статус = Перечисления.УДК_СтатусыВыполненияЗаданий.ВРаботе Тогда + НепроверяемыеРеквизиты.Добавить("Аналитик"); + КонецЕсли; + + Если Статус = Перечисления.УДК_СтатусыВыполненияЗаданий.Закрыта Тогда + // в этот массив можно добавить реквизиты, которые нужно проверить + ПроверяемыеРеквизиты.Добавить("СписокОбъектов.ДатаПомещения"); + КонецЕсли; + + ОбщегоНазначения.УдалитьНепроверяемыеРеквизитыИзМассива(ПроверяемыеРеквизиты, НепроверяемыеРеквизиты); + + // Тут проверяем каждую строку ТЧ и привязваем сообщение об ошибке к конкретной ячейки конкретной строки + Для Каждого Строка Из СписокОбъектов Цикл + + Если Не ЗначениеЗаполнено(Строка.ДатаПомещения) И Строка.СостояниеОбъекта = Перечисления.УДК_СостоянияОбъектов.ПомещенВХранилище Тогда + + ОбщегоНазначения.СообщитьПользователю("Заполните дату помещения в ХК", + , + Сообщение.Поле = ОбщегоНазначенияКлиентСервер.ПутьКТабличнойЧасти("Объект.СписокОбъектов", Строка.НомерСтроки, "ДатаПомещения"), + , + Отказ) + + КонецЕсли; + + КонецЦикла; + +КонецПроцедуры +``` \ No newline at end of file