ФормаВыборкаДокумента

&НаКлиенте
Процедура ЧерезЗапрос(Команда)
    ЧерезЗапросНаСервере();
КонецПроцедуры

&НаСервере
Процедура ЧерезЗапросНаСервере()
    Если ВыборДокумента.Метаданные().Имя = "ПриходнаяНакладная" Тогда
        НомерЗапроса = 0;
    ИначеЕсли ВыборДокумента.Метаданные().Имя = "РасходнаяНакладная" Тогда
        НомерЗапроса = 1;
    КонецЕсли;

    Запрос = Новый Запрос();

    Запрос.Текст =
    "ВЫБРАТЬ
    |   ПриходнаяНакладная.Ссылка КАК Ссылка,
    |   ПриходнаяНакладная.Номер КАК Номер,
    |   ПриходнаяНакладная.Дата КАК Дата,
    |   ПриходнаяНакладная.Склад КАК Склад,
    |   ПриходнаяНакладная.Менеджер КАК Менеджер,
    |   ПриходнаяНакладная.Номенклатура.(
    |       Ссылка,
    |       НомерСтроки,
    |       Номенклатура,
    |       Количество,
    |       ЕдИзм,
    |       Цена,
    |       Сумма
    |   ) КАК Номенклатура
    |ИЗ
    |   Документ.ПриходнаяНакладная КАК ПриходнаяНакладная
    |ГДЕ
    |   ПриходнаяНакладная.Ссылка = &Ссылка
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |   РасходнаяНакладная.Ссылка КАК Ссылка,
    |   РасходнаяНакладная.Номер КАК Номер,
    |   РасходнаяНакладная.Дата КАК Дата,
    |   РасходнаяНакладная.Склад КАК Склад,
    |   РасходнаяНакладная.Менеджер КАК Менеджер,
    |   РасходнаяНакладная.Номенклатура.(
    |       Ссылка,
    |       НомерСтроки,
    |       Номенклатура,
    |       Количество,
    |       ЕдИзм,
    |       Цена,
    |       Сумма
    |   ) КАК Номенклатура
    |ИЗ
    |   Документ.РасходнаяНакладная КАК РасходнаяНакладная
    |ГДЕ
    |   РасходнаяНакладная.Ссылка = &Ссылка";

    Запрос.УстановитьПараметр("Ссылка", ВыборДокумента.Ссылка);

    МассивЗапросов = Запрос.ВыполнитьПакет();
    Результат = МассивЗапросов[НомерЗапроса].Выбрать();
        Пока Результат.Следующий() Цикл
        Сообщить("" + Результат.Ссылка + "; " + Результат.Склад + "; Менеджер:" + Результат.Менеджер);
        ВыборкаНоменклатура = Результат.Номенклатура.Выбрать();
        Пока ВыборкаНоменклатура.Следующий() Цикл
            Сообщить("  " + ВыборкаНоменклатура.Номенклатура + "; Кол-во:" + ВыборкаНоменклатура.Количество + "; Цена:" + ВыборкаНоменклатура.Цена);
        КонецЦикла;
    КонецЦикла;
КонецПроцедуры


&НаКлиенте
Процедура ЧерезОбъект(Команда)
    ЧерезОбъектНаСервере();
КонецПроцедуры


&НаСервере
Процедура ЧерезОбъектНаСервере()
    Документ = ВыборДокумента.Ссылка;

    Сообщить("" + Документ.Ссылка + "; " + Документ.Склад + "; Менеджер:" + документ.Менеджер);
    Для Каждого Товар Из Документ.Номенклатура Цикл
        Сообщить("  " + Товар.Номенклатура + "; Кол-во:" + Товар.Количество + "; Цена:" + Товар.Цена + "; Сумма;" + Товар.Сумма);
    КонецЦикла;
КонецПроцедуры