Сравнить ограниченное и неограниченное текстовое описание

Учебные задачи

У АбонентыЭДО КраткоеОписание ограничено 500 символами, ПодробноеОписание имеет длину 0 — без ограничения этой квалификацией.

Где и как запускать

Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.

Подготовка

  1. Запускайте в учебной копии конфигурации. Примеры читают структуру метаданных, но не создают объекты, не записывают регистры и не проводят документы.

  2. Сверяйте вывод с деревом конфигурации в Конфигураторе. Имена, длины и настройки в УНФ, КА2, БП, УТ 11 и УТ 10.3 могут различаться.

  3. Имена объектов взяты из XML КА2 Progress: C:\claude\KA2\Progress\XML_CF_KA2_PROGRESS. Исходные XML не изменяйте. Выполняйте код только в своей учебной копии соответствующей конфигурации.

  4. В другой конфигурации предварительно найдите аналогичный объект в Конфигураторе и замените только строку имени в поиске. Отсутствие имени обрабатывается до чтения свойств; оно не доказывает отсутствие аналогичной возможности.

  5. Каждый урок запускайте отдельно. Код не вызывает бизнес-функции модулей и обработчики команд, не переключает привилегированный режим и не меняет параметры сеанса.

Регистр = Метаданные.РегистрыСведений.Найти("АбонентыЭДО");
Если Регистр = Неопределено Тогда
    ВызватьИсключение "В учебной конфигурации отсутствует РегистрыСведений.АбонентыЭДО";
КонецЕсли;
Ресурс = Регистр.Ресурсы.Найти("КраткоеОписание");
Если Ресурс = Неопределено Тогда
    ВызватьИсключение "В АбонентыЭДО отсутствует ресурс КраткоеОписание";
КонецЕсли;
Подробное = Регистр.Ресурсы.Найти("ПодробноеОписание");
Если Подробное = Неопределено Тогда
    ВызватьИсключение "Не найден ресурс ПодробноеОписание";
КонецЕсли;
Если Не Ресурс.Тип.СодержитТип(Тип("Строка")) Или Не Подробное.Тип.СодержитТип(Тип("Строка")) Тогда
    ВызватьИсключение "Оба учебных описания должны быть строковыми";
КонецЕсли;
Сообщить(Ресурс.Тип.КвалификаторыСтроки.Длина = 500);
Сообщить(Подробное.Тип.КвалификаторыСтроки.Длина = 0);
Сообщить(Ресурс.МногострочныйРежим);
Сообщить(Подробное.МногострочныйРежим);
Сообщить("Расширенное редактирование: " + Строка(Ресурс.РасширенноеРедактирование));
Текст = "Учебная первая строка" + Символы.ПС + "Учебная вторая строка";
Предел = Подробное.Тип.КвалификаторыСтроки.Длина;
Сообщить(Предел = 0 Или СтрДлина(Текст) <= Предел);

Разбор по шагам

  1. Находим оба ресурса и проверяем строковые типы перед квалификаторами.

  2. Предел 0 интерпретируем как неограниченность квалификатором, а не запрет любой непустой строки.

  3. МногострочныйРежим относится к отображению и редактированию, не является разрешением неограниченного HTTP-запроса.

  4. РасширенноеРедактирование читаем отдельно: многострочность не обязана включать все инструменты редактора.

Как проверить результат

  1. По XML первые четыре проверки Истина: 500, 0 и многострочность обоих ресурсов.

  2. Последняя проверка Истина; учебный текст создан в памяти, содержимое реальных описаний не читается.

Ожидаемый результат

Различены ограничение хранения текста и настройки его редактирования.

На что обратить внимание

  1. Неограниченная строка не отменяет практические лимиты размера обмена и памяти.

  2. Не сокращайте чужие описания молча перед записью.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.