Вибирайте розрядність згідно з розрядністю версії BAS:
ВебЧек PRO (32-bit) 35.40 MB 101891 Версия : 5.8.5 від 24.12.2024
32-розрядний ВебЧек : ПРРО для 32-розрядної версії...ВебЧек PRO (64-bit) 35.90 MB 34599 Версия : 5.8.5 від 24.12.2024
64 розрядний ВебЧек: ПРРО використовується для...Обробки обслуговування :
ВебЧек : Драйвер для еквайрингового терміналу обробка обслуговування 26.51 KB 2064 Версия : beta
ВебЧек : Драйвер для еквайрингового терміналу...Обробка обслуговування для 8.3 "ВебЧек: ПРРО" для звичайних форм 52 KB 18356 Версия :
Відеоінструкція з підключення Роздріб для України,...Зміни для конфігурації Роздріб ред. 1 для виведення інформацій по оплаті картою на чек .
На формі обробки ТОНастройка
Документ Чек ККМ модуль документа в Процедура ОплатитьКартой
перед строкою
1 | Если ЗначениеЗаполнено(Результат) Тогда |
вставити
1 2 3 | //ВебЧек виведення на чек інформаціі по транзакціі в банк терміналі Комментарий = КодRRN; //вебчек |
В обробці СерверТО в фукнцію ЗакрытьЧек замінити :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | //вебчек передача доп информации в чек // Функция ЗакрытьЧек(СтруктураОбщиеПараметры, СуммаНал, СуммаБезнал) Экспорт Идентификатор = СтруктураОбщиеПараметры.Идентификатор; Обработка = Неопределено; Объект = Неопределено; Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект); Если НЕ ЗначениеЗаполнено(Результат) Тогда Объект.Вставить("СтруктураОбщиеПараметры",СтруктураОбщиеПараметры); Результат = Обработка.ЗакрытьЧек(Объект, СуммаНал, СуммаБезнал); мОписаниеОшибки = Объект.ОписаниеОшибки; Иначе мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ФР"); КонецЕсли; Возврат Результат; КонецФункции // ЗакрытьЧек() //вебчек передача доп информации в чек |
В обробці СерверТО в фукнцію ПолучитьСписокУстройств :
додати в початок функції
1 2 3 4 5 6 7 8 9 10 11 12 | // вебчек Если (Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор)или(Вид = ПЕречисления.ВидыТорговогоОборудования.ЭквайринговаяСистема) Тогда Попытка Если НЕ ЗначениеЗаполнено(КассаККМ) Тогда КассаККМ = ПараметрыСеанса.ТекущийМагазин.ОсновнаяКасса; КонецЕсли; исключение КассаККМ = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнаяКассаККМ"); Конецпопытки; КонецЕсли; // вебчек |
Документ Чек ККМ модуль документа в функцію ПечатьЧекаККМ
1 2 3 | Если НЕ ЗначениеЗаполнено(Результат) Тогда Результат = ПолучитьСерверТО().ЗакрытьЧек(Идентификатор, СуммаНал, СуммаБезнал); КонецЕсли; |
на
1 2 3 4 5 6 | //вебчек передача доп информации в чек Если НЕ ЗначениеЗаполнено(Результат) Тогда СтруктураОбщиеПараметры.Вставить("Идентификатор",Идентификатор); Результат = ПолучитьСерверТО().ЗакрытьЧек(СтруктураОбщиеПараметры, СуммаНал, СуммаБезнал); КонецЕсли; //вебчек передача доп информации в чек |
Документ Чек ККМ модулі документа замінити
1 2 | Функция ПечатьЧекаККМ(Идентификатор, НомерЧека, НомерСмены, ОписаниеЧека, СуммаНал, СуммаБезнал, ПризнакВозврата) |
на
1 2 3 4 5 6 | //ВебЧек Функция ПечатьЧекаККМ(Идентификатор, НомерЧека, НомерСмены, ОписаниеЧека, СуммаНал, СуммаБезнал, ПризнакВозврата,СтруктураОбщиеПараметры = неопределено) //ВебЧек |
Документ Чек ККМ модуль документа в функцію ПровестиИРаспечататьЧек
замість
1 2 3 4 | ОшибкаТО = ПечатьЧекаККМ(ФР, НомерЧекаККМ, НомерСменыККМ, ТаблицаТоваров, ПолучитьСуммуНаличнойОплаты(), ПолучитьСуммуБезналичнойОплаты(), ВидОперации = Перечисления.ВидыОперацийЧекККМ.Возврат); |
замінити на
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 | //ВебЧек виведення на чек інформаціі по транзакціі в банк терміналі СтруктураОбщиеПараметры = Новый Структура; Если Найти(НРег(Ссылка.Комментарий), "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 | Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер", ПолучитьИмяКомпьютераТО()); |
замінити на
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 | //ВебЧек ПРРО ++ рекомендации для работы более 2 и более прро на одном сервере Если (Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор)или(Вид = ПЕречисления.ВидыТорговогоОборудования.ЭквайринговаяСистема) Тогда Запрос.Текст = Запрос.Текст + " | И РегТО.КассаККМ = &КассаККМ"; КонеЦесли; Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер", ПолучитьИмяКомпьютераТО()); Если (Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор)или(Вид = ПЕречисления.ВидыТорговогоОборудования.ЭквайринговаяСистема) Тогда Попытка Если НЕ ЗначениеЗаполнено(Клиент.КассаККМ) Тогда КассаККМ = ПараметрыСеанса.ТекущийМагазин.ОсновнаяКасса; КонецЕсли; исключение КассаККМ = ПараметрыСеанса.ТекущийМагазин.ОсновнаяКасса; Конецпопытки; попытка Запрос.УстановитьПараметр("КассаККМ" , КассаККМ ); исключение Запрос.УстановитьПараметр("КассаККМ" , неопределено); Конецпопытки; КонецЕсли; //ВебЧек ПРРО ++ рекомендации для работы более 2 и более прро на одном сервере |
На формі обробки ТОНастройка
Документ Чек ККМ модуль документа в Процедура ОплатитьКартой
перед строкою
1 | Если ЗначениеЗаполнено(Результат) Тогда |
вставити
1 2 3 | //ВебЧек виведення на чек інформаціі по транзакціі в банк терміналі Комментарий = КодRRN; //вебчек |
В обробці СерверТО в фукнцію ПолучитьСписокУстройств :
додати в початок функції
1 2 3 4 5 6 7 8 9 10 11 12 | // вебчек Если (Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор)или(Вид = ПЕречисления.ВидыТорговогоОборудования.ЭквайринговаяСистема) Тогда Попытка Если НЕ ЗначениеЗаполнено(КассаККМ) Тогда КассаККМ = ПараметрыСеанса.ТекущийМагазин.ОсновнаяКасса; КонецЕсли; исключение КассаККМ = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнаяКассаККМ"); Конецпопытки; КонецЕсли; // вебчек |
Документ Чек ККМ модуль документа в функцію ПровестиИРаспечататьЧек
перед сторокою
1 | СтруктураПараметровЧека.Вставить(“СтруктураОбщиеПараметры”, СтруктураОбщиеПараметры); |
замінити на
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_","")); КонецЕсли; КонецЦикла; СтруктураОбщиеПараметры.Вставить("СтруктураДанныхЭквТранзакции", СтруктураПараметрыЭкв); КонецЕсли; //вебчек |
Приклад чека з інформацією ЕПЗ
