Копировать прямоугольный блок без сдвига соседних ячеек

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

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

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

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

Подготовка

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

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

  3. Вставьте весь модуль из примера: УчебныйПример, ПостроитьУчебныйДокумент и УчебнаяТаблица. Серверный вызов возвращает собственный табличный документ клиенту; директивы не удаляйте.

  4. Никакие макеты, документы и справочники конфигурации не нужны. Всё построение — в памяти, без печати, записи файлов и отправки в сервисы.

  5. Показ и ручную проверку выполняйте в тонком клиенте Windows 8.5.1.1343. Каждый урок — отдельная копия формы с пустым модулем до вставки.

&НаКлиенте
Процедура УчебныйПример(Команда)
    ТабДок = ПостроитьУчебныйДокумент();

    ТабДок.Показать("Учебный документ — без печати и сохранения");
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПостроитьУчебныйДокумент()
    ТабДок = Новый ТабличныйДокумент;
    Источник = Новый ТабличныйДокумент;
    Источник.Область(1, 1).Текст = "Книга";
    Источник.Область(1, 2).Текст = "750";
    Источник.Область(2, 1).Текст = "Ручка";
    Источник.Область(2, 2).Текст = "50";
    ТабДок.Область(3, 5).Текст = "Контрольная ячейка";
    ТабДок.ВставитьОбласть(Источник.Область(1, 1, 2, 2), ТабДок.Область(3, 2, 4, 3),
        ТипСмещенияТабличногоДокумента.БезСмещения);
    Сообщить(ТабДок.Область(3, 2).Текст = "Книга");
    Сообщить(ТабДок.Область(4, 3).Текст = "50");
    Сообщить(ТабДок.Область(3, 5).Текст = "Контрольная ячейка");
    Источник.Область(1, 1).Текст = "Изменён только источник";
    Сообщить(ТабДок.Область(3, 2).Текст = "Книга");
    ТабДок.ТолькоПросмотр = Истина;
    Возврат ТабДок;
КонецФункции

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

  1. Источник размером 2×2 копируется в строки 3–4, колонки 2–3 нового документа. Приёмник задаём явно, не полагаемся на положение по умолчанию.

  2. БезСмещения означает запись копии в указанную область. Уже занятое содержимое приёмника могло бы быть заменено; в упражнении место пустое.

  3. Изменяем источник после вставки и проверяем независимость копии. Соседняя контрольная ячейка не переместилась.

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

  1. Четыре проверки дают Истина.

  2. В показе блок Книга/750 и Ручка/50 находится в колонках B–C, строках 3–4; контрольная надпись в E3.

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

Копирование блока с явной геометрией и без неожиданного сдвига.

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

  1. БезСмещения не означает запрет перезаписи приёмника. Не вставляйте поверх ценных данных без проверки.

  2. Координаты табличного документа начинаются с 1, индексы коллекций — с 0.

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

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

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

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

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