Данні рекомендацій розроблені для режимів роботи коли підключено більше одного ПРРО або банківського терміналу до пк для конфігурацій Управління Торгівлею ред. 2.3
Основна мета, програма повинна підключати обладнання яке належіть тільки тій касі ккм яка зараз використовуються в роботі робочого місця
В обробці СерверТО в фукнцію ПодключитьОборудование :
замість :
1 2 3 | Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер", ПолучитьИмяКомпьютераТО()); |
замінити на :
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 | // вебчек Если (Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор)или(Вид = ПЕречисления.ВидыТорговогоОборудования.ЭквайринговаяСистема) Тогда Запрос.Текст = Запрос.Текст + " | И РегТО.КассаККМ = &КассаККМ"; КонеЦесли; Запрос.УстановитьПараметр("Вид" , Вид); Запрос.УстановитьПараметр("Компьютер", ПолучитьИмяКомпьютераТО()); Если (Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор)или(Вид = ПЕречисления.ВидыТорговогоОборудования.ЭквайринговаяСистема) Тогда Если НЕ ЗначениеЗаполнено(Клиент.КассаККМ) Тогда КассаККМ = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнаяКассаККМ"); иначе КассаККМ =Клиент.КассаККМ; КонецЕсли; попытка Запрос.УстановитьПараметр("КассаККМ" , КассаККМ ); исключение Запрос.УстановитьПараметр("КассаККМ" , неопределено); Конецпопытки; КонецЕсли; // вебчек |
Документ Чек ККМ модуль документа в функцію ПровестиИРаспечататьЧек
перед строкою СтруктураПараметровЧека.Вставить(“СтруктураОбщиеПараметры”, СтруктураОбщиеПараметры);
вставити :
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 | //ВебЧек виведення на чек інформаціі по транзакціі в банк терміналі Если Найти(НРег(Ссылка.Комментарий), "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 | // вебчек Если (Вид = ПЕречисления.ВидыТорговогоОборудования.ФискальныйРегистратор)или(Вид = ПЕречисления.ВидыТорговогоОборудования.ЭквайринговаяСистема) Тогда Попытка Если НЕ ЗначениеЗаполнено(КассаККМ) Тогда КассаККМ = ПараметрыСеанса.ТекущийМагазин.ОсновнаяКасса; КонецЕсли; исключение КассаККМ = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнаяКассаККМ"); Конецпопытки; КонецЕсли; // вебчек |
Документ Чек ККМ модуль документа в Процедура ОплатитьКартой
перед строкою Если ЗначениеЗаполнено(Результат) Тогда
вставити :
1 2 3 | Комментарий = КодRRN; |