Выгрузить копию Код/Количество на сервере и не изменить форму

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

Выгрузить возвращает ТаблицаЗначений, не клиентскую коллекцию. Выбираем две колонки и изменяем копию, чтобы проверить независимость числового значения.

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

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

Подготовка

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

  2. Не добавляйте вручную реквизит Товары и одноимённые элементы: код создаст их при открытии. Модуль формы для этой задачи должен быть пустым.

  3. В свойствах формы → События свяжите ПриСозданииНаСервере с одноимённой процедурой. Сохраните отдельную учебную EPF и откройте через Файл → Открыть.

  4. Данные Книга/Ручка создаются в памяти формы. Справочники, документы и регистры вашей конфигурации не читаются и не записываются.

  5. Каждая команда сначала сбрасывает ТОЛЬКО собственный реквизит Товары к двум учебным строкам. Ручные изменения этой учебной таблицы при запуске задачи будут потеряны; рабочие формы не используйте.

  6. ДанныеФормыКоллекция не создаётся через Новый. Она возникает у реквизита формы, описанного как ТаблицаЗначений. Выгрузить/Загрузить выполняются только на сервере.


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    НовыеРеквизиты = Новый Массив;
    НовыеРеквизиты.Добавить(Новый РеквизитФормы("Товары", Новый ОписаниеТипов("ТаблицаЗначений")));
    НовыеРеквизиты.Добавить(Новый РеквизитФормы("Код", Новый ОписаниеТипов("Строка"), "Товары", "Код"));
    НовыеРеквизиты.Добавить(Новый РеквизитФормы("Наименование", Новый ОписаниеТипов("Строка"), "Товары", "Название"));
    НовыеРеквизиты.Добавить(Новый РеквизитФормы("Количество", Новый ОписаниеТипов("Число",
        Новый КвалификаторыЧисла(9, 0, ДопустимыйЗнак.Неотрицательный)), "Товары", "Количество"));
    ЭтаФорма.ИзменитьРеквизиты(НовыеРеквизиты);
    Данные = Новый ТаблицаЗначений;
    Данные.Колонки.Добавить("Код", Новый ОписаниеТипов("Строка"));
    Данные.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"));
    Данные.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число",
        Новый КвалификаторыЧисла(9, 0, ДопустимыйЗнак.Неотрицательный)));

    СтрокаТовара = Данные.Добавить();
    СтрокаТовара.Код = "A-01";
    СтрокаТовара.Наименование = "Книга";
    СтрокаТовара.Количество = 3;
    СтрокаТовара = Данные.Добавить();
    СтрокаТовара.Код = "B-02";
    СтрокаТовара.Наименование = "Ручка";
    СтрокаТовара.Количество = 1;

    ЭтаФорма.ЗначениеВРеквизитФормы(Данные, "Товары");
    Таблица = ЭтаФорма.Элементы.Добавить("ТаблицаТоваров", Тип("ТаблицаФормы"));
    Таблица.ПутьКДанным = "Товары";
    Таблица.Заголовок = "Учебные товары";
    Таблица.Шапка = Истина;
    Таблица.АвтоВводНезаполненного = Ложь;
    Таблица.АвтоВводНовойСтроки = Ложь;
    Для Каждого ИмяКолонки Из СтрРазделить("Код,Наименование,Количество", ",") Цикл
        Колонка = Элементы.Добавить("Товары" + ИмяКолонки, Тип("ПолеФормы"), Таблица);
        Колонка.Вид = ВидПоляФормы.ПолеВвода;
        Колонка.ПутьКДанным = "Товары." + ИмяКолонки;
        Колонка.Заголовок = ИмяКолонки;
    КонецЦикла;
    КомандаДействия = ЭтаФорма.Команды.Добавить("УчебноеДействие");
    КомандаДействия.Действие = "УчебноеДействие";
    КомандаДействия.Заголовок = "Выгрузить только две колонки";
    КомандаДействия.Подсказка = "Действие только над данными учебной формы";
    КомандаДействия.ИзменяетСохраняемыеДанные = Ложь;
    Кнопка = Элементы.Добавить("КнопкаУчебноеДействие", Тип("КнопкаФормы"));
    Кнопка.ИмяКоманды = КомандаДействия.Имя;
    Кнопка.Заголовок = КомандаДействия.Заголовок;
КонецПроцедуры

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

&НаСервереБезКонтекста
Функция СоздатьДваУчебныхТовара()
    Данные = Новый ТаблицаЗначений;
    Данные.Колонки.Добавить("Код", Новый ОписаниеТипов("Строка"));
    Данные.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"));
    Данные.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число",
        Новый КвалификаторыЧисла(9, 0, ДопустимыйЗнак.Неотрицательный)));
    Книга = Данные.Добавить();
    Книга.Код = "A-01";
    Книга.Наименование = "Книга";
    Книга.Количество = 3;
    Ручка = Данные.Добавить();
    Ручка.Код = "B-02";
    Ручка.Наименование = "Ручка";
    Ручка.Количество = 1;
    Возврат Данные;
КонецФункции

&НаСервере
Процедура СброситьТолькоУчебныеТовары()
    Товары.Загрузить(СоздатьДваУчебныхТовара());
КонецПроцедуры

&НаСервере
Процедура ПроверитьУчебнуюВыгрузкуНаСервере()
    Копия = Товары.Выгрузить(, "Код,Количество");
    Сообщить(Копия.Количество() = 2);
    Сообщить(Копия.Колонки.Количество() = 2);
    Сообщить(Копия.Колонки.Найти("Наименование") = Неопределено);
    Сообщить(Копия[0].Код = "A-01");
    Сообщить(Копия[0].Количество = 3);
    Копия[0].Количество = 99;
    Сообщить(Товары.Получить(0).Количество = 3);
    Сообщить(Копия[0].Количество = 99);
КонецПроцедуры

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

  1. На клиенте вызываем серверную процедуру; сам метод Выгрузить там и выполняется.

  2. Первый параметр пропущен — выгружаются все собственные строки. Второй ограничивает список колонок.

  3. Наименование не включено, поэтому его колонки в полученной таблице нет.

  4. Изменение числа 3 на 99 в таблице-копии не меняет данные формы. Загрузить обратно мы не вызываем.

  5. Таблицу значений не возвращаем в клиентский обработчик: она остаётся на сервере.

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

  1. Семь логических проверок дают Истина.

  2. В форме по-прежнему Книга/3, Ручка/1. Значение 99 существует только в серверной копии.

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

Показаны серверный контекст, ограничение колонок и независимость скалярных значений копии.

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

  1. Не вызывайте Выгрузить у этой коллекции в клиентском обработчике.

  2. Таблица-копия не является сохранённым документом и не синхронизируется с формой автоматически.

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

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

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

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

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

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