Всем привет. Возникла  такая проблема. Есть док. с заполненой таб частью. необходимо чтобы после ввода данных в графу кол-во активизаровалась следующая строка таб части. попытался сделать так
   
НомСтр=НомерСтроки;
НомСТР=НомСТР+1;
Если НомСтр > КоличествоСтрок() Тогда
   Возврат;
Иначе
   ПолучитьСтрокуПоНомеру(НомСтр);
КонецЕсли;

Не работает. Вообще возможно ли реализовать то что мне нужно?

АктивизироватьСтроку

Пробывал тоже почимуто не работает

а у меня почимуто работает

В процедуре при открытии работает, АктивизироватьСтроку(2);
А когда док уже открыт и ввел данные, переход на другую строку не происходит, хотя процедура вызывается.

Процедура ПриОкончанииРедактированияСтроки(Флаг)
   АктивизироватьСтроку(НомерСтроки+1);
КонецПроцедуры//*****************************************************************************

Если ввод данных интерактивный, а не программный, то просто поставить в свойствах табличной части галку "Автоматический ввод новой строки".

ему надо не ввод новой строки а переход уже на существующую как я понял

(7) Тогда должен работать метод АкивизироватьСтроку()

(0) Можно с ложным закрытием поиграться ....

(5) Спасибо так работает. А при переход на др. строку, можно сделать чтобы значение открывалось для редактирования?

(10) Нажать enter?

А без нажатия? автоматически при переходе на др. строку

Ввестичисло() ?

Так тоже не подходит.
Может можно както програмно нажать кнопку enter?

Процедура ПриОкончанииРедактированияСтроки(ФЛаг)
   АктивизироватьСтроку(НомерСтроки+1);
   Активизировать("ИмяРеквизита",1);
КонецПроцедуры

(14) Активизировать - смотри второй реквизит 1

(15) Опять+1?

Огромное спасибо!

(18) И что, как в (15) работает ?...

Нет, не коректно работает. глюки просходят

(20) :)~

(20) и что за глюки?

А так не пройдет?

WshShell=СоздатьОбъект("WScript.Shell");
WshShell.SendKeys("{ENTER}");

(21) сам предложи че нить...

Мне тоже стало весело когда увидел глюки. А может всеже кто знае как из 1с програмно нажать кнопку enter?

(25) Смотри (23)

(22) во всех стоках отображается только та строка на которую ты перешел

можно конечно без редактироания
типа
Активизировать("ИмяРеквизита",0);
Потом  в зависимости от типа резквизита выбирать значения
(ВвестиЧсило, ВвестиСтроку,ОткрытьФорму и т.д.)

Учись, студент ..!
Перем фл;
 Процедура ПриОкончанииРедактированияСтроки(флаг)
     Если флаг =0 Тогда  
         фл=1;
         Форма.Закрыть(0);
     КонецЕсли;
 КонецПроцедуры
 Процедура ПриЗакрытии()
     Если фл=1  Тогда
         АктивизироватьСтроку(НомерСтроки+1);  
         Активизировать("Реквизит",1);
         фл=0;
         СтатусВозврата(0);
     КонецЕсли;
 КонецПроцедуры

(27) а форма.обновить(1) попробуй вставить

(29) че за х...

(23) спосибо так все ок.

Процедура ПриОкончанииРедактированияСтроки(ФЛаг)
   АктивизироватьСтроку(НомерСтроки+1);
   Активизировать("ИмяРеквизита",1);
   форма.обновить(1)
КонецПроцедуры

Проверь - скажи результат - стало интересно

+29 Только еще вот так лучше, а то из последнего реквизита не выплывешь:
 Если НомерСтроки+1<=КоличествоСтрок() Тогда
   Активизировать("Реквизит",1);
 КонецЕсли;

(33) Молодец ...сам то хоть проверял своё творение ? ...

(33) полная ерунда получается. а работает так
Процедура ПриОкончанииРедактированияСтроки(Флаг)
   НомСтр=НомерСтроки+1;
   Если НомСтр > КоличествоСтрок() Тогда
       Возврат;
   Иначе
       АктивизироватьСтроку(НомСтр);
       WshShell=СоздатьОбъект("WScript.Shell");
       WshShell.SendKeys("{ENTER}");
   КонецЕсли;
