[Sede]

Доброго Дня.
Подсобите пожалуйста:
Есть:
ТаблицаЗначений (тзТаблица) с колонками - Товар(заполнено), Контрагент(пусто), датаПоследнегоПоступления(пусто)

Как заполнить пустые колонки.

Данную задачу решил таким путем:

Процедура ЗапросПН()
    Запрос = СоздатьОбъект("Запрос"); 
    ТекстЗапроса = 
    "//{{ЗАПРОС(ЗапросПН)      
    |Период с (НачГода(ТекущаяДата())) по (ТекущаяДата());
//    |Период с ВыбНачПериода по ВыбКонПериода;
    |Обрабатывать НеПомеченныеНаУдаление;
    |Контрагент = Документ.ПриходнаяНакладная.Контрагент;
    |ТМЦ = Документ.ПриходнаяНакладная.ТМЦ;
    |ДатаДок = Документ.ПриходнаяНакладная.ДатаДок;
    |Группировка ТМЦ;
    |Условие(ТМЦ = тзТаблица.Товар);
    |"//}}ЗАПРОС
;
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

        тзТаблица.Контрагент = Запрос.Контрагент;
        тзТаблица.ДатаПослПост=Запрос.ДатаДок;

КонецПроцедуры

Далее просто делаю перебор самой таблицы

тзТаблица.ВыбратьСтроки();
Пока тзТаблица.ПолучитьСтроку()=1 Цикл 
 ЗапросПН();       
КонецЦикла;

Все работает, результат правильный.
Но больно долго думает, особенно когда товаров много. Что-то мне подсказывает что есть варианты "По правильнее" и более быстрые.

[Naghual]

Конечно долго! Запрос на каждую строку ТЗ - это-ж кошмар!
сделайте СписокЗначений со всеми товарами из ТЗ и получи все результаты в одном запросе.

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

[Sede]

А примерчик как в запрос засунуть список можно?

[Naghual]

можно так:
|Условие(ТМЦ В СЗ);

Но более правильно будет так:
|Условие(СЗ.Принадлежит(ТМЦ)=1);

[Sede]

можно так:
|Условие(ТМЦ В СЗ);

Но более правильно будет так:
|Условие(СЗ.Принадлежит(ТМЦ)=1);

Большое спасибо.
Казалось бы ничего сложного... одна строчка но найти нормальной учебной информации днем с огнем не сыщешь.

[mister-x]

но найти нормальной учебной информации днем с огнем не сыщешь.

сюди заглядали?

[Dartvader111]

Ускорить очень просто в десятки раз.

    ТекстЗапроса = 
    "Период с (НачГода(ТекущаяДата())) по (ТекущаяДата());
    |Без итогов;
    |Обрабатывать НеПомеченныеНаУдаление;
    |Контрагент = Документ.ПриходнаяНакладная.Контрагент;
    |ТМЦ = Документ.ПриходнаяНакладная.ТМЦ;
    |ДатаДок = Документ.ПриходнаяНакладная.ДатаДок;
    |Группировка Контрагент без групп без упорядочивания;
    |Группировка ТМЦ без групп без упорядочивания;
    |Группировка ДатаДок без групп без упорядочивания;
    |Условие(ТМЦ = тзТаблица.Товар);
    |";
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

    Запрос.Выгрузить(тбТоварыПрихода)
    тбТоварыПрихода.Сортировать("Товар,ДатаДок");
КонецПроцедуры

i

Код можно выделять

Сообщение отредактировал Vofka - 17.09.15, 9:49

[twilight_dream]

Вы что ребята, беленов объелись, простите, не сдержался. Вообще всю таблицу нужно получить одним запросом.
А если запрос медленно работает, то плюсы ставить и SQL запросом.