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

СкопироватьСтроку копирует текущую строку учебной таблицы, не документ базы и не весь реквизит Товары. После команды нужно завершить пользовательский ввод.

Подготовка

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

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

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

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

5. Проверяйте в настольном тонком/толстом или веб-клиенте 8.5.1.1343, не в мобильном приложении. Для каждого урока отдельная учебная форма с пустым модулем.

6. Изменение учебных строк остаётся только в открытой форме. При её новом открытии снова создаются Книга/3 и Ручка/1. Настройки таблицы не являются правами доступа к данным.

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

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

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

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

&НаКлиенте
Процедура УчебноеДействие(Команда)
    Таблица = Элементы.ТаблицаТоваров;
    Таблица.ЗакончитьРедактированиеСтроки(Ложь);
    Книги = Товары.НайтиСтроки(Новый Структура("Код", "A-01"));
    Если Книги.Количество() <> 1 Тогда
        Сообщить("Нужна одна исходная строка A-01: откройте учебную обработку заново");
        Возврат;
    КонецЕсли;
    Таблица.ТекущаяСтрока = Книги[0].ПолучитьИдентификатор();
    Таблица.ТекущийЭлемент = Элементы.ТоварыКоличество;
    ЭтаФорма.ТекущийЭлемент = Таблица;
    Таблица.СкопироватьСтроку();
    Сообщить("В новой копии задайте код A-01-COPY, название Копия книги и количество 2; завершите ввод");
КонецПроцедуры

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

1. По коду находим единственную исходную Книгу и задаём текущую строку через её идентификатор.

2. Настройки допускают изменение состава. Метод вызывается у элемента таблицы на клиенте.

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

4. Исходная Книга остаётся отдельной строкой A-01/3. Не вызываем Скопировать у документа или Записать.

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

1. В свежей форме после завершения A-01-COPY/Копия книги/2 видны три строки: исходная Книга/3, Ручка/1 и копия/2; суммарно 6.

2. Исходная Книга не изменилась. Открытие обработки заново возвращает только два первоначальных товара.

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

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

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

1. Метод не действует при скрытой таблице или недоступной команде; наличие вызова не доказывает созданную копию.

2. В примере код не является уникальным ключом базы. В рабочем документе возможны иные проверки/обработчики.

3. Не назначайте результат метода переменной как новую строку: такого возвращаемого значения здесь нет.

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