Вибирайте розрядність згідно з розрядністю версії BAS:
ВебЧек PRO (32-bit) 35.40 MB 122105 Версия : 5.9.9 від 28.02.2025
32-розрядний ВебЧек : ПРРО для 32-розрядної версії...ВебЧек PRO (64-bit) 35.90 MB 40884 Версия : 5.9.9 від 28.02.2025
64 розрядний ВебЧек: ПРРО використовується для...Обробки обслуговування :
ВебЧек : Драйвер для еквайрингового терміналу обробка обслуговування 26.51 KB 2917 Версия : beta
ВебЧек : Драйвер для еквайрингового терміналу...Обробка обслуговування для 8.3 "ВебЧек: ПРРО" для звичайних форм 52 KB 21238 Версия :
Відеоінструкція з підключення Роздріб для України,...Умови за яких потрібно вносити зміни в конфігурацію :
- виведення реквізитів ЕПЗ на чек ПРРО
- підключення 2 та більше банківських терміналів
Зміни в конфігурацію :
На формі обробки ТОНастройка
В обробці СерверТО в фукнцію ПодключитьОборудование :
замість :
1 2 | Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер", ПолучитьИмяКомпьютераТО()); |
замінити на :
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 | //ВебЧек ПРРО ++ рекомендации для работы более 2 и более прро на одном сервере Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер", ПолучитьИмяКомпьютераТО()); Если Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор Тогда попытка Если НЕ ЗначениеЗаполнено(Клиент.КассаККМ) Тогда КассаККМ = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнаяКассаККМ"); КонецЕсли; исключение КассаККМ = неопределено; Конецпопытки; попытка Запрос.УстановитьПараметр("КассаККМ" , КассаККМ ); исключение Запрос.УстановитьПараметр("КассаККМ" , неопределено); Конецпопытки; КонецЕсли; //ВебЧек ПРРО -- рекомендации для работы более 2 и более прро на одном сервере |
Документ Чек ККМ модуль документа в функцію ПровестиИРаспечататьЧек
перед строкою СтруктураПараметровЧека.Вставить(“СтруктураОбщиеПараметры”, СтруктураОбщиеПараметры);
вставити :
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 | //ВебЧек виведення на чек інформаціі по транзакціі в банк терміналі Если Найти(НРег(Ссылка.Комментарий), "rrn") Тогда ВходящаяСтрока = СтрЗаменить(Ссылка.Комментарий, ",", Символы.ПС); СтруктураПараметрыЭкв = Новый Структура; Для ИндексСтроки = 1 По СтрЧислоСтрок(ВходящаяСтрока) Цикл Подстрока = СтрПолучитьСтроку(ВходящаяСтрока, ИндексСтроки); Если Найти(Подстрока,"PA_") Тогда СтруктураПараметрыЭкв.Вставить("PA",СтрЗаменить(Подстрока,"PA_","")); КонецЕсли; Если Найти(Подстрока,"PB_") Тогда СтруктураПараметрыЭкв.Вставить("PB",СтрЗаменить(Подстрока,"PB_","")); КонецЕсли; Если Найти(Подстрока,"PC_") Тогда СтруктураПараметрыЭкв.Вставить("PC",СтрЗаменить(Подстрока,"PC_","")); КонецЕсли; Если Найти(Подстрока,"PD_") Тогда СтруктураПараметрыЭкв.Вставить("PD",СтрЗаменить(Подстрока,"PD_","")); КонецЕсли; Если Найти(Подстрока,"PE_") Тогда СтруктураПараметрыЭкв.Вставить("PE",СтрЗаменить(Подстрока,"PE_","")); КонецЕсли; Если Найти(Подстрока,"PSNM_") Тогда СтруктураПараметрыЭкв.Вставить("PSNM",СтрЗаменить(Подстрока,"PSNM_","")); КонецЕсли; Если Найти(Подстрока,"RRN_") Тогда СтруктураПараметрыЭкв.Вставить("RRN",СтрЗаменить(Подстрока,"RRN_","")); КонецЕсли; КонецЦикла; СтруктураОбщиеПараметры.Вставить("СтруктураДанныхЭквТранзакции", СтруктураПараметрыЭкв); КонецЕсли; //вебчек |
В обробці СерверТО в фукнцію ПолучитьСписокУстройств :
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 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | // Функция возвращает список идентификаторов подключенных устройств заданного вида. // // Параметры: // Вид - <ПеречислениеСсылка.ВидыТорговогоОборудования> // - Вид торгового оборудования, информацию о котором необходимо получить. // // КассаККМ - <СправочникСсылка.КассыККМ> // - Касса ККМ, к которой подключено данное оборудование. // В случае, если данный параметр соответствует пустой ссылке, // будет возвращено всё торговое оборудование указанного вида. // // Возвращаемое значение: // <Массив> - Список идентификаторов устройств. // Функция ПолучитьСписокУстройств(Вид, КассаККМ = Неопределено) Экспорт // вебчек Если (Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор)или(Вид = ПЕречисления.ВидыТорговогоОборудования.ЭквайринговаяСистема) Тогда Попытка Если НЕ ЗначениеЗаполнено(КассаККМ) Тогда КассаККМ = ПараметрыСеанса.ТекущийМагазин.ОсновнаяКасса; КонецЕсли; исключение КассаККМ = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнаяКассаККМ"); Конецпопытки; КонецЕсли; // вебчек НеЗаданаКассаККМ = НЕ ЗначениеЗаполнено(КассаККМ); Результат = Новый Массив(); Запрос = Новый Запрос( "ВЫБРАТЬ РАЗРЕШЕННЫЕ | РегТО.Идентификатор КАК Идентификатор |ИЗ | РегистрСведений.ТорговоеОборудование КАК РегТО |ГДЕ | РегТО.Вид = &Вид | И РегТО.Компьютер = &Компьютер | И РегТО.Подключено |" + ?(НеЗаданаКассаККМ, "", " И РегТО.КассаККМ = &КассаККМ")); Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер" , ПолучитьИмяКомпьютераТО()); Если Не НеЗаданаКассаККМ Тогда Запрос.УстановитьПараметр("КассаККМ", КассаККМ); КонецЕсли; Результат = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку(0); Возврат Результат; КонецФункции |
Документ Чек ККМ модуль документа в Процедура ОплатитьКартой
перед строкою Если ЗначениеЗаполнено(Результат) Тогда
вставити :
1 2 3 4 5 6 7 8 | КодRRN = Неопределено; Если ВидОперации = Перечисления.ВидыОперацийЧекККМ.Продажа Тогда Результат = ПолучитьСерверТО().ОплатитьПлатежнойКартой(ЭС, СуммаОплаты, КодRRN, ФР); Иначе Результат = ПолучитьСерверТО().ОтменитьПлатежПоПлатежнойКарте(ЭС, СуммаОплаты, КодRRN, ФР); КонецЕсли; |