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