В RK6 курить ApServer1 и остальные. Я здесь уже писал, можно поискать, или на support.
В RK7 - через MSR-алгоритмы.
В RK6 курить ApServer1 и остальные. Я здесь уже писал, можно поискать, или на support.
В RK7 - через MSR-алгоритмы.
Алексей Аркадьев
Когда заказчик ищет волшебника, то чаще всего он находит сказочника.
Если у Вас есть вопрос по поддержке - напишите его на форуме, я обязательно отвечу, если знаю ответ.
Если Вам нужны какие-то файлы, пишите на почту: support@carbis.ru, но вначале посмотрите в разделе для скачивания.
Для коммерческих вопросов:
+7 (495) 740-49-91, или на почту: sales@carbis.ru
Добрый день.
В RK6 реализовал через CDISTR так как версия 6.97
Вот в RK7 не совсем смог разобраться с MCR алгоритмами может кто сможет подсказать:
Идея
Есть основные карты которые с кодом 778=111110001=0001 которые прописаны в CARDSERVER1
Есть основные карты которые с кодом 778=222220022=99001 которые прописаны в CARDSERVER2
Где поправить н.у. Алгоритм чтобы запрос с кодом 222220022 или карты выше 99001 шел на CARDSERVER2
function MCR1000828(DeviceSignal: Integer; DeviceIdent: Integer; var Parameter: String): Boolean;var RestCode: integer;
begin
{ 778=КодРесторана=КодКарты }
if pos('778=', Parameter) = 1 then begin
delete(Parameter, 1, 4);
if pos('=', Parameter) > 1 then begin
RestCode := StrToIntDef(copy(Parameter, 1, pos('=', Parameter) - 1),-1);
delete(Parameter, 1, pos('=', Parameter));
if RestCode mod 10000 = 0 then
{без кода ресторана - на всю компанию}
Result := RestCode div 10000 = IntParam('EnterpriseCode')
else
Result := (RestCode = IntParam('RestaurantCode')) OR (RestCode = 222220022);
end;
end;
end;
У меня все работает. Скажите что я делаю не так?
Всем спасибо, вопрос решил самостоятельно.
Для тех кому будет интересно.
установил на кассе 2 CARDSERV
1. создал в MIDSERVER - два PDS interface
2. Сервис - Интерфейсы - создал еще один Интерфейс ПДС
3. Сервис - Обработка сигналов устройств - MCR алгоритмы - создал еще один алгоритм и в скрипте указал в предпоследней строке вместо
else
Result := (RestCode = IntParam('RestaurantCode')) OR (RestCode = 222220022);
end;
end;
end;
НОВОЕ ЗНАЧЕНИЕ
else
Result := (RestCode = 222220022);
end;
end;
end;
У меня все работает. Скажите что я делаю не так?