Перейти к основному контенту

SberQR - Настройки под фастфуд (Быстрый чек)

Перед настройкой под режим фастфуда сначала необходимо выполнить общие настройки в системе r_keeper_7

В режиме фастфуда есть два формата вывода QR-кода:

  1. Вывод QR-кода для оплаты на второй экран
  2. Печать QR-кода для оплаты на фискальном регистраторе или сервис-принтере, с передачей чека клиенту

Настройка под режим печати чека с QR-кодом

Настройка пользовательского макета

Зайти в менеджерской r_keeper_7 в пункт меню:

Настройки→ Печать → Документы и макеты

Перейти к пункту бокового меню:

Прочее → Пользовательский макет

  1. Создать новый макет (через правую кнопку мыши)
  2. Ввести название ПМ SberQR

    image-1629107565698.png

  3. Перейти в дизайн макета
  4. В свойствах макета добавить глобальные переменные (после входа в макет сразу нажать Свойства):

    printtextQR - тип “string”

    printtextErr - тип “string”

    test_1 - тип “string”

    ToPaySum - тип “double”

    image-1629108045689.png

  5. Создать 2 Бенда, 3 Мемо как на изображении ниже:

    image-1629110833030.png

    Обязательно указать бендам источники данных - Заказы и Чеки как на изображении выше

    Содержимое первого Мемо:
    ПЛАТИ QR-кодом
    От SBER
    Содержимое второго Мемо:
    <QRProperties 150;15%>
    [printtextQR]
    Содержимое третьего Мемо:
    Отсканируй QR-код в мобильном
    приложении банка

  6. Перейти в Мемо с параметрами QR-кода и указать следующий скрипт:
var
    host, tOrder, PostData, Ghost, tSum, sumToSend, StrSum, restaurantcode1,code :string;
begin
  begin
    printtextQR := '';
    printtextErr := '';
    ToPaySum :=[Сумма];
       
    host:='http://127.0.0.1:6800/terminal/Qr/';
    tOrder := [Заказы.GUID];
    tOrder := copy(tOrder,2,length(tOrder) - 2);
    tSum := IntToStr(trunc(ToPaySum));
    StrSum := FloatToStr(ToPaySum);
    Code := inttoStr([RestaurantCode]);
    sumToSend := tsum + copy(StrSum, pos('.',StrSum)+1,2);
    PostData:= '?sum=' + sumToSend;
    restaurantcode1:=  '&restaurantCode=' + Code;
    Ghost:= host + tOrder + PostData + restaurantcode1;
    httppost(Ghost, PostData,  printtextQR);
  
    printtextErr := HttpLastErrorMessage();
      if printtextQR[1] = '$' then
        begin
          printtextErr := copy(printtextQR, 2, length(printtextQR) - 1);
          printtextQR := '';
          test_1 := Ghost; 
        end
        else
          printtextQR := '<QRCODE ' + printtextQR + '>';
        end;    
end

image-1629110932543.png

Добавление пользовательского макета в схему печати

Зайти в менеджерской r_keeper_7 в пункт меню:

Настройки→ Печать → Схемы печати

  1. В используемой схеме печати в корне нажать ПКМ → Добавить представление документа

    image-1628778678599.png

  2. В появившемся окне выбрать созданный пользовательский макет ПМ SberQR и нажать кнопку ОК
  3. Выставить класс основного принтера Для чеков

    image-1629111289402.png

  4. Запомнить или записать код представления пользовательского макета - это понадобится при дальнейшей настройке

Настройка скрипта на форме быстрого чека

Настройка формы

Зайти в менеджерской r_keeper_7 в пункт меню:

Настройки → Графический интерфейс → Формы

Перейти к пункту бокового меню:

Заказ → Редактирование заказа (быстрый чек)

  1. Создать копию предустановленной формы Редактор заказа (быстрый чек) и назвать ее Редактор заказа (быстрый чек) SberQR. Также возможно использование уже скопированной ранее формы с другим названием

    image-1629121802906.png

  2. Перейти в редактирование формы, один раз нажать на белую зону (CheckView) и во вкладке События нажать двойной клик на пустое поле возле OnBeforeCheckViewEdit


    image-1629122099684.png

  3. Привести процедуру CheckViewOnBeforeCheckViewEdit к следующему виду:

procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);
var i: integer;
    it: TCheckItem; 
    DishesList: string;
begin
 ////---- debug
if (SYS.ObjectInheritsFrom(TObject(AObjectAft), 'TPayLine')) then
   begin
   case TPayLine(AObjectAft).TransactionStatus of
     tsNoTransaction: DishesList := 'tsNoTransaction';
     tsCanceled:      DishesList := 'tsCanceled';
     tsCreated:       DishesList := 'tsCreated';
     tsAuthorizing:   DishesList := 'tsAuthorizing';
     tsAuthorized:    DishesList := 'tsAuthorized';
     tsConfirmed:     DishesList := 'tsConfirmed';
     tsVoided:        DishesList := 'tsVoided';
     tsDayClosed:     DishesList := 'tsDayClosed';
     else
     DishesList := 'None';
     end;
     dbg.dbgprint('CVonBefCVEdit, TransactionStatus:' + DishesList + ', TPayline.Owner:' + TPayLine(AObjectAft).Owner +
                  ', Name:' + TPayLine(AObjectAft).Name + ', Code:' + inttostr(TPayLine(AObjectAft).Code));
   end;
////---- debug
if (SYS.ObjectInheritsFrom(TObject(AObjectAft), 'TPayLine')) then
 if (TPayLine(AObjectAft).TransactionStatus = tsNoTransaction) and (TPayLine(AObjectAft).Code = XXXXX) then
  begin
   RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails, YYYYY));
   if gui.MessageDlgEx('Гость подвердил оплату QR ?', mtInformation, mbYes+mbNo, 'Да;Нет') = ID_No then 
    begin
     AAllow := false;
    end;
  end;     
end;

XXXXX заменить на код созданной валюты SberQR

YYYYY заменить на код представления пользовательского макета

 

 

 

 

 

 

 

 

Наверх