КонецПроцедуры

Только WshShell=СоздатьОбъект("WScript.Shell"); - вынесу в проц. при открытии

А что это за объект такой WScript.Shell?

(36) Да ну ???!!! Не верю!!! 100% не рабочий код.

Попробуй 100% работает и не глючит

(39) На что забьёмся, что код в (36) не работает ? ...

Через Форма.Закрыть() и СтатусВозврата() при закрытии - все работает. Без этого - режим редактирования строки не заканчивается, и новая строка не активизируется.
Со скриптами - почему-то неустойчиво; в модальном режиме по-моему проблемы; за давностью проблемы - не помню точно ))

А чего забивать та, если у меня работает, проверял.
Если не вериш давай забъем на чё хочеш.

(41) для этого вобще то галочка в свойствах таблицы ставиться - переходить на новую строку

(40),(42) - тока что проверил - работает, но с косяками.
Многократно вызывается процедура "ПриОкончанииРедактированияСтроки"

А такой вариант лучше работает:

Процедура ПриОкончанииРедактированияСтроки(Флаг)
   Если НомерСтроки<КоличествоСтрок() Тогда
       WshShell=СоздатьОбъект("WScript.Shell");
       WshShell.SendKeys("{DOWN}{ENTER}");
   КонецЕсли;
КонецПроцедуры

(43) Вообще-то галка только на ввод новой строки

(42) 500$ для начала.
Условия - выкладываешь базу с 1 документом, где только 1 реквизит и код в (36)

(45) Сорри да - просмотрел
так форма.обновить(1) тоже нефига неработает?

(44) Действительно так работает быстрее, только  WshShell=СоздатьОбъект("WScript.Shell"); вынести в проц приОткрытии, чтобы каждый раз не создавать.

(44) И чего ? На новую строку переходит? ... нЕ верю.

+49 я именно про (36) говорил

(49) Сабж читай - табличная часть есть - надо просто перейти на следующую строку

(47) да вот - представляешь - нефига ))

(51) Биомать , ну не работает АктивизироватьСтроку просто так...!
И код в (36) не рабочий...

(52) Спасибо

(53) Код из (44) должен железно работать

(55) Про (44) речи не было ... :)

(56) При условиях как в (46) точно циклит

(51) код в (36) 100 пудово рабочий, если денег не жалко тогда я выложу тебе базу
с данной процедурой.

(58) На типовой торговле идет, но "ПриОкончанииРедактированияСтроки" вызывается несколько раз. Поэтому начальная строка мерцает - несколько раз обновляется форма

Самый оптимальный код, по-моему

Процедура ПриОкончанииРедактированияСтроки(Флаг)
   Если Флаг=1 Тогда Возврат;КонецЕсли;
   Если НомерСтроки<КоличествоСтрок() Тогда
       WshShell=СоздатьОбъект("WScript.Shell");
       WshShell.SendKeys("{DOWN}{ENTER}");
   КонецЕсли;
КонецПроцедуры

(58)не спрорю,  только лучше WshShell=СоздатьОбъект("WScript.Shell"); вынести в проц приОткрытии, чтобы каждый раз не создавать.

(58) Выкладывай.

Для Ёпрст2 Куда тебе прислать базу? Она весит меньше метра.

Для Ёпрст2, можеш скачать  http://dvusrachek.ifolder.ru/2002324

(63) у меня циклит и вылетает

А у меня работает без проблем. Какая у тебя платформа. У меня 27.

(65) 25
может в этом дело, попробую на 27

(66)ну как на 27 работает?

(63) Ни и ? Циклит и вылетает ...что на 25, что на 27.

(63) )))) жесть

(68) Летает код (59)

Ребята совсем отупели... Про Метод ТекущаяСтрока() совсем забыли :(

(70) ну-ну...

(71) Гыы... это в Документе то??? Ну-ну ...