Ошибка чтения в запросе

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

	лЗапрос = Новый Запрос(лТекст);

	// Присвоение значений переменным параметров.
	ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Услуги"); // Услуги ()
	лЗапрос.УстановитьПараметр("ВидНоменклатуры", ВидНоменклатуры);
	
	Проведен = Истина;
	
	Для Номер = 0 По ПроектОплаты.Количество() - 1
		Цикл
	ДокументОснование = ПроектОплаты[Номер]; // передаем в параметр заказ клиента
	
	// Установка параметров.
	лЗапрос.УстановитьПараметр("ДокументОснование", ДокументОснование);
	
	лВыборка = лЗапрос.Выполнить().Выбрать();

	Пока лВыборка.Следующий() Цикл
		СуммаДопРасходов[Номер] = лВыборка.СуммаДокумента;
	КонецЦикла;
	КонецЦикла;
         
	Возврат СуммаДопРасходов;
КонецФункции