Обработать цены таблицей и вернуть их в новый набор

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

Выгрузить даёт данные, ВыгрузитьКолонки — пустую структуру колонок. Проверяем эту разницу и загрузку массива цен.

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

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

Подготовка

  1. Создайте НОВУЮ пустую файловую базу. В Конфигураторе корню задайте имя Учебная85; не добавляйте учебные регистры в рабочую УТ/КА2/УНФ/БП.

  2. Регистры сведений → Добавить: УчебныеЦены. Режим записи Независимый, периодичность Непериодический. Измерение КодТовара: Строка, длина 50, индексировать. Ресурс Цена: Число, 12 цифр, 2 дробных, неотрицательное.

  3. Проверку заполнения измерения установите Показывать ошибку. Модуль набора записей оставьте ПУСТЫМ; обработчики записи, обмена, фоновые задания и внешние сервисы для урока не создавайте.

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

  5. Фрагмент вставьте в тело ВыполнитьПример. Каждую задачу запускайте отдельно. Вымышленные коды не являются справочными ссылками на рабочие товары.

Описание = Метаданные.РегистрыСведений.Найти("УчебныеЦены");
Если Описание = Неопределено Тогда
    ВызватьИсключение "Сначала подготовьте собственный учебный регистр";
КонецЕсли;
Если Описание.РежимЗаписи <> Метаданные.СвойстваОбъектов.РежимЗаписиРегистра.Независимый
    Или Описание.ПериодичностьРегистраСведений <> Метаданные.СвойстваОбъектов.ПериодичностьРегистраСведений.Непериодический Тогда
    ВызватьИсключение "Настройки учебного регистра не соответствуют подготовке";
КонецЕсли;
Если Описание.Измерения.Количество() <> 1
    Или Описание.Измерения.Найти("КодТовара") = Неопределено
    Или Описание.Ресурсы.Найти("Цена") = Неопределено Тогда
    ВызватьИсключение "Нужны одно измерение КодТовара и ресурс Цена";
КонецЕсли;
Набор = РегистрыСведений.УчебныеЦены.СоздатьНаборЗаписей();
Книга = Набор.Добавить();
Книга.КодТовара = "BOOK-A01";
Книга.Цена = 250;
Ручка = Набор.Добавить();
Ручка.КодТовара = "PEN-B02";
Ручка.Цена = 50;
Таблица = Набор.Выгрузить(, "КодТовара,Цена");
ПустаяСхема = Набор.ВыгрузитьКолонки("КодТовара,Цена");
Сообщить(Таблица.Количество() = 2);
Сообщить(ПустаяСхема.Количество() = 0);
Сообщить(ПустаяСхема.Колонки.Количество() = 2);
Таблица.Получить(0).Цена = 275;
Приемник = РегистрыСведений.УчебныеЦены.СоздатьНаборЗаписей();
Приемник.Загрузить(Таблица);
Сообщить(Приемник.Итог("Цена") = 325);
Сообщить(Набор.Итог("Цена") = 300);
НовыеЦены = Новый Массив;
НовыеЦены.Добавить(280);
НовыеЦены.Добавить(60);
Приемник.ЗагрузитьКолонку(НовыеЦены, "Цена");
Проверка = Приемник.ВыгрузитьКолонку("Цена");
Сообщить(Проверка.Получить(0) = 280);
Сообщить(Проверка.Получить(1) = 60);
Сообщить(Приемник.Итог("Цена") = 340);

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

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

  2. ВыгрузитьКолонки создаёт только схему, не копирует две строки: проверяем ноль строк и две колонки.

  3. Меняем цену книги в таблице на 275, загружаем её в новый набор. Исходный набор остаётся 300.

  4. Массив 280/60 соответствует текущему порядку двух записей приёмника. ЗагрузитьКолонку не сопоставляет коды автоматически.

  5. ВыгрузитьКолонку возвращает Массив значений для контроля. Ни один из наборов не записан в базу.

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

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

  2. Приёмник имеет цены 280 и 60, исходный набор 250 и 50.

  3. ПустаяСхема содержит колонки, но не строки.

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

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

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

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

  2. Загрузить не является сохранением в регистр; запись — отдельное действие.

  3. Не путайте ВыгрузитьКолонки с Выгрузить без списка строк.

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

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

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

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

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