Имя: Пароль:
1C
 
Вывод серии номенклатуры в ТЧ
0 pro3ri
 
11.09.15
14:44
Добрый день!
https://s.mail.ru/5pCPREQ1VqrB/img-2015-09-11-16-45-12.png
Это тч, забиваю Номенклатуру, нажимаю на три точки Серии номенклатуры и хочу чтобы формы этой не выходило (https://s.mail.ru/3aSXVEdDvNjX/img-2015-09-11-16-48-52.png), чтобы цепляло автоматом, как побороть?

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

ошибка: {Документ.ПокупкаМеждуФирмами.Форма.ФормаДокумента(85)}: Поле объекта недоступно для записи (Родитель)
    СтрокаТабличнойЧасти.СерияНоменклатуры.Родитель = СтрокаТабличнойЧасти.Номенклатура;
1 Mirnin
 
11.09.15
15:03
Процедура СерияНоменклатурыНачалоВыбора(Элемент, СтандартнаяОбработка)

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

    
КонецПроцедуры
2 pro3ri
 
11.09.15
15:22
(1) спасибо, правда пришлось подделать
Процедура ТоварыСерияНоменклатурыНачалоВыбора(Элемент, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    СтрокаТЧ = ЭлементыФормы.Товары.ТекущаяСтрока;
    
    Если ЗначениеЗаполнено(СтрокаТЧ.Номенклатура) Тогда
        ФормаВыбора =  Справочники.СерииНоменклатуры.ПолучитьФормуСписка(, Элемент);
        ФормаВыбора.РежимВыбора = Истина;
        ФормаВыбора.Отбор.Владелец.Установить(СтрокаТЧ.Номенклатура, Истина);
        ФормаВыбора.ПараметрОтборПоВладельцу = СтрокаТЧ.Номенклатура;
        ФормаВыбора.Открыть();
    Иначе
        Сообщить("Выберите номенклатуру!");
        Возврат;
    КонецЕсли;
    
КонецПроцедуры
, так как


Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

    Если НЕ ЗначениеНеЗаполнено(ПараметрОтборПоВладельцу) Тогда

        Если НЕ ПараметрОтборПоВладельцу.ВестиУчетПоСериям Тогда

            Если ТипЗнч(ВладелецФормы) = Тип("Форма") Тогда
                Если ВладелецФормы.ЭлементыФормы.Найти("ФлажокВестиУчетПоСериям") <> Неопределено Тогда
                    Если ВладелецФормы.ЭлементыФормы.ФлажокВестиУчетПоСериям.Значение Тогда
                        ОтветПользователя = Вопрос("Перед работой с сериями необходимо записать элемент номенклатуры. Записать?",
                        РежимДиалогаВопрос.ДаНетОтмена,,, "Вопрос");
                        Если ОтветПользователя = КодВозвратаДиалога.Отмена
                            ИЛИ ОтветПользователя = КодВозвратаДиалога.Таймаут Тогда
                            Отказ = Истина;
                            Возврат;
                        КонецЕсли;

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

                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;

            Если НЕ ПараметрОтборПоВладельцу.ВестиУчетПоСериям Тогда
                Предупреждение("Для номенклатуры """ + ПараметрОтборПоВладельцу + """ не ведется учет по сериям!");
                Отказ = Истина;
            КонецЕсли;

        КонецЕсли;

    Иначе
        Предупреждение("Не выбрана номенклатура или не записан редактируемый элемент номенклатуры!");
        Отказ = Истина;

    КонецЕсли;

КонецПроцедуры
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.