Фильтр = Новый Структура;
Договоры = Справочники.ДоговорыКонтрагентов.Выбрать(,РезультРеселл.КонтрагентЗ,,);
Пока Договоры.Следующий() Цикл
Фильтр.Вставить("ДоговорКонтрагента",Договоры);
КонецЦикла;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший