Здарова други.
Треба помощь.
На форме есть ТЗ, с колонкой типа справочник.контрагент, при двойном нажатии на колонку открывается справочник контрагенты.
Необходимо, чтобы при выборе контрагента (элемент) форма справочника закрывалась и в текущую строку ТЗ в тыкнутую колонку устанавливалось выбранное значение.

Если ТЗ.ТекущаяКолонка()="Контрагент" Тогда
ОткрытьПодбор,

затем

ОбработкаПодбора

Процедура ОбработкаТаблицыЗначенийНаФорме()

   ТекСтрока = ТЗ.ТекущаяСтрока();
   ТекКолонка = ТЗ.ТекущаяКолонка();
   
   Если (ТекСтрока=0) Тогда
       Возврат;
   КонецЕсли;
   ТЗ.ПолучитьСтрокуПоНомеру(ТС);
   
   Если (ТекКолонка = "Контрагент") Тогда

       СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");
       СпрКонтрагенты.НайтиЭлемент(ТЗ.Контрагент);

       Если СпрКонтрагенты.Выбрать("Выберите контрика", "")<>1 Тогда
           Возврат;
       КонецЕсли;
       
       ТЗ.Контрагент = СпрКонтрагенты.ТекущийЭлемент();
       
   КонецЕсли;

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

* ТЗ.ПолучитьСтрокуПоНомеру(ТекСтрока);

или еще проще

Спр = СоздОб("Спр.Контры")
Если Спр.Выбрать(...) = 1 тогда
   ТЗ.Контра = Спр.ТекущийЭл;
КонЕс


Процедура ОбработатьНажатие()
   
   Если ТЗ.ТекущаяКолонка() = "Контрагент" Тогда
       ОткрытьПодбор("Справочник.Контрагенты","ДляВыбора",КонтФ,,);
   ИначеЕсли ТЗ.ТекущаяКолонка() = "Агент" Тогда
       
   ИначеЕсли ТЗ.ТекущаяКолонка() = "Статус" Тогда
       
   КонецЕсли;
   
КонецПроцедуры


Процедура ОбработкаПодбора(Эл,Конт)
   
   ТЗ.Контрагент = Эл.ТекущийЭлемент();
   
КонецПроцедуры


В ОбработкаПодбора() заходит, а значение неприсваивает.

Эл.ТекущийЭлемент() в отладчике равен контрагенту, а ТЗ.Контрагент и после строки присваивания пустое.

(6) Значит, соотношение радиусов стремится к нулю...

(6) проверь типизацию колонок ТЗ

(6) тип колонки смотри )

(5) на строке спозиционироваться надо

(10)+ Либо ТЗ.УстановитьЗначение().

ТЗ.НоваяКолонка("Контрагент","Справочник.Контрагенты");
   ТЗ.НоваяКолонка("Агент","Справочник.КПКАгенты");
   ТЗ.НоваяКолонка("Статус");

При открытии

(10)Ок, попробую

Перем ТекСтрокаТЗ;

Процедура ОбработатьНажатие()

   ТекСтрокаТЗ = ТЗ.ТекущаяСтрока();
   
   Если ТЗ.ТекущаяКолонка() = "Контрагент" Тогда
       ОткрытьПодбор("Справочник.Контрагенты","ДляВыбора",КонтФ,,);
   ИначеЕсли ТЗ.ТекущаяКолонка() = "Агент" Тогда
       
   ИначеЕсли ТЗ.ТекущаяКолонка() = "Статус" Тогда
       
   КонецЕсли;
   
КонецПроцедуры


Процедура ОбработкаПодбора(Эл,Конт)
   
   ТЗ.ПолучитьСтрокуПоНомеру(ТекСтрокаТЗ);
   ТЗ.Контрагент = Эл.ТекущийЭлемент();
   
КонецПроцедуры

Благодарю, заработало.
Тока там еще строку новую добавлять надо.

Я ж говорю, соотношение радиусов...

(17)Евгений Ваганович, покиньте зал :)

(18) клоун тут один - топикстартер...

(19) Клоун клоуном, а сколько умники ему кода уже на халяву написали з а несколько лет?

(20) Пост (5) был написан, до создания темы... это так к сведению...

(16) то, как ты сформулировал добавлять ничего не надо

(16) по тех заданию надо было менять текущую
(22)+1

А вот "умникам" можно только благодарность выразить, поскольку они относятся без нездорового снобизма к просьбам о помощи.

(22)(23)Хм, возможно, я где то неправ, но при такой конструкции:

Процедура ПриОткрытии()
   
   ТЗ.НоваяКолонка("Контрагент","Справочник.Контрагенты");
   ТЗ.НоваяКолонка("Агент","Справочник.КПКАгенты");
   ТЗ.НоваяКолонка("Статус");
   
КонецПроцедуры


Процедура ОбработкаПодбора(Эл,Конт)
   
   ТЗ.ПолучитьСтрокуПоНомеру(ТекСтрокаТЗ);
   ТЗ.Контрагент = Эл.ТекущийЭлемент();
   
КонецПроцедуры


