O
olga13
Добрый день! Подскажите, пожалуйста, в чем может быть дело. Создаю новый документ (в конфигураторе). Процедура ОбработкаПодбора должна вызывается при подборе товаров в табличную часть и при внесении в список значений групп товаров. Но она не вызывается ни из процедуры Подбор, ни из процедуры ВыбратьТовары (смотрела в отладчике). Открывается справочник товаров и на этом все. Если не указывать форму списка в ОткрытьПодбор(), то все работает. Но мне нужно открывать именно эту форму, а не ту, что стоит по умолчанию для подбора.
<!--shcode--><pre><code class='1C'>Перем ФлВыбора;
//*********************************************************
Процедура Подбор()
ОткрытьПодбор("Товары","Просмотр");
УстановитьЗначениеВПодборе("Склад", Константа.ОснСклад);
КонецПроцедуры
//*********************************************************
Процедура ВыбратьТовары(Реж)
Перем Фрм,Тек;
Если ВыбТовары.РазмерСписка() > 0 Тогда
Тек = ВыбТовары.ПолучитьЗначение(ВыбТовары.ТекущаяСтрока());
КонецЕсли;
ФлВыбора = 1;
ОткрытьПодбор("Справочник.Товары","Просмотр",Фрм,Реж,Тек);
Фрм.ВыборГруппы(1);
КонецПроцедуры
//*********************************************************
Процедура ОбработкаПодбора(ВыбТовар)
Если ФлВыбора = 1 Тогда
ВыбТовары.ДобавитьЗначение(ВыбТовар);
ВыбТовары.ТекущаяСтрока(ВыбТовары.РазмерСписка());
Иначе
НоваяСтрока();
Кол = 1;
Если ВвестиЧисло(Кол,"Введите количество",10,0)=1 Тогда
Товар = ВыбТовар;
СкладОбщ = Товар.Склад;
Группа = Товар.Родитель;
ВидСклада = Товар.ВидСклада;
КодТов = Товар.КодТов;
АктивизироватьСтроку();
КонецЕсли;
КонецЕсли;
КонецПроцедуры[/CODE]
<!--shcode--><pre><code class='1C'>Перем ФлВыбора;
//*********************************************************
Процедура Подбор()
ОткрытьПодбор("Товары","Просмотр");
УстановитьЗначениеВПодборе("Склад", Константа.ОснСклад);
КонецПроцедуры
//*********************************************************
Процедура ВыбратьТовары(Реж)
Перем Фрм,Тек;
Если ВыбТовары.РазмерСписка() > 0 Тогда
Тек = ВыбТовары.ПолучитьЗначение(ВыбТовары.ТекущаяСтрока());
КонецЕсли;
ФлВыбора = 1;
ОткрытьПодбор("Справочник.Товары","Просмотр",Фрм,Реж,Тек);
Фрм.ВыборГруппы(1);
КонецПроцедуры
//*********************************************************
Процедура ОбработкаПодбора(ВыбТовар)
Если ФлВыбора = 1 Тогда
ВыбТовары.ДобавитьЗначение(ВыбТовар);
ВыбТовары.ТекущаяСтрока(ВыбТовары.РазмерСписка());
Иначе
НоваяСтрока();
Кол = 1;
Если ВвестиЧисло(Кол,"Введите количество",10,0)=1 Тогда
Товар = ВыбТовар;
СкладОбщ = Товар.Склад;
Группа = Товар.Родитель;
ВидСклада = Товар.ВидСклада;
КодТов = Товар.КодТов;
АктивизироватьСтроку();
КонецЕсли;
КонецЕсли;
КонецПроцедуры[/CODE]