Приветствую, форумчане!
"Управление торговлей 10.3", (Моби-С 5.5). "ABBYY Ukraine", 2003-2014 (2.3.20.1)
Имеется часть кода в форме приОткрытии:
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПользователиСклады.Склады,
| ПользователиСклады.Склады.Ссылка Как сСклад
|ИЗ
| Справочник.Пользователи.Склады КАК ПользователиСклады
|ГДЕ
| ПользователиСклады.Ссылка = &сПользователь";
Запрос.УстановитьПараметр("сПользователь", ПараметрыСеанса.ТекущийПользователь);
Результат = Запрос.Выполнить().Выгрузить();
МассивДокументов = Результат.ВыгрузитьКолонку("сСклад");
СписокДокументов= Новый СписокЗначений;
сп = Новый СписокЗначений();
сп.Добавить("Все доступные...");
Для Каждого Стр из МассивДокументов Цикл
СписокДокументов.Добавить(Стр);
сп.Добавить(Стр);
КонецЦикла;
ЭтаФорма.Отбор.Склад.Использование=Истина;
ЭлементыФормы.Список.Значение.Отбор.Склад.ВидСравнения = ВидСравнения.ВСписке;
ЭлементыФормы.Список.НастройкаОтбора.Склад.Доступность = Ложь;
ЭтаФорма.Отбор.Склад.Значение = СписокДокументов;
ЭлементыФормы.ПолеВыбора1.СписокВыбора = сп;
ЭлементыФормы.ПолеВыбора1.Значение = сп.Получить(0).Значение;
Т.е. этот код используется на многих формах, то решил перенести этот кусок кода как процедуру в Общие Модули.
Никак не могу сообразить как трансформировать этот код в процедуре в Общем модуле, чтобы компактно к ней обращаться из модуля формы?
Направьте мысль...