Учет перемещений продукции между складами - 1С 8.3

[laby]

Здравствуйте. Вот пытаюсь сделать программку учета ...

Имеется производство. Скажем 5 групп складов между которыми перемещается продукция.
Создал справочник иерархический Склады. Группа складов, движение может быть из группы Склады1 в группу Склады2, из Склады2 в Склады3, итд

Создал Документ Движение. В нем выбираю группы складов из и в какой идет движение.
Как мне сделать, чтобы при выборе из складов, в Склады заполнялось автоматически.

А по табличной части - чтобы из склада - выбирались склады той группы, которая выбрана в шапке документа, а не по всем группам. И соответственно в склад - выбор был только из группы складов, которая в шапке документа выбрана "В склады".

[ПростоБосс]

Просто в процедуре ПриИзменении() для реквизита формы СоСклада нужно установить для реквизита НаСклад признак ВыборИзСписка в истину и список выбора для этого реквизита по тому отбору, который вас устраивает.

[cska-fanat-kz]

1. каким то образом организуйте связь между группами складов
2. в табличной части при выборе склада должен накладываться отбор на соответствующую группу.

[laby]

&НаКлиенте
Процедура ИзСкладовПриИзменении(Элемент)
   ИзСкладовПриИзмененииНаСервере();
КонецПроцедуры

&НаСервере
Процедура ИзСкладовПриИзмененииНаСервере()
   НоваяСвязь = Новый СвязьПараметраВыбора("Отбор.Родитель", "Объект.ИзСкладов");
   НовыйМассив = Новый Массив();
   НовыйМассив.Добавить(НоваяСвязь);
   НовыеСвязи = Новый ФиксированныйМассив(НовыйМассив);
   Элементы.ПеремещениеИзСклада.СвязиПараметровВыбора = НовыеСвязи;
   
   Объект.ВСклады = Справочники.ПоследовательностиПеремещений.НайтиПоРеквизиту("ИзСкладов", Объект.ИзСкладов).ВСклады;
   ВСкладыПриИзмененииНаСервере();
КонецПроцедуры

&НаКлиенте
Процедура ВСкладыПриИзменении(Элемент)
   ВСкладыПриИзмененииНаСервере();
КонецПроцедуры

&НаСервере
Процедура ВСкладыПриИзмененииНаСервере()
   НоваяСвязь = Новый СвязьПараметраВыбора("Отбор.Родитель", "Объект.ВСклады");
   НовыйМассив = Новый Массив();
   НовыйМассив.Добавить(НоваяСвязь);
   НовыеСвязи = Новый ФиксированныйМассив(НовыйМассив);
   Элементы.ПеремещениеВСклад.СвязиПараметровВыбора = НовыеСвязи;
КонецПроцедуры

Добавлено: 21 янв 2016, 14:50

в текст строчку дописал а файл обновит время истекло.