Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Загрузка из документа          
Volodimir19901 Подменю пользователя
сообщение 16.10.14, 13:35
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 13
Спасибо сказали: 0 раз
Рейтинг: 0

Создал внешнюю Обработку которая проверяет все документы Заказы Покупателям и выводит нужный мне список.
Хочу в эти документы табличную часть(Товары) заполнить в этом же документе в табличную часть (Исходный заказ) грубо говоря продублировать.
Вот собственно код:
Процедура КнопкаВыполнитьНажатие(Кнопка)
    Ссылка = Документы.ЗаказПокупателя.ПолучитьСсылку();
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ РАЗЛИЧНЫЕ
        |    ЗаказПокупателя.Ссылка,
        |    ЗаказПокупателяТовары.НомерСтроки,
        |    ЗаказПокупателяТовары.ЕдиницаИзмерения,
        |    ЗаказПокупателяТовары.ЕдиницаИзмеренияМест,
        |    ЗаказПокупателяТовары.Количество,
        |    ЗаказПокупателяТовары.КоличествоМест,
        |    ЗаказПокупателяТовары.Коэффициент,
        |    ЗаказПокупателяТовары.Номенклатура,
        |    ЗаказПокупателяТовары.СтавкаНДС,
        |    ЗаказПокупателяТовары.Сумма,
        |    ЗаказПокупателяТовары.СуммаНДС,
        |    ЗаказПокупателяТовары.ХарактеристикаНоменклатуры,
        |    ЗаказПокупателяТовары.Цена,
        |    ЗаказПокупателяТовары.ПроцентАвтоматическихСкидок,
        |    ЗаказПокупателяТовары.УсловиеАвтоматическойСкидки,
        |    ЗаказПокупателяТовары.ЗначениеУсловияАвтоматическойСкидки,
        |    ЗаказПокупателяТовары.Спецификация,
        |    ЗаказПокупателяТовары.СерияНоменклатуры
        |ИЗ
        |    Документ.ЗаказПокупателя КАК ЗаказПокупателя
        |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЗаказПокупателя.ИсходныйЗаказ КАК ЗаказПокупателяИсходныйЗаказ
        |        ПО ЗаказПокупателя.Ссылка <> ЗаказПокупателяИсходныйЗаказ.Ссылка
        |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары
        |        ПО ЗаказПокупателя.Ссылка = ЗаказПокупателяТовары.Ссылка
        |ГДЕ
        |    ЗаказПокупателя.Дата МЕЖДУ &ДатаC И &ДатаПо";

    Запрос.УстановитьПараметр("ДатаC", ДатаНачала);
    Запрос.УстановитьПараметр("ДатаПо", ДатаОкончания);
                            
    Результат = Запрос.Выполнить();
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Ссылка = ВыборкаДетальныеЗаписи.Ссылка;
        Для Каждого Ссылка Из ВыборкаДетальныеЗаписи Цикл
                НоваяСтрока                                      = Ссылка.ИсходныйЗаказ.Добавить();
                НоваяСтрока.НомерСтроки                          = ВыборкаДетальныеЗаписи.НомерСтроки;
                НоваяСтрока.ЕдиницаИзмерения                     = ВыборкаДетальныеЗаписи.ЕдиницаИзмерения;
                НоваяСтрока.ЕдиницаИзмеренияМест                 = ВыборкаДетальныеЗаписи.ЕдиницаИзмеренияМест;
                НоваяСтрока.Количество                            = ВыборкаДетальныеЗаписи.Количество;
                НоваяСтрока.КоличествоМест                        = ВыборкаДетальныеЗаписи.КоличествоМест;
                НоваяСтрока.Коэффициент                             = ВыборкаДетальныеЗаписи.Коэффициент;
                НоваяСтрока.Номенклатура                         = ВыборкаДетальныеЗаписи.Номенклатура;
                НоваяСтрока.СтавкаНДС                            = ВыборкаДетальныеЗаписи.СтавкаНДС;
                НоваяСтрока.Сумма                                 = ВыборкаДетальныеЗаписи.Сумма;
                НоваяСтрока.СуммаНДС                            = ВыборкаДетальныеЗаписи.СуммаНДС;
                НоваяСтрока.ХарактеристикаНоменклатуры          = ВыборкаДетальныеЗаписи.ХарактеристикаНоменклатуры;
                НоваяСтрока.Цена                                  = ВыборкаДетальныеЗаписи.Цена;
                НоваяСтрока.ПроцентАвтоматическихСкидок          = ВыборкаДетальныеЗаписи.ПроцентАвтоматическихСкидок;
                НоваяСтрока.УсловиеАвтоматическойСкидки          = ВыборкаДетальныеЗаписи.УсловиеАвтоматическойСкидки;
                НоваяСтрока.ЗначениеУсловияАвтоматическойСкидки = ВыборкаДетальныеЗаписи.ЗначениеУсловияАвтоматическойСкидки;
                НоваяСтрока.Спецификация                         = ВыборкаДетальныеЗаписи.Спецификация;
                НоваяСтрока.СерияНоменклатуры                    = ВыборкаДетальныеЗаписи.СерияНоменклатуры;
            КонецЦикла;    
    КонецЦикла;
    
