- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
Набор = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
Отбор = Набор.Отбор;
Отбор.Объект.Использование = Истина;
Отбор.Объект.ВидСравнения = ВидСравнения.Равно;
Отбор.Свойство.ВидСравнения = ВидСравнения.Равно;
Отбор.Объект.Значение = Грузополучатель;
Отбор.Свойство.Значение = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("GLN").Ссылка;
Набор.Прочитать();
GLN_получ = "";
Если Набор.Количество() > 0 Тогда
Для нумер = 0 по Набор.Количество()-1 Цикл
Свво = Набор.Получить(нумер).Свойство;
Если СокрЛП(Свво.Наименование) = "GLN" Тогда
GLN_получ = Набор.Получить(нумер).Значение;
КонецЕсли;
КонецЦикла;
КонецЕсли;
ОбластьМакета.Параметры.GLN_получ = GLN_получ;
3 строчки кода, медленно превращаются в 1.
PS: А вообще, в печатных форма нужно использовать запрос для получения всех сведений, его доработать легко, достаточно заглянуть в "УправлениеОтчетами"
А, ну тогда понятно, не ругайте его сильно, для него "1С" выглядит примерно как для нас http://govnokod.ru/3408