|
Вывод серии номенклатуры в ТЧ | ☑ | ||
---|---|---|---|---|
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) спасибо, правда пришлось подделать
Процедура ТоварыСерияНоменклатурыНачалоВыбора(Элемент, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; СтрокаТЧ = ЭлементыФормы.Товары.ТекущаяСтрока; Если ЗначениеЗаполнено(СтрокаТЧ.Номенклатура) Тогда ФормаВыбора = Справочники.СерииНоменклатуры.ПолучитьФормуСписка(, Элемент); ФормаВыбора.РежимВыбора = Истина; ФормаВыбора.Отбор.Владелец.Установить(СтрокаТЧ.Номенклатура, Истина); ФормаВыбора.ПараметрОтборПоВладельцу = СтрокаТЧ.Номенклатура; ФормаВыбора.Открыть(); Иначе Сообщить("Выберите номенклатуру!"); Возврат; КонецЕсли; КонецПроцедуры , так как Процедура ПередОткрытием(Отказ, СтандартнаяОбработка) Если НЕ ЗначениеНеЗаполнено(ПараметрОтборПоВладельцу) Тогда Если НЕ ПараметрОтборПоВладельцу.ВестиУчетПоСериям Тогда Если ТипЗнч(ВладелецФормы) = Тип("Форма") Тогда Если ВладелецФормы.ЭлементыФормы.Найти("ФлажокВестиУчетПоСериям") <> Неопределено Тогда Если ВладелецФормы.ЭлементыФормы.ФлажокВестиУчетПоСериям.Значение Тогда ОтветПользователя = Вопрос("Перед работой с сериями необходимо записать элемент номенклатуры. Записать?", РежимДиалогаВопрос.ДаНетОтмена,,, "Вопрос"); Если ОтветПользователя = КодВозвратаДиалога.Отмена ИЛИ ОтветПользователя = КодВозвратаДиалога.Таймаут Тогда Отказ = Истина; Возврат; КонецЕсли; Если ОтветПользователя = КодВозвратаДиалога.Да Тогда Попытка ВладелецФормы.СправочникОбъект.Записать(); Исключение КонецПопытки; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; Если НЕ ПараметрОтборПоВладельцу.ВестиУчетПоСериям Тогда Предупреждение("Для номенклатуры """ + ПараметрОтборПоВладельцу + """ не ведется учет по сериям!"); Отказ = Истина; КонецЕсли; КонецЕсли; Иначе Предупреждение("Не выбрана номенклатура или не записан редактируемый элемент номенклатуры!"); Отказ = Истина; КонецЕсли; КонецПроцедуры |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |