Ребят доброго времени суток всем, подскажите кто знает.
Есть табличный документ, по которому требуется найти ячейку по строке, но поиск нужен не типовой, искать нужно по значению расшифровки. Как найти все гуд. Нахожу, все нужные ячейки пишу их в список значений, дальше нужен переход к определенной ячейки с выделением этой ячейки. Перейти на нужную часть экрана перехожу. Но вот выделить нужную область никак не получается.
для наглядности выложу код и сам табдок
&НаСервере
Процедура НайтиНаСервере()
ШиринаТаб = ТаблицаПланов.ШиринаТаблицы-5;
ВысотаТаб = ТаблицаПланов.ВысотаТаблицы-3;
НачШир = 6;
НачВысоты = 4;
Найдено =0;
Сч = 0;
Пока НачШир < ШиринаТаб Цикл
НачВысоты = 4;
Пока НачВысоты < ВысотаТаб Цикл
Если ТаблицаПланов.Область("R" + Формат(НачВысоты,"ЧГ=") + "C" + Формат(НачШир,"ЧГ=")).Расшифровка.Заказы.НайтиПоЗначению(Заказ) <> Неопределено тогда
СписокПланов.Добавить(Сч+1,"R" + Формат(НачВысоты,"ЧГ=") + "C" + Формат(НачШир,"ЧГ=")); ////Пишу найденные ячейки в список значений
Найдено = Найдено+1;
Сч =Сч+1;
КонецЕсли;
НачВысоты = НачВысоты+1;
КонецЦикла;
НачШир = НачШир +22;
КонецЦикла;
Элементы.Декорация1.Заголовок = "0/"+ Строка(Найдено);
КонецПроцедуры
///////ПРОЦЕДУРА ПЕРЕХОДА В НУЖНОЕ МЕСТО
&НаСервере
Процедура СледующийНаСервере()
ТекСтр = СтрРазделить(Элементы.Декорация1.Заголовок,"/",Ложь)[0];
СледСтр = Число(ТекСтр) +1;
мЗаказ = СписокПланов.НайтиПоЗначению(СледСтр);
Если мЗаказ <> Неопределено тогда
Элементы.ТаблицаПланов.ТекущаяОбласть = ТаблицаПланов.Область(мЗаказ);
МассивОбластей = Новый Массив();
МассивОбластей.Добавить(ТаблицаПланов.Область(мЗаказ));
Элементы.ТаблицаПланов.УстановитьВыделенныеОбласти(МассивОбластей); ///////ПЕРЕХОДИТ К НУЖНОЙ ОБЛАСТИ НО НЕ ВЫДЕЛЯЕТ
Элементы.Декорация1.Заголовок = Строка(СледСтр) +"/"+СтрРазделить(Элементы.Декорация1.Заголовок,"/",Ложь)[1];
КонецЕсли;
КонецПроцедуры
Показать
