Вибирайте розрядність згідно з розрядністю версії 1С Підприємство :
Тестова версія ВебЧек PRO 64bit 31.45 MB 364 Версия : beta
Версія для тестування новітніх функцій ПРРО...Тестова версія ВебЧек PRO 32bit 31.06 MB 1398 Версия : beta
Версія для тестування новітніх функцій ПРРО...Обробки обслуговування :
ВебЧек : Драйвер для еквайрингового терміналу обробка обслуговування 26.51 KB 1516 Версия : beta
ВебЧек : Драйвер для еквайрингового терміналу...Обробка обслуговування для 8.3 "ВебЧек: ПРРО" для звичайних форм 52 KB 14269 Версия :
Відеоінструкція з підключення Роздріб для України,...Умови за яких потрібно вносити зміни в конфігурацію :
- виведення реквізитів ЕПЗ на чек ПРРО
- підключення 2 та більше банківських терміналів
Зміни в конфігурацію :
В обробці СерверТО :
замінити
1 2 3 | Функция ПечатьЧека(Идентификатор, Пароль, НомерЧека, НомерСмены,СтруктураПараметровЧека, СуммаНал, СуммаБезнал, ПризнакВозврата) Экспорт |
на
1 2 3 | Функция ПечатьЧека(Идентификатор, Пароль, НомерЧека, НомерСмены,СтруктураПараметровЧека, СуммаНал, СуммаБезнал, ПризнакВозврата,СтруктураПараметрыЭкв = неопределено) Экспорт |
В обробці СерверТО в функцію ПечатьЧека:
перед
Результат = Обработка.ЗакрытьЧек(Объект, СуммаНал, СуммаБезнал);
вставити
1 2 3 4 | Объект.Вставить("СтруктураОбщиеПараметры",Новый Структура("СтруктураДанныхЭквТранзакции",СтруктураПараметрыЭкв)); |
В обробці СерверТО в функцію ПодключитьОборудование :
замість
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 | Если Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор Тогда Запрос.Текст = Запрос.Текст + " | И РегТО.КассаККМ = &КассаККМ"; КонеЦесли; Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер", ПолучитьИмяКомпьютераТО()); Если Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор Тогда КассаККМ =Клиент.КассаККМ; Если НЕ ЗначениеЗаполнено(Клиент.КассаККМ) Тогда КассаККМ = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнаяКассаККМ"); КонецЕсли; попытка Запрос.УстановитьПараметр("КассаККМ" , КассаККМ); исключение Запрос.УстановитьПараметр("КассаККМ" , неопределено); Конецпопытки; КонецЕсли; |
В обробці СерверТО в функцію ПолучитьСписокУстройств :
додати в початок функції :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | // вебчек Если (Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор)или(Вид = ПЕречисления.ВидыТорговогоОборудования.ЭквайринговаяСистема) Тогда Попытка Если НЕ ЗначениеЗаполнено(КассаККМ) Тогда КассаККМ = ПараметрыСеанса.ТекущийМагазин.ОсновнаяКасса; КонецЕсли; исключение КассаККМ = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнаяКассаККМ"); Конецпопытки; КонецЕсли; // вебчек |
В модуль документ ЧекККМ функція ПровестиИРаспечататьЧек
Замінити
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 46 47 48 49 50 51 | //ВебЧек виведення на чек інформаціі по транзакціі в банк терміналі СтруктураПараметрыЭкв = Новый Структура; Если Найти(НРег(Ссылка.Комментарий), "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 | Если ВидОперации = Перечисления.ВидыОперацийЧекККМ.Продажа Тогда Результат = ПолучитьСерверТО().ОплатитьПлатежнойКартой(ЭС, СуммаОплаты, КодRRN, ФР); Иначе Результат = ПолучитьСерверТО().ОтменитьПлатежПоПлатежнойКарте(ЭС, СуммаОплаты, КодRRN, ФР); КонецЕсли; |
вставити
1 2 3 | Комментарий = КодRRN; |
На формі обробки ТОНастройка
