Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 окт 2021, 15:23

Создание документа по выборке результата запроса

Автор Foror, 13 авг 2021, 19:58

0 Пользователей и 1 гость просматривают эту тему.

Foror

Добрый день! В консоли запросов для управляемого приложения пытаюсь написать код, который по итогу создаст документ на основании выборки запроса.
По итогу код отрабатывает корректно, но документ не создается. Подскажите пожалуйста, в чем может быть ошибка.
Управление торговлей, редакция 11.1 (11.1.10.103) Толстый клиент
Скриншоты - запрос https://i.imgur.com/gfHByBb.png
Обработка в консоли - https://i.imgur.com/HJFhFSQ.png
Документ по итогу должен будет выглядеть так(нет обязательных реквизитов для заполнения) пример https://i.imgur.com/CESa4u2.png
Текст обработки

   //!!ТОЛЬКО ДЛЯ ВЫПОЛНЕНИЯ НА СЕРВЕРЕ (КНОПКА "Выполнить код на сервере")!!
   //РезультатЗапросаВрем.Выгрузить();
   ВыборкаИзРезультатаЗапроса = РезультатЗапросаВрем.Выбрать();
   ПодсортировкаРозницыОбъект = Документы.ПодсортировкаРозницы.СоздатьДокумент();
   ПодсортировкаРозницыОбъект.Дата           = ТекущаяДата();
   ПодсортировкаРозницыОбъект.СоздалДокумент = Пользователи.ТекущийПользователь();

   Пока ВыборкаИзРезультатаЗапроса.Следующий() Цикл
      ТекущаяСтрока = ПодсортировкаРозницыОбъект.СписокТовара.Добавить();
      ТекущаяСтрока.Номенклатура   = ВыборкаИзРезультатаЗапроса.Номенклатура;
      ТекущаяСтрока.Характеристика     = ВыборкаИзРезультатаЗапроса.Характеристика;
      ТекущаяСтрока.Количество         = ВыборкаИзРезультатаЗапроса.ВНаличииОстаток;
      ТекущаяСтрока.Упаковка          = Справочники.УпаковкиНоменклатуры.НайтиПоНаименованию("шт",Истина,,ТекущаяСтрока.Номенклатура);
   КонецЦикла;




------------------------
Добавление по выборке для регистра сведений к примеру, все работает
//!!ТОЛЬКО ДЛЯ ВЫПОЛНЕНИЯ НА СЕРВЕРЕ (КНОПКА "Выполнить код на сервере")!!
    //РезультатЗапросаВрем.Выгрузить();
    ВыборкаИзРезультатаЗапроса = РезультатЗапросаВрем.Выбрать();

    Пока ВыборкаИзРезультатаЗапроса.Следующий() Цикл
        НовыйМенеджерЗаписи = РегистрыСведений.СоответствиеНоменклатурыIDPLU.СоздатьМенеджерЗаписи();
        НовыйМенеджерЗаписи.Номенклатура   = ВыборкаИзРезультатаЗапроса.Номенклатура;
        НовыйМенеджерЗаписи.Характеристика = ВыборкаИзРезультатаЗапроса.Характеристика;
        НовыйМенеджерЗаписи.ID             = ВыборкаИзРезультатаЗапроса.ID;
     
        Попытка
            НовыйМенеджерЗаписи.Записать();
        Исключение
        КонецПопытки;
    КонецЦикла;

АлександрВладимирович

ПодсортировкаРозницыОбъект.Записать();

Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск