Переход и активация строки

[donyab]

Процедура ТаблицаНЦенаКонецОткрытие(Элемент, СтандартнаяОбработка)

                СтандартнаяОбработка = Ложь;
                Пер1 = ТаблицаН.Получить(ТаблицаН.Индекс(ЭлементыФормы.ТаблицаН.ТекущаяСтрока)).ЦенаКонецРег;
                Попытка
                Форма = Пер1.ПолучитьФорму();
                Форма.Открыть();
                ФормаПодчиненная = Форма.Состав;
                СтрокаО = ФормаПодчиненная.Найти(ТаблицаН.Получить(ТаблицаН.Индекс(ЭлементыФормы.ТаблицаН.ТекущаяСтрока)).Номенклатура);
     
         

Исключение
                Сообщить("Нет документов");
                КонецПопытки;

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

В данной процедуре "Пер1" - документ(например приходная накладная)
"ФормаПодчененная" - табличная часть документа
"СтрокаО" искомая строка
Вопрос: Как сделать, что бы когда откроется данный документ(пер1) , была автоматически выбрана нужная строка(СтрокаО),т.е. курсор перешел на нее?

[Klyacksa]

Что-то типа:

Код Выделить Развернуть

ТабПоле=Форма.ЭлементыФормы.Пер1;
ТабПоле.ТекущаяСтрока=ТабПоле[ИндексНужнойСтроки];

[donyab]

Процедура ТаблицаНЦенаКонецОткрытие(Элемент, СтандартнаяОбработка)

                СтандартнаяОбработка = Ложь;

                Пер1 = ТаблицаН.Получить(ТаблицаН.Индекс(ЭлементыФормы.ТаблицаН.ТекущаяСтрока)).ЦенаКонецРег;

                Попытка

                Форма = Пер1.ПолучитьФорму();

                ФормаПодчиненная = Форма.ЭлементыФормы.Состав;

                СтрокаО = Форма.Состав.Найти(ТаблицаН.Получить(ТаблицаН.Индекс(ЭлементыФормы.ТаблицаН.ТекущаяСтрока)).Номенклатура);

               

                ФормаПодчиненная.ТекущаяСтрока = Форма.Состав[СтрокаО.НомерСтроки-1];

                Форма.Открыть();

Исключение

                Сообщить("Нет документов");

                КонецПопытки;

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



Спасибо, понял свою ошибку, все заработало.

[donyab]

Процедура ТаблицаНЦенаКонецОткрытие(Элемент, СтандартнаяОбработка)

                СтандартнаяОбработка = Ложь;

                Пер1 = ТаблицаН.Получить(ТаблицаН.Индекс(ЭлементыФормы.ТаблицаН.ТекущаяСтрока)).ЦенаКонецРег;

                Попытка

                Форма = Пер1.ПолучитьФорму();

                ФормаПодчиненная = Форма.ЭлементыФормы.Состав;

                СтрокаО = Форма.Состав.Найти(ТаблицаН.Получить(ТаблицаН.Индекс(ЭлементыФормы.ТаблицаН.ТекущаяСтрока)).Номенклатура);

               

                ФормаПодчиненная.ТекущаяСтрока = Форма.Состав[СтрокаО.НомерСтроки-1];

                Форма.Открыть();



                //ТабличноеПоле = Форма.ЭлементыФормы.Пер1;

                //ТабличноеПоле.ТекущаяСтрока = ТабличноеПоле[];

Исключение

                Сообщить("Нет документов");

                КонецПопытки;

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

Спасибо. Все заработало.

[donyab]

что то не получается целиком отправить сообщение.
Вобщем большое спасибо Klyacksa.
Все заработало.

           

Код Выделить Развернуть

   Форма = Пер1.ПолучитьФорму();

                ФормаПодчиненная = Форма.ЭлементыФормы.Состав;

                СтрокаО = Форма.Состав.Найти(ТаблицаН.Получить(ТаблицаН.Индекс(ЭлементыФормы.ТаблицаН.ТекущаяСтрока)).Номенклатура);

               

                ФормаПодчиненная.ТекущаяСтрока = Форма.Состав[СтрокаО.НомерСтроки-1];

                Форма.Открыть();