Именовать область товаров и проверить её координаты

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

Строки и колонки табличного документа начинаются с 1. Получаем именованную область и проверяем вложенность ячейки.

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

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

Подготовка

  1. Создайте новую внешнюю обработку с управляемой основной формой в учебной базе. Каждый урок — отдельная копия модуля.

  2. На форме создайте команду УчебныйПример и перетащите её на форму как кнопку. В действии команды выберите процедуру УчебныйПример(Команда).

  3. Вставьте весь приведённый модуль на уровне модуля формы: обработчик команды и функцию УчебнаяТаблица. Никакие макеты или реквизиты конфигурации не требуются.

  4. Сохраните EPF и откройте в тонком клиенте Windows. Примеры показывают таблицу, но не вызывают принтер, не записывают файлы и не читают рабочие документы.

&НаКлиенте
Процедура УчебныйПример(Команда)
    ТабДок = УчебнаяТаблица();
    Товары = ТабДок.Область(3, 1, 4, 4);
    Товары.Имя = "УчебныеТовары";
    ПоИмени = ТабДок.Области.Найти("УчебныеТовары");
    Если ПоИмени = Неопределено Тогда
        ВызватьИсключение "Собственная именованная область не найдена";
    КонецЕсли;
    Сообщить(ПоИмени.Верх = 3);
    Сообщить(ПоИмени.Низ = 4);
    Сообщить(ПоИмени.Лево = 1);
    Сообщить(ПоИмени.Право = 4);
    Сообщить(ПоИмени.СодержитОбласть(ТабДок.Область(3, 3)));
    Сообщить(Не ПоИмени.СодержитОбласть(ТабДок.Область(5, 4)));
    Индекс = ТабДок.Области.Индекс(ПоИмени);
    Сообщить(ТабДок.Области.Получить(Индекс).Имя = "УчебныеТовары");
    Сообщить(ТабДок.Области.Количество() >= 1);
    Сообщить("Тип области: " + Строка(ПоИмени.ТипОбласти));
    ТабДок.Показать("Учебная таблица — без печати и сохранения");
КонецПроцедуры

&НаКлиенте
Функция УчебнаяТаблица()
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.ТолькоПросмотр = Истина;
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Область(, 1, , 1).ШиринаКолонки = 35;
    ТабДок.Область(, 2, , 2).ШиринаКолонки = 10;
    ТабДок.Область(, 3, , 3).ШиринаКолонки = 14;
    ТабДок.Область(, 4, , 4).ШиринаКолонки = 15;
    Заголовок = ТабДок.Область(1, 1, 1, 4);
    Заголовок.Объединить();
    Заголовок.Текст = "Учебная таблица — данные только в памяти";
    Заголовок.Шрифт = Новый Шрифт("Arial", 12, Истина);
    Заголовок.ЦветФона = Новый Цвет(230, 242, 255);
    Заголовок.ВысотаСтроки = 24;
    ТабДок.Область(2, 1).Текст = "Товар";
    ТабДок.Область(2, 2).Текст = "Количество";
    ТабДок.Область(2, 3).Текст = "Цена";
    ТабДок.Область(2, 4).Текст = "Сумма";
    Товары = Новый Массив;
    Товары.Добавить(Новый Структура("Название,Количество,Цена", "Книга", 3, 250));
    Товары.Добавить(Новый Структура("Название,Количество,Цена", "Ручка", 1, 50));
    НомерСтроки = 3;
    Итого = 0;
    Для Каждого Товар Из Товары Цикл
        ТабДок.Область(НомерСтроки, 1).Текст = Товар.Название;
        Значения = Новый Массив;
        Значения.Добавить(Товар.Количество);
        Значения.Добавить(Товар.Цена);
        Значения.Добавить(Товар.Количество * Товар.Цена);
        Для НомерКолонки = 2 По 4 Цикл
            Ячейка = ТабДок.Область(НомерСтроки, НомерКолонки);
            Ячейка.СодержитЗначение = Истина;
            Ячейка.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(12, 2));
            Ячейка.Значение = Значения.Получить(НомерКолонки - 2);
            Ячейка.Формат = "ЧДЦ=2; ЧН=0";
        КонецЦикла;
        Итого = Итого + Товар.Количество * Товар.Цена;
        НомерСтроки = НомерСтроки + 1;
    КонецЦикла;
    ПодписьИтога = ТабДок.Область(5, 1, 5, 3);
    ПодписьИтога.Объединить();
    ПодписьИтога.Текст = "Итого";
    Итог = ТабДок.Область(5, 4);
    Итог.СодержитЗначение = Истина;
    Итог.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(12, 2));
    Итог.Значение = Итого;
    Итог.Формат = "ЧДЦ=2; ЧН=0";
    Все = ТабДок.Область(2, 1, 5, 4);
    Все.Шрифт = Новый Шрифт("Arial", 10);
    Граница = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1, Ложь);
    Все.Обвести(Граница, Граница, Граница, Граница);
    Возврат ТабДок;
КонецФункции

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

  1. Функция полностью создаёт таблицу: Книга 3 × 250, Ручка 1 × 50, итог 800.

  2. Область(3,1,4,4) содержит две товарные строки и четыре колонки. Имя добавляет её в коллекцию именованных областей.

  3. Верх/Низ — строки, Лево/Право — колонки, не координаты пикселей окна.

  4. СодержитОбласть проверяет геометрию внутри того же документа, не наличие текста.

  5. Индекс именованной области начинается с 0, хотя адрес её ячеек начинается с 1. Это разные API.

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

  1. Восемь булевых проверок Истина, дополнительно выводится тип области.

  2. В окне таблицы строки 3/4 — товары, строка 5 — итог 800.

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

Понятны именованные области, две системы нумерации и геометрическая проверка вложенности.

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

  1. Имя области не создаёт реквизит формы или метаданных.

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

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

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

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

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

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