Отбор по забалансовому счету

Процедура СчетУчетаОкончаниеВводаТекста(Элемент, Текст, Значение, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    СтруктураОтбора = Новый Структура;
    ФильтрЗабалансовый = Новый Структура;
    ФильтрЗабалансовый.Вставить("Забалансовый", Истина);
    СтруктураОтбора.Вставить("Отбор", ФильтрЗабалансовый);
    СписокСчетов = ПланыСчетов.Хозрасчетный.ПолучитьДанныеВыбора(СтруктураОтбора);
    
    СписокНайденных = Новый СписокЗначений;
    ДлинаТекста = СтрДлина(СокрЛП(Текст));
    Для каждого ЭлементСписка Из СписокСчетов Цикл
        Если ВРег(Сред(ЭлементСписка.Значение, 1, ДлинаТекста)) = ВРег(СокрЛП(Текст)) Тогда
            СписокНайденных.Добавить(ЭлементСписка.Значение,ЭлементСписка.Представление);
        КонецЕсли;
    КонецЦикла;
    
    Если СписокНайденных.Количество() > 0 Тогда     
        Значение = СписокНайденных;
    Иначе
        ЭлементСписка.Значение = "";
    КонецЕсли;
   
КонецПроцедуры