Проблемы с "НайтиСтроки"

&НаСервере
Процедура ВывестиПроверки(СтрОборудование,ТаблицаПроверки,Родитель,ГруппаЛеваяПравая,ГруппаЛевая,ГруппаПравая,Знач Уровень,ИмяВладельца)

    МассивРеквизитовДляДобавления = Новый Массив;

    СчетчикПроверок = 0;
    Для Каждого СтрПроверка из ТаблицаПроверки цикл
        СчетчикПроверок = СчетчикПроверок + 1;
        Проверка                     = СтрПроверка.Проверка;
        ЗаголовокПроверки            = Проверка.Наименование;
        ИмяРеквизита                = СтрЗаменить("id"+Новый УникальныйИдентификатор,"-","_");

        ОписаниеТипа = Новый ОписаниеТипов("СправочникСсылка.ЗначенияПроверок");




        МассивРеквизитовДляДобавления.Добавить(Новый РеквизитФормы(ИмяРеквизита,ОписаниеТипа,,ЗаголовокПроверки));

        НовСтр                                = СоответствиеРеквизитовПроверки.Добавить();

        НовСтр.ВидПоляФормы                    = "ПолеВвода";

        НовСтр.ИмяРеквизита                    = ИмяРеквизита;
        НовСтр.Заголовок                    = ""+СчетчикПроверок+" - "+ЗаголовокПроверки;
        НовСтр.Проверка                        = Проверка;
        НовСтр.ИмяРеквизитаОборудование        = СтрОборудование.ИмяРеквизита;
        НовСтр.ПроверятьОбязательно            = Проверка.ПроверятьОбязательно;
        НовСтр.ЕстьЗависимыеПроверки        = Проверка.ЕстьЗависимыеПроверки;
        НовСтр.Уровень                        = Уровень;
        НовСтр.ИмяВладельца                    = ИмяВладельца;

        Если НовСтр.ЕстьЗависимыеПроверки тогда
            НовСтр.ЗависимыеПроверки.Загрузить(ПолучитьСписокЗависимыхПроверок(Проверка));
        КонецЕсли;


        Если ПроверкиЗагруженыИзОбъекта тогда
            НовСтр.РезультатПроверки        = СтрПроверка.РезультатПроверки;
            НовСтр.Файл                     = СтрПроверка.Файл;
        КонецЕсли;


    КонецЦикла;



    ИзменитьРеквизиты(МассивРеквизитовДляДобавления);


    Если ИмяВладельца = Неопределено тогда
        НайдСтроки = СоответствиеРеквизитовПроверки.НайтиСтроки(Новый Структура("ИмяРеквизитаОборудование",СтрОборудование.ИмяРеквизита));
    Иначе
        НайдСтроки = СоответствиеРеквизитовПроверки.НайтиСтроки(Новый Структура("ИмяРеквизитаОборудование,ИмяВладельца",СтрОборудование.ИмяРеквизита,ИмяВладельца));

    КонецЕсли;



    Для каждого СтрРеквизит из НайдСтроки цикл
        СтрРеквизит.ЭтоПодчиненныйЭлемент = СтрРеквизит.Уровень>1;

        ГруппаДляРеквизитов = ДобавитьНовуюГруппу("ГруппаДляРеквизитов"+СтрЗаменить("id"+Новый УникальныйИдентификатор,"-","_"),ГруппаЛевая,,,,,,СтрРеквизит.Уровень=1);

        СтрРеквизит.ИмяГруппыДляРеквизитов = ГруппаДляРеквизитов.Имя;

        ПробелыВЗаголовке ="";

        Сч = 0;

        Пока Истина цикл

             Сч=Сч+1;

             Если Сч = СтрРеквизит.Уровень тогда Прервать КонецЕсли;

             ПробелыВЗаголовке = ПробелыВЗаголовке + Символы.Таб;

        КонецЦикла;

        Если ПробелыВЗаголовке<>"" тогда
            ПробелыВЗаголовке=ПробелыВЗаголовке+"?";
        КонецЕсли;

        НовЭлементЗаголовок = ДобавитьНовуюНадпись("ЗаголовокДляЗначенияПроверки"+СтрЗаменить("id"+Новый УникальныйИдентификатор,"-","_"),ГруппаДляРеквизитов,ПробелыВЗаголовке+СтрРеквизит.Заголовок,?(СтрРеквизит.Уровень=1,Новый Шрифт(,,Истина),Неопределено),,40);

        НовЭлемент = ДобавитьНовоеПолеВводаФормы(СтрРеквизит.ИмяРеквизита,ГруппаДляРеквизитов,"",СтрРеквизит.ИмяРеквизита,Ложь,,15,,"Нет");

        НовЭлемент.ИсторияВыбораПриВводе = ИсторияВыбораПриВводе.НеИспользовать;

        НовЭлемент.КнопкаВыпадающегоСписка = Истина;
        НовЭлемент.РедактированиеТекста    = Ложь;
        НовЭлемент.ОтображениеКнопкиВыбора = ОтображениеКнопкиВыбора.ОтображатьВВыпадающемСписке;
        ЗаполнитьСписокДоступныхЗначенийПроверки(НовЭлемент.СписокВыбора,СтрРеквизит.Проверка,СтрРеквизит.ЗначенияВыбора);


        ЭтаФорма[СтрРеквизит.ИмяРеквизита] = СтрРеквизит.ЗначениеПроверки;

        НовЭлемент.УстановитьДействие("ПриИзменении","ПриИзмененииРезультатаПроверки");

        ДобавитьЭлементЗвездочка(СтрРеквизит.ИмяРеквизита,ГруппаДляРеквизитов,СтрРеквизит.ПроверятьОбязательно);

    //    НовЭлемент = ДобавитьНовоеПолеВводаФормы("Решение"+СтрРеквизит.ИмяРеквизита,ГруппаДляРеквизитов,"","Решение"+СтрРеквизит.ИмяРеквизита,Ложь,,15);


        НоваяГруппа = ДобавитьНовуюГруппу("ГруппаДекорации"+СтрРеквизит.ИмяРеквизита,ГруппаПравая);


        НовЭлемент = ДобавитьНовуюКартинку("Декорация"+СтрРеквизит.ИмяРеквизита,НоваяГруппа,?(СтрРеквизит.ЗначениеКорректно,БиблиотекаКартинок.СобытиеВыполнено,БиблиотекаКартинок.Предупреждение),,,,Истина);
        НовЭлемент.УстановитьДействие("Нажатие","НажатиеНаИндикацию");

        НовЭлемент = ДобавитьНовуюНадпись("Файл"+СтрРеквизит.ИмяРеквизита,НоваяГруппа,"Приложить файл",,,,Истина);
        НовЭлемент.УстановитьДействие("Нажатие","ПриложитьФайл");



        НовЭлемент = ДобавитьНовуюКартинку("Справка"+СтрРеквизит.ИмяРеквизита,НоваяГруппа,БиблиотекаКартинок.Справка,,,,Истина);
        НовЭлемент.УстановитьДействие("Нажатие","НажатиеНаСправку");


        Если СтрРеквизит.ЕстьЗависимыеПроверки тогда

            Уровень = Уровень  + 1;
            ВывестиПроверки(СтрОборудование,СтрРеквизит.ЗависимыеПроверки,Родитель,ГруппаЛеваяПравая,ГруппаЛевая,ГруппаПравая,Уровень,СтрРеквизит.ИмяРеквизита);
        КонецЕсли;



    КонецЦикла;
КонецПроцедуры