Подскажите пожалуйста как подчищать данные ?

http://i.imgur.com/mwcYprf.jpg
http://i.imgur.com/BKgWZFR.jpg
как избавиться от той самой хрени ?

Код :
Перем КомпУчасток, КомпДом;

Процедура ПолеВвода1ПриИзменении(Элемент)
    Если ПолеВвода1="" Тогда
        Список=Новый Массив;
        ЗначениеЗаполнено(0);

       Запрос = Новый Запрос;
        Запрос.Текст =
        "                        ВЫБРАТЬ
        |    СтруткутраПредприятия.Ссылка
        |ИЗ
        |    Справочник.СтруткутраПредприятия КАК СтруткутраПредприятия";

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

        КомпУчасток.Значение=Список;
        КомпУчасток.Использование = Истина;


    Иначе
        КомпУчасток.Значение = ПолеВвода1;
        КомпУчасток.Использование = Истина;
    КонецЕсли;

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

Процедура ПолеВвода27ПриИзменении(Элемент)


    Если ПолеВвода27="" Тогда
            Список=Новый Массив;
        ЗначениеЗаполнено(0);

       Запрос2 = Новый Запрос;
        Запрос2.Текст =
        "                        ВЫБРАТЬ
        |Обращения.Адрес
        |ИЗ
        |    РегистрНакопления.Обращения КАК Обращения  ";

        Результат = Запрос2.Выполнить();
        Выборка = Результат.Выбрать();
        Пока Выборка.Следующий() Цикл
            Список.Добавить(Выборка.Ссылка);
        КонецЦикла;

        КомпУчасток.Значение=Список;
        КомпУчасток.Использование = Истина;


    Иначе

    КомпДом.Значение = ПолеВвода27;
    КомпДом.Использование = Истина;

    КонецЕсли;

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

Процедура ПриОткрытии()
    // Вставить содержимое обработчика.
    КомпДом = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Дом"));
    КомпУчасток = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Участок"));
    //Участки=Справочники.СтруткутраПредприятия.Выбрать();


    Список=Новый Массив;
    Список.Очистить();
    //Список.Участок= ПредопределенноеЗначение ("СправочникСсылка.СтруткутраПредприятия");
//    ЗначениеЗаполнено("Участок");
    Запрос = Новый Запрос;

    Запрос.Текст =
    "                        ВЫБРАТЬ
    |    СтруткутраПредприятия.Ссылка
    |ИЗ
    |    Справочник.СтруткутраПредприятия КАК СтруткутраПредприятия";

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

    КомпУчасток.Значение=Список;
    КомпУчасток.Использование = Истина;

            /////////////////////////////////////////////
    Список2=Новый Массив;

    Запрос2 = Новый Запрос;
    Запрос2.Текст =    "ВЫБРАТЬ
    |    Дома.Ссылка
    |ИЗ
    |    Справочник.Дома КАК Дома";



    Результат2 = Запрос2.Выполнить();
    Выборка2 = Результат2.Выбрать();
    Пока Выборка2.Следующий() Цикл
        Список2.Добавить(Выборка2.Ссылка);
    КонецЦикла;

    КомпДом.Значение=Список2;
    КомпДом.Использование = Истина;

//
//


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

Процедура ПолеВвода1Очистка(Элемент, СтандартнаяОбработка)
        Отчет.Подчистить();
КонецПроцедуры

Процедура ПолеВвода27Очистка(Элемент, СтандартнаяОбработка)
КонецПроцедуры