КонецПроцедуры

Выдает ошибку на
Для Каждого Ссылка Из ВыборкаДетальныеЗаписи Цикл
Прошу подсказать как лучше продублировать данные?

alex040269 Подменю пользователя
сообщение 16.10.14, 14:02
Сообщение #2

Крутой
Иконка группы
Группа: Местный
Сообщений: 1626
Из: Гуляйполе
Спасибо сказали: 236 раз
Рейтинг: 0

Цитата(Volodimir19901 @ 16.10.14, 14:35) *
Ссылка = ВыборкаДетальныеЗаписи.Ссылка;

Заменить на
Цитата(Volodimir19901 @ 16.10.14, 14:35) *
Объект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();


Цитата(Volodimir19901 @ 16.10.14, 14:35) *
Для Каждого Ссылка Из ВыборкаДетальныеЗаписи Цикл

убрать.

Цитата(Volodimir19901 @ 16.10.14, 14:35) *
НоваяСтрока = Ссылка.ИсходныйЗаказ.Добавить();

заменить на
Цитата(Volodimir19901 @ 16.10.14, 14:35) *
НоваяСтрока = Объект.ИсходныйЗаказ.Добавить();



Цитата(Volodimir19901 @ 16.10.14, 14:35) *
КонецЦикла;

удалить.


Signature
Никогда не бойся делать то, что не умеешь, помни - Ноев ковчег был построен любителем, профессионалы построили Титаник.
ЗиУП

Спасибо сказали: Volodimir19901,

TipsyKID Подменю пользователя
сообщение 16.10.14, 14:27
Сообщение #3

Оратор
Иконка группы
Группа: Местный
Сообщений: 413
Из: Киев
Спасибо сказали: 161 раз
Рейтинг: 0

Если типовая то :
ОбщегоНазначения.ЗагрузитьВТаблицуЗначений(ТаблицаИсточник, ТаблицаПриемник);

Если нет :

    // Заполним значения в совпадающих колонках.
    Для каждого СтрокаТаблицыИсточника Из ТаблицаИсточник Цикл

        СтрокаТаблицыПриемника = ТаблицаПриемник.Добавить();
        ЗаполнитьЗначенияСвойств(СтрокаТаблицыПриемника, СтрокаТаблицыИсточника);

    КонецЦикла;




Signature
Специалист : Технологическая платформа 8.х, Бухгалтерия для Украины, Управление торговлей для Украины, Зарплата и Управление Персоналом для Украины

Спасибо сказали: Volodimir19901, Егор Динин,

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 24.04.24, 19:18
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!