В Обработки.ТОСервер в функцию ПодключитьОборудование(Вид, Клиент) заменить
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Запрос = Новый Запрос( "ВЫБРАТЬ РАЗРЕШЕННЫЕ | РегТО.Идентификатор КАК Идентификатор, | РегТО.Модель.Наименование КАК Наименование, | РегТО.Модель КАК Модель, | РегТО.Параметры КАК Параметры |ИЗ | РегистрСведений.ТорговоеОборудование КАК РегТО |ГДЕ | РегТО.Вид = &Вид | И РегТО.Компьютер = &Компьютер | И РегТО.Подключено |"); Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер", ПолучитьИмяКомпьютераТО()); |
заменить на
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | //ВебЧек ПРРО ++ рекомендации для работы более 2 и более прро на одном сервере Запрос = Новый Запрос( "ВЫБРАТЬ РАЗРЕШЕННЫЕ | РегТО.Идентификатор КАК Идентификатор, | РегТО.Модель.Наименование КАК Наименование, | РегТО.Модель КАК Модель, | РегТО.Параметры КАК Параметры |ИЗ | РегистрСведений.ТорговоеОборудование КАК РегТО |ГДЕ | РегТО.Вид = &Вид | И РегТО.Компьютер = &Компьютер | И РегТО.Подключено"); Если Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор Тогда Запрос.Текст = Запрос.Текст + " | И РегТО.КассаККМ = &КассаККМ"; КонеЦесли; Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер", ПолучитьИмяКомпьютераТО()); Если Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор Тогда попытка Запрос.УстановитьПараметр("КассаККМ" , Клиент.КассаККМ ); исключение Запрос.УстановитьПараметр("КассаККМ" , неопределено); Конецпопытки; //якщо використовувати ІнтерфейсКасира в УТ 2.3 рекомендуемо // Если НЕ ЗначениеЗаполнено(Клиент.КассаККМ) Тогда // Запрос.УстановитьПараметр("КассаККМ" , УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнаяКассаККМ") ); // КонецЕсли; КонецЕсли; //ВебЧек ПРРО -- рекомендации для работы более 2 и более прро на одном сервере |