Вопрос по Библиотека подключаемого оборудования_2.0.4.10

[vip1987]

Доброе время.
Снова появился вопрос не знающий мною ответа.
Я создал с нуля базу.
Путем сравнения объединил с Библиотека подключаемого оборудования_2.0.4.10
В номенклатуре создал реквизит ШтрихКод
К нему в модуле скопировал то что написано в документе по Библиотека подключаемого оборудования_2.0.4.10
И выпадает ошибка при проверки модуля: ОбработатьПолученныйШК(ТекКод);

Вот весь код что вставляю в модуль:
&НаКлиенте
Процедура ПриОткрытии(Отказ)

   ПоддерживаемыеТипыВО = Новый Массив();
   ПоддерживаемыеТипыВО.Добавить("СканерШтрихкода");
   ОповещенияПриПодключении = Новый ОписаниеОповещения("ПодключитьОборудованиеЗавершение", ЭтотОбъект);
   МенеджерОборудованияКлиент.НачатьПодключениеОборудованиеПоТипу(ОповещенияПриПодключении, УникальныйИдентификатор, ПоддерживаемыеТипыВО);

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

&НаКлиенте
Процедура ПодключитьОборудованиеЗавершение(РезультатВыполнения, Параметры) Экспорт

   Если Не РезультатВыполнения.Результат Тогда
      ТекстСообщения = НСтр( "ru = 'При подключении оборудования произошла ошибка:""%ОписаниеОшибки%"".'");
      ТекстСообщения = СтрЗаменить(ТекстСообщения, "%ОписаниеОшибки%" , РезультатВыполнения.ОписаниеОшибки);
      Сообщить(ТекстСообщения);
   Иначе
      ТекстСообщения = НСтр("ru = 'Оборудование подключено.'" );
      Сообщить(ТекстСообщения);
   КонецЕсли;

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

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
   
   Если Источник = "ПодключаемоеОборудование" И ВводДоступен() Тогда
      Если ИмяСобытия = "ScanData" Тогда
         Если Параметр[1] = Неопределено Тогда
             ТекКод = Параметр[0];
          Иначе
             ТекКод = Параметр[1][1];
          КонецЕсли;
          ОбработатьПолученныйШК(ТекКод);
      КонецЕсли;
   КонецЕсли;

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

&НаКлиенте
Процедура ПриЗакрытии(Отказ)
   
   ПоддерживаемыеТипыВО = Новый Массив();
   ПоддерживаемыеТипыВО.Добавить("СканерШтрихкода");
   ОповещенияПриПодключении = Новый ОписаниеОповещения("ОтключитьОборудованиеЗавершение", ЭтотОбъект);
   МенеджерОборудованияКлиент.НачатьОтключениеОборудованиеПоТипу(ОповещенияПриПодключении, УникальныйИдентификатор, ПоддерживаемыеТипыВО);

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

&НаКлиенте
Процедура ОтключитьОборудованиеЗавершение(РезультатВыполнения, Параметры) Экспорт
   
   Если Не РезультатВыполнения.Результат Тогда
      ТекстСообщения = НСтр( "ru = 'При отключении оборудования произошла ошибка: ""%ОписаниеОшибки%"".'");
      ТекстСообщения = СтрЗаменить(ТекстСообщения, "%ОписаниеОшибки%" , РезультатВыполнения.ОписаниеОшибки);
      Сообщить(ТекстСообщения);
   Иначе
      ТекстСообщения = НСтр("ru = 'Оборудование отключено.'" );
      Сообщить(ТекстСообщения);
   КонецЕсли;

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

[Kironten]

Ну а где в модуле описание процедуры ОбработатьПолученныйШК()?
Я вижу только вызов, но самой процедуры нет.
Должно быть что-то вроде

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

&НаСервереБезКонтекста
Процедура ОбработатьПолученныйШК(Код)
// тут содержание процедуры
КонецПроцедуры

[vip1987]

Ну а где в модуле описание процедуры ОбработатьПолученныйШК()?
Я вижу только вызов, но самой процедуры нет.
Должно быть что-то вроде

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

&НаСервереБезКонтекста
Процедура ОбработатьПолученныйШК(Код)
// тут содержание процедуры
КонецПроцедуры

Ну что было в документации то и вставил)

А что тогда и откуда взять - касаемо // тут содержание процедуры ???

[Kironten]

А фиг знает.
В БПО 2.0.4.10 такая функция описана для регистра сведений _ДемоШтрихкоды.
И выглядит так:

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

&НаСервере
Функция ОбработатьПолученныйШК(ТекКод)

ВозвращаемоеЗначение = Истина;

Результат = _ДемоПодключаемоеОборудованиеВызовСервера.ПоискПоРегиструСведенийШтрихкоды(ТекКод);
Если Результат.Свойство("Владелец") Тогда
Отбор = Новый Структура;
Отбор.Вставить("Владелец", Результат.Владелец);
Отбор.Вставить("Штрихкод", ТекКод);
Отбор.Вставить("ТипШтрихкода", Результат.ТипШтрихкода);
КлючЗаписи = РегистрыСведений._ДемоШтрихкоды.СоздатьКлючЗаписи(Отбор);
Элементы.Список.ТекущаяСтрока = КлючЗаписи;
Иначе
ВозвращаемоеЗначение = Ложь;
КонецЕсли;
Возврат ВозвращаемоеЗначение;

КонецФункции
А вот уже под что вы её адаптируете - это уже к вам вопрос.

[vip1987]

А фиг знает.
В БПО 2.0.4.10 такая функция описана для регистра сведений _ДемоШтрихкоды.
И выглядит так:

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

&НаСервере
Функция ОбработатьПолученныйШК(ТекКод)

ВозвращаемоеЗначение = Истина;

Результат = _ДемоПодключаемоеОборудованиеВызовСервера.ПоискПоРегиструСведенийШтрихкоды(ТекКод);
Если Результат.Свойство("Владелец") Тогда
Отбор = Новый Структура;
Отбор.Вставить("Владелец", Результат.Владелец);
Отбор.Вставить("Штрихкод", ТекКод);
Отбор.Вставить("ТипШтрихкода", Результат.ТипШтрихкода);
КлючЗаписи = РегистрыСведений._ДемоШтрихкоды.СоздатьКлючЗаписи(Отбор);
Элементы.Список.ТекущаяСтрока = КлючЗаписи;
Иначе
ВозвращаемоеЗначение = Ложь;
КонецЕсли;
Возврат ВозвращаемоеЗначение;

КонецФункции
А вот уже под что вы её адаптируете - это уже к вам вопрос.

Спасибо за ответ на вопрос мой))))