Дисконтная система в RKeeper

[VampireKB]

Сделал программку для "локального" бэкофиса.
т.е.:
1)везде стоит обычный кардсервер
2)Есть головной офис с моей программкой
3)В этой программке люди забивают новые карты и нажимают кнопку "создать"
4)После этого берут свежесозданный файл и отсылают его по точкам.
5)На точках манагеры делают" Импорт карт из файла"
6)Всё

Хотите ?

[PaViS]

Сделал программку для "локального" бэкофиса
......
Хотите ?

Дай поюзать.

[ravakyan]

Можно ли сделать 2 базы данных для cardserver.
Идея.
есть локальная база данных в ресторане где данные вносятся управляющим ресторана. например скидки не более 10%, но есть еще одна к которой доступа сотрудник ресторана не имеет и в нее вносятся скидки более 10%.
как это можно реализовать для версий R-Keeper v.6 и v.7.

[SH]

Можно ли сделать 2 базы данных для cardserver.

Можно.

как это можно реализовать для версий R-Keeper v.6 и v.7.

По диапазонам карт направляете в разные кардсервы.

[ravakyan]

просьба скинуть пример ini-шника для R-Keeper v. 6
и если не сложно будет описать как это настроить в R-Keeper v. 7

[SH]

В RK6 курить ApServer1 и остальные. Я здесь уже писал, можно поискать, или на support.
В RK7 - через MSR-алгоритмы.

[ravakyan]

В RK6 курить ApServer1 и остальные. Я здесь уже писал, можно поискать, или на support.
В RK7 - через MSR-алгоритмы.

Добрый день.
В 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;

[ravakyan]

Всем спасибо, вопрос решил самостоятельно.

Для тех кому будет интересно.

установил на кассе 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;