4 субконто в БП 3.

Здравствуйте
Все вроде сделал по документам (Работает)
СКД отчета работает правильно
Отчеты Отчет по проводкам и Сводный отчет по проводками работают
Отчет Карточка счета
РУГАЕТСЯ
{Отчет.КарточкаСчета.Форма.ФормаОтчета.Форма(186)}: Индекс находится за границами массива
            Поле = Схема.НаборыДанных[0].Поля.Найти(ИмяПоляПрефикс + Индекс);

Пересмотрел все что знаю, Где ошибка?
&НаСервере
Процедура ИзменениеСхемыКомпоновкиДанныхНаСервере() Экспорт

    Схема = ПолучитьИзВременногоХранилища(СхемаКомпоновкиДанных);
    Счет = Отчет.Счет;
    Если ЗначениеЗаполнено(Счет) Тогда

        КоличествоСубконто = МА_БухгалтерскийУчетВызовСервераПовтИсп.ПолучитьСвойстваСчета(Отчет.Счет).КоличествоСубконто;
        ИмяПоляПрефикс = "Субконто";

        // Изменение представления и наложения ограничения типа значения
// ???? До сюда все хорошо определяет правильно все субконто,
        Для Индекс = 1 По КоличествоСубконто Цикл
            Поле = Схема.НаборыДанных[0].Поля.Найти(ИмяПоляПрефикс + Индекс);
            Если Поле <> Неопределено Тогда
                Поле.Заголовок   = Счет.ВидыСубконто[Индекс - 1].ВидСубконто.Наименование;
                Поле.ТипЗначения = Счет.ВидыСубконто[Индекс - 1].ВидСубконто.ТипЗначения;
            КонецЕсли;
        КонецЦикла;

        СхемаКомпоновкиДанных = ПоместитьВоВременноеХранилище(Схема, СхемаКомпоновкиДанных);
        Отчет.КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
    КонецЕсли;

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