Страница 3 из 3 ПерваяПервая 123
Показано с 21 по 23 из 23

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

  1. #21
    ТВОРЕЦ СЧАСТЬЯ Аватар для SH
    Регистрация
    29.11.2006
    Сообщений
    18,069
    Поблагодарил(а)
    481
    Благодарностей: 192 (сообщений: 165)
    В RK6 курить ApServer1 и остальные. Я здесь уже писал, можно поискать, или на support.
    В RK7 - через MSR-алгоритмы.
    Алексей Аркадьев

    Когда заказчик ищет волшебника, то чаще всего он находит сказочника.
    Если у Вас есть вопрос по поддержке - напишите его на форуме, я обязательно отвечу, если знаю ответ.
    Если Вам нужны какие-то файлы, пишите на почту: support@carbis.ru, но вначале посмотрите в разделе для скачивания.
    Для коммерческих вопросов:
    +7 (495) 740-49-91, или на почту: sales@carbis.ru

  2. #22
    Разбирающийся Аватар для ravakyan
    Регистрация
    09.11.2010
    Адрес
    Moscow
    Сообщений
    151
    Поблагодарил(а)
    1
    Благодарностей: 8 (сообщений: 6)
    Цитата Сообщение от SH Посмотреть сообщение
    В 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;
    У меня все работает. Скажите что я делаю не так?

  3. #23
    Разбирающийся Аватар для ravakyan
    Регистрация
    09.11.2010
    Адрес
    Moscow
    Сообщений
    151
    Поблагодарил(а)
    1
    Благодарностей: 8 (сообщений: 6)
    Всем спасибо, вопрос решил самостоятельно.

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

    установил на кассе 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;
    У меня все работает. Скажите что я делаю не так?

Похожие темы

  1. Накопительная система в ПДС
    от Чакипер в разделе Персональная Дисконтная Система (ПДС)
    Ответов: 49
    Последнее сообщение: 27.03.2015, 11:27
  2. Дисконтная система через интернет по VPN
    от adgjlzcbm в разделе Персональная Дисконтная Система (ПДС)
    Ответов: 13
    Последнее сообщение: 13.08.2012, 22:23
  3. Ответов: 2
    Последнее сообщение: 23.04.2009, 16:24

Метки этой темы

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •