Получение из структуры нескольких значений

[Sasha1C]

Добрый день, при решении задачи авто заполнения реквизитов на форме документа столкнулся с проблемой, а именно: надо при изменении реквизита "Транспортное средство" заполнить остальные реквизиты на основании Отбора сделанного на сервере. Реквизит "Данные" получает нужные реквизиты авто заполнения, но вопрос как передать их на клиент, не использую отдельную функцию для каждого реквизита на клиенте. Регистр имеет измерение "ТранспортноеСредство" и 3 ресурса: "ПервыйГрузчик", "ВторойГрузчик", "Водитель". Ранее на этом форуме, было предложение переоткрыть форму переданным ключом, сработает, ли это здесь, и если да. Можете Продемонстрировать общую концепцию через переоткрытие формы. Другие предложения решения только приветствуются. Заранее спасибо. 

Код Выделить Развернуть

&НаКлиенте
Процедура ТранспортноеСредствоПриИзменении(Элемент)

Объект.Грузчик = Новый структура("Грузчик",ТранспортноеСредствоПриИзмененииНаСервере(объект.ТранспортноеСредство, объект.Дата));
Объект.ВторойГрузчик = Новый структура("ВторойГрузчик",ТранспортноеСредствоПриИзмененииНаСервере(объект.ТранспортноеСредство, объект.Дата));

//Объект.Водитель = ПолучениеВодителя(Объект.ТранспортноеСредство, Объект.Дата);

КонецПроцедуры                           

&НаСервере
Функция ТранспортноеСредствоПриИзмененииНаСервере(ТранспортноеСредство, Дата)

Отбор = Новый Структура("ТранспортноеСредство", ТранспортноеСредство);

Данные = РегистрыСведений.СоставБригады.СрезПоследних(дата, отбор);


КонецФункции


[LexaK]

Sasha1C, так сразу на сервере и заполните все нужные данные

Код Выделить Развернуть

&НаСервере
Функция ТранспортноеСредствоПриИзмененииНаСервере(ТранспортноеСредство, Дата)
   
    Отбор = Новый Структура("ТранспортноеСредство", ТранспортноеСредство);
   
    Данные = РегистрыСведений.СоставБригады.СрезПоследних(дата, отбор);

//сразу и заполняем
Если Данные.Количество()  > 0 Тогда
    ЗаполнитьЗначенияСвойств(Объект, данные[0]);
КонецЕсли;

//или каким другим способом
           
КонецФункции

[Sasha1C]

LexaK, Я сделал по вашему примеру, ошибок не выдает, но реквизиты не заполнились. Может я что-то недопонял?

Код Выделить Развернуть

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

   
   
КонецПроцедуры                           

&НаСервере
Функция ТранспортноеСредствоПриИзмененииНаСервере(ТранспортноеСредство, Дата, ПервыйГрузчик, ВторойГрузчик, Водитель)
   
    Отбор = Новый Структура("ТранспортноеСредство", ТранспортноеСредство);
   
    Данные = РегистрыСведений.СоставБригады.СрезПоследних(дата, отбор);
   
    Если Данные.Количество() > 0 Тогда
        ЗаполнитьЗначенияСвойств(ПервыйГрузчик,Данные.Колонки.ПервыйГрузчик);
        ЗаполнитьЗначенияСвойств(Водитель,Данные.Колонки.Водитель);
        ЗаполнитьЗначенияСвойств(ВторойГрузчик,Данные.Колонки.ВторойГрузчик);   
    КонецЕсли
   
   
           
КонецФункции


[antoneus]

Ну и где там "по примеру"? Зачем отсебятину-то пороть? Ключевая строка

Код Выделить Развернуть

ЗаполнитьЗначенияСвойств(Объект, данные[0]);

[Sasha1C]

antoneus, Сработало, но подтягивает только первый реквизит, а как подтянуть остальные?

[LexaK]

Sasha1C,

Код Выделить Развернуть

ЗаполнитьЗначенияСвойств(Объект, данные[0]);срабатывает если у вас совпадают ИменаРеквизитов
если имена разные тогда напрямую присваивать
примерно так

Код Выделить Развернуть

&НаСервере
Функция ТранспортноеСредствоПриИзмененииНаСервере(ТранспортноеСредство, Дата)
   
    Отбор = Новый Структура("ТранспортноеСредство", ТранспортноеСредство);
   
    Данные = РегистрыСведений.СоставБригады.СрезПоследних(дата, отбор);

//сразу и заполняем
Если Данные.Количество()  > 0 Тогда
    ЗаполнитьЗначенияСвойств(Объект, данные[0]);
    Объект.Грузчик1 = данные[0].ПервыйГрузчик;
    Объект.Грузчик2 = данные[0].ВторойГрузчик; //по разным именам реквизитов
//и т.д.
КонецЕсли;

//или каким другим способом
           
КонецФункции

[Sasha1C]

LexaK, Спасибо за помощь