Совсем забыл черные запросы. Подскажите как отобрать Товары, которые есть в расходных накладных за период, и отобрать единицы по этим товарам

    Запрос = СоздатьОбъект("Запрос");
    Если Запрос.Выполнить("
    |Период с НачДата По КонДата;
    |Товар = Документ.РасходнаяНакл.Товар, Справочник.Единицы.Владелец;
    |Единица = Справочник.Единицы.ТекущийЭлемент;
    |ЕдиницаПоКлассификатору = Справочник.Единицы.Единица;
    |Группировка Товар;
    |Группировка Единица;") <> 1 Тогда
        Возврат;
    КонецЕсли;


Отбирает все единицы

(0) а если прям из самого документа Единицы повыдергивать?

либо (1)
либо попробовать

Период с НачДата По КонДата;
Товар1 = Документ.РасходнаяНакл.Товар;
Товар2 = Справочник.Единицы.Владелец;
Единица = Справочник.Единицы.ТекущийЭлемент;
ЕдиницаПоКлассификатору = Справочник.Единицы.Единица;
Группировка Товар;
Группировка Единица;
Условие Товар1 = Товар2;


Сделал выборку товаров запросом, а единицы обычной выборкой

(1) мне нужны все единицы каждого товара, участвовавшего в реализации

ща попробуем прикинуть...

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

тз = СоздатьОбъект("ТаблицаЗначений");
Запрос.Выгрузить(тз, 1);

тз.ВыбратьСтроку();

(6) ветку не читал, но осуждаю? :)

(0)
Товар = Документ.РасходнаяНакл.Единица.Владелец;
Единица = Документ.РасходнаяНакл.Единица;

(7) Чем недоволен?

если нужны ВСЕ единицы товар,а я-бы делал в два запроса
первый
|Товар = Документ.РасходнаяНакл.Товар

второй
|Товар = Справочник.Единицы.Владелец;
|Единица = Справочник.Единицы.ТекущийЭлемент;
|Группировка Товар без Групп;
|Группировка Единица;
|Условие (Товар В СписоеТоваровИзПервогоЗапроса)

(9) нужны все единицы, а не только те, которые есть в документах

Навскидку у меня не получилось, но Ёпрст - точно сможет... ;-)

(12) че не получилось-то? чему там получаться?

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


    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = "
    |Товар = Справочник.Единицы.Владелец;
    |Ед = Справочник.Единицы.ТекущийЭлемент;
    |Группировка Товар без групп;
    |Группировка Ед;
    |Условие(Товар в СписТоваров);
    |";
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    Таб.ВывестиСекцию("Заголовок");
    Состояние("Заполнение выходной таблицы...");
    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

    Пока Запрос.Группировка(1) = 1 Цикл
        Таб.ВывестиСекцию("Товар");
        Пока Запрос.Группировка(2) = 1 Цикл
            Таб.ВывестиСекцию("Ед");
        КонецЦикла;
    КонецЦикла;
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать", "");

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

(13) в одном запросе.

чорном

ТЗ.Свернуть("Товар", ); //это лишнее, она и так свёрнута

(16) точно, подул на воду :)
(14) в одном - требования небыло

(17) иначе - некузяво... ;-)