Структура подчиненности документа. Подскажите есть у кого пример реализации данного "действия"

Форум Программирование Общие вопросы программирования (Dev)

1. SAnatoliy 10.10.23 15:11 Сейчас в теме

Может есть у кого пример реализации или статья пример как это делается.

Мне нужно сделать:
1. "документ (в котором есть реквизиты и табличная часть)". -> далее на основании него делаю еще документ (с теми же данными или чуть подправляю или дополняю).

2. Просмотр в окне данные документы как дерево.

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. polax 10.10.23 15:48 Сейчас в теме

Запрос к критерию отбора Связанные документы

4. SAnatoliy 17.10.23 20:08 Сейчас в теме

То есть я делаю два документа (документ1 и документ2) в конфигурации. В одном из документов делаю "ввод на основании".

Пользователь формирует документ1. Далее, Сохраняет. Далее в форме есть кнопка "Создать на основании". Далее формируется документ2 с полем на основании где ссылка на документ1.

Как мне на форме сделать древовидный список.
Список: документ1 и привязанные документы документы2.

3. VZyryanov 10.10.23 17:11 Сейчас в теме

Добавление команды (кнопки) "Связанные документы" (СтруктураПодчиненности) в документ "Списание СВХ" (СписаниеСВХ)

1.Скопировал общую команду СтруктураПодчиненности в КФСтруктураПодчиненности. Для этой команды:
1.1. Роли КФБазовыеПрава дал право Просмотр. У типовой команды право просмотр у роли ПросмотрСвязанныеДокументы.
1.2. Задал свойство "Тип параметра команды" = ДокументСсылка.СписаниеСВХ.
1.3. Задал свойство "Группа" = "Командная панель формы.Важное" (вместо "Панель навигации формы.Перейти"). В этом случае в формах списка и документа есть кнопка на командной панели и команда в меню "Еще".
1.4. Задал свойство "Картинка" = СтруктураПодчиненностиДокумента. Картинку перенес из 1С:Бухгалтерии 3.0.

2. В критерии отбора СвязанныеДокументы в свойстов Тип добавил ДокументСсылка.ОприходованиеСВХ. Это документ, на который ссылается документ СписаниеСВХ.
В свойстве "Состав" включил флаг Документы - СписаниеСВХ - Табличные части - ДокументОприходования.

3. В форму списка добавил код

СтандартныеПодсистемы.ПодключаемыеКоманды:
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	// СтандартныеПодсистемы.ПодключаемыеКоманды
	ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
	// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры

// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
	ПодключаемыеКомандыКлиент.ВыполнитьКоманду(ЭтотОбъект, Команда, Элементы.Список);
КонецПроцедуры

&НаСервере
Процедура Подключаемый_ВыполнитьКомандуНаСервере(Контекст, Результат)
	ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, Контекст, Элементы.Список, Результат);
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
	ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
	// СтандартныеПодсистемы.ПодключаемыеКоманды
	ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
	// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры

4. В форму документа добавил код СтандартныеПодсистемы.ПодключаемыеКоманды:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	// СтандартныеПодсистемы.ПодключаемыеКоманды
	ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
	// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры

&НаСервере
Процедура ПриЧтенииНаСервере(ТекущийОбъект)
	// СтандартныеПодсистемы.ПодключаемыеКоманды
	ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
	// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	// СтандартныеПодсистемы.ПодключаемыеКоманды
	ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
	// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры

// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
	ПодключаемыеКомандыКлиент.ВыполнитьКоманду(ЭтотОбъект, Команда, Объект);
КонецПроцедуры

&НаСервере
Процедура Подключаемый_ВыполнитьКомандуНаСервере(Контекст, Результат)
	ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, Контекст, Объект, Результат);
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
	ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды

Показать

Оставьте свое сообщение

E-mail: