Помощь со внешним отчетом

Здравствуйте, возникла проблема. Я хотел сделать так, если документ выбран то формируется отчет по этому 1 документу, а если нет, то по всем документам. Я добавил параметр ВыбранныйДокумент в скд для пользовательского выбора, но значение этого параметра почему то всегда Неопределенно, хотя я выбираю значение ссылки на документ перед формированием.

Вот код. Задание я решаю для себя поэтому не судите строго.
Буду рад помощи.
[code]
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь;

    Результат = Новый ТаблицаЗначений;
    Результат.Колонки.Добавить("НаименованиеПоля");
    Результат.Колонки.Добавить("КоличествоКлапанов");
    Результат.Колонки.Добавить("КоличествоОткрытых");
    Результат.Колонки.Добавить("МаксОткрытыхПодряд");
    Результат.Колонки.Добавить("МаксЗакрытыхПодряд");

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ОрошаемыеПоля.НаименованиеПоля КАК НаименованиеПоля,
        |    ОрошаемыеПоля.КоличествоКлапанов КАК КоличествоКлапанов,
        |    ОрошаемыеПоляКлапаны.НомерНачального КАК НомерНачального,
        |    ОрошаемыеПоляКлапаны.НомерКонечного КАК НомерКонечного,
        |    ОрошаемыеПоля.Ссылка КАК Ссылка
        |ИЗ
        |    Документ.ОрошаемыеПоля КАК ОрошаемыеПоля
        |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ОрошаемыеПоля.Клапаны КАК ОрошаемыеПоляКлапаны
        |        ПО (ОрошаемыеПоляКлапаны.Ссылка = ОрошаемыеПоля.Ссылка)
        |{ГДЕ
        |    (ОрошаемыеПоля.Ссылка = &ВыбранныйДокумент) КАК Поле2}";



    ТекНастройкиКомпоновщика = КомпоновщикНастроек.Настройки;
    Параметр = ТекНастройкиКомпоновщика.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ВыбранныйДокумент")).Значение;

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

    Выборка = РезультатЗапроса.Выбрать();

    Пока Выборка.Следующий() Цикл
        Буфер = Выборка.Ссылка;
        НаименованиеПоля = Выборка.НаименованиеПоля;

        МассивКлапанов = Новый Массив(Выборка.КоличествоКлапанов);

        Для Итератор = 0 По МассивКлапанов.Количество() - 1 Цикл
            МассивКлапанов[Итератор] = Ложь;
        КонецЦикла;

        Прервать;

    КонецЦикла;

    Выборка.Сбросить();

    Пока Выборка.Следующий() Цикл

        Если Буфер <> Выборка.Ссылка Тогда

            ЗаписьВТЗ(МассивКлапанов, Результат, НаименованиеПоля);

            МассивКлапанов = Новый Массив(Выборка.КоличествоКлапанов);

            Для Итератор = 0 По МассивКлапанов.Количество() - 1 Цикл
                МассивКлапанов[Итератор] = Ложь;
            КонецЦикла;
        КонецЕсли;

        Минимум = Мин(Выборка.НомерНачального, Выборка.НомерКонечного) - 1;
        Максимум = Макс(Выборка.НомерНачального, Выборка.НомерКонечного) - 1;

        Для Итератор = Минимум По Максимум Цикл
            МассивКлапанов[Итератор] = НЕ МассивКлапанов[Итератор];
        КонецЦикла;

        Буфер = Выборка.Ссылка;
        НаименованиеПоля = Выборка.НаименованиеПоля;

    КонецЦикла;

    ЗаписьВТЗ(МассивКлапанов, Результат, НаименованиеПоля);

    СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
    Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;

    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    ДанныеРасшифровки1 = Новый ДанныеРасшифровкиКомпоновкиДанных;

    МакетКомпановки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки1);

    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
    ВнешнийНабор = Новый Структура("Результат", Результат);

    ПроцессорКомпоновки.Инициализировать(МакетКомпановки, ВнешнийНабор, ДанныеРасшифровки1);

    ДокументРезультат.Очистить();

    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
    ПроцессорВывода.Вывести(ПроцессорКомпоновки);
КонецПроцедуры

Процедура ЗаписьВТЗ(МассивКлапанов, Результат, НаименованиеПоля)
    Открытые = 0;
    МаксОткрытых = 0;
    МаксЗакрытых = 0;
    ТекущаяДлина = 0;
    ТекущееСостояние = Ложь;

    Для Итератор = 0 По МассивКлапанов.Количество() - 1 Цикл
        Если МассивКлапанов[Итератор] Тогда
            Открытые = Открытые + 1;

            Если ТекущееСостояние Тогда
                ТекущаяДлина = ТекущаяДлина + 1;
            Иначе
                ТекущаяДлина = 1;
                ТекущееСостояние = Истина;
            КонецЕсли;

            МаксОткрытых = Макс(МаксОткрытых, ТекущаяДлина);
        Иначе
            Если ТекущееСостояние Тогда
                ТекущаяДлина = 1;
                ТекущееСостояние = Ложь;
            Иначе
                ТекущаяДлина = ТекущаяДлина + 1;
            КонецЕсли;

            МаксЗакрытых = Макс(МаксЗакрытых, ТекущаяДлина);
        КонецЕсли;

    КонецЦикла;

    Стр = Результат.Добавить();
    Стр.НаименованиеПоля = НаименованиеПоля;
    Стр.КоличествоКлапанов = МассивКлапанов.Количество();
    Стр.КоличествоОткрытых = Открытые;
    Стр.МаксОткрытыхПодряд = МаксОткрытых;
    Стр.МаксЗакрытыхПодряд = МаксЗакрытых;
КонецПроцедуры
[\code]