|
Подскажите, как вынести структуру подчиненности документа, на форму (обычные формы)? | ☑ | ||
|---|---|---|---|---|
|
0
SkillUp
01.07.20
✎
11:02
|
Подскажите, как вынести структуру подчиненности документа, на форму (обычные формы)?
Делаю так: Копирую форму (структура подчиненности, там все поля и ДеревоЗначений) себе на форму. Потом ФормаСтруктурыПодчиненности = ПолучитьОбщуюФорму("ФормаСтруктурыПодчиненности",ЭтаФорма); Если ФормаСтруктурыПодчиненности.Открыта() Тогда ФормаСтруктурыПодчиненности.Закрыть(); КонецЕсли; ФормаСтруктурыПодчиненности.ДокументСсылка = Элемент.ТекущаяСтрока; ЭтаФорма.ДеревоДокументовФорма = ФормаСтруктурыПодчиненности.ДеревоДокументов; Структура заполняется, но вот если нажать на документы из структуры, то перехода не происходит (как при стандартном нажатии по кнопке, "структура подчиненности")? Или не так надо делать? |
|||
|
1
SkillUp
01.07.20
✎
11:10
|
Короче, ни кто не знает. Как правильно делать... (
|
|||
|
2
SkillUp
01.07.20
✎
11:18
|
(0) Уточню код:
ФормаСтруктурыПодчиненности = ПолучитьОбщуюФорму("ФормаСтруктурыПодчиненности",ЭтаФорма); Если ФормаСтруктурыПодчиненности.Открыта() Тогда ФормаСтруктурыПодчиненности.Закрыть(); КонецЕсли; ФормаСтруктурыПодчиненности.ДокументСсылка = Элемент.ТекущаяСтрока; ФормаСтруктурыПодчиненности.Открыть(); ФормаСтруктурыПодчиненности.Закрыть(); ЭтаФорма.ДеревоДокументов = ФормаСтруктурыПодчиненности.ДеревоДокументов; ЭлементыФормы.ДеревоДокументов.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВсеУровни; Может и коряво, но хоть как-то выводит структуру подчиненности. |
|||
|
3
SkillUp
01.07.20
✎
11:24
|
Короче так, заполнение стурктуры у себя на форме делается, как выше:
А открытие документа: Процедура ДеревоДокументовПередНачаломИзменения(Элемент, Отказ) ОткрытьФормуДокумента(); Отказ = Истина; КонецПроцедуры // Процедура выполняет открытие формы текущего документа Процедура ОткрытьФормуДокумента() Попытка Форма = ЭлементыФормы.ДеревоДокументов.ТекущиеДанные.Ссылка.ПолучитьФорму(); Форма.Открыть(); Исключение ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки()); КонецПопытки; КонецПроцедуры ВСЕ! ВСЕМ ОГРОМНОЕ СПАСИБО! ЗА ПОДСКАЗКИ! |
|||
|
4
SkillUp
01.07.20
✎
11:27
|
Если кому-то пригодился мой мини-гайд, пож. напишите сюда, буду рад, что не потратил зря свои нервы...
|
| Форум | Правила | Описание | Секции | Поиск |