Процедура ОбработатьНажатие()
   
   ТекСтрокаТЗ = ТЗ.ТекущаяСтрока();
   
   Если ТЗ.ТекущаяКолонка() = "Контрагент" Тогда
       ОткрытьПодбор("Справочник.Контрагенты","ДляВыбора",КонтФ,,);
   ИначеЕсли ТЗ.ТекущаяКолонка() = "Агент" Тогда
       
   ИначеЕсли ТЗ.ТекущаяКолонка() = "Статус" Тогда
       
   КонецЕсли;
   
КонецПроцедуры

Вот на этой строке:
ТЗ.ПолучитьСтрокуПоНомеру(ТекСтрокаТЗ);
ошибка "Номер за пределами значения", Отладчик дает ТекСтрокаТЗ = 0.
Пришлось при открытии НоваяСтрока() и кнопку прикрутить НоваяСтрока().

лучше бы сделал как у меня

(25) с самой верхней строчки посмотри код что я тебе написал в (15)

переменную кто объявлять будет "ТекСтрокаТЗ" ?

Перем КонтФ, ТекСтрокаТЗ;

Она у меня объявлена.

Перем КонтФ, ТекСтрокаТЗ;

//*******************************************
Процедура Сформировать()
   
   ТЗ.НоваяСтрока()
   
КонецПроцедуры
                           


Процедура ПриОткрытии()
   
   ТЗ.НоваяКолонка("Контрагент","Справочник.Контрагенты");
   ТЗ.НоваяКолонка("Агент","Справочник.КПКАгенты");
   ТЗ.НоваяКолонка("Статус");
   
   ТЗ.НоваяСтрока();
   
КонецПроцедуры


Процедура ОбработкаПодбора(Эл,Конт)
   
   ТЗ.ПолучитьСтрокуПоНомеру(ТекСтрокаТЗ);
   ТЗ.Контрагент = Эл.ТекущийЭлемент();
   
КонецПроцедуры


Процедура ОбработатьНажатие()
   
   ТекСтрокаТЗ = ТЗ.ТекущаяСтрока();
   
   Если ТЗ.ТекущаяКолонка() = "Контрагент" Тогда
       ОткрытьПодбор("Справочник.Контрагенты","ДляВыбора",КонтФ,,);
   ИначеЕсли ТЗ.ТекущаяКолонка() = "Агент" Тогда
       
   ИначеЕсли ТЗ.ТекущаяКолонка() = "Статус" Тогда
       
   КонецЕсли;
   
КонецПроцедуры

(29) смотри где она обнуляется

Если я из этой конструкции убираю НоваяСтрока()
Получается ошибка.

ТЗ.ПолучитьСтрокуПоНомеру(ТекСтрокаТЗ);
{D:\УСТАНОВИТЬ СТАТУСЫ КОНТРАГЕНТОВ.ERT(25)}: Номер за пределами значения!

читаем (0)

>На форме есть ТЗ, с колонкой типа справочник.контрагент, при двойном нажатии на колонку открывается справочник контрагенты.
Необходимо, чтобы при выборе контрагента (элемент) форма справочника закрывалась и в текущую строку ТЗ в тыкнутую колонку устанавливалось выбранное значение.

все тут поняли, что есть ТЗ заполненная строками, и ты хочешь щелкая по строке менять ее значение. Реализацию данного техзадания тебе тут написали )

Это при двойном нажатии на контрагента.

(33) Получается, у тебя пустая ТЗ? ппц...

ясное дело, если строк нет в ТЗ, то и обрабатывать нечего, я бы нарисовал кнопку на форме "+" и "-" - для добавления и удаления строк в ТЗ, и после того как ТЗ будет заполнена строками уже выполнять тот код, что в (15)

(34):) Понятно.
(31) Вот прям тут: ТекСтрокаТЗ = ТЗ.ТекущаяСтрока()
Отладчик говорит, что ТЗ.ТекущаяСтрока() = 0.

(36)Канешна пустая.
Он же памятник (с) )
Ага, так и сделал, спасибо за помощь.
Вопрос закрыт.

(38) оно и ясно. Я в (2) специально проверку сделал для этого случая.

(40)Да, тоже вариант, сразу не посмотрел.

Процедура ОбработкаТаблицыЗначенийНаФорме()

   ТекСтрока = ТЗ.ТекущаяСтрока();
   ТекКолонка = ТЗ.ТекущаяКолонка();
   
   Если (ТекСтрока=0) Тогда
       Предупреждение("Добавь строки-то сперва в ТЗ ё-мое!!!");
       Возврат;
   КонецЕсли;
   ТЗ.ПолучитьСтрокуПоНомеру(ТС);
   
   Если (ТекКолонка = "Контрагент") Тогда

       СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");
       СпрКонтрагенты.НайтиЭлемент(ТЗ.Контрагент);

       Если СпрКонтрагенты.Выбрать("Выберите контрика", "")<>1 Тогда
           Возврат;
       КонецЕсли;
       
       ТЗ.Контрагент = СпрКонтрагенты.ТекущийЭлемент();
       
   КонецЕсли;

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

(40) минимально улучшил твой код (2) :D

(43) спс